[fixed] can buy suction dildos at the sex shop now

[added] option to buy with card

locations/sexshop.qsrc

@@ -303,14 +303,13 @@ if $ARGS[0] = 'start':
 		end
 	end
 	
-	if suction_dildo = 0 and (money < 1000 and karta + bankDebtLimit < 1000):
-		act 'Buy a 15cm suction dildo (1000 <b>₽</b>)':
+	if suction_dildo = 0 and money >= 1000:
+		act 'Buy a 15cm suction dildo 1000 <b>₽</b> (cash':
 			cla
 			minut += 5
-			suction_dildo = 1
+			suction_dildo += 1
 			money -= 1000
 			pcs_horny += 10
-			TimesBuyPorno += 1
 			'<center><img <<$set_imgh>> src="images/pc/items/15cm.jpg"></center>'
 			if  pcs_inhib < 35:
 				'You buy the dildo and hastily hide it, while your face blushes with embarrassment.'
@@ -320,14 +319,13 @@ if $ARGS[0] = 'start':
 			act 'Leave':gt 'pav_train_market', 'start'
 			act 'Buy something else':gt 'pav_train_market', 4
 		end
-	elseif suction_dildo > 0 and (money < 1000 and karta + bankDebtLimit < 1000):
-		act 'Buy another 15cm suction dildo (1000 <b>₽</b>)':
+	elseif suction_dildo > 0 and money >= 1000:
+		act 'Buy another 15cm suction dildo 1000 <b>₽</b> (cash':
 			cla
 			minut += 5
-			suction_dildo = 1
+			suction_dildo += 1
 			money -= 1000
 			pcs_horny += 10
-			TimesBuyPorno += 1
 			'<center><img <<$set_imgh>> src="images/pc/items/15cm.jpg"></center>'
 			if  pcs_inhib < 35:
 				'You buy the dildo and hastily hide it, while your face blushes with embarrassment.'
@@ -339,6 +337,40 @@ if $ARGS[0] = 'start':
 		end
 	end
 
+	if suction_dildo > 0 and (karta + bankDebtLimit >= 950):
+		act 'Buy another 15cm suction dildo 1000 <b>₽</b> (card0':
+			cla
+			minut += 5
+			suction_dildo += 1
+			karta -= 1000
+			pcs_horny += 10
+			'<center><img <<$set_imgh>> src="images/pc/items/15cm.jpg"></center>'
+			if  pcs_inhib < 35:
+				'You buy the dildo and hastily hide it, while your face blushes with embarrassment.'
+			else
+				'You buy the dildo and calmly hide it.'
+			end
+			act 'Leave':gt 'pav_train_market', 'start'
+			act 'Buy something else':gt 'pav_train_market', 4
+		end
+	elseif (karta + bankDebtLimit >= 950):
+		act 'Buy 15cm suction dildo 1000 <b>₽</b> (card0':
+			cla
+			minut += 5
+			suction_dildo += 1
+			karta -= 1000
+			pcs_horny += 10
+			'<center><img <<$set_imgh>> src="images/pc/items/15cm.jpg"></center>'
+			if  pcs_inhib < 35:
+				'You buy the dildo and hastily hide it, while your face blushes with embarrassment.'
+			else
+				'You buy the dildo and calmly hide it.'
+			end
+			act 'Leave':gt 'pav_train_market', 'start'
+			act 'Buy something else':gt 'pav_train_market', 4
+		end	
+	end
+
 	if bigdildo = 0 and (money < 950 and karta + bankDebtLimit < 950):
 		'You cannot afford the 25cm dildo.'
 	else