Code d'avertissement d'arrive

[CrazyCat]

Bon, déjà je pense qu'il faut que tu arrêtes tes putspeed. Ensuite, pourquoi du bind raw ? Et dernier point : utilise de vrais codes couleur.

tclcopier

set chans "#XXX"
set radiochan "#minut-radio"
set helpchan "#aide"
 
bind join - "*" cs:joins
proc cs:joins {nick uhost handle chan} {
   if {[string compare -nocase $chan $::helpchan]} {
      puthelp "NOTICE $nick :Bonjour à toi $nick - Bienvenue Sur $chan Tu Veux Un Coup De Pouce, Pour Plusieurs Commandes Je Suis Un Bot D'aide, Dans Un Premier Temp Tape ---> !voir"
      puthelp "PRIVMSG $::chans :$nick est sur $chan BIIIIIIIIIIIIIIIIIIIIIIP Merci d'aller aider si possible !!!!"
      return 0
   if {[string compare -nocase $chan $::radiochan]} {
      puthelp "PRIVSMG $chan :Bienvenue a toi $nick sur le salon d'accueil"
      return 0
   }
}

Sinon, ton erreur était dans:

tclcopier

putspeed "PRIVSMG $chans :Bienvenue a toi $nick sur le salon d'accueil"

Il manque :: ($::chans)