![]() |
Routines |
Prev: 6FF9 | Up: Map |
|
||||||||||
7000 | LD L,$62 | Byte 0x62 of BOY WANDER's buffer holds his x-coordinate | ||||||||
7002 | LD A,(HL) | Pick this up in A | ||||||||
7003 | AND $03 | Is BOY WANDER's x-coordinate divisible by 4? | ||||||||
7005 | RET NZ | Return if not | ||||||||
7006 | LD L,$60 | Byte 0x60 holds BOY WANDER's animatory state | ||||||||
7008 | BIT 0,(HL) | Is BOY WANDER midstride? | ||||||||
700A | RET NZ | Return if so | ||||||||
700B | LD L,$70 | Return if there is already an uninterruptible subcommand routine address in bytes 0x6F and 0x70 of BOY WANDER's buffer (he's otherwise occupied) | ||||||||
700D | LD A,(HL) | |||||||||
700E | AND A | |||||||||
700F | RET NZ | |||||||||
7010 | CALL $61A1 | A=random number | ||||||||
7013 | RRCA | Return half the time | ||||||||
7014 | RET NC | |||||||||
7015 | LD L,$61 | Byte 0x61 holds BOY WANDER's y-coordinate | ||||||||
7017 | LD A,(HL) | Pick this up in A | ||||||||
7018 | CALL $6649 | Is BOY WANDER on a staircase? | ||||||||
701B | RET NZ | Return if so | ||||||||
701C | CALL $6E3C | Are there any teachers around who can see BOY WANDER? | ||||||||
701F | RET C | Return if so | ||||||||
7020 | LD A,($AA62) | Pick up the x-coordinate of BOY WANDER's pellet in A | ||||||||
7023 | RLCA | Is BOY WANDER's catapult pellet airborne at the moment? | ||||||||
7024 | RET NC | Return if so | ||||||||
7025 | LD L,$6F | |||||||||
7027 | JR $6FF9 | Make BOY WANDER fire his catapult |
Prev: 6FF9 | Up: Map |