# 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.' end if 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 set hapri = 0 set mop = 1 set sweat = -3 if frost > 0:frost = 0 skinvan += 5 if skinvan >= 20:set skinvan = 0 & set skin = skin + 1 gs 'stat' '
' 'You soared in the bath, then doused with cold water and finally showered.' act 'Go outside':gt 'Gaddvor' end end end if hour >= 22:canpar = 0 end if week ! 6:canpar = 0 if canpar = 0: act 'Wash (1:00)': cls dynamic $showerdin minut += 60 set hapri = 0 set mop = 1 set 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 set tampon -= 1 set isprok = 1 set minut += 5 set 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 set mop = 1 set cumface = 0 set 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 *clr set cumfrot = 0 set minut += 10 gs 'stat' '
' 'You remove traces of cum from your clothes.' act 'Finish':gt $curloc end end !! --- Gadbana ---------------------------------