strange variable problems

[sismik]

I'm new in tcl scripting so don't blame me if it's an easy problem
I'm trying to make an irc command working and print some $args in the channel.

look at the script:

Code: Select all

bind pub - !salut pub:salut
 
proc pub:salut {nick uhost hand chan arg} {
   set prout [lindex $arg 1]
   if {$arg != ""} {
      putserv "PRIVMSG $chan salut $nick $prout"
   } else {
      putserv "privmsg $chan chut.. $nick"
   }
}

look at the chan now..

[ 16:01:36 ] (@mitsurugi) !salut
[ 16:01:38 ] (t0xic0) chut..
[ 16:02:13 ] (@mitsurugi) !salut couille de loup
[ 16:02:14 ] (t0xic0) salut

I don't understand why variables arent print on irc channels...

[CrazyCat]

sismik, as I said on eggdrop.fr, you forget the ":" leading the sentence you want to say:

Code: Select all

putserv "PRIVMSG $chan :chut... $nick

[sismik]

lol
shame on me !