* Script  1 Activate(1)
scrp 2 1 54 1
	pose 1
endm

* Script  9 TIMER
scrp 2 1 54 9
	doif temp lt 20
		doif ov00 eq 0
			setv ov00 1
			gsub berg
		endi
	else
		doif ov00 eq 1
			setv ov00 0
			gsub warm
		endi
	endi
	subr berg
		setv var0 890
		setv var1 615
		inst
		reps 6
			new: simp brg2 11 0 8995 0
			setv cls2 2 3 18
			base 1
			anim [0123456789R]
			mvto var0 var1
			subv var0 125
		repe
		setv door 2 215 129 0
		setv door 2 215 130 0
	retn
	subr warm
		setv door 2 215 129 255
		setv door 2 215 130 255
		enum 2 3 18
			mesg writ targ 0
		next
		wait 50
		enum 2 3 18
			kill targ
		next
	retn
endm
