alias AwayDialog {
dialog -m AwayDialog AwayDialog
}
menu * {
AwayDialog:/dialog -m AwayDialog AwayDialog
}
dialog AwayDialog {
title "AwayDialog"
size -1 -1 350 50
option dbu
edit "", 1, 5 10 300 12
text "Reason:", 2, 5 1 90 6
button "Ok", 3, 5 35 25 15, Ok
button "Cancel", 4, 60 35 25 15, Cancel
button "I'm Back", 5, 30 35 30 15, Ok
}
on *:dialog:AwayDialog:sclick:3: {
set %awaytime $ctime
set %away $nick
set %res $did(1)
set %awaypm on
aaway Reason: %res
away $did(1)
}
on *:dialog:AwayDialog:sclick:5: {
away
set %awaypm off
aaway Im back from %res $+ . I was gone for $duration($calc($ctime - %awaytime))
}
alias global {
var %n $chan(O)
while (%n) {
if (!$read(dunamsg.txt,w,$chan(%n))) {
msg $chan(%n) 14[3AMSG14]1 $1-
}
dec %n
}
}
alias aaway {
var %n $chan(O)
while (%n) {
if (!$read(dunamsg.txt,w,$chan(%n))) {
msg $chan(%n) 14[3AWAY14]1 $1-
}
dec %n
}
}