Someone

ON $*:TEXT:/(Hoopa|Hoop)/Si:#:{ 
  if (%.Away. [ $+ [ $network ] ] != $null) { 
    if (%.pager. [ $+ [ $network ] ] == Pager On) { 
      inc %.message. $+ $network 
      echo -t @Away. $+ $network Nick: $nick Chan: $chan Time: $time(hh:nn) Message: $qt($1-) 
      /notice $nick 3[«7I am away 3»] %.1-. [ $+ [ $network ] ] 3[«7 I have been gone for $duration($calc($ctime - $($+(%,.ctime.,$network),2))) 3»] 3[«7 Pager %.pager. 3»] [ $+ [ $network ] ] 
    }
  } 
} 
Alias Away { 
  if (%.away. [ $+ [ $network ] ] == $null) { 
    window -e @Away. $+ $network 
    clear @Away. $+ $network 
    set %.away. $+ $network Hi 
    set %.ctime. $+ $network $ctime 
    set %.nick. $+ $network $me 
    set %.message. $+ $network 0 
    set %.pager. $+ $network $iif($$?="Pager On?" == Yes,Pager On,Pager Off) 
    .raw nick Hoopa. 
    set %.1-. $+ $network $iif($1-,$1-,No Reason Given) 
    amsg [AMSG]  3[«7Going AFK  $iif($1-. [ $+ [ $network ] ],$1-,No Reason Given) 3»] 3[«7 Left at $time(hh:nn) 3»] $& 
      %.pager. [ $+ [ $network ] ] 
    .raw away $iif($1-,$1-,No Reason Given) 
    halt 
  } 
  else { 
    amsg [AMSG] 3[«7 Back from %.1-. [ $+ [ $network ] ] 3»] 3[«7 I was gone for $duration($calc($ctime - $($+(%,.ctime.,$network),2))) $+ $iif(%.pager. [ $+ [ $network ] ] == Pager On, 3»] $iif(%.message. [ $+ [ $network ] ] message != $null,%.message. [ $+ [ $network ] ] message,0) $+ $iif(%.message. [ $+ [ $network ] ] > 1,s) recived) 
    .raw away 
    window -a @Away. $+ $Network 
    .raw nick %.nick. [ $+ [ $network ] ] 
    unset %.*. $+ $network 
  } 
}