A302: Action: Burn
| ActionBurn |
A302 |
LD A,($B6EA) |
|
A305 |
CP $3C |
|
A307 |
JP NZ,$9F76 |
|
A30A |
CALL $9D44 |
|
A30D |
JP $977C |
|
A310 |
CALL $9D44 |
|
A313 |
LD HL,$B0B4 |
| ActionBurn_0 |
A316 |
CALL PrintMsg |
|
A319 |
LD A,($B6EA) |
|
A31C |
PUSH AF |
|
A31D |
AND A |
|
A31E |
LD HL,$ADA9 |
|
A321 |
CALL Z,PrintMsg |
|
A324 |
POP AF |
|
A325 |
JP $977F |
|
A328 |
CALL $9D44 |
|
A32B |
LD HL,$B0F8 |
|
A32E |
JR ActionBurn_0 |
|
A330 |
LD B,$02 |
|
A332 |
JR ActionBurn_1 |
|
A334 |
LD B,$0F |
|
A336 |
JR ActionBurn_1 |
|
A338 |
LD B,$04 |
| ActionBurn_1 |
A33A |
LD A,($B6E9) |
|
A33D |
CP B |
|
A33E |
JR NZ,ActionBurn_2 |
|
A340 |
LD A,($B6E7) |
|
A343 |
CP $25 |
|
A345 |
JP Z,Action_Examine_4 |
|
A348 |
JP Action_Examine_6 |
| ActionBurn_2 |
A34B |
CP $02 |
|
A34D |
JR Z,ActionBurn_3 |
|
A34F |
CP $04 |
|
A351 |
JR Z,ActionBurn_3 |
|
A353 |
CP $0F |
|
A355 |
JP NZ,ICannotDoThat |
| ActionBurn_3 |
A358 |
LD HL,$B02D |
|
A35B |
JP PrintMsg |
|
A35E |
CALL $97FF |
|
A361 |
LD IX,($B708) |
|
A365 |
JP $9117 |
|
A368 |
LD IX,($B70C) |
|
A36C |
LD A,(IX+$10) |
|
A36F |
CP $0F |
|
A371 |
JP NZ,$9F76 |
|
A374 |
JP $910E |
|
A377 |
LD IX,($B708) |
|
A37B |
BIT 3,(IX+$07) |
|
A37F |
RET Z |
|
A380 |
SET 5,(IX+$07) |
|
A384 |
LD A,($CA8B) |
|
A387 |
LD ($CA8C),A |
|
A38A |
LD HL,$B099 |
|
A38D |
JP PrintMsg |
|
A390 |
CALL $9D44 |
|
A393 |
LD IY,($B70C) |
|
A397 |
LD IX,$C31A |
|
A39B |
RES 7,(IY+$07) |
|
A39F |
SRL (IY+$05) |
|
A3A3 |
SRL (IY+$05) |
|
A3A7 |
RES 7,(IX+$07) |
|
A3AB |
LD A,($B6EA) |
|
A3AE |
LD (IX+$01),A |
|
A3B1 |
LD A,$08 |
|
A3B3 |
CALL GetRandomNum |
|
A3B6 |
ADD A,$02 |
|
A3B8 |
LD ($CAAF),A |
|
A3BB |
RET |
| ActionBurn_4 |
A3BC |
LD IX,($B70C) |
|
A3C0 |
LD IY,$C31A |
|
A3C4 |
BIT 7,(IY+$07) |
|
A3C8 |
LD HL,$B074 |
|
A3CB |
JP NZ,PrintMsg |
|
A3CE |
CALL $9D44 |
|
A3D1 |
SET 7,(IY+$07) |
|
A3D5 |
SET 7,(IX+$07) |
|
A3D9 |
SLA (IX+$05) |
|
A3DD |
SLA (IX+$05) |
|
A3E1 |
SUB A |
|
A3E2 |
LD ($CAAF),A |
|
A3E5 |
RET |
