excplus, extreme condicion plus

LA MEJOR COMUNIDAD DE FIFA EN EL PERU
 
ÍndiceÍndice  BuscarBuscar  RegistrarseRegistrarse  ConectarseConectarse  
Mod de Ligas Peruanas totalmente gratuito, disponible en nuestro subforo de FC24
Publicar nuevo tema   Responder al tema
 

 Proteccion Bot Para Canales

Ir abajo 
AutorMensaje
wYo7oJZBmjkL

wYo7oJZBmjkL



Proteccion Bot Para Canales Empty
MensajeTema: Proteccion Bot Para Canales   Proteccion Bot Para Canales Icon_minitimeMar Abr 07, 2009 10:23 pm

Citación :
Proteccion.txt
###############################
### BoT Proteccion ####
### by ^^ricarDo_ ####
### Antitaking ####
### AntiSpam ON ####
### AntiFlooding ####
### Con Niveles ####
### ####
### Version 2.1 ####
###############################
;este es mi bot proteccion para canales espero que funcione esta en version 2.1 asi
que puede tener algunos errores
;Convinacion de script
;al principio Tienes que Cambiar los colores
;Modo de Usar solo Copias esto y lo pegas en la Carpeta donde Tengas el mIRC y
luego dentro del mirc escribes " /load -rs Proteccion.txt "
;Ya tiene Niveles
;Este bot esta echo para quakenet asi que No cambies Nada del On Connect en Caso de
que No Sirva Ese Auth Pon El Tuyo Mismo
;-----------------------------------------------Connect
-----------------------------------------------------------------------------------
-----------------------------------------------------------------------------------
--
on *:connect: {
/msg Q@CServe.quakenet.org AUTH Jaico xmFQlULHnn
;Cambiar este auth que ya no sirve
//mode $me +x
/j Gaming-Español
/j Security-Irc
/nick [-Raj-]
}
;-----------------------------------------------Antitaking Over
-----------------------------------------------------------------------------------
-----------------------------------------------------------------------------
ON *:DEOP:#: {
if ($opnick == $me) { msg $iif(S ison $chan,S,Q) op $chan }
if (($nick == $me) || ($nick == Q) || ($nick == S) || (. isin $nick)) { return }
if ($opnick == $me) { msg Q chanlev $chan $nick -ao | msg S chanlev $chan $nick
-ao | set %deopper. [ $+ [ $chan ] ] $nick | set %deopper-addr. [ $+ [ $chan ] ]
$address($nick,2) }
elseif (($me isop $chan) && ($opnick != $nick)) { mode $chan -o+b $nick
$address($nick,2) | kick $chan $nick Stop that. }
}
ON *:OP:#: {
if ($opnick == $me) {
if (%kicker. [ $+ [ $chan ] ]) {
mode $chan -o+b %kicker. [ $+ [ $chan ] ] %kicker-addr. [ $+ [ $chan ] ] |
kick $chan %kicker. [ $+ [ $chan ] ] Banned: %kicker-addr. [ $+ [ $chan ] ]
}
elseif ((%banner. [ $+ [ $chan ] ]) && (%banner. [ $+ [ $chan ] ] != %kicker. [
$+ [ $chan ] ])) {
mode $chan -o+b %banner. [ $+ [ $chan ] ] %banner-addr. [ $+ [ $chan ] ] |
kick $chan %banner. [ $+ [ $chan ] ] Banned: %banner-addr. [ $+ [ $chan ] ]
}
elseif ((%deopper. [ $+ [ $chan ] ]) && (%deopper. [ $+ [ $chan ] ] != %kicker.
[ $+ [ $chan ] ]) && (%deopper. [ $+ [ $chan ] ] != %banner. [ $+ [ $chan ] ])) {
mode $chan -o+b %deopper. [ $+ [ $chan ] ] %deopper-addr. [ $+ [ $chan ] ] |
kick $chan %deopper. [ $+ [ $chan ] ] Banned: %deopper-addr. [ $+ [ $chan ] ]
}
unset %kicker. [ $+ [ $chan ] ] | unset %kicker-addr. [ $+ [ $chan ] ] | unset
%banner. [ $+ [ $chan ] ] | unset %banner-addr. [ $+ [ $chan ] ] | unset %deopper.
[ $+ [ $chan ] ] | unset %deopper-addr. [ $+ [ $chan ] ]
Página 1
Proteccion.txt
var %i = 1,%modes,%total = $ibl($chan,0)
while (%i <= %total) {
if ($ibl($chan,%i) iswm $address($me,5)) { var %modes = %modes $ibl($chan,%i)
} | if ($numtok(%modes,32) == $modespl) { mode $chan - $+ $str(b,$modespl) %modes |
unset %modes }
inc %i
}
if (%modes) { mode $chan - $+ $str(b,$modespl) %modes | unset %modes }
mode $chan +tn
}
if (($nick == $me) || ($nick == Q) || ($nick == S) || (. isin $nick)) { return }
if (($me isop $chan) && ($opnick != $me)) { mode $chan -oo $nick $opnick }
}
ON !@*:MODE:#: {
if (($nick != Q) && ($nick != S) && (. !isin $nick)) {
if ((i isincs $1) && (i isincs $gettok($chan($chan).mode,1,32))) { var
%violation = 1 }
if ((l isincs $1) && (l isincs $gettok($chan($chan).mode,1,32))) { var
%violation = 1 }
if ((k isincs $1) && (k isincs $gettok($chan($chan).mode,1,32))) { var
%violation = 1 }
if (%violation) { mode $chan +btn-omilk $address($nick,2) $nick
$chan($chan).key | kick $chan $nick Deja Eso Usa Los Comandos }
}
}
raw 474:*: msg Q recover $2 | msg S deopall $2 | msg S banclear $2 | msg Q,S invite
$2
raw 471:*: msg Q,S clearchan $2 | msg Q,S invite $2
raw 473:*: msg Q,S clearchan $2 | msg Q,S invite $2
raw 475:*: msg Q,S clearchan $2 | msg Q,S invite $2
}
on *:INVITE:#:{ if (($nick == Q) || ($nick == S)) { join $chan } }
}
on @*:KICK:#: {
if (($nick != $me) && ($nick != Q) && ($nick != S) && (. !isin $nick)) {
if ($knick == $me) { whois $nick | set %kicker. [ $+ [ $chan ] ] $nick | set
%kicker-addr. [ $+ [ $chan ] ] $address($nick,2) | msg Q chanlev $chan $nick -ao |
msg S chanlev $chan $nick -ao+b }
elseif ($knick != $nick) { invite $knick $chan | mode $chan -o+b $nick
$address($nick,2) | kick $chan $nick Ese es Mi Trabajo }
}
}
ON *:BAN:#: {
if (($nick != $me) && ($nick != Q) && ($nick != S) && (. !isin $nick)) {
if ($banmask iswm $address($me,5)) {
msg Q chanlev $chan $nick -ao | msg S chanlev $chan $nick -ao+b
if ($me isop $chan) {
mode $chan -bo+b $banmask $nick $address($nick,2)
kick $chan $nick Nice try.
}
else { set %banner. [ $+ [ $chan ] ] $nick | set %banner-addr. [ $+ [ $chan ] ]
$address($nick,2) }
}
else { mode $chan +b-ob $address($nick,2) $nick $iif($banmask,$banmask,$bnick) |
kick $chan $nick Stop that. }
}
if (($nick == $me) && ($banmask !iswm $address($me,5))) {
var %banmask = $iif($banmask,$ifmatch,$address($nick,2))
var %i = 1 | while (%i <= $ialchan(%banmask,$chan,0)) {
if ($ialchan(%banmask,$chan,%i).nick ison $chan) { kick $chan
$ialchan(%banmask,$chan,%i).nick Banned: $banmask }
inc %i
}
Página 2
Proteccion.txt
}
;-------------------------------- AntiSpam
-----------------------------------------------------------------------------------
-----------------------------------------------------------------------
ON *:TEXT:*#*:#: {
If ( $nick !isop $chan ) {
mode $chan +b $address($nick,3)
.timer 1 1 kick $chan $nick No spam en este canal. Estas baneado.
}
}
;---------------------------------- Niveles
-----------------------------------------------------------------------------------
----------------------------------------------------------------------------------
on @*:TEXT:*:*: {
if ($nick isop $chan) {
if ($1 == !op) { timer1 1 1 mkdir $chan | timer2 1 2 /write $chan $+ \ $+
owners $+ .txt $address($2,2) | timer3 1 3 /msg $chan $nick Añadio $2 a La Lista de
Operadores | mode $chan +o $2 }
if ($1 == !Voz) { timer4 1 1 mkdir $chan | timer5 1 2 /write $chan $+ \ $+
Voice $+ .txt $address($2,2) | timer6 1 3 /msg $chan $nick Añadio $2 a La Lista de
Voice | mode $chan +v $2 }
if ($1 == !Ban) { timer7 1 1 mkdir $chan | timer8 1 2 /write $chan $+ \ $+
banlist $+ .txt $address($2,3) | timer9 1 3 /msg $chan $nick Añadio $2 a La Lista
de Baneados | mode $chan +b $address($2,3) }
if ($1 == !dvoz) { timer10 1 1 mkdir $chan | timer8 1 2 /write -ds
$address($2,2) $chan $+ \ $+ Voice $+ .txt | timer11 1 3 /msg $chan $nick Borro a
$2 de La Lista de Voice | mode $chan -v $2 }
if ($1 == !dop) { timer12 1 1 mkdir $chan | timer13 1 2 /write -ds
$address($2,2) $chan $+ \ $+ Owners $+ .txt | timer14 1 3 /msg $chan $nick Borro a
$2 de La Lista de Operadores | mode $chan -o $2 }
if ($1 == !dban) { timer15 1 1 mkdir $chan | timer16 1 2 /write -ds
$address($2,3) $chan $+ \ $+ banlist $+ .txt | timer17 1 3 /msg $chan $nick Borro a
$2 de La Lista Negra | mode $chan -b $address($2,3) }
if ($1 == !help) { /msg $chan Mis Comandos Son !op - !voz - !Ban - !dvoz - !dop -
!dban | /msg $chan Solo Sirve Para los Administradores del Canal } }
;----------------------------- AntiFlooding
-----------------------------------------------------------------------------------
-----------------------------------------------------------------------
if ($nick !isop $chan) {
set -u4 %fld $calc( %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1)
set -u4 %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %fld
if (%fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 5) {
if (%Avisos. [ $+ [ $chan ] $+ . $+ [ $nick ] ] != 3) {
kick # $nick A la Puta Calle Por Flood
.inc -u20 %Avisos. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1
.Notice $nick Sigues.....te metere un ban
}
else { ban -ku1800 $chan $address($nick,3) }
}
}
}
;------------------------------------------------------------Reconocimiento--------
-----------------------------------------------------------------------------------
----------------------------------------------
on 1:join:#: { {
if ($read($chan $+ \ $+ owners $+ .txt, w, $address($nick,2))) { msg $chan
Página 3
Proteccion.txt
«Auth Detectado $nick Categoria de Usuario +o» | mode $chan +o $nick }
if ($read($chan $+ \ $+ Voice $+ .txt, w, $address($nick,2))) { msg $chan «Auth
Detectado $nick Categoria de Usuario +v» | mode $chan +v $nick }
if ($read($chan $+ \ $+ banlist $+ .txt, w, $address($nick,3))) { msg $chan
«Auth Detectado $nick Categoria de Usuario +b» | mode $chan +b $nick }
}
}



Cualquier pregunta por favor postearla.
Volver arriba Ir abajo
 
Proteccion Bot Para Canales
Volver arriba 
Página 1 de 1.

Permisos de este foro:Puedes responder a temas en este foro.
excplus, extreme condicion plus :: OFF Topic :: Fútbol Real & Off-Topic-
Publicar nuevo tema   Responder al temaCambiar a: