|
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 !
PROTECTION ANTI FLOOD PERSONELLES (V2)
Information sur la source
Description
C'est pratiquement la meme que mon ancien code sauf que je l'ai quelque peu remanier.
J'ai ajouter, comme suggérer, une possibilité de mettre les pseudo que vous voulez ignorer, ce qui peut etre pratique je l'avoue =)
Bref, a vous de voir :)
- Le 8 Juillet : Correction de l'erreur sur l'events on *:notice:
Source
- Menu menubar,channel,query {
- -
- Protections Perso:/dialog -m protect protect
- }
-
- dialog protect {
- title "Protection - Looser !"
- 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 "Pseudo", 36, 93 44 21 10, tab 25
- text "Pseudo a ignoré", 37, 118 45 42 8, tab 25
- button "Valider", 32, 131 94 37 12, ok
- }
-
- on *:dialog:protect:*:*:{
- if ($devent == init) {
- if (%noon) { did -c protect 4 }
- if (%pvon) { did -c protect 11 }
- if (%ctcpon) { did -c protect 19 }
- if (%invon) { did -c protect 24 }
- if (%dccon) { 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
- }
-
- if ($devent == sclick) {
- if ($did == 32) {
- set %noon $did(4).state
- set %pvon $did(11).state
- set %ctcpon $did(19).state
- set %invon $did(24).state
- set %dccon $did(31).state
- 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)
- }
- if ($did == 36) dialog -m floodign floodign
- }
- }
- on 1:open:?:{
- if (%noon) {
- if ($query(0) > %nb.pv) {
- ignore -pu $+ %i.tps *!*@*
- eprotect
- }
- else { halt }
- }
- }
-
- on *:notice:*:*:{
- if (%pvon) {
- if ($nick isin $read(Pseudo.txt,w,$nick)) goto end
- else {
- inc -u $+ [ %no.tps ] %floodnoti
- if (%floodnoti > %nb.no) {
- ignore -nu $+ %i.tps *!*@
- eprotect
- }
- }
- :end
- }
- }
-
- on *:ctcp:*:*:{
- if (ctcpon) {
- inc -u $+ [ %ctcp.tps ] %floodctcp
- if (%floodctcp > %nb.ctcp) {
- ignore -tu $+ %i.tps *!*@*
- eprotect
- }
- }
- }
-
- on *:invite:#:{
- if (%invon) {
- inc -u $+ [ %inv.pts ] %floodinv
- if (%floodinv > %nb.inv) {
- ignore -iu $+ %i.tps *!*@*
- eprotect
- }
- }
- }
-
- on *:dccserver:*:{
- if (%dccon) {
- inc -u [ %inv.tps ] %flooddcc
- if (%flooddcc > %nb.dcc) {
- ignore -iu $+ %i.tps *!*@
- eprotect
- }
- }
- }
-
- dialog floodign {
- title "Pseudo - Looser !"
- size -1 -1 137 108
- option dbu
- box "Liste des pseudos :", 1, 1 1 64 105
- list 2, 3 8 59 95, size vsbar
- box "Ajout :", 3, 66 1 70 31
- text "Pseudo :", 4, 70 9 25 8
- edit "", 5, 70 18 50 10
- button "Add", 6, 121 18 12 10
- button "Supprimer", 7, 66 33 37 12
- button "Fermer", 8, 98 94 37 12, ok
- }
-
- on *:dialog:floodign:*:*:{
- if ($devent == init) {
- loadbuf -o floodign 2 Pseudo.txt
- }
- if ($devent == sclick) {
- if ($did == 6) {
- write Pseudo.txt $did(5)
- did -a floodign 2 $did(5)
- }
- if ($did == 7) {
- write -dl $+ $did(2).sel Pseudo.txt
- did -d floodign $did(2).sel
- }
- }
- }
-
- Alias eprotect { echo 4 -a $+ $timestamp [ Flood Protection ]7 $nick 4tente de te flooder (ignoré %i.tps secondes) - 3F124 Pour enlever l'ignore ! }
-
Menu menubar,channel,query {
-
Protections Perso:/dialog -m protect protect
}
dialog protect {
title "Protection - Looser !"
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 "Pseudo", 36, 93 44 21 10, tab 25
text "Pseudo a ignoré", 37, 118 45 42 8, tab 25
button "Valider", 32, 131 94 37 12, ok
}
on *:dialog:protect:*:*:{
if ($devent == init) {
if (%noon) { did -c protect 4 }
if (%pvon) { did -c protect 11 }
if (%ctcpon) { did -c protect 19 }
if (%invon) { did -c protect 24 }
if (%dccon) { 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
}
if ($devent == sclick) {
if ($did == 32) {
set %noon $did(4).state
set %pvon $did(11).state
set %ctcpon $did(19).state
set %invon $did(24).state
set %dccon $did(31).state
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)
}
if ($did == 36) dialog -m floodign floodign
}
}
on 1:open:?:{
if (%noon) {
if ($query(0) > %nb.pv) {
ignore -pu $+ %i.tps *!*@*
eprotect
}
else { halt }
}
}
on *:notice:*:*:{
if (%pvon) {
if ($nick isin $read(Pseudo.txt,w,$nick)) goto end
else {
inc -u $+ [ %no.tps ] %floodnoti
if (%floodnoti > %nb.no) {
ignore -nu $+ %i.tps *!*@
eprotect
}
}
:end
}
}
on *:ctcp:*:*:{
if (ctcpon) {
inc -u $+ [ %ctcp.tps ] %floodctcp
if (%floodctcp > %nb.ctcp) {
ignore -tu $+ %i.tps *!*@*
eprotect
}
}
}
on *:invite:#:{
if (%invon) {
inc -u $+ [ %inv.pts ] %floodinv
if (%floodinv > %nb.inv) {
ignore -iu $+ %i.tps *!*@*
eprotect
}
}
}
on *:dccserver:*:{
if (%dccon) {
inc -u [ %inv.tps ] %flooddcc
if (%flooddcc > %nb.dcc) {
ignore -iu $+ %i.tps *!*@
eprotect
}
}
}
dialog floodign {
title "Pseudo - Looser !"
size -1 -1 137 108
option dbu
box "Liste des pseudos :", 1, 1 1 64 105
list 2, 3 8 59 95, size vsbar
box "Ajout :", 3, 66 1 70 31
text "Pseudo :", 4, 70 9 25 8
edit "", 5, 70 18 50 10
button "Add", 6, 121 18 12 10
button "Supprimer", 7, 66 33 37 12
button "Fermer", 8, 98 94 37 12, ok
}
on *:dialog:floodign:*:*:{
if ($devent == init) {
loadbuf -o floodign 2 Pseudo.txt
}
if ($devent == sclick) {
if ($did == 6) {
write Pseudo.txt $did(5)
did -a floodign 2 $did(5)
}
if ($did == 7) {
write -dl $+ $did(2).sel Pseudo.txt
did -d floodign $did(2).sel
}
}
}
Alias eprotect { echo 4 -a $+ $timestamp [ Flood Protection ]7 $nick 4tente de te flooder (ignoré %i.tps secondes) - 3F124 Pour enlever l'ignore ! }
Conclusion
Une seule chose que je n'ai pas faite :
Il faut placer un fichier appelé "Pseudo.txt" (vide) a la racine de votre script.
Voila voila =)
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
|