Added chance of bad birth control pill and bad condoms when buying cheap items from the open market

New temporary variable "tempdiscount" added to ARGS[0] = 9 and ARGS[0] = 19. Linearly increasing risk of bad pills/condoms with better price.

Pills are randomly 750/pack (80% chance)  to 1750/pack (2% chance); normal pharmacy price is 1870/pack.
Condoms are randomly 50/pack of 5 (75% chance) to 250/pack of 5 (5% chance); normal pharmacy price is 500/pack of 5. All packs that cost 100/pack or less have a maximum 75% chance of having bad condoms.

locations/pavtrain_market.qsrc

@@ -626,16 +626,20 @@ if ARGS[0] = 9:
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/condoms.jpg"></center>'
-	tovpay = 80
+    !!Normal price 500/5, Market price is 50-250
+    tempdiscount = rand(0,20)
+	tovpay = 250 - (tempdiscount*10)
 	'You see a booth selling condoms for <<tovpay>> <b>₽</b>.'
 	if money >= tovpay:
-		act 'Buy condoms (80 <b>₽</b>)':
+		act 'Buy condoms (<<tovpay>> <b>₽</b>)':
 			cls
 			minut += 15
 			prezik += 5
 			i = 5
-			:cndmlp
-				if rand(0,49)-6*(8-tovpay/10) <= 0:badprezik += 1
+			!!Increasing risk of bad condom with higher discount; 5% at 250, max 75% at 100 (or less)
+            if tempdiscount > 15: tempdiscount = 15
+            :cndmlp
+				if rand(0,20) <= tempdiscount:badprezik += 1
 			if i > 0: i-= 1 & jump 'cndmlp'
 			killvar 'i'
 			money -= tovpay
@@ -805,14 +809,18 @@ if ARGS[0] = 19:
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/birthcontrolpills.jpg"></center>'
-	tovpay = 1500
+    !Normal price 1870, Market price is 750-1750/pack
+    tempdiscount = rand(0,40)
+	tovpay = 1750 - (tempdiscount*50)
 	'You see a booth selling birth control pills for <<tovpay>> <b>₽</b>.'
 	if money >= tovpay:
-		act 'Buy birth control pills (1500 <b>₽</b>)':
+		act 'Buy birth control pills (<<tovpay>> <b>₽</b>)':
 			cls
 			minut += 15
 			tabletki += 1
-			if rand(0,49) - (6*(8-tovpay/50)) <= 0: 
+          
+          	!Rising chance of bad pills based on price: 2% at 1750/pack, 80% at 750/pack
+			if rand(0,50) <= tempdiscount: 
 				temp = rand(0,3)
 				if temp = 0: 
 					tabletkiold += 1 & !Pills are expired and less effective