Routines
Prev: 36600 Up: Map Next: 36769
36627: Action: Examine
Describe the single object the player named.
ActionExamine 36627 CALL Parser_ValidateDirectObject Return if the command does not name an object. Jump to ActionExamine_Step1 when exactly one noun was named.
36630 RET C
36631 CP 1
36633 JR Z,ActionExamine_Step1
Print "You can only examine one object at a time.".
36635 LD HL,30922 HL=Messaging_YouCanOnlyExamineOneObjectAtATime.
36638 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Nothing else is worth a closer look.
Print "Don't bother.".
ActionExamine_Loop1 36640 LD HL,30908 HL=Messaging_DonTBother.
ActionExamine_Loop2 36643 CALL PrintStringAndANewline Call PrintStringAndANewline.
36646 RET Return.
Was the player trying to examine the detonator?
ActionExamine_Step1 36647 LD HL,35136 Jump to ActionExamine_Step2 unless the command matches the phrase at Table_PhraseLists.
36650 CALL Parser_AdvanceToSeparator
36653 JR NZ,ActionExamine_Step2
Print "There is a button on the unit. It is capable of transmitting a short range signal.".
36655 LD HL,30965 HL=Messaging_ThereIsAButtonOnTheUnitItIsCapableOf.
36658 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the poison fungus?
ActionExamine_Step2 36660 LD HL,35138 Jump to ActionExamine_Step3 unless the command matches the phrase at 35138.
36663 CALL Parser_AdvanceToSeparator
36666 JR NZ,ActionExamine_Step3
Print "This is highly poisonous, even to the touch.".
36668 LD HL,31048 HL=Messaging_ThisIsHighlyPoisonousEvenToTheTouch.
36671 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the explosives?
ActionExamine_Step3 36673 LD HL,35143 Jump to ActionExamine_Step4 unless the command matches the phrase at 35143.
36676 CALL Parser_AdvanceToSeparator
36679 JR NZ,ActionExamine_Step4
Print "The charge has an electronic receiver fitted.".
36681 LD HL,31093 HL=Messaging_TheChargeHasAnElectronicReceiverFitted.
36684 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the shattered rocks?
ActionExamine_Step4 36686 LD HL,35145 Jump to ActionExamine_Step5 unless the command matches the phrase at 35145 ("A pile of rocks.").
36689 CALL Parser_AdvanceToSeparator
36692 JR NZ,ActionExamine_Step5
36694 LD A,56
36696 CALL IsObjectInCurrentRoom
36699 JR NZ,ActionExamine_Step5
Print "There appears to be an exit behind the rocks.".
36701 LD HL,31139 HL=Messaging_ThereAppearsToBeAnExitBehindTheRocks.
36704 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the pile of rocks?
ActionExamine_Step5 36706 LD HL,35145 Jump to ActionExamine_Step6 unless the command matches the phrase at 35145 ("A pile of rocks at the eastern end.").
36709 CALL Parser_AdvanceToSeparator
36712 JR NZ,ActionExamine_Step6
36714 LD A,25
36716 CALL IsObjectInCurrentRoom
36719 JR NZ,ActionExamine_Step6
Print "They are too far away.".
36721 LD HL,31298 HL=Messaging_TheyAreTooFarAway.
36724 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the alien commander?
ActionExamine_Step6 36726 LD HL,35147 Jump to ActionExamine_Step7 unless the command matches the phrase at 35147.
36729 CALL Parser_AdvanceToSeparator
36732 JR NZ,ActionExamine_Step7
Print "This appears to be a teleport.".
36734 LD HL,31185 HL=Messaging_ThisAppearsToBeATeleport.
36737 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the writing?
ActionExamine_Step7 36739 LD HL,35159 Jump to ActionExamine_Step8 unless the command matches the phrase at 35159.
36742 CALL Parser_AdvanceToSeparator
36745 JR NZ,ActionExamine_Step8
Print "The word 'OLD' has been scratched on the wall.".
36747 LD HL,31216 HL=Messaging_TheWordOLDHasBeenScratchedOnTheWall.
36750 JR ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Was the player trying to examine the crystal rod?
ActionExamine_Step8 36752 LD HL,35182 Jump to ActionExamine_Step9 unless the command matches the phrase at 35182.
36755 CALL Parser_AdvanceToSeparator
36758 JR NZ,ActionExamine_Step9
Print "It appears to be an ultrasonic key.".
36760 LD HL,33933 HL=Messaging_ItAppearsToBeAnUltrasonicKey.
36763 JP ActionExamine_Loop2 Jump to ActionExamine_Loop2.
Nothing else is valid.
ActionExamine_Step9 36766 JP ActionExamine_Loop1 Continue at ActionExamine_Loop1 to say there is nothing worth a closer look.
View the equivalent code in;
Prev: 36600 Up: Map Next: 36769