on !*:join:#: { kntrl $nick }
alias kntrl {
if $1 == -t {
if $me !ison # { 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 # && $count($nick(%nick,#).pnick,@,&,~,.,%) == 0 {
%nicktemp = $addtok(%nicktemp,%nick,44) 
}
if %nick { hdel greedhsh %nick }
}
else { msg # %nickemp hoş geldiniz | %nicktemp = $null }
inc %i 1
}
if %nicktemp { msg # %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 
}
}