Having problem with lol script

[Vynn]

Hello guys, I am having some problem with this lol script. Below are some codes I got from the lol.tcl. Guide me pls.

Code: Select all

bind pub o !act proc:act

proc proc:act { nick uhost hand channel rest } {
set sendchan [lindex $a 0]
set sendact [lrange $a 1]
putserv "PRIVMSG $sendchan :$sendact"
}

Whenever I tried !act blah blah, it gives me this error msg.

[06:32] Tcl error [proc:act]: can't read "a": no such variable

I totally do not understand tcl language. But from what i compared with this, I guess this is the line which gives the error.

proc proc:act { nick uhost hand channel rest } {

Help appreciated.

[Dr-007]

bind pubm - !act proc:act

proc proc:act { nick uhost hand channel rest } {
putserv "privmsg $channel :$rest"
}

---

---

if you wanna add the functions for only ops and crap then contact me @ efnet or mail me (dr007@skall.no) my nick @ efnet is Dr-007

[Vynn]

Code: Select all

bind pubm - !act proc:act 

proc proc:act { nick uhost hand channel rest } { 
putserv "privmsg $channel :$rest" 
}

Or

Code: Select all

bind pub - !act proc:act 

proc proc:act { nick uhost hand channel rest } { 
putserv "privmsg $channel :$rest" 
}

Note the difference pubm and pub

[Vynn]

Ah.. It's working now. But, I *think* I did not state clearly what I want.. This !act command, is the same as !say in the lol.tcl script. =/ What I want is, when I did a !act slap nick, the bot will execute /me slap nick. Is it possible ? If yes, can someone give me the code pls ? Thanks

[Dr-007]

oh, use

putserv "PRIVMSG $channel :\001ACTION $rest\001"

[Vynn]

Ahh.. Yes! It worked. Thanks, Dr-007