Routines
Prev: 60965 Up: Map Next: 61057
60989: Action: Examine
Describe the single object the player named.
Action_Examine 60989 CALL Parser_ValidateDirectObject Call Parser_ValidateDirectObject.
60992 RET C Return if the direct object is malformed.
60993 CP 1 Jump to Response_OneAtATimePlease if A is not equal to 1.
60995 JP NZ,Response_OneAtATimePlease
Was the player trying to examine ... Mara's body?
60998 LD HL,59410 Call Parser_AdvanceToSeparator with 59410.
61001 CALL Parser_AdvanceToSeparator
61004 JR NZ,Examine_CheckWitch Jump to Examine_CheckWitch if the token isn't for Mara's body.
Print "There are curious runic symbols along its entire length.".
61006 LD HL,56503 HL=Messaging_ThereAreCuriousRunicSymbols.
61009 JP PrintResponse Jump to PrintResponse.
Was the player trying to examine ... the witch?
Examine_CheckWitch 61012 LD HL,59412 Call Parser_AdvanceToSeparator with 59412.
61015 CALL Parser_AdvanceToSeparator
61018 JR NZ,Examine_CheckWitchClosedChest Jump to Examine_CheckWitchClosedChest if the token isn't for the witch.
61020 LD A,11 Jump to Examine_CheckWitchClosedChest if ValidateItemPresent reports that "A chest" isn't in the current room.
61022 CALL ValidateItemPresent
61025 JR NZ,Examine_CheckWitchClosedChest
Print "It is locked.".
61027 LD HL,56560 HL=Messaging_ItIsLocked.
61030 JP PrintResponse Jump to PrintResponse.
Was the player trying to examine ... the witch (closed chest)?
Examine_CheckWitchClosedChest 61033 LD HL,59412 Call Parser_AdvanceToSeparator with 59412.
61036 CALL Parser_AdvanceToSeparator
61039 JR NZ,Examine_Invalid Jump to Examine_Invalid if the token isn't for the witch.
61041 LD A,12 Jump to Examine_Invalid if ValidateItemPresent reports that "A closed chest" isn't in the current room.
61043 CALL ValidateItemPresent
61046 JR NZ,Examine_Invalid
Print "It is unlocked.".
61048 LD HL,56443 HL=Messaging_ItIsUnlocked.
61051 JP PrintResponse Jump to PrintResponse.
Nothing else is valid.
Examine_Invalid 61054 JP Response_IDontSeeThePoint Jump to Response_IDontSeeThePoint.
View the equivalent code in;
Prev: 60965 Up: Map Next: 61057