* Script  1 Activate(1)
scrp 2 13 7 1
	lock
	doif tcar eq 0
		setv attr 196
		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
		doif var0 eq 0
			stop
		endi
		doif var0 lt 0
			setv ov00 1
		else
			setv ov00 0
		endi
		setv var0 0
		sndl dog1
		reps 5
			doif ov00 eq 0
				doif var0 eq 4
					reps 2
						base 6
						anim [01234567]
						over
						snde yap1
						anim [89]
						over
					repe
					base 16
					anim [012345678]
					over
					base 25
					anim [01230]
					mvby 0 -32
					over
					base 0
					anim [0]
					mvby 0 32
				else
					doif obst 3 le 0
						setv velx -5
						setv vely -15
					endi
					base 0
					anim [012345]
					over
					setv ov02 1
				endi
			else
				doif var0 eq 4
					reps 2
						base 35
						anim [01234567]
						over
						snde yap1
						anim [89]
						over
					repe
					base 45
					anim [012345678]
					over
					base 54
					anim [01230]
					mvby 0 -32
					over
					base 29
					anim [0]
					mvby 0 32
				else
					doif obst 3 le 0
						setv velx 5
						setv vely -15
					endi
					base 29
					anim [012345]
					over
					setv ov02 1
				endi
			endi
			addv var0 1
			stim sign 100 9 100 0 36 100 42 100 44 100 45 100
		repe
		stpc
		setv attr 199
	endi
	setv actv 0
	unlk
endm

* Script  6 Colission
scrp 2 13 7 6
	snde drp9
endm

