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
}