on *:snotice:*Client*connecting*: {
who $9
}
raw 352:*: {
  if ($regex($9,/[bcdfghjklmnprstvyz]{3}/i)) { gzline $6 süre sebep }
}

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

on *:snotice:*: {  
  if $regex($1-,Client connecting on port) && ($regex($10,/[bcdfghjklmnprstvyz]{3}/i) || $regex($11,/[bcdfghjklmnprstvyz]{3}/i)) { kill $9 sebep } 
}

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 

on *:snotice:*: {  
  if $regex($1-,Client connecting on port) && $regex($6,/^([A-Z]{1,})([a-z]{1,})$/) || ($regex($10,/[bcdfghjklmnprstvyz]{3}/i) || $regex($11,/[bcdfghjklmnprstvyz]{3}/i)) { echo -as kill $9 sebep } 
}

on *:snotice:*Client*connecting*:
raw 352:*: {
  if ($regex($6,/^([A-Z]{1,})([a-z]{1,})$/) || $regex($10,/[bcdfghjklmnprstvyz]{3}/i) || $regex($9,/[bcdfghjklmnprstvyz]{3}/i)) { echo -as kill $6 sebep }
}