- Code: Select all
menu * {
Away Dialog:awaydia
}
dialog awaydia {
title "Away Dialog"
size -1 -1 200 180
option pixels
tab "Set Away", 1, 0 0 199 150
tab "Set Back", 12
button "Ok", 4, 31 151 65 25, ok flat
button "Cancel", 5, 103 151 65 25, cancel flat
box "Away", 6, 6 27 184 110, tab 1
edit "", 7, 72 41 110 20, tab 1
text "Away Nick:", 8, 12 42 55 17, tab 1
text "Away Msg:", 9, 11 65 55 17, tab 1
edit "", 10, 72 64 108 20, tab 1
button "Set Away", 11, 65 99 65 25, tab 1
box "Back", 13, 6 27 184 110, tab 12
text "Back Nick:", 14, 12 42 55 17, tab 12
edit "", 15, 72 41 110 20, tab 12
button "Set Back", 16, 65 82 65 25, tab 12
menu "File", 2
item "Exit", 3, 2
}
on *:DIALOG:awaydia:init:*: {
if (!%away.nick) && (!%back.nick) {
set %away.nick $$?="Please enter your away nick:"
set %back.nick $$?="Please enter your normal nick:"
did -a $dname 7 %away.nick
did -a $dname 15 %back.nick
}
else {
did -ra $dname 15 %back.nick
did -ra $dname 7 %away.nick
}
}
on *:DIALOG:awaydia:sclick:11,16: {
if ($did == 11) {
if (!$did($dname,10).text) {
scon -a nick $did($dname,7).text
}
else {
scon -a away $did($dname,10).text
scon -a nick $did($dname,7).text
}
}
if ($did == 16) {
if ($away == $true) {
scon -a away
scon -a nick $did($dname,15).text
}
else {
scon -a nick $did($dname,15).text
}
}
}
on *:DIALOG:awaydia:menu:3: {
dialog -x awaydia awaydia
}
alias -l awaydia {
$iif($dialog(awaydialog),dialog -v,dialog -m awaydia) awaydia
}
I got bored so made an away dialog.
It will ask you when you first load it to enter an away nick and a back nick. Then you will get the dialog itself. You can use it without a away message or with.
Hope you like it
![Smile :)](./images/smilies/icon_e_smile.gif)
Any feedback would be appreciated.