Proteccion Bot Para Canales

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 }
}
}