change birth control implant to IUD

locations/medical_din.qsrc

@@ -29,12 +29,12 @@ if $ARGS[0] = 'birth_control':
 	end
 
 	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)':
+		act 'Get an IUD for 19,650 <b>₽</b> (0:35)':
 			*clr & cla
 			menu_off = 1
 			minut += 15
-			'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
-			'You are escorted into an examination room, where you are told that say have to do a small test before inserting the implant into your left arm. You wait for fifteen minutes before the nurse comes back in.'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gin.jpg"></center>'
+			'You are escorted into an examination room, where you are told that say have to do a small test before inserting the implant. You wait for fifteen minutes before the nurse comes back in.'
 			if preg = 0:
 				minut += 20
 				money -= 19650
@@ -43,7 +43,7 @@ if $ARGS[0] = 'birth_control':
 				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 and pushes a small tube inside your arm. It isn''t bigger than a matchstick.'
+				'You spread your legs in the stirups and have to wait a few minutes for the topical anesthetic to take effect. She then removes the copper t-shaped devices from its sterile packaging and inserts it near the top of your cervix.'
 				'"All done! You should be good to go for three years."'
 			else
 				money -= 650
@@ -56,33 +56,33 @@ if $ARGS[0] = 'birth_control':
 			act 'Leave': gt $loc, $loc_arg
 		end
 	elseif birth_control['implant_status'] = 0 and money < 19650 and knowpreg = 0:
-		act 'Get a birth control implant for <font color="red">19,650 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to get a birth control implant.</font>'
+		act 'Get an IUD for <font color="red">19,650 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to get a birth control implant.</font>'
 	elseif birth_control['implant_status'] > 0:
 		if money >= 1000:
-			act 'Remove your birth control implant for 1,000 <b>₽</b> (0:20)':
+			act 'Remove your IUD for 1,000 <b>₽</b> (0:20)':
 				*clr & cla
 				menu_off = 1
 				minut += 20
 				money -= 1000
 				birth_control['implant_status'] = 0
 				birth_control['implant_timer'] = 0
-				'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
+			  '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gin.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!"'
+				'She numbs you with a local anesthetic. You have to wait for a few minutes for it to take a effect, before she retrieves the IUD from the top of your cervix. "All done!"'
 					
 				act 'Leave': gt $loc, $loc_arg			
 			end
 		else
-			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>'
+			act 'Remove your IUD for <font color="red">1,000 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to remove your IUD.</font>'
 		end
 			
 		if birth_control['implant_status'] < 3 and money >= 19650:
-			act 'Renew your birth control implant for 19,650 <b>₽</b> (0:35)':
+			act 'Renew your IUD for 19,650 <b>₽</b> (0:35)':
 				*clr & cla
 				menu_off = 1
 				minut += 15
-				'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
-				'You are escorted into an examination room, where you are told that say have to do a small test before inserting the implant into your left arm. You wait for fifteen minutes before the nurse comes back in.'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gin.jpg"></center>'
+			'You are escorted into an examination room, where you are told that say have to do a small test before inserting the implant. You wait for fifteen minutes before the nurse comes back in.'
 				if preg = 0:
 					minut += 20
 					money -= 19650
@@ -91,20 +91,20 @@ if $ARGS[0] = 'birth_control':
 					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."'
+				'You spread your legs in the stirups and have to wait a few minutes for the topical anesthetic to take effect. She then removes the copper t-shaped devices from its sterile packaging and inserts it near the top of your cervix.'
+				'"All done! You should be good to go for three years."'
 				else
 					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.'
+					'After the initial shock subsides you pay the 1650 <b>₽</b> for the test and the removal of your old IUD and then leave.'
 					thinkpreg = 1
 					knowpreg = 1
 				end
 			end
 		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>'
+			act 'Renew your IUD for <font color="red">19,650 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to renew your IUD.</font>'
 		end
 	end
 end
@@ -222,7 +222,7 @@ elseif $ARGS[0] = 'healthTreatment':
 	if pain['urethra'] > 0:pain['urethra'] -= rand(7,13)
 	if pain['cervix'] > 0:pain['cervix'] -= rand(7,13)
 	pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
-	if pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
+	if birth_control['implant_status'] <= 1 and pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
 	Kandidoz = min(Kandidoz,0)
 elseif $ARGS[0] = 'healSTDs':
 	!! Heals all STDs. Usage: gs 'medical_din','healSTDs'