on *:join:#:{
if !$hget($+($chan,-join)) {
hmake $+($chan,-join)
hadd $+(-mu,$saniye) $+($chan,-join) $nick $left($nick,$karakter)
}
elseif $hfind($+($chan,-join),$left($nick,$karakter),1,W).data {
mode $chan +bbb $address($nick,2) $left($nick,$karakter) $+ * ~n: $+ $left($nick,$karakter) $+ *
kc $left($nick,4) $chan
}
else {
hadd $+(-mu,$saniye) $+($chan,-join) $nick $left($nick,$karakter)
}
}
alias kc { var %1 1 | while %1 <= $nick($2,0,r) { if $regex($nick($2,%1,r),$1) { kick $2 $nick($2,%1,r) Saldırı yasaktır. } | inc %1 } }
alias karakter return 4
alias saniye return 5