Çevrimdışı

Arkadaşlar bu Code da belirli nicklerin atılamasını istemiyorum yada #oyun kanalında calışmasın örneğin Ahmet mehmet ve identi ****.com olanlar atılamaycak yani admin identliler.... şimdiden teşekkürler.


alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%&#183
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{ if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on *:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { samode # +o $me | .samode $chan +b $nick | .kick $chan $nick BadNick! }
}
on *:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { samode # +o $me | .samode $chan +b $nick | /akill $nick Kurallara uymayan davranış gösterdiniz. AKILL! | .samode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }
alias antipaty { dialog -m antipity antipity }
dialog antipity {
title "BadNick & Kufur Koruma Sistemi"
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 }
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)