Routines
Prev: 38187 Up: Map Next: 38590
38512: Action: Read
Read the writing or the ship's computer screen.
ActionRead 38512 CALL Parser_ValidateDirectObject Return if the command does not name a single object.
38515 RET C
38516 JR ActionRead_Step1 Continue at ActionRead_Step1 to match what the player wants to read.
Print "You can't.".
ActionRead_Loop1 38518 LD HL,25691 HL=Messaging_YouCanT.
ActionRead_Loop2 38521 CALL PrintStringAndANewline Call PrintStringAndANewline.
38524 RET Return.
ActionRead_Step1 38525 LD HL,35159 Jump to ActionRead_Step2 unless the command matches the phrase at 35159.
38528 CALL Parser_AdvanceToSeparator
38531 JR NZ,ActionRead_Step2
Print "The word 'OLD' has been scratched on the wall.".
38533 LD HL,31216 HL=Messaging_TheWordOLDHasBeenScratchedOnTheWall.
38536 JR ActionRead_Loop2 Jump to ActionRead_Loop2.
ActionRead_Step2 38538 LD HL,35523 Jump to ActionRead_Step5 unless the command matches the phrase at 35523.
38541 CALL Parser_AdvanceToSeparator
38544 JR NZ,ActionRead_Step5
Print "The message reads:- "A signal has been received on the intergalactic distress band" Do you wish to investigate?".
38546 LD HL,32326 HL=Messaging_TheMessageReadsASignalHasBeenReceivedO.
38549 CALL PrintStringAndANewline Call PrintStringAndANewline.
ActionRead_Loop3 38552 CALL Handler_UserInput Call Handler_UserInput to read another command.
38555 CALL Parser_ValidateNoDirectObject Call Parser_ValidateNoDirectObject to reject a command that names an object.
38558 JR C,ActionRead_Loop3 Jump back to ActionRead_Loop3 when the carry flag is set.
38560 LD A,(25233) Fetch the first word of the command.
38563 CP 20 The typed word is not token 20.
38565 JR NZ,ActionRead_Step3
38567 LD A,3 Move the player to room 3: " In orbit around an unknown planet".
38569 CALL MovePlayerToRoom
38572 RET Return.
ActionRead_Step3 38573 CP 21 Jump to ActionRead_Step4 when the typed word is token 21.
38575 JR Z,ActionRead_Step4
38577 CALL ResponseYouCanT Call ResponseYouCanT to say that is not understood.
38580 RET Return.
Print "O.K.".
ActionRead_Step4 38581 LD HL,25702 HL=Messaging_OK.
38584 JP ActionRead_Loop2 Jump to ActionRead_Loop2.
ActionRead_Step5 38587 JP ActionRead_Loop1 Continue at ActionRead_Loop1 to say the player can't.
View the equivalent code in;
Prev: 38187 Up: Map Next: 38590