Prev: A302 Up: Map Next: A541
A3E6: Action: Capture
ActionCapture A3E6 LD IX,($B708)
A3EA LD A,(IX+$04)
A3ED AND $70
A3EF PUSH IX
A3F1 LD IX,($B70C)
A3F5 AND (IX+$04)
A3F8 POP IX
A3FA JP NZ,$9F76
A3FD BIT 6,(IX+$07)
A401 JP Z,$9F76
A404 LD A,($B6EA)
A407 LD B,$1F
A409 CP $40
A40B JR Z,ActionCapture_0
A40D CP $42
A40F JR Z,ActionCapture_0
A411 LD B,$0D
ActionCapture_0 A413 LD A,($B6F6)
A416 CP B
A417 JP Z,$9F76
A41A CALL $9D44
A41D LD IX,($B708)
A421 LD (IX+$10),B
A424 LD (IX+$01),$FF
A428 LD A,($B6E8)
A42B CALL $9BDD
A42E LD A,($B6E8)
A431 CP $00
A433 RET NZ
A434 LD ($B6EA),A
A437 LD HL,$C11B
A43A LD ($B70C),HL
A43D CALL LocationLit
A440 RET C
A441 LD A,B
A442 LD HL,$AFFC
A445 JP YouSeeWrapper
A448 LD IX,($B708)
A44C BIT 3,(IX+$07)
A450 RET Z
A451 RES 3,(IX+$07)
A455 LD DE,$0006
A458 LD IY,$A49C
A45C LD A,($B6E8)
ActionCapture_1 A45F CP (IY+$00)
A462 JR Z,ActionCapture_2
A464 ADD IY,DE
A466 JR ActionCapture_1
ActionCapture_2 A468 PUSH IY
ActionCapture_3 A46A POP HL
A46B INC HL
A46C LD E,(HL)
A46D INC HL
A46E LD D,(HL)
A46F LD (DE),A
A470 INC HL
A471 LD A,(HL)
A472 LD (IX+$10),A
A475 INC HL
A476 LD A,(HL)
A477 LD (IX+$0A),A
A47A INC HL
A47B LD A,(HL)
A47C LD (IX+$0B),A
A47F LD HL,$B068
A482 CALL PrintMsg
A485 LD A,($C12B)
A488 CP B
A489 RET NZ
A48A LD DE,$005E
A48D CALL PrintToken
A490 LD DE,$02E2
A493 CALL PrintToken
A496 LD HL,$B018
A499 JP PrintMsg
A49C DEC A
A49D JR ActionCapture_3
A49F RRCA
A4A0 LD L,D
A4A1 INC B
A4A2 LD B,L
A4A3 RRA
A4A4 SRL D
A4A6 SCF
A4A7 INC BC
A4A8 LD C,C
A4A9 DEC L
A4AA RL D
A4AC LD H,C
A4AD INC BC
A4AE LD C,D
A4AF INC (HL)
A4B0 SRL B
A4B2 INC (HL)
A4B3 INC B
A4B4 LD C,E
A4B5 LD H,$CB
A4B7 LD B,B
A4B8 LD B,C
A4B9 RLCA
A4BA LD C,H
A4BB DEC SP
A4BC RL B
A4BE OR (HL)
A4BF LD BC,$2ADD
A4C2 INC C
A4C3 OR A
A4C4 LD A,(IX+$10)
A4C7 CP $10
A4C9 JP NZ,$9F76
A4CC CALL $910E
A4CF CALL $97FF
A4D2 LD A,($CA99)
A4D5 LD ($CA9A),A
A4D8 RET
A4D9 LD HL,$C34B
A4DC RES 5,(HL)
A4DE RET
A4DF CALL $9D44
A4E2 LD A,$0A
A4E4 CALL GetRandomNum
A4E7 LD HL,$B0A6
A4EA CP $08
A4EC JP NC,DisplayExits_14
A4EF LD HL,$B047
A4F2 JP DisplayExits_14
A4F5 CALL $9D44
A4F8 LD HL,$B04B
A4FB JP DisplayExits_14
A4FE CALL $9D44
A501 LD A,$02
A503 CALL GetRandomNum
A506 LD HL,$B052
A509 CP $00
A50B JP Z,DisplayExits_14
A50E LD HL,$B05B
A511 CP $01
A513 JP Z,DisplayExits_14
A516 LD HL,$B05F
A519 JP DisplayExits_14
A51C CALL $9D44
A51F LD HL,$B061
A522 JP DisplayExits_14
A525 LD A,($B6F6)
A528 LD HL,$B6F5
A52B CP (HL)
A52C RET NZ
A52D CALL $9D44
A530 LD HL,$B05F
A533 JP DisplayExits_14
A536 LD A,($B6EA)
A539 CP $40
A53B JP NZ,$9F76
A53E JP $910E
Prev: A302 Up: Map Next: A541