Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $regex($1,/^[!\.]m[uU]afn[ıiİ][cçÇ]k$/Si) {
if $2 == list {
.timer -h 1 500 msg $chan - Muaf nickler listeleniyor.
var %:mnck = 1, %mnc = $lines(muafnick.txt)
while %:mnck <= %mnc {
.timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $read(muafnick.txt,%:mnck)
inc %:mnck
}
.timer -h 1 500 msg $chan - Toplam Muaf Nick Sayısı:04 %mnc
}
if $2 == ekle {
if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek nicki yazınız | return }
if $read(muafnick.txt,w,$strip($3)) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
.write muafnick.txt $strip($3)
.timer -h 1 500 msg $chan $+(",,$3,,") Muaf Nick Listesine Eklendi
}
if $2 == sil {
if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek Nicki Yazınız | return }
if !$read(muafnick.txt,w,$strip($3)) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") verisi bulunmamaktadır. | return }
if $read(muafnick.txt,w,$strip($3)) { write -dl $+ $readn muafnick.txt | .timer -h 1 500 msg $chan $+(",,$3,,") Muaf nick Listesinden Silindi }
}
}