Message From Andromeda: Routine at 38065

38065: Action: Cut

Cut the named object when the player has a blade.
ActionCut	38065	CALL Parser_ValidateDirectObject	Return if the command does not name a single object.
	38068	RET C	Return if the command does not name a single object.
	38069	JR ActionCut_Step1	Continue at ActionCut_Step1 to see whether the player has a blade.
ActionCut_Loop1	38071	LD HL,25691	Print "You can't." and start a new line.
	38074	JR ActionCut_Loop2	Print "You can't." and start a new line.
ActionCut_Step1	38076	LD A,0	Jump to ActionCut_Step2 when the player is carrying A knife. (0).
	38078	CALL IsObjectCarried
	38081	JR Z,ActionCut_Step2
	38083	LD A,10	Jump to ActionCut_Step2 when the player is carrying A space axe. (10).
	38085	CALL IsObjectCarried
	38088	JR Z,ActionCut_Step2
	38090	LD HL,31667	Print "You have nothing to cut with." and start a new line.
ActionCut_Loop2	38093	CALL PrintStringAndANewline	Print "You have nothing to cut with." and start a new line.
	38096	RET	Return.
ActionCut_Step2	38097	LD HL,35264	Jump to ActionCut_Step3 unless the command matches the phrase at 35264 (A creeping vine has trapped you by coiling itself around you. (30)).
	38100	CALL Parser_AdvanceToSeparator
	38103	JR NZ,ActionCut_Step3
	38105	LD A,30
	38107	CALL IsObjectInCurrentRoom
	38110	JR NZ,ActionCut_Loop1
	38112	LD BC,7680	Move A creeping vine has trapped you by coiling itself around you. (30) to nowhere (0).
	38115	CALL UpdateObjectLocation
	38118	LD BC,7965	Move A withered vine. (31) to The Botanical Grotto. (29).
	38121	CALL UpdateObjectLocation	Move A withered vine. (31) to The Botanical Grotto. (29).
	38124	LD A,30	Open the east exit of The Botanical Grotto. onto The Dusty Corridor..
	38126	LD (35850),A
	38129	LD A,63	Open the way up from The Botanical Grotto. to The western end of a Long Cavern..
	38131	LD (35852),A
	38134	LD HL,31697	Print "The vine withers and dies. You have a chance to look around." and start a new line.
	38137	JR ActionCut_Loop2
ActionCut_Step3	38139	LD HL,35298	Jump to ActionCut_Step5 unless the command matches the phrase at 35298 (A skeleton in space patrol uniform,tied to rings in the wall,by ropes. (32)).
	38142	CALL Parser_AdvanceToSeparator
	38145	JR NZ,ActionCut_Step5
	38147	LD A,32
	38149	CALL IsObjectInCurrentRoom
	38152	JR Z,ActionCut_Step4
	38154	LD HL,31758	Print "The ropes are already cut." and start a new line.
	38157	JP ActionCut_Loop2	Print "The ropes are already cut." and start a new line.
ActionCut_Step4	38160	LD BC,8192	Move A skeleton in space patrol uniform,tied to rings in the wall,by ropes. (32) to nowhere (0).
	38163	CALL UpdateObjectLocation
	38166	LD BC,8494	Move A skeleton on the floor. (33) to The Torture Chamber. (46).
	38169	CALL UpdateObjectLocation
	38172	LD BC,8750	Move An alcove containing some round stones. (34) to The Torture Chamber. (46).
	38175	CALL UpdateObjectLocation
	38178	LD HL,31785	Print "The skeleton falls to the floor revealing an alcove containing some round stones." and start a new line.
	38181	JP ActionCut_Loop2
ActionCut_Step5	38184	JP ActionCut_Loop1	Continue at ActionCut_Loop1 to say the player can't.