on 1:dialog:adver:sclick:*: {
if ($did == 3) { did -ra $dname 5 $did(3).seltext | did -e $dname 10 }
if ($did(13).state == 1) { set %senable 1 | did -e adver 3,4,5,6,7,10,12 } | else { set %senable 0 | did -b adver 3,4,5,6,7,10,12 }
if ($did == 4) { set %words1 [ %words1 ] $did(5) | did -a $dname 3 $did(5) | did -ra $dname 5 }
if ($did == 7) { if ($did(3).sel > 0) { set %words1 $remtok(%words1,$did(3).seltext,32) | did -d adver 3 $did(3).sel | did -ra $dname 5 | did -b $dname 7 } }
if ($did(10).state == 1) { set %kban 1 | did -e adver 12 } | else { set %kban 0 | did -b adver 12 }
}
on *:dialog:adver:init:*: {
if (%kban == 1) { did -c adver 10 | did -e adver 12 }
if (%kban == 0) { did -b adver 12 }
if (%senable == 1) { did -c adver 13 | did -e adver 4,5,6,7,10,12 }
if (%senable == 0) { did -b adver 4,5,6,7,10,12 }
var %a = 1
while ($gettok(%words1,%a,32)) {
did -a adver 3 $gettok(%words1,%a,32)
inc %a
}
}
on @*:join:#:{
if ($nick !isop $chan) {
var %x = 1
while (%x <= $numtok(%words1,32)) {
if ($gettok(%words1,%x,32) isin $nick) { var %advering! = $true }
inc %x
}
if (%advering!) && (%kban == 1) && (%mins) {
mode $chan b $nick
kick $chan $nick 12 $+ Kanalimiza bu nickle giremezsiniz nick degisin!!
}
}
}
dialogunu kopyalamadim
bu aslinda kotukelime korumasi idi ben bunu kotunick olarak degistirdim
ama buna birde kotunick taramasi eklemek istiyorum beceremedik haliyle
mumkunmu buna bir kotunick taramasi yapmak acaba |