The Way Of The Exploding Fist: Routine at AB70

AB70: Demo Mode

Used by the routine at Main_Game.
Demo_Mode	AB70	XOR A	A=00
	AB71	LD ($B05F),A	Write 00 to; Current_Rank Num_Players
	AB74	LD ($9C2C),A	Write 00 to; Current_Rank Num_Players
	AB77	CALL Random_Number	Call Random_Number.
	AB7A	AND $03
	AB7C	ADD A,$07
	AB7E	LD ($AA94),A
	AB81	CALL Random_Number
	AB84	AND $03
	AB86	ADD A,$07
	AB88	LD ($AA80),A
	AB8B	LD A,$01	Write 01 to; AA46 Is_Demo_Mode
	AB8D	LD ($AA46),A
	AB90	LD ($AA06),A
	AB93	INC A	Write 02 to; AF34
	AB94	LD ($AF34),A	Write 02 to; AF34
Demo_Mode_0	AB97	LD A,($AF34)	AF34.
	AB9A	CALL $9200
	AB9D	LD HL,$0222	Point to Text_Demo and call Print_String.
	ABA0	LD DE,$B039
	ABA3	CALL Print_String
	ABA6	LD HL,$B035	Point to Hi_Score and call Print_HighScore.
	ABA9	CALL Print_HighScore	Point to Hi_Score and call Print_HighScore.
	ABAC	CALL New_Round	Call New_Round.
	ABAF	CALL Init_Time	Call Init_Time.
	ABB2	XOR A	Write 00 to; 9C2B
	ABB3	LD ($9C2B),A	Write 00 to; 9C2B
	ABB6	CALL Demo_Mode_1	Call Demo_Mode_1.
	ABB9	AND A
	ABBA	RET M
	ABBB	CALL $AF27
	ABBE	LD HL,$B05F	Point to Current_Rank and increment it by 1.
	ABC1	INC (HL)	Point to Current_Rank and increment it by 1.
	ABC2	LD A,(HL)	If this value is not 04 then jump to Demo_Mode_0.
	ABC3	CP $04
	ABC5	JR NZ,Demo_Mode_0
	ABC7	RET	Else, return.
Demo_Mode_1	ABC8	CALL Start_1UP_Game_24
	ABCB	AND A
	ABCC	RET M
	ABCD	CALL $AF01
	ABD0	JR Z,Demo_Mode_3
	ABD2	CALL Yin_Yang_1UP
	ABD5	CALL $AF36
	ABD8	LD A,($AA03)
	ABDB	AND A
	ABDC	JR Z,Demo_Mode_2
	ABDE	LD A,($AA41)
	ABE1	CP $04
	ABE3	JR C,Demo_Mode_3
	ABE5	CALL Start_1UP_Game_33
	ABE8	XOR A
	ABE9	RET
Demo_Mode_2	ABEA	LD A,($AA01)
	ABED	CP $04
	ABEF	JR NC,Demo_Mode_4
Demo_Mode_3	ABF1	XOR A
	ABF2	LD ($AA08),A
	ABF5	LD ($AA48),A
	ABF8	LD A,($9C2B)
	ABFB	AND A
	ABFC	JR Z,Demo_Mode_1
	ABFE	XOR A
	ABFF	RET
Demo_Mode_4	AC00	CALL Start_1UP_Game_30
	AC03	XOR A
	AC04	RET