*** Realname\away ads messages kick
On !@*:JOIN:#:{
if (*!*@WeArab.Knights iswm $fulladdress || %whois.p > 3) { halt }
if ($me isop #) { inc -u3 %whois.p | .timer 1 5 _checkrn # $nick }
}
alias _checkrn if ($2 ison $1) { set -u10 %bad [ $+ [ $2 ] ] yes | .raw WHOIS $2 }
raw 311:*:{
haltdef
$iif(%bad [ $+ [ $2 ] ] != yes,echo $color(whois) -qs -) | $iif(%bad [ $+ [ $2 ] ] != yes,echo $color(whois) -qs $2 is $+($3,@,$4) * $6-)
if (%bad [ $+ [ $2 ] ] == yes) {
if (*wWw.* iswm $strip($6-)) || (*http://* iswm $strip($6-)) || (*Server *.*.* iswm $strip($6-)) || ($chr(35) isin $strip($6-)) || (*@*.com iswm $strip($6-)) || (*@*.net iswm $strip($6-)) || (*@*.org iswm $strip($6-)) {
var %i = $comchan($2,0)
while (%i) {
if ($2 isop $comchan($2,%i)) || ($2 isvo $comchan($2,%i)) || ($me !isop $comchan($2,%i)) { return }
mode $comchan($2,%i) +b $address($2,2)
kick $comchan($2,%i) $2 ads in fullname isn't allowed
dec %i
}
}
}
}
raw 319:*:{
haltdef
$iif(%bad [ $+ [ $2 ] ] != yes,echo $color(whois) -qs $2 on $3-)
}
raw 312:*:{
haltdef
$iif(%bad [ $+ [ $2 ] ] != yes,echo $color(whois) -qs $2 using $3-)
}
raw 317:*:{
haltdef
$iif(%bad [ $+ [ $2 ] ] != yes,echo $color(whois) -sq $2 has been idle $+($duration($3),$chr(44)) signed on $asctime($4,ddd dd/mm/yyyy HH:nn:sst))
}
raw 318:*:{
haltdef
$iif(%bad [ $+ [ $2 ] ] != yes,echo $color(whois) -sq $2 End of /WHOIS list.) | $iif(%bad [ $+ [ $2 ] ] != yes,echo $color(whois) -qs -)
}
raw 307:*:{
haltdef
$iif(%bad [ $+ [ $2 ] ] != yes,echo $color(whois) -sq $2 has identified for this nick)
}
raw 301:*:{
haltdef
$iif(%bad [ $+ [ $2 ] ] != yes,echo $color(whois) -qs $2 is away: $3-)
if (%bad [ $+ [ $2 ] ] == yes) {
if (*wWw.* iswm $strip($3-)) || (*http://* iswm $strip($3-)) || (*Server *.*.* iswm $strip($3-)) || ($chr(35) isin $strip($3-)) || (*@*.com iswm $strip($3-)) || (*@*.net iswm $strip($3-)) || (*@*.org iswm $strip($3-)) {
var %i = $comchan($2,0)
while (%i) {
if ($2 isop $comchan($2,%i)) || ($2 isvo $comchan($2,%i)) || ($me !isop $comchan($2,%i)) { return }
mode $comchan($2,%i) +b $address($2,2)
kick $comchan($2,%i) $2 ads in away isn't allowed
dec %i
}
}
}
}
raw 313:*:{
haltdef
$iif(%bad [ $+ [ $2 ] ] != yes,echo $color(whois) -qs $2-)
}
======================================
Work: Bad Realname\Away Message's Kick