Communauté sur les Eggdrops - Community about Eggdrops
Bruit autour de Dés Coquins - 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: 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:
  1. mettre source scripts/descoquins.tcl dans ton .conf
  2. rehasher l'eggdrop
  3. ajouter un canal autorisé en faisant .chanset #canal +sexdice
  4. choisir le français en faisant .chanset #canal dicelang fr
  5. 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>
en canal.


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