1
0
Prechádzať zdrojové kódy

[added] menu seeding for the letter D

julzor 6 rokov pred
rodič
commit
0e349dea24

+ 1 - 0
locations/DanceWhore1.qsrc

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

+ 1 - 0
locations/DanceWhore2.qsrc

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

+ 1 - 0
locations/DanceWhore3.qsrc

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

+ 1 - 0
locations/DanceWhore4.qsrc

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

+ 2 - 0
locations/DanceWhore5.qsrc

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

+ 1 - 0
locations/DanceWhore6.qsrc

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

+ 1 - 0
locations/DanceWhore7.qsrc

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

+ 1 - 1
locations/DanceWhore8.qsrc

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

+ 12 - 6
locations/dachain.qsrc

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

+ 13 - 8
locations/dachamy.qsrc

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

+ 6 - 6
locations/dachaogr.qsrc

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

+ 7 - 8
locations/dachaogr0.qsrc

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

+ 10 - 4
locations/dachi.qsrc

@@ -1,8 +1,13 @@
 # dachi
 # dachi
-$metka = $ARGS[0]
-$loc = $CURLOC
+
+$metka = ''
+$loc = 'dachi'
+$loc = 'dachi'
+$menu_arg = ''
+menu_off = 0
+
 $location_type = 'public_outdoors'
 $location_type = 'public_outdoors'
-clr
+*clr & cla
 gs 'stat'
 gs 'stat'
 '<center><h4>Suburban Cooperative</h4></center>'
 '<center><h4>Suburban Cooperative</h4></center>'
 '<center><img <<$set_imgh>> src="images/locations/suburban/dachi.jpg"></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 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>.'
 '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:
 if home_owned[3] > 0:
 	'Enter <a href="exec:gt ''dachamy'', ''start''">your yard</a>.'
 	'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.'
 	'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.'
 if etoexhib < 13:'You feel a slight presence of magic.'
 
 
 act 'Stroll through the alleys':gt 'etoexhib', 'pos2'
 act 'Stroll through the alleys':gt 'etoexhib', 'pos2'
-act 'Exit the highway':minut += 15 & nroad = 5 & gt 'road'
 
 
 --- dachi ---------------------------------
 --- dachi ---------------------------------
 
 

+ 3 - 0
locations/danceGev.qsrc

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

+ 6 - 7
locations/danceclass.qsrc

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

+ 3 - 0
locations/dangeon.qsrc

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

+ 8 - 6
locations/dibodi.qsrc

@@ -1,7 +1,9 @@
 # dibodi
 # dibodi
 
 
+menu_off = 1
+
 if $ARGS[0] = 'os1':
 if $ARGS[0] = 'os1':
-	cls
+	*clr & cla
 	gs'stat'
 	gs'stat'
     '<center><img <<$set_imgh>> src="images/locations/oldtown/artstudio/downud1.jpg"></center>'
     '<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.'
     '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
 end
 
 
 if $ARGS[0] = 'bodiart':
 if $ARGS[0] = 'bodiart':
-	cls
+	*clr & cla
 	cla
 	cla
 	gs'stat'
 	gs'stat'
 	bodimodel = 1
 	bodimodel = 1
@@ -31,7 +33,7 @@ if $ARGS[0] = 'bodiart':
 end
 end
 
 
 if $ARGS[0] = 'bodiart1':
 if $ARGS[0] = 'bodiart1':
-	cls
+	*clr & cla
 	gs'stat'
 	gs'stat'
 	bodimodel = 1
 	bodimodel = 1
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/artstudio/downud1.jpg"></center>'
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/artstudio/downud1.jpg"></center>'
@@ -52,7 +54,7 @@ if $ARGS[0] = 'bodiart1':
 end
 end
 
 
 if $ARGS[0] = 'sgtusa':
 if $ARGS[0] = 'sgtusa':
-	cls
+	*clr & cla
 	gs'stat'
 	gs'stat'
 	tusa = 1
 	tusa = 1
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
@@ -62,7 +64,7 @@ if $ARGS[0] = 'sgtusa':
 end
 end
 
 
 if $ARGS[0] = 'sotusa':
 if $ARGS[0] = 'sotusa':
-    cls
+    *clr & cla
 	cla
 	cla
 	gs'stat'
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
 	'<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
@@ -75,7 +77,7 @@ if $ARGS[0] = 'sotusa':
 end
 end
 
 
 if $ARGS[0] = 'sptusa':
 if $ARGS[0] = 'sptusa':
-    cls
+    *clr & cla
 	cla
 	cla
 	gs'stat'
 	gs'stat'
 	arts = 1
 	arts = 1

+ 9 - 4
locations/dima.qsrc

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

+ 52 - 50
locations/dimaEv.qsrc

@@ -1,6 +1,8 @@
 # dimaEv
 # dimaEv
 !!files that can be deleted dima, dimagohome2, dimahome, dimkawarning, dimaev, dimaRudeEV
 !!files that can be deleted dima, dimagohome2, dimahome, dimkawarning, dimaev, dimaRudeEV
 
 
+menu_off = 1
+
 if $ARGS[0] = 'after_school':
 if $ARGS[0] = 'after_school':
 	if dimarudorient = 1: gt 'dimaHome', 'dimkaroom'
 	if dimarudorient = 1: gt 'dimaHome', 'dimkaroom'
 	gs 'stat'
 	gs 'stat'
@@ -13,7 +15,7 @@ if $ARGS[0] = 'after_school':
 	elseif fedorKozlovQW >= 10 or fedorKozlovQW = -15:
 	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'
 		'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':
 		act 'Sorry Fedor, but I''m with Dimka':
-			cls
+			*clr & cla
 			minut += 5
 			minut += 5
 			fedorKozlovQW = -1
 			fedorKozlovQW = -1
 			gs 'stat'
 			gs 'stat'
@@ -23,7 +25,7 @@ if $ARGS[0] = 'after_school':
 			act 'Go to Dimka''s room':gt 'dimaHome', 'dimkaroom'
 			act 'Go to Dimka''s room':gt 'dimaHome', 'dimkaroom'
 		end
 		end
 		act 'I''m with Fedor':
 		act 'I''m with Fedor':
-			cls
+			*clr & cla
 			minut += 5
 			minut += 5
 			gs 'stat'
 			gs 'stat'
 			'<center><b><h4><font color="maroon"><<"Dimka Nosov">></font></h4></b></center>'
 			'<center><b><h4><font color="maroon"><<"Dimka Nosov">></font></h4></b></center>'
@@ -60,7 +62,7 @@ if $ARGS[0] = 'after_school':
 		exit
 		exit
 	end
 	end
 	act 'Go with Dimka':
 	act 'Go with Dimka':
-		cls
+		*clr & cla
 		minut += 15
 		minut += 15
 		gs 'stat'
 		gs 'stat'
 		'<center><h4><font color="maroon">Dimka''s parent''s house</font></h4></center>'
 		'<center><h4><font color="maroon">Dimka''s parent''s house</font></h4></center>'
@@ -72,7 +74,7 @@ if $ARGS[0] = 'after_school':
 end
 end
 
 
 if $ARGS[0] = 'drugged':
 if $ARGS[0] = 'drugged':
-	cls
+	*clr & cla
 	minut += 15
 	minut += 15
 	narkday = daystart
 	narkday = daystart
 	pcs_health = pcs_vital * 10 + pcs_stren * 5
 	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>'
 	'<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.'
 	'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':
 	act 'Continue':
-		cls
+		*clr & cla
 		pcs_dom += 1
 		pcs_dom += 1
 		minut += 5
 		minut += 5
 		gs 'stat'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/pre.jpg"></center>'
 		'<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."'
 		'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':
 		act 'Take by mouth':
-			cls
+			*clr & cla
 			bja += 1
 			bja += 1
 			if maxdra = 0:maxdra = 1
 			if maxdra = 0:maxdra = 1
 			if maxdra = 6:maxdra = 5
 			if maxdra = 6:maxdra = 5
@@ -105,7 +107,7 @@ if $ARGS[0] = 'drugged':
 			gs 'stat'
 			gs 'stat'
 			if dimadalrand = 0:
 			if dimadalrand = 0:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 12
 					spafinloc = 12
 					gs 'cum_manage'
 					gs 'cum_manage'
 					swallow += 1
 					swallow += 1
@@ -141,7 +143,7 @@ if $ARGS[0] = 'drugged':
 				end
 				end
 			elseif dimadalrand = 1:
 			elseif dimadalrand = 1:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 11
 					spafinloc = 11
 					gs 'cum_manage'
 					gs 'cum_manage'
 					facial += 1
 					facial += 1
@@ -178,7 +180,7 @@ if $ARGS[0] = 'drugged':
 				end
 				end
 			elseif dimadalrand = 2:
 			elseif dimadalrand = 2:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 12
 					spafinloc = 12
 					gs 'cum_manage'
 					gs 'cum_manage'
 					swallow += 1
 					swallow += 1
@@ -222,13 +224,13 @@ if $ARGS[0] = 'drugged':
 				end
 				end
 			elseif dimadalrand = 3:
 			elseif dimadalrand = 3:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					if maxdra = 3:maxdra = 4
 					if maxdra = 3:maxdra = 4
 					gs 'stat'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/sit.jpg"></center>'
 					'<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.'
 					'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':
 					act 'Further':
-						cls
+						*clr & cla
 						spafinloc = 11
 						spafinloc = 11
 						gs 'cum_manage'
 						gs 'cum_manage'
 						facial += 1
 						facial += 1
@@ -265,7 +267,7 @@ if $ARGS[0] = 'drugged':
 				end
 				end
 			elseif dimadalrand = 4:
 			elseif dimadalrand = 4:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'boyStat', 'A1'
 					gs 'boyStat', 'A1'
 					silavag = 1
 					silavag = 1
 					dick = 16
 					dick = 16
@@ -307,7 +309,7 @@ if $ARGS[0] = 'drugged':
 				end
 				end
 			elseif dimadalrand = 5:
 			elseif dimadalrand = 5:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'boyStat', 'A1'
 					gs 'boyStat', 'A1'
 					silavag = 1
 					silavag = 1
 					dick = 16
 					dick = 16
@@ -346,7 +348,7 @@ if $ARGS[0] = 'drugged':
 				end
 				end
 			elseif dimadalrand = 6:
 			elseif dimadalrand = 6:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'stat'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/cum.jpg"></center>'
 					'<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.'
 					'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
 end
 
 
 if $ARGS[0] = 'cocaine':
 if $ARGS[0] = 'cocaine':
-	cls
+	*clr & cla
 	minut += 15
 	minut += 15
 	narkday = daystart
 	narkday = daystart
 	pcs_health = pcs_vital * 10 + pcs_stren * 5
 	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>'
 	'<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.'
 	'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':
 	act 'continue':
-		cls
+		*clr & cla
 		pcs_dom += 1
 		pcs_dom += 1
 		minut += 5
 		minut += 5
 		gs 'stat'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/pre.jpg"></center>'
 		'<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."'
 		'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':
 		act 'Take by mouth':
-			cls
+			*clr & cla
 			bja += 1
 			bja += 1
 			if maxdra = 0:maxdra = 1
 			if maxdra = 0:maxdra = 1
 			if maxdra = 6:maxdra = 5
 			if maxdra = 6:maxdra = 5
@@ -415,7 +417,7 @@ if $ARGS[0] = 'cocaine':
 			gs 'stat'
 			gs 'stat'
 			if dimadalrand = 0:
 			if dimadalrand = 0:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 12
 					spafinloc = 12
 					gs 'cum_manage'
 					gs 'cum_manage'
 					swallow += 1
 					swallow += 1
@@ -451,7 +453,7 @@ if $ARGS[0] = 'cocaine':
 				end
 				end
 			elseif dimadalrand = 1:
 			elseif dimadalrand = 1:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 11
 					spafinloc = 11
 					gs 'cum_manage'
 					gs 'cum_manage'
 					facial += 1
 					facial += 1
@@ -488,7 +490,7 @@ if $ARGS[0] = 'cocaine':
 				end
 				end
 			elseif dimadalrand = 2:
 			elseif dimadalrand = 2:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					spafinloc = 12
 					spafinloc = 12
 					gs 'cum_manage'
 					gs 'cum_manage'
 					swallow += 1
 					swallow += 1
@@ -532,13 +534,13 @@ if $ARGS[0] = 'cocaine':
 				end
 				end
 			elseif dimadalrand = 3:
 			elseif dimadalrand = 3:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					if maxdra = 3:maxdra = 4
 					if maxdra = 3:maxdra = 4
 					gs 'stat'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/sit.jpg"></center>'
 					'<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.'
 					'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':
 					act 'Further':
-						cls
+						*clr & cla
 						spafinloc = 11
 						spafinloc = 11
 						gs 'cum_manage'
 						gs 'cum_manage'
 						facial += 1
 						facial += 1
@@ -575,7 +577,7 @@ if $ARGS[0] = 'cocaine':
 				end
 				end
 			elseif dimadalrand = 4:
 			elseif dimadalrand = 4:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'boyStat', 'A1'
 					gs 'boyStat', 'A1'
 					silavag = 1
 					silavag = 1
 					dick = 16
 					dick = 16
@@ -617,7 +619,7 @@ if $ARGS[0] = 'cocaine':
 				end
 				end
 			elseif dimadalrand = 5:
 			elseif dimadalrand = 5:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'boyStat', 'A1'
 					gs 'boyStat', 'A1'
 					silavag = 1
 					silavag = 1
 					dick = 16
 					dick = 16
@@ -656,7 +658,7 @@ if $ARGS[0] = 'cocaine':
 				end
 				end
 			elseif dimadalrand = 6:
 			elseif dimadalrand = 6:
 				act 'Further':
 				act 'Further':
-					cls
+					*clr & cla
 					gs 'stat'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/cum.jpg"></center>'
 					'<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.'
 					'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
 end
 
 
 if $ARGS[0] = 'blackmail':
 if $ARGS[0] = 'blackmail':
-	cls
+	*clr & cla
 	gs 'stat'
 	gs 'stat'
 	'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
 	'<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>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/1.jpg"></center>'
 	if dimkawarn = 1:
 	if dimkawarn = 1:
-		cls
+		*clr & cla
 		minut += 5
 		minut += 5
 		sub += 10
 		sub += 10
 		dimkawarn = 0
 		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.'
 		'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'
 		act 'Continue': gt 'dimaEv', 'dimkaplays'
 	elseif dimkawarn >= 2:
 	elseif dimkawarn >= 2:
-		cls
+		*clr & cla
 		minut += 5
 		minut += 5
 		dimkawarn = 0
 		dimkawarn = 0
 		gs 'pain', 4, 'cheeks', 'hit'
 		gs 'pain', 4, 'cheeks', 'hit'
@@ -735,7 +737,7 @@ if $ARGS[0] = 'blackmail':
 end
 end
 
 
 if $ARGS[0] = 'dimkawarns':
 if $ARGS[0] = 'dimkawarns':
-	cls
+	*clr & cla
 	minut += 15
 	minut += 15
 	rape += 1
 	rape += 1
 	gs 'boyStat', 'A1'
 	gs 'boyStat', 'A1'
@@ -745,7 +747,7 @@ if $ARGS[0] = 'dimkawarns':
 	gs 'pain', 3, 'vaginal', 'tear'
 	gs 'pain', 3, 'vaginal', 'tear'
 	gs 'stat'
 	gs 'stat'
 	act 'Go home':
 	act 'Go home':
-		cls
+		*clr & cla
 		pee +=1
 		pee +=1
 		face_write = 1
 		face_write = 1
 		'<center><img <<$set_imgh>> src="images/shared/sex/dom/blowbang4.jpg"></center>'
 		'<center><img <<$set_imgh>> src="images/shared/sex/dom/blowbang4.jpg"></center>'
@@ -761,12 +763,12 @@ if $ARGS[0] = 'dimkawarns':
 end
 end
 
 
 if $ARGS[0] = 'dimkaplays':
 if $ARGS[0] = 'dimkaplays':
-	cls
+	*clr & cla
 	gs 'stat'
 	gs 'stat'
 	dimarudorient = 1
 	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.'
 	'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':
 	act 'Snort':
-		cls
+		*clr & cla
 		minut += 15
 		minut += 15
 		narkday = daystart
 		narkday = daystart
 		pcs_health = pcs_vital * 10 + pcs_stren * 5
 		pcs_health = pcs_vital * 10 + pcs_stren * 5
@@ -781,7 +783,7 @@ if $ARGS[0] = 'dimkaplays':
 		act 'Continue': gt 'dimaEv', 'dimkaplays2'
 		act 'Continue': gt 'dimaEv', 'dimkaplays2'
 	end
 	end
 	act 'Refuse':
 	act 'Refuse':
-		cls
+		*clr & cla
 		pcs_dom += 1
 		pcs_dom += 1
 		minut += 5
 		minut += 5
 		gs 'stat'
 		gs 'stat'
@@ -822,20 +824,20 @@ if $ARGS[0] = 'dimkaplays2':
 end
 end
 
 
 if $ARGS[0] = '0':
 if $ARGS[0] = '0':
-	cls
+	*clr & cla
 	gs 'pain', 2, 'armR', 'bind'
 	gs 'pain', 2, 'armR', 'bind'
 	gs 'pain', 2, 'armL', 'bind'
 	gs 'pain', 2, 'armL', 'bind'
 	gs 'stat'
 	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.'
 	'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':
 	act 'Further':
-		cls
+		*clr & cla
 		minut += 5
 		minut += 5
 		gs 'pain', 2, 'mouth', 'stretch'
 		gs 'pain', 2, 'mouth', 'stretch'
 		gs 'stat'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/ogag.jpg"></center>'
 		'<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.'
 		'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':
 		act 'Further':
-			cls
+			*clr & cla
 			spafinloc = 12
 			spafinloc = 12
 			gs 'cum_manage'
 			gs 'cum_manage'
 			swallow += 1
 			swallow += 1
@@ -853,7 +855,7 @@ if $ARGS[0] = '0':
 end
 end
 
 
 if $ARGS[0] = '1':
 if $ARGS[0] = '1':
-	cls
+	*clr & cla
 	if maxdradrug = 1:maxdradrug = 2
 	if maxdradrug = 1:maxdradrug = 2
 	spafinloc = 12
 	spafinloc = 12
 	gs 'cum_manage'
 	gs 'cum_manage'
@@ -869,7 +871,7 @@ if $ARGS[0] = '1':
 end
 end
 
 
 if $ARGS[0] = '2':
 if $ARGS[0] = '2':
-	cls
+	*clr & cla
 	gs 'boyStat', 'A1'
 	gs 'boyStat', 'A1'
 	silavag = 1
 	silavag = 1
 	dick = 16
 	dick = 16
@@ -888,7 +890,7 @@ if $ARGS[0] = '2':
 end
 end
 
 
 if $ARGS[0] = '3':
 if $ARGS[0] = '3':
-	cls
+	*clr & cla
 	gs 'boyStat', 'A1'
 	gs 'boyStat', 'A1'
 	silavag = 1
 	silavag = 1
 	dick = 16
 	dick = 16
@@ -903,7 +905,7 @@ if $ARGS[0] = '3':
 end
 end
 
 
 if $ARGS[0] = '4':
 if $ARGS[0] = '4':
-	cls
+	*clr & cla
 	if pcs_makeup ! 1:pcs_makeup = 0
 	if pcs_makeup ! 1:pcs_makeup = 0
 	pcs_throat += 5
 	pcs_throat += 5
 	minut += 15
 	minut += 15
@@ -917,7 +919,7 @@ if $ARGS[0] = '4':
 end
 end
 
 
 if $ARGS[0] = '5':
 if $ARGS[0] = '5':
-	cls
+	*clr & cla
 	spank += 1
 	spank += 1
 	minut += 15
 	minut += 15
 	sub += 5
 	sub += 5
@@ -931,7 +933,7 @@ if $ARGS[0] = '5':
 end
 end
 
 
 if $ARGS[0] = '6':
 if $ARGS[0] = '6':
-	cls
+	*clr & cla
 	if maxdradrug = 6:maxdradrug = 7
 	if maxdradrug = 6:maxdradrug = 7
 	if pcs_makeup ! 1:pcs_makeup = 0
 	if pcs_makeup ! 1:pcs_makeup = 0
 	sub += 5
 	sub += 5
@@ -954,7 +956,7 @@ if $ARGS[0] = '6':
 end
 end
 
 
 if $ARGS[0] = '7':
 if $ARGS[0] = '7':
-	cls
+	*clr & cla
 	gs 'pain', 9, 'pierce', 'tongue'
 	gs 'pain', 9, 'pierce', 'tongue'
 	if maxdradrug = 7:maxdradrug = 8
 	if maxdradrug = 7:maxdradrug = 8
 	if pcs_makeup ! 1:pcs_makeup = 0
 	if pcs_makeup ! 1:pcs_makeup = 0
@@ -974,7 +976,7 @@ if $ARGS[0] = '7':
 end
 end
 
 
 if $ARGS[0] = '8':
 if $ARGS[0] = '8':
-	cls
+	*clr & cla
 	gs 'pain', 9, 'pierce', 'labia'
 	gs 'pain', 9, 'pierce', 'labia'
 	if pcs_makeup ! 1:pcs_makeup = 0
 	if pcs_makeup ! 1:pcs_makeup = 0
 	sub += 5
 	sub += 5
@@ -993,7 +995,7 @@ if $ARGS[0] = '8':
 end
 end
 
 
 if $ARGS[0] = '9':
 if $ARGS[0] = '9':
-	cls
+	*clr & cla
 	bja += 1
 	bja += 1
 	spafinloc = 12
 	spafinloc = 12
 	gs 'cum_manage'
 	gs 'cum_manage'
@@ -1012,20 +1014,20 @@ if $ARGS[0] = '9':
 end
 end
 
 
 if $ARGS[0] = '10':
 if $ARGS[0] = '10':
-	cls
+	*clr & cla
 	gs 'stat'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/1.jpg"></center>'
 	'<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."'
 	'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.'
 	'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':
 	act 'Further':
-		cls
+		*clr & cla
 		gs 'boyStat', 'A1'
 		gs 'boyStat', 'A1'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/dimka/sex/ogag.jpg"></center>'
 		'<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.'
 		'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 'arousal', 'foreplay', 5, 'sub', 'humiliation'
 		gs 'stat'
 		gs 'stat'
 		act 'Further':
 		act 'Further':
-			cls
+			*clr & cla
 			spafinloc = 12
 			spafinloc = 12
 			gs 'cum_manage'
 			gs 'cum_manage'
 			swallow += 1
 			swallow += 1
@@ -1044,7 +1046,7 @@ end
 if $ARGS[0] = 'Dimka_warning':
 if $ARGS[0] = 'Dimka_warning':
 !!this one is if Dimka sends a warning
 !!this one is if Dimka sends a warning
 	if dimkawarn = 0:
 	if dimkawarn = 0:
-		cls
+		*clr & cla
 		pcs_mood -= 20
 		pcs_mood -= 20
 		DimkaWarnedToday = 1
 		DimkaWarnedToday = 1
 		dimkawarn += 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.'
 	   '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'
 	   act 'Move away':gt 'korrPar'
 	elseif dimkaWarn >= 1:
 	elseif dimkaWarn >= 1:
-		cls
+		*clr & cla
 		pcs_mood -= 20
 		pcs_mood -= 20
 		DimkaWarnedToday = 1
 		DimkaWarnedToday = 1
 		dimkawarn += 1
 		dimkawarn += 1

+ 60 - 15
locations/dimaHome.qsrc

@@ -1,6 +1,10 @@
 # dimaHome
 # dimaHome
 
 
+$menu_loc = 'dimaHome'
+
 if $ARGS[0] = 'home':
 if $ARGS[0] = 'home':
+	$menu_arg = 'home'
+	menu_off = 0
 	'<center><img <<$set_imgh>>	 src="images/locations/pavlovsk/resident/dimkahome/house.jpg"></center>'
 	'<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.'
 	'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:
 	if SchoolAtestat = 1 and kanikuli > 0:
@@ -33,9 +37,11 @@ if $ARGS[0] = 'home':
 end
 end
 
 
 if $ARGS[0] = 'hallway':
 if $ARGS[0] = 'hallway':
+	$menu_arg = 'hallway'
+	menu_off = 0
 	$location_type = 'indoors'
 	$location_type = 'indoors'
 	killvar '$locclass'
 	killvar '$locclass'
-	cls
+	*clr & cla
 	minut += 1
 	minut += 1
 	gs 'stat'
 	gs 'stat'
 	'<center><h4><font color="maroon">Entrance hall</font></h4></center>'
 	'<center><h4><font color="maroon">Entrance hall</font></h4></center>'
@@ -51,7 +57,9 @@ if $ARGS[0] = 'hallway':
 end
 end
 
 
 if $ARGS[0] = 'bathroom':
 if $ARGS[0] = 'bathroom':
-	cls
+	$menu_arg = 'bathroom'
+	menu_off = 0
+	*clr & cla
 	minut += 1
 	minut += 1
 	$metka = 'bathroom'
 	$metka = 'bathroom'
 	$loc = 'dimaHome'
 	$loc = 'dimaHome'
@@ -68,6 +76,8 @@ if $ARGS[0] = 'bathroom':
 end
 end
 
 
 if $ARGS[0] = 'livingroom':
 if $ARGS[0] = 'livingroom':
+	$menu_arg = 'livingroom'
+	menu_off = 0
 	*clr & cla
 	*clr & cla
 	$locclass = 'livingr'
 	$locclass = 'livingr'
 	minut += 1
 	minut += 1
@@ -79,6 +89,8 @@ if $ARGS[0] = 'livingroom':
 end
 end
 
 
 if $ARGS[0] = 'kitchen':
 if $ARGS[0] = 'kitchen':
+	$menu_arg = 'kitchen'
+	menu_off = 0
 	*clr & cla
 	*clr & cla
 	minut += 1
 	minut += 1
 	$locclass = 'kitr'
 	$locclass = 'kitr'
@@ -99,7 +111,9 @@ if $ARGS[0] = 'kitchen':
 end
 end
 
 
 if $ARGS[0] = 'study':
 if $ARGS[0] = 'study':
-	cls
+	$menu_arg = 'study'
+	menu_off = 0
+	*clr & cla
 	minut += 1
 	minut += 1
 	gs 'stat'
 	gs 'stat'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -127,9 +141,11 @@ if $ARGS[0] = 'study':
 end
 end
 
 
 if $ARGS[0] = 'hallway2':
 if $ARGS[0] = 'hallway2':
+	$menu_arg = 'hallway2'
+	menu_off = 0
 	$location_type = 'indoors'
 	$location_type = 'indoors'
 	killvar '$locclass'
 	killvar '$locclass'
-	cls
+	*clr & cla
 	minut += 1
 	minut += 1
 	gs 'stat'
 	gs 'stat'
 	'<center><h4><font color="maroon">Entrance hall</font></h4></center>'
 	'<center><h4><font color="maroon">Entrance hall</font></h4></center>'
@@ -145,7 +161,9 @@ if $ARGS[0] = 'hallway2':
 end
 end
 
 
 if $ARGS[0] = 'bathroom2':
 if $ARGS[0] = 'bathroom2':
-	cls
+	$menu_arg = 'bathroom2'
+	menu_off = 0
+	*clr & cla
 	minut += 1
 	minut += 1
 	$metka = 'bathroom'
 	$metka = 'bathroom'
 	$loc = 'dimaHome'
 	$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>'
 	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)':
 	act 'Take a shower (0:15)':
-		cls
+		*clr & cla
+		menu_off = 1
 		minut += 15
 		minut += 15
 		!!dynamic $showerdin
 		!!dynamic $showerdin
 		gs 'stat'
 		gs 'stat'
@@ -173,7 +192,8 @@ if $ARGS[0] = 'bathroom2':
 	end
 	end
 
 
 	act 'Soak in the bath (0:30)':
 	act 'Soak in the bath (0:30)':
-		cls
+		*clr & cla
+		menu_off = 1
 		minut += 30
 		minut += 30
 		pcs_sweat = 7 + rand(0,4)
 		pcs_sweat = 7 + rand(0,4)
 		pcs_mood += 20
 		pcs_mood += 20
@@ -218,19 +238,23 @@ if $ARGS[0] = 'bathroom2':
 end
 end
 
 
 if $ARGS[0] = 'dimkaroom':
 if $ARGS[0] = 'dimkaroom':
-	cls
+	*clr & cla
+	$menu_arg = 'dimkaroom'
+	menu_off = 0
 	minut += 1
 	minut += 1
 	DimaBeHomeOnce = 1
 	DimaBeHomeOnce = 1
 	gs 'stat'
 	gs 'stat'
 	'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
 	'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
 	'<center><img  src="images/locations/pavlovsk/resident/dimkahome/dimkaroom.jpg"></center>'
 	'<center><img  src="images/locations/pavlovsk/resident/dimkahome/dimkaroom.jpg"></center>'
 	if dimaFilm = 1:
 	if dimaFilm = 1:
+	menu_off = 1
 		gt 'dimaEv','blackmail'
 		gt 'dimaEv','blackmail'
 	else
 	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.'
 		'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 'Talk to Dimka':gt 'dimaHome','dimka_chat'
 		act 'Look around':
 		act 'Look around':
 			*clr
 			*clr
+			menu_off = 1
 			minut += 10
 			minut += 10
 			'<center><b><font color = maroon>Dimka''s room</font></b></center>'
 			'<center><b><font color = maroon>Dimka''s room</font></b></center>'
 			'<center><img  src="images/locations/pavlovsk/resident/dimkahome/dimkaroom.jpg"></center>'
 			'<center><img  src="images/locations/pavlovsk/resident/dimkahome/dimkaroom.jpg"></center>'
@@ -246,6 +270,8 @@ if $ARGS[0] = 'dimkaroom':
 end
 end
 
 
 if $ARGS[0] = 'dimkaparents':
 if $ARGS[0] = 'dimkaparents':
+	$menu_arg = 'dimkaparents'
+	menu_off = 0
 	*clr & cla
 	*clr & cla
 	minut += 1
 	minut += 1
 	$locclass = 'bedr'
 	$locclass = 'bedr'
@@ -254,7 +280,8 @@ if $ARGS[0] = 'dimkaparents':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/parentsroom.jpg"></center>'
 	'<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.'
 	'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':
 	act 'Look around':
-		*clr
+		*clr & cla
+		menu_off = 1
 		minut += 10
 		minut += 10
 		'<center><b><font color = maroon>Dimka''s parent''s room</font></b></center>'
 		'<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>'
 		'<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'
 		act 'Leave':gt 'dimaHome','hallway2'
 	end
 	end
 	act 'Go into master bathroom':
 	act 'Go into master bathroom':
-		cls
+		*clr & cla
 		minut += 1
 		minut += 1
 		$metka = 'bathroom'
 		$metka = 'bathroom'
 		$loc = 'dimaHome'
 		$loc = 'dimaHome'
 		$metkaM = 'bathroom'
 		$metkaM = 'bathroom'
 		$locM = 'dimaHome'
 		$locM = 'dimaHome'
+		menu_off = 1
 		killvar '$locclass'
 		killvar '$locclass'
 		gs 'stat'
 		gs 'stat'
 		$location_type = 'bathroom'
 		$location_type = 'bathroom'
@@ -278,7 +306,7 @@ if $ARGS[0] = 'dimkaparents':
 		*nl
 		*nl
 		if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 		if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 		act 'Take a shower':
 		act 'Take a shower':
-			cls
+			*clr & cla
 			minut += 10
 			minut += 10
 			dynamic $showerdin
 			dynamic $showerdin
 			gs 'stat'
 			gs 'stat'
@@ -291,7 +319,7 @@ if $ARGS[0] = 'dimkaparents':
 			end
 			end
 		end
 		end
 		act 'Take a bath':
 		act 'Take a bath':
-			cls
+			*clr & cla
 			minut += 20
 			minut += 20
 			dynamic $bath
 			dynamic $bath
 			gs 'stat'
 			gs 'stat'
@@ -314,6 +342,8 @@ end
 
 
 if $ARGS[0] = 'guest':
 if $ARGS[0] = 'guest':
 	*clr & cla
 	*clr & cla
+	$menu_arg = 'guest'
+	menu_off = 0
 	minut += 1
 	minut += 1
 	$locclass = 'bedr'
 	$locclass = 'bedr'
 	gs 'stat'
 	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.'
 	'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':
 	act 'Look around':
 		*clr & cla
 		*clr & cla
+		menu_off = 1
 		minut += 10
 		minut += 10
 		'<center><h4><font color="maroon">Guest Room</font></h4></center>'
 		'<center><h4><font color="maroon">Guest Room</font></h4></center>'
 		'<center><img  src="images/locations/pavlovsk/resident/dimkahome/guestroom.jpg"></center>'
 		'<center><img  src="images/locations/pavlovsk/resident/dimkahome/guestroom.jpg"></center>'
@@ -333,6 +364,8 @@ end
 
 
 if $ARGS[0] = 'basement':
 if $ARGS[0] = 'basement':
 	*clr & cla
 	*clr & cla
+	$menu_arg = 'basement'
+	menu_off = 0
 	minut += 1
 	minut += 1
 	'<center><h4><font color="maroon">Basement</font></h4></center>'
 	'<center><h4><font color="maroon">Basement</font></h4></center>'
 	'<center><img  src="images/locations/pavlovsk/resident/dimkahome/basement.jpg"></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 'Go back upstairs': gt 'dimaHome','hallway'
 	act 'Try the door':
 	act 'Try the door':
 		*clr & cla
 		*clr & cla
+		menu_off = 1
 		minut += 1
 		minut += 1
 		'<center><h4><font color="maroon">Basement</font></h4></center>'
 		'<center><h4><font color="maroon">Basement</font></h4></center>'
 		'<center><img  src="images/locations/pavlovsk/resident/dimkahome/basement.jpg"></center>'
 		'<center><img  src="images/locations/pavlovsk/resident/dimkahome/basement.jpg"></center>'
@@ -350,6 +384,7 @@ end
 
 
 if $ARGS[0] = 'kitchen1':
 if $ARGS[0] = 'kitchen1':
 	*clr & cla
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	minut += 1
 	gs 'stat'
 	gs 'stat'
 	'<center><b><font color = maroon>Kitchen</font></b></center>'
 	'<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."'
 	'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':
 	act 'Have a seat':
 		*clr & cla
 		*clr & cla
+		menu_off = 1
 		minut += 1
 		minut += 1
 		gs 'stat'
 		gs 'stat'
 		'<center><b><font color = maroon>Kitchen</font></b></center>'
 		'<center><b><font color = maroon>Kitchen</font></b></center>'
@@ -386,6 +422,7 @@ end
 
 
 if $ARGS[0] = 'kitchen2':
 if $ARGS[0] = 'kitchen2':
 	*clr & cla
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	minut += 1
 	gs 'stat'
 	gs 'stat'
 	'<center><b><font color = maroon>Kitchen</font></b></center>'
 	'<center><b><font color = maroon>Kitchen</font></b></center>'
@@ -425,7 +462,8 @@ if $ARGS[0] = 'kitchen2':
 end
 end
 
 
 if $ARGS[0] = 'study1':
 if $ARGS[0] = 'study1':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 1
 	minut += 1
 	gs 'stat'
 	gs 'stat'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
 	'<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?"'
 	'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.'
 	'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?':
 	act 'How do you know my name?':
-		cls
+		*clr & cla
 		minut += 1
 		minut += 1
 		gs 'stat'
 		gs 'stat'
 		'<center><h4><font color="maroon">Study</font></h4></center>'
 		'<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."'
 		'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."'
 		'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?':
 		act 'Dimka has mentioned me?':
-			cls
+			*clr & cla
 			minut += 1
 			minut += 1
 			gs 'stat'
 			gs 'stat'
 			'<center><h4><font color="maroon">Study</font></h4></center>'
 			'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -458,6 +496,7 @@ end
 
 
 if $ARGS[0] = 'study2':
 if $ARGS[0] = 'study2':
 	*clr & cla
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	minut += 1
 	gs 'stat'
 	gs 'stat'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -481,6 +520,7 @@ end
 
 
 if $ARGS[0] = 'study3':
 if $ARGS[0] = 'study3':
 	*clr & cla
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	minut += 1
 	gs 'stat'
 	gs 'stat'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -549,6 +589,7 @@ end
 
 
 if $ARGS[0] = 'study4':
 if $ARGS[0] = 'study4':
 	*clr & cla
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	minut += 1
 	gs 'stat'
 	gs 'stat'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
 	'<center><h4><font color="maroon">Study</font></h4></center>'
@@ -571,6 +612,7 @@ end
 
 
 if $ARGS[0] = 'dimka_chat':
 if $ARGS[0] = 'dimka_chat':
 	*clr & cla
 	*clr & cla
+	menu_off = 1
 	minut += 1
 	minut += 1
 	gs 'stat'
 	gs 'stat'
 	if dimaFilm = 1: gt 'dimaEv','blackmail'
 	if dimaFilm = 1: gt 'dimaEv','blackmail'
@@ -959,6 +1001,7 @@ end
 if $ARGS[0] = 'dimka_makeout':
 if $ARGS[0] = 'dimka_makeout':
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 1
 	'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
 	'<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>'
 	'<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.'
 	'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':
 if $ARGS[0] = 'dimka_makeout2':
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 1
 	'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
 	'<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>'
 	'<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.'
 	'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':
 if $ARGS[0] = 'dimka_knees':
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 1
 	gs 'clothing', 'strip'
 	gs 'clothing', 'strip'
 	'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
 	'<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>'
 	'<center><img src="images/characters/pavlovsk/school/boy/dimka/sex/home/kiss2.jpg"></center>'

+ 2 - 0
locations/dimaRevenge.qsrc

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

+ 17 - 8
locations/dinBoroda.qsrc

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

+ 37 - 23
locations/dinParty.qsrc

@@ -2,12 +2,13 @@
 
 
 !A random event in the toilet
 !A random event in the toilet
 if $ARGS[0] = 'party_toilet_event':
 if $ARGS[0] = 'party_toilet_event':
+	menu_off = 1
 	evt = rand(1,8)
 	evt = rand(1,8)
 	if toiletEvent_Girls = daystart:evt += 1
 	if toiletEvent_Girls = daystart:evt += 1
 	if toiletEvent_Rex = daystart:evt += 1
 	if toiletEvent_Rex = daystart:evt += 1
 	if toiletEvent_Sis = daystart:evt += 1
 	if toiletEvent_Sis = daystart:evt += 1
 	if toiletEvent_SisBoy = daystart:evt = 1
 	if toiletEvent_SisBoy = daystart:evt = 1
-	cls
+	*clr & cla
 	minut += 5
 	minut += 5
 	gs'stat'
 	gs'stat'
 	if evt = 1:
 	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>'
 		'<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.'
 		'You go into the bathroom, only to find Rex standing in there completely naked with a raging hard on.'
 		act 'Help':
 		act 'Help':
-			cls
+			*clr & cla
 			toiletEvent_Rex = daystart
 			toiletEvent_Rex = daystart
 			gs'stat'
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_2.jpg"></center>'
 			'<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'
 			gs 'stat'
 			
 			
 			act 'Masturbate':
 			act 'Masturbate':
-				cls
+				*clr & cla
 				gs'stat'
 				gs'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_' + rand(3,4) + '.jpg"></center>'
 				'<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.'
 				'Breaking the kiss you put your full attention on jerking Rex off.'
@@ -45,7 +46,7 @@ if $ARGS[0] = 'party_toilet_event':
 				gs 'stat'
 				gs 'stat'
 				
 				
 				act 'Cum':
 				act 'Cum':
-					cls
+					*clr & cla
 					minut += 5
 					minut += 5
 					gs 'boyStat', 'A57'
 					gs 'boyStat', 'A57'
 					spafinloc = 15
 					spafinloc = 15
@@ -61,7 +62,7 @@ if $ARGS[0] = 'party_toilet_event':
 				end
 				end
 			end
 			end
 			act 'Suck':
 			act 'Suck':
-				cls
+				*clr & cla
 				if reksMeet = 1:bja += 1
 				if reksMeet = 1:bja += 1
 				gs 'boyStat', 'A57'
 				gs 'boyStat', 'A57'
 				gs'stat'
 				gs'stat'
@@ -73,7 +74,7 @@ if $ARGS[0] = 'party_toilet_event':
 				gs 'stat'
 				gs 'stat'
 			
 			
 				act 'Cum':
 				act 'Cum':
-					cls
+					*clr & cla
 					minut += 5
 					minut += 5
 					gs 'boyStat', 'A57'
 					gs 'boyStat', 'A57'
 					spafinloc = 12
 					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.'
 		'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.'
 		'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':
 		act 'Lick':
-			cls
+			*clr & cla
 			toiletEvent_Sis = daystart
 			toiletEvent_Sis = daystart
 			minut += 5
 			minut += 5
 			gs 'boyStat', 'A56'
 			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.'
 		'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.'
 		'"Ahaha, Lena, your such a bitch sometimes and that''s why I love you." Moaned Ira.'
 		act 'Watch':
 		act 'Watch':
-			cls
+			*clr & cla
 			gs'stat'
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_2.jpg"></center>'
 			'<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.'
 			'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'
 			gs 'stat'
 			
 			
 			act 'Watch':
 			act 'Watch':
-				cls
+				*clr & cla
 				gs'stat'
 				gs'stat'
 				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_3.mp4"></video></center>'
 				'<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.'
 				'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'
 				gs 'stat'
 			
 			
 				act 'Go in':
 				act 'Go in':
-					cls
+					*clr & cla
 					minut += 5
 					minut += 5
 					gs'stat'
 					gs'stat'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_4.jpg"></center>'
 					'<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.'
 					'"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."'
 					'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':
 					act 'Stay':
-						cls
+						*clr & cla
 						gs'stat'
 						gs'stat'
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_5.jpg"></center>'
 						'<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.'
 						'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'
 						gs 'stat'
 			
 			
 						act 'Enjoy':
 						act 'Enjoy':
-							cls
+							*clr & cla
 							pcs_mood = 100
 							pcs_mood = 100
 							gs'stat'
 							gs'stat'
 							'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_6.mp4"></video></center>'
 							'<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'
 							gs 'stat'
 			
 			
 							act 'Chat':
 							act 'Chat':
-								cls
+								*clr & cla
 								minut += 5
 								minut += 5
 								gs'stat'
 								gs'stat'
 								'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_7.mp4"></video></center>'
 								'<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':
 if $ARGS[0] = 'toilet_mast':
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 1
 	if pcs_inhib < 30:inhib_exp += rand(1,3)
 	if pcs_inhib < 30:inhib_exp += rand(1,3)
 	gs'stat'
 	gs'stat'
 	i = rand(1,3)
 	i = rand(1,3)
@@ -240,6 +242,7 @@ end
 if $ARGS[0] = 'dj':
 if $ARGS[0] = 'dj':
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 1
 	minut += 5
 	minut += 5
 	dj_beer =1
 	dj_beer =1
 	gs'stat'
 	gs'stat'
@@ -251,6 +254,7 @@ end
 if $ARGS[0] = 'dj_beer':
 if $ARGS[0] = 'dj_beer':
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 1
 	minut += 5
 	minut += 5
 	dj_thank =1
 	dj_thank =1
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
 	'<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':
 if $ARGS[0] = 'dj_thank':
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 1
 	minut += 5
 	minut += 5
 	dj_bad =1
 	dj_bad =1
 	instrmusic_exp += rand(0,2) 
 	instrmusic_exp += rand(0,2) 
@@ -277,6 +282,7 @@ end
 if $ARGS[0] = 'dj_boobs':
 if $ARGS[0] = 'dj_boobs':
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 1
 	minut += 5
 	minut += 5
 	dj_boobs = 1
 	dj_boobs = 1
 	gs'stat'
 	gs'stat'
@@ -290,6 +296,7 @@ end
 if $ARGS[0] = 'dj_cock':
 if $ARGS[0] = 'dj_cock':
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 1
 	minut += 5
 	minut += 5
 	gs'stat'
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_3.jpg"></center>'
 	'<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':
 if $ARGS[0] = 'dj_suck':
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 1
 	minut += 5
 	minut += 5
 	gs'stat'
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_4.jpg"></center>'
 	'<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':
 if $ARGS[0] = 'boys_swalow':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	minut += 5
 	swallow += 1
 	swallow += 1
 	i = 5
 	i = 5
@@ -385,7 +394,8 @@ if $ARGS[0] = 'boys_swalow':
 end
 end
 
 
 if $ARGS[0] = 'boys_spit':
 if $ARGS[0] = 'boys_spit':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	minut += 5
 	i = 5
 	i = 5
 	:dinPartySpitloop
 	:dinPartySpitloop
@@ -406,7 +416,8 @@ if $ARGS[0] = 'boys_spit':
 end
 end
 
 
 if $ARGS[0] = 'rex_talk':
 if $ARGS[0] = 'rex_talk':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	minut += 5
 	rex_talk += 1
 	rex_talk += 1
 	gs'stat'	
 	gs'stat'	
@@ -418,7 +429,8 @@ if $ARGS[0] = 'rex_talk':
 end
 end
 
 
 if $ARGS[0] = 'rex_hug':
 if $ARGS[0] = 'rex_hug':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	minut += 5
 	if pcs_inhib < 40:inhib_exp += rand(1,2)
 	if pcs_inhib < 40:inhib_exp += rand(1,2)
 	gs'stat'
 	gs'stat'
@@ -430,7 +442,7 @@ if $ARGS[0] = 'rex_hug':
 		'You grab his neck and audible groan completely given into his affections.'
 		'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.'
 		'You are flooded with the most pleasant feeling in the world, you don''t want it to stop.'
 		act 'Kiss':
 		act 'Kiss':
-			cls
+			*clr & cla
 			*clr
 			*clr
 			gs'stat'
 			gs'stat'
 			i = rand(1,2)
 			i = rand(1,2)
@@ -464,7 +476,8 @@ if $ARGS[0] = 'rex_hug':
 end
 end
 
 
 if $ARGS[0] = 'rex_dance':
 if $ARGS[0] = 'rex_dance':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	minut += 5
 	if pcs_inhib < 40:inhib_exp += rand(1,2)
 	if pcs_inhib < 40:inhib_exp += rand(1,2)
 	gs'stat'
 	gs'stat'
@@ -479,7 +492,8 @@ if $ARGS[0] = 'rex_dance':
 end
 end
 
 
 if $ARGS[0] = 'sleep':
 if $ARGS[0] = 'sleep':
-	cls
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	minut += 5
 	gs'stat'
 	gs'stat'
 	if Rex_save =1 and Rex_Love =1:
 	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.'
 		'After sleeping some time, you are suddenly awakened by someone yelling at you to wake up while they slap you.'
 		act 'Wake up':
 		act 'Wake up':
-			cls
+			*clr & cla
 			minut += 90
 			minut += 90
 			gs'stat'
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
 			'<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
 	else
 		if hour < 9 and hour > 3 :
 		if hour < 9 and hour > 3 :
 			hour=9
 			hour=9
-			cls
+			*clr & cla
 			gs'stat'
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
 			'<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'
 			'Anya shakes you until you slowly wake up'
@@ -653,7 +667,7 @@ if $ARGS[0] = 'sleep':
 			gs 'stat'
 			gs 'stat'
 			act 'Go home':minut += 15 & gt'bedrPar'
 			act 'Go home':minut += 15 & gt'bedrPar'
 		else
 		else
-			cls
+			*clr & cla
 			minut += 90
 			minut += 90
 			gs'stat'
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_4_1.jpg"></center>'
 			'<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
 # din_pav
+
 $pavserjil = {
 $pavserjil = {
-	cls
-	cla
+	menu_off = 1
+	*clr & cla
 	gs'stat'
 	gs'stat'
 	
 	
 	set pavserhom = 1
 	set pavserhom = 1
@@ -11,8 +12,8 @@ $pavserjil = {
 }
 }
 
 
 $koncepodos = {
 $koncepodos = {
-	cls
-	cla
+	*clr & cla
+	menu_off = 1
 	gs'stat'
 	gs'stat'
 	set koncepo = 0
 	set koncepo = 0
 	pcs_mood -= 10
 	pcs_mood -= 10
@@ -32,12 +33,11 @@ $koncepodos = {
                 
                 
         end              
         end              
     end
     end
-
 }
 }
 
 
 $koncepodos1 = {
 $koncepodos1 = {
-	cls
-	cla
+	*clr & cla
+	menu_off = 1
     minut += 5
     minut += 5
     set psiha = 0
     set psiha = 0
 	pcs_mood -= 10
 	pcs_mood -= 10
@@ -64,9 +64,8 @@ $koncepodos1 = {
     act 'View apartment':gt'koncepod1','krr2x1'
     act 'View apartment':gt'koncepod1','krr2x1'
 }
 }
 
 
-$pavser = {
-    
-    
+$pavser = {  
+	menu_off = 1
     if pcs_hairbsh = 1:pcs_hairbsh = 0
     if pcs_hairbsh = 1:pcs_hairbsh = 0
 	pcs_mood -= 10
 	pcs_mood -= 10
     gs'stat'
     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.'
     '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 pcs_dom > SUB:act 'Speak':dynamic $pavser1
     if SUB > pcs_dom:act 'Leave':pavserhom = 3 & psiha = 1 & gt'dvor'
     if SUB > pcs_dom:act 'Leave':pavserhom = 3 & psiha = 1 & gt'dvor'
-
 }
 }
 
 
 $pavser2 = {
 $pavser2 = {
+	menu_off = 1
     psi1day = 0
     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'
     '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,'
     '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.'
     '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.'
     '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.'
     '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 = {
 $pavser1 = {
-    cla
-    *clr
+	*clr & cla
+	menu_off = 1
     psiho = 1
     psiho = 1
     pcs_pcs_manna = pcs_pcs_manna - 30
     pcs_pcs_manna = pcs_pcs_manna - 30
     gs'stat'
     gs'stat'
     '<center><img <<$set_imgh>> src="images/characters/oldtown/pavser/pavserjil.jpg" ></center>'
     '<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.'
     '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?':
     act 'Who you are?':
-        cla
-        *clr
-        
+        *clr & cla        
         pcs_pcs_manna = pcs_pcs_manna - 30
         pcs_pcs_manna = pcs_pcs_manna - 30
         gs'stat'
         gs'stat'
 		'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
 		'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
@@ -112,9 +107,7 @@ $pavser1 = {
         '- Through the door.'
         '- 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.'
         '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...':
         act 'I''m a fool Fool...':
-            cla
-            *clr
-            
+            *clr & cla            
             gs'stat'
             gs'stat'
 			'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
 			'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
             '<center><img <<$set_imgh>> src="images/characters/oldtown/pavser/pavserjil.jpg" ></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.'
             '- 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.'
             'Her surprised, that it is so easy to communicate with him, and not gone directly from this Strange.'
             act '- I draw old houses.':
             act '- I draw old houses.':
-                cla
-                *clr
+                *clr & cla
                 arnksg = 1
                 arnksg = 1
                 gs'stat'
                 gs'stat'
 				'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
 				'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
@@ -134,9 +126,7 @@ $pavser1 = {
                 '- Do you intend to rent an apartment? - You ask.'
                 '- Do you intend to rent an apartment? - You ask.'
                 '- And you? - Now his voice sounded hoarse.'
                 '- And you? - Now his voice sounded hoarse.'
                 act '- I have not decided yet.':
                 act '- I have not decided yet.':
-                    cla
-                    *clr
-                    
+                    *clr & cla
                     pcs_hairbsh = 1
                     pcs_hairbsh = 1
                     set psihb = 0
                     set psihb = 0
                     
                     
@@ -157,12 +147,12 @@ $pavser1 = {
 }
 }
 
 
 $pavser3 = {
 $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.'
     '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.':
     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_pcs_manna = pcs_pcs_manna - 50
         pcs_horny += 20
         pcs_horny += 20
         gs'stat'
         gs'stat'
@@ -188,13 +178,12 @@ $pavser3 = {
             pcs_dom = pcs_dom + 1
             pcs_dom = pcs_dom + 1
             gt'koncepod1','krr2x'
             gt'koncepod1','krr2x'
         end
         end
-    end
-    
+    end   
 }
 }
 
 
 $pavser4 = {
 $pavser4 = {
-    cla
-    *clr
+    *clr & cla
+	menu_off = 1
     pcs_manna = pcs_manna + 60
     pcs_manna = pcs_manna + 60
     piss = piss + 1
     piss = piss + 1
     
     
@@ -210,8 +199,7 @@ $pavser4 = {
 	
 	
     if pcs_horny >= 95:
     if pcs_horny >= 95:
         act 'Touch yourself':
         act 'Touch yourself':
-            cla
-            *clr
+            *clr & cla
             psi1day = 1
             psi1day = 1
             psiha = 1
             psiha = 1
             gs'stat'
             gs'stat'
@@ -223,8 +211,7 @@ $pavser4 = {
 			gs 'stat'
 			gs 'stat'
 			
 			
             act '...':
             act '...':
-                cla
-                *clr
+                *clr & cla
 				pcs_mood = 100
 				pcs_mood = 100
                 '<center><video autoplay loop src="images/locations/oldtown/vacanthouse/11684312.mp4"></video></center>'
                 '<center><video autoplay loop src="images/locations/oldtown/vacanthouse/11684312.mp4"></video></center>'
 				$orgasm_or = 'custom'
 				$orgasm_or = 'custom'
@@ -244,11 +231,10 @@ $pavser4 = {
 }
 }
 
 
 $pavser5 = {
 $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.'
     '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':
     act 'Further':
-        cla
-        *clr
+		*clr & cla
         gs'stat'
         gs'stat'
         '<center><img <<$set_imgh>> src="images/characters/oldtown/pavser/pavserjil.jpg" ></center>'
         '<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.'
         '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'
             act 'In the corridor':gt'koncepod1','krr2x'
         end
         end
     end
     end
-
 }
 }
 
 
 
 
 $pavser6 = {
 $pavser6 = {
+	menu_off = 1
     psihb = 1
     psihb = 1
     psiho = 3
     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.'
     '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.'
     '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.'
     '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 = {
 $pavser7 = {
+	menu_off = 1
     'Then the phone rang inappropriate.'
     'Then the phone rang inappropriate.'
     act 'Answer':
     act 'Answer':
-        cla
-        *clr
+        *clr & cla
         SUB = SUB + 5
         SUB = SUB + 5
         pcs_horny += 10
         pcs_horny += 10
         gs'stat'
         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 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.'
         '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.'
         '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
         act 'Listen tube':dynamic $pavser8
     end
     end
-
 }
 }
 
 
 $pavser8 = {
 $pavser8 = {
-	cls
+	*clr & cla
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
 	'<center><img <<$set_imgh>> src="'+FUNC('$face_image')+'"></center>'
     pcs_horny +=10
     pcs_horny +=10
     pcs_manna = pcs_manna - 50
     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?'
     '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.'
     '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':
     act 'The Hall':
-		cls
+		*clr & cla
         pcs_manna = mannamax
         pcs_manna = mannamax
         pcs_horny += 20
         pcs_horny += 20
         gs'stat'
         gs'stat'
@@ -339,12 +324,11 @@ $pavser8 = {
         'You oyknula, but the words never sounded, they drowned in your own mind.'
         'You oyknula, but the words never sounded, they drowned in your own mind.'
         act 'Oh':dynamic $pavser9
         act 'Oh':dynamic $pavser9
     end
     end
-
 }
 }
 
 
 $pavser9 = {
 $pavser9 = {
-    cla
-    *clr
+    *clr & cla
+	menu_off = 1
     pcs_willpwr = pcs_willpwr - 100
     pcs_willpwr = pcs_willpwr - 100
     gs'stat'
     gs'stat'
     
     
@@ -358,8 +342,7 @@ $pavser9 = {
 	gs 'stat'
 	gs 'stat'
 	
 	
 	act 'Further':
 	act 'Further':
-        cla
-        *clr
+        *clr & cla
         gs'stat'
         gs'stat'
         '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/01.jpg" ></center>'
         '<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.'
         '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'
 		gs 'stat'
 		
 		
         act 'Further':
         act 'Further':
-            cla
-            *clr
+            *clr & cla
             gs'stat'
             gs'stat'
             '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/02.jpg" ></center>'
             '<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.'
             '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'
 			gs 'stat'
 		
 		
             act 'Further':
             act 'Further':
-                cla
-                *clr
+                *clr & cla
                 gs'stat'
                 gs'stat'
                 '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/03.jpg" ></center>'
                 '<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.'
                 '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'
 				gs 'stat'
 		
 		
                 act 'Further':
                 act 'Further':
-                    cla
-                    *clr
+                    *clr & cla
 			        pcs_manna = mannamax
 			        pcs_manna = mannamax
                     gs'stat'
                     gs'stat'
                     '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/05.jpg" ></center>'
                     '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/05.jpg" ></center>'
@@ -404,8 +384,7 @@ $pavser9 = {
 					gs 'stat'
 					gs 'stat'
 					
 					
                     act 'Further':
                     act 'Further':
-                        cla
-                        *clr
+                        *clr & cla
                         gs'stat'
                         gs'stat'
                         '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/04.jpg" ></center>'
                         '<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.'
                         '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'
 						gs 'stat'
 						
 						
                         act '...':
                         act '...':
-                            cla
-                            *clr
+                            *clr & cla
 			                pcs_manna = mannamax
 			                pcs_manna = mannamax
 			                gs 'underwear', 'remove'
 			                gs 'underwear', 'remove'
                             gs'stat'
                             gs'stat'
@@ -429,8 +407,7 @@ $pavser9 = {
 							gs 'stat'
 							gs 'stat'
 							
 							
                             act '...':
                             act '...':
-                                cla
-                                *clr
+                                *clr & cla
                                 gs'stat'
                                 gs'stat'
 								gs 'npcgeneratec', 0, 'Stranger', rand(19,45)
 								gs 'npcgeneratec', 0, 'Stranger', rand(19,45)
 								gs 'boyStat', $npclastgenerated
 								gs 'boyStat', $npclastgenerated
@@ -444,8 +421,7 @@ $pavser9 = {
 								gs 'stat'
 								gs 'stat'
 								
 								
                                 act '...':
                                 act '...':
-                                    cla
-                                    *clr
+                                    *clr & cla
 			                        pcs_manna = mannamax
 			                        pcs_manna = mannamax
                                     gs'stat'
                                     gs'stat'
                                     '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/08.jpg" ></center>'
                                     '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/08.jpg" ></center>'
@@ -455,8 +431,7 @@ $pavser9 = {
 									gs 'stat'
 									gs 'stat'
 									
 									
                                     act '...':
                                     act '...':
-                                        cla
-                                        *clr
+                                        *clr & cla
                                         gs'stat'
                                         gs'stat'
                                         '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/09.jpg" ></center>'
                                         '<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...'
                                         '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'
 										gs 'stat'
 										
 										
                                         act '...':
                                         act '...':
-                                            cla
-                                            *clr
+                                            *clr & cla
                                             orgasm += 1
                                             orgasm += 1
 				                            pcs_horny = 0
 				                            pcs_horny = 0
 											pcs_mood = 100
 											pcs_mood = 100
@@ -479,8 +453,7 @@ $pavser9 = {
 											gs 'stat'
 											gs 'stat'
 									
 									
                                             act '...':
                                             act '...':
-                                                cla
-                                                *clr
+                                                *clr & cla
                                                 gs'stat'
                                                 gs'stat'
                                                 '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/sex/11.jpg" ></center>'
                                                 '<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.'
                                                 '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 = {
 $pavser10 = {
-    cla
-    *clr
+	*clr & cla
+	menu_off = 1
     psi1day = 1
     psi1day = 1
     pcs_sweat += 20
     pcs_sweat += 20
     spafinloc = 14
     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
 !!!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':
 if $ARGS[0] =  'father act 1':
+	menu_off = 1
     if pcs_horny >= 40 or TouchedByFather=1:
     if pcs_horny >= 40 or TouchedByFather=1:
         act 'You feel like teasing him':
         act 'You feel like teasing him':
             cls
             cls
@@ -31,6 +32,7 @@ if $ARGS[0] =  'father act 1':
 end
 end
 
 
 if $ARGS[0] =  'father act 2':
 if $ARGS[0] =  'father act 2':
+	menu_off = 1
     if pcs_horny >= 60 or TouchedByFather=1:
     if pcs_horny >= 60 or TouchedByFather=1:
         act 'Stare at his groin as you talk':
         act 'Stare at his groin as you talk':
             cls
             cls
@@ -59,6 +61,7 @@ if $ARGS[0] =  'father act 2':
 end
 end
 
 
 if $ARGS[0] =  'father act 3':
 if $ARGS[0] =  'father act 3':
+	menu_off = 1
     if pcs_horny >= 80 or TouchedByFather=1:
     if pcs_horny >= 80 or TouchedByFather=1:
         act 'Spread your legs':
         act 'Spread your legs':
             cls
             cls
@@ -91,6 +94,7 @@ end
 
 
 if $ARGS[0] =  'father 1':
 if $ARGS[0] =  'father 1':
     !He hates you
     !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.'
     '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:
     if sorryday!daystart:
         act 'Apologize':
         act 'Apologize':
@@ -106,6 +110,7 @@ end
 
 
 if $ARGS[0] =  'father 2':
 if $ARGS[0] =  'father 2':
     !He doesn''t like you very much
     !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.'
     '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:
     if sorryday!daystart:
         act 'Try to get on his good side':
         act 'Try to get on his good side':
@@ -158,6 +163,7 @@ end
 !_____________________Button "Chat" garage _____________________________
 !_____________________Button "Chat" garage _____________________________
 
 
 if $ARGS[0] =  'gar_act1':
 if $ARGS[0] =  'gar_act1':
+	menu_off = 1
     if pcs_horny >= 50 or TouchedByFather=1:
     if pcs_horny >= 50 or TouchedByFather=1:
         act 'You feel like teasing him':
         act 'You feel like teasing him':
             cls
             cls
@@ -187,6 +193,7 @@ if $ARGS[0] =  'gar_act1':
 end
 end
 
 
 if $ARGS[0] =  'gar_act2':
 if $ARGS[0] =  'gar_act2':
+	menu_off = 1
     if pcs_horny >= 90 or TouchedByFather=1:
     if pcs_horny >= 90 or TouchedByFather=1:
         act 'Stare at his groin as you talk':
         act 'Stare at his groin as you talk':
             cls
             cls
@@ -216,6 +223,7 @@ if $ARGS[0] =  'gar_act2':
 end
 end
 
 
 if $ARGS[0] =  'gar_act3':
 if $ARGS[0] =  'gar_act3':
+	menu_off = 1
     if pcs_horny >= 100 or TouchedByFather=1:
     if pcs_horny >= 100 or TouchedByFather=1:
         act 'Spread your legs':
         act 'Spread your legs':
             cls
             cls
@@ -248,6 +256,7 @@ end
 !_____________________Button "VIEW WITH TV" in the apartment _____________________________
 !_____________________Button "VIEW WITH TV" in the apartment _____________________________
 
 
 if $ARGS[0] =  'watchtv_act1':
 if $ARGS[0] =  'watchtv_act1':
+	menu_off = 1
     if pcs_horny >= 0 or TouchedByFather=1:
     if pcs_horny >= 0 or TouchedByFather=1:
         act 'Lean your head against his chest':
         act 'Lean your head against his chest':
             cls
             cls
@@ -338,6 +347,7 @@ if $ARGS[0] =  'watchtv_act2':
 end
 end
 
 
 if $ARGS[0] =  'watchtv_act3':
 if $ARGS[0] =  'watchtv_act3':
+	menu_off = 1
     act 'Spread your legs':
     act 'Spread your legs':
         cls
         cls
         gs 'arousal', 'flash', 5
         gs 'arousal', 'flash', 5
@@ -363,6 +373,7 @@ end
 
 
 if $ARGS[0] =  'watchtv1':
 if $ARGS[0] =  'watchtv1':
     !scandal stepfather
     !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.'
     '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:
     if sorryday!daystart:
         act 'Apologize':
         act 'Apologize':
@@ -379,6 +390,7 @@ end
 
 
 if $ARGS[0] =  'watchtv2':
 if $ARGS[0] =  'watchtv2':
     !strained relations
     !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.'
     '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:
     if sorryday!daystart:
         act 'Try to get on his good side':
         act 'Try to get on his good side':
@@ -431,6 +443,7 @@ end
 !_____________________FOR booze in the garage _____________________________
 !_____________________FOR booze in the garage _____________________________
 
 
 $d_fatherdrunk_act[1]={
 $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.'
     '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:
     if pcs_horny >= 50 and sosedknow=1:
         act 'Show him your breasts':
         act 'Show him your breasts':
@@ -459,6 +472,7 @@ $d_fatherdrunk_act[1]={
 }
 }
 
 
 $d_fatherdrunk_act[2]={
 $d_fatherdrunk_act[2]={
+	menu_off = 1
     if pcs_horny >= 90 or TouchedByFather=1:
     if pcs_horny >= 90 or TouchedByFather=1:
         act 'Get their attention by dropping your bottle':
         act 'Get their attention by dropping your bottle':
         cls
         cls
@@ -501,6 +515,7 @@ $d_fatherdrunk_act[2]={
 }
 }
 
 
 $d_fatherdrunk_act[3]={
 $d_fatherdrunk_act[3]={
+	menu_off = 1
     if pcs_horny >= 100 or TouchedByFather=1:
     if pcs_horny >= 100 or TouchedByFather=1:
         act 'Spread your legs':
         act 'Spread your legs':
         cls
         cls
@@ -528,6 +543,7 @@ $d_fatherdrunk_act[3]={
 }
 }
 
 
 if $ARGS[0] = 'garchat':
 if $ARGS[0] = 'garchat':
+	menu_off = 1
     npc_rel['A28'] += 1
     npc_rel['A28'] += 1
     fatherTalk = rand (1,5)
     fatherTalk = rand (1,5)
     if fatherTalk = 1:
     if fatherTalk = 1:
@@ -545,6 +561,7 @@ if $ARGS[0] = 'garchat':
 end
 end
 
 
 if $ARGS[0] = 'garhelpchat':
 if $ARGS[0] = 'garhelpchat':
+	menu_off = 1
     npc_rel['A28'] += 1
     npc_rel['A28'] += 1
     fatherTalk = rand (1,5)
     fatherTalk = rand (1,5)
     if fatherTalk = 1:
     if fatherTalk = 1:
@@ -562,6 +579,7 @@ if $ARGS[0] = 'garhelpchat':
 end
 end
 
 
 if $ARGS[0] = 'gardrunkchat':
 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!"'
     '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)
     fatherTalk = rand (1,3)
     if fatherTalk = 1:
     if fatherTalk = 1:

+ 2 - 0
locations/dinmother.qsrc

@@ -2,6 +2,7 @@
 
 
 $d_mother[1]={
 $d_mother[1]={
 	!scandal with my mother
 	!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.'
 	'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:
 	if mothersorryday!daystart:
 		act 'Apologize':
 		act 'Apologize':
@@ -16,6 +17,7 @@ $d_mother[1]={
 }
 }
 $d_mother[2]={
 $d_mother[2]={
 	!strained relations
 	!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.'
 	'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:
 	if mothersorryday!daystart:
 		act 'Try to get on her good side':
 		act 'Try to get on her good side':

+ 21 - 16
locations/dinnpc.qsrc

@@ -1,7 +1,8 @@
 # dinnpc
 # dinnpc
 $din_predlog_dima_bj = {
 $din_predlog_dima_bj = {
+	menu_off = 1
 	act 'Get down on your knees':
 	act 'Get down on your knees':
-		cls
+		*clr & cla
 		DimaRudeQW += 1
 		DimaRudeQW += 1
 		sub += 1
 		sub += 1
 		gs 'stat'
 		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.'
 		'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':
 		act 'Take it into your mouth':
-			cls
+			*clr & cla
 			bja += 1
 			bja += 1
 			dick = 16
 			dick = 16
 
 
@@ -24,7 +25,7 @@ $din_predlog_dima_bj = {
 			gs 'stat'
 			gs 'stat'
 			
 			
 			act 'Deepthroat him':
 			act 'Deepthroat him':
-				cls
+				*clr & cla
 				pcs_throat += 2
 				pcs_throat += 2
 				dick = 16
 				dick = 16
 
 
@@ -47,7 +48,7 @@ $din_predlog_dima_bj = {
 				gs 'stat'
 				gs 'stat'
 			
 			
 				act 'Catch your breath':
 				act 'Catch your breath':
-					cls
+					*clr & cla
 					minut += 5
 					minut += 5
 					gs 'boyStat', 'A1'
 					gs 'boyStat', 'A1'
 					gs 'cum_call','face', $boy, 1,'','',20
 					gs 'cum_call','face', $boy, 1,'','',20
@@ -70,8 +71,9 @@ $din_predlog_dima_bj = {
 }
 }
 
 
 $din_dima_predlog = {
 $din_dima_predlog = {
+	menu_off = 1
 	act 'Who does he think you are?! - Slap him':
 	act 'Who does he think you are?! - Slap him':
-		cls
+		*clr & cla
 		pcs_dom += 1
 		pcs_dom += 1
 		npc_rel[$static_num] = 0
 		npc_rel[$static_num] = 0
 		gs 'stat'
 		gs 'stat'
@@ -85,7 +87,7 @@ $din_dima_predlog = {
 	end
 	end
 
 
 	act '... is he serious? Think about what he said for a moment':
 	act '... is he serious? Think about what he said for a moment':
-		cls
+		*clr & cla
 		gs 'stat'
 		gs 'stat'
 		'<center><b><font color="maroon"><<$npc_firstname[$static_num]>> <<$npc_lastname[$static_num]>></font></b></center>'
 		'<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>'
 		'<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?"'
 		'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':
 		act 'That does it! - Slap him':
-			cls
+			*clr & cla
 			pcs_dom += 1
 			pcs_dom += 1
 			npc_rel[$static_num] = 0
 			npc_rel[$static_num] = 0
 			gs 'stat'
 			gs 'stat'
@@ -107,7 +109,7 @@ $din_dima_predlog = {
 		end
 		end
 
 
 		act '"And you promise not to tell anyone?"':
 		act '"And you promise not to tell anyone?"':
-			cls
+			*clr & cla
 			pcs_dom += 1
 			pcs_dom += 1
 			gs 'stat'
 			gs 'stat'
 			'<center><b><font color="maroon"><<$npc_firstname[$static_num]>> <<$npc_lastname[$static_num]>></font></b></center>'
 			'<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 = {
 $din_igor_disco_bj = {
+	menu_off = 1
 	act 'Get down on your knees':
 	act 'Get down on your knees':
-		cls
+		*clr & cla
 
 
 		if npcSex[numnpc] = 0:npcSex[numnpc] = 1 & guy += 1
 		if npcSex[numnpc] = 0:npcSex[numnpc] = 1 & guy += 1
 
 
@@ -150,8 +153,9 @@ $din_igor_disco_bj = {
 }
 }
 
 
 $din_igor_dima_disco_bj = {
 $din_igor_dima_disco_bj = {
+	menu_off = 1
 	act 'Get down on your knees':
 	act 'Get down on your knees':
-		cls
+		*clr & cla
 
 
 		if npcSex[numnpc] = 0:npcSex[numnpc] = 1 & guy += 1
 		if npcSex[numnpc] = 0:npcSex[numnpc] = 1 & guy += 1
 
 
@@ -174,8 +178,9 @@ gs 'cum_manage'
 }
 }
 
 
 $din_igor__disco = {
 $din_igor__disco = {
+	menu_off = 1
 	act 'Leave the disco':
 	act 'Leave the disco':
-		cls
+		*clr & cla
 		gs 'stat'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/4.jpg"></center>'
 		'<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."'
 		'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 'Refuse him and leave':gt $loc, $metka
 
 
 		act 'Agree - He''s kinda cute':
 		act 'Agree - He''s kinda cute':
-			cls
+			*clr & cla
 			IgorLoverQW = 1
 			IgorLoverQW = 1
 			gs 'stat'
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/4.jpg"></center>'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/4.jpg"></center>'
@@ -192,7 +197,7 @@ $din_igor__disco = {
 
 
 			if pcs_dom > 0:
 			if pcs_dom > 0:
 				act 'Stop him - If you go out with him, it''ll be on your terms':
 				act 'Stop him - If you go out with him, it''ll be on your terms':
-					cls
+					*clr & cla
 					pcs_dom += 5
 					pcs_dom += 5
 					IgorDominaQW = 1
 					IgorDominaQW = 1
 					gs 'stat'
 					gs 'stat'
@@ -202,7 +207,7 @@ $din_igor__disco = {
 
 
 					if pcs_dom >= 10:
 					if pcs_dom >= 10:
 						act 'Yes, you do - "You may kiss my feet"':
 						act 'Yes, you do - "You may kiss my feet"':
-							cls
+							*clr & cla
 							IgorLove += 20
 							IgorLove += 20
 							gs 'stat'
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/leg.jpg"></center>'
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/leg.jpg"></center>'
@@ -218,7 +223,7 @@ $din_igor__disco = {
 					end
 					end
 
 
 					act 'Well, let''s not overdo it - Kiss him':
 					act 'Well, let''s not overdo it - Kiss him':
-						cls
+						*clr & cla
 						IgorLove += 10
 						IgorLove += 10
 						gs 'stat'
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
 						'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
@@ -234,7 +239,7 @@ $din_igor__disco = {
 			end
 			end
 
 
 			act 'Let Igor kiss you':
 			act 'Let Igor kiss you':
-				cls
+				*clr & cla
 				IgorLove += 5
 				IgorLove += 5
 				gs 'stat'
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
 				'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'

+ 3 - 0
locations/dinsexgivi.qsrc

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

+ 9 - 6
locations/dinsister.qsrc

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

+ 5 - 3
locations/divan.qsrc

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

+ 2 - 0
locations/dk.qsrc

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

+ 27 - 24
locations/dolls.qsrc

@@ -6,9 +6,12 @@
 if $ARGS[0] = 'start':
 if $ARGS[0] = 'start':
 	$metka = 'start'
 	$metka = 'start'
 	$loc = 'dolls'
 	$loc = 'dolls'
+	$menu_arg = 'start'
+	$menu_loc = 'dolls'
+	menu_off = 0
 	$location_type = 'public_indoors'
 	$location_type = 'public_indoors'
+	*clr & cla
 	if Anush_dolls = 0:Anush_dolls = 1
 	if Anush_dolls = 0:Anush_dolls = 1
-	clr
 	minut += 2
 	minut += 2
 	gs 'stat'
 	gs 'stat'
 	gs 'themes', 'indoors'
 	gs 'themes', 'indoors'
@@ -28,8 +31,7 @@ if $ARGS[0] = 'start':
 	end
 	end
 
 
 	act 'Browse clothing':
 	act 'Browse clothing':
-		cla
-		*clr
+		*clr & cla
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/city/island/dolls/dollsshop.jpg"></center>'
 		'<center><img <<$set_imgh>> src="images/locations/city/island/dolls/dollsshop.jpg"></center>'
 		''
 		''
@@ -60,7 +62,10 @@ end
 if $ARGS[0] = 'clothing':
 if $ARGS[0] = 'clothing':
 	$metka = 'clothing'
 	$metka = 'clothing'
 	$loc = 'dolls'
 	$loc = 'dolls'
-	cls
+	$menu_arg = 'clothing'
+	$menu_loc = 'dolls'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 	gs'stat'
 	'<center><b><font color="maroon">Viewing Patchwork Dolls clothing</font></b></center>'
 	'<center><b><font color="maroon">Viewing Patchwork Dolls clothing</font></b></center>'
 	*nl
 	*nl
@@ -107,8 +112,10 @@ end
 if $ARGS[0] = 'shoes':
 if $ARGS[0] = 'shoes':
 	$metka = 'shoes'
 	$metka = 'shoes'
 	$loc = 'dolls'
 	$loc = 'dolls'
-	*clr
-	cla
+	$menu_arg = 'purses'
+	$menu_loc = 'shoes'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 	gs'stat'
 
 
 	act 'Return':
 	act 'Return':
@@ -134,8 +141,10 @@ if $ARGS[0] = 'dolls_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'dolls',i, 20
 if $ARGS[0] = 'purses':
 if $ARGS[0] = 'purses':
 	$metka = 'purses'
 	$metka = 'purses'
 	$loc = 'dolls'
 	$loc = 'dolls'
-	*clr
-	cla
+	$menu_arg = 'purses'
+	$menu_loc = 'dolls'
+	menu_off = 0
+	*clr & cla
 	gs'stat'
 	gs'stat'
 
 
 	act 'Return':
 	act 'Return':
@@ -155,8 +164,8 @@ end
 if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'dolls',i, 2000
 if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'dolls',i, 2000
 
 
 if $ARGS[0] = 'savva':
 if $ARGS[0] = 'savva':
-	*clr
-	cla
+	*clr & cla
+	menu_off = 1
 	'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 	'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/savva/savva.jpg"></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/savva/savva.jpg"></center>'
 	if know_Savva = 0:
 	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?"'
 		'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
 	end
 	act 'Ask him about the shop':
 	act 'Ask him about the shop':
-		*clr
-		cla
+		*clr & cla
 		npc_rel['A204'] += 2
 		npc_rel['A204'] += 2
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/city/savva/savva.jpg"></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.
 !!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:
 	if Anush_dolls = 2:
 		act 'Anushka sent me':
 		act 'Anushka sent me':
-			*clr
-			cla
+			*clr & cla
 			npc_rel['A204'] += 3
 			npc_rel['A204'] += 3
 			'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 			'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 			'<center><img <<$set_imgh>> src="images/characters/city/savva/savva.jpg"></center>'
 			'<center><img <<$set_imgh>> src="images/characters/city/savva/savva.jpg"></center>'
@@ -193,16 +200,14 @@ if $ARGS[0] = 'savva':
 		end
 		end
 	end
 	end
 	act 'Flirt with him':
 	act 'Flirt with him':
-		*clr
-		cla
+		*clr & cla
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/city/savva/savva.jpg"></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.'
 		'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'
 		act 'Continue': gt 'dolls', 'savva'
 	end
 	end
 	act 'Chat with him':
 	act 'Chat with him':
-		*clr
-		cla
+		*clr & cla
 		know_Savva = 1
 		know_Savva = 1
 		npc_rel['A204'] += 3
 		npc_rel['A204'] += 3
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
@@ -215,8 +220,8 @@ if $ARGS[0] = 'savva':
 end
 end
 
 
 if $ARGS[0] = 'viola':
 if $ARGS[0] = 'viola':
-	*clr
-	cla
+	*clr & cla
+	menu_off = 1
 	'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 	'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/viola/viola.jpg"></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/viola/viola.jpg"></center>'
 	if know_Viola = 0:
 	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.
 !!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:
 	if Anush_dolls = 2:
 		act 'Anushka sent me':
 		act 'Anushka sent me':
-			*clr
-			cla
+			*clr & cla
 			Anush_dolls = 3
 			Anush_dolls = 3
 			npc_rel['A205'] += 5
 			npc_rel['A205'] += 5
 			'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 			'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
@@ -252,8 +256,7 @@ if $ARGS[0] = 'viola':
 		end
 		end
 	end
 	end
 	act 'Flirt with her':
 	act 'Flirt with her':
-		*clr
-		cla
+		*clr & cla
 		npc_rel['A205'] += 3
 		npc_rel['A205'] += 3
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/city/viola/viola.jpg"></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
 # dom_gor
 
 
+menu_off = 1
+
 $metkaM = $ARGS[0]
 $metkaM = $ARGS[0]
 $locM = $CURLOC
 $locM = $CURLOC
 $metka = $ARGS[0]
 $metka = $ARGS[0]

+ 18 - 11
locations/dorm.qsrc

@@ -3,12 +3,23 @@ if $ARGS[0] = 'start':
 	cla
 	cla
 	*clr
 	*clr
 	minut += 5
 	minut += 5
+	$menu_loc = 'dorm'
+	$menu_arg = 'start'
+	menu_off = 0
 	gs 'stat'
 	gs 'stat'
 	gs 'themes', 'indoors'
 	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Dormitory</font></b></center>'
 	'<center><b><font color="maroon">Dormitory</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></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.'
 		'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'
 		act 'Leave': minut += 5 & gt 'island'
@@ -64,13 +75,6 @@ if $ARGS[0] = 'start':
 			gt 'dorm', 'korr'
 			gt 'dorm', 'korr'
 		end
 		end
 	end
 	end
-
-	act 'Leave':
-		cla
-		minut += 5
-		reccoldorm = 0
-		gt 'island'
-	end
 end
 end
 
 
 if $ARGS[0] = 'korr':
 if $ARGS[0] = 'korr':
@@ -81,9 +85,7 @@ if $ARGS[0] = 'korr':
 	menu_off = 0
 	menu_off = 0
 	$location_type = 'public_indoors'
 	$location_type = 'public_indoors'
 	killvar '$locclass'
 	killvar '$locclass'
-	cla
-	clr
-	*clr
+	*clr & cla
 	gs 'stat'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/obkorr.jpg"></center>'
 	'<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.'
 	'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:
 	if gosh > 0 and hour >= 8 and hour < 22:
 		act 'Gosha''s room':
 		act 'Gosha''s room':
 			cla
 			cla
+			menu_off = 1
 			minut += 15
 			minut += 15
 			gs 'stat'
 			gs 'stat'
 			'Gosha opens the door and invites you inside.'
 			'Gosha opens the door and invites you inside.'
@@ -197,6 +200,7 @@ end
 
 
 if $ARGS[0] = 'demarcusfuck':
 if $ARGS[0] = 'demarcusfuck':
 	cla
 	cla
+	menu_off = 1
 	$location_type = 'event'
 	$location_type = 'event'
 	reccoldorm = 0
 	reccoldorm = 0
 	demarcusflag = 0
 	demarcusflag = 0
@@ -367,6 +371,7 @@ if $ARGS[0] = 'demarcusfuck':
 end
 end
 
 
 if $ARGS[0] = 'afragangfuck':
 if $ARGS[0] = 'afragangfuck':
+	menu_off = 1
 	$location_type = 'event'
 	$location_type = 'event'
 	reccoldorm = 0
 	reccoldorm = 0
 	afraflag = 0
 	afraflag = 0
@@ -471,6 +476,7 @@ if $ARGS[0] = 'afragangfuck':
 end
 end
 
 
 if $ARGS[0] = 'kendrafuck':
 if $ARGS[0] = 'kendrafuck':
+	menu_off = 1
 	$location_type = 'event'
 	$location_type = 'event'
 	reccoldorm = 0
 	reccoldorm = 0
 	kendraflag = 0
 	kendraflag = 0
@@ -705,6 +711,7 @@ if $ARGS[0] = 'kendrafuck':
 end
 end
 
 
 if $ARGS[0] = 'goshifuck':
 if $ARGS[0] = 'goshifuck':
+	menu_off = 1
 	$location_type = 'event'
 	$location_type = 'event'
 	reccoldorm = 0
 	reccoldorm = 0
 	goshiflag = 0
 	goshiflag = 0

+ 9 - 1
locations/dort.qsrc

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

+ 4 - 1
locations/down.qsrc

@@ -2,6 +2,9 @@
 
 
 $metka = $ARGS[0]
 $metka = $ARGS[0]
 $loc = 'down'
 $loc = 'down'
+$menu_loc = 'down'
+$menu_arg = ''
+menu_off = 0
 $location_type = 'public_outdoors'
 $location_type = 'public_outdoors'
 killvar '$locclass'
 killvar '$locclass'
 CLOSE ALL
 CLOSE ALL
@@ -58,6 +61,7 @@ if tanwork = 1:act '<b>GO HOME</b> (Tanyas apartment)':gt 'tanhouse'
 if shantpopala > 0:
 if shantpopala > 0:
 	cla
 	cla
 	*clr
 	*clr
+	menu_off = 0
 	hour += 8
 	hour += 8
 	spafinloc = 14
 	spafinloc = 14
 	gs 'cum_manage'
 	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>.'
 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'
 act 'Wait':gs 'obj_din', 'wait'
 
 
 gs 'taxi'
 gs 'taxi'

+ 12 - 5
locations/downlibrary.qsrc

@@ -2,6 +2,9 @@
 
 
 $metka = $ARGS[0]
 $metka = $ARGS[0]
 $loc = $CURLOC
 $loc = $CURLOC
+$menu_loc = 'downlibrary'
+$menu_arg = ''
+menu_off = 0
 $location_type = 'public_indoors'
 $location_type = 'public_indoors'
 frost = 0
 frost = 0
 gs 'stat'
 gs 'stat'
@@ -14,7 +17,8 @@ act 'Leave the library': minut += 5 & gt 'down'
 
 
 if hour >= 8 and hour <= 18:
 if hour >= 8 and hour <= 18:
 	act 'Read a science book (1:00)':
 	act 'Read a science book (1:00)':
-		cls
+		*clr & cla
+		menu_off = 1
 		if blizoruk = 100 or glassqw = 1:
 		if blizoruk = 100 or glassqw = 1:
 		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
 		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
 	end
 
 
 	act 'Read an entertaining book (1:00)':
 	act 'Read an entertaining book (1:00)':
-		cls
+		*clr & cla
+		menu_off = 1
 		if blizoruk = 100 or glassqw = 1:
 		if blizoruk = 100 or glassqw = 1:
 		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
 		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
 	end
 
 
 	act 'Read the collected works of Leo Tolstoy (1:00)':
 	act 'Read the collected works of Leo Tolstoy (1:00)':
-		cls
+		*clr & cla
+		menu_off = 1
 		if blizoruk = 100 or glassqw = 1:
 		if blizoruk = 100 or glassqw = 1:
 		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
 		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
 	end
 	if MagicLibrary = 1:
 	if MagicLibrary = 1:
 		act 'Read in magic books':
 		act 'Read in magic books':
-			cls
+			*clr & cla
+			menu_off = 1
 			if blizoruk = 100 or glassqw = 1:
 			if blizoruk = 100 or glassqw = 1:
 			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
 			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
 	end
 	
 	
 else
 else
-	'	The library is closed.'
+	'The library is closed.'
 end
 end
 
 
 
 

+ 2 - 0
locations/dreams.qsrc

@@ -1,5 +1,7 @@
 # dreams
 # dreams
 
 
+menu_off = 1
+
 if $ARGS[0] = 'start':
 if $ARGS[0] = 'start':
 	if stepdadqw = 3:
 	if stepdadqw = 3:
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/bath_voyer_1.jpg"></center>'
 		'<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
 # dvor
+
+menu_off = 1
 $location_type = 'public_outdoors'
 $location_type = 'public_outdoors'
 set minut += 5
 set minut += 5
 gs 'stat'
 gs 'stat'

+ 5 - 7
locations/pavComplex.qsrc

@@ -21,7 +21,7 @@ if $ARGS[0] = 'start':
 		end
 		end
 	end
 	end
 
 
-	cls
+	*clr & cla
 	litltown = 1
 	litltown = 1
 	alkoblock = 0
 	alkoblock = 0
 	boynumBlock = 0
 	boynumBlock = 0
@@ -161,12 +161,10 @@ if $ARGS[0] = 'courtyard':
 			if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
 			if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
 		end
 		end
 	end
 	end
-	*clr
-	cla
+	*clr & cla
 	gs 'stat'
 	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>'
 	'<center>Courtyard</center>'
 	if month >= 11 or month <= 3:
 	if month >= 11 or month <= 3:
 		if hour >= 8 and hour <= 21:
 		if hour >= 8 and hour <= 21:
@@ -183,7 +181,7 @@ if $ARGS[0] = 'courtyard':
 	end
 	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.'
 	'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'
 	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 '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 Southern apartment building':minut += 1 & gt 'pod_ezd', 'etaj_1'
 	act 'Go to the Eastern apartment building':
 	act 'Go to the Eastern apartment building':