;Annoyance.Inc BlackList
;Version 0.1
;MoP
Dialog shitlist {
Title "Annoyance.Inc Black-List"
Size -1 -1 475 341
Box "BlackList", 1, 335 33 133 264,
Edit "Nickname", 2, 343 270 73.489932885906 20,
Button "+", 3, 421 270 20 20,
List 4, 342 51 117 213,
Button "-", 5, 444 270 20 20,
Button "OK", 6, 379 305 89 23,OK
Box "Settings", 7, 8 33 287 264,
Icon 8, 60 -3 370 36, ai/img/inclogo.bmp
Check "Enable", 9, 30 61 89 13,
Text "Black-Listed Message:", 10, 30 99 110.738255033557 15,
Edit "", 11, 143 96 89.5973154362416 19, autohs
}
alias shitlistconfig {
dialog -m shitlist shitlist
}
on 1:dialog:shitlist:init:*: {
if (%shitliststatus.checkone == On) {
did -c shitlist 9
}
//didtok shitlist 4 32 %shitlist
did -a shitlist 11 %shitlistmessage.editone
}
On 1:DIALOG:shitlist:sclick:6:{
if ($did(shitlist,9).state == 1) { set %shitliststatus.checkone On }
else { set %shitliststatus.checkone Off }
set %shitlistmessage.editone $did(shitlist,11).text
}
On *:DIALOG:shitlist:sclick:3:{
did -a shitlist 4 $did(shitlist,2)
set %shitlist %shitlist $didtok(shitlist,4,32)
ignore -pcntikdw $address($did(shitlist,2),0)
}
On *:DIALOG:shitlist:sclick:5:{
did -d shitlist 4 $did(shitlist,4).sel
set %shitlist $didtok(shitlist,4,32)
ignore -pcntikdwr $address($did(shitlist,4).sel,0)
}
On 1:TEXT:*:*:{
if ( %shitliststatus.checkone == On ) {
if ( $nick isin %shitlist ) {
msg $nick %shitlistmessage.editone
}
}
}
on 1:JOIN:#:{
if ( $nick == $me ) {
who $chan
}
}