Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


[script] Anti Idle par Progeny
#1
Voici la source d'un petit script anti-idle trouvé sur egghelp.org:

tcl
### Anti-Idle v1.2
### by Progeny <progeny@azzurra.org>
### irc.azzurra.org - #EggHelp
 
# - Using -
# Type in partyline:
# .chanset #channel maxidle <time in minutes>
# If set 0 channel's check will be ignored.
 
# Punishing method (1 = Kick, 2 = Kick/Ban)
set pmethod 2
# Ban time in minutes.
set bantime 5
# Kick's reason
set aidlereason "E` vietato sostare per piu` di %idletime minuti nel canale."
# Exception's flags
set flags f|f
# Kick op? (0 = Yes, 1 = No)
set kickop 1
# Kick voice? (0 = Yes, 1 = No)
set kickvoice 1
#Check for idling users every minutes.
bind time - * aidle:checkidle
 
setudef int maxidle
 
proc aidle:checkidle { min hour day month year } {
global botnick flags kickop kickvoice
    foreach chan [channels] {
        if {![channel get $chan "maxidle"]} {continue}
        foreach nick [chanlist $chan] {
            if {$nick == $botnick} {continue}
            if {([isop $nick $chan]) && ($kickop)} {continue}
            if {([isvoice $nick $chan]) && ($kickvoice)} {continue}
            if {[matchattr [nick2hand $nick] $flags] == 1} {continue}
            if {[getchanidle $nick $chan] > [channel get $chan "maxidle"]} {
            aidle:punish $chan $nick [channel get $chan "maxidle"]
            }
        }
 
    }
}
 
proc aidle:punish { channel nick idletime } {
global pmethod aidlereason bantime
regsub -all "%idletime" $aidlereason $idletime aidlereason
    switch $pmethod {
    1 { putserv "KICK $channel $nick :$aidlereason" }
    2 { newchanban $channel "*![getchanhost $nick]" "Anti-Idle" "Too idle" $bantime }
    }
}
 
putlog "Anti-Idle v1.2 loaded"


Je pense que ça peut en aider certains ici ;)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#2
Si on veux changé le script un peux tout cre méalnge et plus rien fonctionne :/
#3
Ce serait sympa que tu fasses des efforts pour écrire correctement et expliquer un peu mieux ce que tu veux dire.
Ce script est très simple et facilement adaptable, à condition bien sûr que tu saches ce que tu veux faire et que tu fasses l'effort de le faire correctement et pas simplement en faisant des copier/coller d'autres parties en espérant que ça marche.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#4
Bon ce que je voulais dire c'est que j'ai essayé par moi même de changé le script pour mettre un sapart au lieu du kick. Mais sa pas fonctionné comme je le pensé. L'eggdrop ne réagie plus. Et si il réagi a chaque fois que le user entre sur le chan il fait un auto-sapart :s moi j'aimerais que il fasse 1 sapart part 3 autrement dit que il agit 1 fois c tout :S si possible de me répondre ;)
#5
Salut Babytigrou16

Ton code est comme cela:


tcl
proc aidle:punish { channel nick idletime } {
global pmethod aidlereason bantime
regsub -all "%idletime" $aidlereason $idletime aidlereason
    switch $pmethod {
    1 { putserv "sapart $nick $channel" }
    2 { newchanban $channel "*![getchanhost $nick]" "Anti-Idle" "Too idle" $bantime }
    }
}


?
#6
ok et quand le user va revenir sa le referas ou il va faire que 1 fois ?
#7
cela le refera pendant le temps qu'y est mi dans

tcl
set bantime 5

#8
ok et le 5 c'est 5 minute ou 5 seconde ?
#9
# Ban time in minutes.
#10
ok mais c'est normal que le TCL ne reagie pas ?
#11
Il faut attendre CrazyCat car perso je l'ai pas tester le tcl
#12
Il faudrait avoir la source complète (et modifiée) du TCL pour pouvoir donner une réponse :)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#13
bonjour :)

J'aimerais avoir ce système mais au lieu que le bot kick ou kickban pour inactivité , j'aimerais simplement qu'il déop ou dévoice la personne selon si elle est op ou voice avec un message du genre deop/devoice pour inactivité de plus de 10 minutes.
Ne sachant pas coder, c'est le pourquoi de ma demande histoire de pas tout foirer et re-mailer

Par avance merci et bonne journée

Bewess
Gilles


Possibly Related Threads…
Thread Author Replies Views Last Post
  [script] Roulette Anti-boulets v1.5.0 Artix 1 3,477 01/09/2009, 15:24
Last Post: Artix

Forum Jump:


Users browsing this thread: 1 Guest(s)