Shitlist addonu

- dialog shitlist {
title "mIRC ShitList"
size -1 -1 348 244
box "Configuration", 1, 6 5 336 231
box "List", 2, 16 21 151 154
list 3, 26 39 130 125 begin_of_the_skype_highlighting              26 39 130 125      end_of_the_skype_highlighting, size sorted
box "Options", 4, 170 21 162 81
text "Nick:", 5, 179 47 30 13
edit "", 6, 212 39 109 22 begin_of_the_skype_highlighting              212 39 109 22      end_of_the_skype_highlighting, multi return autohs
button "Add", 7, 183 68 65 23
button "Del", 8, 252 68 65 23
box "Status", 10, 171 102 81 73
radio "On", 11, 180 119 60 23, push group
radio "Off", 12, 180 143 60 23, push
box "Action", 13, 254 102 78 56 begin_of_the_skype_highlighting              254 102 78 56      end_of_the_skype_highlighting
radio "Kick", 14, 262 120 51 13 begin_of_the_skype_highlighting              262 120 51 13      end_of_the_skype_highlighting, group
radio "Kick+Ban", 15, 262 136 64 13 begin_of_the_skype_highlighting              262 136 64 13      end_of_the_skype_highlighting
box "Message", 17, 16 175 235 49
edit "", 18, 26 192 214 22 begin_of_the_skype_highlighting              26 192 214 22      end_of_the_skype_highlighting, multi return autohs
button "Done", 19, 260 191 76 23 begin_of_the_skype_highlighting              260 191 76 23      end_of_the_skype_highlighting, ok
}
on *:dialog:shitlist:*:*: {
if $devent = init {
didtok shitlist 3 32 %st.list
did -a shitlist 18 %st.msg
if (%st.status == on) { did -c shitlist 11 }
elseif (%st.status == off) { did -c shitlist 12 }
if (%st.reason == k) { did -c shitlist 14 }
elseif (%st.reason = kb) { did -c shitlist 15 }
}
if $devent = sclick {
if $did = 7 { if ($did(6).text == $null) { return } | else { did -a shitlist 3 $did(6).text | set %st.list $didtok(shitlist,3,32) | .auser 3 $did(6).text | did -r shitlist 6 } }
if $did = 8 { if ($did(3).sel == $null) { return } | else { .ruser $did(3,$did(3).sel).text | did -d shitlist 3 $did(3).sel | set %st.list $didtok(shitlist,3,32) } }
if $did = 11 { .set %st.status on | .enable #shitlist }
if $did = 12 { .set %st.status off | .disable #shitlist }
if $did = 14 { .set %st.reason k }
if $did = 15 { .set %st.reason kb }
}
if $devent = edit {
if $did = 18 { .set %st.msg $did(18) }
}
}
#shitlist off
on 3:join:#: { if ($me isop $chan) { if (%st.reason == k) { kick $chan $nick %st.msg } | elseif (%st.reason == kb) { ban $chan $nick 3 | kick $chan $nick %st.msg } } }
#shitlist end
menu status,channel {
-
mIRC Shitlist:/dialog -m shitlist shitlist
-
}