Communauté Eggdrop

Version complète : Soucis avec un tcl de Dj_Kenny
Vous consultez actuellement la version basse qualité d’un document. Voir la version complète avec le bon formatage.

fredetdim

Bonjour à tous !
Voilà mon petit problème avec le système de box de Dj_Kenny
J'aimerais que dans la party-line quand une personne écrit, tout le monde puisse voir ce qu'elle écrit et pas seulement les personnes qui sont dans la même box qu'elle.
Voici le code d'origine qui permet de faire quand on ecrit :
[15:20:46] <mein> ll
Les personnes appartenant à la box 1 voyent (mais pas ceux de la 2 ni de la 3):
[15:20:46] <Pooshy-B> <mein@Box n°1> ll
Code :
proc putbox {idx nb arg} {
global box
  foreach id [array names box] {
    if {[valididx $id] && $id!=$idx && $box($id)==$nb} {
      putdcc $id "<\002[idx2hand $idx]@Box n°$nb\002> $arg"
    }
  }
}

maintenant quand je change le code en :

Code :
proc putbox {idx nb arg} {
global box
foreach id [array names box] {
putdcc $id "<\002[idx2hand $idx]@Box n°$nb\002> $arg"
    }
  }

Tout le monde peut voir ce qu'une personne écrit dans la box (c'est à dire que si j'écris un mot dans la box 1 : les gens de la box 1 & de la 2 & de la 3 pourrons le voir) , mais on a un echo :
[15:19:42] <mein> l
[15:19:42] <Pooshy-B> <mein@Box n°1> l

J'aimerais enlever cet echos (la deuxième ligne), mais je sais pas comment faire ...
Merci d'avance :p
tu à essayé .echo off ?

fredetdim

Oui
ça n'a eu aucun effet !
tcl
proc putbox {idx nb arg} {
global box
  foreach id [array names box] {
    if {[valididx $id] && $id!=$idx} {
      putdcc $id "<\002[idx2hand $idx]@Box n°$nb\002> $arg"
    }
  }
}


et ca c est quoi?
tcl
[array names box]