James

ON $*:TEXT:/(James|Jdawg)/Si:#:{
  if (%.Away. [ $+ [ $network ] ] != $null) {
    if (%.pager. [ $+ [ $network ] ] == Pager 04On) {
      inc %.message. $+ $network
      echo -t @Away. $+ $network 10Nick:04 $nick 10Chan:04 $chan 10Time:04 $time(hh:nn) 10Message:04 $qt($1-)
    }
    notice $nick 10I am away 04°10 %.1-. [ $+ [ $network ] ] 04°10 I have been gone for $duration($calc($ctime - $($+(%,.ctime.,$network),2))) 04°10 %.pager. [ $+ [ $network ] ]
  }
  else { 
  if ($nick != Jdawg140) echo -t @Highlights $c1(Nick:) $c2($nick) $c1(Chan:) $c2($chan) $c1(Time:) $c2($time(hh:nn:ss TT)) $c1(Message:) $c2($qt($1-)) }
}
Alias Away {
  if (%.away. [ $+ [ $network ] ] == $null) {
    .raw nick J`AFK
    window -e @Away. $+ $network
    echo -t @Away. [ $+ [ $network ] ]  $c2(--) $c1(You are now away) $c2(--)
    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 04On,Pager 04Off)
    set %.1-. $+ $network $iif($1-,$1-,No Reason Given)
    amsg 10[04AMSG10] Going AFK 04°10 $iif($1-. [ $+ [ $network ] ],$1-,No Reason Given) 04°10 Left at04 $time(hh:nn) 04°10 $&
      %.pager. [ $+ [ $network ] ]
    .raw away $iif($1-,$1-,No Reason Given)
    $iif($$?="Clearall?" == Yes,clearall)
    halt
  }
  else {
    .raw nick %.nick. [ $+ [ $network ] ]
    .raw away 
    amsg 10[04AMSG10] Back from04 %.1-. [ $+ [ $network ] ] 04°10 I was gone for04 $duration($calc($ctime - $($+(%,.ctime.,$network),2))) 10 $+ $iif(%.pager. [ $+ [ $network ] ] == Pager 04On,04°10 $iif(%.message. [ $+ [ $network ] ] message != $null,%.message. [ $+ [ $network ] ] message,0) $+ $iif(%.message. [ $+ [ $network ] ] > 1,s) recived)
    window -a @Away. $+ $Network
    unset %.*. $+ $network
  }
}