Routines
Prev: 37755 Up: Map Next: 37860
37793: Action: Enter
Go into the open airlock or the alien commander's chamber.
ActionEnter 37793 CALL Parser_ValidateDirectObject Return if the command does not name a single object.
37796 RET C
37797 JR ActionEnter_Step1 Continue at ActionEnter_Step1 to match the place the player named.
Print "You can't.".
ActionEnter_Loop1 37799 LD HL,25691 HL=Messaging_YouCanT.
ActionEnter_Loop2 37802 CALL PrintStringAndANewline Call PrintStringAndANewline.
37805 RET Return.
ActionEnter_Loop3 37806 CALL MovePlayerToRoom Call MovePlayerToRoom to move the player.
37809 RET Return.
Was the player trying to enter the airlock?
ActionEnter_Step1 37810 LD HL,35251 Point at the phrase at 35251 and call Parser_AdvanceToSeparator to match it against the command.
37813 CALL Parser_AdvanceToSeparator
37816 JR NZ,ActionEnter_Step2 Jump to ActionEnter_Step2 if it doesn't match.
37818 LD A,17 Jump to ActionEnter_Loop1 when The airlock is open. (17) is not here or being carried.
37820 CALL IsObjectInCurrentRoom
37823 JP NZ,ActionEnter_Loop1
37826 LD A,4 The open airlock leads into In the Galaxy at rest.
37828 JP ActionEnter_Loop3 Continue at ActionEnter_Loop3 to go through the airlock.
Was the player trying to enter the alien commander's chamber?
ActionEnter_Step2 37831 LD HL,35147 Jump to ActionEnter_Step4 unless the command matches the phrase at 35147 (The alien commander, in space armour. (39)).
37834 CALL Parser_AdvanceToSeparator
37837 JR NZ,ActionEnter_Step4
37839 LD A,39
37841 CALL IsObjectInCurrentRoom
37844 JR NZ,ActionEnter_Step3
Print "The commander blocks your way.".
37846 LD HL,32107 HL=Messaging_TheCommanderBlocksYourWay.
37849 JP ActionEnter_Loop2 Jump to ActionEnter_Loop2.
ActionEnter_Step3 37852 LD A,62 The commander is reached through Inside a Teleport.
37854 JP ActionEnter_Loop3 Continue at ActionEnter_Loop3 to go to the alien commander.
ActionEnter_Step4 37857 JP ActionEnter_Loop1 Continue at ActionEnter_Loop1 to say the player can't.
View the equivalent code in;
Prev: 37755 Up: Map Next: 37860