egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2001-12-21T23:02:00-04:00 https://forum.eggheads.org/app.php/feed/topic/649 2001-12-21T23:02:00-04:00 2001-12-21T23:02:00-04:00 https://forum.eggheads.org/viewtopic.php?p=3018#p3018 <![CDATA[Why doesn't it work ?]]>
quote from doc/tcl-commands.doc 1.6.x version

Code: 

  (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

Statistics: Posted by Petersen — Fri Dec 21, 2001 11:02 pm

]]> 2001-12-21T03:00:00-04:00 2001-12-21T03:00:00-04:00 https://forum.eggheads.org/viewtopic.php?p=2989#p2989 <![CDATA[Why doesn't it work ?]]>

Statistics: Posted by Guest — Fri Dec 21, 2001 3:00 am

]]> 2001-12-18T13:29:00-04:00 2001-12-18T13:29:00-04:00 https://forum.eggheads.org/viewtopic.php?p=2916#p2916 <![CDATA[Why doesn't it work ?]]>
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.

Statistics: Posted by Guest — Tue Dec 18, 2001 1:29 pm

]]>