Someone

on *:TEXT:brb*:#: {
set %nick [ $+ [ $nick ] ] $nick
set %why [ $+ [ $nick ] ] $2-
set %tim [ $+ [ $nick ] ] $ctime
if ($2- == $null) { set %why N/A }
msg $chan %nick [ $+ [ $nick ] ] is now away. Reason: %why [ $+ [ $nick ] ] $+ . Left at: %tim [ $+ [ $nick ] ] $+ .
}
on *:TEXT:back*:#: {
if ($nick == %nick [ $+ [ $nick ] ])
msg $chan %nick [ $+ [ $nick ] ] is back from: %why [ $+ [ $nick ] ] $+ . Time away: $calc($ctime - %tim [ $+ [ $nick ] ])
unset %nick [ $+ [ $nick ] ]
unset %why [ $+ [ $nick ] ]
unset %tim [ $+ [ $nick ] ]
}