Miscellany

on $*:TEXT:/^[!@.](whereis|whis)/Si:#: {
  if (%away. [ $+ [ $address($2 $+ ,2) ] $+ ] .reason == $null && $2 ison $chan) { 
    notice $nick 12 $+ $2 is here. 
    HALT
  }
  if (%away. [ $+ [ $address($2 $+ ,2) ] $+ ] .reason == $null) { notice $nick 12I don't know where $2 is. }
  if (%away. [ $+ [ $address($2 $+ ,2) ] $+ ] .reason !== $null) {
    notice $nick 4 $+ $2 12is away, Reason ::4 %away. [ $+ [ $address($2 $+ ,2) ] $+ ] .reason 12and 12has been gone for4 $duration($calc($ctime - %away. [ $+ [ $address($2 $+ ,2) ] $+ ] .time),2) $+ 12.
  }
}
on *:text:*:#: {
  if (%away. [ $+ [ $address($nick $+ ,2) ] $+ ] .reason && *back* iswm $1- && *not* !iswm $1-) {
    set %comchans $comchan($nick $+ ,0)
    set %channum 1
    while (%channum <= %comchans) {
      msg $comchan($nick $+ , $+ %channum) 04 $nick 12is BACK from04 [ %away. [ $+ [ $address($nick $+ ,2) ] $+ ] .reason ] 12::04 12Gone for04 $duration($calc($ctime - %away. [ $+ [ $address($nick $+ ,2) ] $+ ] .time),2)
      set %channum $calc(%channum + 1)
    }
    unset %comchans
    unset %channum

    unset %away. [ $+ [ $address($nick $+ ,2) ] $+ ] .reason
    unset %away. [ $+ [ $address($nick $+ ,2) ] $+ ] .time
  }
  if ($strip($1) == brb || $strip($1) == bbl) {
    var %reason = Away
    if ($2) { var %reason = $2- }
    set -e %away. [ $+ [ $address($nick $+ ,2) ] $+ ] .reason %reason
    set -e %away. [ $+ [ $address($nick $+ ,2) ] $+ ] .time $ctime
    set %comchans $comchan($nick $+ ,0)
    set %channum 1
    while (%channum <= %comchans) {
      msg $comchan($nick $+ , $+ %channum) 04 $+ $nick 12will $iif($strip($1) == brb,be right back, be back later) $+ ! :: 04 $+ %reason $+
      set %channum $calc(%channum + 1)
    }
    unset %comchans
    unset %channum
  }
}