egghelp/eggheads community

[SOLVED] Tcl error: wrong # args

2016-04-16T07:57:04-04:00

...
the doc/tcl-commands.doc file. That's my next stop.

...

Also found here:
http://www.eggheads.org/support/egghtml ... mands.html

I find it handy to view/read/search it online, myself.
I think this is the current version. Maybe someone else can comment on this.

Statistics: Posted by willyw — Sat Apr 16, 2016 7:57 am

[SOLVED] Tcl error: wrong # args

2016-04-16T04:13:07-04:00

Get_A_Fix:

Much appreciated. Especially the info on the doc/tcl-commands.doc file. That's my next stop.

Have a good one.

Statistics: Posted by Landslyde — Sat Apr 16, 2016 4:13 am

[SOLVED] Tcl error: wrong # args

2016-04-16T03:59:36-04:00

Get_A_Fix:

One of the things that puzzles me is the usages of:
Code:
putservputhelpputquick
I may have left some off, but I don't understand the differences, if any, between those.

The difference is merely queue, where putserv (sending commands to server) has the highest sending queue, puthelp (sending commands to channel/nickname) has less, and putquick (sending commands as fast as queue allows) is for limited output as to not excess flood the bot offline.
Info about these queues, and other's (like putnow..) can be found in your doc/tcl-commands.doc file, shipped with your eggdrop.

Good luck! Keep coding

Statistics: Posted by Get_A_Fix — Sat Apr 16, 2016 3:59 am

[SOLVED] Tcl error: wrong # args

2016-04-16T00:29:08-04:00

Get_A_Fix:

Thanks for your reply. What I ended up doing was this:

Code:

# Start of pub_lovesmeproc pub_lovesme {nick host handle channel arg} {global loves0 loves1 emo1set emo2 [lindex $emo1 [rand [llength $emo1]]]set loves00 [lindex $loves0 [rand [llength $loves0]]]set loves2 [lindex $loves1 [rand [llength $loves1]]]set mychanlist [chanlist $channel]set randomnick [lindex $mychanlist [rand [llength $mychanlist]]]if { $loves2 != "" } {set lovemsg $loves00$randomnick$loves2$nick$emo2putserv "PRIVMSG $channel :$lovemsg" lovemsgreturn 1} else {putserv "PRIVMSG $channel :Sorry, $nick, but no one loves you."return 1}}# End of .lovesme

Works like a charm. But I appreciate you showing me how to exclude the bot.

One of the things that puzzles me is the usages of:

Code:

putservputhelpputquick

I may have left some off, but I don't understand the differences, if any, between those.

Statistics: Posted by Landslyde — Sat Apr 16, 2016 12:29 am

[SOLVED] Tcl error: wrong # args

2016-04-14T06:46:59-04:00

lol, you were just declaring to variables after it has been processed and put to channel.

Code:

putserv "PRIVMSG $channel :$randomnick $lovesme2 $nick" randomnick lovesme2

So, your code was fine
I only added a small substitution so that you could use $nick $chan arguments within your set list, and a check to make sure randomnick wasn't botnick (and if it was, just send a silly message to chan).

Code:

bind pub - .lovesme pub_lovesmeset lovesme1 {   "is in deep love with you, $nick"   "loves loves loves you, $nick"   "only loves loves $chan ..."}proc pub_lovesme {nick uhost hand chan arg} {   global lovesme1   set lovesme2 [lindex $lovesme1 [rand [llength $lovesme1]]]   set lovesme2 [subst -nocommands $lovesme2]   set mychanlist [chanlist $chan]   set randomnick [lindex $mychanlist [rand [llength $mychanlist]]]   if {[isbotnick $randomnick]} {puthelp "PRIVMSG $chan :Sorry, $nick, but bot love leads to botulism.."; return}   puthelp "PRIVMSG $chan :$randomnick $lovesme2"   return 0}

Alternatively, to remove the botnick completely, and avoid the above isbotnick check, use:

Code:

set mychanlist [chanlist $chan]set rembot [lsearch $mychanlist $::botnick]set mychanlist [lreplace $mychanlist $rembot $rembot]set randomnick [lindex $mychanlist [rand [llength $mychanlist]]]

Statistics: Posted by Get_A_Fix — Thu Apr 14, 2016 6:46 am

[SOLVED] Tcl error: wrong # args

2016-04-14T00:25:22-04:00

Never mind. I figured it out. I added this to concatenate the two vars:

Code:

{...set lovemsg $randomnick$lovesme2putserv "PRIVMSG $channel :$lovemsg $nick" lovemsgreturn 1}

Sure. This is cheesy stuff, but the girls wanted it. What can I say

Peace out...

Statistics: Posted by Landslyde — Thu Apr 14, 2016 12:25 am

[SOLVED] Tcl error: wrong # args

2016-04-14T01:32:15-04:00

I'm new to TCL scripting. When I want my bot to do something, I find a script to learn from. That said, here I am. Stuck!

My code is:

Code:

bind pub - .lovesme pub_lovesmeset lovesme1 {"is in deep love with you, ""loves loves loves you, "}proc pub_lovesme {nick host handle channel arg} {global lovesme1set lovesme2 [lindex $lovesme1 [rand [llength $lovesme1]]]set mychanlist [chanlist $channel]set randomnick [lindex $mychanlist [rand [llength $mychanlist]]]putserv "PRIVMSG $channel :$randomnick $lovesme2 $nick" randomnick lovesme2return 1}

But this fails and i get:

Code:

Tcl error [pub_lovesme]: wrong # args: should be "putserv text ?options?"

What am I doing wrong? Any help wld be appreciated. Thanks.

Statistics: Posted by Landslyde — Wed Apr 13, 2016 10:38 pm