Routines
Prev: 8EF8 Up: Map Next: 8FA1
8F13: Action: Examine
Describe the single object the player named.
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
Print "You can only examine one object at a time.".
8F1B LD HL,$78CA HL=Messaging_YouCanOnlyExamineOneObjectAtATime.
8F1E JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Nothing else is worth a closer look.
Print "Don't bother.".
ActionExamine_Loop1 8F20 LD HL,$78BC HL=Messaging_DonTBother.
ActionExamine_Loop2 8F23 CALL PrintStringAndANewline Call PrintStringAndANewline.
8F26 RET Return.
Was the player trying to examine the detonator?
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
Print "There is a button on the unit. It is capable of transmitting a short range signal.".
8F2F LD HL,$78F5 HL=Messaging_ThereIsAButtonOnTheUnitItIsCapableOf.
8F32 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the poison fungus?
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
Print "This is highly poisonous, even to the touch.".
8F3C LD HL,$7948 HL=Messaging_ThisIsHighlyPoisonousEvenToTheTouch.
8F3F JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the explosives?
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
Print "The charge has an electronic receiver fitted.".
8F49 LD HL,$7975 HL=Messaging_TheChargeHasAnElectronicReceiverFitted.
8F4C JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the shattered rocks?
ActionExamine_Step4 8F4E LD HL,$8949 Jump to ActionExamine_Step5 unless the command matches the phrase at 8949 ("A pile of rocks.").
8F51 CALL Parser_AdvanceToSeparator
8F54 JR NZ,ActionExamine_Step5
8F56 LD A,$38
8F58 CALL IsObjectInCurrentRoom
8F5B JR NZ,ActionExamine_Step5
Print "There appears to be an exit behind the rocks.".
8F5D LD HL,$79A3 HL=Messaging_ThereAppearsToBeAnExitBehindTheRocks.
8F60 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the pile of rocks?
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.").
8F65 CALL Parser_AdvanceToSeparator
8F68 JR NZ,ActionExamine_Step6
8F6A LD A,$19
8F6C CALL IsObjectInCurrentRoom
8F6F JR NZ,ActionExamine_Step6
Print "They are too far away.".
8F71 LD HL,$7A42 HL=Messaging_TheyAreTooFarAway.
8F74 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the alien commander?
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
Print "This appears to be a teleport.".
8F7E LD HL,$79D1 HL=Messaging_ThisAppearsToBeATeleport.
8F81 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the writing?
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
Print "The word 'OLD' has been scratched on the wall.".
8F8B LD HL,$79F0 HL=Messaging_TheWordOLDHasBeenScratchedOnTheWall.
8F8E JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the crystal rod?
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
Print "It appears to be an ultrasonic key.".
8F98 LD HL,$848D HL=Messaging_ItAppearsToBeAnUltrasonicKey.
8F9B JP ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Nothing else is valid.
ActionExamine_Step9 8F9E JP ActionExamine_Loop1 Continue at ActionExamine_Loop1 to say there is nothing worth a closer look.
View the equivalent code in;
Prev: 8EF8 Up: Map Next: 8FA1