Now the shared apartment and grandparent's house can be set as home

locations/gadhouse.qsrc

@@ -93,11 +93,11 @@ if $ARGS[0] = 'start':
 	$menu_arg = ''
 	menu_off = 1
 	$locclass = 'singleroom'
-	curr_home = 2
+	curr_home = 14
 	display_bb = 1
 	frost = 0
 	mira_temp = rand(1,10)
-
+	home_owned[14] = 1
 	gs 'gadhouse', 'nudity_trouble_limit'
 
 	!! Grandma sends Sveta back to Pavlovsk for school to start
@@ -153,6 +153,7 @@ if $ARGS[0] = 'start':
 	!!Grandma kicks Sveta out for being a whore
 	elseif grandmaQW['nudity_trouble_limit'] = 50 and hour >= 6 and hour < 20:
 		*clr & cla
+		home_owned[14] = 0
 		grandmaQW['help_amount'] = 0
 		grandmaQW['block'] = 1
 		minut += 5

locations/obj_din.qsrc

@@ -256,6 +256,8 @@ if $ARGS[0] = 'cur_home':
 	if home_owned[11] = 1: 'Set current home as <a href="exec:gs ''set_home'', 11 & gs ''obj_din'', ''cur_home''">University halls</a>'
 	if home_owned[12] = 1: 'Set current home as <a href="exec:gs ''set_home'', 12 & gs ''obj_din'', ''cur_home''">Hunter''s lodge in Gadukino</a>'
 	if home_owned[13] = 1: 'Set current home as <a href="exec:gs ''set_home'', 13 & gs ''obj_din'', ''cur_home''">Shared apartment in Pavlovsk</a>'
+	if home_owned[14] = 1: 'Set current home as <a href="exec:gs ''set_home'', 14 & gs ''obj_din'', ''cur_home''">Grandparent''s house in Gadukino</a>'
+	
 !!Apostrophe colour correction - KS ''''
 	'</td></tr></table></center>'
 end

locations/pav_shared_apt.qsrc

@@ -267,6 +267,7 @@ if $ARGS[0] = 'start':
 				'You do not have enough money to pay the rest of the rent in cash, even if you wanted to. Guess you''ll have to find a new living place...'
 				rentPaid = 0
 				pavSharedAptEnabled = 0
+				home_owned[13] = 0
 			end
 		end
 	end
@@ -313,6 +314,7 @@ if $ARGS[0] = 'start':
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/revenge/crying.jpg"></center>'
 		'You''ve been kicked out of the apartment due to having children.'
 		pavSharedAptEnabled = 0
+		home_owner[13] = 0
 		act 'Leave':gt 'pav_complex', 'start'
 	end
 end
@@ -327,6 +329,7 @@ if $ARGS[0] = 'payCash':
 		money -= cash
 		rentPaid = 1
 		pavSharedAptEnabled = 1
+		home_owned[13] = 1
 	else
 		'You do not have enough money to pay it.'
 	end
@@ -438,9 +441,9 @@ if $ARGS[0] = 'intro':
 		'<font color=#<<$nd_font>>>"As <<$sp_name>> told you, we could decrease your rent if you would do some homekeeping stuff we really suck at. But only if you want, of course."</font>'
 		'<font color=#<<$sp_font>>>"So what do you say <<$pcs_firstname>>?"</font>'
 		act 'Say that you changed your mind about this':pavIntroStep = 40 & gt 'pav_shared_apt', 'intro'
-		act 'Say you will pay the rent the normal way':pavSharedAptEnabled = 1 & pavIntroStep = 10 & gt 'pav_shared_apt', 'intro'
-		act 'Say you don''t mind doing the homekeeping stuff':pavSharedAptEnabled = 1 & pavIntroStep = 20 & gt 'pav_shared_apt', 'intro'
-		act 'Say you don''t mind anything':pavSharedAptEnabled = 1 & pavIntroStep = 30 & gt 'pav_shared_apt', 'intro'
+		act 'Say you will pay the rent the normal way':pavSharedAptEnabled = 1 & home_owned[13] = 1 & pavIntroStep = 10 & gt 'pav_shared_apt', 'intro'
+		act 'Say you don''t mind doing the homekeeping stuff':pavSharedAptEnabled = 1 & home_owned[13] = 1 & pavIntroStep = 20 & gt 'pav_shared_apt', 'intro'
+		act 'Say you don''t mind anything':pavSharedAptEnabled = 1 & home_owned[13] = 1 & pavIntroStep = 30 & gt 'pav_shared_apt', 'intro'
 	elseif pavIntroStep = 10:
 		minut += 2
 		'<font color=#<<$sp_font>>>"Fine. So the rest of this week you have for free, but you need to prepay the next week. OK?"</font>'