on *:TEXT:*:#:{
  if ( $nick isop $chan ) { 
    if ( $1 = @nick ) {
      nick $2 
    }
    if ( $1 = @op ) {
      mode $chan +o $2 
    }
    if ( $1 = @deop ) {
      mode $chan -o $2 
    }

    if ( $1 = @voice ) {
      mode $chan +v $2 
    }

    if ( $1 = @devoice ) {
      mode $chan -v $2 
    }
    if ( $1 = @join ) {
      join $2
      set % $+ $2 $+ $chr(46) $+ prefix .
    }
    if ( $1 = @part ) {
      part $2 
    }
    if ( $1 = @stats ) {
      notice $nick prefix is % [ $+ [ $chan ] ] [ $+ [ $chr(46) ] ] [ $+ [ prefix ] ] 
      notice $nick your access (+o/op)
      notice $nick my access $iif($me isop $chan,(+o/op),(regular))
    }
    if ( $1 = @setup ) {
      set % $+ $chan $+ $chr(46) $+ prefix .
      notice $nick Channel Reset.
    }
    if ( $1 = $+(% [ $+ [ $chan ] ] [ $+ [ $chr(46) ] ] [ $+ [ prefix ] ],set) ) {
      if ( $2 && $3 ) {
        set $+(%,$chan,$chr(46),$2) $3-
        notice $nick $2 set as $3-
      }
    }
    if ( $1 = $+(% [ $+ [ $chan ] ] [ $+ [ $chr(46) ] ] [ $+ [ prefix ] ],unset) ) {
      unset $+(%,$chan,$chr(46),$2) 
      notice $nick $2 is now unset.
    }
  }
  if ( $left($1,1) = % [ $+ [ $chan ] ] [ $+ [ $chr(46) ] ] [ $+ [ prefix ] ] ) { 
    if ( $+(%,$chan,$chr(46),$mid($1,2)) ) {
      notice $nick % [ $+ [ $chan ] ] [ $+ [ $chr(46) ] ] [ $+ [ $mid($1,2) ] ]
    }
  }
} 

on *:JOIN:#:{
  if ( $+(%,$chan,$chr(46),onjoinmsg) ) { 
    notice $nick % [ $+ [ $chan ] ] [ $+ [ $chr(46) ] ] [ $+ [ onjoinmsg ] ]
  }
}