* Script  9 TIMER
scrp 2 25 4 9
	setv var0 posl
	setv var1 post
	doif carr eq 0
		doif grav eq 0
			inst
			new: simp pear 1 56 1110 0
			setv cls2 2 11 4
			setv attr 199
			bhvr 0 67
			setv puhl -1 15 12
			tick 1000
			mvto var0 var1
			slim
			slow
			targ ownr
			kill ownr
		endi
	endi
endm

* Script 
scrp 2 25 4 12
	snde chwp
	stim writ from 0 255 0 0 73 100 37 150 74 80 0 0
	kill ownr
endm
