Browse Source

[Changed] City clinic should have bank account options now.

Anya 2 years ago
parent
commit
548b9232a7
2 changed files with 196 additions and 92 deletions
  1. 188 84
      locations/city_clinic.qsrc
  2. 8 8
      locations/pav_clinic.qsrc

+ 188 - 84
locations/city_clinic.qsrc

@@ -216,25 +216,47 @@ if $ARGS[0] = 'start':
 				'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
-				
 			act 'Leave the clinic': minut += 5 & gt 'city_residential'
 		end
 	end
@@ -269,38 +291,66 @@ if $ARGS[0] = 'start':
 			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
@@ -325,57 +375,71 @@ if $ARGS[0] = 'stdclinic':
 	
 	act 'Leave':gt 'city_clinic', 'start'
 
-	if money >= 1000: act 'Take STD test (1,000 <b>₽</b>)': gt 'city_clinic', 'stdcheck'
+	if money >= 1000:
+		act 'Get tested for STDs (1,000 <b>₽</b>) (cash)':
+			money -= 1000
+			gs 'city_clinic', 'stdcheck'
+		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
-			menu_off = 1
-			money -= 450
-			minut += 60
-			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 'city_clinic', 'start'	
+	if karta >= 1000:
+		act 'Get tested for STDs (1,000 <b>₽</b>) (card)':
+			karta -= 1000
+			gs 'city_clinic', 'stdcheck'
 		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
-			menu_off = 1
-			money -= 750
-			minut += 60
-			TriperUkolDay = daystart
-			TriperNapr -= 1
-			gs 'stat'
-			'You see the nurse and she gives you a painful injection in your ass.'
+	if GerpesNapr > 0 and GerpesUkolDay ! daystart:
+		if money < 450 and karta < 450: *nl & 'You cannot afford your herpes shot.'
 
-			if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'
+		if money >= 450:
+			act 'Get herpes shot (1,000 <b>₽</b>) (cash). You need <<GerpesNapr>> more injections to complete the treatment.':
+				money -= 450
+				gs 'city_clinic', 'herpes_shot'
+			end
+		end
 
-			act 'Leave':gt 'city_clinic', 'start'
+		if karta >= 450:
+			act 'Get herpes shot (1,000 <b>₽</b>) (card). You need <<GerpesNapr>> more injections to complete the treatment.':
+				karta -= 450
+				gs 'city_clinic', 'herpes_shot'
+			end
 		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.'
+	if TriperNapr > 0 and TriperUkolDay ! daystart:
+		if money < 750 and karta < 750: *nl & 'You cannot afford your gonorrhea shot.'
 
-			'"That''s it, you might still feel a bit off but the infection is now cured".'
+		if money >= 750:
+			act 'Get gonorrhea shot (1,000 <b>₽</b>) (cash). You need <<TriperNapr>> more injections to complete the treatment.':
+				money -= 750
+				gs 'city_clinic', 'gonorrhea_shot'
+			end
+		end
 
-			act 'Leave':gt 'city_clinic', 'start'
+		if karta >= 750:
+			act 'Get gonorrhea shot (1,000 <b>₽</b>) (card). You need <<TriperNapr>> more injections to complete the treatment.':
+				karta -= 750
+				gs 'city_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 'city_clinic', 'syphilis_shot'
+			end
+		end
+
+		if karta >= 1000:
+			act 'Get syphilis shot (1,000 <b>₽</b>) (card)':
+				karta -= 1000
+				gs 'city_clinic', 'syphilis_shot'
+			end
 		end
 	end
 
@@ -514,6 +578,46 @@ if $ARGS[0] = 'stdcheck':
 	end
 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 'city_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 'city_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 'city_clinic'
+end
+
 if $ARGS[0] = 'ven1':
 	*clr & cla
 	menu_off = 1
@@ -521,7 +625,7 @@ if $ARGS[0] = 'ven1':
 	gs'stat'
     '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
     'You lie down, almost crying, mulling over the doctor''s words again and again in your head. You know it is not fair, but you can''t allow these images to go public and decide to pay him to delete the footage.'
-	'You pull the money from your wallet and give it to him, hoping he''ll keep true to his word...'
+	'You pull the money from your purse and give it to him, hoping he''ll keep true to his word...'
     act 'Return to the lobby':gt'city_clinic','start'
 end
 
@@ -861,7 +965,7 @@ if $ARGS[0] = 'ninel2':
 
 						gs 'arousal', 'vaginal_dildo', 5, 'sub', 'lesbian'
 						gs 'stat'
-											
+
 						act 'Oh-h...!':
 							*clr & cla
 							pcs_horny = 100
@@ -879,7 +983,7 @@ if $ARGS[0] = 'ninel2':
 							gs 'arousal', 'vaginal_finger', 15, 'sub', 'lesbian'
 							minut -= 15
 							gs 'stat'
-											
+
 							act 'Beg for it':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam07.jpg"></center>'
@@ -986,7 +1090,7 @@ if $ARGS[0] = 'ninel3':
 
 					gs 'arousal', 'vaginal_strap', 20, 'sub', 'lesbian'
 					gs 'stat'
-											
+
 					act 'Ride her':
 						*clr & cla
 						pcs_mood += 15
@@ -1005,7 +1109,7 @@ if $ARGS[0] = 'ninel3':
 						gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
 						gs 'arousal', 'end'
 						gs 'stat'
-											
+
 						act 'Freshen up and go': minut += 5 & gt 'city_residential'
 					end
 				end

+ 8 - 8
locations/pav_clinic.qsrc

@@ -172,7 +172,7 @@ if $ARGS[0] = '':
 								'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 'pav_commercial'
 						end
 					end
 					if karta >= zubpay:
@@ -190,12 +190,12 @@ if $ARGS[0] = '':
 								'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 'pav_commercial'
 						end
 					end
 				end				
 					
-				act 'Leave the clinic': minut += 5 & gt 'city_residential'
+				act 'Leave the clinic': minut += 5 & gt 'pav_commercial'
 			end
 		end
 
@@ -226,7 +226,7 @@ if $ARGS[0] = '':
 
 				if glass = 1:'The doctor adds, there is also the option to buy glasses for 4,500 <b>₽</b>.'
 
-				act 'Return to the entrance':gt 'city_clinic', 'start'
+				act 'Return to the entrance':gt 'pav_clinic'
 
 				if glass = 1:
 					if money < 4500 and karta < 4500:
@@ -242,7 +242,7 @@ if $ARGS[0] = '':
 								gs 'stat'
 								'You buy a new, more stylish pair of glasses.'
 
-								act 'Return to the entrance':gt 'city_clinic', 'start'
+								act 'Return to the entrance':gt 'pav_clinic'
 							end
 						end
 						if karta >= 4500 (card):
@@ -254,7 +254,7 @@ if $ARGS[0] = '':
 								gs 'stat'
 								'You buy a new, more stylish pair of glasses.'
 
-								act 'Return to the entrance':gt 'city_clinic', 'start'
+								act 'Return to the entrance':gt 'pav_clinic'
 							end
 						end
 					end
@@ -274,7 +274,7 @@ if $ARGS[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'
+								act 'Return to the entrance':gt 'pav_clinic'
 							end
 						end
 						if karta >= 75000 (card):
@@ -286,7 +286,7 @@ if $ARGS[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'
+								act 'Return to the entrance':gt 'pav_clinic'
 							end
 						end
 					end