rendered paste body;;; #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