Mass Protection Remote

on @*:join:#:{
if (%netsplit) { halt }
set -u2 %nicks $addtok(%nicks,$nick,44)
if ($ServerNeo != webchat.org) {
if ($numtok(%nicks,44) > 4) {
inc -u15 %kick 4 
.timerkick $+ $nick 1 %kick Check $chan $nick Not Allowed!
}
elseif ($numtok(%nicks,44) == 4) {
mode $chan R
var %i = $numtok(%nicks,44)
while (%i) {
kick $chan $gettok(%nicks,%i,44) U Are Not Allowed Here!
dec %i
}
}
}
else {
;webchat - take advantage of the multiple kick parameters method.
if ($numtok(%nicks,44) >= 4) {
if (R !isincs $chan($chan).mode) { mode $chan R }
kick $chan %nicks Do You Mass Join?
unset %nicks
}
}
}
alias ServerNeo return $gettok($server,2-,46)
alias semak { 
if ($2 ison $1) { kick $1- }
else { halt }
}
on *:part:#:{ if ($timer(timerkick $+ $nick)) { .timerkick $+ $nick off } }
on *:quit:{ 
if ($timer(timerkick $+ $nick)) { .timerkick $+ $nick off }
var %server = $+(*,$gettok($server,2-,46))
if (%server iswm $1-) { set -u120 %netsplit $true }
}