Routines
Prev: 64424 Up: Map Next: 64548
64469: Action: Wear
Action_Wear 64469 CALL Parser_ValidateDirectObject Call Parser_ValidateDirectObject.
64472 RET C Return if the direct object is malformed.
64473 CP 2 Jump to Response_PleaseRephraseThat_Duplicate if A is greater than 2.
64475 JP NC,Response_PleaseRephraseThat_Duplicate
Was the player trying to wear ... the eyepatch?
64478 LD HL,59889 Call MatchPhraseTokens with PhraseTokens_Eyepatch.
64481 CALL MatchPhraseTokens
64484 JR NZ,Wear_CheckShoe Jump to Wear_CheckShoe if the token isn't for the eyepatch.
The player was trying to wear the eyepatch, but are they wearing it already?
64486 LD A,17 Call ValidateItemPresent with "An eyepatch (worn)".
64488 CALL ValidateItemPresent
64491 JR NZ,Validate_Wear_Eyepatch Jump to Validate_Wear_Eyepatch if "An eyepatch (worn)" isn't in the current room.
Print "You're wearing it already.".
64493 LD HL,58444 HL=Messaging_YoureWearingItAlready.
64496 JP PrintStringAndNewline_Alias Jump to PrintStringAndNewline_Alias.
The player was trying to wear the eyepatch, but is it either in the room or in the players inventory?
Validate_Wear_Eyepatch 64499 LD A,16 Call CheckObjectInInventory using item 16: "An eyepatch".
64501 CALL CheckObjectInInventory
64504 JP NZ,Response_YoureNotCarryingIt Jump to Response_YoureNotCarryingIt if the eyepatch is either not in the room or not in the players inventory.
Change the eyepatch state!
64507 LD BC,4113 Call TransformItem to transform item 16 ("An eyepatch") into item 17 ("An eyepatch (worn)").
64510 CALL TransformItem
64513 CALL Response_OK_Duplicate Call Response_OK_Duplicate.
Print "I think you look quite stupid.".
64516 LD HL,58471 HL=Messaging_WearEyepatch.
64519 JP PrintStringAndNewline_Alias Jump to PrintStringAndNewline_Alias.
Was the player trying to wear ... the shoe?
Wear_CheckShoe 64522 LD HL,59859 Call MatchPhraseTokens with PhraseTokens_Shoe.
64525 CALL MatchPhraseTokens
64528 JR NZ,Wear_CheckJewels Jump to Wear_CheckJewels if the token isn't for the shoe.
Print "No! I'm not letting you hop around, with one shoe on.".
64530 LD HL,58502 HL=Messaging_WearShoe.
64533 JP PrintStringAndNewline_Alias Jump to PrintStringAndNewline_Alias.
Was the player trying to wear ... the jewels?
Wear_CheckJewels 64536 LD HL,59867 Call MatchPhraseTokens with PhraseTokens_Jewels.
64539 CALL MatchPhraseTokens
64542 JP Z,Response_YouCant_Duplicate Jump to Response_YouCant_Duplicate if the token is for the jewels.
Nothing else is valid.
64545 JP Response_DontBeRidiculous Jump to Response_DontBeRidiculous.
Prev: 64424 Up: Map Next: 64548