Communauté Eggdrop
Besoin d'aide SVP - Version imprimable

+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : 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

Citation :

bind pub - !stop stop
proc stop {nick uhost handle chan args} {
putquick "PRIVMSG #discussion :$nick 146 vient de voter pour 4!Stop 12 !!"
putquick "NOTICE #chanelo:4Stop4:1212 $nick 146>> 4!Stop 12Plus de chanson possible sur 12 $chan !!"
}
bind pub - !encore encore
proc encore {nick uhost handle chan args} {
putquick "PRIVMSG #discussion : $nick 146 vient de voter pour 4!encore 12 !!"
putquick "NOTICE #chanelo:4encore4:1212 $nick 146>> 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

Citation :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 146 vient de voter pour 4!Stop 12 !!"
putquick "PRIVMSG #discussion:4Stop4:1212 $nick 146>> 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 146 vient de voter pour 4!encore 12 !!"
putquick "PRIVMSG #discussion:4encore4:1212 $nick 146>> 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 :

Citation :[20:37] <admin> !stop
[20:37] <admin> !encore
[20:37] <admin> !stop
sur le salon off
Citation :[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 a écrit : 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

Citation :[13:33] <RboT> Votez en tapant "/msg RboT vote <réponse>"
Pour y inclure un truc du genre
Citation :[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.