dialog away {
  title "away system"
  size -1 -1 70 42
  option dbu
  box "Reason:", 1, 20 0 50 10
  box "Away Nick:", 2, 15 20 50 30
  button  "Go", 3, 2 3 15 10
  button  "Back", 4, 2 15 20 10
  button  "Exit", 5, 2 27 15 10,cancel
  edit "", 6, 22 8 45 10,autohs
  edit "", 7, 22 28 45 10,autohs
}
on *:dialog:away:sclick:3: {
  set %away.time $ctime
  set %away.niko.2 $me
  set %away.niko $did(6).text
  set %nick.niko $did(7).text

  if (%away.niko == $null) {
    amsg I am now Away
    away %away.niko
  }
  else {
    amsg 4I 4a14m 4n14ow 4A14way4 %away.niko
    nick %nick.niko
    away %away.niko
  }
}
on *:dialog:away:init:0:{
  did -a away 6 %away.niko
  did -a away 7 %nick.niko
}
on *:dialog:away:sclick:4: {
  nick %away.niko.2
  amsg 4I 4a14m 4n14ow 4B14ack 4f14rom4 %away.niko 4I 4w14as 4G14one 4f14or $duration($calc($ctime - %away.time))
  4a14w4a14y
}
menu channel,query {
  away system:/dialog -m away away
}