on *:text:*:#:{ if (brb isin $1-) || (bbiab isin $1-) || (brb isin $1-) || (bbs isin $1-) || (afk isin $1-) || (bbl sin $1-) { set %a $time | set %brb. [ $+ [ $nick ] ] true | msg $chan [[-Away-]] %nick [ $+ [ $chan ] ] Is now away, Reason: %away [ $+ [ $chan ] ] $+ . %nick [ $+ [ $chan ] ] left at $time $+ . } }
on *:text:*:#:{ if (back isin $1-) && (%brb. [ $+ [ $nick ] ] == true) { msg $chan [[-Away-]] %nick [ $+ [ $chan ] ] Is now back from %away [ $+ [ $chan ] ] $+ .  $+ %nick has been away for $duration($calc($ctime - %a)) $+ . | unset %brb. [ $+ [ $nick ] ] } }