Miscellany

on $*:TEXT:/^[!@.]?(brb|away)/Si:#: {
  if ($nick == Pies) {
    if (%away. [ $+ [ $nick ] $+ ] .time == $null) {
      amsg 13 $+ $nick 11is now away.9 $chr(124) 11Reason:13 $iif(!$2,-No Reason Specified-,$2-) 9 $+ $chr(124) 11Time left:13 $asctime(hh:nn tt)
      /set %away. [ $+ [ $nick ] $+ ] .time $fulldate
      /set %away. [ $+ [ $nick ] ] $iif(!$2,-No Reason Specified-,$2-)
    }
    else {
      /notice $nick 11Your status is already set to Away.
    }
  }
}
on *:TEXT:*:#: {
  if ($nick == Pies) {
    if (%away. [ $+ [ $nick ] $+ ] .time != $null) {
      amsg 13 $+ $nick 11is now back.9 $chr(124) 11Reason:13 %away. [ $+ [ $nick ] ] 9 $+ $chr(124) 11Time gone:13 $duration($calc(($ctime - $ctime(%away. [ $+ [ $nick ] $+ ] .time))))
      unset %away. [ $+ [ $nick ] $+ ] .*
    }
  }
}