|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
SYSTEM DE PROTECTIONS PERSONNELLES - ANTIFLOOD
Information sur la source
Description
Simple system pour eviter de se faire flooder trop longtemps.
Simple mais efficace.
Source
- Menu menubar,channel,query {
- -
- Protections Perso:/dia protect
- }
-
- dialog protect {
- title "Protections"
- size -1 -1 170 108
- option dbu
- tab "Flood Pvs / Notices", 1, 2 0 165 91
- box "Flood Pvs :", 2, 7 16 72 69, tab 1
- box "Flood Notices :", 3, 81 16 80 69, tab 1
- check "Activé", 4, 12 73 50 10, tab 1
- text "Nombre max de Pvs :", 5, 10 25 53 8, tab 1
- edit "", 6, 65 24 10 10, tab 1
- text "Nombre de Notice :", 7, 85 25 48 8, tab 1
- edit "", 8, 147 24 10 10, tab 1
- text "Limite de temps (sec) :", 9, 85 37 56 8, tab 1
- check "Activé", 11, 86 73 50 10, tab 1
- edit "", 10, 147 36 10 10, tab 1
- tab "Flood CTCP / Invitations", 12
- box "Flood CTCP :", 13, 8 16 71 69, tab 12
- box "Flood Invitations :", 14, 81 16 80 69, tab 12
- text "Nombre de CTCP :", 15, 11 25 46 8, tab 12
- edit "", 16, 66 24 10 10, tab 12
- text "Limite de temps (sec) :", 17, 11 37 54 8, tab 12
- check "Activé", 19, 12 73 50 10, tab 12
- text "Nombre d'invitations :", 20, 85 25 53 8, tab 12
- edit "", 21, 148 24 10 10, tab 12
- text "Limite de temps (sec) :", 22, 85 37 58 8, tab 12
- edit "", 23, 148 36 10 10, tab 12
- check "Activé", 24, 86 73 50 10, tab 12
- edit "", 18, 66 36 10 10, tab 12
- tab "Divers", 25
- box "Flood DCCs :", 26, 8 16 78 69, tab 25
- text "Nombre de DCCs :", 27, 12 26 46 8, tab 25
- edit "", 28, 73 25 10 10, tab 25
- text "Limite de temps (sec) :", 29, 12 37 54 8, tab 25
- edit "", 30, 73 36 10 10, tab 25
- check "Activé", 31, 12 72 50 10, tab 25
- text "Temps général d'ignore :", 33, 92 20 64 8, tab 25
- edit "", 34, 92 30 20 10, tab 25 limit 15
- text "secondes.", 35, 114 31 25 8, tab 25
- button "Valider", 32, 131 94 37 12, ok
- }
-
- on *:dialog:protect:init:0:{
- if (%noon != $null) { did -c protect 4 }
- if (%pvon != $null) { did -c protect 11 }
- if (%ctcpon != $null) { did -c protect 19 }
- if (%invon != $null) { did -c protect 24 }
- if (%dccon != $null) { did -c protect 31 }
- did -a protect 6 %nb.pv
- did -a protect 8 %nb.no
- did -a protect 10 %no.tps
- did -a protect 16 %nb.ctcp
- did -a protect 18 %ctcp.tps
- did -a protect 21 %nb.inv
- did -a protect 23 %inv.tps
- did -a protect 28 %nb.dcc
- did -a protect 30 %dcc.tps
- did -a protect 34 %i.tps
- }
-
- on *:dialog:protect:sclick:32:{
- if ($did(4).state == 1) { set %noon on }
- if ($did(11).state == 1) { set %pvon on }
- if ($did(19).state == 1) { set %ctcpon on }
- if ($did(24).state == 1) { set %invon on }
- if ($did(31).state == 1) { set %dccon on }
- if ($did(4).state == 0) { unset %noon }
- if ($did(11).state == 0) { unset %pvon }
- if ($did(18).state == 0) { unset %ctcpon }
- if ($did(24).state == 0) { unset %invon }
- if ($did(31).state == 0) { unset %dccon }
- set %nb.pv $did(6)
- set %nb.no $did(8)
- set %no.tps $did(10)
- set %nb.ctcp $did(16)
- set %ctcp.tps $did(18)
- set %nb.inv $did(21)
- set %inv.tps $did(23)
- set %nb.dcc $did(28)
- set %dcc.tps $did(30)
- set %i.tps $did(34)
- }
-
- on 1:open:?:{
- if (%pvon == on) {
- if ($query(0) > %nb.pv) {
- ignore -pu $+ %i.tps *!*@*
- /eprotect
- }
- else { halt }
- }
- }
-
- on *:notice:*:*:{
- if ((IriX isin $nick) || (systak isin $nick)) { goto end }
- else {
- inc -u $+ [ %no.tps ] %floodnoti
- if (%floodnoti > %nb.no) {
- ignore -nu $+ %i.tps *!*@
- /eprotect
- }
- }
- :end
- }
-
- on *:ctcp:*:*:{
- inc -u $+ [ %ctcp.tps ] %floodctcp
- if (%floodctcp > %nb.ctcp) {
- ignore -tu $+ %i.tps *!*@*
- /eprotect
- }
- }
-
- on *:invite:#:{
- inc -u $+ [ %inv.pts ] %floodinv
- if (%floodinv > %nb.inv) {
- ignore -iu $+ %i.tps *!*@*
- /eprotect
- }
- }
-
- on *:dccserver:*:{
- inc -u [ %inv.tps ] %flooddcc
- if (%flooddcc > %nb.dcc) {
- ignore -iu $+ %i.tps *!*@
- /eprotect
- }
- }
-
- Alias dia { dialog -m $$1 $$1 }
- Alias eprotect { echo 4 -a $+ $timestamp [ Flood Protection ]7 $nick 4tente de te flooder (ignoré %i.tps secondes) - 3F124 Pour enlever l'ignore ! }
- Alias F12 { .ignore -r *!*@* | /perso Toutes les ignores sont enlevées }
- Alias perso { echo 12 -a $timestamp 14[ Info ]4 $1- }
Menu menubar,channel,query {
-
Protections Perso:/dia protect
}
dialog protect {
title "Protections"
size -1 -1 170 108
option dbu
tab "Flood Pvs / Notices", 1, 2 0 165 91
box "Flood Pvs :", 2, 7 16 72 69, tab 1
box "Flood Notices :", 3, 81 16 80 69, tab 1
check "Activé", 4, 12 73 50 10, tab 1
text "Nombre max de Pvs :", 5, 10 25 53 8, tab 1
edit "", 6, 65 24 10 10, tab 1
text "Nombre de Notice :", 7, 85 25 48 8, tab 1
edit "", 8, 147 24 10 10, tab 1
text "Limite de temps (sec) :", 9, 85 37 56 8, tab 1
check "Activé", 11, 86 73 50 10, tab 1
edit "", 10, 147 36 10 10, tab 1
tab "Flood CTCP / Invitations", 12
box "Flood CTCP :", 13, 8 16 71 69, tab 12
box "Flood Invitations :", 14, 81 16 80 69, tab 12
text "Nombre de CTCP :", 15, 11 25 46 8, tab 12
edit "", 16, 66 24 10 10, tab 12
text "Limite de temps (sec) :", 17, 11 37 54 8, tab 12
check "Activé", 19, 12 73 50 10, tab 12
text "Nombre d'invitations :", 20, 85 25 53 8, tab 12
edit "", 21, 148 24 10 10, tab 12
text "Limite de temps (sec) :", 22, 85 37 58 8, tab 12
edit "", 23, 148 36 10 10, tab 12
check "Activé", 24, 86 73 50 10, tab 12
edit "", 18, 66 36 10 10, tab 12
tab "Divers", 25
box "Flood DCCs :", 26, 8 16 78 69, tab 25
text "Nombre de DCCs :", 27, 12 26 46 8, tab 25
edit "", 28, 73 25 10 10, tab 25
text "Limite de temps (sec) :", 29, 12 37 54 8, tab 25
edit "", 30, 73 36 10 10, tab 25
check "Activé", 31, 12 72 50 10, tab 25
text "Temps général d'ignore :", 33, 92 20 64 8, tab 25
edit "", 34, 92 30 20 10, tab 25 limit 15
text "secondes.", 35, 114 31 25 8, tab 25
button "Valider", 32, 131 94 37 12, ok
}
on *:dialog:protect:init:0:{
if (%noon != $null) { did -c protect 4 }
if (%pvon != $null) { did -c protect 11 }
if (%ctcpon != $null) { did -c protect 19 }
if (%invon != $null) { did -c protect 24 }
if (%dccon != $null) { did -c protect 31 }
did -a protect 6 %nb.pv
did -a protect 8 %nb.no
did -a protect 10 %no.tps
did -a protect 16 %nb.ctcp
did -a protect 18 %ctcp.tps
did -a protect 21 %nb.inv
did -a protect 23 %inv.tps
did -a protect 28 %nb.dcc
did -a protect 30 %dcc.tps
did -a protect 34 %i.tps
}
on *:dialog:protect:sclick:32:{
if ($did(4).state == 1) { set %noon on }
if ($did(11).state == 1) { set %pvon on }
if ($did(19).state == 1) { set %ctcpon on }
if ($did(24).state == 1) { set %invon on }
if ($did(31).state == 1) { set %dccon on }
if ($did(4).state == 0) { unset %noon }
if ($did(11).state == 0) { unset %pvon }
if ($did(18).state == 0) { unset %ctcpon }
if ($did(24).state == 0) { unset %invon }
if ($did(31).state == 0) { unset %dccon }
set %nb.pv $did(6)
set %nb.no $did(8)
set %no.tps $did(10)
set %nb.ctcp $did(16)
set %ctcp.tps $did(18)
set %nb.inv $did(21)
set %inv.tps $did(23)
set %nb.dcc $did(28)
set %dcc.tps $did(30)
set %i.tps $did(34)
}
on 1:open:?:{
if (%pvon == on) {
if ($query(0) > %nb.pv) {
ignore -pu $+ %i.tps *!*@*
/eprotect
}
else { halt }
}
}
on *:notice:*:*:{
if ((IriX isin $nick) || (systak isin $nick)) { goto end }
else {
inc -u $+ [ %no.tps ] %floodnoti
if (%floodnoti > %nb.no) {
ignore -nu $+ %i.tps *!*@
/eprotect
}
}
:end
}
on *:ctcp:*:*:{
inc -u $+ [ %ctcp.tps ] %floodctcp
if (%floodctcp > %nb.ctcp) {
ignore -tu $+ %i.tps *!*@*
/eprotect
}
}
on *:invite:#:{
inc -u $+ [ %inv.pts ] %floodinv
if (%floodinv > %nb.inv) {
ignore -iu $+ %i.tps *!*@*
/eprotect
}
}
on *:dccserver:*:{
inc -u [ %inv.tps ] %flooddcc
if (%flooddcc > %nb.dcc) {
ignore -iu $+ %i.tps *!*@
/eprotect
}
}
Alias dia { dialog -m $$1 $$1 }
Alias eprotect { echo 4 -a $+ $timestamp [ Flood Protection ]7 $nick 4tente de te flooder (ignoré %i.tps secondes) - 3F124 Pour enlever l'ignore ! }
Alias F12 { .ignore -r *!*@* | /perso Toutes les ignores sont enlevées }
Alias perso { echo 12 -a $timestamp 14[ Info ]4 $1- }
Conclusion
Voila, je ne suis pas un pro du codage mIRC, je débute, je sais pas ce que ca vaut.
A vous de juger =)
(A charger dans les remotes)
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
|