Message From Andromeda: Routine at 94B1

94B1: Action: Cut

Cut the named object when the player has a blade.
ActionCut	94B1	CALL Parser_ValidateDirectObject	Return if the command does not name a single object.
	94B4	RET C	Return if the command does not name a single object.
	94B5	JR ActionCut_Step1	Continue at ActionCut_Step1 to see whether the player has a blade.
Print "You can't.".
ActionCut_Loop1	94B7	LD HL,$645B	HL=Messaging_YouCanT.
	94BA	JR ActionCut_Loop2	Jump to ActionCut_Loop2.
ActionCut_Step1	94BC	LD A,$00	Jump to ActionCut_Step2 when the player is carrying A knife. (00).
	94BE	CALL IsObjectCarried
	94C1	JR Z,ActionCut_Step2
	94C3	LD A,$0A	Jump to ActionCut_Step2 when the player is carrying A space axe. (0A).
	94C5	CALL IsObjectCarried
	94C8	JR Z,ActionCut_Step2
Print "You have nothing to cut with.".
	94CA	LD HL,$7BB3	HL=Messaging_YouHaveNothingToCutWith.
ActionCut_Loop2	94CD	CALL PrintStringAndANewline	Call PrintStringAndANewline.
	94D0	RET	Return.
Was the player trying to cut the vine?
ActionCut_Step2	94D1	LD HL,$89C0	Jump to ActionCut_Step3 unless the command matches the phrase at 89C0 (A creeping vine has trapped you by coiling itself around you. (1E)).
	94D4	CALL Parser_AdvanceToSeparator
	94D7	JR NZ,ActionCut_Step3
	94D9	LD A,$1E
	94DB	CALL IsObjectInCurrentRoom
	94DE	JR NZ,ActionCut_Loop1
	94E0	LD BC,$1E00	Move A creeping vine has trapped you by coiling itself around you. (1E) to nowhere (00).
	94E3	CALL UpdateObjectLocation
	94E6	LD BC,$1F1D	Move A withered vine. (1F) to room 1D: " The Botanical Grotto".
	94E9	CALL UpdateObjectLocation
This action changes the map:
	94EC	LD A,$1E	Open the east exit of The Botanical Grotto onto The Dusty Corridor.
	94EE	LD ($8C0A),A
	94F1	LD A,$3F	Open the way up from The Botanical Grotto to The western end of a Long Cavern.
	94F3	LD ($8C0C),A
Print "The vine withers and dies. You have a chance to look around.".
	94F6	LD HL,$7BD1	HL=Messaging_TheVineWithersAndDiesYouHaveAChanceTo.
	94F9	JR ActionCut_Loop2	Jump to ActionCut_Loop2.
Was the player trying to cut the ropes?
ActionCut_Step3	94FB	LD HL,$89E2	Jump to ActionCut_Step5 unless the command matches the phrase at 89E2 (A skeleton in space patrol uniform,tied to rings in the wall,by ropes. (20)).
	94FE	CALL Parser_AdvanceToSeparator
	9501	JR NZ,ActionCut_Step5
	9503	LD A,$20
	9505	CALL IsObjectInCurrentRoom
	9508	JR Z,ActionCut_Step4
Print "The ropes are already cut.".
	950A	LD HL,$7C0E	HL=Messaging_TheRopesAreAlreadyCut.
	950D	JP ActionCut_Loop2	Jump to ActionCut_Loop2.
ActionCut_Step4	9510	LD BC,$2000	Move A skeleton in space patrol uniform,tied to rings in the wall,by ropes. (20) to nowhere (00).
	9513	CALL UpdateObjectLocation
	9516	LD BC,$212E	Move A skeleton on the floor. (21) to room 2E: " The Torture Chamber".
	9519	CALL UpdateObjectLocation
	951C	LD BC,$222E	Move An alcove containing some round stones. (22) to room 2E: " The Torture Chamber".
	951F	CALL UpdateObjectLocation
Print "The skeleton falls to the floor revealing an alcove containing some round stones.".
	9522	LD HL,$7C29	HL=Messaging_TheSkeletonFallsToTheFloorRevealingAnAlc.
	9525	JP ActionCut_Loop2	Jump to ActionCut_Loop2.
ActionCut_Step5	9528	JP ActionCut_Loop1	Continue at ActionCut_Loop1 to say the player can't.