PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
on @*:join:#:{ badnick } alias badnick { :basla inc %i set %bnick $read -l $+ %i badnick.txt if (%i => $lines(badnick.txt)) { unset %i | halt } else { if (%bnick isin $nick) { /mode # +b $nick | /kick # $nick Bad Nick } goto basla } } on *:text:*:#:if $read(kufur.txt,$1) { /mode # +b $nick | /kick # $nick Yasak Kelime Kullanımı }
alias antipity { dialog -m antipity antipity } dialog antipity { title "BadNick & Kufur Koruma Sistemi ßy AntiPity" size -1 -1 226 102 option dbu list 2, 38 22 70 58, size list 5, 118 22 70 58, size edit "", 10, 38 12 70 10 edit "", 11, 118 12 70 10 box "BAD NICK", 6, 5 3 107 81 box "KUFUR", 7, 114 3 107 81 button "T A M A M", 1, 38 87 148 12,ok button "EKLE", 3, 10 14 24 28 button "KALDIR", 4, 10 45 24 28 button "EKLE", 8, 192 14 24 28 button "KALDIR", 9, 192 45 24 28 } on *:dialog:antipity:INIT:*: { if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt } if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt } if (%badnick) .didtok $dname 2 32 $ifmatch if (%kufur) .didtok $dname 5 32 $ifmatch } on *:dialog:antipity:sclick:*:{ if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 | badnick } if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 } if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel } if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel } } on *:dialog:antipity:sclick:1:{ set %badnick $didtok($dname,2,44) set %kufur $didtok($dname,5,44) }
Küfür ve badnick korumasını aynı pencerede yapmaya çalışıyoruz fakat bu kod her kelimeyi atıyor . kodu tanıtınca eklenen küfür ve badnickler kufur.txt ve badnick.txt adında iki dosya oluşturuyor ve eklenenler içerisine kayıt oluyor . Ayrıca arada bir açarken hata verip programı sonlandırıyor . Hata nerede ?