dialog shite {
title "Shitlist By CaRtOs"
size -1 -1 156 175
option dbu
list 1, 83 6 65 143, size
edit "", 2, 17 26 50 10, autohs
button "Ekle", 3, 3 41 37 12
button "Sil", 4, 45 41 37 12
button "Duzenle", 5, 23 59 37 12
box "Atilis tipi", 6, 3 84 72 65
radio "Kick", 7, 13 95 24 10
radio "Kickban", 8, 13 111 33 10
radio "Akick", 9, 12 128 25 10
text "Nick :", 10, 25 10 26 8
button "Ok", 11, 5 163 143 12, ok cancel
check "Shitlisti Actiflestirin", 12, 20 152 65 10
}

alias shitmaj {
did -r shite 1
var %conte = 1
while ( %conte <= $gettok(%shit,0,44) ) {
did -a shite 1 $gettok(%shit,%conte,44)
inc %conte
}
}
on *:dialog:shite:init:0: {
shitmaj
if (%formashit == Kick) { did -c shite 7 }
if (%formashit == Kb) { did -c shite 8 }
if (%formashit == Akick) { did -c shite 9 }
if (%shitact == pikachu) { did -c shite 12 }
}
on *:dialog:shite:sclick:*:{
if ($did == 3) { set %shit $addtok(%shit,$did(2),44) | shitmaj }
if ($did == 5) && ($did(1).sel !== $null) { set %shit $reptok(%shit,$gettok(%shit,$did(1).sel,44),$did(2 ),1,44) | shitmaj }
if ($did == 1) { did -ra shite 2 $gettok(%shit,$did(1).sel,44) }
if ($did == 4) { set %shit $remtok(%shit,$gettok(%shit,$did(1).sel,44),44) | shitmaj }
if ($did == 7) { set %formashit Kick }
if ($did == 8) { set %formashit Kb }
if ($did == 9) { set %formashit Akick }
if ($did == 12) {
if ($did(12).state == 1) { set %shitact pikachu }
else { set %shitact carapuce }
}
}
on ^1:JOIN:#:{
if (%shitact == pikachu) && ($nick isin %shit) && (%formashit == Kick) { /kick $chan $nick 2[14BlackListed2] }
if (%shitact == pikachu) && ($nick isin %shit) && (%formashit == Kb) { /kick $chan $nick 2[14BlackListed2] | /mode $chan +b * $+ $nick $+ *!*@* | Mode $chan +b $address($nick,2) }
if (%shitact == pikachu) && ($nick isin %shit) && (%formashit == Akick) { //msg chanserv akick $chan add $nick | /kick $chan $nick 2[14BlackListed2] }
}
on *:load:{ /dialog -m shite shite }
menu menubar,channel,status,query {
ShitList :/dialog -m shite shite
-
}