on *:TEXT:brb*:#:{
  if (%gone. [ $+ [ $nick ] ] == $null) {
    /set %gone. [ $+ [ $nick ] ] $ctime
    /set %reasonthtimgone. [ $+ [ $nick ] ] $2-
    /msg $chan 4 $nick 2 has stepped away from the keyboard for a sec... Reason=[4 %reasonthtimgone. [ $+ [ $nick ] ] 2]!
  }
}

on $*:TEXT:/^(back|bak|bk)/Si:#:{
  if (%gone. [ $+ [ $nick ] ] != $null) {
    /msg $chan 4 $nick 2 has returned, 2Time Gone $duration($calc($ctime - %gone. [ $+ [ $nick ] ] $ctime))) ... Reason for begin gone =[4 %reasonthtimgone. [ $+ [ $nick ] ] 2]!
    /unset %gone. [ $+ [ $nick ] ]
    /unset %reasonthtimgone. [ $+ [ $nick ] ]
  }
}