* 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
