Communauté sur les Eggdrops - Community about Eggdrops
[script] Anti Idle par Progeny - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+---- Forum: Releases et support (https://forum.eggdrop.fr/forumdisplay.php?fid=20)
+---- Thread: [script] Anti Idle par Progeny (/showthread.php?tid=105)



[script] Anti Idle par Progeny - CrazyCat - 18/11/2007

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 ;)


RE: Anti Idle - Babytigrou16 - 26/11/2007

Si on veux changé le script un peux tout cre méalnge et plus rien fonctionne :/


RE: Anti Idle - CrazyCat - 26/11/2007

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.


Le tcl Anti-Idle modifié - Babytigrou16 - 27/01/2008

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 ;)


RE: Anti Idle par Progeny - NuNuX - 28/01/2008

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 }
    }
}


?


RE: Anti Idle par Progeny - Babytigrou16 - 02/02/2008

ok et quand le user va revenir sa le referas ou il va faire que 1 fois ?


RE: Anti Idle par Progeny - NuNuX - 03/02/2008

cela le refera pendant le temps qu'y est mi dans

tcl
set bantime 5




RE: Anti Idle par Progeny - Babytigrou16 - 03/02/2008

ok et le 5 c'est 5 minute ou 5 seconde ?


RE: Anti Idle par Progeny - NuNuX - 03/02/2008

# Ban time in minutes.


RE: Anti Idle par Progeny - Babytigrou16 - 05/02/2008

ok mais c'est normal que le TCL ne reagie pas ?


RE: Anti Idle par Progeny - NuNuX - 05/02/2008

Il faut attendre CrazyCat car perso je l'ai pas tester le tcl


RE: Anti Idle par Progeny - CrazyCat - 05/02/2008

Il faudrait avoir la source complète (et modifiée) du TCL pour pouvoir donner une réponse :)


RE: Anti Idle par Progeny - bewess - 28/08/2008

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