TCL error: wrong # args error.

[stafu]

Hey guys. I'm very new to TCL and I'm trying to make a scissors paper rock script. However when I message my choice to the bot it gets this error:

[16:42] Tcl error [spr:setweapon]: wrong # args: should be "spr:setweapon nick host handle chan arg"

Here are the bits of code that relate to the bit that's getting the error:

Code: Select all

bind msg 	- 	spr	spr:setweapon

proc spr:setweapon {nick host handle chan arg} {
    global botnick spr_player1 spr_player2 spr_started spr_playerstat spr_player1_w spr_player2_w
    if {$spr_started == 0} {
        puthelp "PRIVMSG $chan :Game not running. Type !spr <nick> to play."
        return 0
    }
	if {$arg == ""} {
		puthelp "notice $nick :You need to /msg $botnick <scissor, paper or rock>"
	}
	if {$nick == $spr_player1} {
		if {$arg == "scissor"} {
			set spr_player1_w scissor
		}
		if {$arg == "paper"} {
			set spr_player1_w paper
		}
		if {$arg == "rock"} {
			set spr_player1_w rock
		}		
	}
	if {$nick == $spr_player2} {
		if {$arg == "scissor"} {
			set spr_player2_w scissor
		}
		if {$arg == "paper"} {
			set spr_player2_w paper
		}
		if {$arg == "rock"} {
			set spr_player2_w rock
		}		
	}
	spr:checkwin
}

I'm sure it's not the cleanest way to do what I'm trying to do, but at the moment I'm just testing/playing, but I can't work out why it's giving me that error. I've tried a bunch of different things and there's still always some problem.

Any ideas?

[Furbs]

try like

Code: Select all

proc spr:setweapon { nick host hand chan {arg ""} } {

[nml375]

One suggestion, msg bindings do not provide a channel-argument, so remove that from your proc-head...
See the doc/tcl-commands.doc file that comes with your eggdrop for further details regarding different commands and bindings.

Code: Select all

proc spr:setweapon {nick host hand arg} {

[stafu]

Thanks guys. Taking out the chan arg fixed it.