cims-eggdrop/test.tcl

bind pub - .send test:send

bind bot - test_receive		test:receive


proc test:put_chan {chan text} {
	puthelp "PRIVMSG $chan :$text"
}


proc test:send {nick mask hand chan text} {

	putlog "test send: $text"
	
	putallbots "test_receive $chan $text"

}


proc test:receive {from_botnick cmd sent_data} {
        
	set data1	[lindex $sent_data 0]
	set data2	[lrange $sent_data 1 end]


	putlog "test receive: $sent_data"
	putlog "test data1: $data1"
	putlog "test data2: $data2"
	
	test:put_chan #quad.tc "from $from_botnick: $sent_data"
	
#	mnet:put_local_netmessage $network $name $chan $rec_nickname $rec_channel $rec_text


}


putlog "tester loaded"