;;; #B____ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:TEXT:!relay on:#CHAN#: { /enable #relayB | /msg #CHAN# Relay turned on by $nick  }
on *:TEXT:!relay off:#CHAN#: { /disable #relayB | /msg #CHAN# Relay turned off by $nick  }

#relayB off
on *:OP:#perth: { /msg #CHAN# [7 $+ $lower( $chan ) $+ ] < $+ $nick $+ > mode: +o $opnick } 
on *:MODE:#perth: { /msg #CHAN# [7 $+ $lower( $chan ) $+ ] < $+ $nick $+ > mode: $1- } 
on *:NICK: { if ($nick ison #perth) /msg #CHAN# [7 $+ $lower( $chan ) $+ ] $nick is now $newnick } 

on *:KICK:#perth: { /msg #CHAN# [4 $+ $lower( $chan ) $+ ] < $+ $nick $+ > kicks: $knick ( $+ $1- $+ ) } 
on *:BAN:#perth: { /msg #CHAN# [4 $+ $lower( $chan ) $+ ] < $+ $nick $+ > mode: +b $banmask } 
on *:UNBAN:#perth: { /msg #CHAN# [7 $+ $lower( $chan ) $+ ] < $+ $nick $+ > mode: -b $bnick $banmask } 

on *:INPUT:#perth: { /msg #CHAN# [10 $+ $lower( $chan ) $+ ] < $+ $nick $+ > $1- } 
on *:ACTION:*:#perth: { /msg #CHAN# [10 $+ $lower( $chan ) $+ ] < $+ $nick $+ > $1- } 
on *:TEXT:*:#perth: { /msg #CHAN# [10 $+ $lower( $chan ) $+ ] < $+ $nick $+ > $1- } 

on *:QUIT: { if ($nick ison #perth) /msg #CHAN# [7 $+ $lower( #CHAN# ) $+ ] quits: $nick ( $+ $pident($nick) $+ @ $+ $phost($nick) $+ ) }

on *:PART:#perth: {
  if ($right($fulladdress,1) isalpha ) { /msg #CHAN# [7 $+ $lower( $chan ) $+ ] parts: $nick ( $+ $pident($nick) $+ @ $+ $phost($nick) $+ ) | return }
  haltdef
  /msg #CHAN# [7 $+ $lower( $chan ) $+ ] parts: $nick ( $+ $gettok($gettok($fulladdress,1,64),2,33) $+ @ $+ $resolve2($gettok($fulladdress,2,64)) $+ )
}
on *:JOIN:#perth: {
  if ($network != AustNet) { return }
  if ($right($fulladdress,1) isalpha ) { /msg #CHAN# [7 $+ $lower( $chan ) $+ ] joins: $nick ( $+ $pident($nick) $+ @ $+ $phost($nick) $+ ) | return }
  haltdef
  /msg #CHAN# [7 $+ $lower( $chan ) $+ ] joins: $nick ( $+ $gettok($gettok($fulladdress,1,64),2,33) $+ @ $+ $resolve2($gettok($fulladdress,2,64)) $+ )
}
#relayB end