* Script  1 Activate(1)
scrp 2 13 6 1
	stim writ from 0 9 100 0 36 100 42 100 44 100 45 100
	targ from
	setv var0 relx
	targ ownr
	doif from eq pntr
		subv var0 19
	endi
	setv ov01 30
	sndl car1
	doif var0 lt 0
		setv ov00 1
		base 5
		anim [1234R]
		tick 2
	endi
	doif var0 gt 0
		setv ov00 0
		base 0
		anim [1234R]
		tick 2
	endi
endm

* Script  6 Colission
scrp 2 13 6 6
	doif actv eq 0
		snde drp6
	endi
	doif wall eq 0
		setv ov00 1
		base 5
		anim [1234R]
	endi
	doif wall eq 1
		setv ov00 0
		base 0
		anim [1234R]
	endi
	doif ov01 le 0
		tick 0
		base 0
		doif ov00 eq 0
			pose 0
		else
			pose 5
		endi
		setv actv 0
	endi
endm

* Script  9 TIMER
scrp 2 13 6 9
	stim sign 100 9 100 0 36 100 42 100 44 100 45 100
	doif obst 3 le 0
		setv vely -11
		doif ov00 eq 0
			setv velx -10
		else
			setv velx 10
		endi
	endi
	subv ov01 1
	doif ov01 le 0
		stpc
		tick 0
		base 0
		doif ov00 eq 0
			pose 0
		else
			pose 5
		endi
		setv actv 0
	endi
endm
