Bruit autour de Dés Coquins

[caline012]

jai essayer un truc comme ca

tclcopier

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