+- Communauté Eggdrop (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)
+--- Sujet : Bruit autour de Dés Coquins (/showthread.php?tid=124)
Pages :
1
2
Bruit autour de Dés Coquins - caline012 - 14/11/2007
euhhhhh ouas c po bien detailler dans le tcl et la traduc laisse a desirer sincerement po mal mais a ameliorer
RE: Dés Coquins v1.3 - CrazyCat - 15/11/2007
Je sais je sais
En fait j'ai vite fait une version multilangues pour que l'auteur original et moi puissions travailler de concert facilement sans avoir à faire les choses en double, je vais tâcher de faire une doc inline plus complète.
RE: Dés Coquins v1.3 - caline012 - 29/11/2007
excuse moi mais j arrive pas a le faire marcher ton tcl .je peut avoir une explication stp
RE: Dés Coquins v1.3 - CrazyCat - 29/11/2007
Tout d'abord, peux-tu décrire ce que tu as fait?
Pour faire fonctionner le tcl:
- mettre source scripts/descoquins.tcl dans ton .conf
- rehasher l'eggdrop
- ajouter un canal autorisé en faisant .chanset #canal +sexdice
- choisir le français en faisant .chanset #canal dicelang fr
- sur le canal, faire !descoquins
RE: Dés Coquins v1.3 - caline012 - 29/11/2007
ahhh ok excuse moi mais ma partyline est down c'est pour ca ca riskai pas de marcher.donc y a plus qua refaire pour avoir le script en fr et actif tout le temps koi
RE: Dés Coquins v1.3 - caline012 - 15/12/2007
jai essayer un truc comme ca
tcl
set descoquins(salon) "#irc-pacifique"
set de1(msgs) {
"embrasser"
"caresser"
"lécher"
"sucer"
"toucher"
"mordiller"
"jouer avec"
"chatouiller"
"faire ce que tu veux à"
}
set de2(msgs) {
"les lèvres"
"le cou"
"la poitrine"
"l'oreille"
"ou tu veux"
"ou tu veux"
"le sein"
"l'orteil"
"la fesse"
"l'entrejambe"
"les doigts"
}
bind pub - !descoquins descoquins:pub
proc descoquins:pub {nick uhost hand chan arg} {
global descoquins de1 de2
set salon "[string tolower "$descoquins(salon)"]"
set chan "[string tolower $chan]"
foreach x $salon {
if [string equal "$x" "$chan"] {
putquick "privmsg $chan :$nick, tu dois $de1 $arg sur $de2!" ; return 0 }
}
}
mon but est de rendre le code accessible sans passer par la party line.moi je ne peut pas y acceder mais ce jeu est sympas donc voila
RE: Dés Coquins v1.3 - CrazyCat - 15/12/2007
Je pense que tu devrais d'abord essayer de comprendre le fonctionnement du TCL initial.
Ce qui t'intéresse en fait, c'est de pour régler la langue par défaut et les canaux autorisés, alors pourquoi changer les principes importants?
RE: Dés Coquins v1.3 - caline012 - 15/12/2007
ce quil y a c'est que je n est pas acces a la party line sur mon eggdrop et si des gens sont dans mon cas jaimerai qu ils puisse avoir acces au script quand meme.le tcl initial oui est fait que il est multilingue.reserver au adultes et a certain salon.moi jai mon eggdrop heberger par mon pc je peut lui ajouter des chan mais je n est pas de party line c'est pour cela que jai essayer de modifier ton script.a noter que ce nest pas du vole comme certain pourrait faire a changer un putlog ou autre.c'est juste pour le rendre d avantage accessible.have fun
RE: Dés Coquins v1.3 - CrazyCat - 15/12/2007
Je ne dis pas que c'est du vol ou quoi que ce soit, je dis juste que tu ne modifies pas ce qu'il faut pour faire ce que tu veux.
Je ferais prochainement une modification du script (non officielle) pour que tu vois comment il faut faire.
RE: Dés Coquins v1.3 - caline012 - 15/12/2007
daccord merci de ta comprehension.bon c'est vrai jai pas un super niveau mais lenvie y est cest ce qui compte pour moi
RE: Dés Coquins v1.3 - caline012 - 17/12/2007
le principe des double liste.et le code est il bon ou pas.ou ca se code autrement?
RE: Dés Coquins v1.3 - CrazyCat - 17/12/2007
Non, il est même complètement faux... tu as essayé de modifier la seule chose qui n'est pas à toucher.
Et sans vouloir te vexer, je dirais même que toute ta procédure est mauvaise... tu devrais essayer de te représenter avec des phrases simples ce qu'elle fait.
Tout ce qu'il faut faire pour pouvoir "commander" le script de manière publique, c'est ajouter:
tcl
# Ajout pour la commande en canal
bind pub m|o "!dc" dc:setchan
proc dc:setchan {nick uhost handle chan args} {
switch [string tolower [lindex $args 0]] {
"on" {
channel set $chan +sexdice
channel set $chan dicelang "fr"
}
"off" {
channel set $chan -sexdice
}
default {
putserv "PRIVMSG $chan :Il faut mettre l'option ON ou OFF"
}
}
return 0;
}
Ca ajoute une commande publique (reservée aux masters globaux ou aux @ du canal) qui permet d'activer (ou désactiver) le tcl en tapant:
Code :
!dc <on|off>RE: Dés Coquins v1.3 - caline012 - 17/12/2007
ah ok parce que jai bien regarder la doc sur le tcl.et je cherchais a comprendre comme agir quand on possede 2 ou plusieur liste.et faire apparaitre un element de chaque liste en un seul privmsg $chan.et je n est pas trouver cest pour ca que je demandais.un peut dans se style
tcl
PRIVMSG $channel :$nick tu dois [lindex $faire(msgs) [rand [llength $faire(msgs)]]] $who [lindex $ou(msgs) [rand [llength $ou(msgs)]]]
ca parait pas trop mal pour moi m
RE: Dés Coquins v1.3 - CrazyCat - 17/12/2007
Mais tu demandes exactement ce qui se fait dans le tcl. Je ne comprend pas ta question, désolé.
RE: Dés Coquins v1.3 - caline012 - 17/12/2007
en fait c'est simple.quand on cree un tcl ou il y a des liste par exemple
set liste 1 {
bla
bla
bla
}
set liste 2 {
bla
bla
bla
}
et que par le biais dune commande !action
ca donne:
putserv privmsg $chan element auhasard de liste 1 +element au hasard de liste 2.
voila ca je l est chercher dans les doc sur le tcl je ne l est pas trouver.est il possible d y arriver