* Script  1 Activate(1)
scrp 3 4 4 1
	setv var0 posl
	setv var1 post
	part 1
	anim [0121R]
	rndv var2 0 1
	doif var2 eq 0
		snde hrn1
	else
		snde hrn2
	endi
	reps 5
		rndv var3 2 4
		part var3
		anim [01210]
		wait 1
		inst
		new: simp horn 12 13 7000 0
		setv cls2 2 1 47
		setv attr 16
		rndv var2 0 2
		mulv var2 4
		base var2
		pose 0
		mvto var0 var1
		slow
		rndv var2 -3 -1
		setv vely var2
		rndv velx -3 3
		mesg writ targ 8
		setv var4 var0
		rndv var6 30 80
		addv var4 var6
		setv var5 var1
		inst
		new: simp horn 9 25 9000 0
		setv cls2 2 3 28
		setv attr 64
		mvto var4 var5
		slow
		anim [012]
		slim
		mesg writ targ 8
		targ ownr
	repe
	part 1
	pose 0
	setv actv 0
endm

* Script  2 Activate(2)
scrp 3 4 4 2
	setv var0 posl
	setv var1 post
	stim shou 0 255 0 0 36 20 42 20 44 20 45 20
	part 1
	anim [0121R]
	rndv var2 0 1
	doif var2 eq 0
		snde hrn1
	else
		snde hrn2
	endi
	reps 5
		rndv var3 2 4
		part var3
		anim [01210]
		wait 1
		inst
		new: simp horn 12 13 7000 0
		setv cls2 2 1 47
		setv attr 16
		rndv var2 0 2
		mulv var2 4
		base var2
		pose 0
		mvto var0 var1
		slow
		rndv var2 -3 -1
		setv vely var2
		rndv velx -3 3
		mesg writ targ 8
		setv var4 var0
		rndv var6 30 80
		addv var4 var6
		setv var5 var1
		inst
		new: simp horn 9 25 9000 0
		setv cls2 2 3 28
		setv attr 64
		mvto var4 var5
		slow
		anim [012]
		slim
		mesg writ targ 8
		targ ownr
	repe
	part 1
	pose 0
	setv actv 0
endm

