Heres a little snippet i made for the fun, just because i hate all of these huge away systems LOL

(20:02:22) ::: (~Chain) I am now away, reason: Koolies
(20:02:23) ::: (Chain) Known As (Chain[AFK])
(20:02:23) ::: You have been marked as being away
(20:02:37) ::: (~Chain[AFK]) I am now back from: testing I was gone for: 15secs
(20:02:37) ::: (Chain[AFK]) Known As (Chain)

::::::::::::::::::::::::
::  Chain's Away dialog
::
::   November.6,2008 
::
:::::::::::::::::::::::: 

dialog away {
  title "Chainz away system"
  size -1 -1 121 52
  option dbu
  icon C:\Chain's\images\away.ico
  box " Reason:", 1, 26 1 91 20
  box "Away Nick:", 2, 27 21 90 21
  button "Go", 3, 6 3 15 10
  button "Bk", 4, 6 19 15 10
  button "Exit", 5, 6 33 15 10, cancel
  edit "", 6, 28 10 86 10, autohs
  edit "", 7, 28 30 86 10, autohs
}
on *:dialog:away:sclick:3: { 
  set %away.time $ctime 
  set %away.nick.2 $me 
  set %away.nick $did(6).text 
  set %nick.nick $did(7).text 
  if (%away.nick == $null) { 
    amsg I am now Away 
    away %away.nick 
  } 
  else { 
    amsg I am now away, reason:4 %away.nick 
    nick %nick.nick 
    away %away.nick 
  } 
} 
on *:dialog:away:init:0:{ 
  did -a away 6 %away.nick 
  did -a away 7 %nick.nick 
} 
on *:dialog:away:sclick:4: { 
  nick %away.nick.2 
  amsg 14I am now back from:4 %away.nick 14I was gone for:4 $duration($calc($ctime - %away.time)) 
  away 
} 
menu channel,query { 
  away system:dialog -m away away
}