[changed] testing new form of morning after pill which functions more like real life - delays ovulation by a certain amount of time, if you are already ovulating you are SOL

locations/medical_din.qsrc

@@ -248,6 +248,12 @@ elseif $ARGS[0] = 'healSTDs':
 end
 
 if $ARGS[0] = 'morning_after_pill_function':
+	!! new morning after pill function that is meant to try to stop an egg from releasing
+	!! if an egg has already released, it will be of no help
+	if cycle = 1: FocH -= 120
+	
+	!! old function that kills sperm potency is unrealistic
+	!!{
 	if arrsize('cumarrcpt') > 0:
 		temp_ID = arrsize('cumarrcpt')
 		:morning_after_womb_cleanup
@@ -258,9 +264,11 @@ if $ARGS[0] = 'morning_after_pill_function':
 		if temp_ID > 0: temp_ID -= 1 & jump 'morning_after_womb_cleanup'
 		killvar 'temp_ID'
 	end
+	}
 	stat['morning_after_pill'] += 1
 	mc_inventory['morning_after_pill'] -= 1
 	if LudaQW['free_condoms'] = 1 and LudaQW['luda_ma_pill'] = 0: LudaQW['luda_ma_pill'] = 1
+	stat['last_morning_after_pill'] = daystart
 end
 
 if $ARGS[0] = 'morning_after_pill':