Accueil > > > ANTIBAN PROTECTION BY DJUL.
ANTIBAN PROTECTION BY DJUL.
Information sur la source
Description
Il s'agit d'une simple protection anti ban offrant la possibilité de choisir entre différentes options lors du ban. Simple deop de l'user ayant posé le ban, kick, kickban ou bien multikick. Message et nombre de kicks étant paramétrable. (Merci à devorZ qui m'a fait l'optimisation au niveau de $devent pendant que je corrigeais autre chose.)
Source
- ;; AntiBan ;;
- ;2008-djul©
- ;
-
- On *:LOAD:{
- set %ab-msg i'm2fast4u
- set %ab-nbk 5
- set %ab-state ON
- echo -at 3[AntiBan3] -
- echo -at 3[AntiBan3] Add On 3Chargé.
- echo -at 3[AntiBan3]-
- .timerab 1 3 ab
- }
- On *:UNLOAD:{
- unset %ab-*
- echo -at 3[AntiBan3] -
- echo -at 3[AntiBan3] Add On 4Déchargé.
- echo -at 3[AntiBan3]-
- }
- alias Ab if (!$dialog(Ab)) dialog -m Ab Ab
- dialog ab {
- title "AntiBan /ab"
- size -1 -1 70 142
- option dbu
- check "Activer la protection", 1, 5 5 69 10
- box "Action", 2, 5 15 60 55
- radio "Deop", 3, 10 25 50 10
- radio "Kick", 4, 10 35 50 10
- radio "Multi Kick", 5, 10 45 50 10
- radio "Kick Ban", 6, 10 55 50 10
- box "Options", 7, 5 75 60 45
- text "Nombre Kick:", 8, 10 85 31 8
- edit "", 9, 45 85 15 10, center
- text "Raison kick:", 10, 10 95 30 8
- edit "", 11, 10 105 50 10, center
- button "Fermer", 12, 5 125 60 12, default flat ok
- }
- on *:dialog:ab:*:*:{
- If ($devent == Init) {
- did -a ab 9 %ab-nbk
- did -a ab 11 %ab-msg
- if (%ab-state = 1) did -c ab 1
- if (%ab-action == dop) did -c ab 3
- elseif (%ab-action == k) did -c ab 4
- elseif (%ab-action == mk) did -c ab 5
- elseif (%ab-action == kb) did -c ab 6
- }
- Elseif ($devent == Edit) {
- if ($did == 9) set %ab-nbk $did(9)
- if ($did == 11) set %ab-msg $did(11)
- }
- Elseif ($devent == Sclick) {
- if ($did == 1) set %ab-state $did(1).state
- if ($did == 3) set %ab-action dop
- if ($did == 4) set %ab-action k
- if ($did == 5) set %ab-action mk
- if ($did == 6) set %ab-action kb
- }
- }
- on @!*:ban:#:{
- if (%ab-state = 1) {
- if ($banmask iswm $ial($me)) {
- if (%ab-action == dop) { set %ab-banmask $banmask | echo -a 3[AntiBan3] Activé sur $chan ( $+ $network $+ ) | mode # -ob $nick %ab-banmask }
- if (%ab-action == k) { set %ab-banmask $banmask | echo -a 3[AntiBan3] Activé sur $chan ( $+ $network $+ ) | mode # -b %ab-banmask | kick # $nick %ab-msg }
- if (%ab-action == kb) { set %ab-banmask $banmask | echo -a 3[AntiBan3] Activé sur $chan ( $+ $network $+ ) | mode # -ob+b $nick %ab-banmask $wildsite | kick # $nick %ab-msg }
- if (%ab-action == mk) {
- echo -a 3[AntiBan3] Activé sur $chan ( $+ $network $+ )
- set %ab-tmp %ab-nbk
- set %ab-banmask $banmask
- set %ab-nick $address($nick,2)
- set %ab-chan $chan
- mode # -b %ab-banmask
- kick # $nick %ab-msg
- }
- }
- }
- }
- on *:JOIN:%ab-chan:{
- if ( ( %ab-nick == $address($nick,2) ) && (%ab-tmp > 0) && (%ab-state = 1) ) { kick # $nick now cry... more %ab-tmp | dec %ab-tmp 1 }
- }
;; AntiBan ;;
;2008-djul©
;
On *:LOAD:{
set %ab-msg i'm2fast4u
set %ab-nbk 5
set %ab-state ON
echo -at 3[AntiBan3] -
echo -at 3[AntiBan3] Add On 3Chargé.
echo -at 3[AntiBan3]-
.timerab 1 3 ab
}
On *:UNLOAD:{
unset %ab-*
echo -at 3[AntiBan3] -
echo -at 3[AntiBan3] Add On 4Déchargé.
echo -at 3[AntiBan3]-
}
alias Ab if (!$dialog(Ab)) dialog -m Ab Ab
dialog ab {
title "AntiBan /ab"
size -1 -1 70 142
option dbu
check "Activer la protection", 1, 5 5 69 10
box "Action", 2, 5 15 60 55
radio "Deop", 3, 10 25 50 10
radio "Kick", 4, 10 35 50 10
radio "Multi Kick", 5, 10 45 50 10
radio "Kick Ban", 6, 10 55 50 10
box "Options", 7, 5 75 60 45
text "Nombre Kick:", 8, 10 85 31 8
edit "", 9, 45 85 15 10, center
text "Raison kick:", 10, 10 95 30 8
edit "", 11, 10 105 50 10, center
button "Fermer", 12, 5 125 60 12, default flat ok
}
on *:dialog:ab:*:*:{
If ($devent == Init) {
did -a ab 9 %ab-nbk
did -a ab 11 %ab-msg
if (%ab-state = 1) did -c ab 1
if (%ab-action == dop) did -c ab 3
elseif (%ab-action == k) did -c ab 4
elseif (%ab-action == mk) did -c ab 5
elseif (%ab-action == kb) did -c ab 6
}
Elseif ($devent == Edit) {
if ($did == 9) set %ab-nbk $did(9)
if ($did == 11) set %ab-msg $did(11)
}
Elseif ($devent == Sclick) {
if ($did == 1) set %ab-state $did(1).state
if ($did == 3) set %ab-action dop
if ($did == 4) set %ab-action k
if ($did == 5) set %ab-action mk
if ($did == 6) set %ab-action kb
}
}
on @!*:ban:#:{
if (%ab-state = 1) {
if ($banmask iswm $ial($me)) {
if (%ab-action == dop) { set %ab-banmask $banmask | echo -a 3[AntiBan3] Activé sur $chan ( $+ $network $+ ) | mode # -ob $nick %ab-banmask }
if (%ab-action == k) { set %ab-banmask $banmask | echo -a 3[AntiBan3] Activé sur $chan ( $+ $network $+ ) | mode # -b %ab-banmask | kick # $nick %ab-msg }
if (%ab-action == kb) { set %ab-banmask $banmask | echo -a 3[AntiBan3] Activé sur $chan ( $+ $network $+ ) | mode # -ob+b $nick %ab-banmask $wildsite | kick # $nick %ab-msg }
if (%ab-action == mk) {
echo -a 3[AntiBan3] Activé sur $chan ( $+ $network $+ )
set %ab-tmp %ab-nbk
set %ab-banmask $banmask
set %ab-nick $address($nick,2)
set %ab-chan $chan
mode # -b %ab-banmask
kick # $nick %ab-msg
}
}
}
}
on *:JOIN:%ab-chan:{
if ( ( %ab-nick == $address($nick,2) ) && (%ab-tmp > 0) && (%ab-state = 1) ) { kick # $nick now cry... more %ab-tmp | dec %ab-tmp 1 }
}
Conclusion
Vous avez peut être déjà vu ce type de source de nombreuses fois... c'est pas le cas de tous, à bon entendeur :]
Critiques constructives acceptées.
Historique
- 08 août 2008 17:47:38 :
- Remplacement de l'alias ab.
Optimisation du On Ban.
Décrassage du Check.
Lors du multikick, ce n'est plus le pseudo avant le séparateur pipe qui est pris en compte mais $address($nick,2) rendant la source multiserver.
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Un tout petit prob [ par angeldavid ]
J'ai un tout petit prob , a propos du ban et unban automatique , en faite la j'ai un script qui fais juste le kick , mais je voudrais au lieu que sa k
Raccourci F1: kick F2:ban F3:kickban [ par psyckan ]
Me revoilaVoila je cherche, comme cela peut trés bien etre comprehensible dans le titre, un script de racourci kick,ban,et kick et pourquoi pas voir a
besoin d aide urgente pour bote de moderation [ par yvesman ]
bonjourpouvez vous m aider le bot uune fos le processus lance s emballe et ne fait plus la difference entre bons et mauvais mots (+ plantages divers)m
aidez moi svp c important [ par yvesman ]
bonjour voila le probleme: j'essaye ((deseperement) sic! vu mon niveau) de creer un bot de moderation qui doit etre mis urgemment sur un server avc de
Ban pseudo, host .. [ par fyltum ]
Je chercherais un remote pour bannir quelqu'un d'après un "on input", j'aimerais qu'il banisse de toutes les façons possibles comme *pseudo*!*@* , dom
Commandes en +b +k etc ... [ par fyltum ]
J'ai fait un petit remote (avec l'aide du forum) et je voudrai que vous me disiez si c'est bien ou non et j'ai une question :Comment bannir quelqu'un
Bannir à partir de la remote [ par Bal007 ]
Bonjour,J'expose mon problème, je suis un débutant en scripting, et j'ai récamment essayé de trouver comment bannir quelqu'un avec une action (!ban).
Ban de IriX [ par fyltum ]
Bonjour je voudrai savoir comment unbannir ce que IriX a ban c'est à dire : *!guest@317290786.fr par exemple.J'ai essayé de mettre :$-(*,!,guest,@,$s
Testeur de group et de ban ... [ par fyltum ]
Bonjour je souhaiterais savoir quelle est la façon pour dire que que un group est enable ou disable dans une condition de remote ( un peu compliquée m
Auto ban sauf les +ao [ par CorB3n ]
Salut à tous,Je recherche un remote afin d'auto bannir automatiquement les personnes joignant le chan, sauf ceux qui ont un chanlev sur @L (+ao en l'o
|
Derniers Blogs
CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril
Forum
RE : AIDERE : AIDE par Nico26000
Cliquez pour lire la suite par Nico26000 RE : AIDERE : AIDE par WorldDMT
Cliquez pour lire la suite par WorldDMT AIDEAIDE par Nico26000
Cliquez pour lire la suite par Nico26000
Logiciels
Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|