|
Routines |
| Prev: 64355 | Up: Map | Next: 64399 |
|
Carry out the "Pour" command.
|
||||
| Action_Pour | 64359 | CALL ParserValidateNoDirectObject | Call ParserValidateNoDirectObject. | |
| 64362 | RET C | Return if the direct object is malformed. | ||
| 64363 | LD A,(44749) | A=*CurrentRoom. | ||
|
Is the current room one Pour carries into the cottage?
|
||||
| 64366 | LD HL,64399 | Search Table_PourTokens for *CurrentRoom. | ||
| 64369 | LD BC,3 | |||
| 64372 | CPIR | |||
| 64374 | JR NZ,Action_Pour_Return | Jump to Action_Pour_Return if the room is not in that list. | ||
| 64376 | LD (44665),A | Write A to *Room_PourReturn. | ||
| 64379 | LD A,2 | A=2; jump to Action_Pour_ChangeRoom. | ||
| 64381 | JR Action_Pour_ChangeRoom | |||
|
Returning from inside the cottage?
|
||||
| Action_Pour_Return | 64383 | CP 2 | Jump to Response_NothingHappens if *CurrentRoom is not room 2: " Inside the Ruined Cottage". | |
| 64385 | JP NZ,Response_NothingHappens | |||
| 64388 | LD A,(44665) | A=*Room_PourReturn. | ||
| 64391 | AND A | Jump to Response_NothingHappens if *Room_PourReturn is zero. | ||
| 64392 | JP Z,Response_NothingHappens | |||
| Action_Pour_ChangeRoom | 64395 | CALL Handler_ChangeRoom | Call Handler_ChangeRoom. | |
| 64398 | RET | Return. | ||
| Prev: 64355 | Up: Map | Next: 64399 |