Anonymous

on *:dialog:away:sclick:7:{
  set %backnick $me
  set %awayreason $did(4)
  /away $did(4)
  /amsg I am now away: $did(4)
  /nick $did(6)
}
on *:dialog:away:sclick:15:{
  /amsg I am now back from: %awayreason
  /nick %backnick
  /away
}
menu * { 
  Away:/dialog -m away away
} 
on *:dialog:away:sclick:8:{
  did -az away 9 $did(17) ~ $did(11) ~ $did(13)
  did -r away 11,13,17
}

dialog away {
  title "Clb's away system"
  size -1 -1 150 100
  option dbu
  tab "Quick away", 1, 0 0 150 100
  text "Away Reason", 3, 18 18 50 10, tab 1
  edit "", 4, 18 30 115 10, tab 1
  text "Away Nick", 5, 19 44 50 10, tab 1
  edit "", 6, 19 56 115 10, tab 1
  button "Set away", 7, 18 71 120 10, tab 1
  button "Set back", 15, 18 85 120 10, tab 1
  tab "Presets", 2
  list 9, 5 20 75 50, tab 2 size hsbar vsbar
  text "Away Nick", 10, 85 44 55 10, tab 2
  edit "", 11, 85 56 55 10, tab 2
  text "Away Reason", 12, 85 68 55 10, tab 2
  edit "", 13, 85 80 55 10, tab 2
  button "Set away", 14, 5 85 75 10, tab 2
  button "Add preset", 8, 5 73 75 10, tab 2
  text "Preset name", 16, 85 20 55 10, tab 2
  edit "", 17, 85 32 55 10, tab 2
}