glife_beastfert/locations/laketoilet

# laketoilet
if $ARGS[0] = 'main':
	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 'Off 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'

		if tanga = 1:
			act 'Remove Underwear':
				cla
				tanga = 0
				gt 'laketoilet', 'main'
			end
		end

		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

		!!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
		!!Removed sweat =- 1 when cum is wiped off clothes
		!!clrbelo: Amount of clean panties available
		if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0:
			act 'Quick wash (0:15)':
				cla
				*clr

				if clrbelo > 0 and tanga = 1:
					clrbelo -= 1
					dirtbelo += 1
				elseif clrbelo = 0 and tanga = 1:
					tanga = 0
					dirtbelo += 1
				end

				dynamic $showerdin
				sweat -= 1
				minut += 15
				'<center><img src="images/pics/wash5.jpg"></center>'
				'You gave yourself a catlick, thus removing any traces of cum.'

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

		if cumlip > 0 or cumface > 0:
			act 'Clean your face from sperm (0:05)':
				cla
				*clr
				cumlip = 0
				cumface = 0
				sweat -= 1
				minut += 5
				'<center><img src="images/etogame/facesp.jpg"></center>'
				'You clean your face and got rid of any trace of cum.'

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

		if cumfrot > 0:
			act 'Wipe the cum off your clothes (0:10)':
				cla
				*clr
				cumfrot = 0
				minut += 10
				! WD: Remove Dupe Images ~ '<center><img src="images/pic/frotsp.jpg"></center>'
				'<center><img src="images/etogame/frotsp.jpg"></center>'
				'You remove traces of cum from your clothes.'

				act 'Finish':dynamic $kafetualet
			end
		end
		!!

		if tampon > 0 and mesec > 0 and isprok = 0:
			act 'Use a tampon (0:05)':
				cla
				*clr
				tampon -= 1
				isprok = 1
				minut += 5
				manna -= 5
				'<center><img src="images/pics/wash3.jpg"></center>'
				'You use a tampon.'

				act 'Finish':dynamic $kafetualet
			end
		end

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

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