Accueil > > > ANTI IDLE !!! UN DE PLUS
ANTI IDLE !!! UN DE PLUS
Information sur la source
Description
un anti idle de base ! Simple et efficace! Pas de tests sur le fait d etre operateur , celui qui le charge et ne l est pas doit arreter de scripter. Désolé pour le goto c est une vieille habitude pour ne pas remplr les pipes de processeurs et creer un Jump ( et un seul ). Je pourrais mettre du elsif mais c est pareil !! vidage du pipe ! Quelques petites ameliorations a faire, mais pas fioritures. > multichan > %server.chan.pseudo pour le multiserver par exemple ...
Source
- ;;;;;;;;;;;;;;;;;;;;;;;;;;; anti idle ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;; Script : anti Idle ;;
- ;; Doit pouvoir permettre de virer quelqu un sur idle time over ;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- on *:load : {
- ;; durée du ban
- set %idleTime.over 600
- ;; Raison du kick a faire
- }
- on *:unload: {
- ;; durée du ban
- unset %idleTime.over
- ;; Raison du kick
- }
-
- on *:connect: {
- /timeridstart 1 2 /antiidle stop
- /timeridstart 1 10 /antiidle start %idleTime.over
- }
-
- alias antiidle {
- if (($$1 isin start) && ($$2 isnum )) {
- /timerfirstact 1 2 /actidle
- /set %idleTime.over $$2
- /timerantiidle 0 30 /actIdle
- ;;/echo @highlights > Script anti idle launched : $+ $chr(32) $+ $$2 $+ $chr(32) $+ secondes
- /goto done
- }
- if ($$1 isin stop) {
- /timerantiidle off
- }
- :done
- }
-
- alias actIdle {
- set %idle.nb.regular $calc($nick(#biere-entre-potes,0,r) + 1)
- set %idle.ind 1
- ;; pour tous les utilisateurs de bases (aucun mode)
- while (%idle.ind < %idle.nb.regular) {
- ;; j affiche dans une fenetre speciale ( a commenter ou a créer )
- ;; /echo @highlights $nick(#biere-entre-potes,%idle.ind,r) $+ $chr(32) $+ idle time : $+ $chr(32) $+ $nick(#biere-entre-potes,%idle.ind,r).idle $+ $chr(32) $+ secondes
- ;; si il y a un depassement du temps autoriser >> action
- if ( $nick(#biere-entre-potes,%idle.ind,r).idle > %idleTime.over ) {
- ;; si une variable de type %pseudo existe
- if ($var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1) != $null) {
- ;; alors je l incremente
- /inc $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1) 1
- ;; si cette valeur est superieure a 2 alors je kick/ban
- if ( $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1).value > 2) {
- /mode #biere-entre-potes +bb $nick(#biere-entre-potes,%idle.ind,r) $address($nick(#biere-entre-potes,%idle.ind,r),2)
- /kick #biere-entre-potes $nick(#biere-entre-potes,%idle.ind,r) $+ $chr(32) IDLE TIME OVER - temps de squattage maximum autoriser $+ $chr(32) $+ $calc(%idleTime.over / 60) $+ $chr(32) $+ minutes ( $+ %idleTime.over $+ $chr(32) $+ secondes) => $+ $chr(32) $nick(#biere-entre-potes,%idle.ind,r).idle $+ ( $+ $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1).value $+ $chr(32) $+ fois, kick/ban à 3)
- ;; je detruit la variable %pseudo
- /unset $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1)
- }
- ;;/echo @highlights >> $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1).value
- }
- ;; sinon si la variable %pseudo n existe pas >> je la crée et je kicke
- else {
- /set % $+ $nick(#biere-entre-potes,%idle.ind,r),1) 1
- /kick #biere-entre-potes $nick(#biere-entre-potes,%idle.ind,r) $+ $chr(32) IDLE TIME OVER - temps de squattage maximum autoriser $+ $chr(32) $+ $calc(%idleTime.over / 60) $+ $chr(32) $+ minutes ( $+ %idleTime.over $+ $chr(32) $+ secondes) => $+ $chr(32) $nick(#biere-entre-potes,%idle.ind,r).idle $+ ( $+ $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1).value $+ $chr(32) $+ fois, kick/ban à 3)
- ;;/echo @highlights >> $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1).value
- }
- }
- ;; j incremente
- /inc %idle.ind 1
- }
- ;; je detruis les variables pour eviter les residus accidentels
- unset %idle.ind
- unset %idle.nb.regular
- }
;;;;;;;;;;;;;;;;;;;;;;;;;;; anti idle ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Script : anti Idle ;;
;; Doit pouvoir permettre de virer quelqu un sur idle time over ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:load : {
;; durée du ban
set %idleTime.over 600
;; Raison du kick a faire
}
on *:unload: {
;; durée du ban
unset %idleTime.over
;; Raison du kick
}
on *:connect: {
/timeridstart 1 2 /antiidle stop
/timeridstart 1 10 /antiidle start %idleTime.over
}
alias antiidle {
if (($$1 isin start) && ($$2 isnum )) {
/timerfirstact 1 2 /actidle
/set %idleTime.over $$2
/timerantiidle 0 30 /actIdle
;;/echo @highlights > Script anti idle launched : $+ $chr(32) $+ $$2 $+ $chr(32) $+ secondes
/goto done
}
if ($$1 isin stop) {
/timerantiidle off
}
:done
}
alias actIdle {
set %idle.nb.regular $calc($nick(#biere-entre-potes,0,r) + 1)
set %idle.ind 1
;; pour tous les utilisateurs de bases (aucun mode)
while (%idle.ind < %idle.nb.regular) {
;; j affiche dans une fenetre speciale ( a commenter ou a créer )
;; /echo @highlights $nick(#biere-entre-potes,%idle.ind,r) $+ $chr(32) $+ idle time : $+ $chr(32) $+ $nick(#biere-entre-potes,%idle.ind,r).idle $+ $chr(32) $+ secondes
;; si il y a un depassement du temps autoriser >> action
if ( $nick(#biere-entre-potes,%idle.ind,r).idle > %idleTime.over ) {
;; si une variable de type %pseudo existe
if ($var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1) != $null) {
;; alors je l incremente
/inc $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1) 1
;; si cette valeur est superieure a 2 alors je kick/ban
if ( $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1).value > 2) {
/mode #biere-entre-potes +bb $nick(#biere-entre-potes,%idle.ind,r) $address($nick(#biere-entre-potes,%idle.ind,r),2)
/kick #biere-entre-potes $nick(#biere-entre-potes,%idle.ind,r) $+ $chr(32) IDLE TIME OVER - temps de squattage maximum autoriser $+ $chr(32) $+ $calc(%idleTime.over / 60) $+ $chr(32) $+ minutes ( $+ %idleTime.over $+ $chr(32) $+ secondes) => $+ $chr(32) $nick(#biere-entre-potes,%idle.ind,r).idle $+ ( $+ $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1).value $+ $chr(32) $+ fois, kick/ban à 3)
;; je detruit la variable %pseudo
/unset $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1)
}
;;/echo @highlights >> $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1).value
}
;; sinon si la variable %pseudo n existe pas >> je la crée et je kicke
else {
/set % $+ $nick(#biere-entre-potes,%idle.ind,r),1) 1
/kick #biere-entre-potes $nick(#biere-entre-potes,%idle.ind,r) $+ $chr(32) IDLE TIME OVER - temps de squattage maximum autoriser $+ $chr(32) $+ $calc(%idleTime.over / 60) $+ $chr(32) $+ minutes ( $+ %idleTime.over $+ $chr(32) $+ secondes) => $+ $chr(32) $nick(#biere-entre-potes,%idle.ind,r).idle $+ ( $+ $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1).value $+ $chr(32) $+ fois, kick/ban à 3)
;;/echo @highlights >> $var( $chr(37) $+ $nick(#biere-entre-potes,%idle.ind,r),1).value
}
}
;; j incremente
/inc %idle.ind 1
}
;; je detruis les variables pour eviter les residus accidentels
unset %idle.ind
unset %idle.nb.regular
}
Historique
- 14 juillet 2006 14:32:09 :
- Perspective d evolution du script
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
recherche anti-ban anti-kick.... [ par TaitsuO ]
J'aimerai trouver un anti-kick et un anti-ban assez puissant, ceux que j'ai trouver ici ne marche pas si bien que ça (dsl...) et je ne suis pas trés b
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
Aidez moi [ par reva94 ]
kelk1 pourai me crée un anti flood : - au bout de 4 phrases en flood il le kick ban 5 min anti-pub : 1 er pub Qui avertit 2 eme pub qui kick 3 emem p
pourquoi ce script anti j/p ban les mecs qui /hop??? [ par int3r_ ]
Bonjour, Voilà c'que j'ai dans le remote ;anti join-part ON *:JOIN:#monChan: { set %join. [ $+ [ $nick ] ] 1 .timerunset 1 60 unset %join. [ $+
Anti flood [ par Zqokmi ]
kelkun pourai me dire ski va pas ds mon anti-flood ? on *:text:*:#:{ inc -u2 %flood $+ $nick if %flood [ $+ [ $nick ] ] >= 3 { ban -u900 # $nick 2 }
Kick Ban no réponse [ par Newbieeeeee ]
Salut tous le monde, serait til possible que quand je auto ban kick ctcp avec ce script!!!on !*:join:#abcedf:ctcp $nick versionon *:ctcpreply:version*
Remote averto , kick et après ban [ par tim01 ]
Bonjour,Voilà j'essaye de coder un anti spam et badwords, voilà mon code On *:TEXT:*pute*:#:{ if ( %pute <= 1 | halt ) { /inc %pute $+ $nick 1 |
il y a un probleme là [ par WorldDMT ]
salutc'est au cas qu'il y a ban sur un mask ( par exp: +b *!*@120.120.120.12 ) tout les nick qui se raportent a ce mask doivent etre kick bon j'ai fai
Anti-MassBan [ par carlos_elite ]
Pouvez-vous m'aider à réviser ce code simple pour éviter le ban massif sur les canaux ? ? ? svp.on *:ban:#: { if (%massban. [ $+ [ $nick ] $+ . $+ [
|
Derniers Blogs
[MIX 2010] - TELECHARGEZ INTERNET EXPLORER 9 EN PREVIEW ![MIX 2010] - TELECHARGEZ INTERNET EXPLORER 9 EN PREVIEW ! par redo
La Preview de Windows Explorer 9 est maintenant disponible à l'adresse suivante : http://ie.microsoft.com/testdrive/ Cette version ne nécessite pas un redémarrage de votre machine pour être exploitée . Cette version est fonctionnelle mais reste cependant ...
Cliquez pour lire la suite de l'article par redo [MIX 2010] - KEYNOTE DAY 2 ONLINE : WINDOWS INTERNET EXPLORER 9, JQUERY, ODATA ET DALLAS CTP2 ![MIX 2010] - KEYNOTE DAY 2 ONLINE : WINDOWS INTERNET EXPLORER 9, JQUERY, ODATA ET DALLAS CTP2 ! par redo
Dans la lignée du premier keynote, retrouvez la vidéo du second keynote en ligne : Visionnez la vidéo à l'url suivante : http://www.microsoft.com/presspass/events/mix/VideoGallery.aspx Vous y retrouverez ainsi les speakers Scott Guthrie, Dean Hachamovitch...
Cliquez pour lire la suite de l'article par redo [MIX 2010] - RETOUR D'EXPéRIENCE DéVELOPPEMENT SEESMIC SUR WINDOWS PHONE 7[MIX 2010] - RETOUR D'EXPéRIENCE DéVELOPPEMENT SEESMIC SUR WINDOWS PHONE 7 par redo
En avant première, Loic le retour d'expérience de Loïc Le Meur du portage de l'application http://seesmic.com/ sur plateforme Windows Phone 7 . c'était d'ailleurs une des rares opportunités de tester, voir toucher le nouveau device . voyez par vous-même :...
Cliquez pour lire la suite de l'article par redo [MIX 2010] - LE KEYNOTE DAY 1 DISPONIBLE ONLINE ![MIX 2010] - LE KEYNOTE DAY 1 DISPONIBLE ONLINE ! par redo
Si tout comme moi, vous avez manqué de peu le premier keynote du Microsoft Mix 2010, je vous invite à prendre deux heure et le consulter ci-dessous . Visionnez le Keynote à l'url suivante : http://www.microsoft.com/Presspass/events/mix/videoGallery.aspx?c...
Cliquez pour lire la suite de l'article par redo VISUAL STUDIO TALK SHOW: EF4VISUAL STUDIO TALK SHOW: EF4 par Matthieu MEZIL
La semaine dernière, j'étais à Montréal pour y animer des conférences sur Entity Framework. J'en ai profité pour enregister un podcast Visual Studio Talk Show que vous pouvez retrouver ici ....(read more) ...
Cliquez pour lire la suite de l'article par Matthieu MEZIL
Logiciels
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
|