[fixes] Set new rental/purchases as current home and a contingency so that you can set your home if it has not been done for you.

locations/agentned.qsrc

@@ -254,6 +254,7 @@ if $ARGS[0] = 'rent_cityres':
 			minut += 30
 			money -= home_rent[1]
 			home_owned[1] = 1
+			if ARRSIZE('home_owned') = 0: gs 'set_home', 1
 			ArendHouseSL += ArendHouseSL_due
 			gs'stat'
 			'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
@@ -299,6 +300,7 @@ if $ARGS[0] = 'rent_pushkin':
 			minut += 30
 			money -= home_rent[4]
 			home_owned[4] = 1
+			if ARRSIZE('home_owned') = 0: gs 'set_home', 4
 			ArendHouseSL4 += ArendHouseSL_due
 			gs'stat'
 			'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
@@ -335,6 +337,7 @@ if $ARGS[0] = 'buy_cityres':
 	minut += 30
 	karta -= home_value[1]
 	home_owned[1] = 2
+	if ARRSIZE('home_owned') = 0: gs 'set_home', 1
 	gs'stat'
 	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'
@@ -351,6 +354,7 @@ if $ARGS[0] = 'buy_dacha':
 	minut += 30
 	karta -= home_value[3]
 	home_owned[3] = 1
+	if ARRSIZE('home_owned') = 0: gs 'set_home', 3
 	etoexhib = 0
 	gs'stat'
 	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
@@ -368,6 +372,7 @@ if $ARGS[0] = 'buy_Mansion':
 	minut += 30
 	karta -= home_value[5]
 	home_owned[5] = 1
+	if ARRSIZE('home_owned') = 0: gs 'set_home', 5
 	gs'stat'
 	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo_paperwork.jpg"></center>'

locations/obj_din.qsrc

@@ -17,7 +17,11 @@ if $ARGS[0] = 'descrip':
 	end
 	!!!
 
-	pl 'Your current home is <a href="exec:gs ''obj_din'', ''cur_home''"><<$home_name>></a>.'
+	if ARRSIZE('home_owned') = 0:
+		pl 'You have nowhere to live, if this is an error set your current home <a href="exec:gs ''obj_din'', ''cur_home''">here</a>.'
+	else
+		pl 'Your current home is <a href="exec:gs ''obj_din'', ''cur_home''"><<$home_name>></a>.'
+	end
 
 	if succubusflag = 1 and sucpcinfo >= 4: pl 'You are a Succubus.'
 	if age = vidage: