glife/locations/dom_gor

# dom_gor

$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
$location_type = 'private'
clr
gs 'stat'
if night_mode = 1:
	fcolor = rgb(255, 255, 255)
	bcolor = rgb(0, 0, 0)
	lcolor = rgb(106, 90, 205)
else
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
end
'<center><b><font color="maroon">Your room</font></b></center>'
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/vitekhome/kotovkom.jpg"></center>'
'Your room in a hostel. The room is small, there is only the minimum necessary. 2 <a href="exec:gt ''bed'', ''start''">beds</a>, a <a href="exec:gt ''mirror'', ''start''">mirror</a>, a wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) and a small TV.'
'In the bottom of your wardrobe you have <a href="exec:gt ''shoes'', ''select''">your shoes</a> and next to the wardrobe is a dresser you keep <a href="exec:gt ''underwear'', ''dresser''">your underwear</a> and <a href="exec:gt ''purses'', ''view_purse_list''">purses</a> in.'

if $clothingworntype = 'exercise' and teachlevel > 20 and parkrunday ! daystart and hour < 21 and hour > 6:
	act 'Go for a jog around the Square (1:00)':
		cla
		*clr
		parkrunday = daystart
		minut += 30
		pcs_mood += 10
		pcs_willpwr -= 10
		run_exp += 2
		fat -= 8
		pcs_sweat += 30
		'<center><img <<$set_imgh>> src="images/locations/shared/park/parkbeg.jpg"></center>'
		'You did a few laps around the park. Out of breath, sweaty and tired.'
		parkrand = rand (0, 10)

		if parkrand > 4 and beguch < 3:
			'In the park you met a disciple of the school and asked to go for a run with you.'
			act 'Run together':
				cla
				*clr
				beguch += 1
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hostel/stop.jpg"></center>'
				'You run with the pupil sometimes stopping and chatting with ease.'
				'Disciple:- Svetlana, you are so beautiful, you are all so fond of! You:- Hmm, thank you!'

				act 'Complete a run':gt 'gskver'
			end
		elseif parkrand >4 and beguch >= 3 and beguch < 6:
			'In the park you met a disciple of the school and asked to go for a run with you.'

			act 'Run together':
				cla
				*clr
				beguch += 1
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hostel/stop2.jpg"></center>'
				'Have you stopped to do stretching exercises muscles.'
				'Disciple:- Ahh if our girls would be at least a little like you! You:- You just got used to them, get to know them!'
				act 'Complete a run':gt 'gskver'
			end
		elseif parkrand >4 and beguch >= 6 and beguch < 9:
			'In the park you met a disciple of the school and asked to go for a run with you.'
			act 'Run together':
				cla
				*clr
				beguch += 1
				pcs_horny += 3
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hostel/stop3.jpg"></center>'
				'You run with the pupil sometimes stopping and chatting with ease.'
				''
				'Disciple:- Svetlana, can I take a picture of you! You are:- What are you going to do then with my photo, and the wretch!'
				'Disciple:- No, no, I will not forgive her masturbate! You:- Aha! I did not say that!'
				'Student:- Im sorry, was a bad idea. You:- Yes, Im kidding! Fotkay, just me then do not forget to copy.'
				''
				'You picked up a background, stood in a pose and you photographed.'
				act 'Complete a run':gt 'gskver'
			end
		end

		act 'Complete a run':gt 'gskver'
	end
end

if hour < 23:
	act 'Lie on the couch (1:00)':
		cla
		minut += 60
		if pcs_sleep < 90:
			pcs_sleep += 10
		else
			pcs_sleep = 100
		end
		'I relax lying on the couch.'

		act 'Stretch':gt 'dom_gor'
	end
end

if eda > 0:'In the refrigerator stored food that''s good for <b><<eda>></b> servings.'
if edaD = 0 and eda = 0:'<b><font color="red">The fridge is almost empty, nothing to eat at all.</font></b>'
if edaD > 0:'The refrigerator is kept healthy meal that''s good for <b><<edaD>></b> servings.'

if eda >= 1:
	act 'Prepare meals (2:00)':
		cla
		*clr
		eda -= 1
		minut += 120
		frost = 0
		edahot = 0
		pcs_health += 10
		pcs_mood += 20
		gs 'stat'

		if pcs_energy >= 100:
			fat += 5
			'You do not want to eat.'
		elseif pcs_energy >= 80:
			fat += 3
			pcs_energy = pcs_energy + 40
		else
			pcs_energy += 80
			fat += 1
			'You ate with pleasure.'
		end

		if water >= 80:
			'You don''t need any more tea.'
		else
			water += 80
			cumspclnt = 2
			gs 'cum_cleanup'
			pcs_breath = 0
			'You gladly drank a cup of tea.'
		end

		act 'Get up from the table':gt 'dom_gor'
	end
end

if edaD > 0:
	act 'Eat diet food (0:30)':
		cla
		*clr
		frost = 0
		minut += 30
		pcs_health += 10
		pcs_mood += 20
		edaD -= 1
		'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
		if pcs_energy >= 100:
			'You can no longer eat.'
		elseif pcs_energy >= 80:
			pcs_energy += 40
			'You pushed through the power of a meal.'
		else
			pcs_energy += 80
			'You gladly ate cooked food.'
		end

		if water >= 80:
			'You don''t need any more tea.'
		else
			water += 80
			cumspclnt = 2
			gs 'cum_cleanup'
			pcs_breath = 0
			'You gladly drank a cup of tea.'
		end

		act 'Get up from the table':gt 'dom_gor'
	end
end

if gor_dorm > 0:act 'In a shared bathroom':gt 'etoexhib', 'pos41'

act 'Go out onto the street':
	cls
	if $clothingworntype = 'nude':
		'<b><font color="red">You need to get dressed.</font></b>'
		xgt $curloc
	elseif sick > 72:
		'<b><font color="red">You are too ill to take to the streets.</font></b>'
		xgt $curloc
	else
		xgt 'pavCommercial'
	end

end

--- dom_gor ---------------------------------