PSSST: Routine at 7262

7262: Routine at 7262

Used by the routine at NewActor.
7262	PUSH HL	Stash HL on the stack.
7263	EX DE,HL	Switch DE and HL.
7264	LD HL,$5F16	Copy 08 bytes of data from 5F16 to DE.
7267	LD BC,$0008
726A	LDIR
726C	POP IX	Restore IX from the stack (the old value in HL).
726E	LD A,($5E13)	A=5E13.
7271	CP $05
7273	JR NC,$72CC
7275	LD (IX+$01),$08
7279	SET 6,(IX+$00)
727D	RRCA
727E	RRCA
727F	RRCA
7280	AND %11100000	Keep only bits 5-7.
7282	ADD A,$37
7284	LD (IX+$02),A
7287	LD A,($5E37)	A=ActivePlayer_Level.
728A	CP $01
728C	JR Z,$72D4
728E	CP $02
7290	JR Z,$72DA
7292	CP $03
7294	JR Z,$72E1
7296	CP $04
7298	JR C,$729C
729A	LD A,R
729C	AND %00000011	Keep only bits 0-1.
729E	LD C,A
729F	SLA A
72A1	ADD A,C
72A2	LD C,A
72A3	LD B,$00
72A5	LD HL,$72E9	HL=72E9.
72A8	ADD HL,BC
72A9	LD A,(HL)
72AA	LD (IX+$00),A
72AD	INC HL
72AE	LD A,($5E19)	A=RandomNumber.
72B1	BIT 6,A
72B3	JR Z,$72B6
72B5	INC HL
72B6	LD A,(HL)
72B7	LD (IX+$03),A
72BA	LD E,$00
72BC	LD HL,$5E6E	HL=State_Robbie_Pos_Y.
72BF	CALL BugCollision_0
72C2	DEC E
72C3	JR NZ,$72C9
72C5	LD (IX+$00),$00
72C9	JP NewActor_3	Jump to NewActor_3.
Who knows.
72CC	LD (IX+$01),$E0
72D0	SUB $05
72D2	JR $727D
72D4	LD A,R
72D6	AND %00000001	Keep only bit 0.
72D8	JR $729C
72DA	LD A,R
72DC	AND %00000001	Keep only bit 0.
72DE	INC A
72DF	JR $729C
72E1	LD A,R
72E3	AND %00000001	Keep only bit 0.
72E5	OR $02
72E7	JR $729C	Jump to 729C.
72E9	DEFB $07,$44,$45
72EC	DEFB $0A,$41,$42
72EF	DEFB $09,$46,$43
72F2	DEFB $07,$44,$45