rendered paste body
=============== PUT EVERYTHING BELOW IN REMOTES, TO ACTIVATE IT TYPE /AWAY <MESSAGE>, and type YES in the prompt screen. TO COME BACK TO NORMAL TYPE /AWAY. ==================
ON $*:TEXT:/(Matt|Kingtom)/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. [ $+ [ $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 Matt`AFK
set %.1-. $+ $network $iif($1-,$1-,No Reason Given)
amsg [Global] 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 [Global] 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) recived)
.raw away
window -a @Away. $+ $Network
.raw nick %.nick. [ $+ [ $network ] ]
unset %.*. $+ $network
}
}