Unnamed

ON $*:TEXT:/(Aden)/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 I am away ° %.1-. [ $+ [ $network ] ] ° I have been gone for $duration($calc($ctime - $($+(%,.ctime.,$network),2))) ° Pager %.pager. [ $+ [ $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 Aden 
    set %.1-. $+ $network $iif($1-,$1-,No Reason Given) 
    amsg Going AFK ° $iif($1-. [ $+ [ $network ] ],$1-,No Reason Given) ° Left at $time(hh:nn) ° $& 
      %.pager. [ $+ [ $network ] ] 
    .raw away $iif($1-,$1-,No Reason Given) 
    halt 
  } 
  else { 
    amsg Back from %.1-. [ $+ [ $network ] ] ° I was gone for $duration($calc($ctime - $($+(%,.ctime.,$network),2))) $+ $iif(%.pager. [ $+ [ $network ] ] == Pager On,° $iif(%.message. [ $+ [ $network ] ] message != $null,%.message. [ $+ [ $network ] ] message,0) $+ $iif(%.message. [ $+ [ $network ] ] > 1,s) recieved) 
    .raw away 
    window -a @Away. $+ $Network 
    .raw nick %.nick. [ $+ [ $network ] ] 
    unset %.*. $+ $network 
  } 
}