# Gadbana
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'
bath
'
'
'
'Not a big room with a low oven, water tanks of stainless steel, low smoky ceiling, and blackened wooden shelf.'
clr
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
act 'Go outside':minut += 5 & gt 'Gaddvor'
if week = 6:
if hour >= 12 and hour <= 18:
canpar = 1
'bath fired. Somewhere to seven hours can be steamed.'
elseif hour > 18 and hour < 22:
canpar = 1
'In the bath can be steamed'
if banaday!day:
act 'Steamed in the sauna (2:00)':
cls
minut += 120
dynamic $showerdin
hapri = 0
mop = 1
sweat = -3
if frost > 0:frost = 0
skinvan += 5
if skinvan >= 20:skinvan = 0 & skin += 1
gs 'stat'
'
'
'You soared in the bath, then doused with cold water and finally showered.'
act 'Go outside':gt 'Gaddvor'
end
end
elseif hour >= 22:
canpar = 0
end
elseif week ! 6:
canpar = 0
end
if canpar = 0:
act 'Wash (1:00)':
cls
dynamic $showerdin
minut += 60
hapri = 0
mop = 1
sweat = -3
if frost > 0:frost = 0
gs 'stat'
'
'
'You began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean.'
act 'Leave':gt 'Gaddvor'
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
gs 'stat'
'
'
'You use a tampon.'
act 'Finish':gt $curloc
end
end
!!0.2.6 extension: Washing off cosmetics also removes cum from face
if mop ! 1:
act 'Wash off cosmetics (0:15)':
cla
mop = 1
cumface = 0
minut += 15
gs 'stat'
'
'
'You washed off your makeup.'
act 'Finish':gt $curloc
end
end
!!
!!0.2.6 extensionRemoved sweat =- 1 when cum is wiped off clothes
if cumfrot > 0:
act 'Wipe the cum off your clothes (0:10)':
cla
cumfrot = 0
minut += 10
gs 'stat'
'
'
'You remove traces of cum from your clothes.'
act 'Finish':gt $curloc
end
end
!!
--- Gadbana ---------------------------------