alias rand? {
  var %t = $remove($1,1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_), %s+ $regex(%t,/([aeoöuüıiI])/gi),%s- $regex(%t,/([^aeoöuüıiI])/gi)
  ; echo  Toplam: $len(%t) Sesli: %s+ Sessiz: %s-
  ;if $len(%t) > 4 { gr $len(%t) %s- $1  }

  if $len(%t) > 4 && $gr($len(%t),%s-,$1,$2) { gzline $2 | hdel rand? $2  }
}
alias -l gr {
  ;oran buraya % cinsinden
  var %rate 73
  ;Grafik çubuk uzunlugu buraya 
  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 $4 )
  $iif(%% > %rate,return $true)
}
on *:snotice:*Client*connecting*: hadd -m rand? $4 $4
raw 311:*: if ($hget(rand?,$2)) rand? $remove($6-,$chr(32)) $2