Lestat
Posts : 8
Join date : 2007-08-02
 | Subject: bad nick/ident kick  Fri Aug 03, 2007 4:09 am | |
| - Quote :
- yg ni buh kat variable [ tak buat box untuk add kan badnick / badident tambah jer kat variable.. ]
kat sini tambah jer aper korang rasa bad
%badident shit suck <tambah> <tambah> dan seterus nya
%badnick shit suck <tambah> <tambah> dan seterus nya
--------------------------------------------------------
yg ni kat remote hehe..
On *:join:#: {
if ($me isop $chan) {
inc -u3 %safe
if (%safe > 3) { halt }
if ($istok(%badident,$gettok($right($address($nick,3),-3),1,64),1,32)) { kick $chan $nick bad ident detected please change it first before rejoin | .mode $chan +b $nick | halt }
var %bad = 1
while (%bad <= $numtok(%badnick,32)) {
if ($gettok(%badnick,%bad,32) isin $nick) { kick $chan $nick bad nick detected please change your nick before rejoin | mode $chan +b $nick | break }
inc %bad
}
else return
}
}
On *:nick: {
var %bad = 1
:checkbad
if (%bad > $numtok(%badnick,32)) { halt }
if ($gettok(%badnick,%bad,32) isin $newnick) { goto detectchan | halt }
inc %bad
goto checkbad
:detectchan
var %comchan = 1
:syn
if (%comchan > $comchan($newnick,0)) { halt }
if ($me isop $comchan($newnick,%comchan)) { kick $comchan($newnick,%comchan) $newnick bad change nick detected please change your nick before rejoin | mode $comchan($newnick,%comchan) +b $newnick }
.inc %comchan
goto syn
}
On *:op:#: {
if ($opnick == $me) {
set %bad 1
set %cnicklist 1
:nicklist
if (%cnicklist > $nick(#,0)) { halt }
if (%bad > $numtok(%badnick,32)) { inc %cnicklist | .set %bad 1 }
if ($gettok(%badnick,%bad,32) isin $nick(#,%cnicklist)) { kick $chan $nick(#,%cnicklist) bad nick detected please change your nick before rejoin | .mode $chan +b $nick(#,%cnicklist) | halt }
inc %bad
goto nicklist
}
} | |
|
