Message From Andromeda: Routine at 37793

37793: Action: Enter

Move into the named place when the exit is open.
ActionEnter	37793	CALL Parser_ValidateDirectObject	Return if the command does not name a single object.
	37796	RET C	Return if the command does not name a single object.
	37797	JR ActionEnter_Step1	Continue at ActionEnter_Step1 to match the place the player named.
ActionEnter_Loop1	37799	LD HL,25691	Print "You can't." and start a new line.
ActionEnter_Loop2	37802	CALL PrintStringAndANewline	Print "You can't." and start a new line.
	37805	RET	Return.
ActionEnter_Loop3	37806	CALL MovePlayerToRoom	Call MovePlayerToRoom to move the player.
	37809	RET	Return.
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,on a landing pad..
	37828	JP ActionEnter_Loop3	Continue at ActionEnter_Loop3 to go through the airlock.
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
	37846	LD HL,32107	Print "The commander blocks your way." and start a new line.
	37849	JP 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.