Erreur de TCL --'

[BlackNight]

Tu veux utiliser $chan alors que tu ne l'a pas mit dans les arguments de tes procédures, donc forcément ca ne va pas aller.

essai avec ça:

tclcopier

putlog "Evenements PinTaDoz - Chargée"
set chanlogfirst "#Pintadoz"
 
proc putspeed {text} {
   putquick "$text"
   clearqueue all
   return $text
}
 
 
bind join - * joinbotchan
proc joinbotchan {nick uhost chan text} {
global botnick
if {$nick==$botnick} {
putspeed "PRIVMSG $::chanlogfirst :× 3Join Service 1× Je vien de rejoindre le salon $chan - Par $nick"
}
}
 
bind part - * xpartbotchan
proc xpartbotchan {nick uhost chan text} {
global botnick
if {$nick==$botnick} {
putspeed "PRIVMSG $::chanlogfirst :× 4Part Service 1× Je vien de partir du salon $chan - Par $nick"
}
}

j'ai fait quelques corrections. J'ai rajouté le chan dans les arguments des procédures et remplacé les arg par des text (simple préférence, vaux mieux t'y habituer).
Ensuite, je vois pas pourquoi tu appelle join et part dans tes global, alors qu'aparemment tu n'utilise aucune variable portant ce nom.

Je pense que cela devrai aller, si je dit des bêtises, et des choses erronées, je demande aux membres plus expérimentés que moi de me corriger.

_______________________________________________________
BlackNight - Si tu ne sais pas, apprends. Si tu sais, partages. [Socrate]