Why doesn't it work ?

[BaZz]

Hi,

This script work perfectly on eggdrop 1.4.x and below, but not on eggdrop 1.6.x
The error is : TCL error [ezbncpass_notc]: called "ezbncpass_notc" with too many arguments

The code is :
set pass "blah"

set irc_servers {
irc-1.stealth.net:5554
}

set vhost "blah.com"

set ezbncpass "Please use /quote PASS <password> to register"
set ezbnc2pass "Please use /quote PASS <password> to register..."
set bncpass "You need to say /quote PASS <password>"

set serv 0

bind notc - $ezbncpass ezbncpass_notc
bind notc - $ezbnc2pass ezbncpass_notc
bind notc - $bncpass bncpass_notc

proc ezbncpass_notc {nick host hand text} {
global pass ircserver vhost irc_servers sers serv
putserv "PASS $pass"
putserv "VHOST $vhost"
putserv "CONN [lindex $irc_servers $serv]"
}

proc bncpass_notc {nick host hand text} {
global pass ircserver vhost irc_servers sers serv
putserv "PASS $pass"
putserv "VIP $vhost"
putserv "CONN [lindex $irc_servers $serv]"
}

Thanks in advance.

[BaZz]

Nobody knows ? Incredible ..

[Petersen]

Ohh, we do know. We're just waiting for you to read the manual.

quote from doc/tcl-commands.doc 1.6.x version

Code: Select all

  (7)  NOTC   (stackable)
       bind notc <flags> <mask> <proc>
|      procname <nick> <user@host> <handle> <text> <dest>

|      destination will be a nickname (the bot's nickname, obviously) or
|      a channel name; matches the entire line of text from a /notice with
       the mask; it is considered a breach of protocol to respond to a
       /notice on IRC, so this is intended for internal use (ie, logging, etc)
       only

|      new Tcl procs should be declared as
|      proc notcproc {nick uhost hand text {dest ""}} {
|        global botnick; if {$dest==""} { set dest $botnick }
|        ...
|      }
|      for compatiblity