bchk var %& = 1 | while (%& <= $hget(bad,0).item) { if ($regex($1,/ $hget(bad,%&).item/i)) { hadd -m nick $1 1 } | inc %& }
chk if ($1) { var %1 = 1 | while (%1 <= $nick($1,0)) { bchk $nick($1,%1) | inc %1 } | echo $1 Bulunan badnick sayısı: $hget(nick,0).item $(|) Nickleri atmak için: F9 tuşuna basınız. }
badd $iif(!$1,echo -at Kelime girmediniz.,$iif($hget(bad,$1),echo -at $1 kelimesi listede.,hadd -m bad $1 1)) | hsave -i bad bad.hsh
bdel $iif(!$1,echo -at Kelime girmediniz.,$iif(!$hget(bad,$1),echo -at $1 kelimesi listede değil.,hdel bad $1)) | hsave -i bad bad.hsh
blist window -Caldk0 +L @Bad-words 0 0 200 400 | var %- = 1 | while (%- <= $hget(bad,0).item) { aline @bad-words $+(%-,-) $hget(bad,%-).item | inc %- }
F9 if (%k) { var %s = 1 | while (%s <= $hget(nick,0).item) { echo -a $hget(nick,%s).item 2 Sebeb. | inc %s } | unset %k | hfree nick } | else { diğer komut }

on me:*:join:#:set %k # | .timer 1 1 chk #
on *:start:if ($isfile(bad.hsh)) { hmake bad 50 | hload -i bad bad.hsh }