Message From Andromeda: Routine at 947C

947C: Action: Swim

Swim when the current room contains water.
ActionSwim	947C	LD HL,$89B9	Jump to ActionSwim_Step1 when the command matches the phrase at 89B9.
	947F	CALL Parser_AdvanceToSeparator
	9482	JR Z,ActionSwim_Step1
	9484	LD HL,$645B	Print "You can't." and start a new line.
	9487	JR ActionSwim_Step4	Print "You can't." and start a new line.
ActionSwim_Step1	9489	LD A,($6223)	Fetch the current room.
	948C	CP $38	The player is in the water at room 38.
	948E	JR Z,ActionSwim_Step3	The player is in the water at room 38.
	9490	CP $37	The player is in the water at room 37.
	9492	JR Z,ActionSwim_Step3	The player is in the water at room 37.
	9494	CP $39	The player is in the water at room 39.
	9496	JR Z,ActionSwim_Step3	The player is in the water at room 39.
	9498	CP $3A	The player is in the water at room 3A.
	949A	JR Z,ActionSwim_Step3	The player is in the water at room 3A.
	949C	CP $2F	The player is at the stream in The Underground Stream..
	949E	JR Z,ActionSwim_Step2	The player is at the stream in The Underground Stream..
	94A0	LD HL,$7B26	Print "But there's no water here." and start a new line.
	94A3	JR ActionSwim_Step4	Print "But there's no water here." and start a new line.
ActionSwim_Step2	94A5	LD HL,$7B99	Print "The water is too shallow." and start a new line.
	94A8	JR ActionSwim_Step4	Print "The water is too shallow." and start a new line.
ActionSwim_Step3	94AA	LD HL,$7B41	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	94AD	CALL PrintStringAndANewline
	94B0	RET	Return.