[fixed] Menu was being set to on by default and the return code was wrong. went through and corrected giving acces in the locations that seemed correct.

locations/experiment.qsrc

@@ -3,14 +3,14 @@
 $loc = 'experiment'
 $location_type = private
 $locM = 'experiment'
-$menu_loc = 'experiment'
-$menu_arg = 'private'
-menu_off = 0
 
 $doc1 = 'Doctor Sokolnikov'
 $doc2 = 'Doctor Ivanov'
 
 if $ARGS[0] = 'start':
+	$menu_loc = 'experiment'
+	$menu_arg = 'start'
+	menu_off = 0
 	$metka = 'start'
 	minut += 2
 	gs 'stat'
@@ -797,6 +797,9 @@ end
 
 if $ARGS[0] = 'testarea:start:treatmentStart:wakeup1':
 	minut += 1
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:start:treatmentStart:wakeup1'
+	menu_off = 0
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\lights.jpg"></center>'
 	*nl
@@ -811,6 +814,9 @@ if $ARGS[0] = 'testarea:start:treatmentStart:wakeup1':
 end
 
 if $ARGS[0] = 'testarea:start:treatmentStart:wakeup2':
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:start:treatmentStart:wakeup2'
+	menu_off = 0
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound1.jpg"></center>'
 	*nl
 	'...you are not just bound, but also completely naked!'
@@ -822,6 +828,7 @@ end
 
 if $ARGS[0] = 'testarea:start:treatmentStart:wakeup3':
 	minut += 5
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc1.jpg"></center>'
 	*nl
@@ -984,6 +991,9 @@ end
 
 if $ARGS[0] = 'testarea:treatment:bed':
 	minut += 5
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:bed'
+	menu_off = 0
 	gs 'stat'
 	'<center><h3>Experiment public room</h3></center>'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound2.jpg"></center>'
@@ -1018,6 +1028,7 @@ if $ARGS[0] = 'testarea:treatment:bed':
 end
 
 if $ARGS[0] = 'testarea:treatment:bed:sleep':
+	menu_off = 1
 	if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
 	if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
 	*nl
@@ -1033,6 +1044,7 @@ if $ARGS[0] = 'testarea:treatment:bed:sleep':
 end
 
 if $ARGS[0] = 'testarea:treatment:bed:wait':
+	menu_off = 1
 	minut += rand (20, 60)
 	gs 'stat'
 
@@ -1240,6 +1252,7 @@ if $ARGS[0] = 'testarea:treatment:sex3':
 end
 
 if $ARGS[0] = 'testarea:treatment:deflower':
+	menu_off = 1
 	if experi_stage = 0:
 		minut += 2
 		gs 'stat'
@@ -1421,6 +1434,9 @@ end
 
 if $ARGS[0] = 'testarea:treatment:room':
 	minut += 1
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:room'
+	menu_off = 0
 	gs 'stat'
 	$metka = 'testarea:treatment:room'
 	'<center><h3>Experiment private room</h3></center>'
@@ -1430,7 +1446,7 @@ if $ARGS[0] = 'testarea:treatment:room':
 	'The bed has arm and leg cuffs. A hook is hanging from the ceiling. A large box in the far corner is locked by a code lock, you can only guess what''s inside.'
 	'What strikes fear in your heart is a first aid kit on one of the walls, what just might happen here is so terrible that a first aid kit would be needed...'
 	'The <a href="exec:gt ''experiment'', ''testarea:treatment:room:shower''">bathroom</a> has, in addition to regular equipment, also an enema kit.'
-	'The exit door has a safety glass window. You are able to leave the room, but the only way you can go is the <a href="exec:gt ''experiment'', ''testarea:treatment:room:social''">social room</a>. All the other doors are securely locked.'
+	'The exit door has a safety glass window. You are able to leave the room, but the only way you can go is the <a href="exec:minut += 10 & gt ''experiment'', ''testarea:treatment:room:social''">social room</a>. All the other doors are securely locked.'
 
 	act 'Wait for some time':gt 'experiment', 'testarea:treatment:room:wait'
 	act 'Go to the bathroom':gt 'experiment', 'testarea:treatment:room:shower'
@@ -1457,10 +1473,11 @@ if $ARGS[0] = 'testarea:treatment:room':
 	if pcs_sleep < 50:
 		act 'Go to sleep':gt 'experiment', 'testarea:treatment:room:sleep'
 	end
-	act 'Go to social room':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go to social room':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:sleep':
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\sleep.jpg"></center>'
 	*nl
 	'You fall asleep on the bed, barely covered by the sheets...'
@@ -1481,6 +1498,9 @@ if $ARGS[0] = 'testarea:treatment:room:shower':
 	$locM = 'experiment'
 	$metkaM = 'testarea:treatment:room:shower'
 	$metka = 'testarea:treatment:room:shower'
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:room:shower'
+	menu_off = 0
 	'<center><h3>Experiment private - bathroom</h3></center>'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\roomshower.jpg"></center>'
 	*nl
@@ -1529,7 +1549,9 @@ if $ARGS[0] = 'testarea:treatment:room:wait':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social':
-	minut += 10
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:room:social'
+	menu_off = 0
 	$metka = 'testarea:treatment:room:social'
 
 	G1R = rand (0, 100)
@@ -1639,6 +1661,8 @@ if $ARGS[0] = 'testarea:treatment:room:social':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:gofuck':
+	menu_off = 1
+	gs 'stat'
 	'"White whore stop reading! Too much cum in balls I have, I need to empty them!" you hear a deep voice say.'
 	*nl
 	'One of the men approached you directly in the social room! You have no choice but to submit to him... like some kind of pet.'
@@ -1648,16 +1672,18 @@ if $ARGS[0] = 'testarea:treatment:room:social:gofuck':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G1':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
 	*nl
 	'A petite young girl, she must''ve just turned eighteen. She is obviously in a bad mood, keeping to herself.'
 	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G1:talk'
-	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go back':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk':
+	menu_off = 1
 	$subloc = 'testarea:treatment:room:social:girls:G1:talk:question'
 	minut += 3
 	gs 'stat'
@@ -1669,10 +1695,11 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk':
 	act 'Why did you join this experiment?':G1Q = 2 & gt 'experiment', $subloc
 	act 'What will you do once you finish the experiment?':G1Q = 3 & gt 'experiment', $subloc
 	act 'You don''t mind the way we are treated by the men?':G1Q = 4 & gt 'experiment', $subloc
-	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Leave her be':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk:question':
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
@@ -1696,16 +1723,18 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk:question':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G2':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
 	*nl
 	'A thin but lively girl. She is observing everyone else in the room, probably looking for a distraction from the usual boredom.'
 	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G2:talk'
-	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go back':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	$subloc = 'testarea:treatment:room:social:girls:G2:talk:question'
@@ -1717,10 +1746,11 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk':
 	act 'Why did you join this experiment?':G2Q = 2 & gt 'experiment', $subloc
 	act 'What will you do once you finish the experiment?':G2Q = 3 & gt 'experiment', $subloc
 	act 'You don''t mind the way we are treated by the men?':G2Q = 4 & gt 'experiment', $subloc
-	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Leave her be':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk:question':
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
@@ -1744,14 +1774,17 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk:question':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G3':
+	menu_off = 1
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
 	*nl
 	'A mature but fairly attractive woman in her late thirties. She is minding her own, reading a book.'
 	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G3:talk'
-	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go back':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	$subloc = 'testarea:treatment:room:social:girls:G3:talk:question'
@@ -1763,10 +1796,11 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk':
 	act 'Why did you join this experiment?':G3Q = 2 & gt 'experiment', $subloc
 	act 'What will you do once you finish the experiment?':G3Q = 3 & gt 'experiment', $subloc
 	act 'You don''t mind the way we are treated by the men?':G3Q = 4 & gt 'experiment', $subloc
-	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Leave her be':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk:question':
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
@@ -1790,6 +1824,8 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk:question':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event':
+	menu_off = 1
+	gs 'stat'
 	actionType = rand (1, 12)
 
 	! SEX
@@ -1849,6 +1885,7 @@ if $ARGS[0] = 'testarea:treatment:room:event':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:positionDoggy':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1862,6 +1899,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:positionDoggy':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:positionVag':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1874,6 +1912,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:positionVag':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:positionKneel':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1888,6 +1927,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:positionKneel':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:seduce':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1911,6 +1951,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:seduce':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:beg':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\beg.jpg"></center>'
@@ -1923,6 +1964,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:beg':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:resist':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\resist.jpg"></center>'
@@ -1933,6 +1975,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:resist':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:sex':
+	menu_off = 1
 	gs 'stat'
 
 	! COITUS: vaginal doggy, 1v1
@@ -2106,6 +2149,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:african:talk':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
@@ -2270,6 +2314,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q8':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:nurse:check':
+	menu_off = 1
 	minut += 5
 	! STATUS CHECK: nurse
 	gs 'experiment', 'std_block'
@@ -2305,6 +2350,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:nurse:check':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:nurse:talkTry':
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
@@ -2313,6 +2359,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:nurse:talkTry':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk':
+	menu_off = 1
 	nurseRel += 1
 	minut += 2
 	gs 'stat'
@@ -2445,6 +2492,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q7':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positiondoggy2.jpg"></center>'
@@ -2459,6 +2507,7 @@ if $ARGS[0] = 'testarea:treatment:impreg':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:doctor:volunteer':
+	menu_off = 1
 	minut += 3
 	thinpreg = 1
 	knowpreg = 1
@@ -2482,6 +2531,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:doctor:volunteer':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:doctor':
+	menu_off = 1
 	minut += 3
 	thinpreg = 1
 	knowpreg = 1
@@ -2506,6 +2556,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:doctor':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:cry':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\cry.jpg"></center>'
@@ -2517,7 +2568,9 @@ if $ARGS[0] = 'testarea:treatment:impreg:cry':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:dressup':
+	menu_off = 1
 	minut += 8
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
 	'The nurse enters the room, "So miss <<$pcs_lastname>>, here are your things from the locker, please dress up."'
 	'You eagerly put on the clothing that you left in the locker before getting locked up for days, maybe weeks, but definitely dozens of ejaculations ago.'
@@ -2528,6 +2581,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:dressup':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:leave':
+	menu_off = 1
 	minut += 5
 	money += 50000
 	experimentAbsolved += 1
@@ -2566,6 +2620,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:volunteer2':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:shout':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\shout\pc.jpg"></center>'
@@ -2584,6 +2639,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:shout':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:shout:punish':
+	menu_off = 1
 	'<center><video autoplay loop src="images\shared\sex\group\africangroup1.mp4"></video></center>'
 	'Several black men, most of them you have ''met'' before, start entering the room.'
 	'The one called Abdul is holding you while the other men grab your legs, making their way to your battered groin.'
@@ -2616,6 +2672,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:shout:punish':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:kickout':
+	menu_off = 1
 	minut += 5
 	'When they are finally done with you, one by one they leave the room and you crumble to the ground, filled with and covered by thick layers of jizz.'
 	'Far too exhausted, you can barely move, much less say anything. The only thing heard in the room for a moment is your hard, shaky breathing.'