[changed] Can no longer rent properties from the laptop (where did the key come from?). You can also see which properties are currently available and pre-pay your rent.

[fixed] some real estate related grammar issues and made some other minor tweaks to agentned, housing, komp.

locations/Komp.qsrc

@@ -47,7 +47,7 @@ if $ARGS[0] = 'brows':
 		'<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
 		'You go to your favourite start page, while you try to decide on what you want to see right now.'
 
-		'A blinking banner for a <a href="exec:GT ''Komp'',''agent''">real estate agency</a> keeps popping up in the corner.'
+		'A blinking banner for a <a href="exec:GT ''Komp'',''agent''">Kirsanova Real Estate Agency</a> keeps popping up in the corner.'
 
 		if home_owned[1] = 2 and husband = 0:act 'Rent your apartment out':gt 'Komp', 'sale'
 
@@ -532,13 +532,44 @@ if $ARGS[0] = 'agent':
 	internet -= 1
 	gs 'stat'
 	gs 'housing', 'rent'
-	'<center><b>Real estate agency</b></center>'
+	gs 'housing', 'sale'
+	'<center><b>Kirsanova Real Estate Agency</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/computer/agent.jpg"></center>'
-	'You''re currently at the website of the largest real estate agency in the area.'
-	'They have apartments available in the city residential district and Pushkin. Renting one would cost you as low as 10000 <b>₽</b> for 30 days.'
-	''
-	if ArendHouseSL > 0:'You have <B><<ArendHouseSL>> days</B> remaining on the rental of your St. Petersburg apartment.'
-	if ArendHouseSL4 > 0:'You have <B><<ArendHouseSL4>> days</B> remaining on the rental of your Pushkin apartment.'
+	*nl
+	'You''re currently at the website of the largest real estate agency in the area, Kirsanova Real Estate Agency.'
+	'<br>The website shows they have apartments available for rent or purchase in various areas, both in and out of the city. Renting or purchase requires you visit the agency in the city center to fill an application and collect the keys. Rent on all properties is deducted every month on the 25th.'
+	*nl
+	'<b>Property listing</b>:'
+	if ArendHouseSL > 0:
+		'You have <B><<ArendHouseSL>> days</B> remaining on the rental of your St. Petersburg apartment.'
+		*nl
+	elseif home_owned[1] = 0 and ArendHouseSL = 0:
+		'There is an apartment in St. Petersburg residental area available, for rent or puchase.'
+		'Rent is: <<$home_rent_txt[1]>> ₽ per month. Curent sale price is listet at: <<$home_value_txt[1]>> <b>₽</b>'
+		*nl
+	end
+
+	if home_owned[3] = 0:
+		'There is a holiday cottage with an adjacent allotment in the communal village for sale.'
+		'Current sale price is listed at: <<$home_value_txt[3]>> <b>₽</b>.'
+		*nl
+	end
+	
+	if home_owned[4] > 0 and ArendHouseSL4 > 0:
+		'You have <B><<ArendHouseSL4>> days</B> remaining on the rental of your Pushkin apartment.'
+		*nl
+	elseif home_owned[4] = 0 and ArendHouseSL4 = 0:
+		'There is a n apartment in Pushkin area available to rent.'
+		'Rent is: <<$home_rent_txt[4]>> ₽ per month.'
+		*nl
+	end
+
+	if home_owned[5] = 0:
+		'There is a plot in the suburbs available for puchase, with planning permission for a mansion.'
+		'Current sale price is listed at: <<$home_value_txt[5]>> <b>₽</b>.'
+		*nl
+	end
+
 	if karta + bankDebtLimit >= home_rent[1] and home_owned[1] = 1:
 		act 'Pay rent on St. Petersburg':
 			cla
@@ -547,15 +578,6 @@ if $ARGS[0] = 'agent':
 			'After a very simple procedure, you can now call an apartment in the city residential district home for another 30 days. You have <B><<ArendHouseSL>> days</B> remaining on the rental of your apartment.'
 			act 'Leave this website':gt 'Komp','brows'
 		end
-	elseif karta + bankDebtLimit >= home_rent[1] and home_owned[1] = 0:
-		act 'Rent a city apartment':
-			cla
-			karta -= home_rent[1]
-			ArendHouseSL += ArendHouseSL_due
-			home_owned[1] = 1
-			'After a very simple procedure, you can now call an apartment in the city residential district home for 30 days.'
-			act 'Leave this website':gt 'Komp','brows'
-		end
 	end
 	if karta + bankDebtLimit >= home_rent[4] and home_owned[4] > 0:
 		act 'Pay rent on Pushkin':
@@ -565,24 +587,10 @@ if $ARGS[0] = 'agent':
 			'After a very simple procedure, you can now call an apartment in Pushkin home for another 30 days. You have <B><<ArendHouseSL4>> days</B> remaining on the rental of your apartment.'
 			act 'Leave this website':gt 'Komp','brows'
 		end
-	elseif karta + bankDebtLimit >= home_rent[4] and home_owned[4] = 0:
-		act 'Rent a Pushkin apartment':
-			cla
-			karta -= home_rent[4]
-			ArendHouseSL4 += ArendHouseSL_due
-			home_owned[4] = 1
-			'After a very simple procedure, you can now call an apartment in Pushkin home for 30 days.'
-			act 'Leave this website':gt 'Komp','brows'
-		end
 	end
-
 	act 'Leave this website':gt 'Komp','brows'
 end
 
-if $ARGS[0] = 'fin':
-	gt $loc, $metka
-end
-
 if $ARGS[0] = 'mfc':
 	if mesec > 0:
 		cls
@@ -1521,5 +1529,9 @@ if $ARGS[0] = 'bank':
 	act 'Close your browser':gt 'Komp', 'start'
 end
 
+if $ARGS[0] = 'fin':
+	gt $loc, $metka
+end
+
 --- Komp ---------------------------------
 

locations/agentned.qsrc

@@ -8,7 +8,7 @@ if $ARGS[0] = 'start':
 	gs'stat'
 	gs'dina'
 	gs 'housing', 'rent'
-	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
+	'<center><b><font color = maroon>Kirsanova Real Estate Agency</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
 	*nl
 	'The head office of the largest real estate agency in the area.'
@@ -39,7 +39,10 @@ if $ARGS[0] = 'start':
 	act 'View rentals': gt 'agentned', 'rent'
 	act 'View properties for sale': gt 'agentned', 'buy'
 
-	act '<B>Leave</B>': minut += 5 & gt'down'
+	act '<B>Leave</B>':
+		minut += 5
+		gt'down'
+	end
 end
 
 if $ARGS[0] = 'buy':
@@ -47,26 +50,30 @@ if $ARGS[0] = 'buy':
 	*clr
 	gs 'housing', 'sale'
 	'<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>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
 	*nl
 	minut += 5
 	gs 'stat'
 	if home_owned[1] = 0 or home_owned[3] = 0 or home_owned[4] = 0 or home_owned[5] = 0:
 		if home_owned[1] = 0:
-			'There is an apartment in the city residential area available for 2 million <b>₽</b>.'
+			'There is an apartment in the city residential area available for <<$home_value_txt[1]>> <b>₽</b>.'
+			*nl
 			if karta + bankDebtLimit >= home_value[1]:act 'Buy the city residential apartment': gt 'agentned', 'buy_cityres'
 		elseif home_owned[1] = 1:
-			'You could buy your current rental apartment for 2 million <b>₽</b>.'
+			'You could buy your current rental apartment for <<$home_value_txt[1]>> <b>₽</b>.'
+			*nl
 			if karta + bankDebtLimit >= home_value[1]:act 'Buy the city residential apartment': gt 'agentned', 'buy_cityres'
 		end
 
 		if home_owned[3] = 0:
-			'There is a holiday cottage with an adjacent allotment in the village, for 150,000 <b>₽</b>.'
+			'There is a holiday cottage with an adjacent allotment in the village, for <<$home_value_txt[3]>> <b>₽</b>.'
+			*nl
 			if karta + bankDebtLimit >= home_value[3]:act 'Buy the cottage in the village': gt 'agentned','buy_dacha'
 		end
 
 		if home_owned[5] = 0:
-			'There is a plot in the suburbs with planning permission for a mansion for 1.5 million <b>₽</b>.'
+			'There is a plot in the suburbs with planning permission for a mansion for <<$home_value_txt[5]>> <b>₽</b>.'
+			*nl
 			if karta + bankDebtLimit >= home_value[5]:act 'Buy the plot in the suburbs': gt 'agentned','buy_Mansion'
 		end
 	else
@@ -80,15 +87,18 @@ if $ARGS[0] = 'sell':
 	*clr
 	gs 'housing', 'sale'
 	'<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>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
 	*nl
 	if home_owned[1] = 2 and rembedr = 1 and remsitr = 1 and remkorr = 1 and remvanr = 1 and remkuhr = 1:
 		!Renovated city residential apartment
 		home_value1 = ((home_value[1] + 250000) + rand(-100000, 100000)) 
 		'We have found a buyer for your renovated apartment in the city residential area. They will offer <<home_value1>> <b>₽</b>, minus 5% for fees and taxes, bringing the total to <<home_value1/100*95>>'
 		act 'Sell the renovated apartment':
+			*clr
+			'<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>'
 			minut += 30
-			'You spend half an hour filling in the paperwork for the sale of your renovated apartment, with a loss of around 5% for fees and taxes. <<home_value1>> <b>₽</b> have been paid into your bank account.'
+			'You spend half an hour filling in the paperwork for the sale of your renovated apartment, with a loss of around 5% for fees and taxes. <<home_value1/100*95>> <b>₽</b> has been paid into your bank account.'
 			home_owned[1] = 0
 			ArendHouseSL = 0
 			if bankaccount = 1:
@@ -105,8 +115,11 @@ if $ARGS[0] = 'sell':
 		home_value1 = (home_value[1] + rand(-100000, 100000))
 		'We have found a buyer for your apartment in the city residential area. They will offer <<home_value1>> <b>₽</b>, minus 5% for fees and taxes, bringing the total to <<home_value1/100*95>>'
 		act 'Sell the city apartment':
+			*clr
+			'<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>'
 			minut += 30
-			'You spend half an hour filling in the paperwork for the sale of your apartment, with a loss of around 5% for fees and taxes. <<home_value1>> <b>₽</b> have been paid into your bank account.'
+			'You spend half an hour filling in the paperwork for the sale of your apartment, with a loss of around 5% for fees and taxes. <<home_value1/100*95>> <b>₽</b> has been paid into your bank account.'
 			home_owned[1] = 0
 			ArendHouseSL = 0
 			if bankaccount = 1:
@@ -123,8 +136,11 @@ if $ARGS[0] = 'sell':
 		home_value3 = (home_value[3] + rand(-5000, 5000))
 		'We have found a buyer for your small communal cottage. They will offer <<home_value3>> <b>₽</b>, minus 5% for fees and taxes, bringing the total to <<home_value3/100*95>>'
 		act 'Sell the holiday cottage':
+			*clr
+			'<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>'
 			minut += 30
-			'You spend half an hour filling in the paperwork for the sale of your small cottage, with a loss of around 5% for fees and taxes. <<home_value3>> <b>₽</b> have been paid into your bank account.'
+			'You spend half an hour filling in the paperwork for the sale of your small cottage, with a loss of around 5% for fees and taxes. <<home_value3/100*95>> <b>₽</b> has been paid into your bank account.'
 			home_owned[3] = 0
 			if bankaccount = 1:
 				karta += home_value3/100*95
@@ -140,8 +156,11 @@ if $ARGS[0] = 'sell':
 		home_value3 = ((home_value[3] + 200000) + rand(-10000, 10000))
 		'We have found a buyer for your small renovated communal cottage. They will offer <<home_value3>> <b>₽</b>, minus 5% for fees and taxes, bringing the total to <<home_value3/100*95>>'
 		act 'Sell the renovated cottage':
+			*clr
+			'<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>'
 			minut += 30
-			'You spend half an hour filling in the paperwork for the sale of the renovated cottage, with a loss of 1around 5% for fees and taxes. <<home_value3>> <b>₽</b> have been paid into your bank account.'
+			'You spend half an hour filling in the paperwork for the sale of the renovated cottage, with a loss of 1around 5% for fees and taxes. <<home_value3/100*95>> <b>₽</b> has been paid into your bank account.'
 			home_owned[3] = 0
 			if bankaccount = 1:
 				karta += home_value3/100*95
@@ -157,8 +176,11 @@ if $ARGS[0] = 'sell':
 		home_value5 = (home_value[5] + rand(-50000, 50000))
 		'We have found a buyer for your vacant plot of land in the suburbs. They will offer <<home_value5>> <b>₽</b>, minus 5% for fees and taxes, bringing the total to <<home_value5/100*95>>'
 		act 'Sell the vacant plot':
+			*clr
+			'<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>'
 			minut += 30
-			'You spend half an hour filling in the paperwork for the vacant plot, with a loss of around 5% for fees and taxes. <<home_value5>> <b>₽</b> have been paid into your bank account.'
+			'You spend half an hour filling in the paperwork for the vacant plot, with a loss of around 5% for fees and taxes. <<home_value5/100*95>> <b>₽</b> has been paid into your bank account.'
 			home_owned[5] = 0
 			if bankaccount = 1:
 				karta += home_value5/100*95
@@ -187,7 +209,7 @@ if $ARGS[0] = 'rent':
 	cla
 	*clr
 	'<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>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
 	*nl
 	minut += 5
 	gs 'stat'
@@ -197,6 +219,7 @@ if $ARGS[0] = 'rent':
 	elseif home_owned[1] = 0 and home_owned[4] = 0:
 		''
 		'There are two properties available for rent.'
+		*nl
 		'There is an apartment in the city residential area, and an apartment in Pushkin available'
 		act 'View the city apartment details': gt 'agentned', 'rent_cityres'
 		act 'View the Pushkin apartment details': gt 'agentned', 'rent_pushkin'
@@ -220,11 +243,13 @@ if $ARGS[0] = 'rent_cityres':
 	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
 	*nl
-	'“We have a flat available right now in the residential area of St. Petersburg.” The receptionist says as he starts pulling out the paperwork. “Rent is 15,000₽ and leases have to be renewed every 30 days, which can be taken automatically from your account or you can come in and pay directly. Last but not least, you have to make your first payment up front at signing.”'
-	'He pulls out a pen and slides the paperwork onto the counter. “Interested? We can get you moved in right away.”'
+	'“We have a flat available right now in the residential area of St. Petersburg.” The receptionist says as he starts pulling out the paperwork. “Rent is <<$home_rent_txt[1]>> ₽ and leases have to be renewed every 30 days, which can be taken automatically from your account or you can come in and pay directly. Last but not least, you have to make your first payment up front at signing.”'
+	'<br>He pulls out a pen and slides the paperwork onto the counter. “Interested? We can get you moved in right away.”'
 
 	if money >= home_rent[1]:
 		act 'Agree and pay':
+			cla
+			*clr
 			cls
 			minut += 30
 			money -= home_rent[1]
@@ -251,7 +276,7 @@ if $ARGS[0] = 'rent_cityres':
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
 		*nl
 		'You shake your head, “Actually, I need more time to think about this.”'
-		'The receptionist seems a bit miffed, but says nothing as he grabs the paperwork and stuffs it back in a drawer.'
+		'<br>The receptionist seems a bit miffed, but says nothing as he grabs the paperwork and stuffs it back in a drawer.'
 
 		act 'Return':gt'agentned', 'start'
 	end
@@ -264,8 +289,8 @@ if $ARGS[0] = 'rent_pushkin':
 	'<center><b><font color = maroon>Real Estate Agency</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
 	*nl
-	'“We have a small apartment available right now in Pushkin’s city center. It’s a little bit pricey, but it’s been recently renovated to be more modern, and it looks quite nice. You won’t find a place like that outside of Pushkin.” The receptionist says as he starts pulling out the paperwork. “Rent is 10,000₽ and leases have to be renewed every 30 days, which can be taken automatically from your account or you can come in and pay directly. Last but not least, you have to make your first payment up front at signing.”'
-	'He pulls out a pen and slides the paperwork onto the counter. “Interested? We can get you moved in right away.”'
+	'“We have a small apartment available right now in Pushkin’s city center. It’s a little bit pricey, but it’s been recently renovated to be more modern, and it looks quite nice. You won’t find a place like that outside of Pushkin.” The receptionist says as he starts pulling out the paperwork. “Rent is <<$home_rent_txt[4]>> ₽ and leases have to be renewed every 30 days, which can be taken automatically from your account or you can come in and pay directly. Last but not least, you have to make your first payment up front at signing.”'
+	'<br>He pulls out a pen and slides the paperwork onto the counter. “Interested? We can get you moved in right away.”'
 
 	if money >= home_rent[4]:
 		act 'Agree and pay':
@@ -297,7 +322,7 @@ if $ARGS[0] = 'rent_pushkin':
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/realestate/agenstvo.jpg"></center>'
 		*nl
 		'You shake your head, “Actually, I need more time to think about this.”'
-		'The receptionist seems a bit miffed, but says nothing as he grabs the paperwork and stuffs it back in a drawer.'
+		'<br>The receptionist seems a bit miffed, but says nothing as he grabs the paperwork and stuffs it back in a drawer.'
 
 		act 'Return':gt'agentned', 'start'
 	end
@@ -314,7 +339,7 @@ if $ARGS[0] = 'buy_cityres':
 	'<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>'
 	*nl
-	'You spend half an hour filling in the paperwork to buy an apartment in the residential area. 2,000,0000 <b>₽</b> are removed from your bank account.'
+	'You spend half an hour filling in the paperwork to buy an apartment in the residential area. <<$home_value_txt[1]>> <b>₽</b> has been removed from your bank account.'
 
 	act 'Return':gt'agentned', 'start'
 end
@@ -331,7 +356,7 @@ if $ARGS[0] = 'buy_dacha':
 	'<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>'
 	*nl
-	'You spend half an hour filling in the paperwork for the purchase of a cottage with a garden on the co-op 5km up the north road. 150,000 <b>₽</b> have been removed from your bank account.'
+	'You spend half an hour filling in the paperwork for the purchase of a cottage with a garden on the co-op 5km up the north road. <<$home_value_txt[3]>> <b>₽</b> has been removed from your bank account.'
 
 	act 'Return':gt'agentned', 'start'
 end
@@ -347,7 +372,7 @@ if $ARGS[0] = 'buy_Mansion':
 	'<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>'
 	*nl
-	'You spend half an hour filling in the paperwork for the purchase of a lot for building a mansion 1km up the north road. 1,500,0000 <b>₽</b> have been removed from your bank account.'
+	'You spend half an hour filling in the paperwork for the purchase of a lot for building a mansion 1km up the north road. <<$home_value_txt[5]>> <b>₽</b> has been removed from your bank account.'
 
 	act 'Return':gt'agentned', 'start'
 end

locations/housing.qsrc

@@ -36,16 +36,30 @@ if $ARGS[0] = 'rent':
 	end
 
 	home_rent[1] = 15000
-	!home_rent[3] = 0000
+	$home_rent_txt[1] = '15,000'
+
+	!home_rent[3] = 00000
+	!$home_rent_txt[3] = '00,000'
+
 	home_rent[4] = 10000
+	$home_rent_txt[4] = '10,000'
+
 	!home_rent[5] = 00000
+	!$home_rent_txt[5] = '00,000'
 end
 
 if $ARGS[0] = 'sale':
 	home_value[1] = 2000000
+	$home_value_txt[1] = '2,000,000'
+
 	home_value[3] = 150000
+	$home_value_txt[3] = '150,000'
+
 	!home_value[4] = 000000
+	!$home_value_txt[4] = '000,000'
+
 	home_value[5] = 1500000
+	$home_value_txt[5] = '1,500,000'
 end
 
 if $ARGS[0] = 'util':