Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
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 !
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
Discussions en rapport avec ce code source
|
CalendriCode
| | | L | M | M | J | V | S | D |
| | | | | 1 | 2 | 3 |
| 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 18 | 19 | 20 | 21 | 22 | 23 | 24 |
| 25 | 26 | 27 | 28 | 29 | 30 | 31 |
|
Téléchargements
Logiciels à télécharger sur le même thème :
|