Irc Ame – Amsg Muaf Kanal Ekmele Kodu

menu channel {
–
» Ame-Amsg-Muaf:/amele
–
}
dialog amele {
title “KiLLed Ame-Amsg Muaf 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, 196 28 33 12
button “Sil”, 8, 196 48 33 12, tab 2
box “Muaf Ame ekleyiniz”, 9, 5 14 110 90
box “Muaf Amsg ekleyiniz”, 19, 125 14 110 90
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 *:dialog: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 } }
}

Bu Kodları alt+R tuşuna bastıgında Cıkan Boş Bir Sayfaya Atmak Yeterli Olucaktır..Calıştırmak İçin /amele yazman yeterli olucaktır yada kanal,status menulerinde Cıkan Secenegi Tıklaman Yeterli Olucaktır..