* Script  1 Activate(1)
scrp 3 8 2 1
	part 2
	pose 1
	part 1
	anim [01234567R]
	doif from ne pntr
		lock
		rtar 3 8 1
		setv var8 posx
		setv var9 posy
		mesg wrt+ targ 106 0 0 0
		targ ownr
		setv var0 posl
		setv var1 post
		subv var0 39
		subv var1 39
		inst
		new: simp tele 9 21 9000 0
		setv cls2 2 1 21
		mvto var0 var1
		slow
		mesg writ targ 8
		targ from
		wait 10
		mcrt var8 var9
		slim
		setv grav 1
		targ ownr
		wait 10
		part 1
		pose 0
		setv actv 0
		unlk
	else
		lock
		rtar 3 8 1
		setv var8 posx
		setv var9 posy
		mesg wrt+ targ 106 0 0 0
		targ ownr
		setv var0 posl
		setv var1 post
		subv var0 39
		subv var1 39
		inst
		new: simp tele 9 21 9000 0
		setv cls2 2 1 21
		mvto var0 var1
		slow
		mesg writ targ 8
		wait 10
		etch 4 0 0
			mcrt var8 var9
			slim
			setv grav 1
		next
		targ ownr
		wait 10
		part 1
		pose 0
		setv actv 0
		unlk
	endi
	part 2
	pose 0
endm

* Script  2 Activate(2)
scrp 3 8 2 2
	part 3
	pose 1
	part 1
	anim [01234567R]
	doif from ne pntr
		lock
		loop
			rtar 3 8 2
		untl targ ne ownr
		setv var8 posx
		setv var9 posy
		mesg wrt+ targ 106 0 0 0
		targ ownr
		setv var0 posl
		setv var1 post
		subv var0 39
		subv var1 39
		inst
		new: simp tele 9 21 9000 0
		setv cls2 2 1 21
		mvto var0 var1
		slow
		mesg writ targ 8
		targ from
		mcrt var8 var9
		slim
		setv grav 1
		targ ownr
		wait 10
		part 1
		pose 0
		setv actv 0
		unlk
	else
		lock
		loop
			rtar 3 8 2
		untl targ ne ownr
		setv var8 posx
		setv var9 posy
		mesg wrt+ targ 106 0 0 0
		targ ownr
		setv var0 posl
		setv var1 post
		subv var0 39
		subv var1 39
		inst
		new: simp tele 9 21 9000 0
		setv cls2 2 1 21
		mvto var0 var1
		slow
		mesg writ targ 8
		wait 10
		etch 4 0 0
			mcrt var8 var9
			slim
			setv grav 1
		next
		targ ownr
		wait 10
		part 1
		pose 0
		setv actv 0
		unlk
	endi
	part 3
	pose 0
endm

scrp 3 8 2 106
	wait 2
	part 1
	anim [01234567R]
	setv var0 posl
	setv var1 post
	subv var0 39
	subv var1 10
	inst
	new: simp tele 9 21 9000 0
	setv cls2 2 1 21
	mvto var0 var1
	slow
	mesg writ targ 8
	wait 20
	targ ownr
	part 1
	pose 0
endm
