| BlackForce | 15 Mayıs 2018 00:25 |
Cevap: İzinLi nick Listesi
Kod:
alias izin { if !$isid { if !$findtok(%izinli,$1,32) { %izinli = $addtok(%izinli,$1,32) | echo -a 2*** Eklenen izinli nick;4 $1 2*** } | else { %izinli = $remtok(%izinli,$1,32) | echo -a 2*** İzinliden silinen nick;4 $1 2*** } } }
if !$istok(%izinli ,$nick,32) { msg # Bunun için yetkili değilsin. | return }
Kod:
on 1:INPUT:*:{ if !muaf* iswm $1- { write muaf.txt $2- | echo -a 2*** Eklenen muaf nick;4 $2- 2*** | haltdef } }
on 1:INPUT:*:{ if !muafa* iswm $1- { auser muaf $2- | echo -a 2*** Eklenen muaf nick;4 $2- 2*** | haltdef } }
dialog muafnick {
title "Muaf nick listesi"
size -1 -1 133 150
option dbu
edit "", 11, 17 44 60 10
list 3, 17 54 60 69
button "Ekle", 4, 85 46 32 12
button "Sil", 5, 85 66 33 12
box "Muaf nick listesini yaziniz..", 9, 2 32 129 115
button "Tamam", 10, 12 128 111 15, ok
}
menu status,channel,query {
-
Muaf Nick Listesi: dialog $iif(!$dialog(muafnick),-m muafnick,-v) muafnick
}
alias muafnick { .dialog -m muafnick muafnick }
on *:dialog:muafnick:init:*:{
if (%muaflist-) .didtok $dname 3 32 $ifmatch
}
on *:dialog:muafnick:sclick:*: {
if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%muaflist-,%sk,32)) { .set %muaflist- $addtok(%muaflist-,%sk,32) | did -a $dname 3 %sk | did -r $dname 11 } } }
if ($did == 5) { if ($did(3).sel > 0) { .set %muaflist- $remtok(%muaflist-,$did(3).seltext,1,32) | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } }
}
|
