on *:start: { 
  if (!%away.ignorechans) afk.chignore #idle-rpg 
  if (!%away.ignorenicks) afk.nkignore Idle-Bot 
} 
alias afk.chignore %away.ignorechans = %away.ignorechans $1- 
alias afk.nkignore %away.ignorenicks = %away.ignorenicks $1- 

alias afk { 
  if (!$0) { echo $color(info) -a * /away: Need more parameters | halt } 
  set %away.time $ctime 
  set %away.resn $1- 
  scon -atl awaymsg 
} 

alias awaymsg { 
  var %x = 1 
  while (%x < $comchan($me,0)) { 
    if (!$istok(%away.ignorechans,$comchan($me,%x),32)) msg $comchan($me,%x) I am now away. [Reason: %away.resn $+ ]] [Pager: On] 
    inc %x 
  } 
} 

alias back { 
  scon -atl backmsg 
  .timer 1 3 unset %away.time 
  .timer 1 3 unset %away.resn 
  unset %away.hilight 
} 

alias backmsg { 
  var %x = 1 
  while (%x < $comchan($me,0)) { 
    if (!$istok(%away.ignorechans,$comchan($me,%x),32)) msg $comchan($me,%x) I am now back from away. [Reason: %away.resn $+ ]] [Duration: $duration($calc($ctime - %away.time)) $+ ]] 
    inc %x 
  } 
} 

on *:notice:*:?: { 
  if (%away.time) { 
    if ((!$istok(%away.ignorenicks,$nick,32)) && (!$istok(%away.hilight,$nick,32))) { 
      %away.hilight = %away.hilight $nick 
      .notice $nick I am away. Reason: %away.rsn $+ . Have been gone $duration($calc($ctime - %away.time)) $+ . "/ctcp $me PAGE message" to get a hold of me. (One time response to hilight) 
    } 
  } 
} 

on *:notice:*:#: { 
  if (($istok($1-,$me,32)) && (%away.time)) { 
    if ($window(@highlights) == $null) window @highlights 
    echo -t @highlights $+([,$network,],$chr(32),[,$chan,],$chr(32),<,$nick,>) $1- 
    echo @highlights - 
    if ($!istok(% 
  } 
} 

on *:text:*:#: { 
  if ($istok($1-,$me,32)) { 
    if ($window(@highlights) == $null) window @highlights 
    echo -t @highlights $+([,$network,],$chr(32),[,$chan,],$chr(32),<,$nick,>) $1- 
    echo @highlights - 
    if (!%away.time) beep 1 
    elseif (!$istok(%away.ignorenicks,$nick,32)) { 
      if (!$istok(%away.hilight,$nick,32)) { 
        %away.hilight = %away.hilight $nick 
        .notice $nick I am away. Reason: %away.rsn $+ . Have been gone $duration($calc($ctime - %away.time)) $+ . "/ctcp $me PAGE message" to get a hold of me. (One time response to hilight) 
      } 
    } 
  } 
} 

on *:text:*:?: { 
  if ((%away.time) && (!$istok(%away.ignorenicks,$nick,32))) { 
    if (!$istok(%awawy.hilight,$nick,32)) { 
      %away.hilight = %away.hilight $nick 
      .notice $nick I am away. Reason: %away.rsn $+ . Have been gone $duration($calc($ctime - %away.time)) $+ . "/ctcp $me PAGE message" to get a hold of me. (One time response to hilight) 
    } 
  } 
} 

on *:action:*:#: { 
  if ($istok($1-,$me,32)) { 
    if ($window(@highlights) == $null) window @highlights 
    echo -t @highlights $+([,$network,],$chr(32),[,$chan,],$chr(32),<,$nick,>) $1- 
    echo @highlights - 
    if (!%away.time) beep 1 
    elseif (!$istok(%away.ignorenicks,$nick,32)) { 
      if (!$istok(%away.hilight,$nick,32)) { 
        %away.hilight = %away.hilight $nick 
        .notice $nick I am away. Reason: %away.rsn $+ . Have been gone $duration($calc($ctime - %away.time)) $+ . "/ctcp $me PAGE message" to get a hold of me. (One time response to hilight) 
      } 
    } 
  } 
} 

on *:action:*:?: { 
  if ((%away.time) && (!$istok(%away.ignorenicks,$nick,32))) { 
    if (!$istok(%awawy.hilight,$nick,32)) { 
      %away.hilight = %away.hilight $nick 
      .notice $nick I am away. Reason: %away.rsn $+ . Have been gone $duration($calc($ctime - %away.time)) $+ . "/ctcp $me PAGE message" to get a hold of me. (One time response to hilight) 
    } 
  } 
} 

ctcp ^*:PAGE: { 
  if (%!away.time) { 
    notice $nick I'm not currently away. | haltdef | halt 
  } 
  if (!$window(@page. $+ $network)) window -a @page. $+ $network 
  echo -t @page. $+ $network $nick $+ : $lower($2-) 
  echo @page. $+ $network - 
  haltdef 
}