glife/locations/laketoilet

# laketoilet

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

	$metka = $ARGS[0]
	$loc = $CURLOC
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	$gt1 = 'laketoilet'
	$gt2 = 'main'
    $location_type = 'bathroom'
	cla
	*clr
	LCtoiletiventrand = rand(1, 100)

	if hour < 4 and LCtoiletiventrand >= 83:
		'<center><img src="images/locations/city/industrial/bbq/sex/toiletsexstart.jpg"></center>'
		'When you enter the restroom, you see a naked man slowly jerking himself off. He hasn''t noticed you yet.'

		act 'Seduce him':
			gt 'LCporn', 'toiletsex'
		end

		act 'Leave the restroom':gt 'lakecafe', 'main'
	else
		clr
		gs 'stat'
		'<center><img src="images/locations/shared/bathroom/toilet.jpg"></center>'
		'The diner has a single unisex restroom. From the dirt and smell, you don''t think this toilet has ever been cleaned before. Ugh.'

		act 'Look in the mirror':
			cla
			gt 'portmirror', 'start'
		end

		if pcs_hairbsh = 0:
			act 'Brush your hair': gt 'portmirror', 'brush'
		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/shared/sex/cum/frotsp.jpg"></center>'
				'You spend ten minutes wiping and rinsing the cum stains out of your clothes. By the end, all that remain of them are some damp spots that should dry up in a few minutes.'

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

		dynamic $tampon
		dynamic $quickwash
		dynamic $basin

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

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