Marsport: Routine at 8215

8215: Initalise the game for re-entrance from the menu.

Used by the routine at Main_routine.
Game_Init	8215	LD A,$FF
	8217	LD ($BD2C),A
	821A	LD A,(Area_Type)
	821D	CALL Area_CopyCurrent
	8220	LD HL,Str_Empty	Set up message display with an empty string.
	8223	CALL Message_ClearIfNoPlans	Set up message display with an empty string.
	8226	CALL Pockets_UpdateInv	Make sure the onscreen inventory is up to date.
	8229	LD HL,Stat_ResetGame	See the game needs a 'full' reset.
	822C	LD A,(HL)
	822D	AND A
	822E	JP Z,_873a
Reset
	8231	LD (HL),$00	Clear the reset flag.
	8233	LD HL,$0000	Clear any count down in action.
	8236	LD (Plans_CountDownTime),HL	Clear any count down in action.
	8239	LD HL,(Handle_Lockers)	Insert the plans into its locker.
	823C	LD DE,$00BC
	823F	ADD HL,DE
	8240	LD (HL),$3C
	8242	LD A,(_bd75)	Reset the main background colour.
	8245	LD (Area_Colour),A
	8248	LD HL,(Position_EW)
	824B	LD (_bd7e),HL
	824E	LD A,$92
	8250	LD (_bd80),A
	8253	XOR A
	8254	LD (_bd55),A
	8257	LD HL,Hero_ThroughDoor	Set hero to be coming out of a door.
	825A	LD (HL),$71
	825C	INC HL
	825D	LD (HL),$08
	825F	CALL _873a
	8262	CALL _8f6e
	8265	XOR A
	8266	JP $AFFD