Message From Andromeda: Routine at 38012

38012: Action: Swim

Swim when the current room contains water.
ActionSwim	38012	LD HL,35257	Jump to ActionSwim_Step1 when the command matches the phrase at 35257.
	38015	CALL Parser_AdvanceToSeparator
	38018	JR Z,ActionSwim_Step1
	38020	LD HL,25691	Print "You can't." and start a new line.
	38023	JR ActionSwim_Step4	Print "You can't." and start a new line.
ActionSwim_Step1	38025	LD A,(25123)	Fetch the current room.
	38028	CP 56	The player is in the water at room 56.
	38030	JR Z,ActionSwim_Step3	The player is in the water at room 56.
	38032	CP 55	The player is in the water at room 55.
	38034	JR Z,ActionSwim_Step3	The player is in the water at room 55.
	38036	CP 57	The player is in the water at room 57.
	38038	JR Z,ActionSwim_Step3	The player is in the water at room 57.
	38040	CP 58	The player is in the water at room 58.
	38042	JR Z,ActionSwim_Step3	The player is in the water at room 58.
	38044	CP 47	The player is at the stream in The Underground Stream..
	38046	JR Z,ActionSwim_Step2	The player is at the stream in The Underground Stream..
	38048	LD HL,31526	Print "But there's no water here." and start a new line.
	38051	JR ActionSwim_Step4	Print "But there's no water here." and start a new line.
ActionSwim_Step2	38053	LD HL,31641	Print "The water is too shallow." and start a new line.
	38056	JR ActionSwim_Step4	Print "The water is too shallow." and start a new line.
ActionSwim_Step3	38058	LD HL,31553	Print "You plunge into the lake and have a pleasant,refreshing dip and then you get out again." and start a new line.
ActionSwim_Step4	38061	CALL PrintStringAndANewline
	38064	RET	Return.