|
Routines |
| Prev: 64184 | Up: Map | Next: 64249 |
|
Carry out the "Dig" command.
|
||||
| Action_Dig | 64200 | CALL ParserValidateNoDirectObject | Call ParserValidateNoDirectObject to check that the command has no object, and return if it does not. | |
| 64203 | RET C | |||
| 64204 | LD A,96 | Refuse to dig without the shovel. | ||
| 64206 | CALL IsObjectInInventory | |||
| 64209 | JP NZ,Messaging_YouHaveNothingToDigWith_Reply | |||
| 64212 | LD A,(44749) | Read the current room into A. | ||
| 64215 | CP 60 | Branch to Response_YouFindNothing when 60 means the values differ. | ||
| 64217 | JP NZ,Response_YouFindNothing | |||
| 64220 | LD HL,44663 | See whether this spot on the beach has already been dug. | ||
| 64223 | BIT 0,(HL) | |||
| 64225 | JP NZ,Response_YouFindNothing | |||
| 64228 | SET 0,(HL) | Remember that this spot on the beach has been dug. | ||
| 64230 | LD A,114 | Call HandlerUpdateItemEventForTheCurrentRoom to update the item for this room. | ||
| 64232 | CALL HandlerUpdateItemEventForTheCurrentRoom | |||
| 64235 | LD A,3 | Call AddToScore to add the points to the score. | ||
| 64237 | CALL AddToScore | |||
| 64240 | CALL Messaging_OK_Reply | Call Messaging_OK_Reply to tell the player that worked. | ||
|
Print it as the reply: You uncover an emerald!.
|
||||
| 64243 | LD HL,56968 | Point at the message and print it as the reply. | ||
| 64246 | JP PrintResponse | |||
| Prev: 64184 | Up: Map | Next: 64249 |