# laketoilet
set LCtoiletiventrand = rand(1, 100)
if $ARGS[0] = 'main':
cla
*clr
if hour < 4 and LCtoiletiventrand >= 83 and LCtoiletivent = 0:
'
'
'You went to the bathroom and saw a man in the corner drochaschego. It seems he did not see you.'
act 'Be company':
set LCtoiletivent = 1
gt 'LCporn', 'toiletsex'
end
act 'Off the toilet':gt 'lakecafe', 'main'
else
''
'Dirty and smelly toilet that seems to have never been cleaned'
clr
gs 'stat'
if tanga = 1:
act 'Remove Underwear':
cla
set tanga = 0
gt 'laketoilet', 'main'
end
end
act 'Look in the mirror':
cla
gs 'portmirror'
set $gt1 = 'laketoilet'
set $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) and clrbelo > 0:
act 'Quick wash (0:15)':
cla
*clr
dynamic $showerdin
set sweat -= 1
set minut += 15
set clrbelo -= 1
set dirtbelo += 1
''
'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
set mop = 1
set cumlip = 0
set cumface = 0
set sweat -= 1
set minut += 5
''
'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
set cumfrot = 0
set minut += 10
!!''
'You remove traces of cum from your clothes.'
act 'Finish':gt 'laketoilet', 'main'
end
end
!!
if tampon > 0 and mesec > 0 and isprok = 0:
act 'Use a tampon (0:05)':
cla
*clr
set tampon -= 1
set isprok = 1
set minut += 5
set manna -= 5
''
'You use a tampon.'
act 'Finish':gt 'laketoilet', 'main'
end
end
act 'Off the toilet':gt 'lakecafe', 'main'
end
end
--- laketoilet ---------------------------------