TirNaNog: Routine at 7BDF

7BDF: Animate Background

Used by the routine at Vectors.
BackgroundAnimate	7BDF	LD A,($7BDC)	Tick
	7BE2	XOR $01
	7BE4	LD ($7BDC),A
	7BE7	LD A,(BgType)	Get background type. Do nothing if type 0
	7BEA	AND A
	7BEB	RET NZ
	7BEC	LD A,(CamDirection_DFD2)
	7BEF	LD HL,(AreaDataCurrent_CompassOffset)
	7BF2	ADD A,L
	7BF3	AND $03
	7BF5	CP $02
	7BF7	JP Z,BackgroundAnimate_1
	7BFA	LD HL,$7BDD
	7BFD	LD (HL),$D7
	7BFF	AND A
	7C00	JP Z,BackgroundAnimate_4
	7C03	CP $01
	7C05	JR NZ,BackgroundAnimate_0
	7C07	LD HL,$4020	Clouds facing east. There is a return in the next function.
	7C0A	JP JmpVectorRotScrBlckLeft	Clouds facing east. There is a return in the next function.
BackgroundAnimate_0	7C0D	LD HL,$403F	Clouds facing west. There is a return in the next function.
	7C10	JP JmpVectorRotScrBlckRight
BackgroundAnimate_1	7C13	LD B,$00
	7C15	LD C,$80
	7C17	LD A,($7BDD)
	7C1A	LD L,A
	7C1B	INC A
	7C1C	CP $DB
	7C1E	JR C,BackgroundAnimate_2
	7C20	LD A,$D7
BackgroundAnimate_2	7C22	LD ($7BDD),A
This entry point is used by the routine at 7C30.
BackgroundAnimate_3	7C25	XOR A
	7C26	CALL BlitBitmap_7B47
	7C29	RET
BackgroundAnimate_4	7C2A	LD A,($7BDC)
	7C2D	BIT 0,A
	7C2F	RET Z	}