******* join + Part protection *******

On @!*:JOIN:#:{ inc -u5 % [ $+ [ $site ] $+ ] . [ $+ [ # ] ] }

On @!*:PART:#:{ if (% [ $+ [ $site ] $+ ] . [ $+ [ # ] ]) { mode # +b $site } }






******* join + quit protection *******



on *:JOIN:#:{ if ($me isop $chan) { set -u10 % [ $+ QF [ $+ [ $address ] ] ] 1 } }
on *:QUIT:{ if (% [ $+ QF [ $+ [ $address ] ] ] = 1) { mode $comchan($nick,1) +b $address($nick,2)  } }





******* join + Part + Quit protection *******

On @!*:JOIN:#:{ inc -u5 % [ $+ [ $site ] $+ ] . [ $+ [ # ] ] }

On @!*:PART:#:{ if (% [ $+ [ $site ] $+ ] . [ $+ [ # ] ]) { mode # +b $site } }

On *!:QUIT:{ var %xquit = $comchan($nick,0) | while (%xquit) { if (% [ $+ [ $site ] $+ ] . [ $+ [ $comchan($nick,%xquit) ] ]) { mode $comchan($nick,%xquit) +b $site } | dec %xquit } }