;/////////////////Away system///////////////////
on *:TEXT:!away*:*: {
if ($nick isop $chan) || ($nick ishop $chan) {
set $+(%,away.,$($nick,2)) $iif($2,$2-,None)
set $+(%,awaytime.,$($nick,2)) $ctime
notice $nick You are now away.
}
}
on *:TEXT:!back*:*: {
if ($($+(%,away.,$($nick,2)),2)) {
msg $chan $nick is now back from: $($+(%,away.,$($nick,2)),2) $+ . Gone for: $duration($calc($ctime - $+(%,awaytime.,$($nick,2)))) $+ .
unset $+(%,away.,$($nick,2))
unset $+(%,awaytime.,$($nick,2))
}
}
on *:DISCONNECT: {
if ($+(%,away.,$($nick,2))) {
unset $+(%,away.,$($nick,2))
unset $+(%,awaytime.,$($nick,2))
}
}
on *:TEXT:*:*: {
if ($1 ison $chan) && ($($+(%,away.,$1),2)) {
notice $nick $1 is currently away. Reason: $($+(%,away.,$1),2) $+ . This user has been gone for: $duration($calc($ctime - $+(%,awaytime.,$($nick,2)))) $+ .
}
}