[fixes] tabletkicheck mis-labelled in cikl and correction to my error based on that in experiment

locations/cikl.qsrc

@@ -373,7 +373,7 @@ if prezikmsg = 2: prezikmsg = 3
 !!	tabletkipi		: Pill Dicipline Dont take increase
 !!	tabletkicpd		: Current MC Pill Dicipline
 !!	tabletkichday	: Current day that the Birth Control is being evaluated for
-!!	tabletkicheck	: If the birth control is automatically handled
+!!	tabletkicheck	: If the birth control from shot (2) or pill (1)
 !!	tabletki		: How many packages of Birth Control Pills there are
 !!	tabletkiold		: Total number packages of expired pills
 !!	tabletkifake	: Total number packages of fake/counterfeit pills

locations/experiment.qsrc

@@ -257,9 +257,8 @@ if $ARGS[0] = 'testarea:questionare:2':
 	'"Are you having regular periods?"'
 
 	if tabletkicheck = 2:
-		if tabletkishot > 0:
-			act 'No, I have had the birth control shot':regper = 4 & gt 'experiment', 'testarea:questionare:3'
-		end
+		act 'No, I have had the birth control shot':regper = 4 & gt 'experiment', 'testarea:questionare:3'
+	elseif tabletkicheck = 1:
 		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'