[fixes] Answers to question on birth control weren't logical as spotted by Stockiing

locations/experiment.qsrc

@@ -257,9 +257,12 @@ if $ARGS[0] = 'testarea:questionare:2':
 	'"Are you having regular periods?"'
 
 	if tabletkicheck = 2:
-		act 'No, I am on the pill.':regper = 3 & gt 'experiment', 'testarea:questionare:3'
-		act 'No, I am on the pill. (lie)':regper = 3 & gt 'experiment', 'testarea:questionare:3'
+		if tabletkishot > 0:
+			act 'No, I have had the birth control shot':regper = 4 & gt 'experiment', 'testarea:questionare:3'
+		end
+		act 'No, I am on the pill':regper = 3 & gt 'experiment', 'testarea:questionare:3'
 	else
+		act 'No, I am on the pill (lie)':regper = 3 & gt 'experiment', 'testarea:questionare:3'
 		act 'Yes'				:regper = 1  & gt 'experiment', 'testarea:questionare:3'
 		act 'Yes (lie)'			:regper = 2  & gt 'experiment', 'testarea:questionare:3'
 		act 'No'				:regper = -1 & gt 'experiment', 'testarea:questionare:3'