script not working help

[.pt]

it works on join but on part it says this..

Tcl error [part_chan1]: wrong # args: should be "part_chan1 nick uhost hand channel"

Code: Select all

#joins configuration

bind join - "#chan1 *" join_chan1

proc join_chan1 {nick uhost hand channel} {
      putserv "notice $nick :joinmsg"
}

#parts configuration

bind part - "#chan1 *" part_chan1

proc part_chan1 {nick uhost hand channel} {
	putserv "notice $nick :partmsg"
}

putlog "JoinPartNotice Loaded"

[Sir_Fz]

From Tcl-commands.doc:

PART (stackable)
bind part <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel> <msg>

Description: triggered by someone leaving the channel. The mask is
matched against "#channel nick!user@host" and can contain
wildcards. If no part message is specified, msg will be set
to "".

New Tcl procs should be declared as
proc partproc {nick uhost hand chan {msg ""}} { ... }
for compatibility.