![]() |
Routines |
Prev: 30543 | Up: Map |
|
|||||||||
30555 | LD A,(54546) | Pick up byte 18 of buffer 213 (BOY WANDER's pellet) | |||||||
30558 | AND A | Is there a uninterruptible subcommand routine address in bytes 17 and 18 of the buffer? | |||||||
30559 | RET NZ | Return if so (this buffer is in use) | |||||||
30560 | LD L,A | L=0 | |||||||
30561 | BIT 0,(HL) | Is BOY WANDER midstride? | |||||||
30563 | RET NZ | Return if so | |||||||
30564 | INC L | L=1 | |||||||
30565 | LD A,(HL) | A=BOY WANDER's x-coordinate | |||||||
30566 | AND 3 | Return unless BOY WANDER's x-coordinate is divisible by 4 | |||||||
30568 | RET NZ | ||||||||
30569 | CALL 30543 | Is BOY WANDER exactly on the top, middle, or bottom floor? | |||||||
30572 | RET NZ | Return if not | |||||||
30573 | CALL 25233 | A=random number | |||||||
30576 | RRCA | Return half the time | |||||||
30577 | RET NC | ||||||||
30578 | CALL 28004 | Can any adults see BOY WANDER? | |||||||
30581 | RET C | Return if so | |||||||
30582 | POP BC | Drop the return address (25431) | |||||||
30583 | POP BC | Pop the value of HL that was pushed on to the stack by the routine at 25296 before coming here; RET will now take us back either to 25296 to move the next character, or to the main loop | |||||||
30584 | CALL 25012 | Update the SRB for BOY WANDER's current animatory state and location | |||||||
30587 | LD L,20 | Store BOY WANDER's current animatory state in byte 20 of his buffer for the time being | |||||||
30589 | LD (HL),A | ||||||||
30590 | AND 240 | ||||||||
30592 | ADD A,10 | A=26 or 154: BOY WANDER raising his arm to fire | |||||||
30594 | CALL 30534 | Update BOY WANDER's animatory state and hand over to 30597 (below) | |||||||
30597 | CALL 25012 | Update the SRB for BOY WANDER's current animatory state | |||||||
30600 | INC A | A=27 or 155: BOY WANDER firing the catapult | |||||||
30601 | CALL 30534 | Update BOY WANDER's animatory state and hand over to 30604 (below) | |||||||
30604 | LD L,17 | Place the address of the uninterruptible subcommand routine at 30643 into bytes 17 and 18 of BOY WANDER's buffer | |||||||
30606 | LD (HL),179 | ||||||||
30608 | LD A,(54546) | Pick up byte 18 of buffer 213 (BOY WANDER's pellet) | |||||||
30611 | AND A | Is this buffer already being used? | |||||||
30612 | RET NZ | Return if so | |||||||
30613 | LD B,213 | Use buffer 213 for BOY WANDER's catapult pellet | |||||||
This entry point is used by the routine at 63861 with H=210 (ERIC) and B=214 (ERIC's pellet).
|
|||||||||
30615 | LD L,0 | Point HL at byte 0 of the shooter's character buffer | |||||||
30617 | LD A,(HL) | A=shooter's animatory state | |||||||
30618 | AND 128 | A=128 if the pellet will travel right, 0 if left | |||||||
30620 | ADD A,79 | A=79/207: catapult pellet travelling left/right | |||||||
30622 | INC L | Collect the initial coordinates of the pellet from the shooter's buffer into DE | |||||||
30623 | LD E,(HL) | ||||||||
30624 | INC L | ||||||||
30625 | LD D,(HL) | ||||||||
30626 | LD H,B | H=buffer to be used for the pellet (213 if it's BOY WANDER's, 214 if it's ERIC's) | |||||||
30627 | LD (HL),D | Fill in the initial coordinates and animatory state of the pellet | |||||||
30628 | DEC L | ||||||||
30629 | LD (HL),E | ||||||||
30630 | DEC L | ||||||||
30631 | LD (HL),A | ||||||||
30632 | LD L,17 | Place the address of the pellet-controlling uninterruptible subcommand routine at 30380 into bytes 17 and 18 of the pellet's buffer | |||||||
30634 | LD (HL),172 | ||||||||
30636 | INC L | ||||||||
30637 | LD (HL),118 | ||||||||
30639 | INC L | L=19 | |||||||
30640 | LD (HL),13 | The pellet will travel 13 spaces | |||||||
30642 | RET |
Prev: 30543 | Up: Map |