alias basla {  %q  = $1 | tokenize 32 $regsubex($str(- $chr(32),$nick($1,0,~&@)),/(-)/g,\n) |  scon -r hinc -m kontrol $!nick(%q, $* ,~%@) 1 }
alias kontrol { $iif(!$timer(kontrol),.timerkontrol 0 1 kontrol $1,) |  basla $1 | while . { inc -u %k | msg  $$hfind(kontrol,300,%k,w).data Kanalda 5 dkdır konuşmuyorsunuz.  } }
on *:text:*:#sohbet: $iif($nick(#,$nick,~&@),hdel -s kontrol $nick,)

Arnavutkızı Kanalda 5 dkdır konuşmuyorsunuz.
ArAnAnAdAm Kanalda 5 dkdır konuşmuyorsunuz.