Here Keon191:
on *:text:*:#:{
if (brb isin $1-) || (afk isin $1-) || (g2g isin $1-) || (bbl isin $1-) {
if (%away [ $+ [ $nick ] ] == $null) {
set %away [ $+ [ $nick ] ] $2-
if (%away [ $+ [ $nick ] ] == $null) { set %away [ $+ [ $nick ] ] n/a }
msg $chan [ Away Status ] [ $nick is now: Away ] [ Reason: %away [ $+ [ $nick ] ] ]
set %away.time. $+ $nick $ctime
}
}
}
on *:TEXT:*back*:#:{
if (%away [ $+ [ $nick ] ] != $null) {
msg $chan [ Away Status ] [ $nick is now back! ][ Reason for being afk: %away [ $+ [ $nick ] ] ] [ Time Away: $duration($calc($ctime - %away.time. [ $+ [ $nick ] ] )) ]
unset %away.time. $+ $nick $ctime
unset %away [ $+ [ $nick ] ]
}
}