on !*:join:#sohbet: { kntrl $nick }
alias kntrl {
  if $1 == -t {
    if $me !ison #sohbet { halt }
    var %i = 1, %end = $hget(greedhsh,0).item, %nicktemp = $null, %nick == $null
    while %i <= %end {
      if $len(%nicktemp) <= 400 { 
        %nick = $hget(greedhsh,%i).item
        if %nick ison #sohbet && $count($nick(%nick,#sohbet).pnick,@,&,~,.,%) == 0 {
          %nicktemp = $addtok(%nicktemp,%nick,44) 
        }
        if %nick  { hdel greedhsh %nick }
      }
      else { msg #sohbet %nickemp hoş geldiniz | %nicktemp = $null }
      inc %i 1
    }
    if %nicktemp { msg #sohbet %nicktemp hoş geldiniz }
  }
  else {
    if $timer(greeddelay) {
      if !$hget(greedhsh,$1) { hadd -m greedhsh $1 $ctime }
    }
    else {  
      ;belki timer dış güçler tarafından kapatılmıştır :D, hash kontrolü
      if !$hget(greedhsh,$1) { hadd -m greedhsh $1 $ctime }
      .timergreeddelay 1 3 /kntrl -t 
    }
  }