* Script  1 Activate(1)
scrp 2 1 50 1
	snde wat1
	anim [001100110011]
	targ ov00
	setv var1 ov01
	setv var2 ov02
	setv var3 ov03
	setv var4 ov04
	setv var5 0
	doif var2 gt var1
		addv var5 1
		doif var3 gt var2
			addv var5 1
			doif var4 gt var3
				addv var5 1
			endi
		else
			doif var4 gt var2
				addv var5 2
			endi
		endi
	else
		doif var3 gt var1
			addv var5 2
			doif var4 gt var3
				addv var5 1
			endi
		else
			doif var4 gt var1
				addv var5 3
			endi
		endi
	endi
	doif var2 ne 0
		doif var2 lt 8
			addv var2 10
		else
			doif var2 eq 10
				addv var2 49
			else
				addv var2 47
			endi
		endi
	endi
	doif var3 ne 0
		doif var3 lt 3
			addv var3 72
		else
			doif var3 lt 4
				addv var3 76
			else
				doif var3 lt 5
					addv var3 93
				else
					doif var3 lt 8
						addv var3 138
					else
						doif var3 eq 10
							addv var3 160
						else
							addv var3 142
						endi
					endi
				endi
			endi
		endi
	endi
	doif var4 ne 0
		doif var4 lt 5
			addv var4 231
		else
			addv var4 148
		endi
	endi
	rtar 2 1 49
	mulv var5 10
	addv var5 1
	base var5
	setv ov01 var1
	setv ov02 var2
	setv ov03 var3
	setv ov04 var4
	mesg writ targ 0
	targ ownr
	mesg wrt+ ov00 105 0 0 0
	setv actv 0
endm
