****C4 FUNKYPLANT****

new: comp 2 23 24207 "moe_c4_funkyplant" 1 80 rand 1000 2000
mvsf mopx mopy

setv va00 rand 0 3
doif va00 eq 0
	setv va01 4
elif va00 eq 1
	setv va01 23
elif va00 eq 2
	setv va01 42
elif va00 eq 3
	setv va01 61
endi

*Install Pot
scrp 2 23 24207 10
	attr 198
	elas 0
	accg 4
	bhvr 1
	perm 51
endm

scrp 2 23 24207 6
	sndc "drop"
endm

scrp 2 23 24207 1
	doif crea from eq 1
		stim writ from 90 1
	endi

	reps rand 2 3
		setv va00 posx
		subv va00 20
		setv va01 post
		addv va01 rand 20 100
		new: simp 2 8 24207 "moe_c4_funkyplant" 4 rand 0 3 rand 1000 3000
		mvsf va00 va01
		mira rand 0 1
		velo rand -5 5 rand -2 -5
		targ ownr
	repe

endm

*install
scrp 2 4 24207 10
	mira rand 0 1
	attr 197
	elas 0
	accg 4
	tick 150
	perm 51
*setv ov50 rand 0 255
*tint 128 128 128 128 ov50
endm
*timer
scrp 2 4 24207 9
	doif pose lt 12
		setv va00 pose
		addv va00 1
		pose va00
	elif pose eq 12
		wait rand 30 50
		gsub dropfruit
		pose 13
	elif pose gt 12 and pose lt 18
		setv va00 pose
		addv va00 1
		pose va00
	elif pose eq 18
		kill ownr
	endi
	subr dropfruit
		reps rand 2 3
			setv va00 posx
			setv va01 posy
			addv va01 rand -10 10
			new: simp 2 8 24207 "moe_c4_funkyplant" 4 rand 0 3 rand 1000 3000
			mvsf va00 va01
			mira rand 0 1
			velo rand -5 5 rand -2 -5
			targ ownr
		repe
	retn
endm
*activate 1
scrp 2 4 24207 1
	doif crea from eq 1
		stim writ from 84 1
	endi
endm

*activate 2
scrp 2 4 24207 2
	doif crea from eq 1
		stim writ from 84 1
	endi
endm
*hit
scrp 2 4 24207 3
	doif crea from eq 1
		stim writ from 84 1
	endi
endm

*catchall
scrp 2 4 24207 255
endm

***FRUIT***
*new: simp 2 8 24207 "moe_c4_funkyplant" 4 rand 0 3 rand 1000 3000
*mvsf mopx mopy
*
*mesg writ pntr 4

*install
scrp 2 8 24207 10
	attr 195
	elas 15
	accg 3
	bhvr 48
	tick 750
	rnge 500
	tick rand 900 1000
	emit 6 .15
	perm 51
endm
*timer
scrp 2 8 24207 9
	esee 2 4 24207
		doif targ ne null and targ ne ownr
			doif pose lt 12
				addv va00 1
			endi
		endi
	next
	targ ownr

	doif va00 lt 3
*check light, heat, water and nutrient levels
		doif prop room ownr 1 gt .2 and prop room ownr 2 gt .3 and prop room ownr 3 gt .3 and prop room ownr 4 gt .3
			gsub grow
		endi
	endi

	doif carr eq null and fall eq 0
		kill ownr
	endi

	subr grow
		setv va02 posl
		setv va03 post
		subv va03 144
		subv va02 56

		setv va00 rand 0 3
		doif va00 eq 0
			setv va01 4
		elif va00 eq 1
			setv va01 23
		elif va00 eq 2
			setv va01 42
		elif va00 eq 3
			setv va01 61
		endi

		new: simp 2 4 24207 "moe_c4_funkyplant" 19 va01 rand 1000 3000
		mvsf va02 va03
		targ ownr
		kill targ
	retn
endm
*activate 1
scrp 2 8 24207 1
	snde "chwp"
	doif crea from eq 1
		stim writ from 78 1
	endi
	kill ownr
endm
*collision
scrp 2 8 24207 6
	snde "dr12"
endm
*eat
scrp 2 8 24207 12
	snde "chwp"
	doif crea from eq 1
		stim writ from 78 1
	endi
	kill ownr
endm
*activate 2
scrp 2 8 24207 2
	snde "chwp"
	doif crea from eq 1
		stim writ from 78 1
	endi
	kill ownr
endm
*hit
scrp 2 8 24207 3
	doif crea from eq 1
*stim writ from 0 0
	endi
endm
*catchall
scrp 2 8 24207 255
endm


rscr
inst
enum 2 4 24207
	kill targ
next
*Removes all scripts for the specified agent 2 4 24207 if it exists.
*No need to micromanage. :)
loop
	doif sorq 2 4 24207 va00 eq 1
		scrx 2 4 24207 va00
	endi
	addv va00 1
untl va00 eq 2000
setv va00 0

inst
enum 2 8 24207
	kill targ
next
*Removes all scripts for the specified agent 2 8 24207 if it exists.
*No need to micromanage. :)
loop
	doif sorq 2 8 24207 va00 eq 1
		scrx 2 8 24207 va00
	endi
	addv va00 1
untl va00 eq 2000
setv va00 0

inst
enum 2 23 24207
	kill targ
next
*Removes all scripts for the specified agent 2 8 24207 if it exists.
*No need to micromanage. :)
loop
	doif sorq 2 23 24207 va00 eq 1
		scrx 2 23 24207 va00
	endi
	addv va00 1
untl va00 eq 2000
setv va00 0