Merge remote-tracking branch 'julzor/master'

locations/BDSM.qsrc

@@ -2,9 +2,8 @@
 $metka = $ARGS[0]
 $loc = $CURLOC
 $location_type = 'event'
-cla
-clr
-*clr
+menu_off = 1
+*clr & cla
 gs 'stat'
 'You make your way to a room where a makeshift decor has been setup to shoot a porn movie.'
 

locations/BDSM_Club.qsrc

@@ -1,6 +1,7 @@
 # BDSM_Club
 if $ARGS[0] = 'Hos':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 10
 	lesbiday = daystart
 	BDSMClub = 1
@@ -23,7 +24,10 @@ if $ARGS[0] = 'start':
 	$metka = 'start'
 	$loc = 'BDSM_Club'
 	$location_type = 'public_outdoors'
-	cls
+	$menu_loc = 'BDSM_Club'
+	$menu_arg = 'start'
+	menu_off = 0
+	*clr & cla
 	minut += 10
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/club.jpg"></center>'
@@ -63,12 +67,13 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'in':
-	cls
+	*clr & cla
+	menu_off = 1
 	BDSMmeet += 1
 	BDSMday = daystart
 	gs 'stat'
 	if BDSMmeet = 1:
-		cls
+		*clr & cla
 		minut += 10
 		$BDSMrole = ''
 		gs 'stat'
@@ -92,7 +97,7 @@ if $ARGS[0] = 'in':
 		'"Dominant or submissive?"'
 		if pcs_dom < 50:
 			act 'submissive':
-				cls
+				*clr & cla
 				minut += 10
 				sub += 1
 				$BDSMrole = 's'
@@ -124,7 +129,7 @@ if $ARGS[0] = 'in':
 		end
 		if sub < 50:
 			act 'Dominant':
-				cls
+				*clr & cla
 				minut += 10
 				$BDSMrole = 'd'
 				gs 'stat'
@@ -144,7 +149,10 @@ if $ARGS[0] = 'in':
 end
 
 if $ARGS[0] = 's_start':
-	cls
+	*clr & cla
+	$menu_loc = 'BDSM_Club'
+	$menu_arg 's_start'
+	menu_off = 0
 	sub += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/1_1.jpg"></center>'
@@ -162,7 +170,10 @@ if $ARGS[0] = 's_start':
 end
 
 if $ARGS[0] = 'd_start':
-	cls
+	*clr & cla
+	$menu_loc = 'BDSM_Club'
+	$menu_arg 'd_start'
+	menu_off = 0
 	pcs_dom += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/1_1.jpg"></center>'
@@ -181,7 +192,10 @@ end
 
 if $ARGS[0] = 'reception':
 	$location_type = 'event'
-	cls
+	$menu_loc = 'BDSM_Club'
+	$menu_arg 'reception'
+	menu_off = 0
+	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/1_1.jpg"></center>'
 	'You go to the reception, Mistress Elektra is sitting at her desk looking a little bored.'

locations/BDSM_training.qsrc

@@ -1,5 +1,6 @@
 # BDSM_training
 if $ARGS[0] = 'start':
+	menu_off = 1
 	if BDSMpayDay < daystart - 30:
 		BDSMpayDay = daystart
 		money -= 10000
@@ -21,9 +22,10 @@ end
 	
 	
 if $ARGS[0] = '1':
+	menu_off = 1
 	BDSMday = daystart
 	money -= 10000
-	cls
+	*clr & cla
 	minut += 10
 	sub += 5
 	gs 'stat'
@@ -34,7 +36,7 @@ if $ARGS[0] = '1':
  	'"Get undressed." Orders Mistress. "Now!"'
 	'She brings the stick to your nose, and cracks it across your cheek.'
 	act 'Further':
-		cls
+		*clr & cla
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_2.jpg"></center>'
 		'"This is for electrical shocks." Explains Mistress. "You will meet him later."'
@@ -49,7 +51,7 @@ if $ARGS[0] = '1':
 		gs 'stat'
 			
 		act 'Obey':
-			cls
+			*clr & cla
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_3.jpg"></center>'
 			'The Mistress removes from the wall and you puts on you, a leather collar, then wrist cuffs and ankle bracelets with hooks. The collar presses. You reach up to loosen it, but that earns you a slap. The Mistress walks around, the toe of her boot pushes your feet.'
@@ -68,7 +70,7 @@ if $ARGS[0] = '1':
 			gs 'stat'
 		
 			act 'Listen':
-				cls
+				*clr & cla
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_4.jpg"></center>'
 				'Mistress hits you a few times on your inner thighs.'
@@ -82,7 +84,7 @@ if $ARGS[0] = '1':
 				gs 'stat'
 			
 				act 'Remember':
-					cls
+					*clr & cla
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_5.jpg"></center>'
 					'You feel covered in arousal. The Mistress sees your condition and puts her hand between your legs.'
@@ -106,7 +108,7 @@ if $ARGS[0] = '1':
 					gs 'arousal', 'vaginal_finger', 10, 'sub', 'lesbian', 'maso', 'bound'
 					gs 'stat'
 					act 'Breathe':
-						cls
+						*clr & cla
 						minut += 10
 						pcs_horny += 15
 						gs 'stat'
@@ -116,7 +118,7 @@ if $ARGS[0] = '1':
 						'"Cum only with permission, bitch! Clear?"'
 						'"Yes, Mistress! Yes!'
 						act 'Follow':
-							cls
+							*clr & cla
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_7.jpg"></center>'
 							'Mistress leads you to the diagonal cross and latches the bracelets to you. You can not move.'
@@ -129,7 +131,7 @@ if $ARGS[0] = '1':
 							minut -= 10
 							gs 'stat'
 							act 'Endure':
-								cls
+								*clr & cla
 								minut += 10
 								if pcs_horny < 100:pcs_horny = 100
 								gs 'stat'
@@ -139,7 +141,7 @@ if $ARGS[0] = '1':
 								$orgasm_or = 'no'
 								gs 'stat'
 								act 'Cheat and cum':
-									cls
+									*clr & cla
 									minut += 10
 									pcs_horny = 10
 									pcs_mood += 25
@@ -155,7 +157,7 @@ if $ARGS[0] = '1':
 									act 'Further':gt 'BDSM_training', 'BDSMend'
 								end
 								act 'Hold back':
-									cls
+									*clr & cla
 									minut += 10
 									if pcs_horny < 100:pcs_horny = 100
 									gs 'stat'
@@ -175,7 +177,8 @@ if $ARGS[0] = '1':
 end
 
 if $ARGS[0] = 'BDSMend':
-	cls
+	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_10.jpg"></center>'
 	'"Well, enough for today." You do not immediately understand, when Mistress announces the completion of the session. "A good start, but there is still work to do."'
@@ -190,8 +193,8 @@ if $ARGS[0] = 'BDSMend':
 	act 'Leave':gt 'BDSM_Club','start'
 end
 
-
 if $ARGS[0] = '2':
+	menu_off = 1
 	BDSMday = daystart
 	minut += 10
 	pcs_horny += 5
@@ -205,7 +208,7 @@ if $ARGS[0] = '2':
 	'"Yes, Mistress!"'
 	'You hurriedly undress.'
 	act 'Further':
-		cls
+		*clr & cla
 		minut += 10
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_2.jpg"></center>'
@@ -213,14 +216,14 @@ if $ARGS[0] = '2':
  		'"A good spanking will teach you not to be late!"'
 		'Mistress ties you onto the platform face down and picks up the whip.'
 		act 'Wait':
-			cls
+			*clr & cla
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_3.jpg"></center>'
 			'You are lying on the platform, Mistress, slowly and methodically, punishes you, using various whips, lashes and paddles.'
 			gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
 			gs 'stat'
 			act 'Endure':
-				cls
+				*clr & cla
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_4.jpg"></center>'
 				'It is becoming unbearable, and Mistress says.'
@@ -229,7 +232,7 @@ if $ARGS[0] = '2':
 				gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian', 'maso', 'bound'
 				gs 'stat'
 				act 'Further':
-					cls
+					*clr & cla
 					if pcs_horny < 90: pcs_horny = 90
 					pcs_vag += 1
 					gs 'stat'
@@ -243,14 +246,14 @@ if $ARGS[0] = '2':
 					gs 'arousal', 'vaginal_vibe', 10, 'sub', 'lesbian', 'maso', 'bound'
 					gs 'stat'
 					act 'Further':
-						cls
+						*clr & cla
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_6.jpg"></center>'
 						'Flogging resumes. The whole time you are kept on the brink of pain and pleasure.'
 						gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
 						gs 'stat'
 						act 'Further':
-							cls
+							*clr & cla
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_7.jpg"></center>'
 							'"Let''s get weaving..."'
@@ -260,7 +263,7 @@ if $ARGS[0] = '2':
 							gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
 							gs 'stat'
 							act 'Further':
-								cls
+								*clr & cla
 								pcs_vag += 1
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_8.jpg"></center>'
@@ -268,7 +271,7 @@ if $ARGS[0] = '2':
 								gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian', 'maso', 'bound'
 								gs 'stat'
 								act 'Further':
-									cls
+									*clr & cla
 									gs 'stat'
 									'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_9.jpg"></center>'
 									'Mistress Fucks you with a strapon and again brings to your peak, but does not give you the finish the desire.'
@@ -280,7 +283,7 @@ if $ARGS[0] = '2':
 									minut -= 10
 									gs 'stat'
 									act 'Further':
-										cls
+										*clr & cla
 										minut += 10
 										pcs_horny += 5
 										gs 'stat'
@@ -289,7 +292,7 @@ if $ARGS[0] = '2':
 										gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
 										gs 'stat'
 										act 'Further':
-											cls
+											*clr & cla
 											pcs_vag += 1
 											vgape = 2
 											gs 'stat'
@@ -299,7 +302,7 @@ if $ARGS[0] = '2':
 											gs 'arousal', 'vaginal_dildo', 10, 'sub', 'lesbian', 'maso', 'bound', 'rough'
 											gs 'stat'
 											act 'Stop it':
-												cls
+												*clr & cla
 												gs 'stat'
 												'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_12.jpg"></center>'
 												'Just as you are ready to scream "Red!", mistress takes the dildo out of you. Again the motor buzzes, you kneel on the floor. Madam binds your hands behind your back and puts you on the knees.'
@@ -308,7 +311,7 @@ if $ARGS[0] = '2':
 												gs 'arousal', 'kiss_give', 10, 'sub', 'lesbian', 'maso', 'bound', 'feet'
 												gs 'stat'
 												act 'Adore':
-													cls
+													*clr & cla
 													pcs_mood += 50
 													pcs_ass += 1
 													agape = 2
@@ -323,7 +326,7 @@ if $ARGS[0] = '2':
 													gs 'arousal', 'anal_strap', 10, 'sub', 'lesbian', 'maso', 'bound'
 													gs 'stat'
 													act 'Recover':
-														cls
+														*clr & cla
 														gs 'stat'
 														'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_14.jpg"></center>'
 														'"Finished?"  Mistress leans over to you.'
@@ -335,7 +338,7 @@ if $ARGS[0] = '2':
 														gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
 														gs 'stat'
 														act 'Further':
-															cls
+															*clr & cla
 															pcs_vag += 1
 															gs 'stat'
 															'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_15.jpg"></center>'
@@ -362,6 +365,7 @@ if $ARGS[0] = '2':
 end
 
 if $ARGS[0] = '3':
+	menu_off = 1
 	BDSMday = daystart
 	minut += 10
 	pcs_horny += 10
@@ -370,7 +374,7 @@ if $ARGS[0] = '3':
 	'You enter the training hall for your next training session. Mistress said you, this session is the last one before you will be admitted to the mansion. If you manage to fulfill all her instructions.'
 	'"Did you dress up pretty for me?" Says Mistress as she checks you out in a predatory manner, "Well, ready then? Get undressed and get over here!'
 	act 'Obey':
-		cls
+		*clr & cla
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_2.jpg"></center>'
 		'Mistress orders you to get into the cage, you are reminded of a parrot cage. Your body does not fit entirely, and your legs hang out. Your neck is held by a heavy iron collar, attached by chains to the bars of the cage. Mistress pushes a button and the cage rises.'
@@ -378,7 +382,7 @@ if $ARGS[0] = '3':
 		gs 'arousal', 'foreplay', 10, 'sub', 'lesbian','bound', 'feet'
 		gs 'stat'
 		act 'Further':
-			cls
+			*clr & cla
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_3.jpg"></center>'
 			'Mistress tickles your heels and growls at you everytime you try to move your legs.'
@@ -387,7 +391,7 @@ if $ARGS[0] = '3':
 			gs 'arousal', 'vaginal_vibe', 10, 'sub', 'lesbian', 'bound'
 			gs 'stat'
 			act 'Further':
-				cls
+				*clr & cla
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_4.jpg"></center>'
 				'"Leg!"'
@@ -397,7 +401,7 @@ if $ARGS[0] = '3':
 				gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound', 'feet'
 				gs 'stat'
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_5.jpg"></center>'
 					'You are responding, feeling waves of pleasure spread through your body. The vibrator buzzing and twitching, driving you crazy. Unable to restrain himself, you shout.'
@@ -406,7 +410,7 @@ if $ARGS[0] = '3':
 					gs 'arousal', 'vaginal_vibe', 10, 'sub', 'lesbian', 'maso', 'bound'
 					gs 'stat'
 					act 'Restrain':
-						cls
+						*clr & cla
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_6.jpg"></center>'
 						'Mistress monitors your condition, and the moment before you orgasm, she turns off the vibrator.'
@@ -417,7 +421,7 @@ if $ARGS[0] = '3':
 						gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
 						gs 'stat'
 						act 'Await orders':
-							cls
+							*clr & cla
 							guy += 1
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_7.jpg"></center>'
@@ -427,7 +431,7 @@ if $ARGS[0] = '3':
 							gs 'arousal', 'bj', 10, 'sub'
 							gs 'stat'
 							act 'Next':
-								cls
+								*clr & cla
 								pcs_vag += 1
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_8.jpg"></center>'
@@ -435,7 +439,7 @@ if $ARGS[0] = '3':
 								gs 'arousal', 'vaginal', 10, 'sub'
 								gs 'stat'
 								act 'Further':
-									cls
+									*clr & cla
 									gs 'stat'
 									'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_9.jpg"></center>'
 									'"Stop!" Orders Mistress.'
@@ -443,7 +447,7 @@ if $ARGS[0] = '3':
 									gs 'arousal', 'vaginal', 10, 'sub', 'maso'
 									gs 'stat'
 									act 'Grind':
-										cls
+										*clr & cla
 										pcs_mood += 25
 										gs 'stat'
 										'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_10.jpg"></center>'
@@ -457,7 +461,7 @@ if $ARGS[0] = '3':
 										minut -= 10
 										gs 'stat'
 										act 'Breathe':
-											cls
+											*clr & cla
 											minut += 10
 											BDSMClubIn = 1
 											gs 'stat'
@@ -481,9 +485,10 @@ if $ARGS[0] = '3':
 end
 
 if $ARGS[0] = 'd_start':
+	menu_off = 1
 	BDSMday = daystart
 	money -= 10000
-	cls
+	*clr & cla
 	minut += 10
 	sub += 5
 	gs 'stat'
@@ -507,7 +512,7 @@ if $ARGS[0] = 'd_start':
 			'Mistress Elektra walks over to a women, naked except for collar and cuffs and attaches a leash to her collar.'
 			'"A sub should be obedient and not speak unless spoken to, unless naked or wearing bondage gear, sub women should dress as maids and men as butlers."'
 			act 'Continue':
-				cls
+				*clr & cla
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/sex/r2_6.jpg"></center>'
 				'Elektra helps the sub into a harness and boots then points to the floor. The submissive women kneels down, being careful to position her legs and arms very precisely.'
@@ -516,7 +521,7 @@ if $ARGS[0] = 'd_start':
 				gs 'arousal', 'voyeur', 10
 				gs 'stat'
 				act 'Carry on':
-					cls
+					*clr & cla
 					BDSMClubIn = 1
 					minut += 10
 					pcs_horny += 30

locations/BDsex.qsrc

@@ -1,5 +1,7 @@
 # BDsex
 
+menu_off = 1
+
 if $ARGS[0] = 'start':
 	!!range of interactions
 	!!gs 'BDsex', 'start'

locations/BMloc.qsrc

@@ -1,8 +1,10 @@
 # BMloc
+
+menu_off = 1
 gs 'stat'
 
 act 'Dance':
-	cls
+	*clr & cla
 	gs 'stat'
 	gs 'boystat', $bmNane[Tboynum]
 	$npc_usedname[$npclastcalled] = $npc_nickname[$npclastcalled]
@@ -34,7 +36,7 @@ act 'Dance':
 	if bmTip[Tboynum] = 2:'After the Dance <<$boydesc>> offers to go to his hotel.'
 
 	act 'Agree':
-		cls
+		*clr & cla
 		boynumBlock = 1
 
 		if bmTip[Tboynum] = 0:gt 'gdksex', 'outside', 'nice'
@@ -43,7 +45,7 @@ act 'Dance':
 	end
 
 	act 'Refuse':
-		cls
+		*clr & cla
 		! WD: Should be pcs_sprt not willpower
 		sprt_exp += rand(0, 1)
 		gt 'gdkin'

locations/BelSex.qsrc

@@ -1,5 +1,7 @@
 # BelSex
 
+menu_off = 1
+
 if $ARGS[0] = '' or $ARGS[0] = 'sex':
 	CLOSE ALL
 	gs'stat'

locations/BurgerTip.qsrc

@@ -1,5 +1,7 @@
 # BurgerTip
 
+menu_off = 1
+
 $kompromatFoto = ''
 if film > 0:
  !pornoaktrissa

locations/backwater.qsrc

@@ -38,6 +38,7 @@ if $clothingworntype = 'nude':
 	act 'Wash self':
 		cla
 		*clr
+		menu_off = 1
 		dynamic $showerdin
 		face_write = 0
 		body_write = 0
@@ -62,6 +63,7 @@ if cumloc[11] = 1 or cumloc[12] = 1:
 	act 'Clean the sperm from your face (0:10)':
 		cla
 		*clr
+		menu_off = 1
 		pcs_makeup = 1
 		cumspclnt = 9
 		gs 'cum_cleanup'
@@ -82,6 +84,7 @@ if body_write > 0 or face_write > 0:
 	act 'Wash the writings off your body (0:10)':
 		cla
 		*clr
+		menu_off = 1
 		body_write = 0
 		face_write = 0
 		minut += 10
@@ -98,6 +101,7 @@ if cumloc[6] = 1 or cumloc[7] = 1:
 	act 'Wipe the cum off your clothes (0:10)':
 		cla
 		*clr
+		menu_off = 1
 		cumspclnt = 6
 		gs 'cum_cleanup'
 		minut += 10
@@ -116,6 +120,7 @@ if spdirty > 0:
 	act 'Quick wash (0:15)':
 		cla
 		*clr
+		menu_off = 1
 		cumspclnt = 4
 		gs 'cum_cleanup'
 		if pcs_sweat < 30:
@@ -136,6 +141,7 @@ end
 if clothesAtLocation = 0:
 	if $clothingworntype ! 'nude' and temper >= 15:
 		act'Get undressed':
+			menu_off = 1
 			if hantersKnowSlut > 0 or hanters = 0 or hour < 8 or hour >= 20 or pcs_inhib > 35:
 				cla
 				*clr
@@ -167,6 +173,7 @@ else
 		act 'Pick up your clothes':
 			cla
 			*clr
+			menu_off = 1
 			gs 'clothing', 'recover_lost_clothes', 'backwater'
 			'You pick up your clothes laying on the ground.'
 			gt $loc, $metka
@@ -175,6 +182,7 @@ else
 		act 'Get dressed':
 			cla
 			*clr
+			menu_off = 1
 			gs 'clothing', 'recover_lost_clothes', 'backwater', 1
 			gs 'underwear', 'wear'
 			'You pick up your clothes laying on the ground and get dressed.'
@@ -186,6 +194,7 @@ end
 if $clothingworntype = 'nude' and hantersKnowSlut = 0 and hanters = 1 and hour > 8 and hour < 20 and hanterknowday < day:
 	cla
 	*clr
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	'<center><B>Backwater</B></center>'
@@ -227,6 +236,7 @@ end
 if hantersRape = 2:
 	cla
 	*clr
+	menu_off = 1
 	minut += 5
 	hantersRape = 3
 	gs 'stat'

locations/balkon.qsrc

@@ -2,6 +2,9 @@
 if $ARGS[0] = 'start':
 	cla
 	*clr
+	$menu_loc = 'balkon'
+	$menu_arg = 'start'
+	menu_off = 0
 	minut += 1
 	gs 'stat'
 	'<center><b><font color="maroon">Apartment Balcony</font></b></center>'

locations/balkon2.qsrc

@@ -1,4 +1,7 @@
 # balkon2
+
+menu_off = 1
+
 if $ARGS[0] = 'kurit':
 	cla
 	*clr

locations/bandit.qsrc

@@ -2,6 +2,7 @@
 
 !! Bandit the Dog - npc static id A66
 
+menu_off = 1
 gs 'stat'
 sexpartkno = 1
 if $args[0] = '':

locations/banditbreak.qsrc

@@ -3,6 +3,7 @@
 !! Bandit the Dog - npc static id A66
 
 cls
+menu_off = 1
 gs 'boyStat', 'A66'
 sexpartkno = 1
 sexvolume = rand(20,590)

locations/bank.qsrc

@@ -40,6 +40,7 @@ if $ARGS[0] = 'start':
 	if BankPapper = 1 and dayBankPapper = daystart:
 		act 'Show documents':
 			*clr & cla
+			menu_off = 1
 			minut += 15
 			BankPapper = 2
 			gs 'stat'
@@ -59,6 +60,7 @@ if $ARGS[0] = 'start':
 	if money > 0:
 		act 'Deposit money':
 			cla
+			menu_off = 1
 			kartaIN = input ("How much money you want to deposit into the account?")
 
 			if kartaIN <= 0 or kartaIN > money:
@@ -82,6 +84,7 @@ if $ARGS[0] = 'start':
 	if karta + bankDebtLimit > 0:
 		act 'Withdraw money':
 			cla
+			menu_off = 1
 			kartaOUT = input ("How much do you want to withdraw from account?")
 
 			if kartaOUT <= 0 or kartaOUT > karta + bankDebtLimit:

locations/barbershop.qsrc

@@ -43,6 +43,10 @@
 !!pcs_haircol 16 = Light Purple
 !!pcs_haircol 17 = Orange
 
+$menu_loc = 'barbershop'
+$menu_arg = 'start'
+menu_off = 0
+
 if $ARGS[0] = 'start':
 	gs 'stat'
 	'<center><b><font color="maroon">The Barber Shop</font></b></center>'
@@ -91,7 +95,7 @@ if $ARGS[0] = 'start':
 	*nl
 
 	if hour =< 8 or hour >= 20:
-		cls
+		*clr & cla
 		'The barber shop is closed at the moment, you should probably come back, when Mr. Syomin is in'
 
 		act 'Leave':minut += 3 & gt 'pavCommercial'
@@ -104,7 +108,8 @@ end
 
 if money >= 60:
 	act 'Buy Scrunchies - 60 <b>₽</b>':
-		cls
+		*clr & cla
+		menu_off = 1
 		money -= 60
 		hscrunch += 10
 		'You pay Mr. Syomin and buy the small box.'
@@ -115,7 +120,8 @@ end
 
 if money >= 80:
 	act 'Buy Hairaccessories - 80 <b>₽</b>':
-		cls
+		*clr & cla
+		menu_off = 1
 		money -= 80
 		hpingrip += 10
 		'You pay Mr. Syomin and buy the small box.'
@@ -128,6 +134,7 @@ if barbershop_wrk = 0:
 	act 'Ask for work':
 		cla
 		*clr
+		menu_off = 1
 		minut += 5
 		'You walk up to Mr. Syomin, the owner of the barbershop.'
 		'"Hello Mr. Syomin", you greet him.'
@@ -160,6 +167,7 @@ elseif barbershop_wrk = 1 and barbershop_wrk_day ! daystart:
 	act 'Clean the shop for 90 <b>₽</b> (1:00)':
 		cla
 		*clr
+		menu_off = 1
 		minut += 60
 		money += 90
 		barbershop_wrk_day = daystart
@@ -173,6 +181,7 @@ end
 if $ARGS[0] = 'cuthair':
 	cla
 	*clr
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
 	'You look at your yourself in the mirror then ask Mr. Syomin if you can get your hair cut.'
 	'"Of course, how would you like your hair cut?", he asks you.'
@@ -186,7 +195,7 @@ if $ARGS[0] = 'cuthair':
 			'"Of course", he says with a friendly smile on her face, while leading you to a free seat.'
 
 			act 'Sit down':
-				cls
+				*clr & cla
 				minut += 30
 				pcs_hairlng = 10
 				gs 'stat'
@@ -214,7 +223,7 @@ if $ARGS[0] = 'cuthair':
 					'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
 
 					act 'Yes':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 31
 						hbangs = 1
@@ -228,7 +237,7 @@ if $ARGS[0] = 'cuthair':
 					end
 
 					act 'No':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 31
 						hbangs = 0
@@ -241,7 +250,7 @@ if $ARGS[0] = 'cuthair':
 						act 'Stand up':gt 'barbershop', 'start'
 					end
 				else
-					cls
+					*clr & cla
 					minut += 20
 					pcs_hairlng = 31
 					pcs_hairbsh = 1
@@ -271,7 +280,7 @@ if $ARGS[0] = 'cuthair':
 					'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
 
 					act 'Yes':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 81
 						hbangs = 1
@@ -285,7 +294,7 @@ if $ARGS[0] = 'cuthair':
 					end
 
 					act 'No':
-						cls
+						*clr & cla
 						minut += 30
 						pcs_hairlng = 81
 						hbangs = 0
@@ -298,7 +307,7 @@ if $ARGS[0] = 'cuthair':
 						act 'Stand up':gt 'barbershop', 'start'
 					end
 				else
-					cls
+					*clr & cla
 					minut += 20
 					pcs_hairlng = 31
 					pcs_hairbsh = 1
@@ -328,7 +337,7 @@ if $ARGS[0] = 'cuthair':
 					'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
 
 					act 'Yes':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 161
 						hbangs = 1
@@ -342,7 +351,7 @@ if $ARGS[0] = 'cuthair':
 					end
 
 					act 'No':
-						cls
+						*clr & cla
 						minut += 30
 						pcs_hairlng = 161
 						hbangs = 0
@@ -355,7 +364,7 @@ if $ARGS[0] = 'cuthair':
 						act 'Stand up':gt 'barbershop', 'start'
 					end
 				else
-					cls
+					*clr & cla
 					minut += 20
 					pcs_hairlng = 161
 					pcs_hairbsh = 1
@@ -385,7 +394,7 @@ if $ARGS[0] = 'cuthair':
 					'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
 
 					act 'Yes':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 261
 						hbangs = 1
@@ -399,7 +408,7 @@ if $ARGS[0] = 'cuthair':
 					end
 
 					act 'No':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 261
 						hbangs = 0
@@ -412,7 +421,7 @@ if $ARGS[0] = 'cuthair':
 						act 'Stand up':gt 'barbershop', 'start'
 					end
 				else
-					cls
+					*clr & cla
 					minut += 20
 					pcs_hairlng = 261
 					pcs_hairbsh = 1
@@ -442,7 +451,7 @@ if $ARGS[0] = 'cuthair':
 					'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
 
 					act 'Yes':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 401
 						hbangs = 1
@@ -456,7 +465,7 @@ if $ARGS[0] = 'cuthair':
 					end
 
 					act 'No':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 401
 						hbangs = 0
@@ -469,7 +478,7 @@ if $ARGS[0] = 'cuthair':
 						act 'Stand up':gt 'barbershop', 'start'
 					end
 				else
-					cls
+					*clr & cla
 					minut += 20
 					pcs_hairlng = 401
 					pcs_hairbsh = 1
@@ -499,7 +508,7 @@ if $ARGS[0] = 'cuthair':
 					'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
 
 					act 'Yes':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 601
 						hbangs = 1
@@ -513,7 +522,7 @@ if $ARGS[0] = 'cuthair':
 					end
 
 					act 'No':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 601
 						hbangs = 0
@@ -526,7 +535,7 @@ if $ARGS[0] = 'cuthair':
 						act 'Stand up':gt 'barbershop', 'start'
 					end
 				else
-					cls
+					*clr & cla
 					minut += 20
 					pcs_hairlng = 601
 					pcs_hairbsh = 1
@@ -556,7 +565,7 @@ if $ARGS[0] = 'cuthair':
 					'"Before we begin, I need to ask, if I should cut you a fringe or not.", he tells you.'
 
 					act 'Yes':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 801
 						hbangs = 1
@@ -570,7 +579,7 @@ if $ARGS[0] = 'cuthair':
 					end
 
 					act 'No':
-						cls
+						*clr & cla
 						minut += 20
 						pcs_hairlng = 801
 						hbangs = 0
@@ -583,7 +592,7 @@ if $ARGS[0] = 'cuthair':
 						act 'Stand up':gt 'barbershop', 'start'
 					end
 				else
-					cls
+					*clr & cla
 					minut += 20
 					pcs_hairlng = 801
 					pcs_hairbsh = 1
@@ -604,6 +613,7 @@ end
 if $ARGS[0] = 'perm':
 	cla
 	*clr
+	menu_off = 1
 	minut += 20
 	money -= 1500
 	if defcurly = 0:
@@ -623,6 +633,7 @@ end
 if $ARGS[0] = 'perm2':
 	cla
 	*clr
+	menu_off = 1
 	minut += 20
 	money -= 1500
 	curly = 0
@@ -640,8 +651,8 @@ if $ARGS[0] = 'perm2':
 end
 
 if $ARGS[0] = 'dyehair':
-	clr
-	cla
+	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	'You ask Mr. Syomin, the barber, if he could dye your hair.'
 	'"Sure.", he says.'
@@ -1180,6 +1191,7 @@ end
 if $ARGS[0] = 'touchup':
 	cla
 	*clr
+	menu_off = 1
 	minut += 45
 	dyefade = rand(35,42)
 	collength = pcs_hairlng
@@ -1196,6 +1208,7 @@ end
 if $ARGS[0] = 'touchup2':
 	cla
 	*clr
+	menu_off = 1
 	'The hairdresser smiles apologetically, "Sorry, but you''re going to need a completely new dye job to cover that up. I can do it, if you want? It''s only 750 <b>₽</b>."'
 	act 'Sure':
 		cla

locations/bass.qsrc

@@ -5,6 +5,9 @@ if $ARGS[0] = 'start':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
     $location_type = 'public_indoors'
+	$menu_loc = 'bass'
+	$menu_arg = 'start'
+	menu_off = 0
 	cls
 	minut += 5
 	gs 'stat'
@@ -27,6 +30,7 @@ end
 if $ARGS[0] = 'a':
 	cla
 	*clr
+	menu_off = 1
 	minut += 5
 	'<center><b><font color="maroon">Pool</font></b></center>'
 

locations/bed.qsrc

@@ -1,7 +1,8 @@
 # bed
 if $ARGS[0] = 'start':
 	cla
-	clr
+	*clr
+	menu_off = 1
 	shour = 24 - hour
 	houserabrand = rand(0, 100)
 	housevorrand = rand(0, 200)
@@ -19,6 +20,7 @@ end
 if $ARGS[0] = 'mast':
 	cla
 	*clr
+	menu_off = 1
 	if pcs_inhib < 30:inhib_exp += rand(1,3)
 	pcs_mood += 15
 	pcs_willpwr += 15
@@ -194,7 +196,7 @@ end
 
 if $ARGS[0] = 'fin':
 	cla
-
+	menu_off = 1
 	if housrA = 1:
 		gt 'bedr'
 	end
@@ -211,6 +213,7 @@ end
 if $ARGS[0] = 'rab':
 	cla
 	*clr
+	menu_off = 1
 	minut += 120
 	houserabday = daystart
 	'<center><img <<$set_imgh>> src="images/characters/city/nicholas/sex/r0.jpg"></center>'
@@ -298,7 +301,7 @@ end
 if $ARGS[0] = 'vor':
 	cla
 	*clr
-
+	menu_off = 1
 	if sobaka = 1:
 		if dog_bravery = 0:
 			dog_bravery = rand(1, 100)
@@ -337,6 +340,7 @@ if $ARGS[0] = 'vor':
 end
 
 if $ARGS[0] = 'vor2':
+	menu_off = 1
 	minut += 60
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/g0.jpg"></center>'
 
@@ -403,7 +407,7 @@ end
 if $ARGS[0] = 'vorend':
 	cla
 	*clr
-
+	menu_off = 1
 	if remsitr = 0:'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sitr.jpg"></center>'
 	if remsitr = 1:'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sitr2.jpg"></center>'
 

locations/bed1.qsrc

@@ -3,6 +3,7 @@
 if $ARGS[0] = 'sogn':
 	cla
 	*clr
+	menu_off = 1
 	dogday = daystart
 	'<center><img <<$set_imgh>> src="images/beast/zoo/2.jpg"></center>'
 	'You undress and lie down on the bed <<$namesob>> brazenly jump onto the bed and starts licking your pussy'
@@ -13,6 +14,7 @@ if $ARGS[0] = 'sogn':
 end
 
 if $ARGS[0] = 'sog1':
+	menu_off = 1
 	if zoo >= 6 and sobaka ! 0:
 		if husband > 0 and husbandrink ! 10:
 			if hour > 22 or hour < 7:
@@ -215,7 +217,7 @@ if $ARGS[0] = 'sog1':
 							gs 'stat'
 
 							act 'Spread your legs':
-								cls
+								*clr & cla
 								suprdolg += 1
 								gs 'cum_call', '', $HusID
 								'<center><img <<$set_imgh>> src="images/beast/zoo/z5.jpg"></center>'
@@ -227,7 +229,7 @@ if $ARGS[0] = 'sog1':
 								gs 'stat'
 
 								act 'Offer your ass':
-									cls
+									*clr & cla
 									analorgasm += 1
 									gs 'cum_call', 'anus', $namesob, 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="images/beast/zoo/z8.jpg"></center>'
@@ -255,7 +257,8 @@ if $ARGS[0] = 'sog1':
 end
 
 if $ARGS[0] = 'sog2':
-	cls
+	*clr & cla
+	menu_off = 1
 	gs 'boyStat', $petID
 	'<center><img <<$set_imgh>> src="images/beast/zoo/sog.jpg"></center>'
 	'You take <<$namesob>>s penis in your hand and start masturbating him.'
@@ -266,7 +269,8 @@ if $ARGS[0] = 'sog2':
 end
 
 if $ARGS[0] = 'sog3':
-	cls
+	*clr & cla
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/beast/zoo/sog1.jpg"></center>'
 	'You greedily swallow <<$namesob>>s dick.'
 	gs 'arousal', 'bj', 10, 'beast'
@@ -276,7 +280,8 @@ if $ARGS[0] = 'sog3':
 end
 
 if $ARGS[0] = 'sog4':
-	cls
+	*clr & cla
+	menu_off = 1
 	gs 'cum_call', '', $namesob, 1, 0, -1, 60
 	'<center><img <<$set_imgh>> src="images/beast/zoo/sog2.jpg"></center>'
 	'You open your legs and <<$namesob>> fucks your pussy'
@@ -290,6 +295,7 @@ end
 
 if $ARGS[0] = 'fin':
 	cla
+	menu_off = 1
 	gt $loc, $metka
 	!!savegame 'avtosave.sav'
 

locations/bed2.qsrc

@@ -2,7 +2,9 @@
 
 if $ARGS[0] = '':
 	cla & *clr
-	menu_off = 1
+	$menu_loc = 'bed2'
+	$menu_arg = ''
+	menu_off = 0
 	gs 'stat'
 	if $clothingworntype ! 'nude':
 		'<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
@@ -27,6 +29,7 @@ if $ARGS[0] = '':
 		end
 		if succubusQW = 2:
 			act '<<$sleep_txt>>':
+				menu_off = 1
 				if $clothingworntype ! 'nude':
 					strip_here = 1
 					gs 'clothing', 'strip'
@@ -35,6 +38,7 @@ if $ARGS[0] = '':
 			end
 		else
 			act '<<$sleep_txt>>':
+				menu_off = 1
 				if disable_autosave = 0:
 					if StoryLine = 0:
 						savegame 'autosave.sav'
@@ -57,6 +61,7 @@ if $ARGS[0] = '':
 	end
 	act 'Get out of bed': killvar '$sleep_txt' & gt $loc, $metka
 	act 'Take a nap (1:00)':
+		menu_off = 1
 		if pcs_sleep >= 10 and pcs_sleep <= 90:
 			pcs_sleep += 10
 			pcs_health += 5
@@ -79,6 +84,7 @@ if $ARGS[0] = '':
 	if canBraidHair = 1 and hBraids = 0 and (pcs_hairlng > 80 and pcs_hairlng <= 800):
 		act 'Braid your hair (0:30)':
 			cls
+			menu_off = 1
 			hbraids = 15
 			minut += 30
 			'You spend some time braiding your hair. It may not be salon level quality, but at the end you are happy with the results.'
@@ -89,6 +95,7 @@ if $ARGS[0] = '':
 	if hbraids > 0:
 		act 'Remove your braids (0:30)':
 			cls
+			menu_off = 1
 			hbraids = 0
 			minut += 30
 			'You spend some time removing your braids. It may not be salon level quality, but at the end you are happy with the results.'
@@ -100,6 +107,7 @@ end
 
 if $ARGS[0] = 'sleep':
 	cls
+	menu_off = 1
 	if $clothingworntype ! 'nude':
 		'<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
 	else
@@ -207,6 +215,7 @@ if $ARGS[0] = 'sleep':
 end
 
 if $ARGS[0] = 'wake_horny':
+	menu_off = 1
 	InSleep = 1
 	gs 'stat'
 	'Your wet dream and overall horniness rouse you from your sleep. From one moment to the next, you are wide awake and very much aware that your pussy is hot and wet.'
@@ -256,6 +265,7 @@ if $ARGS[0] = 'wake_horny':
 end
 
 if $ARGS[0] = 'wake':
+	menu_off = 1
 	'<<$waketext>>'
 	InSleep = 1
 	gs 'stat'
@@ -336,6 +346,7 @@ end
 
 if $ARGS[0] = 'extra':
 	act '"Snooze" a few minutes more...':
+		menu_off = 1
 		slept_in = 1
 		stime = 0
 		minut = (100-pcs_sleep)*6
@@ -346,6 +357,7 @@ if $ARGS[0] = 'extra':
 end
 
 if $ARGS[0] = 'end':
+	menu_off = 1
 	InSleep = 0
 	slept_in = 0
 	strip_here = 0
@@ -364,6 +376,7 @@ if $ARGS[0] = 'end':
 end
 
 if $ARGS[0] = 'succhoice':
+	menu_off = 1
 	minut += 15
 	gs 'stat'
 	cla
@@ -394,6 +407,7 @@ end
 
 if $ARGS[0] = 'succhoiceNO':
 	cla
+	menu_off = 1
 	if $clothingworntype ! 'nude':
 		'<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
 	else
@@ -419,6 +433,7 @@ end
 
 if $ARGS[0] = 'succhoiceYES':
 	cla
+	menu_off = 1
 	if $clothingworntype ! 'nude':
 		'<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
 	else
@@ -446,6 +461,7 @@ end
 
 if $ARGS[0] = 'succubinit':
 	*clr & cla
+	menu_off = 1
 	minut += 10
 	gs 'stat'
 	!!Sets the succubus flag, succubus level (succublvl), Initial lesbian sex count (suclezsnapshot), initial Succubus hunger (succhungry),
@@ -501,8 +517,8 @@ if $ARGS[0] = 'succubinit':
 end
 
 if $ARGS[0] = 'magbstchoice':
-	cls
-	cla
+	*clr & cla
+	menu_off = 1
 	tittmp = tits + 1
 	'<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tittmp>>.jpg"></center>'
 	killvar 'tittmp'
@@ -519,6 +535,9 @@ end
 
 if $ARGS[0] = 'options':
 	cla
+	menu_off = 1
+	
+	act 'Return':gt 'bed2'
 	act 'Set Alarm Clock':gt 'budilnik', 'start'
 	if bedPanty = 0:
 		act 'Wear underwear in the morning: Currently (ON)':bedpanty = 1 & gt 'bed2', 'options'
@@ -540,8 +559,6 @@ if $ARGS[0] = 'options':
 			act 'Remove your vibrator at night: Currently (OFF)':bedvibrator = 0 & gt 'bed2', 'options'
 		end
 	end
-
-	act 'Return':gt 'bed2'
 end
 
 --- bed2 ---------------------------------

locations/bedr.qsrc

@@ -66,6 +66,7 @@ if husbandrink = 11 and husbanstrapon > 0 and husbandrinkday ! daystart:
 
 	act 'Lie':
 		cla
+		menu_off = 1
 		husbanstrapon = 0
 		'"No dear, I do''nt know anything", you answer, trying to look as innocent as possible. He shruggs and walks away'
 
@@ -74,6 +75,7 @@ if husbandrink = 11 and husbanstrapon > 0 and husbandrinkday ! daystart:
 
 	act 'Confess':
 		cla
+		menu_off = 1
 
 		if husbanstrapon = 1:'"Honey, you were so drunk last night, that I decided to teach you a lesson and put a anal plug up your ass. I''ll never do it again, forgive me please", you say.'
 		if husbanstrapon = 2:'"Dear, I wanted to make you happy, so I started to give you a blowjob, but you didn''t cum, so I inserted a finger into your asshole, but you still didn''t cum, then I took a small dildo and some lube and put in your ass, I''ve never seen you cum like that before. I even gave you a secong blowjob. Forgive me, but you seemed to enjoy it so much, that I could''t stop. I just wanted to make you happy.", you lie to him.'
@@ -135,6 +137,7 @@ if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
 		act 'Insert a butt plug in his ass':
 			cla
 			*clr
+			menu_off = 1
 			husbandrinkday = daystart
 			husbandrink = 11
 			husbanstrapon = 1
@@ -150,6 +153,7 @@ if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
 				act 'Insert a dildo into his ass':
 					cla
 					*clr
+					menu_off = 1
 					husbanstrapon = 2
 					swallow += 1
 					spafinloc = 12
@@ -171,6 +175,7 @@ if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
 				act 'Use the strapon':
 					cla
 					*clr
+					menu_off = 1
 					minut += 20
 					husbanstrapon = 3
 					swallow += 1
@@ -199,6 +204,7 @@ if sick >= 1:
 	act 'Go to sleep (You''re sick)':
 		cla
 		*clr
+		menu_off = 1
 		minut += 240
 		pcs_sleep += 40
 		sick -= 1
@@ -216,9 +222,7 @@ end
 
 dynamic $palelady
 
-if pcs_horny >= 50:
-	act 'Masturbate':gt 'selfplay', 'start'
-end
+if pcs_horny >= 50: act 'Masturbate':gt 'selfplay', 'start'
 
 if pornMagazine > 0:'Under your mattress you hide a porn magazine.'
 

locations/bedr2x.qsrc

@@ -54,12 +54,14 @@ if husbandrink = 11 and husbanstrapon > 0 and husbandrinkday ! daystart:
 	'Your husband approaches you and asks, "Dear my ass hurts, did something happen yesterday?"'
 	act 'Lied':
 		cla
+		menu_off = 1
 		husbanstrapon = 0
 		'"No dear, not that I know of, though you were in the bathroom a lot." You say with an innocent look on your face. Your husband shrugged his shoulders and walked away'
 		act 'Finish':gt'bedr2x'
 	end
 	act 'Confess':
 		cla
+		menu_off = 1
 		if husbanstrapon = 1:'"Dear yesterday you got so drunk, I decided to teach a lesson to you and you put a plug in your ass. But I''ll never do it again, please forgive me." you say.'
 		if husbanstrapon = 2:'"Dear, I wanted to give you a pleasant surprise and started to give you a blowjob, but you wouldn''t cum no matter how much I tried. So I put a finger in your ass, but again you failed to cum. Then I put the dildo in your ass and you shoot your load, I even gave you another blowjob, forgive me, but you were so good that I could not stop, I just wanted to get you off." Is what you tell him.'
 		if husbanstrapon = 3:'"Dear, I wanted to give you a pleasant surprise and started to give you a blowjob, but you wouldn''t cum no matter how much I tried. So I put a finger in your ass, but again you failed to cum. Then I put in a second finger in your ass, but you started moving your ass up and down, fucking my fingers as you moaned in pleasure, muttering yes more. Since you seemed to be liking it so much and asked for more. I put on my strap-on and I fucked you with it, while I was jerking you off. You came several times, shooting several thick heavy loads all over. I kept doing it until I got to tired to fuck you anymore, then I stopped and licked all your sperm up and went to sleep next to you. I just wanted you to be happy, even if you don''t remember. Please forgive me?" Is what you tell him.'
@@ -120,6 +122,7 @@ if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
 		act 'Insert a anal plug':
 			cla
 			*clr
+			menu_off = 1
 			husbandrinkday = daystart
 			husbandrink = 11
 			husbanstrapon = 1
@@ -134,6 +137,7 @@ if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
 				act 'Insert dildo':
 					cla
 					*clr
+					menu_off = 1
 					husbanstrapon = 2
 					swallow = swallow + 1
 					gs 'boyStat', $HusID
@@ -158,6 +162,7 @@ if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
 				act 'Dress Strap':
 					cla
 					*clr
+					menu_off = 1
 					husbanstrapon = 3
 					swallow = swallow + 1
 					gs 'boyStat', $husID
@@ -187,6 +192,7 @@ if sick >= 1:
 	act 'Go to bed rest (disease)':
 		cla
 		*clr
+		menu_off = 1
 		minut += 240
 		sick = sick - 1
 		if sick < 0:sick = 0
@@ -202,14 +208,9 @@ end
 
 dynamic $palelady
 
-if pcs_horny >= 50:
-	act 'Masturbate':
-		gt'selfplay', 'start'
-	end
-end
-if pornMagazine > 0:
-	'Under the mattress you have hidden a porn magazine.'
-end
+if pcs_horny >= 50: act 'Masturbate': gt'selfplay', 'start'
+
+if pornMagazine > 0: 'Under the mattress you have hidden a porn magazine.'
 
 gs 'events', 'read_porn'
 gs 'subkid'

locations/beforeFW.qsrc

@@ -108,6 +108,7 @@ KzE = 0
 !!force depends on the endurance
 !!speed depends on the endurance
 
+menu_off = 1
 if Formula = 0:Formula = 3
 
 '<center><b>before round</b></center>'

locations/beg.qsrc

@@ -2,6 +2,7 @@
 if $ARGS[0] = 'start':
 	cla
 	*clr
+	menu_off = 1
 	minut += 5
 	'<center><img <<$set_imgh>> src="images/locations/shared/gym/fit1.jpg"></center>'
 	'You are stretching and warming up before your practice run. From where you are you can see your coach, Igor Yurisovich, talking to other athletes.'

locations/beg1.qsrc

@@ -1,9 +1,8 @@
 # beg1
 
 if $ARGS[0] = 'start':
-	cla
-	*clr
-	clr
+	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	minut += 60
 	kolsorev += 1

locations/belgang.qsrc

@@ -1,5 +1,7 @@
 # belgang
 
+menu_off = 1
+
 if $ARGS[0] = 'workofdebt':
 	cla & *clr
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'

locations/belpicknick.qsrc

@@ -1,5 +1,7 @@
 # belpicknick
 
+menu_off = 1
+
 if $ARGS[0] = '':
 	CLOSE ALL	
 	sashaBeliTimes = rand(1,3)

locations/beverage.qsrc

@@ -1,5 +1,7 @@
 # beverage
 
+menu_off = 1
+
 if $ARGS[0] = 'bev_kva':
 	*clr & cla
 	frost = 1

locations/bicycle.qsrc

@@ -3,6 +3,9 @@ $location_type = 'event_outdoors'
 if $ARGS[0] = 'sarai':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
+	$menu_loc = 'bicycle'
+	$menu_arg = 'sarai'
+	menu_off = 0
 	cla
 	*clr
 	minut += 1
@@ -20,7 +23,8 @@ if $ARGS[0] = 'sarai':
 	if hour >= 6 and hour <= 20 and sunWeather = 1 and month >= 4 and month <= 10:
 		if findvelday ! daystart:
 			act 'Ride the bike (1:00)':
-				cls
+				*clr & cla
+				menu_off = 1
 				findvelday = daystart
 				minut += 60
 				run_exp += RAND(0,2)
@@ -86,7 +90,8 @@ if $ARGS[0] = 'sarai':
 	end
 	if goforest > 0 and sunWeather = 1 and month >= 4 and month <= 10:
 		act 'Bike to the forest (0:25)':
-			cls
+			*clr & cla
+			menu_off = 1
 			minut += 25
 			pcs_mood += 5
 			findvel = 2
@@ -99,7 +104,8 @@ if $ARGS[0] = 'sarai':
 	end
 	if goswamp = 1 and sunWeather = 1 and month >= 4 and month <= 10:
 		act 'Bike to the swamp (1:15)':
-			cls
+			*clr & cla
+			menu_off = 1
 			minut += 75
 			run_exp += RAND(0,1)
 			stren_exp += rand(0,1)
@@ -122,6 +128,9 @@ end
 if $ARGS[0] = 'forest':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
+	$menu_loc = 'bicycle'
+	$menu_arg = 'forest'
+	menu_off = 0
 	cla
 	*clr
 	minut += 1
@@ -132,9 +141,10 @@ if $ARGS[0] = 'forest':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel.jpg"></center>'
 
 	act 'Bike to the village (0:25)':
+		menu_off = 1
 		gs 'clothing', 'swamp_clothes', 0
 		if $clothingworntype ! 'nude' or pcs_inhib > 50:
-			cls
+			*clr & cla
 			pcs_mood += 10
 			findvel = 1
 			minut += 25
@@ -144,7 +154,7 @@ if $ARGS[0] = 'forest':
 			gs 'bicycle', 'ridego', 'Gaddvor'
 			gs'stat'
 		else
-			cls
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel_nude.jpg"></center>'
 			'You take off your clothes and jump on your bike and ride through the forest. You would never be able to do this in the village.'
 			act 'Further':gt'gadforest','1'
@@ -152,7 +162,8 @@ if $ARGS[0] = 'forest':
 	end
 	if goswamp = 1:
 		act 'Bike to the swamp (0:50)':
-			cls
+			*clr & cla
+			menu_off = 1
 			minut += 50
 			pcs_mood += 5
 			findvel = 3
@@ -171,6 +182,9 @@ end
 if $ARGS[0] = 'swamp':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
+	$menu_loc = 'bicycle'
+	$menu_arg = 'swamp'
+	menu_off = 0
 	cla
 	*clr
 	minut += 1
@@ -181,9 +195,10 @@ if $ARGS[0] = 'swamp':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel.jpg"></center>'
 
 	act 'Bike to the village (1:15)':
+		menu_off = 1
 		gs 'clothing', 'swamp_clothes', 0
 		if $clothingworntype ! 'nude' or pcs_inhib > 50:
-			cls
+			*clr & cla
 			minut += 75
 			run_exp += RAND(0,1)
 			stren_exp += rand(0,1)
@@ -199,14 +214,15 @@ if $ARGS[0] = 'swamp':
 			gs 'bicycle', 'ridego', 'Gaddvor'
 			gs'stat'
 		else
-			cls
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel_nude.jpg"></center>'
 			'You take off your clothes and jump on your bike and ride through the swamp. You would never be able to do this in the village.'
 			act 'Further':gt'swamp_yard'
 		end
 	end
 	act 'Bike to the forest (0:50)':
-		cls
+		*clr & cla
+		menu_off = 1
 		minut += 50
 		pcs_mood += 5
 		hanters = 0
@@ -231,6 +247,7 @@ if $ARGS[0] = 'clothes_findvel':
 end
 
 if $ARGS[0] = 'ridego':
+	menu_off = 1
 	!make this args, add a warning, and allow 30% alive by illume
 	$metka = $ARGS[2]
 	$loc = $ARGS[1]

locations/billiard.qsrc

@@ -1,5 +1,8 @@
 # billiard
 $sexloc = $CURLOC
+$menu_loc = 'billiard'
+$menu_arg = ''
+menu_off = 0
 $location_type = 'public_indoors'
 cla
 *clr
@@ -13,6 +16,7 @@ act 'Leave':gt 'torgcentr'
 if hour >= 8 and hour <= 20:
 	if money >= 250:
 		act 'Play (250 <b>₽</b>) (1:00)':
+			menu_off = 1
 			money -= 250
 			minut += 60
 			billvar = 0
@@ -58,6 +62,7 @@ if hour >= 8 and hour <= 20:
 
 	if money >= 300:
 		act 'Play for money (300 <b>₽</b>)':
+			menu_off = 1
 			minut += 60
 			pool_exp += rand(0, 1)
 			billvar = 3
@@ -68,7 +73,7 @@ end
 
 if $ARGS[0] = 'randwin':
 	cla
-
+	menu_off = 1
 	if pcs_pool < 10:billwin = rand(0, 10)
 	if pcs_pool >= 10 and pcs_pool < 20:billwin = rand(0, 12)
 	if pcs_pool >= 20 and pcs_pool < 30:billwin = rand(0, 14)
@@ -142,6 +147,9 @@ if $ARGS[0] = 'randwin':
 end
 
 if $ARGS[0] = 'start':
+	$menu_loc = 'billiard'
+	$menu_arg = 'start'
+	menu_off = 0
 	'<center><b>Pool</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/bil.jpg"></center>'
 

locations/blackjack.qsrc

@@ -1,4 +1,6 @@
 # blackjack
+
+menu_off = 1
 gs 'stat'
 num = 1
 :markcard

locations/blackjackPlay.qsrc

@@ -1,5 +1,6 @@
 # blackjackPlay
 
+menu_off = 1
 minut += 1
 gs 'stat'
 

locations/blowPR.qsrc

@@ -4,10 +4,8 @@ if $ARGS[0] = 'start':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
     $location_type = 'event'
-
-	cla
-	clr
-	*clr
+	menu_off = 1
+	*clr & cla
 	minut += 1
 	guy += 1
 	stat['bj'] += 1
@@ -31,13 +29,11 @@ if $ARGS[0] = '1':
 	protect = 1
 	dynamic $venerasiakOral
 	protect = 0
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut = minut + 5
 	prezik = prezik - 1
 	gs'stat'
-
+	menu_off = 1
 	picrand = RAND(0,6)
 	if picrand = 0:'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bjp.jpg"></center>'
 	if picrand = 1:'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bjp2.jpg"></center>'
@@ -71,10 +67,8 @@ if $ARGS[0] = '2':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
     $location_type = 'event'
-
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	dynamic $venerasiakOral
 	minut = minut + 5
 	gs'stat'
@@ -91,8 +85,8 @@ if $ARGS[0] = '12':
 	$loc = $CURLOC
     $location_type = 'event'
 
-	*clr
-	cla
+	*clr & cla
+	menu_off = 1
 
 	if prosti = 0:
 		bjrand = RAND(1,100)

locations/bobka.qsrc

@@ -1,5 +1,7 @@
 # bobka
 
+menu_off = 1
+
 $bobkabj = {
 	'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/bj.jpg"></center>'
 	$tempval = 'You'

locations/boilerroom.qsrc

@@ -3,6 +3,7 @@ if $ARGS[0] = 'start':
 	CLOSE ALL
 	$metka = $ARGS[0]
 	$loc = $CURLOC
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/qwest/alter/boiler/boilerroom'+ rand(1,3) +'.jpg"></center>'
 	'This event is still not completed. Please bug Ekay until he gets it done.'

locations/bordel.qsrc

@@ -2,6 +2,7 @@
 
 if $ARGS[0] = 'start' or $ARGS[0] = '':
     $location_type = 'event'
+	menu_off = 1
 	gs 'stat'
 	'<center><b>Brothel</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/bordel.jpg"></center>'
@@ -24,6 +25,9 @@ if $ARGS[0] = 'brothel':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
     $location_type = 'private'
+	$menu_loc = 'bordel'
+	$menu_arg = 'brothel'
+	menu_off = 0
 	cla
 	*clr
 	gs 'stat'
@@ -68,6 +72,9 @@ if $ARGS[0] = 'dysh':
 	$metkaM = 'dysh'
 	$locM = 'bordel'
     $location_type = 'bathroom'
+	$menu_loc = 'bordel'
+	$menu_arg = 'dysh'
+	menu_off = 0
 	cla
 	*clr
 	gs 'stat'
@@ -91,6 +98,7 @@ end
 
 if $ARGS[0] = 'var':
     $location_type = 'event'
+	menu_off = 1
 	if borsexkol >= 2:gt 'bordel', 'brothel'
 	if $clothingworntype = 'nude':
 		bordelpay = 8

locations/bordelv.qsrc

@@ -1,6 +1,7 @@
 # bordelv
 cla
 *clr
+menu_off = 1
 minut += 30
 pcs_horny += 20
 gs 'stat'

locations/bouling.qsrc

@@ -1,6 +1,7 @@
 # bouling
 $sexloc = $CURLOC
 cls
+menu_off = 1
 $location_type = 'public_indoors'
 gs 'stat'
 '<center><b>Bowling</b></center>'

locations/boxing.qsrc

@@ -1,5 +1,8 @@
 # boxing
 !Choosing a physical attack
+
+menu_off = 1
+
 if weapon = 0 and autocombat_cheat = 0:
 	act 'Fist':
 		cla
@@ -43,9 +46,7 @@ if kunai > 0:
 	end
 end
 
-if pcs_magik > 0:
-	act 'Magic Attack':gt'magik'
-end
+if pcs_magik > 0: act 'Magic Attack':gt'magik'
 
 --- boxing ---------------------------------
 

locations/brosh.qsrc

@@ -1,6 +1,8 @@
 # brosh
-gs 'stat'
+
+menu_off = 1
 minut += 60
+gs 'stat'
 
 evgentipe = rand(0,3)
 

locations/brothel.qsrc

@@ -74,6 +74,7 @@ end
 if $ARGS[0] = 'lobby:toilet':
 	$menu_loc = 'brothel'
 	$menu_arg = 'lobby:toilet'
+	menu_off = 0
 	cla
 	*clr
 	$locM = 'brothel'
@@ -101,6 +102,7 @@ end
 if $ARGS[0] = 'bar':
 	$menu_loc = 'brothel'
 	$menu_arg = 'bar'
+	menu_off = 0
 	*clr & cla
 	'<h3>Hotel Bar</h3>'
 	*nl
@@ -131,6 +133,7 @@ end
 if $ARGS[0] = 'bar:sit':
 	$menu_loc = 'brothel'
 	$menu_arg = 'bar:sit'
+	menu_off = 0
 	*clr & cla
 	'<h3>Hotel Bar</h3>'
 	*nl
@@ -153,8 +156,7 @@ if $ARGS[0] = 'bar:sit':
 end
 
 if $ARGS[0] = 'bar:order':
-	$menu_loc = 'brothel'
-	$menu_arg = 'bar:order'
+	menu_off = 1
 	*clr & cla
 	gs 'stat'
 	$loc = 'brothel'
@@ -405,6 +407,7 @@ end
 
 if $ARGS[0] = 'brothel:elevator':
 	*clr & cla
+	menu_off = 1
 	'<h3>Elevator</h3>'
 	*nl
 	'<center><img <<$set_imgh>> src="images/locations/shared/brothel/hotelElevator.jpg"></center>'
@@ -437,6 +440,7 @@ end
 if $ARGS[0] = 'brothel:leave':
 	$menu_loc = 'brothel'
 	$menu_arg = 'brothel:leave'
+	menu_off = 0
 	*clr & cla
 	'<h3>Brothel Reception</h3>'
 	*nl
@@ -459,8 +463,7 @@ if $ARGS[0] = 'brothel:leave':
 end
 
 if $ARGS[0] = 'brothel:getPaid':
-	$menu_loc = 'brothel'
-	$menu_arg = 'brothel:getPaid'
+	menu_off = 1
 	hours = custTime / 60
 	pay = custTime * payRate / 60
 	money += pay / 2
@@ -579,9 +582,7 @@ if $ARGS[0] = 'brothel:section1:lobby:cage':
 end
 
 if $ARGS[0] = 'brothel:section1:lobby:cage:leave':
-	$menu_loc = 'brothel'
-	$menu_arg = 'brothel:section1:lobby:cage:leave'
-	menu_off = 0
+	menu_off = 1
 	'<h3>Brothel Lobby</h3>'
 	'<h5>Slave cage: receptionist comes</h5>'
 	'He unlocks the self-locking mechanism from outside and let''s you crawl out.'
@@ -625,6 +626,7 @@ if $ARGS[0] = 'brothel:section1:lobby:cage:client':
 end
 
 if $ARGS[0] = 'brothel:section1:session:start':
+	menu_off = 1
 	'<h3>Playroom</h3>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/brothel/playroom.jpg"></center>'
 	'This room is designed for any perverted action you could think of. The thick walls indicate it is soundproof, though the walls are painted with smooth coating, probably to be easily washable.'
@@ -641,6 +643,7 @@ if $ARGS[0] = 'brothel:section1:session:start':
 end
 
 if $ARGS[0] = 'brothel:section1:session:slaveChooses':
+	menu_off = 1
 	'<h3>Playroom</h3>'
 	'<h5>You decided to suggest what your Master should do with you..</h5>'
 	'You ask him: <font color=#<<$pcs_font>>>"Master, please.."</font>'
@@ -654,6 +657,7 @@ if $ARGS[0] = 'brothel:section1:session:slaveChooses':
 end
 
 if $ARGS[0] = 'brothel:section1:session:masterChooses':
+	menu_off = 1
 	stage = 1
 	mas_dec = rand(1, 3)
 	if mas_dec = 1:
@@ -668,6 +672,7 @@ if $ARGS[0] = 'brothel:section1:session:masterChooses':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play':
+	menu_off = 1
 	$base = 'brothel:section1:session:play'
 	$sessionB = $base
 
@@ -882,6 +887,7 @@ if $ARGS[0] = 'brothel:section1:session:play':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:finish':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:finish'
 	if $finType = 'behind:vaginal':
 		custTime += 15
@@ -1128,6 +1134,7 @@ if $ARGS[0] = 'brothel:section1:session:play:finish':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackFuckMouth':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:tiedOnBackFuckMouth'
 	custTime += 10
 	orgasmMeter += 25
@@ -1154,6 +1161,7 @@ if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackFuckMouth':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackFuckAnal':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:tiedOnBackFuckAnal'
 	custTime += 10
 	orgasmMeter += 25
@@ -1182,6 +1190,7 @@ if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackFuckAnal':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackFuckVaginal':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:tiedOnBackFuckVaginal'
 	custTime += 10
 	orgasmMeter += 25
@@ -1209,6 +1218,7 @@ if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackFuckVaginal':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackTease':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:tiedOnBackTease'
 	custTime += 10
 	orgasmMeter += 5
@@ -1233,6 +1243,7 @@ if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackTease':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackFistAnal':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:tiedOnBackFistAnal'
 	custTime += 15
 	rageMeter += 10
@@ -1264,6 +1275,7 @@ if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackFistAnal':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackVibroPussy':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:tiedOnBackVibroPussy'
 	custTime += 15
 	orgasmMeter += 10
@@ -1291,6 +1303,7 @@ if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackVibroPussy':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackWhipPussy':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:tiedOnBackWhipPussy'
 	custTime += 10
 	rageMeter += 20
@@ -1317,6 +1330,7 @@ if $ARGS[0] = 'brothel:section1:session:play:tiedOnBackWhipPussy':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:tiedOnBack':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:tiedOnBack'
 	minut += 10
 	custTime += 10
@@ -1336,6 +1350,7 @@ if $ARGS[0] = 'brothel:section1:session:play:tiedOnBack':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:lieOnBack':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:lieOnBack'
 	minut += 5
 	custTime += 5
@@ -1352,6 +1367,7 @@ if $ARGS[0] = 'brothel:section1:session:play:lieOnBack':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:nailsandneedlestits':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:nailsandneedlestits'
 	minut += 20
 	custTime += 20
@@ -1473,6 +1489,7 @@ if $ARGS[0] = 'brothel:section1:session:play:nailsandneedlestits':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:whiptits':
+	menu_off = 1
 	custTime += 10
 	'<h3>Playroom</h3>'
 	'<b>Orgasm meter: <<orgasmMeter>> / 100</b>'
@@ -1488,6 +1505,7 @@ if $ARGS[0] = 'brothel:section1:session:play:whiptits':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:canetits':
+	menu_off = 1
 	custTime += 10
 	'<h3>Playroom</h3>'
 	'<b>Orgasm meter: <<orgasmMeter>> / 100</b>'
@@ -1503,6 +1521,7 @@ if $ARGS[0] = 'brothel:section1:session:play:canetits':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:pinchtits':
+	menu_off = 1
 	custTime += 10
 	'<h3>Playroom</h3>'
 	'<b>Orgasm meter: <<orgasmMeter>> / 100</b>'
@@ -1519,6 +1538,7 @@ if $ARGS[0] = 'brothel:section1:session:play:pinchtits':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:punchtits':
+	menu_off = 1
 	custTime += 10
 	'<h3>Playroom</h3>'
 	'<b>Orgasm meter: <<orgasmMeter>> / 100</b>'
@@ -1535,6 +1555,7 @@ if $ARGS[0] = 'brothel:section1:session:play:punchtits':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:bindtits':
+	menu_off = 1
 	custTime += 10
 	'<h3>Playroom</h3>'
 	'<b>Orgasm meter: <<orgasmMeter>> / 100</b>'
@@ -1553,6 +1574,7 @@ if $ARGS[0] = 'brothel:section1:session:play:bindtits':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:pinchboundtits':
+	menu_off = 1
 	custTime += 10
 	'<h3>Playroom</h3>'
 	'<b>Orgasm meter: <<orgasmMeter>> / 100</b>'
@@ -1569,6 +1591,7 @@ if $ARGS[0] = 'brothel:section1:session:play:pinchboundtits':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:pullnipples':
+	menu_off = 1
 	!stage += 1
 	custTime += 10
 	'<h3>Playroom</h3>'
@@ -1587,6 +1610,7 @@ if $ARGS[0] = 'brothel:section1:session:play:pullnipples':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:hangbyneck':
+	menu_off = 1
 	!stage += 1
 	custTime += 10
 	'<h3>Playroom</h3>'
@@ -1604,6 +1628,7 @@ if $ARGS[0] = 'brothel:section1:session:play:hangbyneck':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:hangbytits':
+	menu_off = 1
 	!stage += 1
 	custTime += 10
 	'<h3>Playroom</h3>'
@@ -1623,6 +1648,7 @@ if $ARGS[0] = 'brothel:section1:session:play:hangbytits':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:asshigh':
+	menu_off = 1
 	!stage += 1
 	custTime += 10
 	'<h3>Playroom</h3>'
@@ -1636,6 +1662,7 @@ if $ARGS[0] = 'brothel:section1:session:play:asshigh':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:buttplug':
+	menu_off = 1
 	!stage += 1
 	custTime += 2
 	gs 'pain', 5, 'asshole', 'stretch'
@@ -1655,6 +1682,7 @@ if $ARGS[0] = 'brothel:section1:session:play:buttplug':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:electrodesAss':
+	menu_off = 1
 	!stage += 1
 	custTime += 5
 	'<h3>Playroom</h3>'
@@ -1671,6 +1699,7 @@ if $ARGS[0] = 'brothel:section1:session:play:electrodesAss':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:electrocuteAss':
+	menu_off = 1
 	!stage += 1
 	custTime += 5
 	gs 'pain', 2, 'asscheeks', 'shock'
@@ -1693,6 +1722,7 @@ if $ARGS[0] = 'brothel:section1:session:play:electrocuteAss':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:electrocuteAssMore':
+	menu_off = 1
 	!stage += 1
 	custTime += 5
 	gs 'pain', 2, 'asscheeks', 'shock'
@@ -1716,6 +1746,7 @@ if $ARGS[0] = 'brothel:section1:session:play:electrocuteAssMore':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:electrocuteAssMax':
+	menu_off = 1
 	!stage += 1
 	custTime += 5
 	gs 'pain', 3, 'asscheeks', 'shock'
@@ -1739,6 +1770,7 @@ if $ARGS[0] = 'brothel:section1:session:play:electrocuteAssMax':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:shockAnus':
+	menu_off = 1
 	!stage += 1
 	minut += 5
 	custTime += 5
@@ -1760,6 +1792,7 @@ if $ARGS[0] = 'brothel:section1:session:play:shockAnus':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:pushplugout':
+	menu_off = 1
 	minut += 1
 	custTime += 1
 	analplugIN = 0
@@ -1781,6 +1814,7 @@ if $ARGS[0] = 'brothel:section1:session:play:pushplugout':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:ragefinish':
+	menu_off = 1
 	minut += 5
 	custTime += 5
 	gs 'stat'
@@ -1797,6 +1831,7 @@ if $ARGS[0] = 'brothel:section1:session:play:ragefinish':
 end
 
 if $ARGS[0] = 'brothel:section1:session:play:end':
+	menu_off = 1
 	$this = 'brothel:section1:session:play:end'
 	minut += 10
 	custTime += 10

locations/brother.qsrc

@@ -43,6 +43,8 @@ if npc_QW['A34'] > 20 and npc_QW['A34'] < 25: npc_QW['A34'] = 20
 ! npc_breastfeed_by_sveta['A34'] = 0 or 1 - Kolka was not/was breastfeed by sveta
 ! npc_tasted_sveta_milk['A34'] = 0 or 1 - Does Kolka know how svetas breastmilk taste? 0 = no, 1 = yes
 
+menu_off = 1
+
 if $ARGS[0] = 'start':
 	gs 'stat'
 	gs 'boystat','A34'
@@ -165,7 +167,7 @@ if $ARGS[0] = 'start':
 				else
 					'"Or you could just watch us."'
 					act 'Play football':
-						cls
+						*clr & cla
 						minut += 60
 						if npc_rel['A34'] <50:npc_rel['A34'] += rand(1,2)
 						agil_exp += rand(0, 2)
@@ -178,7 +180,7 @@ if $ARGS[0] = 'start':
 						if rand(0, 1) = 0 and seepornofut = 0:
 							'The boys are whispering something to each other.'
 							act 'What are you talking about?':
-								cls
+								*clr & cla
 								gs 'stat'
 								'The boys hesitate, exchanging nervous glances with each other, "It''s nothing…"'
 
@@ -193,7 +195,7 @@ if $ARGS[0] = 'start':
 									'"A girl like you would just get grossed out." Beshin says proudly, "All girls are like that."'
 									act 'Move away':gt $loc, $metka
 									act 'Prove them wrong':
-										cls
+										*clr & cla
 										gs 'stat'
 										'You tell them, if they''re going to look porn, they''ll need a babysitter. The guys aren''t pleased, but you don''t give them a choice.'
 										'They have found spare key for an AV lounge at the school that is not used in the evenings and you all sneak in.'
@@ -205,7 +207,7 @@ if $ARGS[0] = 'start':
 									'Kolka hesitates for a moment then looks at you funny. "Actually <<$pcs_nickname>>, we want to go look at porn, but, you know what, I think a girl like you could handle it."'
 									act 'Move away':gt $loc, $metka
 									act 'Show interest':
-										cls
+										*clr & cla
 										gs 'stat'
 										'You tell them that you are curious. The guys aren''t pleased, but Kolka persuades them.'
 										'They have found spare key for an AV lounge at the school that is not used in the evenings and you all sneak in.'
@@ -229,7 +231,7 @@ if $ARGS[0] = 'start':
 					end
 				end
 				act'Watch as they play':
-					cls
+					*clr & cla
 					picrand = RAND(1,2)
 					minut += 60
 					gs 'stat'
@@ -244,7 +246,7 @@ if $ARGS[0] = 'start':
 					if rand(0, 1) = 0 and seepornofut = 0:
 						'The boys are whispering something to each other.'
 						act 'What you are talking about?':
-							cls
+							*clr & cla
 							gs 'stat'
 							'The boys hesitate, "Err.. nothing".'
 
@@ -252,7 +254,7 @@ if $ARGS[0] = 'start':
 								'You press them on it, "What are you? A bunch of girls whispering about which boy you want to kiss?." One of the boys immediately spits out "No, we want to go look at porn, but didn''t think a girl like you could handle it."'
 								act 'Move away':gt $loc, $metka
 								act 'Prove them wrong':
-									cls
+									*clr & cla
 									gs 'stat'
 									'You tell them, if they''re going to look porn, they''ll need a babysitter. The guys aren''t pleased, but you don''t give them a choice.'
 
@@ -263,7 +265,7 @@ if $ARGS[0] = 'start':
 								'Kolka hesitates for a moment then looks at you funny. "Actually <<$pcs_nickname>>, we want to go look at porn, but, you know what, I think a girl like you could handle it."'
 								act 'Move away':gt $loc, $metka
 								act 'Show interest':
-									cls
+									*clr & cla
 									gs 'stat'
 									'You tell them that you are curious. The guys aren''t pleased, but Kolka persuades them.'
 
@@ -318,7 +320,7 @@ if $ARGS[0] = 'start':
 
 		if indorf = 0 and $clothingworntype ! 'nude' and brothersawpirsF=0 and father_go = 1 and npc_rel['A34'] > 85 and hour >= 18 and hour < 23 and pirsF > 0:
 			act 'Show off your nipple piercings ':
-				cls
+				*clr & cla
 				gs 'stat'
 				minut+=1
 				pcs_horny += 3
@@ -376,7 +378,6 @@ if $ARGS[0] = 'start':
 			end
 		end
 
-
 		if indorf = 0 and brotherSexCount > 0 and brotherDay = daystart:
 			brotherRand = rand(0,10)
 			if hour >= 6 and hour < 7 and brotherMorningSex ! daystart:
@@ -463,7 +464,7 @@ if $ARGS[0] = 'start':
 	if $loc = 'sitrPar' and brotherAge < 18 and kanikuli = 0 and npc_rel['A34'] >= 20 and brother_homework ! daystart and hour >= 18 and hour < 20:
 		if RAND(1,3) = 1:
 			cla
-			cls
+			*clr & cla
 			gs 'stat'
 			'<center><b><font color = maroon>Kolka</font></b></center>'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
@@ -654,7 +655,7 @@ end
 if $ARGS[0] = 'showbody':
 	cla
 	if npc_QW['A34'] = 3:
-		cls
+		*clr & cla
 		cla
 		minut += RAND(3,5)
 		gs 'stat'
@@ -698,7 +699,7 @@ end
 
 if $ARGS[0] = 'homework':
 	cla
-	cls
+	*clr & cla
 	gs 'stat'
 	minut += 1
 	'<center><b><font color = maroon>Kolka</font></b></center>'
@@ -724,7 +725,7 @@ if $ARGS[0] = 'brotherSexStart':
 	cla
 	gs 'boyStat', 'A34'
 	act 'Jerk your brother':
-		cls
+		*clr & cla
 		minut += 5
 		stat['hj'] += 1
 		npc_rel['A34'] += 2
@@ -739,7 +740,7 @@ if $ARGS[0] = 'brotherSexStart':
 	end
 	if brotherSex >= 5:
 		act 'Suck your brother':
-			cls
+			*clr & cla
 			minut += 5
 			pcs_horny += 10
 			brotherbj += 1
@@ -756,7 +757,7 @@ if $ARGS[0] = 'brotherSexStart':
 			'Soon Kolka groans "<<$pcs_nickname>>, I''m cumming."'
 
 			act 'Suck on':
-				cls
+				*clr & cla
 				minut += 5
 				pcs_horny += 10
 				gs 'boyStat', 'A34'
@@ -774,7 +775,7 @@ if $ARGS[0] = 'brotherSexStart':
 			end
 
 			act 'Remove from your mouth':
-				cls
+				*clr & cla
 				minut += 5
 				pcs_horny += 10
 				brotherfuck += 1
@@ -794,7 +795,7 @@ if $ARGS[0] = 'brotherSexStart':
 			if brotherSex >= 6:
 				act 'Give yourself to your brother':
 					if brotherSex < 7:brotherSex = 7
-					cls
+					*clr & cla
 					minut += 5
 					pcs_horny += 10
 					brotherfuck += 1
@@ -816,7 +817,7 @@ if $ARGS[0] = 'brotherSexStart':
 			end
 			if brotherSex >= 6:
 				act 'Offer your ass to your brother':
-					cls
+					*clr & cla
 					minut += 5
 					pcs_horny += 10
 					npc_rel['A34'] += 5
@@ -842,7 +843,7 @@ if $ARGS[0] = 'brotherSexStart':
 			brotherfuck += 1
 			npc_rel['A34'] += 5
 			if brotherSex < 7:brotherSex = 7
-			cls
+			*clr & cla
 			minut += 5
 			pcs_horny += 10
 			gs 'boyStat', 'A34'
@@ -864,7 +865,7 @@ if $ARGS[0] = 'brotherSexStart':
 		act 'Offer your ass to your brother':
 			brotherfuck += 1
 			npc_rel['A34'] += 5
-			cls
+			*clr & cla
 			minut += 5
 			pcs_horny += 10
 			if brotherSex < 8:brotherSex = 8
@@ -949,7 +950,7 @@ end
 
 if $ARGS[0] = 'brother_go_away':
 	cla
-	cls
+	*clr & cla
 	gs 'stat'
 	pcs_horny += RAND(5,10)
 	minut += RAND(5,10)
@@ -963,7 +964,7 @@ end
 
 if $ARGS[0] = 'brother_go_away2':
 	cla
-	cls
+	*clr & cla
 	gs 'stat'
 	pcs_horny += RAND(5,10)
 	minut += RAND(5,10)
@@ -978,7 +979,7 @@ end
 
 if $ARGS[0] = 'brother_voyeur_end':
 	cla
-	cls
+	*clr & cla
 	gs 'stat'
 	pcs_horny += RAND(5,10)
 	minut += RAND(5,10)
@@ -999,7 +1000,7 @@ end
 
 if $ARGS[0] = 'brother_voyeur_ev1':
 	cla
-	cls
+	*clr & cla
 	gs 'stat'
 	pcs_horny += RAND(10,15)
 	minut += RAND(5,10)
@@ -1017,7 +1018,7 @@ end
 
 if $ARGS[0] = 'brother_voyeur_ev2':
 	cla
-	cls
+	*clr & cla
 	gs 'stat'
 	pcs_horny += RAND(10,15)
 	temp_var = RAND(5,10)
@@ -1035,7 +1036,7 @@ if $ARGS[0] = 'brother_voyeur_ev2':
 end
 
 if $ARGS[0] = 'brother_voyeur_ev3':
-	cls
+	*clr & cla
 	gs 'stat'
 	if npc_QW['A34'] <= 1: npc_QW['A34'] = 2
 	pcs_horny += RAND(10,15)
@@ -1053,7 +1054,7 @@ if $ARGS[0] = 'brother_voyeur_ev3':
 end
 
 if $ARGS[0] = 'brother_voyeur_ev3_2':
-	cls
+	*clr & cla
 	pcs_horny += RAND(10,15)
 	minut += RAND(5,10)
 	brother += 15
@@ -1104,7 +1105,7 @@ if $ARGS[0] = 'brother_voyeur_ev3_2':
 end
 
 if $ARGS[0] = 'brother_sex_end':
-	cls
+	*clr & cla
 	$risk_boy = ''
 	gs 'stat'
 	pcs_horny += RAND(5,10)
@@ -1123,7 +1124,7 @@ end
 
 if $ARGS[0] = 'brother_voyeur_ev4':
 	cla
-	cls
+	*clr & cla
 	gs 'stat'
 	npc_rel['A34'] += rand(1,3)
 	pcs_horny += RAND(10,15)
@@ -1151,7 +1152,7 @@ end
 
 if $ARGS[0] = 'brother_voyeur_ev5':
 	cla
-	cls
+	*clr & cla
 	gs 'stat'
 	npc_rel['A34'] += rand(2,3)
 	pcs_horny += RAND(10,15)
@@ -1291,7 +1292,7 @@ end
 
 if $ARGS[0] = 'brother_voyeur_ev6':
 	cla
-	cls
+	*clr & cla
 	gs 'stat'
 	npc_rel['A34'] += rand(1,3)
 	pcs_horny += RAND(10,15)
@@ -1322,7 +1323,7 @@ end
 
 if $ARGS[0] = 'brother_voyeur_ev7':
 	cla
-	cls
+	*clr & cla
 	gs 'stat'
 	npc_rel['A34'] += rand(1,3)
 	pcs_horny += RAND(10,15)
@@ -1358,7 +1359,7 @@ if $ARGS[0] = 'brother_voyeur_ev7':
 			end
 			act'Insert':
 				cla
-				cls
+				*clr & cla
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/f (5).jpg"></center>'
 				minut += RAND(5,10)
@@ -1402,7 +1403,7 @@ end
 
 if $ARGS[0] = 'brother_voyeur_ev8':
 	cla
-	cls
+	*clr & cla
 	npc_rel['A34'] += rand(2,3)
 	pcs_horny += RAND(10,15)
 	minut += RAND(5,10)
@@ -1421,7 +1422,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		if pcs_vag > 0:'You slip your fingers inside while softly moaning and panting.'
 		'You spot your brother''s member and you closely follow his every move, you feel warmth and excitement build up in your abdomen, you start to feel an orgasm coming, not paying attention to what your brother doing he groans and jets of his warm sperm cover your stomach while you begin writhing in orgasm smearing the cum over your body with your hands.'
 		act'Further':
-			cls
+			*clr & cla
 			cla
 			CLOSE ALL
 			gs 'stat'
@@ -1445,7 +1446,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 			act'Dress':gt $loc, $metka
 		end
 	elseif brotherSex >= 4:
-		cls
+		*clr & cla
 		minut += 5
 		pcs_horny += 10
 		stat['bj'] += 1
@@ -1463,7 +1464,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		if pcs_vag > 0:'You slip your fingers inside while softly moaning and panting.'
 		'You spot your brother''s member and you closely follow his every move, he moves it towards your mouth, you open you lips and take it in greedily. You feel warmth and excitement build up in your abdomen, you start to feel an orgasm coming, focusing on your brother''s member it begins to twitch, he groans and jets of his warm sperm fill your mouth you begin writhing as your orgasm washes over you at the same time.'
 		act'Further':
-			cls
+			*clr & cla
 			cla
 			CLOSE ALL
 			gs 'stat'
@@ -1475,7 +1476,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 			act'Dress':gt $loc, $metka
 		end
 	elseif brotherConfidence > 10 and brotherSex < 4:
-		cls
+		*clr & cla
 		minut += 5
 		pcs_horny += 10
 		stat['bj'] += 1
@@ -1494,7 +1495,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		if pcs_vag > 0:'You slip your fingers inside while softly moaning and panting.'
 		'You spot your brother''s member and you closely follow his every move, slowly he moves it towards your mouth, you open you lips and take it in. You feel warmth and excitement build up in your abdomen, you start to feel an orgasm coming, focusing on your brother''s member it begins to twitch, he groans and jets of his warm sperm fill your mouth you begin writhing as your orgasm washes over you at the same time.'
 		act'Further':
-			cls
+			*clr & cla
 			cla
 			CLOSE ALL
 			gs 'stat'

locations/brother2.qsrc

@@ -1,5 +1,7 @@
 # brother2
 
+menu_off = 1
+
 if $ARGS[0] = 'chat':
 	minut += 15
 	gs 'stat'

locations/brother_lessons.qsrc

@@ -1,5 +1,7 @@
 # brother_lessons
 
+menu_off = 1
+
 if $ARGS[0] = 'homework':
 	brother_homework = daystart
 	if npc_rel['A34'] <50:npc_rel['A34'] += 1

locations/brother_voyeur.qsrc

@@ -1,5 +1,7 @@
 # brother_voyeur
 
+menu_off = 1
+
 brotherAge = year - ((npc_dob['A34'] - (npc_dob['A34'] mod 10000)) / 10000)
 if (npc_dob['A34'] mod 10000)/100 > month: brotherAge -= 1
 if (npc_dob['A34'] mod 10000)/100 = month and (npc_dob['A34'] mod 100) > day: brotherAge -= 1

locations/budgetclothes.qsrc

@@ -3,6 +3,9 @@
 if $ARGS[0] = 'start':
 	$metka = $ARGS[0]
 	$loc = 'budgetclothes'
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'start'
+	menu_off = 0
 	$location_type = 'event'
 	'<center><b><font color="maroon">Welcome to G & M - Clothes for all your needs</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/gandm/shop.jpg"</center>'
@@ -24,6 +27,7 @@ if $ARGS[0] = 'start':
 	
 	act 'Visit clothing department':
 		cla
+		menu_off = 1
 		
 		act 'Return':gt 'budgetclothes', 'start'
 		
@@ -50,6 +54,7 @@ if $ARGS[0] = 'start':
 
 	act 'Visit shoe department':
 		cla
+		menu_off = 1
 		
 		act 'Return':gt 'budgetclothes', 'start'
 		
@@ -88,7 +93,10 @@ end
 if $ARGS[0] = 'clothes':
 	$metka = 'clothes'
 	$loc = 'budgetclothes'
-	cls
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'clothes'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 	'<center><b><font color="maroon">Viewing G&M cheap clothing</font></b></center>'
 	*nl
@@ -129,7 +137,7 @@ end
 
 if $ARGS[0] = 'cheapclo':
 	cla
-	
+	menu_off = 1
 	if cheap[i] ! 0:
 		msg 'You already own these clothes.'
 		gt 'budgetclothes', 'clothes'
@@ -139,9 +147,12 @@ if $ARGS[0] = 'cheapclo':
 end
 
 if $ARGS[0] = 'office':
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'office'
+	menu_off = 0
 	$metka = $ARGS[0]
 	$loc = 'budgetclothes'
-	cls
+	*clr & cla
 	gs'stat'
 	'<center><b><font color="maroon">Viewing G&M office clothing</font></b></center>'
 	*nl
@@ -175,7 +186,7 @@ end
 
 if $ARGS[0] = 'officeclo':
 	cla
-	
+	menu_off = 1
 	if office[i] ! 0:
 		msg 'You already own these clothes.'
 		gt 'budgetclothes', 'office'
@@ -185,9 +196,12 @@ if $ARGS[0] = 'officeclo':
 end
 
 if $ARGS[0] = 'uniform':
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'uniform'
+	menu_off = 0
 	$metka = $ARGS[0]
 	$loc = 'budgetclothes'
-	cls
+	*clr & cla
 	gs'stat'
 	'<center><b><font color="maroon">Viewing G&M uniforms</font></b></center>'
 	*nl
@@ -221,7 +235,7 @@ end
 
 if $ARGS[0] = 'uniformclo':
 	cla
-	
+	menu_off = 1
 	if uniform[i] ! 0:
 		msg 'You already own these clothes.'
 		gt 'budgetclothes', 'uniform'
@@ -231,9 +245,12 @@ if $ARGS[0] = 'uniformclo':
 end
 
 if $ARGS[0] = 'school':
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'school'
+	menu_off = 0
 	$metka = $ARGS[0]
 	$loc = 'budgetclothes'
-	cls
+	*clr & cla
 	gs'stat'
 	'<center><b><font color="maroon">Viewing G&M school uniforms</font></b></center>'
 	*nl
@@ -268,7 +285,7 @@ end
 
 if $ARGS[0] = 'schoolclo':
 	cla
-	
+	menu_off = 1
 	if school[i] ! 0:
 		msg 'You already own these clothes.'
 		gt 'budgetclothes', 'school'
@@ -280,7 +297,10 @@ end
 if $ARGS[0] = 'shoes':
 	$metka = 'shoes'
 	$loc = 'budgetclothes'
-	cls
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'shoes'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -309,7 +329,10 @@ if $ARGS[0] = 'budget_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'gandm',i, 7
 if $ARGS[0] = 'trainers':
 	$metka = 'trainers'
 	$loc = 'budgetclothes'
-	cls
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'trainers'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -334,9 +357,12 @@ end
 if $ARGS[0] = 'training_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'trainers',i, 800
 
 if $ARGS[0] = 'coats':
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'coats'
+	menu_off = 0
 	$metka = $ARGS[0]
 	$loc = 'budgetclothes'
-	cls
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -357,7 +383,7 @@ end
 
 if $ARGS[0] = 'coatsclo':
 	cla
-	
+	menu_off = 1
 	if coat[i] ! 0:
 		msg 'You already own these clothes.'
 		gt 'budgetclothes', 'coats'
@@ -367,9 +393,12 @@ if $ARGS[0] = 'coatsclo':
 end
 
 if $ARGS[0] = 'purses':
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'purses'
+	menu_off = 0
 	$metka = 'purses'
 	$loc = 'budgetclothes'
-	cls
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -390,7 +419,10 @@ if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'cheap',i, 1500
 if $ARGS[0] = 'panties':
 	$metka = 'panties'
 	$loc = 'budgetclothes'
-	cls
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'panties'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -411,9 +443,12 @@ if $ARGS[0] = 'panties':
 end
 
 if $ARGS[0] = 'bras':
+	$menu_loc = 'budgetclothes'
+	$menu_arg = 'bras'
+	menu_off = 0
 	$metka = 'bras'
 	$loc = 'budgetclothes'
-	cls
+	*clr & cla
 	gs'stat'
 
 	act 'Return':

locations/budilnik.qsrc

@@ -1,4 +1,7 @@
 # budilnik
+
+menu_off = 1
+
 if $ARGS[0] = 'start':
 	cla
 	clr

locations/buklinik.qsrc

@@ -1,11 +1,11 @@
 # buklinik
 
 if $ARGS[0] = 'start':
-	cla
-	clr
-	*clr
-	minut += 5
-
+	$menu_loc = 'buklinik'
+	$menu_arg = 'start'
+	menu_off = 0
+	*clr & cla
+	minut += 5	
 	gs 'stat'
 	gs 'themes', 'indoors'
 	'<center><b>Mercy clinic</b></center>'
@@ -16,19 +16,16 @@ if $ARGS[0] = 'start':
 	if temp = 2:'You see a homeless person trying to get into a shelter.'
 	if temp = 3:'You see an old man who came to the shelter.'
 
-	if hour >= 9 and hour <= 17:
-		act 'Go to the clinic':gt 'buklinik', 'holl'
-	end
-
-
-
 	act 'Leave':gt 'nord'
+	
+	if hour >= 9 and hour <= 17: act 'Go to the clinic':gt 'buklinik', 'holl'
 end
 
 if $ARGS[0] = 'holl':
-	cla
-	clr
-	*clr
+	$menu_loc = 'buklinik'
+	$menu_arg = 'holl'
+	menu_off = 0
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -50,19 +47,13 @@ if $ARGS[0] = 'holl':
 		if bumtolik > 5:'Account coordinator<a href="exec:gt ''buklinik'', ''dir''"> faith</a>.'
 	end
 
-	if (SchoolAtestat = 0 and bumtolik = 0) or bumtolik = 4:
-		act 'Apply to the registry':gt 'buklinik', 'registr'
-	end
-
-
-
 	act 'Leave':gt 'nord'
+	if (SchoolAtestat = 0 and bumtolik = 0) or bumtolik = 4: act 'Apply to the registry':gt 'buklinik', 'registr'
 end
 
 if $ARGS[0] = 'registr':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 15
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -80,14 +71,13 @@ if $ARGS[0] = 'registr':
 		'Registrar:- Hello! We are very pleased to see you. But I''m afraid you refuse, the fact is that we need volunteers, ie your work will not be paid. A job to be very complicated. Will have to take care of the elderly and the homeless to feed and clothe.'
 	end
 
-	act 'I knew you, I have to think':gt 'nord'
+	act 'I have to think about it':gt 'nord'
 	act 'agree':gt 'buklinik', 'registr2'
 end
 
 if $ARGS[0] = 'registr2':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 15
 	bumtolik = 5
 	gs 'stat'
@@ -99,14 +89,12 @@ if $ARGS[0] = 'registr2':
 	'(You fill out the form)'
 	'Registator:- Well, there you have a membership card. The corridor the first door on the right, get to the warehouse, where she will meet Olga show you everything.'
 
-
 	act 'In the corridor':gt 'buklinik', 'holl'
 end
 
 if $ARGS[0] = 'registr3':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 15
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -118,9 +106,8 @@ if $ARGS[0] = 'registr3':
 end
 
 if $ARGS[0] = 'sklad':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -134,9 +121,8 @@ if $ARGS[0] = 'sklad':
 end
 
 if $ARGS[0] = 'olga':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -156,9 +142,8 @@ if $ARGS[0] = 'olga':
 end
 
 if $ARGS[0] = 'sec':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 15
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -179,9 +164,8 @@ if $ARGS[0] = 'sec':
 end
 
 if $ARGS[0] = 'dir':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 15
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -204,9 +188,8 @@ if $ARGS[0] = 'dir':
 end
 
 if $ARGS[0] = 'shower':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 15
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -219,9 +202,8 @@ if $ARGS[0] = 'shower':
 end
 
 if $ARGS[0] = 'stol':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 15
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -234,9 +216,8 @@ if $ARGS[0] = 'stol':
 end
 
 if $ARGS[0] = 'spal':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 15
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -245,17 +226,14 @@ if $ARGS[0] = 'spal':
 	'Sleeping space for guests.'
 	'Who are there only. Alcoholics and homeless, vagrants and drug addicts. There are just people who have nowhere to sleep.'
 
-	if bumtolik = 6:
-		act 'hello':gt 'buklinik_event', 'pos1'
-	end
+	if bumtolik = 6: act 'hello':gt 'buklinik_event', 'pos1'
 
 	act 'In the corridor':gt 'buklinik', 'holl'
 end
 
 if $ARGS[0] = 'olga2':
-	cla
-	clr
-	*clr
+	*clr & cla
+	menu_off = 1
 	minut += 15
 	gs 'stat'
 	gs 'themes', 'indoors'

locations/buklinik_event.qsrc

@@ -1,5 +1,7 @@
 # buklinik_event
 
+menu_off = 1
+
 if $ARGS[0] = 'pos1':
 	cla
 	*clr

locations/burger.qsrc

@@ -6,7 +6,7 @@ if $ARGS[0] = 'start':
 	$menu_loc = 'burger'
 	$menu_arg = 'start'
 	menu_off = 0
-	cls
+	*clr & cla
 	$location_type = 'public_indoors'
 	CLOSE ALL
 	gs 'stat'
@@ -52,7 +52,7 @@ if $ARGS[0] = 'office':
 	$menu_loc = 'burger'
 	$menu_arg = 'office'
 	menu_off = 0
-	cls
+	*clr & cla
 	gs 'stat'
 	minut += 5
 	'You go to the office of the owner. He is sitting at his desk, dealing with your papers. Anatoly Borisovich looks at you and says, "Well? Do you have any news?"'
@@ -61,7 +61,8 @@ if $ARGS[0] = 'office':
 
 	if money >= 650000:
 		act 'Repay the debt (650,000 <b>₽</b>)':
-			cls
+			*clr & cla
+			menu_off = 1
 			minut += 5
 			money -= 650000
 			IvanPodstavaQW = 5
@@ -74,7 +75,8 @@ if $ARGS[0] = 'office':
 
 	if IvanEvidence = 1:
 		act 'Show proof':
-			cls
+			*clr & cla
+			menu_off = 1
 			minut += 5
 			IvanPodstavaQW = 6
 			IvanKvartira = 0
@@ -99,6 +101,7 @@ if $ARGS[0] = 'apply':
 
 	act 'Accept work':
 		cla
+		menu_off = 1
 		posuda = 1
 		'You agree to work.'
 
@@ -118,6 +121,7 @@ if $ARGS[0] = 'manager':
 
 	act 'Agree to work':
 		cla
+		menu_off = 1
 		posudaA = 1
 		soplakTimes = 0
 		soplakTimes1 = 0
@@ -129,7 +133,7 @@ end
 
 if $ARGS[0] = 'dishes':
 	menu_off = 1
-	cls
+	*clr & cla
 	posudaday = daystart
 	minut += 60
 	posuda += 1
@@ -159,12 +163,12 @@ if $ARGS[0] = 'dishes':
 		act 'Refuse':gt 'burger', 'start'
 
 		act 'Agree':
-			cls
+			*clr & cla
 			bistroQW = 10
 			'"Let''s go to the shop first and pick up a gorgeous dress for you. You are not allowed in the restaurant with anything else." says Anatoly while walking you to his car.'
 
 			act 'Get in the car':
-				cls
+				*clr & cla
 				minut += 15
 				bistroQW = 20
 				gs 'stat'
@@ -175,7 +179,7 @@ if $ARGS[0] = 'dishes':
 				'After showing him a few dresses, he chooses one and tells you to go to the dressing room.'
 
 				act 'Go into the fitting room':
-					cls
+					*clr & cla
 					minut += 15
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/butic.jpg"></center>'
@@ -187,7 +191,7 @@ if $ARGS[0] = 'dishes':
 					'Anatoly''s eyes point at his pants showing what he wants from you.'
 
 					act 'Give him a blowjob':
-						cls
+						*clr & cla
 						bistroQW = 50
 						guy += 1
 						gs 'boyStat', 'A74'
@@ -209,7 +213,7 @@ if $ARGS[0] = 'dishes':
 						gs 'stat'
 
 						act 'Exit from the boutique':
-							cls
+							*clr & cla
 							minut += 15
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/shared/car.jpg"></center>'
@@ -223,13 +227,13 @@ if $ARGS[0] = 'dishes':
 					end
 
 					act 'Hesitate':
-						cls
+						*clr & cla
 						minut += 15
 						gs 'stat'
 						'You hesitate, not sure what to do. Anatoly Borisovich takes you by the shoulders and pushes you down, making you squat in front of him helplessly. He unbuttons his pants and pulls out his already hard dick.'
 
 						act 'Look at him frightened':
-							cls
+							*clr & cla
 							minut += 1
 							bistroQW = 50
 							guy += 1
@@ -241,14 +245,14 @@ if $ARGS[0] = 'dishes':
 							'You look up at him startled as you notice the hot head of his cock resting on your lips. Anatoly pushes his dick to your lips. "Don''t shy baby, lick it with your tongue."'
 
 							act 'Start licking':
-								cls
+								*clr & cla
 								minut += 2
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/pr1.jpg"></center>'
 								'You hesitantly stick out your tongue and lick the purple head again and again. Soon you are running your tongue along the whole length of his cock, wetting it with your saliva.'
 
 								act 'Keep licking his dick':
-									cls
+									*clr & cla
 									gs 'stat'
 									'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/pr2.jpg"></center>'
 									'You continue to lick his dick and Anatoly Borisovich puts his hand on the back of your head pushing your head into is groin. You feel his cock fill up your mouth almost completely as your wet lips part to take in the hot and firm flesh of his member. "That''s it baby, suck it now." says Anatoly Borisovich as he starts moving his hips, slowly fucking your mouth. You wrap your lips tightly around his member, trying not to choke as his thrusts become more and more forceful.'
@@ -257,7 +261,7 @@ if $ARGS[0] = 'dishes':
 									gs 'stat'
 
 									act 'Suck his dick':
-										cls
+										*clr & cla
 										minut += 2
 										swallow += 1
 										gs 'boyStat', 'A74'
@@ -278,7 +282,7 @@ if $ARGS[0] = 'dishes':
 										gs 'stat'
 
 										act 'Sit on the floor':
-											cls
+											*clr & cla
 											minut += 2
 											gs 'stat'
 											cumspclnt = 11
@@ -287,14 +291,14 @@ if $ARGS[0] = 'dishes':
 											'Finally Anatoly Borisovich stops, puts his cleaned off dick back in his pants and starts to button them up. You sit on the floor stunned with semen dripping from your face. You feel taste the distinct flavor of semen in your mouth. Anatoly Borisovich helps you back to your feet and quickly walks out of the dressing room. You try to clean the traces of sperm from your face.'
 
 											act 'Exit out of the dressing':
-												cls
+												*clr & cla
 												minut += 2
 												gs 'stat'
 												!!'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/pr4.jpg"></center>'
 												'You come out of the dressing room, your face red with shame. You feel like everyone is already aware of the fact that you just sucked a dick in a public place. Anatoly Borisovich tells the saleswoman that he will buy the dress for you and pays. The saleswoman wraps the dress for you and you feel her gaze on your face as she gives you the package.'
 
 												act 'Exit from the boutique':
-													cls
+													*clr & cla
 													minut += 15
 													gs 'stat'
 													'<center><img <<$set_imgh>> src="images/locations/city/shared/car.jpg"></center>'
@@ -315,7 +319,7 @@ if $ARGS[0] = 'dishes':
 
 					if pcs_dom > 0:
 						act 'Thank you very much. (Deny)':
-							cls
+							*clr & cla
 							pcs_dom += 5
 							'You grin and say, "Thank you very much." Anatoly flushes and says emphatically, "You know what I mean." He unbuttons his pants and pulls out his hard member.'
 							'You laugh, "Oh yes, I understand perfectly. You can wear this dress yourself, if you think I''m spreading my legs for every fat cat, who fancies himself the king of the world. So don''t insult my intelligence and put your ugly dick back in your pants. If you think I am going to suck you off for buying me a dress you are a bigger idiot than I thought. Wo do you think you are? Casanova? Are you fucking serious?"'
@@ -342,12 +346,12 @@ if $ARGS[0] = 'dishes':
 		'When you''re finished you are suddenly approached by the manager Ivan. "Okay <<$pcs_nickname>>. I''m sorry. I was wrong about you. I do not know what got into me. We are currently looking for an Assistant Manager. I think you can do it. You have the nature for it. Well? What do you say?"'
 
 		act 'Yes':
-			cls
+			*clr & cla
 			gs 'stat'
 			'You agree with the proposal to become Ivan''s assistant manager. Ivan immediately beams at you with happiness. "Well then, here is your first work assignment. Here are the keys to the Anatoly Borisovich''s office. Take them with you when you go home. Go to his office, open the safe and take the envelope in there. Do not forget to close the safe afterwards. Bring the envelope to me. Did you understand everything? Then go!"'
 
 			act 'I changed my mind':
-				cls
+				*clr & cla
 				bistroQW = 57
 				gs 'stat'
 				'You refuse Ivan''s offer and notice a flash of annoyance on his face. Disappointed he says to you. "Well, the offer stands."'
@@ -356,19 +360,19 @@ if $ARGS[0] = 'dishes':
 			end
 
 			act 'Take the key and go into Anatoly Borisovich''s office':
-				cls
+				*clr & cla
 				bistroQW = 111
 				gs 'stat'
 				'Taking key from Ivan you go to the office of the owner. You open the door, enter the office and go to the safe. When you open the safe you see some documents and a thick envelope.'
 
 				act 'Look in the envelope':
-					cls
+					*clr & cla
 					$burgerIvanText = 'You look into the envelope. Then you close the safe and head to the exit.'
 					gs 'stat'
 					'You look into the envelope and see a thick wad of money. You guess, that it amounts to about half a million. A surprised whistle escapes your mouth.'
 
 					act 'Take the envelope to Ivan':
-						cls
+						*clr & cla
 						IvanPodstavaDay = daystart
 						IvanPodstavaQW = 1
 						NoBistroWork = 1
@@ -380,7 +384,7 @@ if $ARGS[0] = 'dishes':
 				end
 
 				act 'Take the envelope to Ivan':
-					cls
+					*clr & cla
 					$burgerIvanText = 'You take the envelope, close the safe and head out.'
 					IvanPodstavaDay = daystart
 					IvanPodstavaQW = 1
@@ -394,7 +398,7 @@ if $ARGS[0] = 'dishes':
 		end
 
 		act 'No':
-			cls
+			*clr & cla
 			bistroQW = 57
 			gs 'stat'
 			'You refuse Ivan''s offer and notice his face flashing with a shadow of annoyance. Disappointed he says to you. "Well, the offer stands."'
@@ -406,7 +410,7 @@ if $ARGS[0] = 'dishes':
 		'During your work, you learned that Anatoly Borisovich is away on business affairs and Ivan is replacing him as the manager. When you are getting ready to go to work Ivan comes out of the manager''s office and says in a conspirational tone, "Well <<$pcs_nickname>>, you obviously do not want to work for a couple of pennies? Come to me for special work. Special work for special Salary."'
 
 		act 'Go to the manager''s office':
-			cls
+			*clr & cla
 			minut += 15
 			bistroQW = 55
 			gs 'stat'
@@ -414,12 +418,12 @@ if $ARGS[0] = 'dishes':
 			'You go into the office and close the door. Ivan is sitting in a chair in front of you seemingly at ease, lounging in it. As you go over to the manager waiting for what he would do, he sneers at you and deftly grabs you by the hand pulling you towards him.'
 
 			act 'Bend over':
-				cls
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj2.jpg"></center>'
 				'You bend over and come face to face with Ivan, he whispers, unbuttoning his pants, "Get to work with your mouth, baby"'
 
 				act 'Use your mouth':
-					cls
+					*clr & cla
 					guy += 1
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj3.jpg"></center>'
@@ -430,7 +434,7 @@ if $ARGS[0] = 'dishes':
 					gs 'stat'
 
 					act 'Swallow cum and clean his cock':
-						cls
+						*clr & cla
 						minut += 2
 						swallow += 1
 						gs 'boyStat', 'A76'
@@ -454,7 +458,7 @@ if $ARGS[0] = 'dishes':
 
 			if pcs_dom > 0 or pcs_dom = 0 and sub = 0:
 				act 'Leave':
-					cls
+					*clr & cla
 					bistroQW = 56
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj1.jpg"></center>'
@@ -463,7 +467,7 @@ if $ARGS[0] = 'dishes':
 					act 'That''s bullshit!':pcs_dom += 1 & gt 'burger', 'start'
 
 					act 'Use your mouth':
-						cls
+						*clr & cla
 						bistroQW = 55
 						guy += 1
 						gs 'stat'
@@ -475,7 +479,7 @@ if $ARGS[0] = 'dishes':
 						gs 'stat'
 
 						act 'Swallow his cum and clean his cock':
-							cls
+							*clr & cla
 							minut += 2
 							swallow += 1
 							gs 'boyStat', 'A76'
@@ -504,12 +508,12 @@ if $ARGS[0] = 'dishes':
 		'Ivan approaches you and says, "I''ll see you in my office."'
 
 		act 'Go to the manager''s office':
-			cls
+			*clr & cla
 			bistroQW = 60
 			'You go into the office where Ivan is sitting at the table and motions you to get under it. You immediatly understand what he wants from you.'
 
 			act 'Crawl under the table':
-				cls
+				*clr & cla
 				swallow += 1
 				gs 'boyStat', 'A76'
 				sexpartkno = 1
@@ -532,13 +536,13 @@ if $ARGS[0] = 'dishes':
 		'Ivan is nowhere to be seen and he has not approached you, so you decide to check his office.'
 
 		act 'Go to the manager''s office':
-			cls
+			*clr & cla
 			bistroQW = 65
 			'You come to the office, but it is closed. The deputy manager comes over to you and tells you with a chuckle, "What <<$pcs_nickname>>? Can''t work without a dick? I know all about you and our general manager. But he is not here until the end of the week. And if you do not want me to tell other people how you earn a living, then you will go to the office and serve me."'
 			''
 
 			act 'Nod obediently':
-				cls
+				*clr & cla
 				swallow += 1
 				gs 'boyStat', 'A75'
 				sexpartkno = 1
@@ -560,14 +564,14 @@ if $ARGS[0] = 'dishes':
 			end
 
 			act 'Send him away':
-				cls
+				*clr & cla
 				'You contemptuously tell this boy, that he can go to hell with his threats.'
 				'"Ha, listen here slut! My father is the real owner of the bistro and Borisovich is just a hired director. And if he learns that you fuck Borisovich whenever he wants it, it will be very bad for you! So if you want me to keep quiet…"'
 				'After these words, he calls two movers over and says'
 				'"Guys would you like to blow off some steam on this nymph? Don''t worry, she enjoys it. She is here to serve. Am I right <<$pcs_nickname>>?'
 
 				act 'Yes':
-					cls
+					*clr & cla
 					bistroQW = 70
 					guy += 3
 					gruzsex += 1
@@ -581,7 +585,7 @@ if $ARGS[0] = 'dishes':
 					gs 'stat'
 
 					act 'Let them cum on you':
-						cls
+						*clr & cla
 						gs 'boyStat', 'A75'
 						sexpartkno = 1
 						spafinloc = 11
@@ -611,7 +615,7 @@ if $ARGS[0] = 'dishes':
 		'In the office, he sits down on a chair pulls out his dick and puts you in front of him on all fours.'
 
 		act 'Use your mouth':
-			cls
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/sex/bj31.jpg"></center>'
 			'You kneel in front of the kid sitting in a chair and begin to diligently suck his dick. You caress his cock and testicles with your tongue while simoultaneously stroking his shaft with your hand.'
 
@@ -621,7 +625,7 @@ if $ARGS[0] = 'dishes':
 			gs 'stat'
 
 			act '...':
-				cls
+				*clr & cla
 				gs 'boyStat', 'A75'
 				sexpartkno = 1
 				spafinloc = 12
@@ -712,13 +716,14 @@ if $ARGS[0] = 'boss':
 		elseif PersSecWork = 0 and week < 6:
 			if secrDiplom = 1:
 				act 'Show your secretary diploma':
-					cls
+					*clr & cla
+					menu_off = 1
 					minut += 1
 					gs 'stat'
 					'You show Anatoly Borisovich your diploma and he asks you, "Do you want to work for me?"'
 
 					act 'No':
-						cls
+						*clr & cla
 						minut += 1
 						gs 'stat'
 						'You tell him, that you already work somewhere else. Anatoly Borisovich smiles a little, "What can I do to make you quit your job and work for me? You can think about it, I won''t force you, but I''ll pay you a normal salary. You will get 1250 <b>₽</b> per day."'
@@ -728,7 +733,7 @@ if $ARGS[0] = 'boss':
 
 					if (work = 0 and PersSecWork = 0 and cheatWork = 0) or (PersSecWork = 0 and cheatWork = 1):
 						act 'Ask about the work':
-							cls
+							*clr & cla
 							minut += 1
 							gs 'stat'
 							'You ask about the job. Anatoly Borisovich smiles a little, "You can think about it, I won''t force you, but I''ll pay you a normal salary. You will get 1250 <b>₽</b> per day. I''m looking for loyalty, hard work, and strict compliance with my guidelines."'
@@ -736,7 +741,7 @@ if $ARGS[0] = 'boss':
 							act 'Leave':gt 'burger', 'start'
 
 							act 'Take the job':
-								cls
+								*clr & cla
 								minut += 1
 								work = 1
 								PersSecWork = 1
@@ -755,7 +760,8 @@ if $ARGS[0] = 'boss':
 		'You enter enter the manager''s office. Anatoly Borisovich is sitting at the table studying some documents. When he sees you, he puts them aside and invites you to sit on a chair.'
 
 		act 'Sit on a chair':
-			cls
+			*clr & cla
+			menu_off = 1
 			minut += 1
 			BistroBoss = 10
 			gs 'stat'
@@ -766,7 +772,7 @@ if $ARGS[0] = 'boss':
 
 				if secrDiplom = 1:
 					act 'Yes, I have a diploma':
-						cls
+						*clr & cla
 						minut += 1
 						gs 'stat'
 						'You tell him that you already have a secretary diploma. Anatoly Borisovich smiles. "That''s good. Listen, I need to make a couple of calls, so leave now."'
@@ -776,7 +782,7 @@ if $ARGS[0] = 'boss':
 
 				elseif secrDiplom = 0 and sekrObu > 0:
 					act 'I do not have a diploma, but I am a secretary':
-						cls
+						*clr & cla
 						minut += 1
 						gs 'stat'
 						'You tell him that you do not have a diploma, but are experienced at working as a secretary. Anatoly Borisovich smiles. "That''s good. Douchishsya, come to me. Listen, I now need to make a couple of calls, leave now."'
@@ -786,7 +792,7 @@ if $ARGS[0] = 'boss':
 
 				elseif secrDiplom = 0 and sekrObu = 0:
 					act 'No':
-						cls
+						*clr & cla
 						sekrObu = 1
 						minut += 1
 						gs 'stat'
@@ -802,7 +808,7 @@ if $ARGS[0] = 'boss':
 				act 'Leave':gt 'burger', 'start'
 
 				act 'Get on your knees':
-					cls
+					*clr & cla
 					money += 300
 					swallow += 1
 					spafinloc = 12
@@ -834,7 +840,8 @@ if $ARGS[0] = 'boss':
 		act 'Leave':gt 'burger', 'start'
 
 		act 'Get on your knees':
-			cls
+			*clr & cla
+			menu_off = 1
 			money += 300
 			swallow += 1
 			spafinloc = 12

locations/burgerWork.qsrc

@@ -1,5 +1,7 @@
 # burgerWork
 
+menu_off = 1
+
 !!Anatoly Borisovich Director
 !!smart girl HR Manager, personnel department
 !!manager Ivan, player, ILO and brave guy

locations/butik.qsrc

@@ -5,9 +5,10 @@ if $ARGS[0] = 'start':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
     $location_type = 'public_indoors'
-	cla
-	clr
-	*clr
+	$menu_loc = 'butik'
+	$menu_arg = 'start'
+	menu_off = 0
+	*clr & cla
 	mag = 1
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -69,13 +70,19 @@ if $ARGS[0] = 'start':
 				if coat[11] = 0:dynamic 'act ''Look at designer coat 11'':gt ''clothing'', ''view_clothing_item'', ''shop'', ''coat'', 11, 50000'
 			end
 		end
+	else
+		*nl
+		'There are some coats, but they cost 50.000 <b>₽</b>.'
 	end
 end
 
 if $ARGS[0] = 'clothes':
 	$metka = 'clothes'
 	$loc = 'butik'
-	cls
+	$menu_loc = 'butik'
+	$menu_arg = 'clothes'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 	'<center><b><font color="maroon">Viewing Mon Chéri outfits</font></b></center>'
 	*nl
@@ -107,7 +114,7 @@ end
 
 if $ARGS[0] = 'formal':
 	cla
-	
+	menu_off = 1
 	if formal[i] ! 0:
 		msg 'You already own these clothes.'
 		gt 'butik', 'clothes'
@@ -120,7 +127,10 @@ end
 if $ARGS[0] = 'panties':
 	$metka = 'panties'
 	$loc = 'butik'
-	cls
+	$menu_loc = 'butik'
+	$menu_arg = 'panties'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -139,7 +149,7 @@ end
 
 if $ARGS[0] = 'panties2':
 	cla
-	
+	menu_off = 1
 	if boutique_panties[i] ! 0:
 		msg 'You already own these panties.'
 		gt 'butik', 'panties'
@@ -152,7 +162,10 @@ end
 if $ARGS[0] = 'bras':
 	$metka = 'bras'
 	$loc = 'butik'
-	cls
+	$menu_loc = 'butik'
+	$menu_arg = 'bras'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -171,7 +184,7 @@ end
 
 if $ARGS[0] = 'bras2':
 	cla
-	
+	menu_off = 1
 	if boutique_bras[i] ! 0:
 		msg 'You already own these bras.'
 		gt 'butik', 'bras'
@@ -184,7 +197,10 @@ end
 if $ARGS[0] = 'shoes':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cls
+	$menu_loc = 'butik'
+	$menu_arg = 'shoes'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -210,7 +226,10 @@ if $ARGS[0] = 'boutique_shoes':	gt 'shoes', 'view_shoe_item', 'shop', 'boutique'
 if $ARGS[0] = 'purses':
 	$metka = 'purses'
 	$loc = 'butik'
-	cls
+	$menu_loc = 'butik'
+	$menu_arg = 'purses'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -230,7 +249,8 @@ end
 if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'boutique',i, 4000
 
 if $ARGS[0] = 'rima':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
     $location_type = 'event'
 	gs 'stat'
@@ -241,7 +261,7 @@ if $ARGS[0] = 'rima':
 	act 'Silently leave': minut += 8 & gt 'down'
 
 	act 'Stare at her breasts':
-		cls
+		*clr & cla
 		gs 'stat'
 		'Seeing that the she is a novice saleswoman and that you are most likely her first client, you decided to go for it. just as you opened your mouth to say some harsh sentence, your eyes came to rest on her chest. The Bra together with the shirt successfully emphasized her breasts, and even though only the upper part of her chest was visible, your imagination filled in the rest. You wonder what her nipples are like The thought crossed your mind suprisingly'
 		'"Yes, You can give me a few minutes of your time."You said.'
@@ -256,7 +276,7 @@ if $ARGS[0] = 'rima':
 		gs 'stat'
 
 		act 'Choose a dress with Rimma':
-			cls
+			*clr & cla
 			minut += 5
 			gs 'stat'
 
@@ -266,13 +286,13 @@ if $ARGS[0] = 'rima':
 				'Come with me - Rima didn''t notice that the invisible barrier between you is lost: the seller and the buyer.'
 
 				act 'Go inside the dressing room':
-					cls
+					*clr & cla
 					minut += 5
 					gs 'stat'
 					'You and Rima went together into the dressing room.'
 
 					act 'You do not like the dress':
-						cls
+						*clr & cla
 						minut += 5
 						gs 'stat'
 						'As a result, you spent time together, while in your head you wonder about Rima, and her mysterious and curious body.'
@@ -281,14 +301,14 @@ if $ARGS[0] = 'rima':
 						act 'Ignore': minut += 8 & gt 'down'
 
 						act 'Look around':
-							cls
+							*clr & cla
 							minut += 5
 							gs 'stat'
 							'You start to turn your head, looking around sharply.'
 							'You notice that a girl is looking at you.'
 
 							act 'Approach her':
-								cls
+								*clr & cla
 								minut += 5
 								gs 'stat'
 								'You silently move towards her and give her a look'
@@ -303,7 +323,7 @@ if $ARGS[0] = 'rima':
 								act 'Yes you ohereli! (Go)': minut += 8 & gt 'down'
 
 								act 'Extort taken in head? What do you want?':
-									cls
+									*clr & cla
 									minut += 5
 									QWdogReiq = 2
 									QWdogreiqTimer = 7
@@ -324,13 +344,13 @@ if $ARGS[0] = 'rima':
 					end
 
 					act 'Take your panties off in front of Rimma.':
-						cls
+						*clr & cla
 						minut += 5
 						gs 'stat'
 						'You remove your panties in front Rimma and noticed how her cheeks glowed red, and her breathing quickened.'
 
 						act 'Do you like me?':
-							cls
+							*clr & cla
 
 							if RimmaSex = 0:RimmaSex = 1 & girl += 1
 
@@ -355,7 +375,7 @@ if $ARGS[0] = 'rima':
 							gs 'stat'
 
 							act 'leave the dressing room':
-								cls
+								*clr & cla
 								minut += 5
 								QWdogReiq = 2
 								QWdogreiqTimer = 7

locations/butoilet.qsrc

@@ -6,13 +6,16 @@ $loc = $CURLOC
 $metkaM = $ARGS[0]
 $locM = $CURLOC
 $location_type = 'bathroom'
+$menu_loc = 'butoilet'
+$menu_arg = ''
+menu_off = 0
 minut += 5
-clr
+*clr & cla
 gs 'stat'
-	gs 'themes', 'indoors'
+gs 'themes', 'indoors'
 '<center><b><font color="maroon">WC</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
-''
+*nl
 
 act 'Leave the toilet':gt 'burger', 'start'