|
Routines |
| Prev: 8EF8 | Up: Map | Next: 8FA1 |
|
Describe the object named in the command.
|
||||
| ActionExamine | 8F13 | CALL Parser_ValidateDirectObject | Return if the command does not name an object. Jump to ActionExamine_Step1 when exactly one noun was named. | |
| 8F16 | RET C | |||
| 8F17 | CP $01 | |||
| 8F19 | JR Z,ActionExamine_Step1 | |||
| 8F1B | LD HL,$78CA | Print "You can only examine one object at a time." and start a new line. | ||
| 8F1E | JR ActionExamine_Loop2 | |||
| ActionExamine_Loop1 | 8F20 | LD HL,$78BC | Print "Don't bother." and start a new line. | |
| ActionExamine_Loop2 | 8F23 | CALL PrintStringAndANewline | ||
| 8F26 | RET | Return. | ||
| ActionExamine_Step1 | 8F27 | LD HL,$8940 | Jump to ActionExamine_Step2 unless the command matches the phrase at Table_PhraseLists. | |
| 8F2A | CALL Parser_AdvanceToSeparator | |||
| 8F2D | JR NZ,ActionExamine_Step2 | |||
| 8F2F | LD HL,$78F5 | Print "There is a button on the unit. It is capable of transmitting a short range signal." and start a new line. | ||
| 8F32 | JR ActionExamine_Loop2 | |||
| ActionExamine_Step2 | 8F34 | LD HL,$8942 | Jump to ActionExamine_Step3 unless the command matches the phrase at 8942. | |
| 8F37 | CALL Parser_AdvanceToSeparator | |||
| 8F3A | JR NZ,ActionExamine_Step3 | |||
| 8F3C | LD HL,$7948 | Print "This is highly poisonous, even to the touch." and start a new line. | ||
| 8F3F | JR ActionExamine_Loop2 | |||
| ActionExamine_Step3 | 8F41 | LD HL,$8947 | Jump to ActionExamine_Step4 unless the command matches the phrase at 8947. | |
| 8F44 | CALL Parser_AdvanceToSeparator | |||
| 8F47 | JR NZ,ActionExamine_Step4 | |||
| 8F49 | LD HL,$7975 | Print "The charge has an electronic receiver fitted." and start a new line. | ||
| 8F4C | JR ActionExamine_Loop2 | |||
| ActionExamine_Step4 | 8F4E | LD HL,$8949 | Jump to ActionExamine_Step5 unless the command matches the phrase at 8949 (A pile of rocks. (38)). | |
| 8F51 | CALL Parser_AdvanceToSeparator | |||
| 8F54 | JR NZ,ActionExamine_Step5 | |||
| 8F56 | LD A,$38 | |||
| 8F58 | CALL IsObjectInCurrentRoom | |||
| 8F5B | JR NZ,ActionExamine_Step5 | |||
| 8F5D | LD HL,$79A3 | Print "There appears to be an exit behind the rocks." and start a new line. | ||
| 8F60 | JR ActionExamine_Loop2 | |||
| ActionExamine_Step5 | 8F62 | LD HL,$8949 | Jump to ActionExamine_Step6 unless the command matches the phrase at 8949 (A pile of rocks at the eastern end. (19)). | |
| 8F65 | CALL Parser_AdvanceToSeparator | |||
| 8F68 | JR NZ,ActionExamine_Step6 | |||
| 8F6A | LD A,$19 | |||
| 8F6C | CALL IsObjectInCurrentRoom | |||
| 8F6F | JR NZ,ActionExamine_Step6 | |||
| 8F71 | LD HL,$7A42 | Print "They are too far away." and start a new line. | ||
| 8F74 | JR ActionExamine_Loop2 | |||
| ActionExamine_Step6 | 8F76 | LD HL,$894B | Jump to ActionExamine_Step7 unless the command matches the phrase at 894B. | |
| 8F79 | CALL Parser_AdvanceToSeparator | |||
| 8F7C | JR NZ,ActionExamine_Step7 | |||
| 8F7E | LD HL,$79D1 | Print "This appears to be a teleport." and start a new line. | ||
| 8F81 | JR ActionExamine_Loop2 | |||
| ActionExamine_Step7 | 8F83 | LD HL,$8957 | Jump to ActionExamine_Step8 unless the command matches the phrase at 8957. | |
| 8F86 | CALL Parser_AdvanceToSeparator | |||
| 8F89 | JR NZ,ActionExamine_Step8 | |||
| 8F8B | LD HL,$79F0 | Print "The word 'OLD' has been scratched on the wall." and start a new line. | ||
| 8F8E | JR ActionExamine_Loop2 | |||
| ActionExamine_Step8 | 8F90 | LD HL,$896E | Jump to ActionExamine_Step9 unless the command matches the phrase at 896E. | |
| 8F93 | CALL Parser_AdvanceToSeparator | |||
| 8F96 | JR NZ,ActionExamine_Step9 | |||
| 8F98 | LD HL,$848D | Print "It appears to be an ultrasonic key." and start a new line. | ||
| 8F9B | JP ActionExamine_Loop2 | |||
| ActionExamine_Step9 | 8F9E | JP ActionExamine_Loop1 | Continue at ActionExamine_Loop1 to say there is nothing worth a closer look. | |
| Prev: 8EF8 | Up: Map | Next: 8FA1 |