on *:TEXT:*brb*:#:{ if ( $chan == #sexy ) { halt } 
  elseif ($2 !== $null) { set % $+ $nick $2- | set %time $+ $nick $ctime | msg #  $nick will be right back. Left at $time .   Reason: $2- }
  elseif ($2 == $null) { set % $+ $nick none | set %time $+ $nick $ctime | msg #  $nick will be right back. Left at $time .  No reason given.  }
}


on *:TEXT:*bbl*:#:{ if ( $chan == #sexy ) { halt } 
  elseif ($2 !== $null) { set % $+ $nick $2- | set %time $+ $nick $ctime | msg #  $nick will be back later. Left at $time .   Reason: $2- }
  elseif ($2 == $null) { set % $+ $nick none | set %time $+ $nick $ctime | msg #  $nick will be back later. Left at $time .  No reason given.  }
}


on *:TEXT:**:#: if ( % $+ $nick !== $null) {
  elseif (% $+ $nick == none) { msg # $nick is now back at $time .  Been gone $duration($calc($ctime - %time [ $+ [ $nick ] ] )) seconds. | unset % $+ $nick }
  else { msg # $nick is now back from % [ $+ [ $nick ] ] at $time .  Been gone $calc( $ctime - %time [ $+ [ $nick ] ] ) seconds. | unset % $+ $nick }
}