alias noteman { dialog -m notify.manager notify.manager }
dialog notify.manager {
title "Vampire Script Notify Manager"
size -1 -1 273 289
option pixels
icon icon.ico, 0
box "Nicknames", 1, 8 2 126 174
box "Details", 2, 143 2 123 174
list 3, 12 17 118 154, sort size vsbar
box "Operations", 4, 7 186 259 64
button "Modify Selected", 5, 11 202 86 20
button "Remove", 6, 104 202 58 20
button "Add/Update", 7, 168 149 74 20
text "Nickname:", 8, 150 17 50 16
edit "", 9, 148 32 109 21
button "Whois", 10, 168 202 75 20
text "Notify Note:", 11, 150 56 60 16
edit "", 12, 148 72 109 21
button "Query", 13, 11 224 86 20
button "Done", 14, 103 257 75 25, ok
text "Vampire Script", 15, 201 270 69 16, disable
}
on *:dialog:notify.manager:init:0:{
var %nickdat.N = $ini(Vampire.nick.dat,Nicks,0)
while (%nickdat.N) {
did -a notify.manager 3 $ini(Vampire.nick.dat,Nicks,%nickdat.N)
dec %nickdat.N
}
}
on *:dialog:notify.manager:sclick:3:{
did -ra notify.manager 9 $did(notify.manager,3).seltext
did -ra notify.manager 12 $readini(vampire-nicknote.dat,nicks,$did(notify.manager,3).seltext)
}
on *:dialog:notify.manager:sclick:7:{
did -a notify.manager 3 $did(notify.manager,9)
writeini vampire.nick.dat Nicks $did(notify.manager,9) $did(notify.manager,9)
writeini vampire-nicknote.dat Nicks $did(notify.manager,9) $did(notify.manager,12)
notify $did(notify.manager,9) $did(notify.manager,12)
did -r notify.manager 3,9,12
var %nickdat.N = $ini(Vampire.nick.dat,Nicks,0)
while (%nickdat.N) {
did -a notify.manager 3 $ini(Vampire.nick.dat,Nicks,%nickdat.N)
dec %nickdat.N
}
}