glife/locations/Gadbana

# Gadbana
CLOSE ALL
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
frost = 0
'<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.'
	elseif hour > 18 and hour < 22:
		canpar = 1
		'In the bath can be steamed'

		if banaday ! daystart:
			act 'Steamed in the sauna (2:00)':
				cls
				minut += 120
				dynamic $showerdin
				hapri = 0
				mop = 1
				sweat = -3

				! WD: Missing Var ~ 'banaday'
				banaday = daystart

				if frost > 0:frost = 0

				skinvan += 5

				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
	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'
		'<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

dynamic $bteeth
dynamic $tampon
dynamic $quickwash
dynamic $wearpan
dynamic $basin

if spdirtyc > 0:
	act 'Wipe the cum off your clothes (0:10)':
		cla
		cumspclnt = 6
		gs 'cum_cleanup'
		minut += 10
		gs 'stat'
		'<center><img src="images/etogame/frotsp.jpg"></center>'
		'You remove traces of cum from your clothes.'

		act 'Finish':gt $curloc
	end
end

if leghair > 0 and stanok > 0:
	act 'Shaving legs 15 min':
		cla
		*clr
		minut = minut + 15
		leghair = -5
		horny = horny + 5
		stanok = stanok - 1

		'<center><img src="images/pics/shave.gif"></center>'
		'You lathered his feet and took a razor. You deftly shaved hair on the legs washed and shaving foam.'

		act 'Takeout machine':gt $curloc
	end
end

if lobok > 0 and stanok > 0:
	act 'Shaved 15 min':
		cla
		*clr
		minut = minut + 15
		lobok = -5
		horny = horny + 5
		stanok = stanok - 1

		'<center><img src="images/pics/shave3.gif"></center>'
		'You lathered pubis and taking a razor deft movements began to shave the pubic area and shave the hair around the pussy. Finally shaving was over and you washed the foam from the pussy.'

		act 'Takeout machine':gt $curloc
	end
end

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