[change] shot wears off slower than before, but still faster than pill.

locations/fertility.qsrc

@@ -187,10 +187,10 @@ if $ARGS[0] = 'daily_update':
 			FocH = EggRH
 		end
 		if tabletkishot <= 0:
-			pillcon -= 29000
-			pillcon2 -= 29000
+			pillcon -= 3000
 			if tabletkishot < 0: tabletkishot = 0
 		end
+		if shotdays < 1: pillcon2 -= 3000
 		if shotdays < 2:
 			tabletkicheck = 0
 			msg 'Your birth control shot is no longer protecting you.'
@@ -261,13 +261,13 @@ if $ARGS[0] = 'update':
 	birth_control['old_pillcon'] = pillcon
 	birth_control['old_pillcon2'] = pillcon2
 
-	if pillcon > 26000:
+	if pillcon >= 39000:
 		birth_control['safe'] = 1
 	elseif placebopart <= 0:
 		birth_control['safe'] = 0
 	end
 
-	if pillcon2 > 26000:
+	if pillcon2 >= 38000:
 		birth_control['think_safe'] = 1
 	elseif placebopart <= 0:
 		birth_control['think_safe'] = 0