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


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