Communauté sur les Eggdrops - Community about Eggdrops
Besoin d'aide SVP - 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)
+--- Thread: Besoin d'aide SVP (/showthread.php?tid=1624)



Besoin d'aide SVP - KeeViiNou - 03/06/2016

Bonjour,

J'ai besoin de vos lumières pour complèter un script tcl. Je souhaite améliorer ce script

Quote:

bind pub - !stop stop
proc stop {nick uhost handle chan args} {
putquick "PRIVMSG #discussion :$nick 1436 vient de voter pour 4!Stop 12 !!"
putquick "NOTICE #chanelo:4Stop34:12312 $nick 1436>> 4!Stop 12Plus de chanson possible sur 12 $chan !!"
}
bind pub - !encore encore
proc encore {nick uhost handle chan args} {
putquick "PRIVMSG #discussion : $nick 1436 vient de voter pour 4!encore 12 !!"
putquick "NOTICE #chanelo:4encore34:12312 $nick 1436>> 4!encore 12Plus de chanson possible sur 12 $chan !!"

}

j'aimerais mettre que le vote ne peut etre utiliser qu'une fois, mettre un timer et le mettre dans un fichier .txt pour que par la suite le résultat soit donner automatiquement. Mais j'avoue que mes capacites en tcl sont limités...

Merci d'avance pour votre aide.


RE: Besoin d'aide SVP - KeeViiNou - 03/06/2016

Je viens d'essayer avec ça

Quote:bind pub - !stop stop
proc stop {nick uhost handle chan args} {
set fp [open $::base a]
puts $fp "[clock format [clock seconds] -format "%d/%m/%y"] $nick "
close $fp
putquick "PRIVMSG #chanelo :$nick 1436 vient de voter pour 4!Stop 12 !!"
putquick "PRIVMSG #discussion:4Stop34:12312 $nick 1436>> 4!Stop 12Plus de chanson possible sur 12 $chan !!"
}
bind pub - !encore encore
proc encore {nick uhost handle chan args} {
set fp [open $::base a]
puts $fp "[clock format [clock seconds] -format "%d/%m/%y"] $nick "
close $fp
putquick "PRIVMSG #chanelo : $nick 1436 vient de voter pour 4!encore 12 !!"
putquick "PRIVMSG #discussion:4encore34:12312 $nick 1436>> 4!encore 12Plus de chanson possible sur 12 $chan !!"

}
bind pub - "!stats" news:list
proc news:list {nick uhost handle chan text} {
set fp [open $::base r]
set data [read -nonewline $fp]
close $fp
foreach templine [split $data "\n"] {
set line [split $templine]
putserv "PRIVMSG #chanelo :\00312Les votes sont :"
putquick "PRIVMSG #chanelo $nick à voter"

}
}


mais le résultat :

Quote:[20:37] <admin> !stop
[20:37] <admin> !encore
[20:37] <admin> !stop
sur le salon off
Quote:[20:37] <+RboT> admin vient de voter pour !Stop !!
[20:37] <+RboT> admin vient de voter pour !encore !!
[20:37] <+RboT> admin vient de voter pour !Stop !!
[20:37] <~Datura> !stats
[20:37] <+RboT> Datura à voter
[20:37] <+RboT> Datura à voter
[20:37] <+RboT> Datura à voter
[20:37] <+RboT> Les votes sont :



RE: Besoin d'aide SVP - CrazyCat - 05/06/2016

Il faudrait que tu expliques un peu mieux ce que tu veux faire.
En gros, un utilisateur ne peut voter qu'une fois (par an ? par question ? ...) et les résultats doivent être annoncés à la fin (du monde ? d'un temps ? ...)


RE: Besoin d'aide SVP - KeeViiNou - 09/06/2016

Coucou CrazyCat,

Merci à toi pour ta réponse.Oui je peux t'en dire plus.

En gros, j'aimerais que l'utilisateur puisse voter qu'une fois par question, sur un temps de 2 minutes et à la fin de ces deux minutes le résultat serait donné automatiquement...
J'espère que c'est plus clair...
Merci à toi


RE: Besoin d'aide SVP - MenzAgitat - 09/06/2016

http://www.egghelp.org/tclhtml/3478-4-0-0-1-aVote.htm

Existe en version française.
Il faudra juste modifier un peu le script pour ajouter les fautes d'orthographe comme dans ton exemple :p


RE: Besoin d'aide SVP - CrazyCat - 10/06/2016

(09/06/2016, 20:33)MenzAgitat Wrote: Il faudra juste modifier un peu le script pour ajouter les fautes d'orthographe comme dans ton exemple :p
ou C ke ta vue dé fotes ?


RE: Besoin d'aide SVP - KeeViiNou - 14/06/2016

Merci à toi MenzAgitat pour le script.

Néanmoins je suis chiant et j'aimerais savoir s'il est possible d'enlever le

Quote:[13:33] <RboT> Votez en tapant "/msg RboT vote <réponse>"
Pour y inclure un truc du genre
Quote:[13:33] <RboT> Votez en tapant "!vote <réponse>"

Merci.
Et aussi comment on rajoute un flag pour que tout le monde n'y est pas accès ?


RE: Besoin d'aide SVP - CrazyCat - 14/06/2016

Pour ta première question, c'est possible mais il faut modifier les commandes car le !vote est déjà utilisé pour créer les votes. Il faudrait donc inverser le système pour que l'administration se fasse en message privé et les votes en public.
Avis perso : le système actuel me semble le meilleur, comme ça les votes sont personnels et il n'y a donc pas d'influence d'un voteur sur les autres. L'utilisation du /msg fait l'équivalent d'un isoloir.

Pour la seconde question: sur quoi veux-tu restreindre l'accès ? la création/gestion des sondages ou la possibilité de voter ?


RE: Besoin d'aide SVP - KeeViiNou - 16/06/2016

Bonjour, Merci por ta réponse. Effectivement tu as pas tord, vu de cet angle là c'est beaucoup mieux.

A la commande pour lancer le vote ( pour la restriction )


RE: Besoin d'aide SVP - CrazyCat - 16/06/2016

Pour mettre un filtre sur les commandes publiques, il suffit de modifier:

tcl
bind pub - !vote avote_anyvote
bind pub - !endvote avote_end


en :

tcl
bind pub n|o !vote avote_anyvote
bind pub n|o !endvote avote_end

Ceci limite les accès à la commande aux owners de l'eggdrop et aux opérateurs (et owners) du canal. Bien entendu, il s'agit des accès connus dans l'eggdrop, pas des status sur le canal. Voir la page sur les flags


RE: Besoin d'aide SVP - KeeViiNou - 17/06/2016

Merci pour ton aide.