simple away system. Type /dialog -m awaysys awaysys to open.

#away.stuff off
on 1:TEXT:*:?: {
  if (%away.log == on) { inc %away.log.count | did -ra awaysys 25 %away.log.count | did -a awaysys 27 $chr(91) $+ $asctime(h:nn) $+ $chr(93) < $+ $nick $+ > $1- $+ $crlf | msg $nick I Am Away. I left at %away.left Reason: %away.reason Loging: %away.log Pager: %away.pager  | close -m $nick }
  if (%away.log == off) { msg $nick I Am Away. I left at %away.left Reason: %away.reason Loging: %away.log Pager: %away.pager %ver | close -m $nick }
}
ctcp 1:page:*: inc %away.pager.count | did -ra awaysys 29 %away.pager.count | did -a awaysys 31 $chr(91) $+ $asctime(h:nn) $+ $chr(93) $chr(60) $+ $nick $+ $chr(62) $1- $+ $crlf } 
#away.stuff end

dialog awaysys {
  title "Away System"
  size -1 -1 163 162
  option dbu
  tab "Main Options", 21, 1 0 160 159
  box "Nick Management", 2, 3 16 156 41, tab 21
  check "Change Nick", 3, 5 23 50 10, tab 21
  text "Away Nick:", 5, 5 34 27 8, tab 21
  text "Back Nick:", 7, 80 34 27 8, tab 21
  edit "", 4, 5 41 75 12, tab 21 autohs
  edit "", 6, 80 41 75 12, tab 21 autohs
  box "Options:", 8, 3 60 156 28, tab 21
  combo 14, 6 75 45 30, tab 21 size drop
  text "Log:", 15, 7 67 11 8, tab 21
  text "Pager:", 16, 55 68 16 8, tab 21
  text "Msg Chan Interval:", 18, 103 68 45 8, tab 21
  combo 17, 54 75 44 30, tab 21 size drop
  combo 19, 102 75 52 60, tab 21 size drop
  edit "", 20, 6 98 150 36, tab 21 multi
  box "Reason:", 13, 3 89 156 49, tab 21
  tab "Logging", 22
  text "While you were away, you recieved", 24, 4 18 87 8, tab 22
  edit "", 25, 92 16 15 12, tab 22 read
  text "messages for people.", 26, 108 18 52 8, tab 22
  edit "", 27, 4 29 155 107, tab 22 read multi autovs vsbar
  tab "Pages:", 23
  text "While you were away, you recieved", 28, 4 18 87 8, tab 23
  edit "", 29, 92 16 16 12, tab 23 read
  text "pages for people.", 30, 111 18 43 8, tab 23
  edit "", 31, 4 29 155 107, tab 23 read multi autovs vsbar
  button "Go Away", 32, 3 142 37 12
  button "Come Back", 33, 43 142 37 12, ok
  button "Cancel", 34, 82 142 37 12, cancel
  button "Help!", 35, 122 142 37 12
}

on 1:DIALOG:awaysys:sclick:3: {
  if ($did(awaysys,3).state == 0) { did -m $dname 6 | did -m $dname 4 | set %change.nick off } 
  if ($did(awaysys,3).state == 1) { did -n $dname 6 | did -n $dname 4 | set %change.nick on }
}

on 1:DIALOG:awaysys:sclick:32: {
  if ($did(awaysys,14).sel == 1) { set %away.log On }
  if ($did(awaysys,14).sel == 2) { set %away.log Off } 
  if ($did(awaysys,17).sel == 1) { set %away.pager On }
  if ($did(awaysys,17).sel == 2) { set %away.pager Off } 
  if ($did(awaysys,19).sel == 1) { set %away.msg 5 | set %away.timer 300 }
  if ($did(awaysys,19).sel == 2) { set %away.msg 10 | set %away.timer 600 } 
  if ($did(awaysys,19).sel == 3) { set %away.msg 15 | set %away.timer 900 }
  if ($did(awaysys,19).sel == 4) { set %away.msg 20 | set %away.timer 1200 } 
  if ($did(awaysys,19).sel == 5) { set %away.msg 25 | set %away.timer 1500 }
  if ($did(awaysys,19).sel == 6) { set %away.msg 30 | set %away.timer 1800 } 
  if ($did(awaysys,19).sel == 7) { set %away.msg 35 | set %away.timer 2100 }
  if ($did(awaysys,19).sel == 8) { set %away.msg 40 | set %away.timer 2500 } 
  if ($did(awaysys,19).sel == 9) { set %away.msg 45 | set %away.timer 2800 }
  if ($did(awaysys,19).sel == 10) { set %away.msg 50 | set %away.timer 3100 } 
  if (%change.nick == on) { nick $did(awaysys,4) }
  enable #away.stuff 
  set %away.left $asctime(h:nn)
  set %away.left2 $ctime
  set %away.reason $did(awaysys,20)
  ame is Now Away ( Reason: %away.reason ) Loging: %away.log Pager: %away.pager
.timerAWAY 0 %away.timer ame is Away. I Left At %away.left Reason: %away.reason Loging: %away.log Pager: %away.pager %ver }

on 1:DIALOG:awaysys:sclick:33: {
  if (%change.nick == on) { nick $did(awaysys,6) } 
  disable #away.stuff 
  ame Is Back ( From: %away.reason ) Loging: %away.log Pager: %away.pager Away Time: $duration($calc($ctime - %away.left2))
  set %away.log.count 0
  set %away.pager.count 0
.timerAWAY off }

on 1:DIALOG:awaysys:sclick:35: { /.join #FullMetalAlchemist }

on 1:DIALOG:awaysys:init:*: {
  if (%change.nick == on) { did -c $dname 3 | did -n $dname 6 | did -n $dname 4 }
  if (%change.nick == off) { did -u $dname 3 | did -m $dname 6 | did -m $dname 4 } 
  did -i $dname 14 1 On
  did -i $dname 14 2 Off 
  did -i $dname 17 1 On
  did -i $dname 17 2 Off 
  did -i $dname 19 1 5mins
  did -i $dname 19 2 10mins
  did -i $dname 19 3 15mins
  did -i $dname 19 4 20mins
  did -i $dname 19 5 25mins
  did -i $dname 19 6 30mins
  did -i $dname 19 7 35mins
  did -i $dname 19 8 40mins
  did -i $dname 19 9 45mins
  did -i $dname 19 10 50mins 
  did -ra $dname 20 Dont Ever Approach The Darkness!
  if (%away.log == On) { did -c $dname 14 1 }
  if (%away.log == Off) { did -c $dname 14 2 }
  if (%away.pager == On) { did -c $dname 17 1 }
  if (%away.pager == Off) { did -c $dname 17 2 } 
  if (%away.msg == 5) { did -c $dname 19 1 }
  if (%away.msg == 10) { did -c $dname 19 2 }
  if (%away.msg == 15) { did -c $dname 19 3 }
  if (%away.msg == 20) { did -c $dname 19 4 }
  if (%away.msg == 25) { did -c $dname 19 5 }
  if (%away.msg == 30) { did -c $dname 19 6 }
  if (%away.msg == 35) { did -c $dname 19 7 }
  if (%away.msg == 40) { did -c $dname 19 8 }
  if (%away.msg == 45) { did -c $dname 19 9 }
  if (%away.msg == 50) { did -c $dname 19 10 } 
  did -ra $dname 4 $me $+ [DeaD] 
  did -ra $dname 6 $me 
}