away

menu * {
  Away Dialog: dialog -m Away Away
}
dialog Away {
  title "Away Dialog  ©2007 "
  size -1 -1 186 148
  option dbu
  button "Away Dialog", 1, 60 3 70 12
  link "SwiftIRC", 2, 145 4 32 8
  box "Away Options", 3, 7 19 50 50
  button "Set Away", 4, 12 28 37 12
  button "Set Back", 5, 12 46 37 12
  box "Adding Messages", 6, 67 19 100 59
  edit "", 7, 71 27 91 33, multi,edit "", %awaysystemmessage
  list 8, 7 90 84 50, size vsbar
  box "Already Added Messages", 9, 3 80 94 65
  button "Add Message", 10, 93 62 38 12
}

on *:dialog:Away:sclick:*: {
  if ($did == 4)  amsg 1***12[1Away12] 1• Reason • 12 $did(8).seltext 1• Left At 12 $asctime  
  if ($did == 5) amsg 1***12[1Back12] 1• From Reason • 12 $did(8).seltext 1• Gone For •12  $duration($calc($ctime - %away))
  if ($did == 10) /did -a $dname 8 $did(7) 
}
on *:dialog:Away:init:0:{ /did -a $dname 8 %awaysystemmessage
}