Someone

alias WR {
  set %away.reason WarRock
  set %away.time $ctime
  set %away.msg.total 0
  nick Fave|WarRock
  away WarRock
  ame is now away: Playing WarRock [Left at $time $+ ]
}
alias back {
  if (%away.reason) {
    nick Fave
    ame is now back from WarRock, [Gone for $duration($calc($ctime - %away.time)) $+ ]
    if (%away.msg.total == 0) { echo -a There are $chr(2) $+ 0 $+ $chr(2) messages recorded in your away box. }
    else {
      echo -a There are $chr(2) $+ %away.msg.total $+ $chr(2) messages recorded in your away box.
      var %away.x = 1
      while (%away.x <= %away.msg.total) {
        echo -a Message $chr(2) $+ %away.x $+ $chr(2) from $chr(2) $+ $gettok($($+(%,away.msg.,%away.x),2),2,32) $+ $chr(2) in $chr(2) $+ $gettok($($+(%,away.msg.,%away.x),2),1,32) $+ $chr(2) $+ : $gettok($($+(%,away.msg.,%away.x),2),3-,32)
        inc %away.x
      }
      echo -a End of messages.
    }
    unset %away.*
    away
  }
}
on *:TEXT:*:#: {
  if ($me isin $1-) {
    if (%away.reason) {
      notice $nick I am playing WarRock. I left $duration($calc($ctime - %away.time)) ago. This message will be saved for when I come back.
      inc %away.msg.total
      set $+(%,away.msg.,%away.msg.total) $chan $nick $1-
    }
  }
}