Context Navigation

Ticket #135: complex-startrek.tcl.diff

File complex-startrek.tcl.diff, 1.6 KB (added by bmotion, 18 months ago)
Patch to fix the bot to respond to bot: and bot,


13	13	# in the modules directory.
14	14	###############################################################################
15	15
16		bMotion_plugin_add_complex "st-cloak" "^%botnicks cloak$" 100 "bMotion_plugin_complex_startrek_cloak" "en"
17		bMotion_plugin_add_complex "st-decloak" "^%botnicks decloak$" 100 "bMotion_plugin_complex_startrek_decloak" "en"
18		bMotion_plugin_add_complex "st-fire" "^%botnicks fire " 100 "bMotion_plugin_complex_startrek_fire" "en"
	16	bMotion_plugin_add_complex "st-cloak" "^%botnicks:?,? cloak$" 100 "bMotion_plugin_complex_startrek_cloak" "en"
	17	bMotion_plugin_add_complex "st-decloak" "^%botnicks:?,? decloak$" 100 "bMotion_plugin_complex_startrek_decloak" "en"
	18	bMotion_plugin_add_complex "st-fire" "^%botnicks:?,? fire " 100 "bMotion_plugin_complex_startrek_fire" "en"
19	19	bMotion_plugin_add_complex "st-courtmartial" "^%botnicks:?,? courtmartial " 100 "bMotion_plugin_complex_startrek_courtmartial" "en"
20	20
21	21	#cloak
…	…
45	45	#fire
46	46	proc bMotion_plugin_complex_startrek_fire { nick host handle channel text } {
47	47	global botnicks bMotionInfo
48		if [regexp -nocase "$botnicks fire (.+) at (.+)" $text pop frogs weapon target] {
	48	if [regexp -nocase "$botnicks:?,? fire (.+) at (.+)" $text pop frogs weapon target] {
49	49	set weapon [string tolower $weapon]
50	50	if {![regexp "(phasers\|torpedoe?\|photon\|quantum\|cheesecake\|everything)" $weapon]} {
51	51	if {[string range $weapon [expr [string length $weapon] - 1] end] == "s"} {