'
''
if tanga = 1:
act 'Remove Underwear':
cla
tanga = 0
gt $curloc
end
end
act 'Off the toilet':gt 'burger', 'start'
act 'Look in the mirror':
cla
gs 'portmirror'
$gt1 = $curloc
$gt2 = ''
dynamic $portmirror
act 'Move away from the mirror':
cla
gt $curloc
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
'
'
'You gave yourself a catlick, thus removing any traces of cum.'
act 'Finish':gt $curloc
end
end
if cumlip > 0 or cumface > 0:
act 'Clean your face from sperm (0:05)':
cla
*clr
mop = 1
cumlip = 0
cumface = 0
sweat -= 1
minut += 5
'
'
'You clean your face and got rid of any trace of cum.'
act 'Finish':gt $curloc
end
end
if cumfrot > 0:
act 'Wipe the cum off your clothes (0:10)':
cla
*clr
cumfrot = 0
minut += 10
!!'
'
'You remove traces of semen from the clothes.'
act 'Finish':gt $curloc
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
'
'
'You use a tampon.'
act 'Finish':gt $curloc
end
end
--- butoilet ---------------------------------