Anonymous

ON *:TEXT:!setbrb *:#:{ 
  if (!setbrb* iswm $1) {
    if ($nick ishop $chan || $nick isop $chan) && ($2 = off || $2 = on) {  
      set %brb $+ $chan $2
    msg $chan [Brb] Brb is now $2. } 
  } 
  elseif (%away. [ $+ [ $nick ] ]) { 
    msg $chan  <<  $nick  >>  Reason Left:  %away. [ $+ [ $nick  ] ]  Time gone:  $duration($calc( $ctime - %away.time. [ $+ [ $nick ] ] )) | unset %away* [ $+ [ $nick ] ] 
  } 
  elseif (brb isin $1-) && (%brb [ $+ [ $chan ] ] == ON) {
    set %away. [ $+ [ $nick ] ] $iif($2-,$v1,N/A) 
    set %away.time. [ $+ [ $nick ] ] $ctime 
    msg $chan  <<  $nick  >> is now away.  Reason:  $iif($2-,$v1,N/A) 
  } 
}