mIRC Ame amsg Muaf Kanal kodu


menu channel {
-
» Ame-Amsg-Muaf:/amele
-
}
amele {
title "KiLLed Ame-Amsg Menu"
size -1 -1 240 126
option dbu
edit "" 11, 10 26 60 10
list 3, 10 36 60 70
button "Ekle", 4, 78 28 32 12
button "Sil", 5, 78 48 33 12
edit "" 12, 130 26 60 10
list 6, 130 36 60 70
button "Ekle", 7, 16 28 33 12
button "Sil", 8, 16 48 33 12, tab 2
box " Ame ekleyiniz", 9, 5 14 110 0
box " Amsg ekleyiniz", 19, 125 14 110 0
button "Tamam", 10, 5 110 230 10, ok
}
alias amele { .dialog -m amele amele }
alias ame { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafame,$chan(%i),32) != $true { describe $chan(%i) $1- } } } alias amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafamsg,$chan(%i),32) != $true { msg $chan(%i) $1- } } } on *::amele:init:*:{ if (%muafame) .didtok $dname 3 32 $ifmatch if (%muafamsg) .didtok $dname 6 32 $ifmatch } on *:dialog:amele:sclick:*: { ;ame için muafiyet if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%muafame,%sk,32)) { .set %muafame $addtok(%muafame,%sk,32) | did -a $dname 3 %sk | did -r $dname 11 } } } if ($did == 5) { if ($did(3).sel > 0) { .set %muafame $remtok(%muafame,$did(3).seltext,1,32) | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } }
;amsg için muafiyet
if ($did == 7) { if ($did(12) != $null) { set -u %sk $did(12) | if (%sk) && (!$istok(%muafamsg,%sk,32)) { .set %muafamsg $addtok(%muafamsg,%sk,32) | did -a $dname 6 %sk | did -r $dname 12 } } }
if ($did == 8) { if ($did(6).sel > 0) { .set %muafamsg $remtok(%muafamsg,$did(6).seltext,1,32) | did -d $dname 6 $did(6).sel | did -c $dname 6 1 } }
}

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir