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.
Print "You can't.".
ActionCut_Loop1	38071	LD HL,25691	HL=Messaging_YouCanT.
	38074	JR ActionCut_Loop2	Jump to ActionCut_Loop2.
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
Print "You have nothing to cut with.".
	38090	LD HL,31667	HL=Messaging_YouHaveNothingToCutWith.
ActionCut_Loop2	38093	CALL PrintStringAndANewline	Call PrintStringAndANewline.
	38096	RET	Return.
Was the player trying to cut the vine?
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 room 29: " The Botanical Grotto".
	38121	CALL UpdateObjectLocation
This action changes the map:
	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
Print "The vine withers and dies. You have a chance to look around.".
	38134	LD HL,31697	HL=Messaging_TheVineWithersAndDiesYouHaveAChanceTo.
	38137	JR ActionCut_Loop2	Jump to ActionCut_Loop2.
Was the player trying to cut the ropes?
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
Print "The ropes are already cut.".
	38154	LD HL,31758	HL=Messaging_TheRopesAreAlreadyCut.
	38157	JP ActionCut_Loop2	Jump to ActionCut_Loop2.
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 room 46: " The Torture Chamber".
	38169	CALL UpdateObjectLocation
	38172	LD BC,8750	Move An alcove containing some round stones. (34) to room 46: " The Torture Chamber".
	38175	CALL UpdateObjectLocation
Print "The skeleton falls to the floor revealing an alcove containing some round stones.".
	38178	LD HL,31785	HL=Messaging_TheSkeletonFallsToTheFloorRevealingAnAlc.
	38181	JP ActionCut_Loop2	Jump to ActionCut_Loop2.
ActionCut_Step5	38184	JP ActionCut_Loop1	Continue at ActionCut_Loop1 to say the player can't.