|
Routines |
| Prev: FB63 | Up: Map | Next: FB8F |
|
Carry out the "Pour" command.
|
||||
| Action_Pour | FB67 | CALL ParserValidateNoDirectObject | Call ParserValidateNoDirectObject. | |
| FB6A | RET C | Return if the direct object is malformed. | ||
| FB6B | LD A,($AECD) | A=*CurrentRoom. | ||
|
Is the current room one Pour carries into the cottage?
|
||||
| FB6E | LD HL,$FB8F | Search Table_PourTokens for *CurrentRoom. | ||
| FB71 | LD BC,$0003 | |||
| FB74 | CPIR | |||
| FB76 | JR NZ,Action_Pour_Return | Jump to Action_Pour_Return if the room is not in that list. | ||
| FB78 | LD ($AE79),A | Write A to *Room_PourReturn. | ||
| FB7B | LD A,$02 | A=02; jump to Action_Pour_ChangeRoom. | ||
| FB7D | JR Action_Pour_ChangeRoom | |||
|
Returning from inside the cottage?
|
||||
| Action_Pour_Return | FB7F | CP $02 | Jump to Response_NothingHappens if *CurrentRoom is not room 02: " Inside the Ruined Cottage". | |
| FB81 | JP NZ,Response_NothingHappens | |||
| FB84 | LD A,($AE79) | A=*Room_PourReturn. | ||
| FB87 | AND A | Jump to Response_NothingHappens if *Room_PourReturn is zero. | ||
| FB88 | JP Z,Response_NothingHappens | |||
| Action_Pour_ChangeRoom | FB8B | CALL Handler_ChangeRoom | Call Handler_ChangeRoom. | |
| FB8E | RET | Return. | ||
| Prev: FB63 | Up: Map | Next: FB8F |