Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias -l muafnickler return nick1 dfd nick3 nick4
alias -l muafchan return #oper #opersohbet #bf
alias -l logch return #logch
alias -l islem return gzline
alias -l islemSebep return Uygunsuz yazı.
on *:start:{ hmake gz | hload gz gz.BF }
on *:text:*:*: { if !$istok($muafchan ,$chan,32) && !$istok($muafnickler ,$nick,32) { if $hfind(gz,$strip($1-),1,W).data { $islem $nick $islemSebep | msg $logch 2 $nick atıldı! 04-> $1- 04<- 2CH 04-> $chan 04<- } } }
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 }
}
}
Echo kısmini gözden kaçırmışım.