Code:

set chan #MyChanset net MyNetworkset netid 1234bind dcc - chanlink do_say_link_onoffbind bot - said do_say_chanbind bot - join do_join_chanbind bot - part do_part_chanbind bot - sign do_sign_chanbind bot - list do_chan_listbind bot - return do_say_listbind pubm - * do_say_botbind join - *!*@* do_join_botbind part - *!*@* do_part_botbind sign - *!*@* do_sign_botbind pub - .list do_chan_botbind mode - * do_mode_botbind bot - mode do_mode_chanbind nick - * do_nickchange_botbind bot - nickchange do_nickchange_chanbind ctcp - ACTION do_action_botbind bot - action do_action_chanbind topc - * do_topic_botbind bot - topicchange do_topic_chanbind pub - .nets do_nets_botbind bot - REPORT do_nets_botbackbind bot - reportback do_nets_chanproc do_say_link_onoff {hand idx args} {set answer [string tolower [lindex $args 0]]if {$args == "on"} {bind bot - said do_say_chanbind bot - join do_join_chanbind bot - part do_part_chanbind bot - sign do_sign_chanbind bot - list do_chan_listbind bot - return do_say_listbind pubm - * do_say_botbind join - *!*@* do_join_botbind part - *!*@* do_part_botbind sign - *!*@* do_sign_botbind pub - .list do_chan_botbind mode - * do_mode_botbind bot - mode do_mode_chanbind nick - * do_nickchange_botbind bot - nickchange do_nickchange_chanbind ctcp - ACTION do_action_botbind bot - action do_action_chanbind topc - * do_topic_botbind bot - topicchange do_topic_chanbind pub - .nets do_nets_botbind bot - REPORT do_nets_botbackbind bot - reportback do_nets_chanputdcc $idx "Cross-Net has been enabled"return 0}if {$args == "off"} {unbind bot - said do_say_chanunbind bot - join do_join_chanunbind bot - part do_part_chanunbind bot - sign do_sign_chanunbind bot - list do_chan_listunbind bot - return do_say_listunbind pubm - * do_say_botunbind join - *!*@* do_join_botunbind part - *!*@* do_part_botunbind sign - *!*@* do_sign_botunbind pub - .list do_chan_botunbind mode - * do_mode_botunbind bot - mode do_mode_chanunbind nick - * do_nickchange_botunbind bot - nickchange do_nickchange_chanunbind ctcp - ACTION do_action_botunbind bot - action do_action_chanunbind topc - * do_topic_botunbind bot - topicchange do_topic_chanunbind pub - .nets do_nets_botunbind bot - REPORT do_nets_botbackunbind bot - reportback do_nets_chanputdcc $idx "Cross-Net has been disabled"return 0}putdcc $idx "Invalid Command"return 0}proc do_nets_bot {nick mask hand channel args} {global net chan botnick netidputallbots "REPORT $netid"putserv "PRIVMSG $chan :\-\=\[ NETS REPORT \]\=\-"putserv "PRIVMSG $chan :\[$botnick\] $net"return 0}proc do_nets_botback {from com args} {global botnick net netidset args [lindex $args 0]set nid [lindex $args 0]if {$netid == $nid} {putbot $from "reportback $netid $botnick $net"}return 0}proc do_nets_chan {from com args} {global chan netidset args [lindex $args 0]set nid [lindex $args 0]set botnick [lindex $args 1]set net [lindex $args 2]if {$netid == $nid} {putserv "PRIVMSG $chan :\[$botnick\] $net"}return 0}proc do_topic_bot {nick mask hand chan topic} {global net botnick netidputallbots "topicchange $netid $botnick $net $nick $topic"return 0}proc do_topic_chan {from com args} {global chan netidset args [lindex $args 0]set nid [lindex $args 0]set botnick [lindex $args 1]set net [lindex $args 2]set nick [lindex $args 3]set topic [lrange $args 4 end]if {$netid == $nid} {if {$botnick != $nick} {putserv "PRIVMSG $chan :\[$net\] \*\*\* $nick sets topic \"$topic\" "putserv "TOPIC $chan :$topic"}}return 0}proc do_action_bot {nick mask hand dest key args} {global net netidputallbots "action $netid $net $nick [join $args]"return 0}proc do_action_chan {from com args} {global chan netidset args [lindex $args 0]set nid [lindex $args 0]set net [lindex $args 1]set nick [lindex $args 2]set action [lrange $args 3 end]if {$netid == $nid} {putserv "PRIVMSG $chan :\[$net\] \* $nick $action"}return 0}proc do_nickchange_bot {nick mask hand chan newnick} {global net netidputallbots "nickchange $netid $net $nick $newnick $mask"return 0}proc do_nickchange_chan {from com args} {global chan netidset args [lindex $args 0]set nid [lindex $args 0]set net [lindex $args 1]set nick [lindex $args 2]set new [lindex $args 3]set mask [lindex $args 4]if {$netid == $nid} {putserv "PRIVMSG $chan :\[$net\] \*\*\* $nick is now known as $new"}return 0}proc do_mode_bot {nick mask hand chan mode} {global net netidputallbots "mode $netid $net $nick $mode"return 0}proc do_mode_chan {from com args} {global chan netidset args [lindex $args 0]set nid [lindex $args 0]set net [lindex $args 1]set nick [lindex $args 2]set mode [lrange $args 3 end]if {$netid == $nid} {putserv "PRIVMSG $chan :\[$net\] \*\*\* $nick sets mode: $mode"}return 0}proc do_chan_bot {nick mask hand chan args} {global netidset net [lindex $args 0]putallbots "list $netid $net"return 0}proc do_chan_list {from com args} {global net chan netidset list [chanlist $chan -]set args [lindex $args 0]set nid [lindex $args 0]set net2 [lindex $args 1]if {$netid == $nid} {if {$net == $net2} {set list [join $list]putbot $from "return $netid $net $list"return 0}}return 0}proc do_say_list {from com args} {global chan netidset args [lindex $args 0]set nid [lindex $args 0]set net [lindex $args 1]set clist [lrange $args 2 end]set clist [join $clist]if {$netid == $nid} {putserv "PRIVMSG $chan :\[$chan@$net\] $clist"}return 0}proc do_say_bot {nick mask hand chan text} {global net netidputallbots "said $netid $net $nick $mask $text"return 0}proc do_join_bot {nick mask hand chan} {global net netidputallbots "join $netid $net $nick $mask"return 0}proc do_sign_bot {nick host hand chan reason} {global net netid putallbots "sign $netid $net $nick $host $reason"return 0}proc do_sign_chan {from com args} {global chan netidset args [lindex $args 0]set nid [lindex $args 0]set net [lindex $args 1]set nick [lindex $args 2]set host [lindex $args 3]set reas [lrange $args 4 end]if {$netid == $nid} {putserv "PRIVMSG $chan :Signoff $nick@$net \($host\) \($reas\)"}return 0}proc do_join_chan {from com args} {global chan netidset args [lindex $args 0]set nid [lindex $args 0]set net [lindex $args 1]set nick [lindex $args 2]set host [lindex $args 3]if {$netid == $nid} {putserv "PRIVMSG $chan :\[$net\] \*\*\* Join $nick \($host\)"}return 0}proc do_part_bot {nick mask hand chan} {global net netidputallbots "part $netid $net $nick $mask"return 0}proc do_part_chan {from com args} {global chan netidset args [lindex $args 0]set nid [lindex $args 0]set net [lindex $args 1]set nick [lindex $args 2]set host [lindex $args 3]if {$netid == $nid} {putserv "PRIVMSG $chan :\[$net\] \*\*\* Part $nick \($host\)"}return 0}proc do_say_chan {from com args} {global chan netidset args [lindex $args 0]set nid [lindex $args 0]set net [lindex $args 1]set who [lindex $args 2]set mask [lindex $args 3]set what [lrange $args 4 end]if {$netid == $nid} {putserv "PRIVMSG $chan :\<$who@$net\> $what"}return 0}

Code:

Tcl error [do_part_bot]: wrong # args: should be "do_part_bot nick mask hand chan"