[fixed] number separaters and nipple/lip confusion resolved from Hooded Silence

locations/pirsingsalon.qsrc

@@ -1,5 +1,6 @@
 # pirsingsalon
 
+
 !! Piercings variables:
 !! pirsX: Which piercing is worn at position X
 !! X=
@@ -27,15 +28,15 @@ if $ARGS[0] = 'start':
 	'Small studio with just one artist doing the tattoos and piercings.'
 
 	'<center><table border=1><TH>View tattoos</TH><TH>View tattoos</TH><TH>View piercings</TH>'
-	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''arm''">Arm - 8000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''lip''">Lip - 5000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsyaz''">Tongue - 5000 <b>₽</b></a></TD></tr>'
-	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''ass''">Ass - 10000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''neck''">Neck - 8000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsgub''">Lip - 6000 <b>₽</b></a></TD></tr>'
-	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''back''">Back - 10000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pubic''">Pubic - 20000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsysh''">Ear - 3000 <b>₽</b></a></TD></tr>'
-	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''belly''">Belly - 10000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''shoulder''">Shoulder - 8000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsnos''">Nose - 5000 <b>₽</b></a></TD></tr>'
-	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''breast''">Breasts - 15000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''side''">Side - 12000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsbro''">Eyebrow - 5000 <b>₽</b></a></TD></tr>'
-	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''chest''">Chest - 12000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''tramp''">Tramp stamp - 12000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirssos''">Nipple - 10000 <b>₽</b></a></TD></tr>'
-	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''face''">Face - 10000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''under''">Under breast - 12000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirspyp''">Navel - 10000 <b>₽</b></a></TD></tr>'
-	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''foot''">Foot - 8000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''wrist''">Wrist - 7000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsvla''">Pussy - 25000 <b>₽</b></a></TD></tr>'
-	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''leg''">Legs - 10000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''hand''">Hand - 7000 <b>₽</b></TD><TD></TD></tr></table></center>'
+	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''arm''">Arm - 8,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''lip''">Lip - 5,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsyaz''">Tongue - 5,000 <b>₽</b></a></TD></tr>'
+	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''ass''">Ass - 1,0000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''neck''">Neck - 8,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsgub''">Lip - 6,000 <b>₽</b></a></TD></tr>'
+	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''back''">Back - 10,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pubic''">Pubic - 20,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsysh''">Ear - 3,000 <b>₽</b></a></TD></tr>'
+	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''belly''">Belly - 10,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''shoulder''">Shoulder - 8,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsnos''">Nose - 5,000 <b>₽</b></a></TD></tr>'
+	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''breast''">Breasts - 15,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''side''">Side - 12,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsbro''">Eyebrow - 5,000 <b>₽</b></a></TD></tr>'
+	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''chest''">Chest - 12000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''tramp''">Tramp stamp - 12,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirssos''">Nipple - 10,000 <b>₽</b></a></TD></tr>'
+	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''face''">Face - 10,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''under''">Under breast - 12,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirspyp''">Navel - 10,000 <b>₽</b></a></TD></tr>'
+	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''foot''">Foot - 8,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''wrist''">Wrist - 7,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''pirsvla''">Pussy - 25,000 <b>₽</b></a></TD></tr>'
+	*p '<tr><TD><a href="exec:gt ''pirsingsalon'', ''leg''">Legs - 10,000 <b>₽</b></TD><TD><a href="exec:gt ''pirsingsalon'', ''hand''">Hand - 7,000 <b>₽</b></TD><TD></TD></tr></table></center>'
 
 	if hour < 12 or hour > 20:
 		cls
@@ -117,7 +118,7 @@ if $ARGS[0] = 'tongue_pir':
 			act 'Return':gt 'pirsingsalon', 'pirsyaz'
 		else
 			if money >= 3000:
-				act 'Buy this piercing for 3000 <b>₽</b> (cash)':
+				act 'Buy this piercing for 3,000 <b>₽</b> (cash)':
 					'You buy the piercing.'
 					cla
 					money -= 3000
@@ -128,7 +129,7 @@ if $ARGS[0] = 'tongue_pir':
 				'You don''t have enough cash for this piercing.'
 			end
 			if karta + bankDebtLimit >= 3000:
-				act 'Buy this piercing for 3000 <b>₽</b> (card)':
+				act 'Buy this piercing for 3,000 <b>₽</b> (card)':
 					'You buy the piercing.'
 					cla
 					karta -= 3000
@@ -141,7 +142,7 @@ if $ARGS[0] = 'tongue_pir':
 		end
 	elseif (money >= 5000) or (karta + bankDebtLimit >= 5000):
 		if money >= 5000:
-			act 'Get your tongue pierced with this piercing for 5000 <b>₽</b> (cash)':
+			act 'Get your tongue pierced with this piercing for 5,000 <b>₽</b> (cash)':
 				cls
 				minut += 30
 				money -= 5000
@@ -157,7 +158,7 @@ if $ARGS[0] = 'tongue_pir':
 			end
 		end
 		if karta + bankDebtLimit >= 5000:
-			act 'Get your tongue pierced with this piercing for 5000 <b>₽</b> (card)':
+			act 'Get your tongue pierced with this piercing for 5,000 <b>₽</b> (card)':
 				cls
 				minut += 30
 				karta -= 5000
@@ -204,7 +205,7 @@ if $ARGS[0] = 'lip_pir':
 			act 'Return':gt 'pirsingsalon', 'pirsgub'
 		else
 			if money >= 4000:
-				act 'Buy this piercing for 4000 <b>₽</b> (cash)':
+				act 'Buy this piercing for 4,000 <b>₽</b> (cash)':
 					'You buy the piercing.'
 					cla
 					money -= 4000
@@ -215,7 +216,7 @@ if $ARGS[0] = 'lip_pir':
 				'You don''t have enough cash for this piercing.'
 			end
 			if karta + bankDebtLimit >= 4000:
-				act 'Buy this piercing for 4000 <b>₽</b> (card)':
+				act 'Buy this piercing for 4,000 <b>₽</b> (card)':
 					'You buy the piercing.'
 					cla
 					karta -= 4000
@@ -228,7 +229,7 @@ if $ARGS[0] = 'lip_pir':
 		end
 	elseif (money >= 6000) or (karta + bankDebtLimit >= 6000):
 		if money >= 6000:
-			act 'Get your lip pierced with this piercing for 6000 <b>₽</b> (cash)':
+			act 'Get your lip pierced with this piercing for 6,000 <b>₽</b> (cash)':
 				cls
 				minut += 30
 				money -= 6000
@@ -244,7 +245,7 @@ if $ARGS[0] = 'lip_pir':
 			end
 		end
 		if karta + bankDebtLimit >= 6000:
-			act 'Get your lip pierced with this piercing for 6000 <b>₽</b> (card)':
+			act 'Get your lip pierced with this piercing for 6,000 <b>₽</b> (card)':
 				cls
 				minut += 30
 				karta -= 6000
@@ -291,7 +292,7 @@ if $ARGS[0] = 'ears_pir':
 			act 'Return':gt 'pirsingsalon', 'pirsysh'
 		else
 			if money >= 1000:
-				act 'Buy this piercing for 1000 <b>₽</b> (cash)':
+				act 'Buy this piercing for 1,000 <b>₽</b> (cash)':
 					'You buy the earrings.'
 					cla
 					money -= 1000
@@ -302,7 +303,7 @@ if $ARGS[0] = 'ears_pir':
 				'You don''t have enough cash for these earrings.'
 			end
 			if karta + bankDebtLimit >= 1000:
-				act 'Buy these earrings for 1000 <b>₽</b> (card)':
+				act 'Buy these earrings for 1,000 <b>₽</b> (card)':
 					'You buy the earrings.'
 					cla
 					karta -= 1000
@@ -315,7 +316,7 @@ if $ARGS[0] = 'ears_pir':
 		end
 	elseif (money >= 3000) or (karta + bankDebtLimit >= 3000):
 		if money >= 3000:
-			act 'Get your ears pierced with these earrings for 3000 <b>₽</b> (cash)':
+			act 'Get your ears pierced with these earrings for 3,000 <b>₽</b> (cash)':
 				cls
 				minut += 30
 				money -= 3000
@@ -331,7 +332,7 @@ if $ARGS[0] = 'ears_pir':
 			end
 		end
 		if karta + bankDebtLimit >= 3000:
-			act 'Get your ears pierced with these earrings for 3000 <b>₽</b> (card)':
+			act 'Get your ears pierced with these earrings for 3,000 <b>₽</b> (card)':
 				cls
 				minut += 30
 				karta -= 3000
@@ -378,7 +379,7 @@ if $ARGS[0] = 'nose_pir':
 			act 'Return':gt 'pirsingsalon', 'pirsnos'
 		else
 			if money >= 2000:
-				act 'Buy this piercing for 2000 <b>₽</b> (cash)':
+				act 'Buy this piercing for 2,000 <b>₽</b> (cash)':
 					'You buy the piercing.'
 					cla
 					money -= 2000
@@ -389,7 +390,7 @@ if $ARGS[0] = 'nose_pir':
 				'You don''t have enough cash for this piercing.'
 			end
 			if karta + bankDebtLimit >= 2000:
-				act 'Buy this piercing for 2000 <b>₽</b> (card)':
+				act 'Buy this piercing for 2,000 <b>₽</b> (card)':
 					'You buy the piercing.'
 					cla
 					karta -= 2000
@@ -402,7 +403,7 @@ if $ARGS[0] = 'nose_pir':
 		end
 	elseif (money >= 5000) or (karta + bankDebtLimit >= 5000):
 		if money >= 5000:
-			act 'Get your nose pierced with this piercing for 5000 <b>₽</b> (cash)':
+			act 'Get your nose pierced with this piercing for 5,000 <b>₽</b> (cash)':
 				cls
 				minut += 30
 				money -= 5000
@@ -418,7 +419,7 @@ if $ARGS[0] = 'nose_pir':
 			end
 		end
 		if karta + bankDebtLimit >= 5000:
-			act 'Get your nose pierced with this piercing for 5000 <b>₽</b> (card)':
+			act 'Get your nose pierced with this piercing for 5,000 <b>₽</b> (card)':
 				cls
 				minut += 30
 				karta -= 5000
@@ -465,7 +466,7 @@ if $ARGS[0] = 'brow_pir':
 			act 'Return':gt 'pirsingsalon', 'pirsbro'
 		else
 			if money >= 2000:
-				act 'Buy this piercing for 2000 <b>₽</b> (cash)':
+				act 'Buy this piercing for 2,000 <b>₽</b> (cash)':
 					'You buy the piercing.'
 					cla
 					money -= 2000
@@ -476,7 +477,7 @@ if $ARGS[0] = 'brow_pir':
 				'You don''t have enough cash for this piercing.'
 			end
 			if karta + bankDebtLimit >= 2000:
-				act 'Buy this piercing for 2000 <b>₽</b> (card)':
+				act 'Buy this piercing for 2,000 <b>₽</b> (card)':
 					'You buy the piercing.'
 					cla
 					karta -= 2000
@@ -489,7 +490,7 @@ if $ARGS[0] = 'brow_pir':
 		end
 	elseif (money >= 5000) or (karta + bankDebtLimit >= 5000):
 		if money >= 5000:
-			act 'Get your brow pierced with this piercing for 5000 <b>₽</b> (cash)':
+			act 'Get your brow pierced with this piercing for 5,000 <b>₽</b> (cash)':
 				cls
 				minut += 30
 				money -= 5000
@@ -505,7 +506,7 @@ if $ARGS[0] = 'brow_pir':
 			end
 		end
 		if karta + bankDebtLimit >= 5000:
-			act 'Get your brow pierced with this piercing for 5000 <b>₽</b> (card)':
+			act 'Get your brow pierced with this piercing for 5,000 <b>₽</b> (card)':
 				cls
 				minut += 30
 				karta -= 5000
@@ -552,7 +553,7 @@ if $ARGS[0] = 'nip_pir':
 			act 'Return':gt 'pirsingsalon', 'pirssos'
 		else
 			if money >= 6000:
-				act 'Buy these piercings for 6000 <b>₽</b> (cash)':
+				act 'Buy these piercings for 6,000 <b>₽</b> (cash)':
 					'You buy the piercings.'
 					cla
 					money -= 6000
@@ -563,7 +564,7 @@ if $ARGS[0] = 'nip_pir':
 				'You don''t have enough cash for these piercings.'
 			end
 			if karta + bankDebtLimit >= 6000:
-				act 'Buy these piercings for 6000 <b>₽</b> (card)':
+				act 'Buy these piercings for 6,000 <b>₽</b> (card)':
 					'You buy the piercings.'
 					cla
 					karta -= 6000
@@ -608,7 +609,7 @@ if $ARGS[0] = 'nip_pir':
 			end
 		end
 	else
-		'You cannot afford to get your lip pierced with these piercings.'
+		'You cannot afford to get your nipples pierced with these piercings.'
 	end
 
 	act 'Return':gt 'pirsingsalon', 'pirssos'
@@ -639,7 +640,7 @@ if $ARGS[0] = 'belly_pir':
 			act 'Return':gt 'pirsingsalon', 'pirspyp'
 		else
 			if money >= 7000:
-				act 'Buy this piercing for 7000 <b>₽</b> (cash)':
+				act 'Buy this piercing for 7,000 <b>₽</b> (cash)':
 					'You buy the piercing.'
 					cla
 					money -= 7000
@@ -650,7 +651,7 @@ if $ARGS[0] = 'belly_pir':
 				'You don''t have enough cash for this piercing.'
 			end
 			if karta + bankDebtLimit >= 7000:
-				act 'Buy this piercing for 7000 <b>₽</b> (card)':
+				act 'Buy this piercing for 7,000 <b>₽</b> (card)':
 					'You buy the piercing.'
 					cla
 					karta -= 7000
@@ -817,7 +818,7 @@ if $ARGS[0] = 'arm_get':
 		'You cannot afford this tattoo.'
 	else
 		if money >= 8000:
-			act 'Get this tattoo 8000 <b>₽</b> (cash)':
+			act 'Get this tattoo 8,000 <b>₽</b> (cash)':
 				cla
 				tatarm = n
 				money -= 8000
@@ -828,7 +829,7 @@ if $ARGS[0] = 'arm_get':
 			end
 		end
 		if karta + bankDebtLimit >= 8000:
-			act 'Get this tattoo 8000 <b>₽</b> (card)':
+			act 'Get this tattoo 8,000 <b>₽</b> (card)':
 				cla
 				tatarm = n
 				karta -= 8000