Something

ON $*:TEXT:/(Claudia|LilMissy|LilC)/Si:#:{
  if ($adress($nick,3) == *!*@Swift-F497F3A8.pppoe-dynamic.nb.aliant.net) { notice |Mclovin| dont highlight me for stupid reasons. } 
  else {
    if (%.Away. [ $+ [ $network ] ] != $null) {
      if (%.pager. [ $+ [ $network ] ] == 04On) {
        inc %.message. $+ $network
        echo -t @Away. $+ $network 02Nick:04 $nick 02Chan:04 $chan 02Time:04 $time(HH:nn:ss) 02Message:04 $qt($1-)
      }
      notice $nick 2 I am away 04 %.1-. [ $+ [ $network ] ] 2 I have been gone for 4 $duration($calc($ctime - $($+(%,.ctime.,$network),2))) 04 Pager is: 02 %.pager. [ $+ [ $network ] ]
    }
    else {
      clear @Highlights. $+ $network
      Window -e @Highlights. $+ $network
      if ($nick != Clau|Gone) echo -t @Highlights. $+ $network 02Nick:04 $nick 02Chan:04 $chan 02Time:04 $time(hh:nn:ss) 02Date:04 $date(dd/mm/yyyy) 02Message:04 $qt($1-)
      ; Window -a @Highlights. $+ $network
    }
  }
}
on *:open:?:{
  if (%.Away. [ $+ [ $network ] ] != $null) {
    if (%.pager. [ $+ [ $network ] ] == 04On) {
      inc %.message. $+ $network
      echo -t @Away. $+ $network 02Nick:04 $nick 02Time:04 $time(HH:nn:ss) 02Message:04 $qt($1-)
    }
    if ($nick == -sbnc) {
      halt
    }
    else {
      notice $nick 2 I am away 04 %.1-. [ $+ [ $network ] ] 2 I have been gone for 4 $duration($calc($ctime - $($+(%,.ctime.,$network),2))) 04 Pager is: 02 %.pager. [ $+ [ $network ] ]
      close -m $nick
    }
  }
  else {
  if ($nick != Clau|gone) 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) {
    window -e @Away. $+ $network
    ;echo -t @Away. [ $+ [ $network ] ]  $c2(--) $c1(You are now away) $c2(--)
    set %.away. $+ $network Hi
    set %.ctime. $+ $network $ctime
    set %.nick. $+ $network $me
    set %.message. $+ $network 0
    set %.pager. $+ $network $iif($$?="Pager On?" == Yes, 04On, 04Off)
    set %.1-. $+ $network $iif($1-,$1-,No Reason Given)
    /nick Clau|gone
    ame 2[04Amsg2] Going Afk 04 Reason: 2 $iif($1-. [ $+ [ $network ] ],$1-,No Reason Given) 04 Time: 02 $time(HH:nn:ss) 04 Pager: $&
      %.pager. [ $+ [ $network ] ]
    .raw away $iif($1-,$1-,No Reason Given)
  }
  else {
    .raw nick %.nick. [ $+ [ $network ] ]
    .raw away
    ame 2[04Amsg2] Back from04 %.1-. [ $+ [ $network ] ] 2 I was gone for 04 $duration($calc($ctime - $($+(%,.ctime.,$network),2))) 2 $+ $iif(%.pager. [ $+ [ $network ] ] == Pager 04On,04 $iif(%.message. [ $+ [ $network ] ] message != $null,%.message. [ $+ [ $network ] ] message,0) $+ $iif(%.message. [ $+ [ $network ] ] > 1,s) recived)
    window -a @Away. $+ $Network
    unset %.*. $+ $network
  }
}