I wonder the mistake is here :)

[CrazyCat]

Ok, I'm back with my ctcr trouble, but with a beginning of response:

the trouble come from: bind raw - Notice client:connect

this bind blocks all NOTC and CTCR binds (I didn't test others)

can someone help me debbuging this?
the procedure is:

Code: Select all

proc client:connect {from word text} {
	global botnick
	if {[string first "connecting" $text] > 0} {
		set b_nick [string first ":***" $text]
		set b_nick [string first ": " $text $b_nick]
		incr b_nick 2
		set e_nick [string first " (" $text $b_nick]
		incr e_nick -1
		set victim [string range $text $b_nick $e_nick]
		if { $botnick == $victim } {
			return 0
		} else {
			putserv "PRIVMSG $victim :\001VERSION\001"
		}
	} else {
		return 0
	}
}

[CrazyCat]

I correct my bind ))
using bind raw - Notice proc:name blocks all the bind NOTC or CTCR...
So I try a lot of things... and finally find:
bind raw - NOTICE proc:name is ok: capitals must be use!!!

[egghead]

thats odd indeed...

activating the "bind RAW - NoTiCe raw:notice" by removing the "###" will demonstate what you have found.

Code: Select all

bind ctcr - VERSION client:version 

proc client:version { nick uhost hand dest key text } { 
   putlog "got VERSION reply from $nick" 
} 

### bind RAW - NoTiCe raw:notice

proc raw:notice { from key text } {
   putlog "NoTiCe: $from - $key - $text"
   return 0
}

bind RAW - NOTICE raw:notice2

proc raw:notice2 { from key text } {
   putlog "NOTICE: $from - $key - $text"
   return 0
}

bind DCC - versionme dcc:versionme

proc dcc:versionme { hand idx text } {
   global botnick
   puthelp "NOTICE $botnick :\001VERSION mad eggdrop\001"
}