on *:start:{ hmake gz | hload gz gz.BF }
on *:text:*:*: { if !$istok(#opers #opersohbet #kanal ,$chan,32) && !$istok(bf nick2 nick3 nick4 ,$nick,32) { if $hfind(gz,$strip($1-),1,W).data { gzline $nick Uygunsuz yazı. | msg #logch $nick atıldı cümlesi: $1- } } }
on *:input:*:{
  if -gzline == $1 {
    haltdef
    if !$hget(gz) { hmake gz | hsave gz gz.BF }
    if !$2 || !$3 && $2 != liste { echo -a 2*** $1 ekle / sil / tara / liste - kelime 2*** | halt }
    if $2 == ekle { if $hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli. | return } | var %n = $left($calc($ctime * $rand(1000,9999)),7) | hadd -m gz %n $3- | hsave -o gz gz.BF | echo -a $3- data'ya eklendi. }
    if $2 == sil { if !$hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli değil. | return } | hdel gz $hfind(gz,$3-,1,W).data | hsave -o gz gz.BF | hfree -sw gz | hmake gz | hload gz gz.BF | echo -a $3- data'dan silindi. }
    if $2 == tara { if !$hfind(gz,$strip($3-),0,W).data { echo -a gzline listemde $+([,$strip($3-),]) sorgusuna ait bir mask yok. | return } | echo -a Cümle: $strip($3-) - Mask: $+([,$chr(32),$hget(gz,$hfind(gz,$strip($3-),1,W).data),$chr(32),]) }
    if $2 == liste { if ($hget(gz,0).data == 0) { echo -a gzline listesi boş. | return } | echo -a Gzline listesi | echo -a - | var %i = 1 | while (%i <= $hget(gz,0).data) { echo -a %i $+ )  $hget(gz,%i).data | inc %i } | echo -a - | echo -a Gzline listesi sonu } 
  }
}