/rand? aBGHJsSfTyu
check random rate ;)
or using test commands
/Testrand
good luck
alias rand? {
var %t = $remove($1,1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),%s+ $regex(%t,/([aeoui])/ig),%s- $regex(%t,/([^aeoui])/ig)
echo Total: $len(%t) Vovel: %s+ Consonant: %s-
if $len(%t) > 4 { gr $len(%t) %s- $1 }
}
alias -l gr {
; Consonand rate here.. type %
var %rate 73
;Graphic line lenght
var %line 10
var %% $round($iif($round($calc(($2 * 100) / $1),1) > 100, 100, $round($calc(($2 * 100) / $1),1)),0),$&
%n $iif($2 > $1, $1, $2),%g %line,%go $+($chr(3),4,$chr(44),4) $chr(160),$&
%goc $+($chr(3),14,$chr(44),14) $chr(160),%t= $round($calc((%n * %line) / $1),0)
echo $str(%go,%t=) $+ $str(%goc,$ceil($calc(%g - %t=))) $chr(15) $chr(37) $+ %% $3 $iif(%% > %rate,RANDOM)
}
alias testrand {
:r | if $len(%r) <= 50 { var %r $addtok(%r,$gettok($r(a,z) $r(A,Z),$r(1,2),32),32) | goto r }
else { var %r $remove(%r,$chr(32)) | Rand? $left(%r,$r(5,$len(%r))) }
}
Graphic length 10 and 100
why is my good luck... to encounter with random nicknames ;)