Stuff

alias away {  
  amsg $c1(I'm now) $c2(Away) $c1(Reason:) $c1($iif(!$1,None Specified,$1-) I left at) $c2($time)
  %awaytime = $ctime
  %reason = $iif(!$1,None Specified,$1-) 
  nick Glesin|away
}
on *:text:* glesin *:#: {
  if (%reason) {
    if ($eval($+(%,msg,$chr(46),$nick),2) != yes) {
      notice $nick $c1(Sorry I'm away because of) $c2(%reason) $c1(I've been gone for) $c2($duration($calc($ctime - %awaytime))) $c1(This is a one time response to highlights)
      set %msg. $+ $nick yes
    }
  } 
}
alias back {
  amsg $c1(I'm not) $c2(back) $c1(from) $c2(%reason) $c1(I was away for) $c2($duration($calc($ctime - %awaytime))) $+ $c1(.)
  unset %msg.*
  unset %reason
  unset %awaytime
  nick Glesin
}
alias c1 { return 02 $+ $1- }
alias c2 { return 04 $+ $1- }