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.
ActionCut_Loop1	94B7	LD HL,$645B	Print "You can't." and start a new line.
	94BA	JR ActionCut_Loop2	Print "You can't." and start a new line.
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
	94CA	LD HL,$7BB3	Print "You have nothing to cut with." and start a new line.
ActionCut_Loop2	94CD	CALL PrintStringAndANewline	Print "You have nothing to cut with." and start a new line.
	94D0	RET	Return.
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 The Botanical Grotto. (1D).
	94E9	CALL UpdateObjectLocation	Move A withered vine. (1F) to The Botanical Grotto. (1D).
	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
	94F6	LD HL,$7BD1	Print "The vine withers and dies. You have a chance to look around." and start a new line.
	94F9	JR ActionCut_Loop2
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
	950A	LD HL,$7C0E	Print "The ropes are already cut." and start a new line.
	950D	JP ActionCut_Loop2	Print "The ropes are already cut." and start a new line.
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 The Torture Chamber. (2E).
	9519	CALL UpdateObjectLocation
	951C	LD BC,$222E	Move An alcove containing some round stones. (22) to The Torture Chamber. (2E).
	951F	CALL UpdateObjectLocation
	9522	LD HL,$7C29	Print "The skeleton falls to the floor revealing an alcove containing some round stones." and start a new line.
	9525	JP ActionCut_Loop2
ActionCut_Step5	9528	JP ActionCut_Loop1	Continue at ActionCut_Loop1 to say the player can't.