Fun.tcl

[Aragorn]

j'ai tester mon code mais il y as des bug quand je tape !cmd j'obtient sa en partyline:

tclcopier

[13:14:45] <Fun> [15:26] Tcl error [pub:cmd]: extra characters after close-quote

et quand je tape !biere pseudo j'obtien ça:

tclcopier

[13:16:02] <Fun> [15:27] Tcl error [pub:biere]: can't read "user": no such variable

par quoi doije remplacer ma variable user:

tclcopier

bind pub - "!biere" pub:biere
proc pub:biere { nick uhost handle chan arg } {
set pseudo [split $arg]
if {$pseudo != ""} {
putserv "PRIVMSG $chan :\0037$user \00312offre une bonne bière bien fraiche à \0034$pseudo"
}
}