001 - 099 revisited

- Uniformed prices: xxxx r/RUB/rubles to x,xxx rubles
- Fixed price display errors caused by auto correcting: x, xxx rubles to
x,xxx rubles

locations/049_enemy

@@ -213,7 +213,7 @@ if $ARGS[0] = 'tobi':
 		set mannaV -= 500
 		set TobiStena = 1
 		set defenceV += 25000
-		'<b><font color="red"><<$nameV>> makes Arcanum and reinforcing the skin blackens his body and creating protection of 25, 000 units.</font></b>'
+		'<b><font color="red"><<$nameV>> makes Arcanum and reinforcing the skin blackens his body and creating protection of 25,000 units.</font></b>'
 		set barierV = 2000
 		xgt 'fight', 'sta'
 		exit

locations/056_spell

@@ -21,7 +21,7 @@ end
 if $ARGS[0] = 'unmat':
 	cla
 	!Создание тумана
-	'You can become incorporeal for 30 moves, in exchange for 3, 000 units Rikudo forces. This part of the force will be lost to you forever after using spells.'
+	'You can become incorporeal for 30 moves, in exchange for 3,000 units Rikudo forces. This part of the force will be lost to you forever after using spells.'
 	'Not materiality allows you to skip through your body without getting any impact damage, while slightly reduced longevity spells.'
 
 	if rikudo >= 3000:
@@ -336,7 +336,7 @@ end
 if $ARGS[0] = 'fire5':
 	cla
 	!Создание тумана
-	'Flame Shield creates a shield of 2, 500 units. 500 mana cost.'
+	'Flame Shield creates a shield of 2,500 units. 500 mana cost.'
 
 	act 'Flame Shield (500 mana)':
 		cla
@@ -401,7 +401,7 @@ end
 if $ARGS[0] = 'ele3':
 	cla
 	!Создание тумана
-	'Electrical barrier creates a shield of 1, 500. 150 mana cost.'
+	'Electrical barrier creates a shield of 1,500. 150 mana cost.'
 
 	act 'Electric barrier (150 mana)':
 		cla
@@ -445,7 +445,7 @@ end
 if $ARGS[0] = 'ele5':
 	cla
 	!Создание тумана
-	'Plyaschuschaya sphere creates a shield of 5, 000 units. 500 mana cost.'
+	'Plyaschuschaya sphere creates a shield of 5,000 units. 500 mana cost.'
 
 	act 'Plyaschuschaya sphere (500 mana)':
 		cla
@@ -488,7 +488,7 @@ end
 if $ARGS[0] = 'ert2':
 	cla
 	!Создание тумана
-	'Active protection, creates a protective sphere of earth, stone and sand 2, 500 mana and health protection, this protection is self-healing in 10 moves absorbing units 20 mana per turn. 100 mana cost.'
+	'Active protection, creates a protective sphere of earth, stone and sand 2,500 mana and health protection, this protection is self-healing in 10 moves absorbing units 20 mana per turn. 100 mana cost.'
 
 	act 'Active Protection (100 mana)':
 		cla
@@ -514,7 +514,7 @@ end
 if $ARGS[0] = 'ert3':
 	cla
 	!Создание тумана
-	'Abyss earth asunder underfoot enemy inflicting damage 1, 500 and depriving him of the ability to move. 150 mana cost.'
+	'Abyss earth asunder underfoot enemy inflicting damage 1,500 and depriving him of the ability to move. 150 mana cost.'
 
 	act 'Quicksand (150 mana)':
 		cla
@@ -566,7 +566,7 @@ end
 if $ARGS[0] = 'ert5':
 	cla
 	!Создание тумана
-	'Sando, two huge plates come out of the ground and collapse crushing the enemy inflicting damage to 5, 000 units and depriving him of the ability to move. 500 mana cost.'
+	'Sando, two huge plates come out of the ground and collapse crushing the enemy inflicting damage to 5,000 units and depriving him of the ability to move. 500 mana cost.'
 
 	act 'Sando (500 mana)':
 		cla
@@ -615,7 +615,7 @@ end
 if $ARGS[0] = 'wind2':
 	cla
 	!Создание тумана
-	'Horrendous pressure inflicts 1, 000 clones and destroys the fog is very difficult to dodge. 100 mana cost.'
+	'Horrendous pressure inflicts 1,000 clones and destroys the fog is very difficult to dodge. 100 mana cost.'
 
 	act 'Horrendous pressure (100 mana)':
 		cla
@@ -641,7 +641,7 @@ end
 if $ARGS[0] = 'wind3':
 	cla
 	!Создание тумана
-	'Vacuum sphere, creates a shield of 1, 500. 150 mana cost.'
+	'Vacuum sphere, creates a shield of 1,500. 150 mana cost.'
 
 	act 'Vacuum sphere (150 mana)':
 		cla
@@ -662,7 +662,7 @@ end
 if $ARGS[0] = 'wind4':
 	cla
 	!Создание тумана
-	'Vacuum shells cause damage destroys 2, 500 clones and fog, it is very difficult to dodge. Cost 250 mana.'
+	'Vacuum shells cause damage destroys 2,500 clones and fog, it is very difficult to dodge. Cost 250 mana.'
 
 	act 'Vacuum Rockets (250 mana)':
 		cla
@@ -719,7 +719,7 @@ end
 if $ARGS[0] = 'water1':
 	cla
 	!Создание тумана
-	'Creek manna, inflicts 100 units and 1, 000 units absorbs manna. Cost 10 mana.'
+	'Creek manna, inflicts 100 units and 1,000 units absorbs manna. Cost 10 mana.'
 
 	act 'Creek mana (10 mana)':
 		cla
@@ -741,7 +741,7 @@ end
 if $ARGS[0] = 'water2':
 	cla
 	!Создание тумана
-	'Flooding, inflicts 1, 000 units and absorbs 500 units of manna. 100 mana cost.'
+	'Flooding, inflicts 1,000 units and absorbs 500 units of manna. 100 mana cost.'
 
 	act 'Flooding (100 mana)':
 		cla
@@ -763,7 +763,7 @@ end
 if $ARGS[0] = 'water3':
 	cla
 	!Создание тумана
-	'Water bubble creates a protective sphere of water 1, 500 protection from all influences, this protection is self-healing in 10 moves absorbing units 20 mana per turn. 150 mana cost.'
+	'Water bubble creates a protective sphere of water 1,500 protection from all influences, this protection is self-healing in 10 moves absorbing units 20 mana per turn. 150 mana cost.'
 
 	act 'Blister (150 mana)':
 		cla
@@ -790,7 +790,7 @@ end
 if $ARGS[0] = 'water4':
 	cla
 	!Создание тумана
-	'Water shark missile inflicts 1, 500 units and 2, 500 units consumes mana. Cost 250 mana.'
+	'Water shark missile inflicts 1,500 units and 2,500 units consumes mana. Cost 250 mana.'
 
 	act 'Water shark missile (250 mana)':
 		cla

locations/068_street

@@ -126,7 +126,7 @@ if workDiskAtkPlayer = 1:
 		workDolg = 200000
 		workDolgDay = 7
 		'Stolen.'
-		'-WHAT! But how could this happen! You know, in what you got dibs?! Term give you until next Friday. In my office, you bring 200, 000. If not - Pingyao itself.'
+		'-WHAT! But how could this happen! You know, in what you got dibs?! Term give you until next Friday. In my office, you bring 200,000. If not - Pingyao itself.'
 	else
 		konvert = 0
 		money += 5000

locations/083_park

@@ -381,7 +381,7 @@ if $ARGS[0] = 'avtomat2':
 
 	if avtrand = 100:
 		set money += 1000
-		'Jackpot! You win 1000 rubles.'
+		'Jackpot! You win 1,000 rubles.'
 	end
 
 	if avtrand < 100 and avtrand >= 95:

locations/085_parkivent

@@ -805,7 +805,7 @@ $parkivent7 = {
 			set nark += 10
 			set narkday = day
 			'You stayed with interest, never tried dope, but because at one time there will be nothing? The guy came up to you and backfilled with a little white powder, you sucked his nose and the world blossomed unexpected colors.'
-			'The guy looked at you and said, "If you like it, come again, a dose of only 2, 000 rubles."'
+			'The guy looked at you and said, "If you like it, come again, a dose of only 2,000 rubles."'
 
 			act 'Leave':gt 'park', 'start'
 

locations/085_pharmacy

@@ -73,7 +73,7 @@ $regular_items = {
 	end
 
 	if money >= 1500 and KandidNapr = 1:
-		act 'Buy <b>pills from yeast</b> (1500 rubles)':
+		act 'Buy <b>pills from yeast</b> (1,500 rubles)':
 			cla
 			*clr
 			set money -= 1500

locations/086_poli

@@ -16,7 +16,7 @@ if $ARGS[0] = 'start':
 	'Doctors appointments costs 1,000.'
 	'VD testing cost 1,000.'
 	*nl
-	'Abortion at the woman´s request can be made up to 84 days of pregnancy. The cost of abortion is 8, 000.'
+	'Abortion at the woman´s request can be made up to 84 days of pregnancy. The cost of abortion is 8,000.'
 	*nl
 	'Be warned, abortions are dangerous to health. There is always a risk of complications and the possibility of sterility.'
 	if workhosp = 1 and hour >= 8 and hour <= 9 and week < 6:act 'Exit to replace':gt 'poli', 'beginwork'
@@ -70,7 +70,7 @@ if $ARGS[0] = 'start':
 				'You have found genital herpes. This disease is not curable and it can only jam at a time.'
 
 				if Gerpes >= 3:
-					if GerpesNapr = 0:GerpesNapr = 3 & 'Here you have the direction of the shots herpes. Needs a course out of 3 injections, each injection will cost 1, 000 rubles each.'
+					if GerpesNapr = 0:GerpesNapr = 3 & 'Here you have the direction of the shots herpes. Needs a course out of 3 injections, each injection will cost 1,000 rubles each.'
 					if GerpesNapr > 0:'Go for shots herpes direction I gave you.'
 
 				else
@@ -85,14 +85,14 @@ if $ARGS[0] = 'start':
 					'Now you have syphilis in the inactive stage. Therefore, no special meaning in therapy.'
 
 				elseif Sifilis >= 15:
-					if SifNapr = 0:SifNapr = 10 & 'Here you have the direction of the shots from syphilis. Needs a course out of 10 injections, each injection will cost 5, 000 rubles.'
+					if SifNapr = 0:SifNapr = 10 & 'Here you have the direction of the shots from syphilis. Needs a course out of 10 injections, each injection will cost 5,000 rubles.'
 					if SifNapr > 0:'Go for injections of syphilis. Long course, 10 days. But it is necessary, severe.'
 				end
 			end
 
 			if TriperOnce = 1:
 				'You found gonorrhea. In principle, this disease is curable.'
-				if TriperNapr = 0:TriperNapr = 5 & 'Here you have the direction of the shots gonorrhea. Needs a course out of 5 injections, each injection will cost 1, 500 rubles'
+				if TriperNapr = 0:TriperNapr = 5 & 'Here you have the direction of the shots gonorrhea. Needs a course out of 5 injections, each injection will cost 1,500 rubles'
 			end
 
 			if KandidozOnce = 1:
@@ -109,7 +109,7 @@ if $ARGS[0] = 'start':
 	end
 
 	if GerpesNapr > 0 and money >= 1000 and GerpesUkolDay ! day:
-		act 'Go for shots of herpes (1, 000 rubles). Remaining <<GerpesNapr>> in the direction of injection':
+		act 'Go for shots of herpes (1,000 rubles). Remaining <<GerpesNapr>> in the direction of injection':
 			cls
 			set money -= 1000
 			set minut += 60
@@ -125,7 +125,7 @@ if $ARGS[0] = 'start':
 	end
 
 	if SifNapr > 0 and money >= 5000 and SifUkolDay ! day:
-		act 'Go to injections of syphilis (5, 000 rubles). Remaining <<SifNapr>> in the direction of injection':
+		act 'Go to injections of syphilis (5,000 rubles). Remaining <<SifNapr>> in the direction of injection':
 			cls
 			set money -= 5000
 			set minut += 60
@@ -141,7 +141,7 @@ if $ARGS[0] = 'start':
 	end
 
 	if TriperNapr > 0 and money >= 1500 and TriperUkolDay ! day:
-		act 'Go for shots of gonorrhea (1, 500 rubles). Remaining <<TriperNapr>> in the direction of injection':
+		act 'Go for shots of gonorrhea (1,500 rubles). Remaining <<TriperNapr>> in the direction of injection':
 			cls
 			set money -= 1500
 			set minut += 60
@@ -181,7 +181,7 @@ if $ARGS[0] = 'start':
 	end
 
 	if SifacOnce = 1 and money >= 350000 and week = 1 and day <= 10:
-		act 'Go to private clinics for the complete cure of syphilis. (350, 000 rubles)':
+		act 'Go to private clinics for the complete cure of syphilis. (350,000 rubles)':
 			cla
 			set money -= 350000
 			set day += 3
@@ -362,9 +362,9 @@ if $ARGS[0] = 'start':
 				'You`ve come to the office to the proctologist. He immediately asked you to undress from the waist down and tilt.'
 
 				if anus <= 15:'The doctor examined your anus and said "Well , slightly distended anus, but no abnormalities."'
-				if anus > 15 and anus <= 25:'The doctor examined your anus and said "You stretched anus and sphincter. I would rekkomendoval procedures, 1000 rubles per session, This will help decrease the anus to normal size."'
-				if anus > 25 and anus<=35:'The doctor examined your anus and said "You have greatly distended anus, most likely your sphincter is not able to keep the intestinal gas. I would rekkomendoval procedures, 1000 rubles per session, This will help decrease the anus to normal size."'
-				if anus > 35:'The doctor examined your anus and said "oh my God! You need to be careful with his booty obraschatsya, you have the same here now fall intestine. I would rekkomendoval procedures, 1000 rubles per session, This will help decrease the anus to normal size."'
+				if anus > 15 and anus <= 25:'The doctor examined your anus and said "You stretched anus and sphincter. I would rekkomendoval procedures, 1,000 rubles per session, This will help decrease the anus to normal size."'
+				if anus > 25 and anus<=35:'The doctor examined your anus and said "You have greatly distended anus, most likely your sphincter is not able to keep the intestinal gas. I would rekkomendoval procedures, 1,000 rubles per session, This will help decrease the anus to normal size."'
+				if anus > 35:'The doctor examined your anus and said "oh my God! You need to be careful with his booty obraschatsya, you have the same here now fall intestine. I would rekkomendoval procedures, 1,000 rubles per session, This will help decrease the anus to normal size."'
 			end
 
 			if money >= 1000 and anus > 15 and proktologday ! day:

locations/087_rinok

@@ -168,8 +168,8 @@ mag = 1
 '<center><img src="images/etogame/rinok.jpg"></center>'
 '<a href="exec:dynamic $rinbuy1 ">dishwashing detergent - 50 rubles</a> <a href="exec:dynamic $rinbuy2 ">laundry detergent - 150 rubles</a> <a href="exec:dynamic $rinbuy3 ">a set of 3 plates - 150 rubles</a> <a href="exec:dynamic $rinbuy4 ">Cosmetics - 500 rubles</a> <a href="exec:dynamic $rinbuy5 ">razor - 200 rubles</a> <a href="exec:dynamic $rinbuy6 ">tampons - 100 rubles</a> <a href="exec:dynamic $rinbuy7 ">Underwear - 200 rubles</a>'
 
-if bikini < 1:'<a href="exec:dynamic $rinbuy8 ">swimsuit - 1000 rubles</a>'
-if umbrella < 1:'<a href="exec:dynamic $rinbuy9 ">umbrella - 1000 rubles</a>'
+if bikini < 1:'<a href="exec:dynamic $rinbuy8 ">swimsuit (1,000 rubles)</a>'
+if umbrella < 1:'<a href="exec:dynamic $rinbuy9 ">umbrella (1,000 rubles)</a>'
 
 'On one of the tents hanging listing <a href="exec:gt ''loker2'', ''start''">"Accept the things to implement"</a>'
 
@@ -251,7 +251,7 @@ if (analplugIN = 1 and tanga = 0 and ski = 1) or (analplugIN = 1 and tanga = 0 a
 	end
 
 	if palto < 1:
-		'On the market sell for winter jackets. 5000 rubles'
+		'On the market sell for winter jackets. (5,000 rubles)'
 
 		if money >= 5000:
 			act 'Buy a down jacket':

locations/090_sauna2

@@ -2,7 +2,7 @@
 set minut += 5
 '<center><b><font color="maroon">Sauna</font></b></center>'
 '<center><img src="images/etogame/sauna1.jpg"></center>'
-'Stay for an hour costs 2000 rubles.'
+'Stay for an hour costs 2,000 rubles.'
 gs 'stat'
 fcolor = rgb(0, 0, 0)
 bcolor = rgb(255, 255, 255)

locations/096_shop

@@ -766,7 +766,7 @@ if $ARGS[0] = 'clo':
 	if money >= 1000 and bikini < 1:
 		'Swimsuit (1,000 rubles)'
 
-		act 'Buy swimsuit 1000 rubles.':
+		act 'Buy swimsuit (1,000 rubles)':
 			cla
 			*clr
 			set money -= 1000