This is my scripts away system, its nice to use when ur in a hurry, it doesnt have many options, its nice and simple, any moron can use it lol

alias awaysys { dialog -md awaysys awaysys }
dialog awaysys {
  title "Hitman Away System"
  size -1 -1 85 86
  option dbu
  text "Away Nickname:", 1, 9 6 40 9, nowrap
  text "Away Reason:", 2, 9 29 40 9
  edit "", 3, 7 17 65 10, autohs
  edit "", 4, 7 40 65 10, autohs
  button "Go away", 5, 2 53 37 12, flat
  button "Come Back", 6, 45 53 37 12, flat
  button "Cancel", 7, 25 67 37 12, flat ok
}
on *:dialog:s.away:*:*:{ 
  if ($devent == init) { 
    did -ra $dname 3 %away.nick 
    did -ra $dname 4 %away.msg
  }
  if ($devent == edit) {
    if ($did == 3) {
      set %away.nick $did(3).text
    }
    if ($did == 4) {
      set %away.msg $did(4).text
    }
  }
  if ($devent == sclick) {
    if ($did == 5) {
      set %r.nick $me
      msg $active Away - Because... %away.msg .. I'm going away at.. $time(h:nn TT)
      nick %away.nick
      away %away.msg
    }
    if ($did == 6) {
      msg $active Back - From... %away.msg .. I was gone for.. $duration($awaytime) 
      nick %r.nick
      away
    }
  }
}