dialog shitlist {
title "Shitlist"
size -1 -1 99 136
option dbu
box "Shitlisted", 1, 1 3 54 131
combo 2, 3 10 49 123, size
button "Ok", 3, 57 122 37 12, ok
box "Options", 5, 54 3 43 23
button "Remove", 6, 57 11 37 12
}
on *:dialog:shitlist:init:0:{
var %; = 1
var %_ = $hget(shitlist,0).item
While (%; <= %_) {
did -a shitlist 2 $hget(shitlist,%
.item
inc %;
}
}
on *:dialog:shitlist:sclick:6: {
hdel shitlist $hfind(shitlist,$did(shitlist,2).seltext,1).item
echo -a 4[14-4[14Removed4 $did(shitlist,2).seltext 14From Your Shitlist4]14-4]
}
on @*:join:#:{
if ($hget(shitlist,$address($nick,3))) {
ban $chan $nick 3 | kick $chan $nick ( You Have Been Shit Listed Fucker.) $+ $hget(settings,kicks)
}
}
menu nicklist {
-
[-[ShitLister]-]
.Add:hadd shitlist $address($$1,3) $$1 | echo -a 4[14-4[14Added4 $$1 14To Your Shitlist4]14-4] 3 | var %x 1,%y | while ($chan(%x)) { %: = $ifmatch | if ($me isop %
&& ($1 ison %
{ kick %: $1 (You Have Been Shit Listed Fucker.) } | inc %x }
.Remove:hdel shitlist $address($$1,3) | echo -a 4[14-4[14Removed4 $$1 14From Your Shitlist4]14-4]
.View List: dialog -m shitlist shitlist
}
on *:load:hmake shitlist 10
on *:EXIT:{ hsave -o shitlist shitlist.txt }
on *:START:{ hmake shitlist 10 | hload shitlist shitlist.txt }