[added] two variables to check if sveta is safe or thinks she is safe and moved the new implant variables into the same array

locations/cikl.qsrc

@@ -435,13 +435,13 @@ if tabletkicheck = 2:
 	if tabletkishot > 0:tabletkishot -= 1
 end
 
-!! bc_implant['status']
+!! birth_control['implant_status']
 !! 0: No implant
 !! 3: Implant (more than 30 days left)
 !! 2: Implant (less than 30 days left)
 !! 1: Empty implant
 
-if bc_implant['status'] > 1:
+if birth_control['implant_status'] > 1:
 	pcs_skin += rand(0,1)
 	
 	pillcon += ((pillcon + 15000) / 25) + 4000
@@ -450,15 +450,15 @@ if bc_implant['status'] > 1:
 	pillcon2 += ((pillcon2 + 15000) / 25) + 4000
 	if pillcon2 > 40000: pillcon2 = 40000
 	
-	bc_implant['timer'] -= 1
-	if bc_implant['timer'] > 0 and bc_implant['timer'] < 30:
-		bc_implant['status'] = 2
-		'Your birth control implant is only good for <<bc_implant[''timer'']>> more'+iif(bc_implant['timer'] = 1, 'day.', 'days.')
-	elseif bc_implant['timer'] < 0:
-		bc_implant['status'] = 1
+	birth_control['implant_timer'] -= 1
+	if birth_control['implant_timer'] > 0 and birth_control['implant_timer'] < 30:
+		birth_control['implant_status'] = 2
+		'Your birth control implant is only good for <<birth_control[''implant_timer'']>> more'+iif(birth_control['implant_timer'] = 1, 'day.', 'days.')
+	elseif birth_control['implant_timer'] < 0:
+		birth_control['implant_status'] = 1
 		'You should renew or remove your birth control implant.'
 	end
-elseif bc_implant['status'] = 1:
+elseif birth_control['implant_status'] = 1:
 	'You should renew or remove your birth control implant.'
 end
 
@@ -575,7 +575,19 @@ end
 pilldaychk = 0
 if pilldays > 18: pilldays = 18
 if pilldays < 0: pilldays = 0
-!!
+
+if pillcon > 38000:
+	birth_control['save'] = 1
+else
+	birth_control['save'] = 0
+end
+
+if pillcon2 > 38000:
+	birth_control['think_save'] = 1
+else
+	birth_control['think_save'] = 0
+end
+
 $MenCal[] = $str(cycle)
 if ArrSize('$MenCal') = 60: killvar '$MenCal',0
 

locations/medical_din.qsrc

@@ -1,7 +1,7 @@
 # medical_din
 
 if $ARGS[0] = 'birth_control':
-	if tabletkishot < 5 and money >= 2750 and knowpreg = 0 and bc_implant['status'] = 0:
+	if tabletkishot < 5 and money >= 2750 and knowpreg = 0 and birth_control['implant_status'] = 0:
 		act 'Get a birth control shot for 2750 <b>₽</b> (0:15)':
 			*clr & cla
 			menu_off = 1
@@ -23,11 +23,11 @@ if $ARGS[0] = 'birth_control':
 			gs 'stat'
 			act 'Leave': gt $loc, $metka
 		end
-	elseif tabletkishot < 5 and money < 2750 and knowpreg = 0 and bc_implant['status'] = 0:
+	elseif tabletkishot < 5 and money < 2750 and knowpreg = 0 and birth_control['implant_status'] = 0:
 		act 'Get a birth control shot for <font color="red">3,900 <b>₽</b></font> (0:15)': '<br><font color="red">You don''t have enough money to get a birth control shot.</font>'
 	end
 
-	if bc_implant['status'] = 0 and money >= 19650 and knowpreg = 0:
+	if birth_control['implant_status'] = 0 and money >= 19650 and knowpreg = 0:
 		act 'Get a birth control implant for 19,650 <b>₽</b> (0:35)':
 			*clr & cla
 			menu_off = 1
@@ -37,8 +37,8 @@ if $ARGS[0] = 'birth_control':
 			if preg = 0:
 				minut += 20
 				money -= 19650
-				bc_implant['status'] = 3
-				bc_implant['timer'] = 1095
+				birth_control['implant_status'] = 3
+				birth_control['implant_timer'] = 1095
 				pillcon += ((pillcon + 15000) / 25) + 4000
 				pillcon2 += ((pillcon2 + 15000) / 25) + 4000
 				'"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
@@ -54,17 +54,17 @@ if $ARGS[0] = 'birth_control':
 			gs 'stat'
 			act 'Leave': gt $loc, $metka
 		end
-	elseif bc_implant['status'] = 0 and money < 19650 and knowpreg = 0:
+	elseif birth_control['implant_status'] = 0 and money < 19650 and knowpreg = 0:
 		act 'Get a birth control implant for <font color="red">19,000 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to get a birth control implant.</font>'
-	elseif bc_implant['status'] > 0:
+	elseif birth_control['implant_status'] > 0:
 		if money >= 1000:
 			act 'Remove your birth control implant for 1,000 <b>₽</b> (0:20)':
 				*clr & cla
 				menu_off = 1
 				minut += 20
 				money -= 1000
-				bc_implant['status'] = 0
-				bc_implant['timer'] = 0
+				birth_control['implant_status'] = 0
+				birth_control['implant_timer'] = 0
 				'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
 				'"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
 				'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect, before she makes a tiny incision and takes out your old implant. "All done!"'
@@ -75,7 +75,7 @@ if $ARGS[0] = 'birth_control':
 			act 'Remove your birth control implant for <font color="red">1,000 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to remove your birth control implant.</font>'
 		end
 			
-		if bc_implant['status'] < 3 and money >= 19650:
+		if birth_control['implant_status'] < 3 and money >= 19650:
 			act 'Renew your birth control implant for 19,650 <b>₽</b> (0:35)':
 				*clr & cla
 				menu_off = 1
@@ -85,16 +85,16 @@ if $ARGS[0] = 'birth_control':
 				if preg = 0:
 					minut += 20
 					money -= 19650
-					bc_implant['status'] = 3
-					bc_implant['timer'] = 1095
+					birth_control['implant_status'] = 3
+					birth_control['implant_timer'] = 1095
 					pillcon += ((pillcon + 15000) / 25) + 4000
 					pillcon2 += ((pillcon2 + 15000) / 25) + 4000
 					'"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
 					'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect, before she makes a tiny incision, takes out your old implant and pushes in a new one.'
 					'"All done! You should be good to go for three years."'
 				else
-					bc_implant['status'] = 0
-					bc_implant['timer'] = 0
+					birth_control['implant_status'] = 0
+					birth_control['implant_timer'] = 0
 					money -= 1650
 					'"I''m sorry, but we can''t give you the implant again, because you''re pregnant."'
 					'After the initial shock subsides you pay the 1650 <b>₽</b> for the test and the removal of your old implant leave.'
@@ -102,7 +102,7 @@ if $ARGS[0] = 'birth_control':
 					knowpreg = 1
 				end
 			end
-		elseif bc_implant['status'] < 3 and money < 19650:
+		elseif birth_control['implant_status'] < 3 and money < 19650:
 			act 'Renew your control implant for <font color="red">19,650 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to renew your birth control implant.</font>'
 		end
 	end