[added] Pav clinic now accepts card payments for everything

locations/pav_clinic.qsrc

@@ -153,24 +153,47 @@ if $ARGS[0] = '':
 					'The dentist examines you and says, it will cost you <<zubpay>> <b>₽</b> to fill the gaps'
 				end
 
-				if money >= zubpay:
-					act 'Sort out your teeth':
-						*clr & cla
-						money -= zubpay
-						minut += 60
-						gs 'body_shape', 'basebeautycalc', 1
-						gs 'stat'
-						if pcs_teeth > 0:
-							pcs_teeth = 0
-							'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
-						else
-							pcs_teeth = -1
-							'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
+				if money < zubpay and karta < zubpay:
+					*nl
+					'You do not have enough money to fix your teeth.'
+				else
+					if money >= zubpay:
+						act 'Sort out your teeth (cash)':
+							*clr & cla
+							money -= zubpay
+							minut += 60
+							gs 'body_shape', 'basebeautycalc', 1
+							gs 'stat'
+							if pcs_teeth > 0:
+								pcs_teeth = 0
+								'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
+							else
+								pcs_teeth = -1
+								'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
+							end
+
+							act 'Leave the clinic': minut += 5 & gt 'city_residential'
 						end
+					end
+					if karta >= zubpay:
+						act 'Sort out your teeth (card)':
+							*clr & cla
+							karta -= zubpay
+							minut += 60
+							gs 'body_shape', 'basebeautycalc', 1
+							gs 'stat'
+							if pcs_teeth > 0:
+								pcs_teeth = 0
+								'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
+							else
+								pcs_teeth = -1
+								'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
+							end
 
-						act 'Leave the clinic': minut += 5 & gt 'city_residential'
+							act 'Leave the clinic': minut += 5 & gt 'city_residential'
+						end
 					end
-				end
+				end				
 					
 				act 'Leave the clinic': minut += 5 & gt 'city_residential'
 			end
@@ -206,38 +229,66 @@ if $ARGS[0] = '':
 				act 'Return to the entrance':gt 'city_clinic', 'start'
 
 				if glass = 1:
-					if money >= 4500:
-						act 'Buy glasses (4,500 <b>₽</b>)':
-							cls
-							money -= 4500
-							minut += 60
-							glass = 2
-							gs 'stat'
-							'You buy a new, more stylish pair of glasses.'
-
-							act 'Return to the entrance':gt 'city_clinic', 'start'
-						end
-					else
+					if money < 4500 and karta < 4500:
 						*nl
 						'You can not afford the more stylish glasses.'
+					else
+						if money >= 4500 (cash):
+							act 'Buy glasses (4,500 <b>₽</b>)':
+								cls
+								money -= 4500
+								minut += 60
+								glass = 2
+								gs 'stat'
+								'You buy a new, more stylish pair of glasses.'
+
+								act 'Return to the entrance':gt 'city_clinic', 'start'
+							end
+						end
+						if karta >= 4500 (card):
+							act 'Buy glasses (4,500 <b>₽</b>)':
+								cls
+								karta -= 4500
+								minut += 60
+								glass = 2
+								gs 'stat'
+								'You buy a new, more stylish pair of glasses.'
+
+								act 'Return to the entrance':gt 'city_clinic', 'start'
+							end
+						end
 					end
 				end
 
 				if glass ! 0:
-					if money >= 75000:
-						act 'Pay for laser correction (75,000 <b>₽</b>)':
-							cls
-							money -= 75000
-							minut += 60
-							blizoruk = 0
-							glass = 0
-							gs 'stat'
-							'You undergo laser eye surgery. Your eyesight is much better now.'
-							act 'Return to the entrance':gt 'city_clinic', 'start'
-						end
-					else
+					if money < 75000 and karta < 75000:
 						*nl
 						'You can not afford the laser eye correction surgery.'
+					else
+						if money >= 75000 (cash):
+							act 'Pay for laser correction (75,000 <b>₽</b>)':
+								cls
+								money -= 75000
+								minut += 60
+								blizoruk = 0
+								glass = 0
+								gs 'stat'
+								'You undergo laser eye surgery. Your eyesight is much better now.'
+								act 'Return to the entrance':gt 'city_clinic', 'start'
+							end
+						end
+						if karta >= 75000 (card):
+							act 'Pay for laser correction (75,000 <b>₽</b>)':
+								cls
+								karta -= 75000
+								minut += 60
+								blizoruk = 0
+								glass = 0
+								gs 'stat'
+								'You undergo laser eye surgery. Your eyesight is much better now.'
+								act 'Return to the entrance':gt 'city_clinic', 'start'
+							end
+						end
 					end
 				end
 			end
@@ -262,86 +313,7 @@ if $ARGS[0] = '':
 
 		gs 'medical_din', 'birth_control'
 
-		act 'Go to the sexual health clinic':
-			*clr & cla
-			menu_off = 1
-			minut += 1
-			gs 'stat'
-			'<center><b>Sexual Health Clinic</b></center>'
-			*nl
-			'<center>STD Test - 1,000 <b>₽</b></center>'
-			'<center>For treatments, see the nurse</center>'
-
-			act 'Leave':gt 'pav_clinic'
-
-			if money >= 1000:
-				act 'Get tested for STDs (1,000 <b>₽</b>)':
-					*clr & cla
-					money -= 1000
-					minut += 60
-					gs 'stat'
-					'The doctor has you provide some blood and urine, before examining you. Then he sends you out to wait in the waiting room while you wait for the test results to come back.'
-
-					if venera > 0 or Kandidoz > 10:
-						'The doctor calls you back to his office after a while, and says with a slight frown: "I''m afraid I have some bad news."'
-						gs 'pav_clinic', 'std_check'
-					else
-						'The doctor is pleased to announce that you do not have a sexually transmitted disease.'
-					end
-
-					act 'Leave':gt 'pav_clinic'
-				end
-			end
-
-			if GerpesNapr > 0 and money >= 450 and GerpesUkolDay ! daystart:
-				act 'Get herpes shot (450 <b>₽</b>). You need <<GerpesNapr>> more injections to complete the treatment.':
-					*clr & cla
-					money -= 450
-					minut += 15
-					GerpesUkolDay = daystart
-					GerpesNapr -= 1
-					gs 'stat'
-					'You see the nurse and she gives you a painful injection in your ass.'
-
-					if GerpesNapr = 0:Gerpes = -10 & 'You have completed the treatment.'
-					act 'Leave':gt 'pav_clinic'
-				end
-			end
-
-			if TriperNapr > 0 and money >= 750 and TriperUkolDay ! daystart:
-				act 'Get gonorrhea shot (750 <b>₽</b>). You need <<TriperNapr>> more injections to complete the treatment.':
-					*clr & cla
-					money -= 750
-					minut += 15
-					TriperUkolDay = daystart
-					TriperNapr -= 1
-					gs 'stat'
-					'You see the nurse and she gives you a painful injection in your ass.'
-
-					if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'
-
-					act 'Leave':gt 'pav_clinic'
-				end
-			end
-			if money >= 1000 and SifNapr = 1:
-				act 'Get syphilis shot (1,000 <b>₽</b>).':
-					*clr & cla
-					menu_off = 1
-					money -= 1000
-					minut += 60
-					SifNapr = 0
-					SifacOnce = 0
-					Sifilis = 0
-					Venera -= 1
-					gs 'stat'
-					'You see the nurse and she gives you a painful injection in your ass.'
-
-					'"That''s it, you might still feel a bit off but the infection is now cured".'
-
-					act 'Leave':gt 'pav_clinic'
-				end
-			end
-		end
+		act 'Go to the sexual health clinic': gt 'pav_clinic', 'sexual_health'
 
 		if sick >= 1:
 			act 'Visit the doctor for your sickness':
@@ -708,6 +680,142 @@ if $ARGS[0] = '':
 	end
 end
 
+if $ARGS[0] = 'sexual_health':
+	*clr & cla
+	menu_off = 1
+	minut += 1
+	gs 'stat'
+	'<center><b>Sexual Health Clinic</b></center>'
+	*nl
+	'<center>STD Test - 1,000 <b>₽</b></center>'
+	'<center>For treatments, see the nurse</center>'
+
+	act 'Leave':gt 'pav_clinic'
+
+	if money >= 1000:
+		act 'Get tested for STDs (1,000 <b>₽</b>) (cash)':
+			money -= 1000
+			gs 'pav_clinic', 'std_test'
+		end
+	end
+
+	if karta >= 1000:
+		act 'Get tested for STDs (1,000 <b>₽</b>) (card)':
+			karta -= 1000
+			gs 'pav_clinic', 'std_test'
+		end
+	end
+
+	if GerpesNapr > 0 and GerpesUkolDay ! daystart:
+		if money < 450 and karta < 450: *nl & 'You cannot afford your herpes shot.'
+
+		if money >= 450:
+			act 'Get herpes shot (1,000 <b>₽</b>) (cash). You need <<GerpesNapr>> more injections to complete the treatment.':
+				money -= 450
+				gs 'pav_clinic', 'herpes_shot'
+			end
+		end
+
+		if karta >= 450:
+			act 'Get herpes shot (1,000 <b>₽</b>) (card). You need <<GerpesNapr>> more injections to complete the treatment.':
+				karta -= 450
+				gs 'pav_clinic', 'herpes_shot'
+			end
+		end
+	end
+
+	if TriperNapr > 0 and TriperUkolDay ! daystart:
+		if money < 750 and karta < 750: *nl & 'You cannot afford your gonorrhea shot.'
+
+		if money >= 750:
+			act 'Get gonorrhea shot (1,000 <b>₽</b>) (cash). You need <<TriperNapr>> more injections to complete the treatment.':
+				money -= 750
+				gs 'pav_clinic', 'gonorrhea_shot'
+			end
+		end
+
+		if karta >= 750:
+			act 'Get gonorrhea shot (1,000 <b>₽</b>) (card). You need <<TriperNapr>> more injections to complete the treatment.':
+				karta -= 750
+				gs 'pav_clinic', 'gonorrhea_shot'
+			end
+		end
+	end
+
+	if SifNapr = 1:
+		if money < 1000 and karta < 1000: *nl & 'You cannot afford your syphilis shot.'
+
+		if money >= 1000:
+			act 'Get syphilis shot (1,000 <b>₽</b>) (cash)':
+				money -= 1000
+				gs 'pav_clinic', 'syphilis_shot'
+			end
+		end
+
+		if karta >= 1000:
+			act 'Get syphilis shot (1,000 <b>₽</b>) (card)':
+				karta -= 1000
+				gs 'pav_clinic', 'syphilis_shot'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'std_test':
+	minut += 60
+	gs 'stat'
+	'The doctor has you provide some blood and urine, before examining you. Then he sends you out to wait in the waiting room while you wait for the test results to come back.'
+
+	if venera > 0 or Kandidoz > 10:
+		'The doctor calls you back to his office after a while, and says with a slight frown: "I''m afraid I have some bad news."'
+		gs 'pav_clinic', 'std_check'
+	else
+		'The doctor is pleased to announce that you do not have a sexually transmitted disease.'
+	end
+
+	act 'Leave':gt 'pav_clinic'
+end
+
+if $ARGS[0] = 'herpes_shot':
+	*clr & cla
+	minut += 15
+	GerpesUkolDay = daystart
+	GerpesNapr -= 1
+	gs 'stat'
+	'You see the nurse and she gives you a painful injection in your ass.'
+
+	if GerpesNapr = 0:Gerpes = -10 & 'You have completed the treatment.'
+	act 'Leave':gt 'pav_clinic'
+end
+
+if $ARGS[0] = 'gonorrhea_shot':
+	*clr & cla
+	minut += 15
+	TriperUkolDay = daystart
+	TriperNapr -= 1
+	gs 'stat'
+	'You see the nurse and she gives you a painful injection in your ass.'
+
+	if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'
+
+	act 'Leave':gt 'pav_clinic'
+end
+
+if $ARGS[0] = 'syphilis_shot':
+	*clr & cla
+	minut += 60
+	SifNapr = 0
+	SifacOnce = 0
+	Sifilis = 0
+	Venera -= 1
+	gs 'stat'
+	'You see the nurse and she gives you a painful injection in your ass.'
+
+	'"That''s it, you might still feel a bit off but the infection is now cured".'
+
+	act 'Leave':gt 'pav_clinic'
+end
+
 if $ARGS[0] = 'referral':
 	menu_off = 1
 	if pcs_vag = 0 and stat['hidden_vaginal'] = 0:
@@ -1120,7 +1228,7 @@ if $ARGS[0] = 'spravka_money':
 		'The doctor strokes his chin as he thinks, and offers: "<<$pcs_nickname>>, I don''t know... I''m not here for the money. However, a private patient wouldn''t count as a minor, so I would have no obligation to tell your mother."'
 		'He continues: "The standard consultancy fee is 2,000 <b>₽</b>."'
 		if money >= 2000:
-			act 'Pay him the 2,000 <b>₽</b>':
+			act 'Pay him the 2,000 <b>₽</b> (cash)':
 				*clr & cla
 				minut += 5
 				money -= 2000
@@ -1134,6 +1242,21 @@ if $ARGS[0] = 'spravka_money':
 				act 'Leave':gt 'pav_clinic'
 			end
 		end
+		if karta >= 2000:
+			act 'Pay him the 2,000 <b>₽</b> (card)':
+				*clr & cla
+				minut += 5
+				karta -= 2000
+				gs 'stat'
+				Gspravka = 30
+				GspravkaT = 1
+				Gspassed = 1
+				forge_referral = 1
+				'Without giving it much thought, you say: "Deal!"'
+				'It''s not cheap, but this way you get another month to think of a solution before your mother finds out you are not a virgin. Dr. Petrovich produces a card reader and you make the payment, then fills out a form stating you are a virgin. He stamps it and hands it to you, and you carefully put it in your pocket while thanking him.'
+				act 'Leave':gt 'pav_clinic'
+			end
+		end
 		act 'Just accept the referral as is':gt 'pav_clinic', 'badend'
 		act 'Try to negotiate':gt 'pav_clinic', 'spravka_arrange'
 	else
@@ -1159,18 +1282,25 @@ if $ARGS[0] = 'spravka_money_pale':
 		'A gleam of greed appears in his eyes, you definitely have his attention. He offers: "However, a private patient wouldn''t count as a minor, so I would have no obligation to tell anyone anything. It would be like you were never here!"'
 		'He continues: "The normal consultancy fee is 2,000 <b>₽</b>."'
 		if money >= 2000:
-			act 'Pay him the 2,000 <b>₽</b>':
+			act 'Pay him the 2,000 <b>₽</b> (cash)':
 				*clr & cla
 				minut += 5
 				money -= 2000
 				pcs_horny += 5
 				gs 'stat'
 				'The doctor carefully counts the money, and then goes and prepares an injection from a bottle marked "0.45% Sodium Chloride Injection USP". You swallow nervously as he fills a rather large looking needle with the unfamiliar chemical.'
-				'He tells you to bend over. He seems to have some problems finding the correct spot for the shot and you feel his hand squeezing your ass cheeks in several spots. What''s taking him so long?'
-				'For a moment you you''re afraid he has to stick the needle in your asshole, as he even rubs you there. Fortunately, he finally settles on a location and swabs it with some disinfectant.'
-				'You feel a sharp pinch, then the feeling of a cold liquid being injected into your ass cheek. It isn''t as bad as you thought it was going to be, but you''re still relieved when it''s over.'
-				'"There, all done," the doctor says with a satisfied tone. He warns you: "It could take up to 30 days for the symptoms to fully disappear. Just be sure not to snort any more, or the cure will not work."'
-				act 'Leave':gt 'pav_clinic'
+				gs 'pav_clinic', 'spravka_money_pale2'
+			end
+		end
+		if karta >= 2000:
+			act 'Pay him the 2,000 <b>₽</b> (card)':
+				*clr & cla
+				minut += 5
+				karta -= 2000
+				pcs_horny += 5
+				gs 'stat'
+				'The doctor picks up his card reader and you make the payment, then goes and prepares an injection from a bottle marked "0.45% Sodium Chloride Injection USP". You swallow nervously as he fills a rather large looking needle with the unfamiliar chemical.'
+				gs 'pav_clinic', 'spravka_money_pale2'
 			end
 		end
 		act 'Try to negotiate':gt 'pav_clinic', 'spravka_arrange_pale'
@@ -1185,6 +1315,14 @@ if $ARGS[0] = 'spravka_money_pale':
 	end
 end
 
+if $ARGS[0] = 'spravka_money_pale2':
+	'He tells you to bend over. He seems to have some problems finding the correct spot for the shot and you feel his hand squeezing your ass cheeks in several spots. What''s taking him so long?'
+	'For a moment you you''re afraid he has to stick the needle in your asshole, as he even rubs you there. Fortunately, he finally settles on a location and swabs it with some disinfectant.'
+	'You feel a sharp pinch, then the feeling of a cold liquid being injected into your ass cheek. It isn''t as bad as you thought it was going to be, but you''re still relieved when it''s over.'
+	'"There, all done," the doctor says with a satisfied tone. He warns you: "It could take up to 30 days for the symptoms to fully disappear. Just be sure not to snort any more, or the cure will not work."'
+	act 'Leave':gt 'pav_clinic'
+end
+
 if $ARGS[0] = 'spravka_arrange_pale':
 	*clr & cla
 	minut += 5