mirc

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 gohon50`afk
}
alias back {
  amsg $c1(I'm now) $c2(back) $c1(from) $c2(%reason) $c1(I was away for) $c2($duration($calc($ctime - %awaytime))) $+ $c1(.)
  unset %msg.*
  unset %reason
  unset %awaytime
  nick gobot50
}
alias c1 { return 14 $+ $1- }
alias c2 { return 07 $+ $1- }