** Lemon Eat Script
scrp 2 8 7 12
	lock
** Lemon Eat sound
	snde "leat"
	seta ov90 null
	seta ov90 from
** check to see whether it's been eaten yet
	doif name "eaten" = "no"
		gsub benechems
		targ ownr
** Change to eaten pose
		pose 1
** record that it's been eaten
		sets name "eaten" "yes"
	elif name "eaten" = "yes"
		gsub benechems
		kill ownr
	endi
	subr benechems
		inst
		doif ov90 <> null
		*this is all the 'patch' is: the check that only performs these actions on a creature
			doif type ov90 eq 7
				targ ov90
	** Antihistamine
				setv va01 itof rand 1 4
				divv va01 10.0
				chem 100 va01
	** Antibodies
				setv va02 102
				loop
					setv va00 chem va02
					setv va01 itof rand 1 2
					divv va01 10.0
					chem va02 va01
					addv va02 1
				untl va02 = 110
				stim writ targ 78 1
			endi
		endi
		slow
	retn
endm