chk { 
  var %1 = 1 | while (%1 <= $hget(bad,0).item) { 
    if ($ialchan($+(*,$hget(bad,%1).item,*),$1,0) == 1 && >= 0) { hadd -m $1 $ialchan($+(*,$hget(bad,%1).item,*),$1,1).nick 1 }
  else { chk2 $1 $+(*,$hget(bad,%1).item,*) } | inc %1 }
  echo $colour(info) $1 $timestamp $iif($hget($1,0).item >= 1,Bulunan badnick sayısı: $hget($1,0).item,Badnick bulunamadı.)
  echo $colour(info) $1 $timestamp Nickleri görüntülemek için: CTRL + F9 tuşuna basınız.
  echo $colour(info) $1 $timestamp $iif($regex($nick($1,$me).pnick,@|&|%|~),$iif($regex($usermode,a|A|N|C),Nickleri kanal'dan atmak için: F9 tuşuna basınız.),Kanaldan atma yetkiniz yok.))
} 
chk2 if ($1 && $2) { var %& = 1 | while (%& <= $ialchan($2,$1,0)) { hadd -m $1 $ialchan($2,$1,%&).nick | inc %& } }
cF9 if ($hget($active)) { seen $active }
seen var %t = 1,%tt | while (%t <= $hget($1,0).item) { %tt = $addtok(%tt,$hget($1,%t).item,32) | inc %t } | echo $colour(info) $1 $timestamp Tespit edilen badnickler: %tt 
F9 if ($hget($active)) { bans $active } | else { diğer komut }
bans var %- = 1 | while (%- <= $hget($1,0).item) { ban -k $1 $hget($1,%-).item 2 SEBEB. | inc %- } | %// = %- - 1 | echo $colour(info) $1 $timestamp Atılan nick sayısı: %// | hfree $1
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 %- }

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