Marsport: Routine at BA1A

BA1A: Animates the winning screen.

Used by the routine at Game_MainMenu.
Game_WinScreen	BA1A	LD A,($C5CF)
	BA1D	BIT 7,A
	BA1F	JR Z,Game_WinScreen_0
	BA21	LD L,$10
	BA23	CALL _a345_28
Game_WinScreen_0	BA26	LD L,$10	Draw Marsh standing, waiting.
	BA28	LD DE,$4027
	BA2B	CALL Bitmap_SimpleBlit
	BA2E	LD B,$64	Pause...
Game_WinScreen_1	BA30	HALT
	BA31	DJNZ Game_WinScreen_1
	BA33	LD B,$32
	BA35	LD DE,$4246
Game_WinScreen_2	BA38	PUSH BC	Flash the marsport image
	BA39	LD A,E
	BA3A	LD E,D
	BA3B	LD D,A
	BA3C	PUSH DE
	BA3D	CALL Game_ColourMarsport
	BA40	CALL Pause_Short
	BA43	POP DE
	BA44	POP BC
	BA45	DJNZ Game_WinScreen_2
	BA47	LD A,$46
	BA49	CALL Game_ColourMarsport
	BA4C	LD L,$15	Draw Marsh with hands in the air.
	BA4E	LD DE,$4026
	BA51	CALL Bitmap_SimpleBlit
	BA54	LD BC,$0F05
	BA57	LD A,$4E
Game_WinScreen_3	BA59	PUSH BC	Draw explosions.
	BA5A	LD DE,$4073
Game_WinScreen_4	BA5D	PUSH BC
	BA5E	PUSH DE
	BA5F	PUSH AF
	BA60	LD L,A
	BA61	CALL Bitmap_SimpleBlit
	BA64	POP AF
	BA65	XOR $01
	BA67	POP DE
	BA68	INC DE
	BA69	INC DE
	BA6A	POP BC
	BA6B	DEC C
	BA6C	JR NZ,Game_WinScreen_4
	BA6E	CALL Pause_Short
	BA71	CALL Pause_Short
	BA74	POP BC
	BA75	DJNZ Game_WinScreen_3
	BA77	LD A,$00
	BA79	CALL Game_ColourMarsport
	BA7C	LD HL,Str_SeigeContinues	End of game text.
Game_WinScreen_5	BA7F	LD A,(HL)	Draw text slowly character by character.
	BA80	INC HL
	BA81	CP $5E
	BA83	JR Z,Game_WinScreen_6
	BA85	CALL Print_Character
	BA88	LD B,$08
	BA8A	CALL Pause_n
	BA8D	JR Game_WinScreen_5
Game_WinScreen_6	BA8F	JP Game_WinScreen_6	End, infinite loop.