dialog bad_nicks {
title "Bad Nicks"
size -1 -1 91 140
option dbu
combo 1, 8 22 75 84, size
text "Bad Nick", 2, 9 10 25 8
button "Add", 3, 8 109 37 12
button "Remove", 4, 47 109 37 12
button "Close", 5, 27 125 37 12, cancel
}
on *:dialog:bad_nicks:init:*: {
/badnick.fill
}
on *:dialog:bad_nicks:*:*: {
if ($devent == sclick) {
goto $did
:1
return
:3
write $mircdirbadnicks.txt $did(1)
return
:5
return
:4
echo -a $did(1)
}
}
alias -l badnick.fill {
var %badnick.total = $lines($mircdirbadnicks.txt)
var %badnick.number = 1
:next
if (%badnick.number <= %badnick.total) {
did -a bad_nicks 1 $read($mircdirbadnicks.txt,%badnick.number)
inc %badnick.number 1
goto next
}
else { Return }
}