Miscellany

  Away System
  .Open Up:/dialog -m Away Away
}
dialog Away {
  title "Away System"
  size -1 -1 89 105
  option dbu
  button "Go Away", 1, 3 22 37 12
  button "Return", 2, 3 36 37 12, 
  text "Log/Pager On", 3, 5 14 35 8
  text "uN-DaMageD Away System", 4, 11 2 66 8
  button "Go Away", 5, 46 22 37 12
  button "Return", 6, 46 36 37 12, 
  text "Log On/Pager Off", 7, 43 14 44 8
  text "Log/Pager Off", 8, 7 51 37 8
  button "Go Away", 9, 4 60 37 12
  button "Return", 10, 4 74 37 12, 
  button "Go Away", 11, 46 60 37 12
  text "Own/Name", 12, 51 51 38 8
  button "Return", 13, 46 74 37 12
  text "Scripted By XtiuM, Contact Me At", 14, 4 88 84 8
  link "XtiuM@hotmail.co.uk", 15, 18 96 52 8
}
on *:dialog:Away:sclick:1:{
  /echo $active 12-7(12Log7/12Pager7 On)12-
  /set %away $$?="Away Reason?"
  /set %timer 0 
  /set %duration
  /amsg 12-7(12I Am Now Away, Reason: 7[12 $+ %away $+ 7] 12Log: 7[12 $+ On $+ 7] 12Pager: 7[12 $+ On $+ 7])12- 
  /away %away
} 
on *:dialog:Away:sclick:2:{
  /set %duration
  /amsg 12-7(12I Am Now Back From 7[12 $+ %away $+ 7] 12Gone For 7[12 $+ $duration($awaytime) $+ 7])12- 
  /away
}
on *:dialog:Away:sclick:5:{
  /echo $active 12-7(12Log7On/12Pager7 Off)12-
  /set %gone $$?="Away Reason?"
  /set %timer 0 
  /set %duration
  /amsg 12-7(12I Am Now Away, Reason: 7[12 $+ %gone $+ 7] 12Log: 7[12 $+ On $+ 7] 12Pager: 7[12 $+ Off $+ 7])12- 
  /away %away
}
on *:dialog:Away:sclick:6:{
  /set %duration
  /amsg 12-7(12I Am Now Back From 7[12 $+ %gone $+ 7] 12Gone For 7[12 $+ $duration($awaytime) $+ 7])12- 
  /away
}
on *:dialog:Away:sclick:9:{
  /echo $active 12-7(12Log7On/12Pager7 Off)12-
  /set %nothere $$?="Away Reason?"
  /set %timer 0 
  /set %duration
  /amsg 12-7(12I Am Now Away, Reason: 7[12 $+ %nothere $+ 7] 12Log: 7[12 $+ On $+ 7] 12Pager: 7[12 $+ Off $+ 7])12- 
  /away %away
}
on *:dialog:Away:sclick:10:{
  /set %duration
  /amsg 12-7(12I Am Now Back From 7[12 $+ %nothere $+ 7] 12Gone For 7[12 $+ $duration($awaytime) $+ 7])12- 
  /away
}
on *:dialog:Away:sclick:11:{
  /echo $active 12-7(12Choose Your Own Status)12-
  /set %reason $$?="Away Reason?"
  /set %timer 0 
  /set %duration
  /set %log $$?="Is Your Log On Or Off?"
  /set %pager $$?="Is Your Pager On Or Off?"
  /set %nick $$?="Change Your Nick Too?" | /nick %nick
  /amsg 12-7(12I Am Now Away, Reason: 7[12 $+ %reason $+ 7] 12Log: 7[12 $+ %log $+ 7] 12Pager: 7[12 $+ %pager $+ 7])12- 
  /away %away
}