new: simp 2 218 5642 "blnk" 0 1 1000
imsk 8
seta ov09 null
sets ov10 ""
sets name "Tricoder_Checked" ""

setv game "Tricoder_ChemDriv" 1

* raw mouse down
scrp 2 218 5642 76
	inst
	seta ov09 hots
	wait 2
	rtar 1 2 4
	doif targ ne null
		seta mv01 targ
		rtar 1 2 5
		doif targ ne null
			part 3
			sets mv10 ptxt
			doif mame "Tricoder_Checked" ne mv10
				seta mv00 targ
				mesg writ ownr 1000
			endi
		endi

	endi

endm

scrp 2 218 5642 1000
	inst
	targ mv09
	sets va99 "Script Output\n"

	setv va97 1
	sets va96 "Push Script\n"
	gsub category

	setv va97 2
	sets va96 "Pull Script\n"
	gsub category

	setv va97 3
	sets va96 "Hit Script\n"
	gsub category

	setv va97 12
	sets va96 "Eat Script\n"
	gsub category

***Finishing stuff
	targ mv00
	part 3
	sets mame "Tricoder_Checked" ptxt
	part 1
	sets va90 ptxt
	adds va90 "\n\n"
	adds va90 va99
	ptxt va90
	mesg writ targ 1003


	subr category
		doif sorq fmly gnus spcs va97 eq 1
***Do dumb stuff
			sets va77 caos 0 0 targ va97 "targ _p1_ sets va33 sorc fmly gnus spcs _p2_ targ va33" 0 1 va80
			doif va80 ne "Incompatible type: agent expected"
				sets va77 caos 0 0 targ va97 "targ _p1_ sets va33 sorc fmly gnus 0 _p2_ targ va33" 0 1 va80
				doif va80 ne "Incompatible type: agent expected"
					targ mv09
					sets va00 sorc fmly 0 0 va97
				else
					targ mv09
					sets va00 sorc fmly gnus 0 va97
				endi
			else
				targ mv09
				sets va00 sorc fmly gnus spcs va97
			endi
			adds va99 va96
*Chem & Driv first(will need special checks)
			sets va20 "driv"
			gsub special
			sets va20 "chem"
			gsub special

*Stims
			sets va20 "stim shou"
			gsub stim
			sets va20 "stim sign"
			gsub stim
			sets va20 "stim tact"
			gsub stim
			sets va20 "stim writ"
			gsub stim2

*Sways

			sets va20 "sway shou"
			gsub sway
			sets va20 "sway sign"
			gsub sway
			sets va20 "sway tact"
			gsub sway
			sets va20 "sway writ"
			gsub sway2

			adds va99 "\n"

		endi
	retn

	subr stim
		setv va01 1
		loop
			setv va10 sins va00 va01 va20
			doif va10 ne -1
				setv va01 va10
				addv va01 strl va20

				setv va02 sins va00 va01 " "
				setv va01 va02
				addv va01 1

				setv va03 sins va00 va01 " "
				setv va01 va03
				addv va01 1

				setv va04 sins va00 va01 " "
				setv va01 va04

				setv va55 va01
				subv va55 va10

				adds va99 subs va00 va10 va55
				adds va99 "\n"

			endi
		untl va10 eq -1
	retn

	subr stim2
		setv va01 1
		loop
			setv va10 sins va00 va01 va20
			doif va10 ne -1
				setv va01 va10
				addv va01 strl va20

				setv va02 sins va00 va01 " "
				setv va01 va02
				addv va01 1

				setv va03 sins va00 va01 " "
				setv va01 va03
				addv va01 1

				setv va04 sins va00 va01 " "
				setv va01 va04
				addv va01 1

				setv va05 sins va00 va01 " "
				setv va01 va05

				setv va55 va01
				subv va55 va10

				adds va99 subs va00 va10 va55
				adds va99 "\n"

			endi
		untl va10 eq -1
	retn
*Sway is longer than all the stim commands
	subr sway
		setv va01 1
		loop
			setv va10 sins va00 va01 va20
			doif va10 ne -1
				setv va01 va10
				addv va01 strl va20

				setv va02 sins va00 va01 " "
				setv va01 va02
				addv va01 1

				setv va03 sins va00 va01 " "
				setv va01 va03
				addv va01 1

				setv va04 sins va00 va01 " "
				setv va01 va04
				addv va01 1

				setv va05 sins va00 va01 " "
				setv va01 va05
				addv va01 1

				setv va06 sins va00 va01 " "
				setv va01 va06
				addv va01 1

				setv va07 sins va00 va01 " "
				setv va01 va07
				addv va01 1

				setv va08 sins va00 va01 " "
				setv va01 va08
				addv va01 1

				setv va09 sins va00 va01 " "
				setv va01 va09

				setv va55 va01
				subv va55 va10

				adds va99 subs va00 va10 va55
				adds va99 "\n"

			endi
		untl va10 eq -1
	retn

*Sway is longer than all the stim commands
	subr sway2
		setv va01 1
		loop
			setv va10 sins va00 va01 va20
			doif va10 ne -1
				setv va01 va10
				addv va01 strl va20

				setv va02 sins va00 va01 " "
				setv va01 va02
				addv va01 1

				setv va03 sins va00 va01 " "
				setv va01 va03
				addv va01 1

				setv va04 sins va00 va01 " "
				setv va01 va04
				addv va01 1

				setv va05 sins va00 va01 " "
				setv va01 va05
				addv va01 1

				setv va06 sins va00 va01 " "
				setv va01 va06
				addv va01 1

				setv va07 sins va00 va01 " "
				setv va01 va07
				addv va01 1

				setv va08 sins va00 va01 " "
				setv va01 va08
				addv va01 1

				setv va09 sins va00 va01 " "
				setv va01 va09
				addv va01 1

				setv va11 sins va00 va01 " "
				setv va01 va11

				setv va55 va01
				subv va55 va10

				adds va99 subs va00 va10 va55
				adds va99 "\n"

			endi
		untl va10 eq -1
	retn


	subr special
		doif game "Tricoder_ChemDriv" eq 1
			setv va01 1
			loop
				setv va10 sins va00 va01 va20
				doif va10 ne -1
					setv va01 va10
					addv va01 strl va20

					setv va02 sins va00 va01 " "
					setv va01 va02
					addv va01 1

					setv va03 sins va00 va01 " "
					setv va01 va03
					addv va01 1

					setv va04 sins va00 va01 " "
					setv va01 va04

					setv va55 va01
					subv va55 va10

					adds va99 subs va00 va10 va55
					adds va99 "\n"

				endi
			untl va10 eq -1
		endi
	retn
endm

rscr
inst
enum 2 218 5642
	kill targ
next
scrx 2 218 5642 1000
scrx 2 218 5642 255