um...i dunno if you'll like it
but i'm gonna use it if that's okay:
dialog greets {
title Greets
option dbu
size -1 -1 200 111
text "Nicks && Greet Messages", 1, 1 1 90 10
list 2, 1 11 98 100, vsbar
text "Selected Nick", 3, 101 11 100 10
edit "", 4, 101 22 100 10, disable
text "Greet Message", 5, 101 44 100 10
edit "", 6, 101 55 100 10, disable
button "Save", 7, 101 77 49 10, disable
button "Delete", 8, 151 77 48 10, disable
button "Kick", 9, 101 88 49 10, disable
button "Ban", 10, 151 88 48 10, disable
menu "Manage", 11
item "New", 12
item "Exit", 13, cancel
}
on *:DIALOG:greets:init:0: {
var %i 1
while (%i <= $var(%hi.*,0) ) {
did -a greets 2 $gettok($var(%hi.*,%i),2,46)
inc %i
}
}
on *:DIALOG:greets:sclick:2: {
did -ra greets 4 $did(2).seltext
did -era greets 6 $var(%hi.*,$did(2).sel).value
did -e greets 8-10
}
on *:DIALOG:greets:edit:6: {
did -e greets 7
did -era greets 8 Cancel
}
on *:DIALOG:greets:sclick:7: {
set %hi. $+ $did(4) $did(6)
did -b greets 7
did -ra greets 8 Delete
}
on *:DIALOG:greets:sclick:8: {
If ($did(8) == Delete) {
unset %hi. $+ $did(4)
dialog -x greets
dialog -md greets greets
}
Else {
did -ra greets 6 $var(%hi.*,$did(4)).value
did -b greets 7
did -ra greets 8 Delete
}
}
on *:DIALOG:greets:sclick:9: {
kick $active $did(4)
}
on *:DIALOG:greets:sclick:10: {
.timer 1 1 /kick $active $did(4)
ban $active $did(4)
}
on *:DIALOG:greets:menu:12: {
set %hi. $+ $$?="Please input a nick." $?="Please input a greeting."
dialog -x greets
dialog -md greets greets
}