|
Routines |
| Prev: 39702 | Up: Map | Next: 39788 |
|
Used by the routines at Turn_RunTheActionHandler and Turn_RunTheHandlerIfPresent.
Accepts the named object as the current one. A zero object counts as one; otherwise the noun flags must agree.
|
||||
| Turn_AcceptTheNamedObject | 39748 | LD A,(46824) | Read *CurrentObject. | |
| 39751 | INC A | Jump to Turn_AcceptTheNamedObject_TestTheNounFlag if the current object is not 255. | ||
| 39752 | JR NZ,Turn_AcceptTheNamedObject_TestTheNounFlag | |||
| 39754 | INC A | Make A 1 (no object counts as one). | ||
| 39755 | RET | Return. | ||
|
Test the noun-print flag.
|
||||
| Turn_AcceptTheNamedObject_TestTheNounFlag | 39756 | LD A,(46846) | Jump to Turn_AcceptTheNamedObject_TestTheSecondNoun if *46846 is not zero. | |
| 39759 | AND A | |||
| 39760 | JR NZ,Turn_AcceptTheNamedObject_TestTheSecondNoun | |||
| 39762 | LD HL,46824 | Point HL at the current object. | ||
| 39765 | LD A,(46826) | Read *CurrentCharacter. | ||
| 39768 | CP (HL) | Return if the character whose turn it is is the current object. | ||
| 39769 | RET Z | |||
| 39770 | LD A,(46825) | Read *46825. | ||
| 39773 | CP (HL) | Return if the second object is the current object. | ||
| 39774 | RET Z | |||
| Turn_AcceptTheNamedObject_TestTheSecondNoun | 39775 | LD A,(46847) | Read *46847. | |
| 39778 | AND A | Return if the second-noun flag is not zero. | ||
| 39779 | RET NZ | |||
| 39780 | LD A,(46825) | Read *46825. | ||
| 39783 | LD HL,46826 | Point HL at the character whose turn it is. | ||
| 39786 | CP (HL) | Compare the second object with the character whose turn it is. | ||
| 39787 | RET | Return. | ||
| Prev: 39702 | Up: Map | Next: 39788 |