Browse Source

[added] menu seeding for the letter D

julzor 5 years ago
parent
commit
0e349dea24

+ 1 - 0
locations/DanceWhore1.qsrc

@@ -1,5 +1,6 @@
 # DanceWhore1
 
+menu_off = 1
 minut += 5
 gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(24,40)
 gs 'boyStat', $npclastgenerated

+ 1 - 0
locations/DanceWhore2.qsrc

@@ -1,5 +1,6 @@
 # DanceWhore2
 
+menu_off = 1
 minut += 5
 gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,23)
 gs 'boyStat', $npclastgenerated

+ 1 - 0
locations/DanceWhore3.qsrc

@@ -1,5 +1,6 @@
 # DanceWhore3
 
+menu_off = 1
 minut += 5
 gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
 gs 'boyStat', $npclastgenerated

+ 1 - 0
locations/DanceWhore4.qsrc

@@ -1,5 +1,6 @@
 # DanceWhore4
 
+menu_off = 1
 minut += 5
 gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
 gs 'boyStat', $npclastgenerated

+ 2 - 0
locations/DanceWhore5.qsrc

@@ -1,4 +1,6 @@
 # DanceWhore5
+
+menu_off = 1
 minut += 5
 gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
 gs 'boyStat', $npclastgenerated

+ 1 - 0
locations/DanceWhore6.qsrc

@@ -1,5 +1,6 @@
 # DanceWhore6
 
+menu_off = 1
 minut += 5
 gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
 gs 'boyStat', $npclastgenerated

+ 1 - 0
locations/DanceWhore7.qsrc

@@ -1,5 +1,6 @@
 # DanceWhore7
 
+menu_off = 1
 minut += 5
 gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
 $npc_thdick[$npclastgenerated] = 'massive'

+ 1 - 1
locations/DanceWhore8.qsrc

@@ -1,7 +1,7 @@
 # DanceWhore8
 
+menu_off = 1
 minut += 5
-
 gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
 $npc_thdick[$npclastgenerated] = 'massive'
 npc_dick[$npclastgenerated] = 24

+ 12 - 6
locations/dachain.qsrc

@@ -1,9 +1,9 @@
 # dachain
-clr
+
 $loc = 'dachain'
-$metka = ''
 $locM = 'dachain'
-$metkaM = ''
+$menu_loc = 'dachain'
+
 gs 'stat'
 gs 'themes', 'indoors'
 
@@ -11,8 +11,10 @@ if $args[0] = '':
 	$location_type = 'private'
 	$metka = ''
 	$metkaM = ''
+	$menu_arg = ''
+	menu_off = 0
 	killvar '$locclass'
-	cls
+	*clr & cla
 	gs 'stat'
 	'<center><b><font color="maroon">Cottage</font></b></center>'
 	if home_owned[3] = 2:
@@ -49,8 +51,10 @@ if $args[0] = 'dachakit':
 	$location_type = 'private'
 	$metka = 'dachakit'
 	$metkaM = 'dachakit'
+	$menu_arg = 'dachakit'
+	menu_off = 0
 	$locclass = 'kitr'
-	cls
+	*clr & cla
 	gs 'stat'
 	'<center><b><font color="maroon">Cottage Kitchen</font></b></center>'
 	if home_owned[3] = 2:
@@ -107,9 +111,11 @@ end
 if $args[0] = 'dachavann':
 	$metka = 'dachavann'
 	$metkaM = 'dachavann'
+	$menu_arg = 'dachavann'
+	menu_off = 0
 	$location_type = 'bathroom'
 	killvar '$locclass'
-	cls
+	*clr & cla
 	gs 'stat'
 	'<center><b><font color="maroon">Cottage Bathroom</font></b></center>'
 	if home_owned[3] = 2:

+ 13 - 8
locations/dachamy.qsrc

@@ -1,19 +1,28 @@
 # dachamy
-$metka = $ARGS[0]
-$loc = $CURLOC
+
+*clr & cla
+$metka = ''
+$loc = $curloc
+$menu_loc = 'dachamy'
+$menu_arg = ''
+menu_off = 0
+
 $location_type = 'public_outdoors'
-clr
+
 gs 'stat'
 '<center><h2>Suburban Cooperative</h2></center>'
 '<center><h4>Cottage</h4></center>'
 '<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachamy.jpg"></center>'
 'Your favorite summer residence.'
 
+act 'Exit the alley':minut += 15 & gt 'dachi'
+
 act 'Go into the house':gt 'dachain'
 
 if hour < 23 and hour >= 7:
 	act 'Inspect garden':
 		cla
+		menu_off = 1
 		minut += 5
 
 		if etoexhib < 16:gt 'dachaogr0'
@@ -21,11 +30,7 @@ if hour < 23 and hour >= 7:
 	end
 end
 
-if pcs_horny >= 90:
-	act 'Masturbate in the garden':gt 'ugol1','start'
-end
-
-act 'Exit the alley':minut += 15 & gt 'dachi'
+if pcs_horny >= 90: act 'Masturbate in the garden': gt 'ugol1','start'
 
 --- dachamy ---------------------------------
 

+ 6 - 6
locations/dachaogr.qsrc

@@ -1,6 +1,9 @@
 # dachaogr
-$metka = $ARGS[0]
-$loc = $CURLOC
+$metka = ''
+$loc = 'dachaogr'
+$menu_loc = 'dachaogr'
+$menu_arg = ''
+menu_off = 0
 $location_type = 'secluded'
 
 gs 'stat'
@@ -15,10 +18,7 @@ elseif month <= 4 or month >= 10:
 	'Not for planting season'
 end
 
-act 'Leave':
-	minut += 5
-	gt 'dachamy'
-end
+act 'Leave': minut += 5 & gt 'dachamy'
 
 --- dachaogr ---------------------------------
 

+ 7 - 8
locations/dachaogr0.qsrc

@@ -1,5 +1,7 @@
 # dachaogr0
-clr
+
+menu_off = 1
+*clr & cla
 $location_type = 'secluded'
 gs 'stat'
 gs 'themes', 'indoors'
@@ -14,7 +16,7 @@ elseif etoexhib = 11:
 elseif etoexhib >= 12 and etoexhib < 14:
 	'Workers dig up the ground and remove weeds and tree stumps.'
 elseif etoexhib = 14 and temp ! daystart:
-	cls
+	*clr & cla
 	gs 'stat'
 	'<center><b><font color="maroon">Vegetable</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/suburban/cottage/vspah.jpg"></center>'
@@ -23,7 +25,7 @@ elseif etoexhib = 14 and temp ! daystart:
 
 	act 'Pay':gt 'etoexhib', 'pos14'
 elseif etoexhib = 15 and temp ! daystart:
-	cls
+	*clr & cla
 	gs 'stat'
 	'<center><b><font color="maroon">Vegetable</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/suburban/cottage/vspah.jpg"></center>'
@@ -31,8 +33,7 @@ elseif etoexhib = 15 and temp ! daystart:
 	'The tired workers are resting in the shade.'
 
 	act 'Pay them (3,000 <b>₽</b>)':
-		cla
-		*clr
+		*clr & cla
 		money -= 3000
 		etoexhib = 16
 		gs 'stat'
@@ -41,9 +42,7 @@ elseif etoexhib = 15 and temp ! daystart:
 		act 'To lodge':minut += 15 & gt 'dachamy'
 	end
 
-	if etoexhib = 15 and pcs_horny > 30:
-		act 'Pay with your body':gt 'etoexhib', 'pos13'
-	end
+	if etoexhib = 15 and pcs_horny > 30: act 'Pay with your body':gt 'etoexhib', 'pos13'
 end
 
 act 'To lodge':minut += 15 & gt 'dachamy'

+ 10 - 4
locations/dachi.qsrc

@@ -1,8 +1,13 @@
 # dachi
-$metka = $ARGS[0]
-$loc = $CURLOC
+
+$metka = ''
+$loc = 'dachi'
+$loc = 'dachi'
+$menu_arg = ''
+menu_off = 0
+
 $location_type = 'public_outdoors'
-clr
+*clr & cla
 gs 'stat'
 '<center><h4>Suburban Cooperative</h4></center>'
 '<center><img <<$set_imgh>> src="images/locations/suburban/dachi.jpg"></center>'
@@ -15,6 +20,8 @@ end
 'At the alley entrance dug into the ground is a <a href="exec:gt ''etoexhib'', ''pos7''">column with ads</a>.'
 'At the end of the alley there is <a href="exec:gt ''etoexhib'', ''pos6''">a spring with spring water</a>.'
 
+act 'Go to the highway':minut += 15 & nroad = 5 & gt 'road'
+
 if home_owned[3] > 0:
 	'Enter <a href="exec:gt ''dachamy'', ''start''">your yard</a>.'
 	'Across the street from your cottage is another <a href="exec:gt ''etoexhib'', ''pos8''">cottage</a> almost identical to yours.'
@@ -23,7 +30,6 @@ end
 if etoexhib < 13:'You feel a slight presence of magic.'
 
 act 'Stroll through the alleys':gt 'etoexhib', 'pos2'
-act 'Exit the highway':minut += 15 & nroad = 5 & gt 'road'
 
 --- dachi ---------------------------------
 

+ 3 - 0
locations/danceGev.qsrc

@@ -1,4 +1,7 @@
 # danceGev
+
+menu_off = 1
+
 if lesbian > 0:
 	pcs_horny += 5
 elseif lesbian = 0:

+ 6 - 7
locations/danceclass.qsrc

@@ -1,5 +1,7 @@
 # danceclass
-clr
+
+menu_off = 1
+*clr & cla
 minut += 5
 gs 'stat'
 gs 'themes', 'indoors'
@@ -8,8 +10,7 @@ gs 'themes', 'indoors'
 'A big, open room with good lighting and huge mirrors, perfect for improving your dance skills.'
 
 act 'Modern dance class (0:30)':
-	cla
-	*clr
+	*clr & cla
 	timemult = 2
 	loopcount = 1
 	:timeloop
@@ -28,8 +29,7 @@ act 'Modern dance class (0:30)':
 end
 
 act 'Burlesque class (0:30)':
-	cla
-	*clr
+	*clr & cla
 	gs 'exercise', 'tier2', 0, 'agil_exp', 'stren_exp', 'danc_exp', 'dancero_exp'
 	abonement -= 1
 	if pcs_inhib < 60:inhib_exp += rand(1,2)
@@ -50,8 +50,7 @@ end
 
 if pcs_stren >=40 or needstrength = 0:
 	act 'Pole dance class (0:30)':
-		cla
-		*clr
+		*clr & cla
 		gs 'exercise', 'tier2', 0, 'agil_exp', 'stren_exp', 'dancpol_exp'
 		abonement -= 1
 		if pcs_inhib < 60:inhib_exp += rand(1,2)

+ 3 - 0
locations/dangeon.qsrc

@@ -1,4 +1,7 @@
 # dangeon
+
+menu_off = 1
+
 $dundincif = {
 	cls
 	gs 'stat'

+ 8 - 6
locations/dibodi.qsrc

@@ -1,7 +1,9 @@
 # dibodi
 
+menu_off = 1
+
 if $ARGS[0] = 'os1':
-	cls
+	*clr & cla
 	gs'stat'
     '<center><img <<$set_imgh>> src="images/locations/oldtown/artstudio/downud1.jpg"></center>'
     'You are taken back by all the naked people, with their bodies only covered by body paint.'
@@ -17,7 +19,7 @@ if $ARGS[0] = 'os1':
 end
 
 if $ARGS[0] = 'bodiart':
-	cls
+	*clr & cla
 	cla
 	gs'stat'
 	bodimodel = 1
@@ -31,7 +33,7 @@ if $ARGS[0] = 'bodiart':
 end
 
 if $ARGS[0] = 'bodiart1':
-	cls
+	*clr & cla
 	gs'stat'
 	bodimodel = 1
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/artstudio/downud1.jpg"></center>'
@@ -52,7 +54,7 @@ if $ARGS[0] = 'bodiart1':
 end
 
 if $ARGS[0] = 'sgtusa':
-	cls
+	*clr & cla
 	gs'stat'
 	tusa = 1
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
@@ -62,7 +64,7 @@ if $ARGS[0] = 'sgtusa':
 end
 
 if $ARGS[0] = 'sotusa':
-    cls
+    *clr & cla
 	cla
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
@@ -75,7 +77,7 @@ if $ARGS[0] = 'sotusa':
 end
 
 if $ARGS[0] = 'sptusa':
-    cls
+    *clr & cla
 	cla
 	gs'stat'
 	arts = 1

+ 9 - 4
locations/dima.qsrc

@@ -1,15 +1,20 @@
 # dima
+
+$loc = 'dima'
+$metka = 'start'
+$menu_loc = 'dima'
+$menu_arg = ''
+menu_off = 0
+
 if $ARGS[0] = 'start':
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Entrance to Dimas house</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdhr.jpg"></center>'
 
-	act 'Leave':
+	act 'Leave': 
 		cla
 		minut += 5
 		gt 'street'

+ 52 - 50
locations/dimaEv.qsrc

@@ -1,6 +1,8 @@
 # dimaEv
 !!files that can be deleted dima, dimagohome2, dimahome, dimkawarning, dimaev, dimaRudeEV
 
+menu_off = 1
+
 if $ARGS[0] = 'after_school':
 	if dimarudorient = 1: gt 'dimaHome', 'dimkaroom'
 	gs 'stat'
@@ -13,7 +15,7 @@ if $ARGS[0] = 'after_school':
 	elseif fedorKozlovQW >= 10 or fedorKozlovQW = -15:
 		'Fedor walks up to you. "Hey <<$pcs_nickname>>, shall we go?" Dimka turns to Fedor. "Fedor, what are you doing here? <<$pcs_firstname>> is my girl." Fedor raises his eyebrow. "What are you talking about? <<$pcs_firstname>> is with me." Dimka grins at Fedor. "So let''s ask her who she is dating?". You stand there fidgeting nervously'
 		act 'Sorry Fedor, but I''m with Dimka':
-			cls
+			*clr & cla
 			minut += 5
 			fedorKozlovQW = -1
 			gs 'stat'
@@ -23,7 +25,7 @@ if $ARGS[0] = 'after_school':
 			act 'Go to Dimka''s room':gt 'dimaHome', 'dimkaroom'
 		end
 		act 'I''m with Fedor':
-			cls
+			*clr & cla
 			minut += 5
 			gs 'stat'
 			'<center><b><h4><font color="maroon"><<"Dimka Nosov">></font></h4></b></center>'
@@ -60,7 +62,7 @@ if $ARGS[0] = 'after_school':
 		exit
 	end
 	act 'Go with Dimka':
-		cls
+		*clr & cla
 		minut += 15
 		gs 'stat'
 		'<center><h4><font color="maroon">Dimka''s parent''s house</font></h4></center>'
@@ -72,7 +74,7 @@ if $ARGS[0] = 'after_school':
 end
 
 if $ARGS[0] = 'drugged':
-	cls
+	*clr & cla
 	minut += 15
 	narkday = daystart
 	pcs_health = pcs_vital * 10 + pcs_stren * 5
@@ -85,14 +87,14 @@ if $ARGS[0] = 'drugged':
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/1.jpg"></center>'
 	'You take several drinks as you talk with Dimka. Again he doesn''t seem to want to chat, and appear to be waiting for something. Then you start to feel funny. For a moment, you just feel numb, then you feel yourself get aroused, the heat coming from your pussy as it soaks itself, you gasp, it is almost too much to take, you desperately need someone to fuck you. "Oh, fuck". You don''t think this is normal, he must have laced it with something. You blink a few times trying to clear your head, but soon your thoughts grow murky.'
 	act 'Continue':
-		cls
+		*clr & cla
 		pcs_dom += 1
 		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/pre.jpg"></center>'
 		'You hear Dimka chuckling, it takes and eternity to turn your head and center your eyes at him. You see him looking intently at you, examining whatever have affected your brain. "Well, it looks like the drugs have taken full effect on you already." He stands up and unbuttons his pants and pulls out his dick, giving it a couple of strokes to get it hard for you. "Come here, baby, and suck on this." You stand there looking stupidity to his cock. He then sighed and taping it say "Come on slut, here, take your bone."'
 		act 'Take by mouth':
-			cls
+			*clr & cla
 			bja += 1
 			if maxdra = 0:maxdra = 1
 			if maxdra = 6:maxdra = 5
@@ -105,7 +107,7 @@ if $ARGS[0] = 'drugged':
 			gs 'stat'
 			if dimadalrand = 0:
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 12
 					gs 'cum_manage'
 					swallow += 1
@@ -141,7 +143,7 @@ if $ARGS[0] = 'drugged':
 				end
 			elseif dimadalrand = 1:
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 11
 					gs 'cum_manage'
 					facial += 1
@@ -178,7 +180,7 @@ if $ARGS[0] = 'drugged':
 				end
 			elseif dimadalrand = 2:
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 12
 					gs 'cum_manage'
 					swallow += 1
@@ -222,13 +224,13 @@ if $ARGS[0] = 'drugged':
 				end
 			elseif dimadalrand = 3:
 				act 'Further':
-					cls
+					*clr & cla
 					if maxdra = 3:maxdra = 4
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/sit.jpg"></center>'
 					'Your sense of time seems altered, minutes?, hours?, it doesn''t seem to be important, you just keep sucking his cock as it is the only thing in your little world. Dimka takes his dick out of your mouth and makes you get on the bed. He straddles your chest, making you suffocate under the added weight. Then, put his cock in your face and begin giving you little dick slaps. "Come on slut, suck like a porn star". You start to lick his balls while Dimka masturbates in your face.'
 					act 'Further':
-						cls
+						*clr & cla
 						spafinloc = 11
 						gs 'cum_manage'
 						facial += 1
@@ -265,7 +267,7 @@ if $ARGS[0] = 'drugged':
 				end
 			elseif dimadalrand = 4:
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'boyStat', 'A1'
 					silavag = 1
 					dick = 16
@@ -307,7 +309,7 @@ if $ARGS[0] = 'drugged':
 				end
 			elseif dimadalrand = 5:
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'boyStat', 'A1'
 					silavag = 1
 					dick = 16
@@ -346,7 +348,7 @@ if $ARGS[0] = 'drugged':
 				end
 			elseif dimadalrand = 6:
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/cum.jpg"></center>'
 					'Your sense of time seems altered, minutes?, hours?, it doesn''t seem to be important, you just keep sucking his cock as it is the only thing in your little world. He finally pulls out of your mouth. "Open your mouth bitch." You do as he says, he starts jerking off and soon is filling your mouth with his sperm, spurt after spurt filling your mouth. With the last spurt he wipes the tip of his dick off on your lips.'
@@ -383,7 +385,7 @@ if $ARGS[0] = 'drugged':
 end
 
 if $ARGS[0] = 'cocaine':
-	cls
+	*clr & cla
 	minut += 15
 	narkday = daystart
 	pcs_health = pcs_vital * 10 + pcs_stren * 5
@@ -395,14 +397,14 @@ if $ARGS[0] = 'cocaine':
 	'<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
 	'You sniff up the dose of powder. For a moment, you just feel numb, then you feel yourself get aroused, the heat coming from your pussy as it soaks itself, you gasp, it is almost too much to take, you desperately need someone to fuck you. "Oh, fuck". You don''t think this is normal, he must have laced it with something. You blink a few times trying to clear your head, but soon your thoughts grow murky.'
 	act 'continue':
-		cls
+		*clr & cla
 		pcs_dom += 1
 		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/pre.jpg"></center>'
 		'You hear Dimka chuckling, it takes and eternity to turn your head and center your eyes at him. You see him looking intently at you, examining whatever have affected your brain. "Well, it looks like the drugs have taken full effect on you already." He stands up and unbuttons his pants and pulls out his dick, giving it a couple of strokes to get it hard for you. "Come here, baby, and suck on this." You stand there looking stupidity to his cock. He then sighed and taping it say "Come on slut, here, take your bone."'
 		act 'Take by mouth':
-			cls
+			*clr & cla
 			bja += 1
 			if maxdra = 0:maxdra = 1
 			if maxdra = 6:maxdra = 5
@@ -415,7 +417,7 @@ if $ARGS[0] = 'cocaine':
 			gs 'stat'
 			if dimadalrand = 0:
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 12
 					gs 'cum_manage'
 					swallow += 1
@@ -451,7 +453,7 @@ if $ARGS[0] = 'cocaine':
 				end
 			elseif dimadalrand = 1:
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 11
 					gs 'cum_manage'
 					facial += 1
@@ -488,7 +490,7 @@ if $ARGS[0] = 'cocaine':
 				end
 			elseif dimadalrand = 2:
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 12
 					gs 'cum_manage'
 					swallow += 1
@@ -532,13 +534,13 @@ if $ARGS[0] = 'cocaine':
 				end
 			elseif dimadalrand = 3:
 				act 'Further':
-					cls
+					*clr & cla
 					if maxdra = 3:maxdra = 4
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/sit.jpg"></center>'
 					'Your sense of time seems altered, minutes?, hours?, it doesn''t seem to be important, you just keep sucking his cock as it is the only thing in your little world. Dimka takes his dick out of your mouth and makes you get on the bed. He straddles your chest, making you suffocate under the added weight. Then, put his cock in your face and begin giving you little dick slaps. "Come on slut, suck like a porn star". You start to lick his balls while Dimka masturbates in your face.'
 					act 'Further':
-						cls
+						*clr & cla
 						spafinloc = 11
 						gs 'cum_manage'
 						facial += 1
@@ -575,7 +577,7 @@ if $ARGS[0] = 'cocaine':
 				end
 			elseif dimadalrand = 4:
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'boyStat', 'A1'
 					silavag = 1
 					dick = 16
@@ -617,7 +619,7 @@ if $ARGS[0] = 'cocaine':
 				end
 			elseif dimadalrand = 5:
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'boyStat', 'A1'
 					silavag = 1
 					dick = 16
@@ -656,7 +658,7 @@ if $ARGS[0] = 'cocaine':
 				end
 			elseif dimadalrand = 6:
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/cum.jpg"></center>'
 					'Your sense of time seems altered, minutes?, hours?, it doesn''t seem to be important, you just keep sucking his cock as it is the only thing in your little world. He finally pulls out of your mouth. "Open your mouth bitch." You do as he says, he starts jerking off and soon is filling your mouth with his sperm, spurt after spurt filling your mouth. With the last spurt he wipes the tip of his dick off on your lips.'
@@ -693,12 +695,12 @@ if $ARGS[0] = 'cocaine':
 end
 
 if $ARGS[0] = 'blackmail':
-	cls
+	*clr & cla
 	gs 'stat'
 	'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/1.jpg"></center>'
 	if dimkawarn = 1:
-		cls
+		*clr & cla
 		minut += 5
 		sub += 10
 		dimkawarn = 0
@@ -714,7 +716,7 @@ if $ARGS[0] = 'blackmail':
 		'You nod your agreement and Dimka is all smiles again, as he undresses you, you can''t stop shaking in fear.'
 		act 'Continue': gt 'dimaEv', 'dimkaplays'
 	elseif dimkawarn >= 2:
-		cls
+		*clr & cla
 		minut += 5
 		dimkawarn = 0
 		gs 'pain', 4, 'cheeks', 'hit'
@@ -735,7 +737,7 @@ if $ARGS[0] = 'blackmail':
 end
 
 if $ARGS[0] = 'dimkawarns':
-	cls
+	*clr & cla
 	minut += 15
 	rape += 1
 	gs 'boyStat', 'A1'
@@ -745,7 +747,7 @@ if $ARGS[0] = 'dimkawarns':
 	gs 'pain', 3, 'vaginal', 'tear'
 	gs 'stat'
 	act 'Go home':
-		cls
+		*clr & cla
 		pee +=1
 		face_write = 1
 		'<center><img <<$set_imgh>> src="images/shared/sex/dom/blowbang4.jpg"></center>'
@@ -761,12 +763,12 @@ if $ARGS[0] = 'dimkawarns':
 end
 
 if $ARGS[0] = 'dimkaplays':
-	cls
+	*clr & cla
 	gs 'stat'
 	dimarudorient = 1
 	'Dimka takes some white powder from his desk and a small straw. "Here, sniff this." He offers with a cocky smile, "It''s really cool! Excellent for relaxing!" Knowing the blackmail he has on you, you know you don''t really have a choice. So you do as he commands.'
 	act 'Snort':
-		cls
+		*clr & cla
 		minut += 15
 		narkday = daystart
 		pcs_health = pcs_vital * 10 + pcs_stren * 5
@@ -781,7 +783,7 @@ if $ARGS[0] = 'dimkaplays':
 		act 'Continue': gt 'dimaEv', 'dimkaplays2'
 	end
 	act 'Refuse':
-		cls
+		*clr & cla
 		pcs_dom += 1
 		minut += 5
 		gs 'stat'
@@ -822,20 +824,20 @@ if $ARGS[0] = 'dimkaplays2':
 end
 
 if $ARGS[0] = '0':
-	cls
+	*clr & cla
 	gs 'pain', 2, 'armR', 'bind'
 	gs 'pain', 2, 'armL', 'bind'
 	gs 'stat'
 	'Dimka looks at you with an indifferent grin as he examines your body. He walked over to the closer and rummages in it, taking out a few things. He comes up to you and roughly pulls your hands behind your back. You hear the distinctive clicking of handcuffs and you feel the cold steel tighten on your wrists. He comes up to you from behind and shoves a metal ring that has leather straps attached to it into your mouth. He quickly buckles the belt tightly behind your head before you can attempt to spit out the ring.'
 	act 'Further':
-		cls
+		*clr & cla
 		minut += 5
 		gs 'pain', 2, 'mouth', 'stretch'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/ogag.jpg"></center>'
 		'Your mouth is being held widely open by the ring and Dimka seems a little blurry due to your eyes watering. It tastes like the ring in your mouth was dipped in lemon juice and your saliva begins streaming from your mouth. Dimka takes a moment to admire you then he takes out his iron hard <<dick>>cm <<$dick_girth>> cock and shoves it into your mouth.'
 		act 'Further':
-			cls
+			*clr & cla
 			spafinloc = 12
 			gs 'cum_manage'
 			swallow += 1
@@ -853,7 +855,7 @@ if $ARGS[0] = '0':
 end
 
 if $ARGS[0] = '1':
-	cls
+	*clr & cla
 	if maxdradrug = 1:maxdradrug = 2
 	spafinloc = 12
 	gs 'cum_manage'
@@ -869,7 +871,7 @@ if $ARGS[0] = '1':
 end
 
 if $ARGS[0] = '2':
-	cls
+	*clr & cla
 	gs 'boyStat', 'A1'
 	silavag = 1
 	dick = 16
@@ -888,7 +890,7 @@ if $ARGS[0] = '2':
 end
 
 if $ARGS[0] = '3':
-	cls
+	*clr & cla
 	gs 'boyStat', 'A1'
 	silavag = 1
 	dick = 16
@@ -903,7 +905,7 @@ if $ARGS[0] = '3':
 end
 
 if $ARGS[0] = '4':
-	cls
+	*clr & cla
 	if pcs_makeup ! 1:pcs_makeup = 0
 	pcs_throat += 5
 	minut += 15
@@ -917,7 +919,7 @@ if $ARGS[0] = '4':
 end
 
 if $ARGS[0] = '5':
-	cls
+	*clr & cla
 	spank += 1
 	minut += 15
 	sub += 5
@@ -931,7 +933,7 @@ if $ARGS[0] = '5':
 end
 
 if $ARGS[0] = '6':
-	cls
+	*clr & cla
 	if maxdradrug = 6:maxdradrug = 7
 	if pcs_makeup ! 1:pcs_makeup = 0
 	sub += 5
@@ -954,7 +956,7 @@ if $ARGS[0] = '6':
 end
 
 if $ARGS[0] = '7':
-	cls
+	*clr & cla
 	gs 'pain', 9, 'pierce', 'tongue'
 	if maxdradrug = 7:maxdradrug = 8
 	if pcs_makeup ! 1:pcs_makeup = 0
@@ -974,7 +976,7 @@ if $ARGS[0] = '7':
 end
 
 if $ARGS[0] = '8':
-	cls
+	*clr & cla
 	gs 'pain', 9, 'pierce', 'labia'
 	if pcs_makeup ! 1:pcs_makeup = 0
 	sub += 5
@@ -993,7 +995,7 @@ if $ARGS[0] = '8':
 end
 
 if $ARGS[0] = '9':
-	cls
+	*clr & cla
 	bja += 1
 	spafinloc = 12
 	gs 'cum_manage'
@@ -1012,20 +1014,20 @@ if $ARGS[0] = '9':
 end
 
 if $ARGS[0] = '10':
-	cls
+	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/1.jpg"></center>'
 	'Dimka closed the door to his room and turned to you, "Take off your clothes."'
 	'He smirks indifferently as he examines your body, then goes to the closet and rummages around in it before taking something out. He walks up to you and turns you around roughly, pulling your hands behind your back. You hear the click of handcuffs locking and you feel the cold steel on your wrists. He walks up to you and pushes a ring into your mouth before buckling the attached straps behind your head, holding it firmly in place.'
 	act 'Further':
-		cls
+		*clr & cla
 		gs 'boyStat', 'A1'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/ogag.jpg"></center>'
 		'Your mouth is held wide open by the ring-gag, Dimka apparently coated the ring with lemon juice, causing saliva to flow from your mouth, and there is no way to stop it.'
 		gs 'arousal', 'foreplay', 5, 'sub', 'humiliation'
 		gs 'stat'
 		act 'Further':
-			cls
+			*clr & cla
 			spafinloc = 12
 			gs 'cum_manage'
 			swallow += 1
@@ -1044,7 +1046,7 @@ end
 if $ARGS[0] = 'Dimka_warning':
 !!this one is if Dimka sends a warning
 	if dimkawarn = 0:
-		cls
+		*clr & cla
 		pcs_mood -= 20
 		DimkaWarnedToday = 1
 		dimkawarn += 1
@@ -1060,7 +1062,7 @@ if $ARGS[0] = 'Dimka_warning':
 	   'On the back of one of the pictures you find a note. "<<$pcs_nickname>>, come see me or the next envelope will be for your <<$npc_nickname[''A29'']>>." There is no signature.'
 	   act 'Move away':gt 'korrPar'
 	elseif dimkaWarn >= 1:
-		cls
+		*clr & cla
 		pcs_mood -= 20
 		DimkaWarnedToday = 1
 		dimkawarn += 1

+ 60 - 15
locations/dimaHome.qsrc

@@ -1,6 +1,10 @@
 # dimaHome
 
+$menu_loc = 'dimaHome'
+
 if $ARGS[0] = 'home':
+	$menu_arg = 'home'
+	menu_off = 0
 	'<center><img <<$set_imgh>>	 src="images/locations/pavlovsk/resident/dimkahome/house.jpg"></center>'
 	'You walk up the path from the street to a relatively large, nice looking two-story house. You notice balconies on the front and side of the home. You exhale a deep breathe as you wonder what it would be like to live in such a nice place. You approach the front door and knock.'
 	if SchoolAtestat = 1 and kanikuli > 0:
@@ -33,9 +37,11 @@ if $ARGS[0] = 'home':
 end
 
 if $ARGS[0] = 'hallway':
+	$menu_arg = 'hallway'
+	menu_off = 0
 	$location_type = 'indoors'
 	killvar '$locclass'
-	cls
+	*clr & cla
 	minut += 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Entrance hall</font></h4></center>'
@@ -51,7 +57,9 @@ if $ARGS[0] = 'hallway':
 end
 
 if $ARGS[0] = 'bathroom':
-	cls
+	$menu_arg = 'bathroom'
+	menu_off = 0
+	*clr & cla
 	minut += 1
 	$metka = 'bathroom'
 	$loc = 'dimaHome'
@@ -68,6 +76,8 @@ if $ARGS[0] = 'bathroom':
 end
 
 if $ARGS[0] = 'livingroom':
+	$menu_arg = 'livingroom'
+	menu_off = 0
 	*clr & cla
 	$locclass = 'livingr'
 	minut += 1
@@ -79,6 +89,8 @@ if $ARGS[0] = 'livingroom':
 end
 
 if $ARGS[0] = 'kitchen':
+	$menu_arg = 'kitchen'
+	menu_off = 0
 	*clr & cla
 	minut += 1
 	$locclass = 'kitr'
@@ -99,7 +111,9 @@ if $ARGS[0] = 'kitchen':
 end
 
 if $ARGS[0] = 'study':
-	cls
+	$menu_arg = 'study'
+	menu_off = 0
+	*clr & cla
 	minut += 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -127,9 +141,11 @@ if $ARGS[0] = 'study':
 end
 
 if $ARGS[0] = 'hallway2':
+	$menu_arg = 'hallway2'
+	menu_off = 0
 	$location_type = 'indoors'
 	killvar '$locclass'
-	cls
+	*clr & cla
 	minut += 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Entrance hall</font></h4></center>'
@@ -145,7 +161,9 @@ if $ARGS[0] = 'hallway2':
 end
 
 if $ARGS[0] = 'bathroom2':
-	cls
+	$menu_arg = 'bathroom2'
+	menu_off = 0
+	*clr & cla
 	minut += 1
 	$metka = 'bathroom'
 	$loc = 'dimaHome'
@@ -161,7 +179,8 @@ if $ARGS[0] = 'bathroom2':
 	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 
 	act 'Take a shower (0:15)':
-		cls
+		*clr & cla
+		menu_off = 1
 		minut += 15
 		!!dynamic $showerdin
 		gs 'stat'
@@ -173,7 +192,8 @@ if $ARGS[0] = 'bathroom2':
 	end
 
 	act 'Soak in the bath (0:30)':
-		cls
+		*clr & cla
+		menu_off = 1
 		minut += 30
 		pcs_sweat = 7 + rand(0,4)
 		pcs_mood += 20
@@ -218,19 +238,23 @@ if $ARGS[0] = 'bathroom2':
 end
 
 if $ARGS[0] = 'dimkaroom':
-	cls
+	*clr & cla
+	$menu_arg = 'dimkaroom'
+	menu_off = 0
 	minut += 1
 	DimaBeHomeOnce = 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
 	'<center><img  src="images/locations/pavlovsk/resident/dimkahome/dimkaroom.jpg"></center>'
 	if dimaFilm = 1:
+	menu_off = 1
 		gt 'dimaEv','blackmail'
 	else
 		'Dimka''s room is surprisingly clean and organized for a boy, you think. The decorations are fairly tasteful and every object has an air of quality about it. Along one wall next to the bed is a wardrobe with mirrored doors, a small zebra pattern love seat sits along a wall near the bed. Next to the love seat is a mini fridge and just above that on a shelf is a high-end stereo system. There is also a fancy, masculine desk with a top-of-the-line computer setup on it and a laptop lying nearby as well. You can''t help but wonder how expensive it all is. Sitting at the desk is Dimka, he turns to face you as you enter the room.'
 		act 'Talk to Dimka':gt 'dimaHome','dimka_chat'
 		act 'Look around':
 			*clr
+			menu_off = 1
 			minut += 10
 			'<center><b><font color = maroon>Dimka''s room</font></b></center>'
 			'<center><img  src="images/locations/pavlovsk/resident/dimkahome/dimkaroom.jpg"></center>'
@@ -246,6 +270,8 @@ if $ARGS[0] = 'dimkaroom':
 end
 
 if $ARGS[0] = 'dimkaparents':
+	$menu_arg = 'dimkaparents'
+	menu_off = 0
 	*clr & cla
 	minut += 1
 	$locclass = 'bedr'
@@ -254,7 +280,8 @@ if $ARGS[0] = 'dimkaparents':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/parentsroom.jpg"></center>'
 	'You enter the master bedroom and it just as clean and neat as the rest of the home. The furniture is all highly polished wood. You feel almost overwhelmed by how beautifully the room is decorated.'
 	act 'Look around':
-		*clr
+		*clr & cla
+		menu_off = 1
 		minut += 10
 		'<center><b><font color = maroon>Dimka''s parent''s room</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/parentsroom.jpg"></center>'
@@ -262,12 +289,13 @@ if $ARGS[0] = 'dimkaparents':
 		act 'Leave':gt 'dimaHome','hallway2'
 	end
 	act 'Go into master bathroom':
-		cls
+		*clr & cla
 		minut += 1
 		$metka = 'bathroom'
 		$loc = 'dimaHome'
 		$metkaM = 'bathroom'
 		$locM = 'dimaHome'
+		menu_off = 1
 		killvar '$locclass'
 		gs 'stat'
 		$location_type = 'bathroom'
@@ -278,7 +306,7 @@ if $ARGS[0] = 'dimkaparents':
 		*nl
 		if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 		act 'Take a shower':
-			cls
+			*clr & cla
 			minut += 10
 			dynamic $showerdin
 			gs 'stat'
@@ -291,7 +319,7 @@ if $ARGS[0] = 'dimkaparents':
 			end
 		end
 		act 'Take a bath':
-			cls
+			*clr & cla
 			minut += 20
 			dynamic $bath
 			gs 'stat'
@@ -314,6 +342,8 @@ end
 
 if $ARGS[0] = 'guest':
 	*clr & cla
+	$menu_arg = 'guest'
+	menu_off = 0
 	minut += 1
 	$locclass = 'bedr'
 	gs 'stat'
@@ -322,6 +352,7 @@ if $ARGS[0] = 'guest':
 	'You enter the guest bedroom and it just as clean and neat as the rest of the home. The furniture is all highly polished wood. You feel almost overwhelmed by how beautifully the room is decorated.'
 	act 'Look around':
 		*clr & cla
+		menu_off = 1
 		minut += 10
 		'<center><h4><font color="maroon">Guest Room</font></h4></center>'
 		'<center><img  src="images/locations/pavlovsk/resident/dimkahome/guestroom.jpg"></center>'
@@ -333,6 +364,8 @@ end
 
 if $ARGS[0] = 'basement':
 	*clr & cla
+	$menu_arg = 'basement'
+	menu_off = 0
 	minut += 1
 	'<center><h4><font color="maroon">Basement</font></h4></center>'
 	'<center><img  src="images/locations/pavlovsk/resident/dimkahome/basement.jpg"></center>'
@@ -340,6 +373,7 @@ if $ARGS[0] = 'basement':
 	act 'Go back upstairs': gt 'dimaHome','hallway'
 	act 'Try the door':
 		*clr & cla
+		menu_off = 1
 		minut += 1
 		'<center><h4><font color="maroon">Basement</font></h4></center>'
 		'<center><img  src="images/locations/pavlovsk/resident/dimkahome/basement.jpg"></center>'
@@ -350,6 +384,7 @@ end
 
 if $ARGS[0] = 'kitchen1':
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	'<center><b><font color = maroon>Kitchen</font></b></center>'
@@ -361,6 +396,7 @@ if $ARGS[0] = 'kitchen1':
 	'Uncertain how to react she replies back,"O-Oh, hello, I''m Olya and am Dimka''s mother. Please take a seat, let me make some tea."'
 	act 'Have a seat':
 		*clr & cla
+		menu_off = 1
 		minut += 1
 		gs 'stat'
 		'<center><b><font color = maroon>Kitchen</font></b></center>'
@@ -386,6 +422,7 @@ end
 
 if $ARGS[0] = 'kitchen2':
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	'<center><b><font color = maroon>Kitchen</font></b></center>'
@@ -425,7 +462,8 @@ if $ARGS[0] = 'kitchen2':
 end
 
 if $ARGS[0] = 'study1':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -433,7 +471,7 @@ if $ARGS[0] = 'study1':
 	'Noticing you, he stops and looks towards you, "Hello <<$pcs_nickname>> What can I help you with?"'
 	'You stumble a little as you''re surprised that the man knows your name, as you''ve never met him before in your life.'
 	act 'How do you know my name?':
-		cls
+		*clr & cla
 		minut += 1
 		gs 'stat'
 		'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -442,7 +480,7 @@ if $ARGS[0] = 'study1':
 		'The man begins to laugh, "Sorry about that but my son has been talking about this wonderful girl he''s met so as soon I noticed you, I just assumed he was talking about you."'
 		'You''re barely able to notice it but you''re blushing by his comment, "T-Thank you for the compliment."'
 		act 'Dimka has mentioned me?':
-			cls
+			*clr & cla
 			minut += 1
 			gs 'stat'
 			'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -458,6 +496,7 @@ end
 
 if $ARGS[0] = 'study2':
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -481,6 +520,7 @@ end
 
 if $ARGS[0] = 'study3':
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -549,6 +589,7 @@ end
 
 if $ARGS[0] = 'study4':
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -571,6 +612,7 @@ end
 
 if $ARGS[0] = 'dimka_chat':
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	if dimaFilm = 1: gt 'dimaEv','blackmail'
@@ -959,6 +1001,7 @@ end
 if $ARGS[0] = 'dimka_makeout':
 	cla
 	*clr
+	menu_off = 1
 	'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
 	'<center><img src="images/characters/pavlovsk/school/boy/dimka/sex/home/kiss1.jpg"></center>'
 	'He wraps his arms around your neck and pulls you in close and soon the two of you are kissing passionately. The kisses are full of eager lust and urgent need. You feel yourself getting more and more aroused. Then he starts pulling your clothes off.'
@@ -1021,6 +1064,7 @@ end
 if $ARGS[0] = 'dimka_makeout2':
 	cla
 	*clr
+	menu_off = 1
 	'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
 	'<center><img src="images/characters/pavlovsk/school/boy/dimka/sex/home/kiss1.jpg"></center>'
 	'He wraps his arms around your neck and pulls you in close and soon the two of you are kissing passionately. Dimka smothers your mouth with his, kisses full of eager lust and urgent need. You feel yourself getting progressively aroused as a heat builds inside you. Dimka begins pulling at your clothes, attempting to remove them.'
@@ -1051,6 +1095,7 @@ end
 if $ARGS[0] = 'dimka_knees':
 	cla
 	*clr
+	menu_off = 1
 	gs 'clothing', 'strip'
 	'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
 	'<center><img src="images/characters/pavlovsk/school/boy/dimka/sex/home/kiss2.jpg"></center>'

+ 2 - 0
locations/dimaRevenge.qsrc

@@ -1,5 +1,7 @@
 # dimaRevenge
 
+menu_off = 1
+
 !! dimaRevChoice = stores the option selected from bathroom scene.
 !! ARGS[0] - day
 !! $ARGS[1] - time of day i.e. morning

+ 17 - 8
locations/dinBoroda.qsrc

@@ -1,5 +1,6 @@
 # dinBoroda
 $borodachNo = {
+	menu_off = 1
 	act 'I''ve had enough':
 		cla
 		minut += 15
@@ -12,6 +13,7 @@ $borodachNo = {
 }
 
 $borodachNo2 = {
+	menu_off = 1
 	act 'I have to go now':
 		cla
 		minut += 15
@@ -23,6 +25,7 @@ $borodachNo2 = {
 	end
 }
 $borodachDrink = {
+	menu_off = 1
 	act 'Another drink':
 		cla
 		minut += 15
@@ -35,6 +38,7 @@ $borodachDrink = {
 }
 
 $borodachSex = {
+	menu_off = 1
 	act 'Relax':
 		cla
 
@@ -46,7 +50,7 @@ $borodachSex = {
 		gs 'stat'
 		
 		act 'Lie down on the sofa':
-			cls
+			*clr & cla
 			gs 'stat'
 			borodachSexDay = daystart
 			pose = 0
@@ -66,6 +70,7 @@ $borodachSex = {
 }
 
 $ohrhj = {
+	menu_off = 1
 	act 'Masturbate him':
 		cla
 		'You start stroking his cock with your delicate hands. Quickly Sasha groans, "I can''t hold on much longer."'
@@ -80,8 +85,9 @@ $ohrhj = {
 }
 
 $ohrhjcum = {
+	menu_off = 1
 	act 'Masturbate him more':
-		cls
+		*clr & cla
 		borodachSexDay = daystart
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/hjcum.jpg"></center>'
@@ -95,8 +101,9 @@ $ohrhjcum = {
 }
 
 $ohrbj = {
+	menu_off = 1
 	act 'Suck him':
-		cls
+		*clr & cla
 		picrand = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/bj<<picrand>>.jpg"></center>'
 
@@ -111,10 +118,11 @@ $ohrbj = {
 }
 
 $ohrbjcum = {
+	menu_off = 1
 	act 'Suck harder':
-		cls
+		*clr & cla
 		spafinloc = 12
-gs 'cum_manage'
+		gs 'cum_manage'
 		gs 'stat'
 		picrand = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/bjcum<<picrand>>.jpg"></center>'
@@ -124,7 +132,7 @@ gs 'cum_manage'
 		gs 'stat'
 
 		act 'Swallow sperm':
-			cls
+			*clr & cla
 			borodachSexDay = daystart
 			gs 'stat'
 			picrand = rand(1, 3)
@@ -139,7 +147,7 @@ gs 'cum_manage'
 		end
 
 		act 'Spit it out':
-			cls
+			*clr & cla
 			borodachSexDay = daystart
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/spit.jpg"></center>'
@@ -155,8 +163,9 @@ gs 'cum_manage'
 }
 
 $ohrsex = {
+	menu_off = 1
 	act 'Sex':
-		cls
+		*clr & cla
 		gs 'stat'
 		borodachSexDay = daystart
 		pose = 0

+ 37 - 23
locations/dinParty.qsrc

@@ -2,12 +2,13 @@
 
 !A random event in the toilet
 if $ARGS[0] = 'party_toilet_event':
+	menu_off = 1
 	evt = rand(1,8)
 	if toiletEvent_Girls = daystart:evt += 1
 	if toiletEvent_Rex = daystart:evt += 1
 	if toiletEvent_Sis = daystart:evt += 1
 	if toiletEvent_SisBoy = daystart:evt = 1
-	cls
+	*clr & cla
 	minut += 5
 	gs'stat'
 	if evt = 1:
@@ -26,7 +27,7 @@ if $ARGS[0] = 'party_toilet_event':
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_1.jpg"></center>'
 		'You go into the bathroom, only to find Rex standing in there completely naked with a raging hard on.'
 		act 'Help':
-			cls
+			*clr & cla
 			toiletEvent_Rex = daystart
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_2.jpg"></center>'
@@ -36,7 +37,7 @@ if $ARGS[0] = 'party_toilet_event':
 			gs 'stat'
 			
 			act 'Masturbate':
-				cls
+				*clr & cla
 				gs'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_' + rand(3,4) + '.jpg"></center>'
 				'Breaking the kiss you put your full attention on jerking Rex off.'
@@ -45,7 +46,7 @@ if $ARGS[0] = 'party_toilet_event':
 				gs 'stat'
 				
 				act 'Cum':
-					cls
+					*clr & cla
 					minut += 5
 					gs 'boyStat', 'A57'
 					spafinloc = 15
@@ -61,7 +62,7 @@ if $ARGS[0] = 'party_toilet_event':
 				end
 			end
 			act 'Suck':
-				cls
+				*clr & cla
 				if reksMeet = 1:bja += 1
 				gs 'boyStat', 'A57'
 				gs'stat'
@@ -73,7 +74,7 @@ if $ARGS[0] = 'party_toilet_event':
 				gs 'stat'
 			
 				act 'Cum':
-					cls
+					*clr & cla
 					minut += 5
 					gs 'boyStat', 'A57'
 					spafinloc = 12
@@ -103,7 +104,7 @@ if $ARGS[0] = 'party_toilet_event':
 		'Coming into the bathroom you find your sister Anna sitting on the toilet, you notice cum on her face.'
 		'When she see''s you, she smiles, then opens up her mouth and sticks out her tongue, showing her tongue completely coated in cum.'
 		act 'Lick':
-			cls
+			*clr & cla
 			toiletEvent_Sis = daystart
 			minut += 5
 			gs 'boyStat', 'A56'
@@ -129,7 +130,7 @@ if $ARGS[0] = 'party_toilet_event':
 		'You just opened the door and saw Lena and Ira kissing, while Ira sat on the toilet. Lena pushes Ira''s legs apart and then breaks the kiss, lowering her facshe begins to lick her pussy, while Ira is still sitting on the toilet.'
 		'"Ahaha, Lena, your such a bitch sometimes and that''s why I love you." Moaned Ira.'
 		act 'Watch':
-			cls
+			*clr & cla
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_2.jpg"></center>'
 			'A few moments later they both get up and strip naked, Lena sits Ira on the edge of the sink. Lena drops back to her knees while Ira spreads her legs wide, giving her friend easy access. Lena starts licking her friends pussy at once, Ira closes her eyes and moans softly at her friends attention.'
@@ -138,7 +139,7 @@ if $ARGS[0] = 'party_toilet_event':
 			gs 'stat'
 			
 			act 'Watch':
-				cls
+				*clr & cla
 				gs'stat'
 				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_3.mp4"></video></center>'
 				'Ira moans louder, her breathe coming quicker, she grabs Lena''s head and pushes it against her crotch as she grinds herself against her friends face. Her body begins to tremble as she lets out a finally load moan of pleasure as she orgasms, coating her friends face with her pussy juices.'
@@ -147,7 +148,7 @@ if $ARGS[0] = 'party_toilet_event':
 				gs 'stat'
 			
 				act 'Go in':
-					cls
+					*clr & cla
 					minut += 5
 					gs'stat'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_4.jpg"></center>'
@@ -156,7 +157,7 @@ if $ARGS[0] = 'party_toilet_event':
 					'"Yes, I just wanted to tidy myself up." you said with a slight blush.'
 					'Lena came up to you and leaned in close as she whispered in your ear: "I know, liked watching, what we was doing. Stay with us, and you''d like it even more."'
 					act 'Stay':
-						cls
+						*clr & cla
 						gs'stat'
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_5.jpg"></center>'
 						'Looking at the naked girls you bite your lower lip as your eyes roam over their bodies with a lustful look. Ira and Lena start taking your clothes off as they start kissing you all over.'
@@ -166,7 +167,7 @@ if $ARGS[0] = 'party_toilet_event':
 						gs 'stat'
 			
 						act 'Enjoy':
-							cls
+							*clr & cla
 							pcs_mood = 100
 							gs'stat'
 							'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_6.mp4"></video></center>'
@@ -178,7 +179,7 @@ if $ARGS[0] = 'party_toilet_event':
 							gs 'stat'
 			
 							act 'Chat':
-								cls
+								*clr & cla
 								minut += 5
 								gs'stat'
 								'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_7.mp4"></video></center>'
@@ -221,6 +222,7 @@ end
 if $ARGS[0] = 'toilet_mast':
 	cla
 	*clr
+	menu_off = 1
 	if pcs_inhib < 30:inhib_exp += rand(1,3)
 	gs'stat'
 	i = rand(1,3)
@@ -240,6 +242,7 @@ end
 if $ARGS[0] = 'dj':
 	cla
 	*clr
+	menu_off = 1
 	minut += 5
 	dj_beer =1
 	gs'stat'
@@ -251,6 +254,7 @@ end
 if $ARGS[0] = 'dj_beer':
 	cla
 	*clr
+	menu_off = 1
 	minut += 5
 	dj_thank =1
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
@@ -264,6 +268,7 @@ end
 if $ARGS[0] = 'dj_thank':
 	cla
 	*clr
+	menu_off = 1
 	minut += 5
 	dj_bad =1
 	instrmusic_exp += rand(0,2) 
@@ -277,6 +282,7 @@ end
 if $ARGS[0] = 'dj_boobs':
 	cla
 	*clr
+	menu_off = 1
 	minut += 5
 	dj_boobs = 1
 	gs'stat'
@@ -290,6 +296,7 @@ end
 if $ARGS[0] = 'dj_cock':
 	cla
 	*clr
+	menu_off = 1
 	minut += 5
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_3.jpg"></center>'
@@ -302,6 +309,7 @@ end
 if $ARGS[0] = 'dj_suck':
 	cla
 	*clr
+	menu_off = 1
 	minut += 5
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_4.jpg"></center>'
@@ -364,7 +372,8 @@ end
 
 
 if $ARGS[0] = 'boys_swalow':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	swallow += 1
 	i = 5
@@ -385,7 +394,8 @@ if $ARGS[0] = 'boys_swalow':
 end
 
 if $ARGS[0] = 'boys_spit':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	i = 5
 	:dinPartySpitloop
@@ -406,7 +416,8 @@ if $ARGS[0] = 'boys_spit':
 end
 
 if $ARGS[0] = 'rex_talk':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	rex_talk += 1
 	gs'stat'	
@@ -418,7 +429,8 @@ if $ARGS[0] = 'rex_talk':
 end
 
 if $ARGS[0] = 'rex_hug':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	if pcs_inhib < 40:inhib_exp += rand(1,2)
 	gs'stat'
@@ -430,7 +442,7 @@ if $ARGS[0] = 'rex_hug':
 		'You grab his neck and audible groan completely given into his affections.'
 		'You are flooded with the most pleasant feeling in the world, you don''t want it to stop.'
 		act 'Kiss':
-			cls
+			*clr & cla
 			*clr
 			gs'stat'
 			i = rand(1,2)
@@ -464,7 +476,8 @@ if $ARGS[0] = 'rex_hug':
 end
 
 if $ARGS[0] = 'rex_dance':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	if pcs_inhib < 40:inhib_exp += rand(1,2)
 	gs'stat'
@@ -479,7 +492,8 @@ if $ARGS[0] = 'rex_dance':
 end
 
 if $ARGS[0] = 'sleep':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	gs'stat'
 	if Rex_save =1 and Rex_Love =1:
@@ -614,7 +628,7 @@ if $ARGS[0] = 'sleep':
 		''
 		'After sleeping some time, you are suddenly awakened by someone yelling at you to wake up while they slap you.'
 		act 'Wake up':
-			cls
+			*clr & cla
 			minut += 90
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
@@ -640,7 +654,7 @@ if $ARGS[0] = 'sleep':
 	else
 		if hour < 9 and hour > 3 :
 			hour=9
-			cls
+			*clr & cla
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
 			'Anya shakes you until you slowly wake up'
@@ -653,7 +667,7 @@ if $ARGS[0] = 'sleep':
 			gs 'stat'
 			act 'Go home':minut += 15 & gt'bedrPar'
 		else
-			cls
+			*clr & cla
 			minut += 90
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_4_1.jpg"></center>'

+ 51 - 78
locations/din_pav.qsrc

@@ -1,7 +1,8 @@
 # din_pav
+
 $pavserjil = {
-	cls
-	cla
+	menu_off = 1
+	*clr & cla
 	gs'stat'
 	
 	set pavserhom = 1
@@ -11,8 +12,8 @@ $pavserjil = {
 }
 
 $koncepodos = {
-	cls
-	cla
+	*clr & cla
+	menu_off = 1
 	gs'stat'
 	set koncepo = 0
 	pcs_mood -= 10
@@ -32,12 +33,11 @@ $koncepodos = {
                 
         end              
     end
-
 }
 
 $koncepodos1 = {
-	cls
-	cla
+	*clr & cla
+	menu_off = 1
     minut += 5
     set psiha = 0
 	pcs_mood -= 10
@@ -64,9 +64,8 @@ $koncepodos1 = {
     act 'View apartment':gt'koncepod1','krr2x1'
 }
 
-$pavser = {
-    
-    
+$pavser = {  
+	menu_off = 1
     if pcs_hairbsh = 1:pcs_hairbsh = 0
 	pcs_mood -= 10
     gs'stat'
@@ -76,10 +75,10 @@ $pavser = {
     'And then you notice it. He sat behind the couch against the wall, his face buried in his knees.You cried and,involuntarily raised his hand to his mouth, bit, fingers.'
     if pcs_dom > SUB:act 'Speak':dynamic $pavser1
     if SUB > pcs_dom:act 'Leave':pavserhom = 3 & psiha = 1 & gt'dvor'
-
 }
 
 $pavser2 = {
+	menu_off = 1
     psi1day = 0
     'Closing the door siboy you expect to see all, anything. Terribly narrow and gloomy hallway with old wallpaper on the walls, decorated and rather obscure streaks Settle and a long corridor'
     'And silence. Dead to silence tinnitus,'
@@ -87,23 +86,19 @@ $pavser2 = {
     'You once visited a chill, prbezhav skin. Dark and empty, that even sounds left this place. A dust lying everywhere talked about, that people do not live here a long time.'
     'Definitely someone here-he died, - We think you - and I''ll find a mother. No, Well this is my delirium, inflamed imagination.'
     'All these thoughts and still spinning in your head, and you were hesitating to do at least step.'
-    act 'Leave':pavserhom = 3 & psiha = 1 & gt'dvor'
-    
+    act 'Leave':pavserhom = 3 & psiha = 1 & gt'dvor' 
 }
 
-
 $pavser1 = {
-    cla
-    *clr
+	*clr & cla
+	menu_off = 1
     psiho = 1
     pcs_pcs_manna = pcs_pcs_manna - 30
     gs'stat'
     '<center><img <<$set_imgh>> src="images/characters/oldtown/pavser/pavserjil.jpg" ></center>'
     'Before you appeared no longer a young man. From him it emanated a savage force and evidence were the dimensions of the body, barely distinguishable from-a beige raincoat and crumpled.'
     act 'Who you are?':
-        cla
-        *clr
-        
+        *clr & cla        
         pcs_pcs_manna = pcs_pcs_manna - 30
         gs'stat'
 		'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
@@ -112,9 +107,7 @@ $pavser1 = {
         '- Through the door.'
         'His voice was deep and sonorous. You stopped at the door. Paul did not move; you have only to leave, but why-then hesitated.'
         act 'I''m a fool Fool...':
-            cla
-            *clr
-            
+            *clr & cla            
             gs'stat'
 			'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
             '<center><img <<$set_imgh>> src="images/characters/oldtown/pavser/pavserjil.jpg" ></center>'
@@ -124,8 +117,7 @@ $pavser1 = {
             '- He told me he gave it to me, - he corrected, continuing to look at you quizzically.'
             'Her surprised, that it is so easy to communicate with him, and not gone directly from this Strange.'
             act '- I draw old houses.':
-                cla
-                *clr
+                *clr & cla
                 arnksg = 1
                 gs'stat'
 				'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
@@ -134,9 +126,7 @@ $pavser1 = {
                 '- Do you intend to rent an apartment? - You ask.'
                 '- And you? - Now his voice sounded hoarse.'
                 act '- I have not decided yet.':
-                    cla
-                    *clr
-                    
+                    *clr & cla
                     pcs_hairbsh = 1
                     set psihb = 0
                     
@@ -157,12 +147,12 @@ $pavser1 = {
 }
 
 $pavser3 = {
-    SUB = SUB + 1
+	menu_off = 1
+    sub += 1
     'Condition Bedrooms more you plunged into a stupor. quite ragged room with awkward standing in the midst of her perfectly preserved ancient, plush ottoman.'
     act '- The chair would look good in a hall, - You dropped it withheld.':
-        cla
-        *clr
-        SUB = SUB + 15
+        *clr & cla
+        sub += 15
         pcs_pcs_manna = pcs_pcs_manna - 50
         pcs_horny += 20
         gs'stat'
@@ -188,13 +178,12 @@ $pavser3 = {
             pcs_dom = pcs_dom + 1
             gt'koncepod1','krr2x'
         end
-    end
-    
+    end   
 }
 
 $pavser4 = {
-    cla
-    *clr
+    *clr & cla
+	menu_off = 1
     pcs_manna = pcs_manna + 60
     piss = piss + 1
     
@@ -210,8 +199,7 @@ $pavser4 = {
 	
     if pcs_horny >= 95:
         act 'Touch yourself':
-            cla
-            *clr
+            *clr & cla
             psi1day = 1
             psiha = 1
             gs'stat'
@@ -223,8 +211,7 @@ $pavser4 = {
 			gs 'stat'
 			
             act '...':
-                cla
-                *clr
+                *clr & cla
 				pcs_mood = 100
                 '<center><video autoplay loop src="images/locations/oldtown/vacanthouse/11684312.mp4"></video></center>'
 				$orgasm_or = 'custom'
@@ -244,11 +231,10 @@ $pavser4 = {
 }
 
 $pavser5 = {
-    
+	menu_off = 1
     'Putishestvuya the apartment you shocked assorted odtelki and its absence in the premises nekotoryz, And then there''s the kitchen. Well, at least clean.'
     act 'Further':
-        cla
-        *clr
+		*clr & cla
         gs'stat'
         '<center><img <<$set_imgh>> src="images/characters/oldtown/pavser/pavserjil.jpg" ></center>'
         'You enter the kitchen; it, in accordance with the requirements of politeness, You missed a little ahead and behind. Against the wall were piled bundles of yellowed newspapers.'
@@ -271,11 +257,11 @@ $pavser5 = {
             act 'In the corridor':gt'koncepod1','krr2x'
         end
     end
-
 }
 
 
 $pavser6 = {
+	menu_off = 1
     psihb = 1
     psiho = 3
     
@@ -283,15 +269,14 @@ $pavser6 = {
     'Both understanding - tightening the inspection of the apartment, you increase the likelihood, between you that-something will happen.'
     'None of you especially do not wish to, and does not aspire to this, nevertheless he or, or you do not want to deviate from the chosen line of conduct.'
     'As if someone-it painted for you all the movements and you feel like breaking the spirit of the play or destroy the atmosphere of predestination, arose in the walls of the house.'
-    ''
-
+    *nl
 }
 
 $pavser7 = {
+	menu_off = 1
     'Then the phone rang inappropriate.'
     act 'Answer':
-        cla
-        *clr
+        *clr & cla
         SUB = SUB + 5
         pcs_horny += 10
         gs'stat'
@@ -299,14 +284,14 @@ $pavser7 = {
         'You raised the phone in the bedroom, He along with you - in the corridor. An unfamiliar voice came to nothing, The connection was lost, but you both continued to press the receiver to his ear, listening to each other''s breath.'
         'You want, that he spoke with you, I went to some-a trifling concession - showed what-weakness, - And then you can just get up and leave. You were not able to lower the tube, although you desperately tempted to slap her blunder on the lever of the old machine.'
         'This keeps you from his inflexible arrogance. May be, He knew about it, and proud of their power over you.'
-        ''
+        *nl
         act 'Listen tube':dynamic $pavser8
     end
-
 }
 
 $pavser8 = {
-	cls
+	*clr & cla
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
     pcs_horny +=10
     pcs_manna = pcs_manna - 50
@@ -324,7 +309,7 @@ $pavser8 = {
     'You stand rozmyshlyaya about what happened: and he can do with you now, he wants and you will not resisting. But why?'
     'As well? But you do not know, Suddenly he began maniac and you now cut, and you are under hypnosis smotrelib him as a benefactor.'
     act 'The Hall':
-		cls
+		*clr & cla
         pcs_manna = mannamax
         pcs_horny += 20
         gs'stat'
@@ -339,12 +324,11 @@ $pavser8 = {
         'You oyknula, but the words never sounded, they drowned in your own mind.'
         act 'Oh':dynamic $pavser9
     end
-
 }
 
 $pavser9 = {
-    cla
-    *clr
+    *clr & cla
+	menu_off = 1
     pcs_willpwr = pcs_willpwr - 100
     gs'stat'
     
@@ -358,8 +342,7 @@ $pavser9 = {
 	gs 'stat'
 	
 	act 'Further':
-        cla
-        *clr
+        *clr & cla
         gs'stat'
         '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/01.jpg" ></center>'
         'He put you in the chair, but do not let go of the hands of the mighty, He ran your hand under her blouse and began to stroke your breasts.'
@@ -369,8 +352,7 @@ $pavser9 = {
 		gs 'stat'
 		
         act 'Further':
-            cla
-            *clr
+            *clr & cla
             gs'stat'
             '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/02.jpg" ></center>'
             'Picked up the chest, palms and thumbs had nipples. The rough rough skin on the balls of his fingers made her rush of desire, You clung to him.'
@@ -380,8 +362,7 @@ $pavser9 = {
 			gs 'stat'
 		
             act 'Further':
-                cla
-                *clr
+                *clr & cla
                 gs'stat'
                 '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/03.jpg" ></center>'
                 'You neprozvolno cozero his pants and felt beneath the solid barrel member and frantically began to take off his pants while his cock did not seem near your face.'
@@ -391,8 +372,7 @@ $pavser9 = {
 				gs 'stat'
 		
                 act 'Further':
-                    cla
-                    *clr
+                    *clr & cla
 			        pcs_manna = mannamax
                     gs'stat'
                     '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/05.jpg" ></center>'
@@ -404,8 +384,7 @@ $pavser9 = {
 					gs 'stat'
 					
                     act 'Further':
-                        cla
-                        *clr
+                        *clr & cla
                         gs'stat'
                         '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/04.jpg" ></center>'
                         'You were amazed to, what''s happening. You stand in front of a completely unfamiliar man half-naked, on his knees and his mouth furiously pleasuring, caressing his head tongue.'
@@ -415,8 +394,7 @@ $pavser9 = {
 						gs 'stat'
 						
                         act '...':
-                            cla
-                            *clr
+                            *clr & cla
 			                pcs_manna = mannamax
 			                gs 'underwear', 'remove'
                             gs'stat'
@@ -429,8 +407,7 @@ $pavser9 = {
 							gs 'stat'
 							
                             act '...':
-                                cla
-                                *clr
+                                *clr & cla
                                 gs'stat'
 								gs 'npcgeneratec', 0, 'Stranger', rand(19,45)
 								gs 'boyStat', $npclastgenerated
@@ -444,8 +421,7 @@ $pavser9 = {
 								gs 'stat'
 								
                                 act '...':
-                                    cla
-                                    *clr
+                                    *clr & cla
 			                        pcs_manna = mannamax
                                     gs'stat'
                                     '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/08.jpg" ></center>'
@@ -455,8 +431,7 @@ $pavser9 = {
 									gs 'stat'
 									
                                     act '...':
-                                        cla
-                                        *clr
+                                        *clr & cla
                                         gs'stat'
                                         '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/09.jpg" ></center>'
                                         'Another enlightened it, when he put you back on the chair and raise your legs voshol in you and you feel a sharp pain in the uterus of a member of the strike...'
@@ -467,8 +442,7 @@ $pavser9 = {
 										gs 'stat'
 										
                                         act '...':
-                                            cla
-                                            *clr
+                                            *clr & cla
                                             orgasm += 1
 				                            pcs_horny = 0
 											pcs_mood = 100
@@ -479,8 +453,7 @@ $pavser9 = {
 											gs 'stat'
 									
                                             act '...':
-                                                cla
-                                                *clr
+                                                *clr & cla
                                                 gs'stat'
                                                 '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/11.jpg" ></center>'
                                                 'Woke. The next wave rolled back and you feel at home on his stomach warm, with a strange smell, though vaguely familiar, sperm.'
@@ -502,8 +475,8 @@ $pavser9 = {
 }
 
 $pavser10 = {
-    cla
-    *clr
+	*clr & cla
+	menu_off = 1
     psi1day = 1
     pcs_sweat += 20
     spafinloc = 14

+ 18 - 0
locations/dinfather.qsrc

@@ -3,6 +3,7 @@
 !!!These events can trigger randomly when you 'Chat' with your stepfather in the living room, if your relationship is good and you are attractive enough
 
 if $ARGS[0] =  'father act 1':
+	menu_off = 1
     if pcs_horny >= 40 or TouchedByFather=1:
         act 'You feel like teasing him':
             cls
@@ -31,6 +32,7 @@ if $ARGS[0] =  'father act 1':
 end
 
 if $ARGS[0] =  'father act 2':
+	menu_off = 1
     if pcs_horny >= 60 or TouchedByFather=1:
         act 'Stare at his groin as you talk':
             cls
@@ -59,6 +61,7 @@ if $ARGS[0] =  'father act 2':
 end
 
 if $ARGS[0] =  'father act 3':
+	menu_off = 1
     if pcs_horny >= 80 or TouchedByFather=1:
         act 'Spread your legs':
             cls
@@ -91,6 +94,7 @@ end
 
 if $ARGS[0] =  'father 1':
     !He hates you
+	menu_off = 1
     'You try to have a conversation with your stepfather, but he dislikes you too much to even pretend to be interested in what you have to say.'
     if sorryday!daystart:
         act 'Apologize':
@@ -106,6 +110,7 @@ end
 
 if $ARGS[0] =  'father 2':
     !He doesn''t like you very much
+	menu_off = 1
     'You try to have a conversation with your stepfather, but he''s not really interested and barely has anything to contribute while you do all the talking.'
     if sorryday!daystart:
         act 'Try to get on his good side':
@@ -158,6 +163,7 @@ end
 !_____________________Button "Chat" garage _____________________________
 
 if $ARGS[0] =  'gar_act1':
+	menu_off = 1
     if pcs_horny >= 50 or TouchedByFather=1:
         act 'You feel like teasing him':
             cls
@@ -187,6 +193,7 @@ if $ARGS[0] =  'gar_act1':
 end
 
 if $ARGS[0] =  'gar_act2':
+	menu_off = 1
     if pcs_horny >= 90 or TouchedByFather=1:
         act 'Stare at his groin as you talk':
             cls
@@ -216,6 +223,7 @@ if $ARGS[0] =  'gar_act2':
 end
 
 if $ARGS[0] =  'gar_act3':
+	menu_off = 1
     if pcs_horny >= 100 or TouchedByFather=1:
         act 'Spread your legs':
             cls
@@ -248,6 +256,7 @@ end
 !_____________________Button "VIEW WITH TV" in the apartment _____________________________
 
 if $ARGS[0] =  'watchtv_act1':
+	menu_off = 1
     if pcs_horny >= 0 or TouchedByFather=1:
         act 'Lean your head against his chest':
             cls
@@ -338,6 +347,7 @@ if $ARGS[0] =  'watchtv_act2':
 end
 
 if $ARGS[0] =  'watchtv_act3':
+	menu_off = 1
     act 'Spread your legs':
         cls
         gs 'arousal', 'flash', 5
@@ -363,6 +373,7 @@ end
 
 if $ARGS[0] =  'watchtv1':
     !scandal stepfather
+	menu_off = 1
     'You try to cuddle up against him on the couch, but he roughly shoves you off the couch. As your ass hits the ground he scowls at you: "<<$pcs_nickname>>, what the hell are you doing?" He can''t stand the thought of being anywhere near you. You rub your sensitive ass with a slight pout on your face and consider your next move.'
     if sorryday!daystart:
         act 'Apologize':
@@ -379,6 +390,7 @@ end
 
 if $ARGS[0] =  'watchtv2':
     !strained relations
+	menu_off = 1
     'As you try to cuddle up against your stepfather to watch some TV, he holds you off and makes clear that he doesn''t want you to get that close to him.'
     if sorryday!daystart:
         act 'Try to get on his good side':
@@ -431,6 +443,7 @@ end
 !_____________________FOR booze in the garage _____________________________
 
 $d_fatherdrunk_act[1]={
+	menu_off = 1
     'You can''t help but notice that your uncle Misha is staring at you the whole time. You feel like he''s not just undressing you in his mind, but that he''s fucking you in all sorts of positions with reckless abandon.'
     if pcs_horny >= 50 and sosedknow=1:
         act 'Show him your breasts':
@@ -459,6 +472,7 @@ $d_fatherdrunk_act[1]={
 }
 
 $d_fatherdrunk_act[2]={
+	menu_off = 1
     if pcs_horny >= 90 or TouchedByFather=1:
         act 'Get their attention by dropping your bottle':
         cls
@@ -501,6 +515,7 @@ $d_fatherdrunk_act[2]={
 }
 
 $d_fatherdrunk_act[3]={
+	menu_off = 1
     if pcs_horny >= 100 or TouchedByFather=1:
         act 'Spread your legs':
         cls
@@ -528,6 +543,7 @@ $d_fatherdrunk_act[3]={
 }
 
 if $ARGS[0] = 'garchat':
+	menu_off = 1
     npc_rel['A28'] += 1
     fatherTalk = rand (1,5)
     if fatherTalk = 1:
@@ -545,6 +561,7 @@ if $ARGS[0] = 'garchat':
 end
 
 if $ARGS[0] = 'garhelpchat':
+	menu_off = 1
     npc_rel['A28'] += 1
     fatherTalk = rand (1,5)
     if fatherTalk = 1:
@@ -562,6 +579,7 @@ if $ARGS[0] = 'garhelpchat':
 end
 
 if $ARGS[0] = 'gardrunkchat':
+	menu_off = 1
     'Before you can even ask, your stepfather waves you over: "Oh, <<$pcs_nickname>>! Come join me and Misha, maybe you''ll learn something from your elders!"'
     fatherTalk = rand (1,3)
     if fatherTalk = 1:

+ 2 - 0
locations/dinmother.qsrc

@@ -2,6 +2,7 @@
 
 $d_mother[1]={
 	!scandal with my mother
+	menu_off = 1
 	'You try having a talk with your mother, but she dislikes you way too much to even pretend to be interested in what you have to say. After a while, you give up and leave her alone. Maybe she''ll be in a better mood later.'
 	if mothersorryday!daystart:
 		act 'Apologize':
@@ -16,6 +17,7 @@ $d_mother[1]={
 }
 $d_mother[2]={
 	!strained relations
+	menu_off = 1
 	'You try to have a talk with your mother, but her answers are really short and she sounds kind of annoyed. After a few minutes she cuts the conversation short, saying she has other things to do now.'
 	if mothersorryday!daystart:
 		act 'Try to get on her good side':

+ 21 - 16
locations/dinnpc.qsrc

@@ -1,7 +1,8 @@
 # dinnpc
 $din_predlog_dima_bj = {
+	menu_off = 1
 	act 'Get down on your knees':
-		cls
+		*clr & cla
 		DimaRudeQW += 1
 		sub += 1
 		gs 'stat'
@@ -10,7 +11,7 @@ $din_predlog_dima_bj = {
 		'Embarrassed, blushing, but eager to please Dimka and a little intimated by him, you get on your knees before Dimka who pulls out his dick and slaps it against your face, looking at you like he owns you.'
 
 		act 'Take it into your mouth':
-			cls
+			*clr & cla
 			bja += 1
 			dick = 16
 
@@ -24,7 +25,7 @@ $din_predlog_dima_bj = {
 			gs 'stat'
 			
 			act 'Deepthroat him':
-				cls
+				*clr & cla
 				pcs_throat += 2
 				dick = 16
 
@@ -47,7 +48,7 @@ $din_predlog_dima_bj = {
 				gs 'stat'
 			
 				act 'Catch your breath':
-					cls
+					*clr & cla
 					minut += 5
 					gs 'boyStat', 'A1'
 					gs 'cum_call','face', $boy, 1,'','',20
@@ -70,8 +71,9 @@ $din_predlog_dima_bj = {
 }
 
 $din_dima_predlog = {
+	menu_off = 1
 	act 'Who does he think you are?! - Slap him':
-		cls
+		*clr & cla
 		pcs_dom += 1
 		npc_rel[$static_num] = 0
 		gs 'stat'
@@ -85,7 +87,7 @@ $din_dima_predlog = {
 	end
 
 	act '... is he serious? Think about what he said for a moment':
-		cls
+		*clr & cla
 		gs 'stat'
 		'<center><b><font color="maroon"><<$npc_firstname[$static_num]>> <<$npc_lastname[$static_num]>></font></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/<<numnpc>>.jpg"></center>'
@@ -93,7 +95,7 @@ $din_dima_predlog = {
 		'As if to answer your question, Dimka unbuttons his pants. "Come on, are you gonna keep me waiting all night long? Which is it? Are you brave and fun? Or just another prude?"'
 
 		act 'That does it! - Slap him':
-			cls
+			*clr & cla
 			pcs_dom += 1
 			npc_rel[$static_num] = 0
 			gs 'stat'
@@ -107,7 +109,7 @@ $din_dima_predlog = {
 		end
 
 		act '"And you promise not to tell anyone?"':
-			cls
+			*clr & cla
 			pcs_dom += 1
 			gs 'stat'
 			'<center><b><font color="maroon"><<$npc_firstname[$static_num]>> <<$npc_lastname[$static_num]>></font></b></center>'
@@ -125,8 +127,9 @@ $din_dima_predlog = {
 }
 
 $din_igor_disco_bj = {
+	menu_off = 1
 	act 'Get down on your knees':
-		cls
+		*clr & cla
 
 		if npcSex[numnpc] = 0:npcSex[numnpc] = 1 & guy += 1
 
@@ -150,8 +153,9 @@ $din_igor_disco_bj = {
 }
 
 $din_igor_dima_disco_bj = {
+	menu_off = 1
 	act 'Get down on your knees':
-		cls
+		*clr & cla
 
 		if npcSex[numnpc] = 0:npcSex[numnpc] = 1 & guy += 1
 
@@ -174,8 +178,9 @@ gs 'cum_manage'
 }
 
 $din_igor__disco = {
+	menu_off = 1
 	act 'Leave the disco':
-		cls
+		*clr & cla
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/4.jpg"></center>'
 		'You go outside with Igor. In a bout of passion, Igor takes you by the hand and says: "<<$pcs_nickname>>, you''re such a pretty girl. Everytime I see you, my mood gets better, even when I''m feeling down. I like you very much, <<$pcs_nickname>>. I''d really like to start a relationship with you."'
@@ -183,7 +188,7 @@ $din_igor__disco = {
 		act 'Refuse him and leave':gt $loc, $metka
 
 		act 'Agree - He''s kinda cute':
-			cls
+			*clr & cla
 			IgorLoverQW = 1
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/4.jpg"></center>'
@@ -192,7 +197,7 @@ $din_igor__disco = {
 
 			if pcs_dom > 0:
 				act 'Stop him - If you go out with him, it''ll be on your terms':
-					cls
+					*clr & cla
 					pcs_dom += 5
 					IgorDominaQW = 1
 					gs 'stat'
@@ -202,7 +207,7 @@ $din_igor__disco = {
 
 					if pcs_dom >= 10:
 						act 'Yes, you do - "You may kiss my feet"':
-							cls
+							*clr & cla
 							IgorLove += 20
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/leg.jpg"></center>'
@@ -218,7 +223,7 @@ $din_igor__disco = {
 					end
 
 					act 'Well, let''s not overdo it - Kiss him':
-						cls
+						*clr & cla
 						IgorLove += 10
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
@@ -234,7 +239,7 @@ $din_igor__disco = {
 			end
 
 			act 'Let Igor kiss you':
-				cls
+				*clr & cla
 				IgorLove += 5
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'

+ 3 - 0
locations/dinsexgivi.qsrc

@@ -1,4 +1,7 @@
 # dinsexgivi
+
+menu_off = 1
+
 if $ARGS[0] = 'threesome':
 	act 'Sit on his penis':
 		*clr & cla

+ 9 - 6
locations/dinsister.qsrc

@@ -1,6 +1,7 @@
 # dinsister
 
 $sischecks = {
+	menu_off = 1
 	if npc_rel['A33'] < 20:'Your relationship with your sister is scandalous.'
 	if npc_rel['A33'] >= 20 and npc_rel['A33'] < 40:'Your relationship with your sister is tense.'
 	if npc_rel['A33'] >= 40 and npc_rel['A33'] < 60:'You and your sister have a normal relationship.'
@@ -225,8 +226,8 @@ $sischecks = {
 }
 
 $narkosisterspalila = {
-	cls
-	cla
+	menu_off = 1
+	*clr & cla
 	gs'stat'
 	!'sister slept on drugs.'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister2.jpg"></center>'
@@ -255,8 +256,9 @@ $narkosisterspalila = {
 }
 
 $d_sister[1]={
-!scandal with her sister
-'You are trying to talk to your sister but she refuses to talk to you.'
+	menu_off = 1
+	!scandal with her sister
+	'You are trying to talk to your sister but she refuses to talk to you.'
 	if sistersorryday!daystart:
 		act'Apologize':
 		cla
@@ -269,8 +271,9 @@ $d_sister[1]={
 	end
 }
 $d_sister[2]={
-!strained relations
-'You are trying to talk to your sister but she just cuts you off bluntly.'
+	menu_off = 1
+	!strained relations
+	'You are trying to talk to your sister but she just cuts you off bluntly.'
 	if sistersorryday!daystart:
 		act'Try to smooth your relations':
 		cla

+ 5 - 3
locations/divan.qsrc

@@ -1,8 +1,11 @@
 # divan
 ! WD: Reading book code cant use argument
+
+menu_off = 1
+
 if $ARGS[0] = 'start' or $ARGS[0] = '':
 	$divmastr = {
-		cls
+		*clr & cla
 
 		if pcs_sweat < 25 : pcs_sweat += 5
 
@@ -30,8 +33,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 		if pcs_horny >= 75:act 'Proceed':dynamic $divmastr
 	}
 
-	cla
-	clr
+	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/home/divan.jpg"></center>'
 	'You lie down on the sofa.'

+ 2 - 0
locations/dk.qsrc

@@ -1,6 +1,7 @@
 # dk
 $location_type = 'public_indoors'
 if $ARGS[0] = 'start':
+	menu_off = 1
 	'<center><b>The Vladimir Lenin community centre</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/community/dk4.jpg"></center>'
 	'Open: 9 through 17 on workdays, closed on Saturday and Sunday.'
@@ -27,6 +28,7 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'holl':
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	'<center><b>The Vladimir Lenin community centre</b></center>'

+ 27 - 24
locations/dolls.qsrc

@@ -6,9 +6,12 @@
 if $ARGS[0] = 'start':
 	$metka = 'start'
 	$loc = 'dolls'
+	$menu_arg = 'start'
+	$menu_loc = 'dolls'
+	menu_off = 0
 	$location_type = 'public_indoors'
+	*clr & cla
 	if Anush_dolls = 0:Anush_dolls = 1
-	clr
 	minut += 2
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -28,8 +31,7 @@ if $ARGS[0] = 'start':
 	end
 
 	act 'Browse clothing':
-		cla
-		*clr
+		*clr & cla
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/city/island/dolls/dollsshop.jpg"></center>'
 		''
@@ -60,7 +62,10 @@ end
 if $ARGS[0] = 'clothing':
 	$metka = 'clothing'
 	$loc = 'dolls'
-	cls
+	$menu_arg = 'clothing'
+	$menu_loc = 'dolls'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 	'<center><b><font color="maroon">Viewing Patchwork Dolls clothing</font></b></center>'
 	*nl
@@ -107,8 +112,10 @@ end
 if $ARGS[0] = 'shoes':
 	$metka = 'shoes'
 	$loc = 'dolls'
-	*clr
-	cla
+	$menu_arg = 'purses'
+	$menu_loc = 'shoes'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -134,8 +141,10 @@ if $ARGS[0] = 'dolls_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'dolls',i, 20
 if $ARGS[0] = 'purses':
 	$metka = 'purses'
 	$loc = 'dolls'
-	*clr
-	cla
+	$menu_arg = 'purses'
+	$menu_loc = 'dolls'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 
 	act 'Return':
@@ -155,8 +164,8 @@ end
 if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'dolls',i, 2000
 
 if $ARGS[0] = 'savva':
-	*clr
-	cla
+	*clr & cla
+	menu_off = 1
 	'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/savva/savva.jpg"></center>'
 	if know_Savva = 0:
@@ -165,8 +174,7 @@ if $ARGS[0] = 'savva':
 		'Savva is working the counter today. As you walk up, he gives you a friendly smile. "Hey <<$pcs_nickname>>, nice to see you again. What can I help you with?"'
 	end
 	act 'Ask him about the shop':
-		*clr
-		cla
+		*clr & cla
 		npc_rel['A204'] += 2
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/city/savva/savva.jpg"></center>'
@@ -176,8 +184,7 @@ if $ARGS[0] = 'savva':
 !!this only shows up as a option if Anushka sent Sveta to the store from one of her chat options in anushka file or anushapt file.
 	if Anush_dolls = 2:
 		act 'Anushka sent me':
-			*clr
-			cla
+			*clr & cla
 			npc_rel['A204'] += 3
 			'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 			'<center><img <<$set_imgh>> src="images/characters/city/savva/savva.jpg"></center>'
@@ -193,16 +200,14 @@ if $ARGS[0] = 'savva':
 		end
 	end
 	act 'Flirt with him':
-		*clr
-		cla
+		*clr & cla
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/city/savva/savva.jpg"></center>'
 		'You think he is pretty cute in a girlish kinda way, so you chat with him about a variety of things and flirt for all you are worth. He seems happy to talk, especially about fashion and music... but either he''s gay or completely oblivious to your flirting.'
 		act 'Continue': gt 'dolls', 'savva'
 	end
 	act 'Chat with him':
-		*clr
-		cla
+		*clr & cla
 		know_Savva = 1
 		npc_rel['A204'] += 3
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
@@ -215,8 +220,8 @@ if $ARGS[0] = 'savva':
 end
 
 if $ARGS[0] = 'viola':
-	*clr
-	cla
+	*clr & cla
+	menu_off = 1
 	'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/viola/viola.jpg"></center>'
 	if know_Viola = 0:
@@ -235,8 +240,7 @@ if $ARGS[0] = 'viola':
 !!this only shows up as a option if Anushka sent Sveta to the store from one of her chat options in anushka file or anushapt file.
 	if Anush_dolls = 2:
 		act 'Anushka sent me':
-			*clr
-			cla
+			*clr & cla
 			Anush_dolls = 3
 			npc_rel['A205'] += 5
 			'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
@@ -252,8 +256,7 @@ if $ARGS[0] = 'viola':
 		end
 	end
 	act 'Flirt with her':
-		*clr
-		cla
+		*clr & cla
 		npc_rel['A205'] += 3
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/city/viola/viola.jpg"></center>'

+ 2 - 0
locations/dom_gor.qsrc

@@ -1,5 +1,7 @@
 # dom_gor
 
+menu_off = 1
+
 $metkaM = $ARGS[0]
 $locM = $CURLOC
 $metka = $ARGS[0]

+ 18 - 11
locations/dorm.qsrc

@@ -3,12 +3,23 @@ if $ARGS[0] = 'start':
 	cla
 	*clr
 	minut += 5
+	$menu_loc = 'dorm'
+	$menu_arg = 'start'
+	menu_off = 0
 	gs 'stat'
 	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Dormitory</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
 
-	if student =0:
+	act 'Leave':
+		cla
+		minut += 5
+		reccoldorm = 0
+		gt 'island'
+	end
+	
+	if student = 0:
+		menu_off = 1
 		'Since you''re not attending the University you are not allowed to enter unless you''re visiting someone you know.'
 
 		act 'Leave': minut += 5 & gt 'island'
@@ -64,13 +75,6 @@ if $ARGS[0] = 'start':
 			gt 'dorm', 'korr'
 		end
 	end
-
-	act 'Leave':
-		cla
-		minut += 5
-		reccoldorm = 0
-		gt 'island'
-	end
 end
 
 if $ARGS[0] = 'korr':
@@ -81,9 +85,7 @@ if $ARGS[0] = 'korr':
 	menu_off = 0
 	$location_type = 'public_indoors'
 	killvar '$locclass'
-	cla
-	clr
-	*clr
+	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/obkorr.jpg"></center>'
 	'Before you is the usual hostel hallway with dilapidated walls, you can hear music and loud talking from drunk students escaping from some rooms.'
@@ -166,6 +168,7 @@ if $ARGS[0] = 'korr':
 	if gosh > 0 and hour >= 8 and hour < 22:
 		act 'Gosha''s room':
 			cla
+			menu_off = 1
 			minut += 15
 			gs 'stat'
 			'Gosha opens the door and invites you inside.'
@@ -197,6 +200,7 @@ end
 
 if $ARGS[0] = 'demarcusfuck':
 	cla
+	menu_off = 1
 	$location_type = 'event'
 	reccoldorm = 0
 	demarcusflag = 0
@@ -367,6 +371,7 @@ if $ARGS[0] = 'demarcusfuck':
 end
 
 if $ARGS[0] = 'afragangfuck':
+	menu_off = 1
 	$location_type = 'event'
 	reccoldorm = 0
 	afraflag = 0
@@ -471,6 +476,7 @@ if $ARGS[0] = 'afragangfuck':
 end
 
 if $ARGS[0] = 'kendrafuck':
+	menu_off = 1
 	$location_type = 'event'
 	reccoldorm = 0
 	kendraflag = 0
@@ -705,6 +711,7 @@ if $ARGS[0] = 'kendrafuck':
 end
 
 if $ARGS[0] = 'goshifuck':
+	menu_off = 1
 	$location_type = 'event'
 	reccoldorm = 0
 	goshiflag = 0

+ 9 - 1
locations/dort.qsrc

@@ -1,10 +1,18 @@
 # dort
+
+$loc = 'dort'
+$metka = ''
+$menu_loc = 'dort'
+$menu_arg = ''
+menu_off = 0
+
 $location_type = 'public_outdoors'
-gs'stat'
 
+*clr & cla
 '<center><img <<$set_imgh>> src="images/locations/city/shared/trainstation/prigor1.jpg" ></center>'
 
 minut += 60
+gs'stat'
 
 !'<a href="exec:GT ''nowostreet'',''start''">Buildings</a> '
 

+ 4 - 1
locations/down.qsrc

@@ -2,6 +2,9 @@
 
 $metka = $ARGS[0]
 $loc = 'down'
+$menu_loc = 'down'
+$menu_arg = ''
+menu_off = 0
 $location_type = 'public_outdoors'
 killvar '$locclass'
 CLOSE ALL
@@ -58,6 +61,7 @@ if tanwork = 1:act '<b>GO HOME</b> (Tanyas apartment)':gt 'tanhouse'
 if shantpopala > 0:
 	cla
 	*clr
+	menu_off = 0
 	hour += 8
 	spafinloc = 14
 	gs 'cum_manage'
@@ -101,7 +105,6 @@ end
 
 if car > 0 and cardrive = 2:'In the parking stands your <a href="exec:GS ''carF'', ''start''"><<$car>></a>.'
 
-
 act 'Wait':gs 'obj_din', 'wait'
 
 gs 'taxi'

+ 12 - 5
locations/downlibrary.qsrc

@@ -2,6 +2,9 @@
 
 $metka = $ARGS[0]
 $loc = $CURLOC
+$menu_loc = 'downlibrary'
+$menu_arg = ''
+menu_off = 0
 $location_type = 'public_indoors'
 frost = 0
 gs 'stat'
@@ -14,7 +17,8 @@ act 'Leave the library': minut += 5 & gt 'down'
 
 if hour >= 8 and hour <= 18:
 	act 'Read a science book (1:00)':
-		cls
+		*clr & cla
+		menu_off = 1
 		if blizoruk = 100 or glassqw = 1:
 		glassqw = 1
 		msg'The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
@@ -42,7 +46,8 @@ if hour >= 8 and hour <= 18:
 	end
 
 	act 'Read an entertaining book (1:00)':
-		cls
+		*clr & cla
+		menu_off = 1
 		if blizoruk = 100 or glassqw = 1:
 		glassqw = 1
 		msg'The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
@@ -64,7 +69,8 @@ if hour >= 8 and hour <= 18:
 	end
 
 	act 'Read the collected works of Leo Tolstoy (1:00)':
-		cls
+		*clr & cla
+		menu_off = 1
 		if blizoruk = 100 or glassqw = 1:
 		glassqw = 1
 		msg'	The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
@@ -92,7 +98,8 @@ if hour >= 8 and hour <= 18:
 	end
 	if MagicLibrary = 1:
 		act 'Read in magic books':
-			cls
+			*clr & cla
+			menu_off = 1
 			if blizoruk = 100 or glassqw = 1:
 			glassqw = 1
 			msg'	The text blurs across the page, it looks like you have got poor eyesight. It would be suitable to visit an ophthalmologists.'&gt $curloc
@@ -122,7 +129,7 @@ if hour >= 8 and hour <= 18:
 	end
 	
 else
-	'	The library is closed.'
+	'The library is closed.'
 end
 
 

+ 2 - 0
locations/dreams.qsrc

@@ -1,5 +1,7 @@
 # dreams
 
+menu_off = 1
+
 if $ARGS[0] = 'start':
 	if stepdadqw = 3:
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/bath_voyer_1.jpg"></center>'

+ 2 - 0
locations/dvor.qsrc

@@ -1,4 +1,6 @@
 # dvor
+
+menu_off = 1
 $location_type = 'public_outdoors'
 set minut += 5
 gs 'stat'

+ 5 - 7
locations/pavComplex.qsrc

@@ -21,7 +21,7 @@ if $ARGS[0] = 'start':
 		end
 	end
 
-	cls
+	*clr & cla
 	litltown = 1
 	alkoblock = 0
 	boynumBlock = 0
@@ -161,12 +161,10 @@ if $ARGS[0] = 'courtyard':
 			if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
 		end
 	end
-	*clr
-	cla
+	*clr & cla
 	gs 'stat'
-!!each time you go to the courtyard have a 1 in 10 chance a event triggers and a 1 in 5 at night, events1 for day time and events2 for night
-	!!if rand (1,5) = 1 and hour >= 8 and hour <= 20: gt 'pavaptcourtev', 'events1'
-	!!if rand (1,10) = 1 and hour < 8 and hour > 21: gt 'pavaptcourtev', 'events2'
+	if rand (1,5) = 1 and hour >= 8 and hour <= 20: gt 'pavaptcourtev', 'events1'
+	if rand (1,10) = 1 and hour < 8 and hour > 21: gt 'pavaptcourtev', 'events2'
 	'<center>Courtyard</center>'
 	if month >= 11 or month <= 3:
 		if hour >= 8 and hour <= 21:
@@ -183,7 +181,7 @@ if $ARGS[0] = 'courtyard':
 	end
 	'The courtyard is between the three apartment buildings and the communal buildings, storage buildings, and garages along the back alley. The courtyard looks more like a small unkempt park than anything, there are a few benches and tables scattered about for the residents of the complex to use and a small children''s playground, near the edge of the courtyard, closest to the communal and storage buildings near the garages.'
 	if home_owned[2] = 1: act '<b>GO HOME</b> (Parents'' Apartment)': minut += 5 & GT 'korrPar'
-	!!act 'Sit on a bench':gt 'pavaptcourtev', 'bench'
+	act 'Sit on a bench':gt 'pavaptcourtev', 'bench'
 	act 'Return to the apartment complex street':minut += 2 & gt 'pavComplex', 'start'
 	act 'Go to the Southern apartment building':minut += 1 & gt 'pod_ezd', 'etaj_1'
 	act 'Go to the Eastern apartment building':