68B1: Animate explosion
| AnimateExplosion |
68B1 |
LD HL,$5DCB |
|
68B4 |
INC (HL) |
|
68B5 |
LD C,(IX+$04) |
|
68B8 |
LD B,(IX+$05) |
|
68BB |
LD A,($5DCC) |
|
68BE |
AND B |
|
68BF |
JR NZ,AnimateExplosion_0 |
|
68C1 |
INC (IX+$04) |
| AnimateExplosion_0 |
68C4 |
LD A,C |
|
68C5 |
SLA C |
|
68C7 |
LD B,$00 |
|
68C9 |
LD HL,$690F |
|
68CC |
ADD HL,BC |
|
68CD |
LD E,(HL) |
|
68CE |
INC HL |
|
68CF |
LD D,(HL) |
|
68D0 |
LD L,(IX+$01) |
|
68D3 |
LD H,(IX+$02) |
|
68D6 |
CP $06 |
|
68D8 |
JR NC,AnimateExplosion_1 |
|
68DA |
CP $03 |
|
68DC |
JR NC,AnimateExplosion_2 |
|
68DE |
CALL $729B |
|
68E1 |
LD A,($5DCE) |
|
68E4 |
AND $07 |
|
68E6 |
OR $42 |
|
68E8 |
LD (IX+$03),A |
|
68EB |
JP ColouriseSprite |
| AnimateExplosion_1 |
68EE |
LD A,(IX+$06) |
|
68F1 |
LD (IX+$00),A |
|
68F4 |
CALL StoreEntity |
|
68F7 |
CALL $72A5 |
|
68FA |
LD (IX+$00),$00 |
|
68FE |
LD A,(IX+$06) |
|
6901 |
AND $3F |
|
6903 |
CP $03 |
|
6905 |
JP C,PlayerReset |
|
6908 |
RET |
| AnimateExplosion_2 |
6909 |
CALL $722A |
|
690C |
JP $72A8 |
