# laketoilet
if $ARGS[0] = 'main':
	CLOSE ALL

	$metka = $ARGS[0]
	$loc = $CURLOC
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cla
	*clr
	LCtoiletiventrand = rand(1, 100)

	if hour < 4 and LCtoiletiventrand >= 83:
		'<center><img src="images/LakeCafe/ToiletSexStart.jpg"></center>'
		'You went to the bathroom and saw a man in the corner drochaschego. It seems he did not see you.'

		act 'Be company':
			gt 'LCporn', 'toiletsex'
		end

		act 'Leave the toilet':gt 'lakecafe', 'main'
	else
		clr
		gs 'stat'
		'<center><img src="images/LakeCafe/Toilet.jpg"></center>'
		'Dirty and smelly toilet that seems to have never been cleaned'

		act 'Look in the mirror':
			cla
			gs 'portmirror'
			$gt1 = 'laketoilet'
			$gt2 = 'main'
			dynamic $portmirror

			act 'Move away from the mirror':
				cla
				gt 'laketoilet', 'main'
			end
		end

		if spdirtyc > 0:
			act 'Wipe the cum off your clothes (0:10)':
				cla
				*clr
				cumspclnt = 6
				gs 'cum_cleanup'
				minut += 10
				'<center><img src="images/etogame/frotsp.jpg"></center>'
				'You remove traces of cum from your clothes.'

				act 'Finish':gt 'laketoilet', 'main'
			end
		end

		dynamic $tampon
		dynamic $quickwash
		dynamic $basin

		act 'Leave the toilet':gt 'lakecafe', 'main'
	end
end

--- laketoilet ---------------------------------