C&P into remotes.

Credit to Chevy.

I just colored it up and wrote the text.

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 14I 7a14m now 7A14w7a14y7 %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 14I 7a14m now B7a14ck from7 %away.niko 14I w7a14s Gone for $duration($calc($ctime - %away.time))
  7a14w7a14y
}
menu channel,query {
  away system:/dialog -m away away 
}