issue

**BigSteve** · Wed Jan 19, 2011 12:34 pm

		Code 			
setudef flag autovoicejoin
<br />
bind join - * join:autovoice
<br />
proc join:autovoice {nick host hand chan text} {
<br />
global owner botnick
<br />
if {$nick == $owner} {return}
<br />
if {$nick == $botnick} {return}
<br />
if {[channel get $chan "autovoicejoin"]} {
<br />
foreach letter [split $nick ""] {
<br />
if {![regexp {[a-zA-Z]} $letter]} { continue }
<br />
if {[string equal [string tolower $letter] $letter]} {
<br />
putchan $chan "Enter, abase yourself, then offer service."
<br />
pushmode $chan +v $nick
<br />
break
<br />
} else {
<br />
pushmode $chan -v $nick
<br />
 	 putchan $chan "Be welcomed to my Home, $nick."
<br />
break
<br />
}
<br />
}
<br />
flushmode $chan
<br />
}
<br />
}	

Quote

[13:07:55] Tcl error [join:autovoice]: wrong # args: should be "join:autovoice nick host hand chan text"

could anyone help me fix this

**Get_A_Fix** · Sat Jan 29, 2011 4:42 am

You have the wrong arguments, as the error states. For a join bind you simply need to carry the nick, userhost, handle and channel.

		Code 			
<br />

<br />
bind join - * join:pub
<br />
proc join:pub {nick uhost hand chan} {
<br />
....
<br />
....
<br />
}
<br />
	

You can find this info and more inside your eggdrop/doc/tcl-commands.doc file.

You also don't need to do

		Code 			
<br />
if {$nick == $owner} {return}
<br />
if {$nick == $botnick} {return} 
<br />
	

You can just do one line like..

		Code 			
<br />
if {[isbotnick $nick] || [matchattr [nick2hand $nick] n]} {return}
<br />
	

	Hawkee.com Forum Index -> TCL Scripting	All times are GMT - 7 Hours
Page 1 of 1