glife/locations/Gadbana

# Gadbana
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'<center><h4>bath</h4></center>'
'<center><img src="images/qwest/gadukino/bana.jpg"></center>'
'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'

				'<center><img src="images/qwest/gadukino/par.jpg"></center>'
				'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'
		'<center><img src="images/qwest/gadukino/mit.jpg"></center>'
		'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'
		'<center><img src="images/pics/wash3.jpg"></center>'
		'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'
		'<center><img src="images/pic/facesp.jpg"></center>'
		'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'
		'<center><img src="images/pic/frotsp.jpg"></center>'
		'You remove traces of cum from your clothes.'

		act 'Finish':gt $curloc
	end
end
!!

--- Gadbana ---------------------------------