# mirror
if $ARGS[0] = 'start':
	cla
	clr
	gs 'stat'
	gs 'portmirror'
	set $gt1 = 'mirror'
	set $gt2 = 'fin'
	dynamic $portmirror

	act 'Move away from the mirror':
		cla
		gt '<<$gt1>>', '<<$gt2>>'
	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 ---------------------------------