# mirror
if $ARGS[0] = 'start':
	cla
	clr
	gs 'stat'
	gs 'portmirror'
	set $goto1 = 'mirror'
	set $goto2 = 'fin'
	dynamic $portmirror
	act 'Move away from the mirror':
		cla
		gt '<<$goto1>>','<<$goto2>>'
	end
end

if $ARGS[0] = 'fin':
	cla
	gt $locM, $metkaM

	!'if housr = 1 and housrA = 1 and housrMir = 0 and fitMir = 0 and saunaYouRoom = 0:
	set housrA = 0
	gt 'korr'
	end

	if housr = 1 and housrA = 1 and housrMir = 1 and fitMir = 0 and saunaYouRoom = 0:
	set housrA = 0
	set housrMir = 0
	gt 'bedr'
	end

	if housrA = 0 and fitMir = 1 and saunaYouRoom = 0:
	set fitMir = 0
	gt 'fit','razd'
	end

	if housrA = 0 and stripMir = 1 and saunaYouRoom = 0:
	set stripMir = 0
	gt 'stwork','start'
	end

	if housrA = 0 and palMir = 1 and saunaYouRoom = 0:
	set palMir = 0
	gt 'palatka','start'
	end

	if saunaYouRoom = 1:
	saunaYouRoom = 0
	gt $locBroom, $metkaBroom
	end

	if housrA = 0 and obMir = 1:
	set obMir = 0
	gt 'obroom','start'
	end

	if housrA = 0 and borMir = 1:
	set borMir = 0
	gt 'bordel','start'
	end

	if housrA = 0 and tanhouse1 = 1:
	set tanhouse1 = 0
	gt 'spalnya'
	end'
end
--- mirror ---------------------------------

