glife.qproj

@@ -366,6 +366,7 @@
 		<Location name="pavComplexb2"/>
 		<Location name="pavComplexb3"/>
 		<Location name="pavComplexOld"/>
+		<Location name="pavaptcourtev"/>
 		<Location name="pod_ezd"/>
 		<Location name="pod_whore"/>
 		<Location name="gopsex"/>
@@ -548,6 +549,7 @@
 		<Location name="pavResidential"/>
 		<Location name="pavCommercial"/>
 		<Location name="pavCommercialOffices"/>
+		<Location name="pavIndustrial"/>
 		<Location name="leonid"/>
 		<Location name="gargazel"/>
 		<Location name="garfather"/>
@@ -556,11 +558,6 @@
 		<Location name="soniaDisco"/>
 		<Location name="gkafe"/>
 		<Location name="motherkafeboss"/>
-		<Location name="glake"/>
-		<Location name="gLakeNude"/>
-		<Location name="gLakeNudeEvent"/>
-		<Location name="gLakeNudeForest"/>
-		<Location name="LakeBoyZ"/>
 		<Location name="gpoli"/>
 		<Location name="therapist"/>
 		<Location name="gevent"/>
@@ -570,11 +567,6 @@
 		<Location name="cafe_parco"/>
 		<Location name="kotovEv"/>
 		<Location name="IvanEv"/>
-		<Location name="FedorEv"/>
-		<Location name="FedorEv2"/>
-		<Location name="FedorEv3"/>
-		<Location name="FedorEv4"/>
-		<Location name="FedorMisc"/>
 		<Location name="strela"/>
 		<Location name="kotovSex"/>
 		<Location name="kotovdom"/>
@@ -586,15 +578,19 @@
 		<Location name="ParChurch2"/>
 		<Location name="brothel"/>
 	</Folder>
-	<Folder name="Starlets">
-		<Location name="DanceWhore1"/>
-		<Location name="DanceWhore2"/>
-		<Location name="DanceWhore3"/>
-		<Location name="DanceWhore4"/>
-		<Location name="DanceWhore5"/>
-		<Location name="DanceWhore6"/>
-		<Location name="DanceWhore7"/>
-		<Location name="DanceWhore8"/>
+	<Folder name="pav_lake">
+		<Location name="glake"/>
+		<Location name="gLakeNude"/>
+		<Location name="gLakeNudeEvent"/>
+		<Location name="gLakeNudeForest"/>
+		<Location name="LakeBoyZ"/>
+	</Folder>
+	<Folder name="Fedor">
+		<Location name="FedorEv"/>
+		<Location name="FedorEv2"/>
+		<Location name="FedorEv3"/>
+		<Location name="FedorEv4"/>
+		<Location name="FedorMisc"/>
 	</Folder>
 	<Folder name="School">
 		<Location name="gschool_grounds"/>
@@ -696,6 +692,7 @@
 		<Location name="albinaporog"/>
 		<Location name="AlbFatherQW"/>
 		<Location name="AlbStarsEnd"/>
+		<Location name="AlbStarsWhore"/>
 	</Folder>
 	<Folder name="Lariska">
 		<Location name="LariskaStart"/>
@@ -930,28 +927,7 @@
 	<Folder name="Casino">
 		<Location name="casino"/>
 		<Location name="mqroom"/>
-		<Location name="authors3"/>
-		<Location name="amrul"/>
-		<Location name="saloon"/>
 		<Location name="hotel"/>
-		<Location name="igravt"/>
-		<Location name="igrkart2"/>
-		<Location name="kazvar"/>
-		<Location name="cards"/>
-		<Location name="croupier"/>
-		<Location name="croupier2"/>
-		<Location name="elevator"/>
-		<Location name="Maria1"/>
-		<Location name="number1"/>
-		<Location name="number2"/>
-		<Location name="number3"/>
-		<Location name="number4"/>
-		<Location name="result"/>
-		<Location name="roulette"/>
-		<Location name="rate"/>
-		<Location name="hall"/>
-		<Location name="blackjackPlay"/>
-		<Location name="blackjackView"/>
 		<Location name="deckShuffle"/>
 	</Folder>
 	<Folder name="Menu">
@@ -1053,7 +1029,6 @@
 	</Folder>
 	<Folder name="Deck of cards">
 		<Location name="card"/>
-		<Location name="blackjack"/>
 	</Folder>
 	<Folder name="Hotel">
 		<Location name="HotelHole"/>

locations/AlbStarsWhore.qsrc

@@ -0,0 +1,1019 @@
+# AlbStarsWhore
+
+menu_off = 1
+
+if $ARGS[0] = 'whore1':
+	minut += 5
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(24,40)
+	gs 'boyStat', $npclastgenerated
+	gs 'stat'
+	'The man leads you by the hand into the hotel room. When he flips on the lights, you immediately notice that it''s a luxury room. You smile thinking, it looks like you made the right choice.'
+	act 'Kneel':
+		cls
+		guy += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bj.jpg"></center>'
+		'Efficiently, you get in his pants and begin working on him with your hand. He is rock hard in no time.'
+		'Looking him in the eye, you lick his cock from base to tip, and then give the head a little kiss.'
+		'When you finally take his entire length into your mouth, "Oh, God", is his only response.'
+		gs 'arousal', 'hj', 10, 'sub'
+		gs 'arousal', 'bj', 10, 'sub'
+		minut -= 10
+		gs 'stat'
+		tipdarand = rand(0, 2)
+
+		if tipdarand = 0:
+			'He puts his hands on your head, and pushes insistently at you mouth.'
+			act 'Relax your throat':
+				cls
+
+				if pcs_throat < dick:pcs_throat += 1
+
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/throat.jpg"></center>'
+
+				if pcs_throat < dick / 2:
+					pcs_mood = 5
+					pcs_horny = 0
+					'The man begins to frantically fuck your mouth.'
+					'You do you best to take it, while drool drips from your mouth, snot runs from your nose, and tears well up in your eyes.'
+					gs 'arousal', 'bj', 10, 'sub', 'rough'
+					gs 'stat'
+				elseif pcs_throat >= dick / 2 and pcs_throat < dick:
+					pcs_mood -= 20
+					pcs_horny = pcs_horny/2
+					'He begins roughly using your mouth.'
+					'You take his cock down your throat as best you, but still gag a little when he goes deep.'
+					'You never would have thought gagging on a stranger''s dick could be such a turn-on.'
+					gs 'arousal', 'bj', 10, 'sub', 'rough'
+					gs 'stat'
+				elseif pcs_throat >= dick:
+					'Holding you head, the man forcefully guides you up and down his shaft.'
+					'You take the full length of his cock with ease. Your lips make it all the way down to the base, and his balls slap against your chin.'
+					'The sensation of deep-throating this strange mans dick is getting you all wet.'
+					gs 'arousal', 'bj', 10, 'sub', 'rough'
+					gs 'stat'
+				end
+
+				tipdarand = rand(0, 1)
+				if tipdarand = 0:
+					'Without warning, the man grabs your hair, and holds your head down on his shaft.'
+					'You let out a strangled gurgle, as jets of semen hit the back of your throat.'
+					gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
+					gs 'stat'
+					act 'Swallow':
+						cls
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/swallow.jpg"></center>'
+						'You greedily suck down as much of his cum as for can.'
+						'By the time the time he is finished your entire face feels like a wet runny mess.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				elseif tipdarand = 1:
+					'After a few minutes he takes his cock out of your mouth, and starts jerking himself in front of your face.'
+					gs 'arousal', 'bj', 10, 'sub'
+					gs 'stat'
+					act 'Close your eyes':
+						cls
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facial.jpg"></center>'
+						'Warm jets of semen begin to splatter against your face. You make little sounds of encouragement, until with a groan, he finishes with one last spurt that hits you right on the lips.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				end
+			end
+		elseif tipdarand = 1:
+			'After a few minutes he says: "I want your ass, girl."'
+
+			act 'Give him your ass':
+				cls
+				spafinloc = 3
+				gs 'cum_manage'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/anal.jpg"></center>'
+				'Yoy present your ass to him, with a little giggle, you give it a wiggle.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
+				gs 'arousal', 'anal', 30, 'sub'
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Call a taxi': gt 'gdksport', 'cab_home'
+			end
+		elseif tipdarand = 2:
+			'After a few minutes he says: "I''m ready for that pussy."'
+
+			act 'Lie on your back.':
+				cls
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/sex.jpg"></center>'
+				'You spread your legs for him, and motion him to you invitingly.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinsex','vaginal_sex',10
+				gs 'dinsex','sexcum'
+				gs 'arousal', 'vaginal', 30, 'sub'
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Call a taxi': gt 'gdksport', 'cab_home'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'whore2':
+	minut += 5
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,23)
+	gs 'boyStat', $npclastgenerated
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,23)
+
+	gs 'stat'
+	'Shyly, the boys lead you into their hotel room.'
+	'You think it''s sweet that they look a little nervous. Deciding to put their minds at ease, you take action.'
+	act 'Get their pants off':
+		cls
+		guy += 2
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bjd.jpg"></center>'
+		'Squatting down in front of the boys, you give them each a turn. Licking their shafts and giving little sucking kisses to their heads, you have them hard in no time.'
+		'By the time you start sucking them in earnest, they both have warm smiles of appreciation on their faces.'
+		gs 'arousal', 'bj', 10, 'sub', 'group'
+		gs 'stat'
+		tipdarand = rand(0, 1)
+
+		if tipdarand = 0:
+			'No longer nervous, one of the boys moves behind you and works his hand between your cheeks.'
+			'"That is one tight little ass you have there baby", he whispers in your ear.'
+			'You let out a little moan, when his finger finds your pucker and slowly begins to massage it.'
+			'The other boy impatiently taps his dick against your mouth, urging you to get back to work.'
+			gs 'arousal', 'bj', 10, 'sub', 'group'
+			gs 'arousal', 'anal_finger', 10, 'sub', 'group'
+			minut -= 10
+			gs 'stat'
+			act 'Get spit-roasted':
+				cls
+				minut += 30
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/d.jpg"></center>'
+				'You suckle at the tip of one boys cock, while the other gets ready to enter your ass. You wiggle your hips in anticipation.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
+				spafinloc = 3
+				gs 'arousal', 'bj', 30, 'sub', 'group'
+				gs 'arousal', 'anal', 30, 'sub', 'group'
+				minut -= 30
+				gs 'stat'
+				gs 'cum_manage'
+				!! {Setup for #2}
+				gs 'boyStat', $npclastgenerated
+				tipdarand = rand(0, 1)
+
+				if tipdarand = 0:
+					'The man in your mouth groans, and suddenly you mouth is filled with wet warmth.'
+					act 'Swallow it':
+						cls
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/swallow.jpg"></center>'
+						'Choking slightly, you frantically swallow cum, until his cock finishes pouring his seed into your mouth.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				elseif tipdarand = 1:
+					'The man at your mouth takes hold of his cock, and starts to jerk it. It''s pointed right at your face.'
+					act 'Open your mouth':
+						cls
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facial.jpg"></center>'
+						'Cum splatters into your mouth, and across your face. It doesn''t stop until it''s dripping from your chin.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				end
+			end
+		elseif tipdarand = 1:
+			'The boys lay you on the sofa. One of them settles between your legs, while the other dangles his cock near your face.'
+			act 'Part your lips':
+				cls
+				!!stat['vaginal'] += 1
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/d1.jpg"></center>'
+				'You begin to suck dick, while the other guy spreads your legs.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinsex','vaginal_sex',10
+				gs 'dinsex','sexcum'
+				gs 'arousal', 'bj', 30, 'sub', 'group'
+				gs 'arousal', 'vaginal', 30, 'sub', 'group'
+				minut -= 30
+				gs 'stat'
+				tipdarand = rand(0, 1)
+				!! {Setup for #2}
+				gs 'boyStat', $npclastgenerated
+
+				if tipdarand = 0:
+					'The man in your mouth groans, and suddenly you mouth is filled with wet warmth.'
+					act 'Swallow it':
+						cls
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/swallow.jpg"></center>'
+						'Choking slightly you frantically swallow cum, until his cock finishes pouring his seed into your mouth.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				elseif tipdarand = 1:
+					'The man at your mouth takes hold of his cock, and starts to jerk it. It''s pointed right at your face.'
+
+					act 'Open your mouth':
+						cls
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facial.jpg"></center>'
+						'Cum splatters into your mouth, and across your face. It doesn''t stop until it''s dripping from your face.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'whore3':
+	minut += 5
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+	gs 'boyStat', $npclastgenerated
+
+	gs 'stat'
+	'The Armenian guy leads you into his hotel room and announces: "It is time to earn your money whore. Now, get on your knees, and show me how well you can suck.'
+	act 'Get on your knees':
+		cls
+		guy += 1
+		gs 'stat'
+		'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj50.mp4"></video></center>'
+		'Doing your best to show him what a good cock sucker you are, you lick him from base to tip, and then give the head a little kiss. He gives you a little chuckle of appreciation.'
+		'When you take him fully into you mouth you looks up seeking approval.'
+		'"That''s a good girl", he says stroking your cheek.'
+		gs 'arousal', 'bj', 10, 'sub'
+		gs 'stat'
+		
+		tipdarand = rand(0, 2)
+
+		if tipdarand = 0:
+			'He firmly takes your head in his hands and says: "Now, open wide girl, here it comes."'
+
+			act 'Relax your throat':
+				cls
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/rought/oral4.mp4"></video></center>'
+
+				if pcs_throat < dick / 2:
+					pcs_mood = 5
+					'He begins roughly using your mouth.'
+					'You do you best, but soon drool is running from your mouth, and snot is dripping from your nose. Eventually your eyes fill with tears, as you continue to gasp and gag on his cock.'
+					gs 'arousal', 'bj', 10, 'sub', 'deepthroat', 'rough'
+					gs 'stat'
+				elseif pcs_throat >= dick / 2 and pcs_throat < dick:
+					pcs_mood -= 20
+					'He begins roughly using your mouth.'
+					'You take his cock down your throat as best you, but still gag a little when he goes deep.'
+					'You never would have thought gagging on a stranger''s dick could be such a turn-on.'
+					gs 'arousal', 'bj', 10, 'sub', 'deepthroat', 'rough'
+					gs 'stat'
+				elseif pcs_throat >= dick:
+					'Holding you head, the man forcefully guides you up and down his shaft.'
+					'You take the full length of his cock with ease. Your lips make it all the way down to the base, and his balls slap against your chin.'
+					'The sensation of deep-throating this strange mans dick is getting you all wet.'
+					gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
+					gs 'stat'
+				end
+
+				tipdarand = rand(0, 1)
+
+				if tipdarand = 0:
+					'Without warning, the man grabs your hair and holds your head down on his shaft.'
+					'You let out a strangled gurgle, as jets of semen hit the back of your throat.'
+
+					act 'Swallow':
+						cls
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						gs 'stat'
+						'<center><video autoplay loop src="images/shared/sex/cum/cumf60.mp4"></video></center>'
+						'You greedily suck down as much of his cum as for can.'
+						'By the time the time he is finished your entire face feels like a wet runny mess.'
+						gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				elseif tipdarand = 1:
+					'After a few minutes he takes his cock out of your mouth, and starts jerking himself in front of your face.'
+					'"Open your mouth for me, girl", he orders.'
+					act 'Please him':
+						cls
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						minut += 10
+						gs 'stat'
+						'<center><video autoplay loop src="images/shared/sex/cum/cumf10.mp4"></video></center>'
+						'You look him in the eye, and softly whisper: "Give it to me."'
+						'Warm jets of semen begin to splatter against your face. You make little sounds of encouragement, until with a groan, he finishes with one last spurt that hits you right on the lips.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				end
+			end
+		elseif tipdarand = 1:
+			'He firmly tells you: "On all fours, now girl. I will have your ass."'
+
+			act 'Present your ass to him':
+				cls
+				spafinloc = 3
+				gs 'cum_manage'
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/dog12.mp4"></video></center>'
+				'You give it a wiggle, and he says smiling: "Ha, now that''s a good girl."' 
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
+				gs 'arousal', 'anal', 30, 'sub'
+				gs 'arousal', 'end'
+				gs 'stat'
+				
+				act 'Call a taxi': gt 'gdksport', 'cab_home'
+			end
+		elseif tipdarand = 2:
+			'He speaks: "On your back now, girl. Let''s see that pretty little pussy of yours."'
+			act 'Spread your legs for him':
+				cls
+				'<center><video autoplay loop src="images/shared/sex/vag/miss/kotovsexbonus2.mp4"></video></center>'
+				'Laying on your back a little thrill runs though your body, as the rough Armenian prepares to enter you.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinsex','vaginal_sex',10
+				gs 'dinsex','sexcum'
+				gs 'arousal', 'vaginal', 30, 'sub'
+				gs 'arousal', 'end'
+				gs 'stat'
+				
+				act 'Call a taxi': gt 'gdksport', 'cab_home'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'whore4':
+	minut += 5
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+	gs 'boyStat', $npclastgenerated
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+
+	gs 'stat'
+	'Laughing, the two Armenians lead you into their hotel room. "It''s time to show us what you got, little lamb", one says.' 
+	'The other man chimes in with: "I want see what those <<$lip1>> lips of yours can do. They look like they were made to suck cock.'
+	act 'Show them':
+		cls
+		guy += 2
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/shared/sex/group/cocksucker6.jpg"></center>'
+		'You kneel down in front of the two swarthy men to show them your skills.' 
+		'You playfully lick, jerk, and suck until they are both throbbing in your hands.'
+		'"Very nice little lamb, now take my cock. Take it all", one of the men says.'
+		'You enthusiastically begin to suck the penis of the man who spoke.'
+		gs 'arousal', 'hj', 10, 'group', 'sub'
+		gs 'arousal', 'bj', 10, 'group', 'sub'
+		minut -= 10
+		gs 'stat'
+		tipdarand = rand(0, 1)
+
+		if tipdarand = 0:
+			'After sucking for all your worth for a good ten minutes, one of them says: "Get your ass in the air. It''s time to get roasted, little lamb."'
+			'You get down on all fours, while the men laugh, and move into position at each end.'
+			'"You might be the sweetest thing I''ve ever seen. What do you say to that my little lamb?", one of the men says.'
+			'"Bah", you bleat with a laugh.'
+			act 'Get spit-roasted':
+				cls
+				gs 'stat'
+				'<center><video autoplay loop src="images/shared/sex/group/threesomepm8.mp4"></video></center>'
+				'You let out another playful bleat as you begin to get filled.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
+				spafinloc = 3
+				gs 'arousal', 'anal', 30, 'group', 'sub'
+				gs 'arousal', 'bj', 30, 'group', 'sub'
+				minut -= 30
+				gs 'cum_manage'
+				gs 'stat'
+				tipdarand = rand(0, 1)
+				gs 'boyStat', $npclastgenerated
+				
+				if tipdarand = 0:
+					'The swarthy man fucking your mouth grabs your hair, and presses you firmly against him.'
+					'Unable to move, you gag a little as semen hits the back of your throat.'
+					'"Swallow that down for me pet", the man holding your head insists.'
+					act 'Suck it down':
+						cls
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						minut += 10
+						gs 'arousal', 'end'
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow3.jpg"></center>'
+						'Choking slightly you frantically swallow cum, until his cock finishes pouring his seed down your throat.'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				elseif tipdarand = 1:
+					'The man at your mouth takes his cock in his hand and says: "Open wide pet. I''ve got a treat for you."'
+					act 'Open your mouth':
+						cls
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						minut += 10
+						gs 'arousal', 'end'
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/pavlovsk/park/gop/sex/oral/cum/gif/cumf2.mp4"></video></center>'
+						'Cum splatters into your mouth, and across your face. It doesn''t stop until it''s dripping from your face.'
+						'"Well done, little lamb", the man behind you praises, giving you a little smack on the ass.'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				end
+			end
+		elseif tipdarand = 1:
+			'Eventually, one of the men announces: "On your back now lamb, It''s time to see what you have what you have between those legs."'
+			'You playfully hop onto the sofa, and spread your legs, presenting your pussy for approval.'
+			'The men chuckle as one of them settles between your legs, while the other taps his cock against your mouth.'
+			act 'Enjoy':
+				cls
+				gs 'stat'
+				'<center><video autoplay loop src="images/shared/sex/group/threesomepm10.mp4"></video></center>'
+				'As you take one man''s cock into your mouth, as the man between your legs chuckles: "Wonderful, it looks like you have already been sheared."'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinsex','vaginal_sex',10
+				gs 'dinsex','sexcum'
+				gs 'arousal', 'vaginal', 30, 'group', 'sub'
+				gs 'arousal', 'bj', 30, 'group', 'sub'
+				minut -= 30
+				gs 'stat'
+				gs 'boyStat', $npclastgenerated
+				tipdarand = rand(0, 1)
+
+				if tipdarand = 0:
+					'The swarthy man fucking your mouth grabs you hair, and presses you firmly against him.'
+					'Unable to move, you gag a little as semen hits the back of your throat.'
+					'"Swallow that down for me pet", the man holding your head insists.'
+
+					act 'Suck it down':
+						cls
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						minut += 10
+						gs 'arousal', 'end'
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/rought/oral1.mp4"></video></center>'
+						'Choking slightly you frantically swallow cum, until his cock finishes pouring his seed down your throat.'
+						act 'Drive back': gt 'gdksport', 'cab_home'
+					end
+				elseif tipdarand = 1:
+					'The man at your mouth takes his cock in his hand and says: "Open wide pet. I''ve got a treat for you."'
+
+					act 'Open your mouth':
+						cls
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						minut += 10
+						gs 'arousal', 'end'
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/pavlovsk/park/gop/sex/oral/cum/gif/cumf2.mp4"></video></center>'
+						'Cum splatters into your mouth, and across your face. It doesn''t stop until it''s dripping from your chin.'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'whore5':
+	minut += 5
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+	gs 'boyStat', $npclastgenerated
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+	$boy1 = $npclastgenerated
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+
+	gs 'stat'
+	'The three Armenians lead you back to a hotel room. When one of them swings the door shut with his foot a little lump forms in your throat. The thought of all that could go wrong in a hotel room with three strange men is unsettling, yet a little exciting at the same time. You take a deep breath, as you turn to face them.'
+
+	act 'Squat down':
+		cls
+		guy += 3
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bjt.jpg"></center>'
+		'Deciding that eager service is the best way to avoid any problem, you get down in front of the men'
+		'A few minutes of licking and stroking later, you are faced by three throbbing cocks ready for more.'
+		'One of the swarthy men compliments your skill: "You are very skilled for such a young thing, and eager. I like eager."'
+		'As a way of saying thank you, you take his cock fully into your mouth, and slowly start to suck. The moan of pleasure this elicits from the man sends a little thrill running though your body.'
+		gs 'arousal', 'bj', 10, 'sub', 'gangbang'
+		gs 'arousal', 'hj', 10, 'sub', 'gangbang'
+		minut -= 10
+		gs 'stat'
+		!!tipdarand = rand(0, 1)
+		tipdarand = 0
+
+		if tipdarand = 0:
+			'After you have serviced each man for several minutes. The begin to talk to each other in their native language. It looks like they are trying to decide something.'
+			'One of the men looks at you: "We will have your ass now girl."'
+			'That was not a question, but you are in no position to refuse anyway.'
+
+			act 'Present your ass':
+				cls
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/f.jpg"></center>'
+				'You continue to languidly suck on the two remaining men, while the third man prepares to enter you from behind.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
+				spafinloc = 3
+				gs 'arousal', 'bj', 30, 'sub', 'gangbang'
+				gs 'arousal', 'anal', 30, 'sub', 'gangbang'
+				minut -= 30
+				gs 'stat'
+				gs 'cum_manage'
+				gs 'boyStat', $npclastgenerated
+				'One of the men near your face says: "Get ready girl."'
+
+				act 'Open your mouth':
+					cls
+					tipdarand = rand(0, 1)
+
+					if tipdarand = 0:
+						spafinloc = 11
+						gs 'cum_manage'
+						gs 'boyStat', $boy1
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facialt.jpg"></center>'
+						'The two men you''ve been blowing both finish at the same time. You flinch in surprise, when the first stream hits your face. By the time they finish, long streams of semen are dripping from your face.'
+						'The men all begin chatting among themselves, paying you no mind. From their excited tone, it certainly sounds like you did a good job. You smile, licking your lips with satisfaction.'
+						gs 'arousal', 'bj', 10, 'sub', 'gangbang'
+						gs 'arousal', 'end'
+						gs 'stat'
+					elseif tipdarand = 1:
+						spafinloc = 12
+						gs 'cum_manage'
+						gs 'boyStat', $boy1
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/swallowt.jpg"></center>'
+						'You kneel and eagerly open up for the two remaining men. They are surprisingly accurate, as they empty their loads into you mouth, other than a small drop on your chin they get it all in there.'
+						'Smiling up at them, you swallow it down.'
+						'The men all begin chatting among themselves, paying you no mind. From their excited tone, it certainly sounds like you did a good job. Smiling with satisfaction, you gather the last drop of cum from your chin with a finger, and lick it clean.'
+						gs 'arousal', 'bj', 10, 'sub', 'gangbang'
+						gs 'arousal', 'end'
+						gs 'stat'
+					end
+
+					act 'Call a taxi': gt 'gdksport', 'cab_home'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'whore6':
+	minut += 5
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+	gs 'boyStat', $npclastgenerated
+	$npc_thdick[$npclastgenerated] = 'massive'
+	npc_dick[$npclastgenerated] = 24
+	npc_Malen[$npclastgenerated] = rand(10,15)
+
+	gs 'stat'
+	'<center>your thoughts</center>'
+	'<center><video autoplay loop src="images/shared/home/tv/seeporn.mp4"></video></center>'
+	'As the big black guy leads you into the room, your mind drifts to what you have seen watching porn.'
+	'The thought of actually being one of those little white girls talking big black cock sends a thrill through you.'
+	'You hope this guy lives up to the hype.'
+
+	act 'Find out':
+		cls
+		guy += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bjn.jpg"></center>'
+		'"Oh, my", you whisper softly, as you expose his girth.'
+		'"You like that baby? Go on, and give it a kiss. It won''t bite", he chuckles.'
+		'Wide eyed, you wrap your lips around his massive length. You relish the taste, as you begin to suck. It doesn''t taste like chocolate, but it tastes pretty damn good.'
+		gs 'arousal', 'bj', 10, 'sub'
+		gs 'stat'
+		tipdarand = rand(0, 2)
+
+		if tipdarand = 0:
+			'After a few minutes the man takes your head in his hands, and urges you to take more.'
+			act 'Relax your throat':
+				cls
+
+				if pcs_throat < dick:pcs_throat += 1
+
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/throatn.jpg"></center>'
+
+				if pcs_throat < dick / 2:
+					pcs_mood = 5
+					pcs_horny = 0
+					'Oh god, he''s way too big for you. The pressure on you head isn''t letting up though.'
+					'Holding your head, he settles into a slow rut. After a few minutes of gaging on him, your face is covered in drool, snot, and tears. It feels good to let him take his pleasure like this, but you worry that your face must be a total mess.'
+					gs 'arousal', 'bj', 10, 'sub', 'rough'
+					gs 'stat'
+				elseif pcs_throat >= dick / 2 and pcs_throat < dick:
+					pcs_mood -= 20
+					pcs_horny = pcs_horny/2
+					'Oh god, he''s almost too much for you. He is forcing your head down, so it looks like you only have one option'
+					'You do your best to handle his rough thrusts to your face, but before too long your eyes are watering and snot is dripping from your nose. It''s all very exhilarating, you just wish your make-up wasn''t getting smeared'
+					gs 'arousal', 'bj', 10, 'sub', 'rough'
+					gs 'stat'
+				elseif pcs_throat >= dick:
+					'You accept the challenge posed by his hands, and take his entire length down your throat'
+					'He smiles down at you saying: "Damn, the stories about cock hungry little white girls must be true. You take that thing like a pro, baby."'
+					'You smile up at him around his cock, and continue to deep-throat him.'
+					gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
+					gs 'stat'
+				end
+
+				tipdarand = rand(0, 1)
+
+				if tipdarand = 0:
+					'When you think you can''t take anymore, he grabs your hair and forces you down even further.'
+					'"Oh shit, here it comes baby", he growls.'
+					'Warm jets of semen begin to pour down your throat.'
+					gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
+					gs 'stat'
+					act 'Suck it down':
+						cls
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow3.jpg"></center>'
+						'To keep from choking, you gulp it down, as quickly as possible.'
+						'Mmm, maybe it does taste like chocolate.'
+						'"Damn baby, you must''ve been thirsty", he smiles down at you.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				elseif tipdarand = 1:
+					'When you think you can''t take anymore, the man takes his cock from your mouth.'
+					'"Let me see that tongue baby, I need something to aim for", he says smiling down at you.'
+					gs 'arousal', 'bj', 10, 'sub'
+					gs 'stat'
+					act 'Open up and say ahh':
+						cls
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facialn.jpg"></center>'
+						'He grunts, and sticky streams of cum rain down around your face and mouth.'
+						'"Baby, you look like a fucking masterpiece, so fucking hot. I''m almost ready for another go just from looking at you.", he says panting.'
+						'You give him a wink, as you lick your lips'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				end
+			end
+		elseif tipdarand = 1:
+			'He informs you: "Baby, I''m glad you got me nice and lubed-up. When you find out where this is going next, you''ll be glad too." He grabs hold of one of your butt cheeks, and gives it a good squeeze.'
+			'You bite your lip, as equal parts of fear and excitement fill your thoughts.'
+
+			act 'Take it':
+				cls
+				spafinloc = 3
+				gs 'cum_manage'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/analn.jpg"></center>'
+				'"Please be gentle", you whisper as he prepares to enter you.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
+				gs 'arousal', 'anal', 30, 'sub'
+				gs 'stat'
+				act 'Call a taxi': gt 'gdksport', 'cab_home'
+			end
+		elseif tipdarand = 2:
+			'After some minutes the man takes his cock out of your mouth, and easily lifts you up and lays you on your back.'
+
+			act 'Open legs for him':
+				cls
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/sexn.jpg"></center>'
+				'A little nervously, you slowly spread your legs for him. The big black guy moves between your legs, and prepares to penatrate you.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinsex','vaginal_sex',10
+				gs 'dinsex','sexcum'
+				gs 'arousal', 'vaginal', 30, 'sub'
+				gs 'stat'
+				act 'Call a taxi': gt 'gdksport', 'cab_home'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'whore7':
+	minut += 5
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+	$npc_thdick[$npclastgenerated] = 'massive'
+	npc_dick[$npclastgenerated] = 24
+	npc_Malen[$npclastgenerated] = rand(10,15)
+	gs 'boyStat', $npclastgenerated
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+	$npc_thdick[$npclastgenerated] = 'monstrous'
+	npc_dick[$npclastgenerated] = 32
+	npc_Malen[$npclastgenerated] = rand(10,15)
+
+	gs 'stat'
+	'<center>your thoughts</center>'
+	'<center><video autoplay loop src="images/shared/home/tv/seeporn.mp4"></video></center>'
+	'As the two big black guys lead you into the room, your mind drifts to what you have seen watching porn.'
+	'The thought of actually being one of those little white girls talking big black cock sends a thrill through you.'
+	'Taking care of two at the same time sounds even more delightfully naughty.'
+
+	act 'Get them':
+		cls
+		guy += 2
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bjdn.jpg"></center>'
+		'Hands on your hips you playfully announce to the men: "OK boys, pants off, let''s see them."'
+		'"Now that''s my kind of woman", one of the men smiles as they both start to undress. You tap your foot with feigned impatience, while they get naked.'
+		'"I''m impressed boys. How is a sweet young thing like me ever going to manage?", you say smiling, as you kneel at their feet.'
+		'You spend the next ten minutes licking and greedily sucking their big black cocks.'
+		gs 'arousal', 'bj', 10, 'sub', 'group'
+		gs 'stat'
+		tipdarand = rand(0, 1)
+
+		if tipdarand = 0:
+			'One of the men leans over over and slides a hand down the crack of you ass, when he his finger finds your sphincter you move your hips to encourage him.'
+			'"Damn girl, is that how you want it?", he says.'
+			'"Yes", you whisper.'
+			gs 'arousal', 'anal_finger', 5, 'sub'
+			gs 'stat'
+			
+			act 'Give him your ass':
+				cls
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/dn.jpg"></center>'
+				'You continue sucking away at the first guy, as the other prepares to enter your backdoor.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
+				spafinloc = 3
+				gs 'cum_manage'
+				gs 'arousal', 'bj', 30, 'sub', 'group'
+				gs 'arousal', 'anal', 30, 'sub', 'group'
+				minut -= 30
+				gs 'stat'
+				gs 'boyStat', $npclastgenerated
+				tipdarand = rand(0, 1)
+				
+				if tipdarand = 0:
+					'The man fucking your mouth lets out a grunt, as his seed spills into your mouth.'
+
+					act 'Taste it':
+						cls
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow8.jpg"></center>'
+						'You swallow it down, looking up at him seeking approval.'
+						'He pats you on the head: "I guess you white girls really do crave it.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				elseif tipdarand = 1:
+					'The man at your mouth takes his cock in hand, and starts to jerk.'
+
+					act 'Open you mouth':
+						cls
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facialn.jpg"></center>'
+						'you make appreciative sounds, as hot streams of semen rain down on your face'
+						'After he is finished, you clean him up with licks and gentle kisses.'
+						'"Damn girl, I guess you are what they would call a hot mess", one of the men laughs.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				end
+			end
+		elseif tipdarand = 1:
+			'One of the men gently lifts you up, and lays you on the sofa.'
+			'He moves to position himslef between your legs, while the other guy brings his cock back to your lips.'
+
+			act 'Get filled':
+				cls
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/d1n.jpg"></center>'
+				'You take one man in your mouth, while the other guy spreads your legs.'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinsex','vaginal_sex',10
+				gs 'dinsex','sexcum'
+				gs 'arousal', 'bj', 30, 'sub', 'group'
+				gs 'arousal', 'vaginal', 30, 'sub', 'group'
+				minut -= 30
+				gs 'stat'
+				gs 'boyStat', $npclastgenerated
+				tipdarand = rand(0, 1)
+
+				if tipdarand = 0:
+					'The man fucking your mouth lets out a grunt, as his seed spills into your mouth.'
+
+					act 'Taste it':
+						cls
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow8.jpg"></center>'
+						'You swallow it down, looking up at him seeking approval.'
+						'He pats you on the head: "I guess you white girls really do crave it.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				elseif tipdarand = 1:
+					'The man at your mouth takes his cock in hand, and starts to jerk.'
+
+					act 'Open you mouth':
+						cls
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facialn.jpg"></center>'
+						'you make appreciative sounds, as hot streams of semen rain down on your face'
+						'After he is finished, you clean him up with licks and gentle kisses.'
+						'"Damn girl, I guess you are what they would call a hot mess", one of the men laughs.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Call a taxi': gt 'gdksport', 'cab_home'
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'whore8':
+	minut += 5
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+	$npc_thdick[$npclastgenerated] = 'massive'
+	npc_dick[$npclastgenerated] = 24
+	npc_Malen[$npclastgenerated] = rand(10,15)
+	gs 'boyStat', $npclastgenerated
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+	$npc_thdick[$npclastgenerated] = 'monstrous'
+	npc_dick[$npclastgenerated] = 32
+	npc_Malen[$npclastgenerated] = rand(10,15)
+	$boy1 = $npclastgenerated
+	gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
+	$npc_thdick[$npclastgenerated] = 'monstrous'
+	npc_dick[$npclastgenerated] = 30
+	npc_Malen[$npclastgenerated] = rand(10,15)
+
+	gs 'stat'
+	'<center>your thoughts</center>'
+	'<center><video autoplay loop src="images/shared/home/tv/seeporn.mp4"></video></center>'
+	'This is just like one of those movies you''ve seen. Three big black guys leading a young little white girl into a hotel room, oh whatever will you do?'
+	'"Let''s get this party started boys", you say smiling, as you take of your top.'
+	'"Aren''t you just an eager little minx", one of the men laughs, as they begin to take off their pants.'
+	'"Crawl over here and give it a kiss, little kitty. I''m gonna make you purr", another man says.'
+
+	act 'Crawl to them':
+		cls
+		guy += 3
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bjtn.jpg"></center>'
+		'The guys all rush to be first, when you make it over to them.'
+		'"One at a time boys. I know what I''m doing, but I can''t fit all three of those things in my mouth", you playfully chastise them.'
+		'The men laugh, as you settle into a rythm of sucking and stroking. The thought of all this hot black meat eager to be serviced is making your thighs ache with hunger.'
+		gs 'arousal', 'hj', 10, 'sub', 'gangbang'
+		gs 'arousal', 'bj', 10, 'sub', 'gangbang'
+		minut -= 10
+		gs 'stat'
+		!!tipdarand = rand(0, 1)
+		tipdarand = 0
+
+		if tipdarand = 0:
+			'After some minutes one of the men starts to slowly kneed one of your butt cheeks. His fingers are creeping ever closer to your sphincter.'
+			'"Oh, you think so do you", you say, looking up at him innocently.'
+			'"Oh, I know so, I know", he says with a grin.'
+			'Smiling, you slowly get on your hands and crawl toward the sofa. You make sure they get a good look at your white girl ass, as you do.'
+
+			act 'Call them over with a purr':
+				cls
+				spafinloc = 3
+				gs 'cum_manage'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/fn.jpg"></center>'
+				'The sight of three big black guys rushing over to you puts a big smile on your face.'
+				'Two of the men move to get service from your mouth, while the third prepares to penetrate you.'
+				'"That''s one fine ass booty you got there, white girl", he says'
+				gs 'dinsex', 'boy_puts_condom'
+				gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
+				gs 'arousal', 'bj', 30, 'sub', 'gangbang'
+				gs 'arousal', 'anal', 30, 'sub', 'gangbang'
+				gs 'stat'
+				gs 'boyStat', $npclastgenerated
+				'The two men at your mouth seem close to finishing too.'
+
+				act 'Get some cream':
+					cls
+					tipdarand = rand(0, 1)
+
+					if tipdarand = 0:
+						spafinloc = 11
+						gs 'cum_manage'
+						gs 'boyStat', $boy1
+						spafinloc = 11
+						gs 'cum_manage'
+						facial += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facialtn.jpg"></center>'
+						'You kneel down, and look up at the two remaining men stroking themselves toward the finish.'
+						'"Oh fuck, I''m going to paint that pretty face white for you, baby!", one of them says grunting.'
+						'Both men erupt at the same time. So much of it splatters against your face that it almost doesn''t seem real. You giggle wildly at the thrill of it all, after they have finished.'
+						'"God damn, this kitty really does love her cream!", one of the men laughs.'
+						gs 'arousal', 'end'
+						gs 'stat'
+					elseif tipdarand = 1:
+						spafinloc = 12
+						gs 'cum_manage'
+						gs 'boyStat', $boy1
+						spafinloc = 12
+						gs 'cum_manage'
+						swallow += 1
+						minut += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow8.jpg"></center>'
+						'You eagerly suck the two remaining men to finish. It''s not long before both of them have poured their loads down you throat.'
+						'"Our little kitty must have been thirsty", one of the men laughs.'
+						'You look up and give him a little "meow", and lick your lips.'
+						gs 'arousal', 'end'
+						gs 'stat'
+					end
+
+					act 'Call a taxi': gt 'gdksport', 'cab_home'
+				end
+			end
+		end
+	end
+end
+
+--- AlbStarsWhore ---------------------------------
+

locations/AnalPR.qsrc

@@ -72,7 +72,7 @@ if $ARGS[0] = '2':
 	end
 
 	picanRand = RAND(1,6)
-	if picanRand = 1:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl.jpg"></center>'
+	if picanRand = 1:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl1.jpg"></center>'
 	if picanRand = 2:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl2.jpg"></center>'
 	if picanRand = 3:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl3.jpg"></center>'
 	if picanRand = 4:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl4.jpg"></center>'

locations/BelSex.qsrc

@@ -425,8 +425,10 @@ if $ARGS[0] = 'shower':
 			
 			if return_residential = 0: 
 				act 'Leave': gt 'pavCommercial'
-			else
+			elseif return_residential = 1:
 				act 'Leave': gt 'pavResidential'
+			else
+				act 'Leave': gt 'pavIndustrial'
 			end	
 		end
 	end

locations/Cheatmenu_din.qsrc

@@ -275,6 +275,18 @@ $cheatmenu['cheat_NoPregnancy'] = {
 	end
 }
 
+$cheatmenu['cheat_NoLactation'] = {
+	if cheat_NoLactation = 1:
+		killvar 'cheat_NoLactation'
+		$cheat_NoLactation = 'YES'
+		dynamic $cheatmenu['permanent']
+	else
+		cheat_Nolactation = 1
+		$cheat_NoLactation = 'NO'
+		dynamic $cheatmenu['permanent']
+	end
+}
+
 $cheatmenu['Vibrator'] = {
 	if cheatVib = 0:
 		cheatVib = 1
@@ -365,6 +377,8 @@ $cheatmenu['permanent'] = {
 	if autocombat_cheat = 1:$autocombat_cheat = 'Currently ON'
 	if cheat_NoPregnancy = 0:$cheat_NoPregnancy = 'Currently OFF'
 	if cheat_NoPregnancy = 1:$cheat_NoPregnancy = 'Currently ON'
+	if cheat_NoLactation = 0:$cheat_NoLactation = 'Currently OFF'
+	if cheat_NoLactation = 1:$cheat_NoLactation = 'Currently ON'
 	if cheatBimbo = 0:$cheatBimbo = 'Currently OFF'
 	if cheatBimbo = 1:$cheatBimbo = 'Currently ON'
 	if cumeater_cheat = 0:$cheatcumtrait = 'Currently OFF'
@@ -414,6 +428,7 @@ $cheatmenu['permanent'] = {
 	'Set arousal to always be at 50 or more: <a href="exec:dynamic $cheatmenu[''cheatHorny'']"><<$cheatHorny>></a>'
 	'Turn off periods (and pregnancies): <a href="exec:dynamic $cheatmenu[''slutshot'']"><<$cheatSlut>></a>'
 	'Impregnation is no longer in the game: <a href="exec:dynamic $cheatmenu[''cheat_NoPregnancy'']"><<$cheat_nopregnancy>></a>'
+	'Lactation is no longer in the game: <a href="exec:dynamic $cheatmenu[''cheat_NoLactation'']"><<$cheat_nolactation>></a>'
 	'Disable STDs: <a href="exec:dynamic $cheatmenu[''health'']"><<$cheatHealth>></a>'
 	
 	*nl
@@ -1535,6 +1550,9 @@ $cheatmenu['force_preg'] = {
 $cheatmenu['remove_preg'] = {
 	pregtime = 0
 	pregtalk = 0
+	pregTalkPC = 0
+	pregTalkNat = 0
+	pregTalkbrother = 0
 	preg = 0
 	thinkpreg = 0
 	knowpreg = 0

locations/Club2.qsrc

@@ -1,7 +1,9 @@
 # Club2
+
+menu_off = 1
+
 if $ARGS[0] = 'toilet1':
-	cla
-	*clr
+	*clr & cla
 	gs 'stat'
 	gs 'npcgeneratec', 0, 'Gloryhole Client', rand(18,60)
 	gs 'boyStat', $npclastgenerated
@@ -13,8 +15,7 @@ if $ARGS[0] = 'toilet1':
 	act 'Leave':gt 'club', 'inside'
 
 	act 'Take a closer look':
-		cla
-		*clr
+		*clr & cla
 
 		if TQuest = 1:TQuest = 2
 
@@ -27,8 +28,7 @@ if $ARGS[0] = 'toilet1':
 		gs 'stat'
 
 		act 'Cover lips':
-			cla
-			*clr
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/glory2.jpg"></center>'
 			'You bows member lips and start sucking it, trying to take it as deep as possible.'
 			'Suddenly, in your mouth and poured hot tart liquid.'
@@ -37,8 +37,7 @@ if $ARGS[0] = 'toilet1':
 			gs 'stat'
 		
 			act 'Swallow':
-				cla
-				*clr
+				*clr & cla
 				swallow += 1
 				spafinloc = 12
 				gs 'cum_manage'
@@ -72,9 +71,7 @@ if $ARGS[0] = 'toilet1':
 end
 
 if $ARGS[0] = 'toilet':
-	cla
-	clr
-	*clr
+	*clr & cla
 	gs 'stat'
 	'You pee sitting on the toilet and began to wipe your vagina with toilet paper. Apparently you pressed too hard because you embraced the thrill of touching between the legs.'
 	
@@ -104,8 +101,7 @@ if $ARGS[0] = 'toilet':
 end
 
 if $ARGS[0] = 'toilet2':
-	cla
-	*clr
+	*clr & cla
 	'You sit in a booth and hear someone come into the toilet after you and doors of adjacent booths closing. You realize there is two of them.'
 	'Voice from the next stall tells you - do not be afraid baby, we will not hurt you, on the contrary, we will give you some delicious candy with cream filling.'
 
@@ -124,8 +120,7 @@ if $ARGS[0] = 'toilet2':
 		gs 'stat'
 		
 		wait 3000
-		cla
-		*clr
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/glory5.jpg"></center>'
 		'You are enthusiastically fucked by both members in turn.'
 		
@@ -133,8 +128,7 @@ if $ARGS[0] = 'toilet2':
 		gs 'stat'
 		
 		wait 3000
-		cla
-		*clr
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/glory6.jpg"></center>'
 		'Finally one of the men ends up in your mouth.'
 		'You lick and start to finish processing the second term.'
@@ -143,8 +137,7 @@ if $ARGS[0] = 'toilet2':
 		gs 'stat'
 		
 		wait 3000
-		cla
-		*clr
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/glory7.jpg"></center>'
 		'The second man also comes in your mouth.'
 		'You swallow a mouthful and wipe your face, but semen is smeared all over it.'

locations/DanceWhore1.qsrc

@@ -1,131 +0,0 @@
-# DanceWhore1
-
-minut += 5
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(24,40)
-gs 'boyStat', $npclastgenerated
-gs 'stat'
-'The man leads you by the hand into the hotel room. When he flips on the lights, you immediately notice that it''s a luxury room. You smile thinking, it looks like you made the right choice.'
-act 'Kneel':
-	cls
-	guy += 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bj.jpg"></center>'
-	'Efficiently, you get in his pants and begin working on him with your hand. He is rock hard in no time.'
-	'Looking him in the eye, you lick his cock from base to tip, and then give the head a little kiss.'
-	'When you finally take his entire length into your mouth, "Oh, God", is his only response.'
-	gs 'arousal', 'hj', 10, 'sub'
-	gs 'arousal', 'bj', 10, 'sub'
-	minut -= 10
-	gs 'stat'
-	tipdarand = rand(0, 2)
-
-	if tipdarand = 0:
-		'He puts his hands on your head, and pushes insistently at you mouth.'
-		act 'Relax your throat':
-			cls
-
-			if pcs_throat < dick:pcs_throat += 1
-
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/throat.jpg"></center>'
-
-			if pcs_throat < dick / 2:
-				pcs_mood = 5
-				pcs_horny = 0
-				'The man begins to frantically fuck your mouth.'
-				'You do you best to take it, while drool drips from your mouth, snot runs from your nose, and tears well up in your eyes.'
-				gs 'arousal', 'bj', 10, 'sub', 'rough'
-				gs 'stat'
-			elseif pcs_throat >= dick / 2 and pcs_throat < dick:
-				pcs_mood -= 20
-				pcs_horny = pcs_horny/2
-				'He begins roughly using your mouth.'
-				'You take his cock down your throat as best you, but still gag a little when he goes deep.'
-				'You never would have thought gagging on a stranger''s dick could be such a turn-on.'
-				gs 'arousal', 'bj', 10, 'sub', 'rough'
-				gs 'stat'
-			elseif pcs_throat >= dick:
-				'Holding you head, the man forcefully guides you up and down his shaft.'
-				'You take the full length of his cock with ease. Your lips make it all the way down to the base, and his balls slap against your chin.'
-				'The sensation of deep-throating this strange mans dick is getting you all wet.'
-				gs 'arousal', 'bj', 10, 'sub', 'rough'
-				gs 'stat'
-			end
-
-			tipdarand = rand(0, 1)
-			if tipdarand = 0:
-				'Without warning, the man grabs your hair, and holds your head down on his shaft.'
-				'You let out a strangled gurgle, as jets of semen hit the back of your throat.'
-				gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
-				gs 'stat'
-				act 'Swallow':
-					cls
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/swallow.jpg"></center>'
-					'You greedily suck down as much of his cum as for can.'
-					'By the time the time he is finished your entire face feels like a wet runny mess.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			elseif tipdarand = 1:
-				'After a few minutes he takes his cock out of your mouth, and starts jerking himself in front of your face.'
-				gs 'arousal', 'bj', 10, 'sub'
-				gs 'stat'
-				act 'Close your eyes':
-					cls
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facial.jpg"></center>'
-					'Warm jets of semen begin to splatter against your face. You make little sounds of encouragement, until with a groan, he finishes with one last spurt that hits you right on the lips.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			end
-		end
-	elseif tipdarand = 1:
-		'After a few minutes he says: "I want your ass, girl."'
-
-		act 'Give him your ass':
-			cls
-			spafinloc = 3
-			gs 'cum_manage'
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/anal.jpg"></center>'
-			'Yoy present your ass to him, with a little giggle, you give it a wiggle.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
-			gs 'arousal', 'anal', 30, 'sub'
-			gs 'arousal', 'end'
-			gs 'stat'
-			act 'Call a taxi': gt 'gdksport', 'cab_home'
-		end
-	elseif tipdarand = 2:
-		'After a few minutes he says: "I''m ready for that pussy."'
-
-		act 'Lie on your back.':
-			cls
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/sex.jpg"></center>'
-			'You spread your legs for him, and motion him to you invitingly.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinsex','vaginal_sex',10
-			gs 'dinsex','sexcum'
-			gs 'arousal', 'vaginal', 30, 'sub'
-			gs 'arousal', 'end'
-			gs 'stat'
-			act 'Call a taxi': gt 'gdksport', 'cab_home'
-		end
-	end
-end
-
---- DanceWhore1 ---------------------------------
-

locations/DanceWhore2.qsrc

@@ -1,139 +0,0 @@
-# DanceWhore2
-
-minut += 5
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,23)
-gs 'boyStat', $npclastgenerated
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,23)
-
-gs 'stat'
-'Shyly, the boys lead you into their hotel room.'
-'You think it''s sweet that they look a little nervous. Deciding to put their minds at ease, you take action.'
-act 'Get their pants off':
-	cls
-	guy += 2
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bjd.jpg"></center>'
-	'Squatting down in front of the boys, you give them each a turn. Licking their shafts and giving little sucking kisses to their heads, you have them hard in no time.'
-	'By the time you start sucking them in earnest, they both have warm smiles of appreciation on their faces.'
-	gs 'arousal', 'bj', 10, 'sub', 'group'
-	gs 'stat'
-	tipdarand = rand(0, 1)
-
-	if tipdarand = 0:
-		'No longer nervous, one of the boys moves behind you and works his hand between your cheeks.'
-		'"That is one tight little ass you have there baby", he whispers in your ear.'
-		'You let out a little moan, when his finger finds your pucker and slowly begins to massage it.'
-		'The other boy impatiently taps his dick against your mouth, urging you to get back to work.'
-		gs 'arousal', 'bj', 10, 'sub', 'group'
-		gs 'arousal', 'anal_finger', 10, 'sub', 'group'
-		minut -= 10
-		gs 'stat'
-		act 'Get spit-roasted':
-			cls
-			minut += 30
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/d.jpg"></center>'
-			'You suckle at the tip of one boys cock, while the other gets ready to enter your ass. You wiggle your hips in anticipation.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
-			spafinloc = 3
-			gs 'arousal', 'bj', 30, 'sub', 'group'
-			gs 'arousal', 'anal', 30, 'sub', 'group'
-			minut -= 30
-			gs 'stat'
-			gs 'cum_manage'
-			!! {Setup for #2}
-			gs 'boyStat', $npclastgenerated
-			tipdarand = rand(0, 1)
-
-			if tipdarand = 0:
-				'The man in your mouth groans, and suddenly you mouth is filled with wet warmth.'
-				act 'Swallow it':
-					cls
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/swallow.jpg"></center>'
-					'Choking slightly, you frantically swallow cum, until his cock finishes pouring his seed into your mouth.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			elseif tipdarand = 1:
-				'The man at your mouth takes hold of his cock, and starts to jerk it. It''s pointed right at your face.'
-				act 'Open your mouth':
-					cls
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facial.jpg"></center>'
-					'Cum splatters into your mouth, and across your face. It doesn''t stop until it''s dripping from your chin.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			end
-		end
-	elseif tipdarand = 1:
-		'The boys lay you on the sofa. One of them settles between your legs, while the other dangles his cock near your face.'
-		act 'Part your lips':
-			cls
-			!!stat['vaginal'] += 1
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/d1.jpg"></center>'
-			'You begin to suck dick, while the other guy spreads your legs.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinsex','vaginal_sex',10
-			gs 'dinsex','sexcum'
-			gs 'arousal', 'bj', 30, 'sub', 'group'
-			gs 'arousal', 'vaginal', 30, 'sub', 'group'
-			minut -= 30
-			gs 'stat'
-			tipdarand = rand(0, 1)
-			!! {Setup for #2}
-			gs 'boyStat', $npclastgenerated
-
-			if tipdarand = 0:
-				'The man in your mouth groans, and suddenly you mouth is filled with wet warmth.'
-				act 'Swallow it':
-					cls
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/swallow.jpg"></center>'
-					'Choking slightly you frantically swallow cum, until his cock finishes pouring his seed into your mouth.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			elseif tipdarand = 1:
-				'The man at your mouth takes hold of his cock, and starts to jerk it. It''s pointed right at your face.'
-
-				act 'Open your mouth':
-					cls
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facial.jpg"></center>'
-					'Cum splatters into your mouth, and across your face. It doesn''t stop until it''s dripping from your face.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			end
-		end
-	end
-
-	!!if tipdarand = 2:end
-end
-
---- DanceWhore2 ---------------------------------
-

locations/DanceWhore3.qsrc

@@ -1,127 +0,0 @@
-# DanceWhore3
-
-minut += 5
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-gs 'boyStat', $npclastgenerated
-
-gs 'stat'
-'The Armenian guy leads you into his hotel room and announces: "It is time to earn your money whore. Now, get on your knees, and show me how well you can suck.'
-act 'Get on your knees':
-	cls
-	guy += 1
-	gs 'stat'
-	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj50.mp4"></video></center>'
-	'Doing your best to show him what a good cock sucker you are, you lick him from base to tip, and then give the head a little kiss. He gives you a little chuckle of appreciation.'
-	'When you take him fully into you mouth you looks up seeking approval.'
-	'"That''s a good girl", he says stroking your cheek.'
-	gs 'arousal', 'bj', 10, 'sub'
-	gs 'stat'
-	
-	tipdarand = rand(0, 2)
-
-	if tipdarand = 0:
-		'He firmly takes your head in his hands and says: "Now, open wide girl, here it comes."'
-
-		act 'Relax your throat':
-			cls
-			gs 'stat'
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/rought/oral4.mp4"></video></center>'
-
-			if pcs_throat < dick / 2:
-				pcs_mood = 5
-				'He begins roughly using your mouth.'
-				'You do you best, but soon drool is running from your mouth, and snot is dripping from your nose. Eventually your eyes fill with tears, as you continue to gasp and gag on his cock.'
-				gs 'arousal', 'bj', 10, 'sub', 'deepthroat', 'rough'
-				gs 'stat'
-			elseif pcs_throat >= dick / 2 and pcs_throat < dick:
-				pcs_mood -= 20
-				'He begins roughly using your mouth.'
-				'You take his cock down your throat as best you, but still gag a little when he goes deep.'
-				'You never would have thought gagging on a stranger''s dick could be such a turn-on.'
-				gs 'arousal', 'bj', 10, 'sub', 'deepthroat', 'rough'
-				gs 'stat'
-			elseif pcs_throat >= dick:
-				'Holding you head, the man forcefully guides you up and down his shaft.'
-				'You take the full length of his cock with ease. Your lips make it all the way down to the base, and his balls slap against your chin.'
-				'The sensation of deep-throating this strange mans dick is getting you all wet.'
-				gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
-				gs 'stat'
-			end
-
-			tipdarand = rand(0, 1)
-
-			if tipdarand = 0:
-				'Without warning, the man grabs your hair and holds your head down on his shaft.'
-				'You let out a strangled gurgle, as jets of semen hit the back of your throat.'
-
-				act 'Swallow':
-					cls
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					gs 'stat'
-					'<center><video autoplay loop src="images/shared/sex/cum/cumf60.mp4"></video></center>'
-					'You greedily suck down as much of his cum as for can.'
-					'By the time the time he is finished your entire face feels like a wet runny mess.'
-					gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			elseif tipdarand = 1:
-				'After a few minutes he takes his cock out of your mouth, and starts jerking himself in front of your face.'
-				'"Open your mouth for me, girl", he orders.'
-				act 'Please him':
-					cls
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					minut += 10
-					gs 'stat'
-					'<center><video autoplay loop src="images/shared/sex/cum/cumf10.mp4"></video></center>'
-					'You look him in the eye, and softly whisper: "Give it to me."'
-					'Warm jets of semen begin to splatter against your face. You make little sounds of encouragement, until with a groan, he finishes with one last spurt that hits you right on the lips.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			end
-		end
-	elseif tipdarand = 1:
-		'He firmly tells you: "On all fours, now girl. I will have your ass."'
-
-		act 'Present your ass to him':
-			cls
-			spafinloc = 3
-			gs 'cum_manage'
-			gs 'stat'
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/dog12.mp4"></video></center>'
-			'You give it a wiggle, and he says smiling: "Ha, now that''s a good girl."' 
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
-			gs 'arousal', 'anal', 30, 'sub'
-			gs 'arousal', 'end'
-			gs 'stat'
-			
-			act 'Call a taxi': gt 'gdksport', 'cab_home'
-		end
-	elseif tipdarand = 2:
-		'He speaks: "On your back now, girl. Let''s see that pretty little pussy of yours."'
-		act 'Spread your legs for him':
-			cls
-			'<center><video autoplay loop src="images/shared/sex/vag/miss/kotovsexbonus2.mp4"></video></center>'
-			'Laying on your back a little thrill runs though your body, as the rough Armenian prepares to enter you.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinsex','vaginal_sex',10
-			gs 'dinsex','sexcum'
-			gs 'arousal', 'vaginal', 30, 'sub'
-			gs 'arousal', 'end'
-			gs 'stat'
-			
-			act 'Call a taxi': gt 'gdksport', 'cab_home'
-		end
-	end
-end
-
---- DanceWhore3 ---------------------------------
-

locations/DanceWhore4.qsrc

@@ -1,139 +0,0 @@
-# DanceWhore4
-
-minut += 5
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-gs 'boyStat', $npclastgenerated
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-
-gs 'stat'
-'Laughing, the two Armenians lead you into their hotel room. "It''s time to show us what you got, little lamb", one says.' 
-'The other man chimes in with: "I want see what those <<$lip1>> lips of yours can do. They look like they were made to suck cock.'
-act 'Show them':
-	cls
-	guy += 2
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/shared/sex/group/cocksucker6.jpg"></center>'
-	'You kneel down in front of the two swarthy men to show them your skills.' 
-	'You playfully lick, jerk, and suck until they are both throbbing in your hands.'
-	'"Very nice little lamb, now take my cock. Take it all", one of the men says.'
-	'You enthusiastically begin to suck the penis of the man who spoke.'
-	gs 'arousal', 'hj', 10, 'group', 'sub'
-	gs 'arousal', 'bj', 10, 'group', 'sub'
-	minut -= 10
-	gs 'stat'
-	tipdarand = rand(0, 1)
-
-	if tipdarand = 0:
-		'After sucking for all your worth for a good ten minutes, one of them says: "Get your ass in the air. It''s time to get roasted, little lamb."'
-		'You get down on all fours, while the men laugh, and move into position at each end.'
-		'"You might be the sweetest thing I''ve ever seen. What do you say to that my little lamb?", one of the men says.'
-		'"Bah", you bleat with a laugh.'
-		act 'Get spit-roasted':
-			cls
-			gs 'stat'
-			'<center><video autoplay loop src="images/shared/sex/group/threesomepm8.mp4"></video></center>'
-			'You let out another playful bleat as you begin to get filled.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
-			spafinloc = 3
-			gs 'arousal', 'anal', 30, 'group', 'sub'
-			gs 'arousal', 'bj', 30, 'group', 'sub'
-			minut -= 30
-			gs 'cum_manage'
-			gs 'stat'
-			tipdarand = rand(0, 1)
-			gs 'boyStat', $npclastgenerated
-			
-			if tipdarand = 0:
-				'The swarthy man fucking your mouth grabs your hair, and presses you firmly against him.'
-				'Unable to move, you gag a little as semen hits the back of your throat.'
-				'"Swallow that down for me pet", the man holding your head insists.'
-				act 'Suck it down':
-					cls
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					minut += 10
-					gs 'arousal', 'end'
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow3.jpg"></center>'
-					'Choking slightly you frantically swallow cum, until his cock finishes pouring his seed down your throat.'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			elseif tipdarand = 1:
-				'The man at your mouth takes his cock in his hand and says: "Open wide pet. I''ve got a treat for you."'
-				act 'Open your mouth':
-					cls
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					minut += 10
-					gs 'arousal', 'end'
-					gs 'stat'
-					'<center><video autoplay loop src="images/locations/pavlovsk/park/gop/sex/oral/cum/gif/cumf2.mp4"></video></center>'
-					'Cum splatters into your mouth, and across your face. It doesn''t stop until it''s dripping from your face.'
-					'"Well done, little lamb", the man behind you praises, giving you a little smack on the ass.'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			end
-		end
-	elseif tipdarand = 1:
-		'Eventually, one of the men announces: "On your back now lamb, It''s time to see what you have what you have between those legs."'
-		'You playfully hop onto the sofa, and spread your legs, presenting your pussy for approval.'
-		'The men chuckle as one of them settles between your legs, while the other taps his cock against your mouth.'
-		act 'Enjoy':
-			cls
-			gs 'stat'
-			'<center><video autoplay loop src="images/shared/sex/group/threesomepm10.mp4"></video></center>'
-			'As you take one man''s cock into your mouth, as the man between your legs chuckles: "Wonderful, it looks like you have already been sheared."'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinsex','vaginal_sex',10
-			gs 'dinsex','sexcum'
-			gs 'arousal', 'vaginal', 30, 'group', 'sub'
-			gs 'arousal', 'bj', 30, 'group', 'sub'
-			minut -= 30
-			gs 'stat'
-			gs 'boyStat', $npclastgenerated
-			tipdarand = rand(0, 1)
-
-			if tipdarand = 0:
-				'The swarthy man fucking your mouth grabs you hair, and presses you firmly against him.'
-				'Unable to move, you gag a little as semen hits the back of your throat.'
-				'"Swallow that down for me pet", the man holding your head insists.'
-
-				act 'Suck it down':
-					cls
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					minut += 10
-					gs 'arousal', 'end'
-					gs 'stat'
-					'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/rought/oral1.mp4"></video></center>'
-					'Choking slightly you frantically swallow cum, until his cock finishes pouring his seed down your throat.'
-					act 'Drive back': gt 'gdksport', 'cab_home'
-				end
-			elseif tipdarand = 1:
-				'The man at your mouth takes his cock in his hand and says: "Open wide pet. I''ve got a treat for you."'
-
-				act 'Open your mouth':
-					cls
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					minut += 10
-					gs 'arousal', 'end'
-					gs 'stat'
-					'<center><video autoplay loop src="images/locations/pavlovsk/park/gop/sex/oral/cum/gif/cumf2.mp4"></video></center>'
-					'Cum splatters into your mouth, and across your face. It doesn''t stop until it''s dripping from your chin.'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			end
-		end
-	end
-
-	!!if tipdarand = 2:end
-end
-
---- DanceWhore4 ---------------------------------
-

locations/DanceWhore5.qsrc

@@ -1,94 +0,0 @@
-# DanceWhore5
-minut += 5
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-gs 'boyStat', $npclastgenerated
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-$boy1 = $npclastgenerated
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-
-gs 'stat'
-'The three Armenians lead you back to a hotel room. When one of them swings the door shut with his foot a little lump forms in your throat. The thought of all that could go wrong in a hotel room with three strange men is unsettling, yet a little exciting at the same time. You take a deep breath, as you turn to face them.'
-
-act 'Squat down':
-	cls
-	guy += 3
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bjt.jpg"></center>'
-	'Deciding that eager service is the best way to avoid any problem, you get down in front of the men'
-	'A few minutes of licking and stroking later, you are faced by three throbbing cocks ready for more.'
-	'One of the swarthy men compliments your skill: "You are very skilled for such a young thing, and eager. I like eager."'
-	'As a way of saying thank you, you take his cock fully into your mouth, and slowly start to suck. The moan of pleasure this elicits from the man sends a little thrill running though your body.'
-	gs 'arousal', 'bj', 10, 'sub', 'gangbang'
-	gs 'arousal', 'hj', 10, 'sub', 'gangbang'
-	minut -= 10
-	gs 'stat'
-	!!tipdarand = rand(0, 1)
-	tipdarand = 0
-
-	if tipdarand = 0:
-		'After you have serviced each man for several minutes. The begin to talk to each other in their native language. It looks like they are trying to decide something.'
-		'One of the men looks at you: "We will have your ass now girl."'
-		'That was not a question, but you are in no position to refuse anyway.'
-
-		act 'Present your ass':
-			cls
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/f.jpg"></center>'
-			'You continue to languidly suck on the two remaining men, while the third man prepares to enter you from behind.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
-			spafinloc = 3
-			gs 'arousal', 'bj', 30, 'sub', 'gangbang'
-			gs 'arousal', 'anal', 30, 'sub', 'gangbang'
-			minut -= 30
-			gs 'stat'
-			gs 'cum_manage'
-			gs 'boyStat', $npclastgenerated
-			'One of the men near your face says: "Get ready girl."'
-
-			act 'Open your mouth':
-				cls
-				tipdarand = rand(0, 1)
-
-				if tipdarand = 0:
-					spafinloc = 11
-					gs 'cum_manage'
-					gs 'boyStat', $boy1
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facialt.jpg"></center>'
-					'The two men you''ve been blowing both finish at the same time. You flinch in surprise, when the first stream hits your face. By the time they finish, long streams of semen are dripping from your face.'
-					'The men all begin chatting among themselves, paying you no mind. From their excited tone, it certainly sounds like you did a good job. You smile, licking your lips with satisfaction.'
-					gs 'arousal', 'bj', 10, 'sub', 'gangbang'
-					gs 'arousal', 'end'
-					gs 'stat'
-				elseif tipdarand = 1:
-					spafinloc = 12
-					gs 'cum_manage'
-					gs 'boyStat', $boy1
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/swallowt.jpg"></center>'
-					'You kneel and eagerly open up for the two remaining men. They are surprisingly accurate, as they empty their loads into you mouth, other than a small drop on your chin they get it all in there.'
-					'Smiling up at them, you swallow it down.'
-					'The men all begin chatting among themselves, paying you no mind. From their excited tone, it certainly sounds like you did a good job. Smiling with satisfaction, you gather the last drop of cum from your chin with a finger, and lick it clean.'
-					gs 'arousal', 'bj', 10, 'sub', 'gangbang'
-					gs 'arousal', 'end'
-					gs 'stat'
-				end
-
-				act 'Call a taxi': gt 'gdksport', 'cab_home'
-			end
-		end
-	end
-
-	!!if tipdarand = 1:end
-	!!if tipdarand = 2:end
-end
-
---- DanceWhore5 ---------------------------------
-

locations/DanceWhore6.qsrc

@@ -1,142 +0,0 @@
-# DanceWhore6
-
-minut += 5
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-gs 'boyStat', $npclastgenerated
-$npc_thdick[$npclastgenerated] = 'massive'
-npc_dick[$npclastgenerated] = 24
-npc_Malen[$npclastgenerated] = rand(10,15)
-
-gs 'stat'
-'<center>your thoughts</center>'
-'<center><video autoplay loop src="images/shared/home/tv/seeporn.mp4"></video></center>'
-'As the big black guy leads you into the room, your mind drifts to what you have seen watching porn.'
-'The thought of actually being one of those little white girls talking big black cock sends a thrill through you.'
-'You hope this guy lives up to the hype.'
-
-act 'Find out':
-	cls
-	guy += 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bjn.jpg"></center>'
-	'"Oh, my", you whisper softly, as you expose his girth.'
-	'"You like that baby? Go on, and give it a kiss. It won''t bite", he chuckles.'
-	'Wide eyed, you wrap your lips around his massive length. You relish the taste, as you begin to suck. It doesn''t taste like chocolate, but it tastes pretty damn good.'
-	gs 'arousal', 'bj', 10, 'sub'
-	gs 'stat'
-	tipdarand = rand(0, 2)
-
-	if tipdarand = 0:
-		'After a few minutes the man takes your head in his hands, and urges you to take more.'
-		act 'Relax your throat':
-			cls
-
-			if pcs_throat < dick:pcs_throat += 1
-
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/throatn.jpg"></center>'
-
-			if pcs_throat < dick / 2:
-				pcs_mood = 5
-				pcs_horny = 0
-				'Oh god, he''s way too big for you. The pressure on you head isn''t letting up though.'
-				'Holding your head, he settles into a slow rut. After a few minutes of gaging on him, your face is covered in drool, snot, and tears. It feels good to let him take his pleasure like this, but you worry that your face must be a total mess.'
-				gs 'arousal', 'bj', 10, 'sub', 'rough'
-				gs 'stat'
-			elseif pcs_throat >= dick / 2 and pcs_throat < dick:
-				pcs_mood -= 20
-				pcs_horny = pcs_horny/2
-				'Oh god, he''s almost too much for you. He is forcing your head down, so it looks like you only have one option'
-				'You do your best to handle his rough thrusts to your face, but before too long your eyes are watering and snot is dripping from your nose. It''s all very exhilarating, you just wish your make-up wasn''t getting smeared'
-				gs 'arousal', 'bj', 10, 'sub', 'rough'
-				gs 'stat'
-			elseif pcs_throat >= dick:
-				'You accept the challenge posed by his hands, and take his entire length down your throat'
-				'He smiles down at you saying: "Damn, the stories about cock hungry little white girls must be true. You take that thing like a pro, baby."'
-				'You smile up at him around his cock, and continue to deep-throat him.'
-				gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
-				gs 'stat'
-			end
-
-			tipdarand = rand(0, 1)
-
-			if tipdarand = 0:
-				'When you think you can''t take anymore, he grabs your hair and forces you down even further.'
-				'"Oh shit, here it comes baby", he growls.'
-				'Warm jets of semen begin to pour down your throat.'
-				gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
-				gs 'stat'
-				act 'Suck it down':
-					cls
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow3.jpg"></center>'
-					'To keep from choking, you gulp it down, as quickly as possible.'
-					'Mmm, maybe it does taste like chocolate.'
-					'"Damn baby, you must''ve been thirsty", he smiles down at you.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			elseif tipdarand = 1:
-				'When you think you can''t take anymore, the man takes his cock from your mouth.'
-				'"Let me see that tongue baby, I need something to aim for", he says smiling down at you.'
-				gs 'arousal', 'bj', 10, 'sub'
-				gs 'stat'
-				act 'Open up and say ahh':
-					cls
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facialn.jpg"></center>'
-					'He grunts, and sticky streams of cum rain down around your face and mouth.'
-					'"Baby, you look like a fucking masterpiece, so fucking hot. I''m almost ready for another go just from looking at you.", he says panting.'
-					'You give him a wink, as you lick your lips'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			end
-		end
-	elseif tipdarand = 1:
-		'He informs you: "Baby, I''m glad you got me nice and lubed-up. When you find out where this is going next, you''ll be glad too." He grabs hold of one of your butt cheeks, and gives it a good squeeze.'
-		'You bite your lip, as equal parts of fear and excitement fill your thoughts.'
-
-		act 'Take it':
-			cls
-			spafinloc = 3
-			gs 'cum_manage'
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/analn.jpg"></center>'
-			'"Please be gentle", you whisper as he prepares to enter you.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
-			gs 'arousal', 'anal', 30, 'sub'
-			gs 'stat'
-			act 'Call a taxi': gt 'gdksport', 'cab_home'
-		end
-	elseif tipdarand = 2:
-		'After some minutes the man takes his cock out of your mouth, and easily lifts you up and lays you on your back.'
-
-		act 'Open legs for him':
-			cls
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/sexn.jpg"></center>'
-			'A little nervously, you slowly spread your legs for him. The big black guy moves between your legs, and prepares to penatrate you.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinsex','vaginal_sex',10
-			gs 'dinsex','sexcum'
-			gs 'arousal', 'vaginal', 30, 'sub'
-			gs 'stat'
-			act 'Call a taxi': gt 'gdksport', 'cab_home'
-		end
-	end
-end
-
---- DanceWhore6 ---------------------------------
-

locations/DanceWhore7.qsrc

@@ -1,156 +0,0 @@
-# DanceWhore7
-
-minut += 5
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-$npc_thdick[$npclastgenerated] = 'massive'
-npc_dick[$npclastgenerated] = 24
-npc_Malen[$npclastgenerated] = rand(10,15)
-gs 'boyStat', $npclastgenerated
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-$npc_thdick[$npclastgenerated] = 'monstrous'
-npc_dick[$npclastgenerated] = 32
-npc_Malen[$npclastgenerated] = rand(10,15)
-
-gs 'stat'
-'<center>your thoughts</center>'
-'<center><video autoplay loop src="images/shared/home/tv/seeporn.mp4"></video></center>'
-'As the two big black guys lead you into the room, your mind drifts to what you have seen watching porn.'
-'The thought of actually being one of those little white girls talking big black cock sends a thrill through you.'
-'Taking care of two at the same time sounds even more delightfully naughty.'
-
-act 'Get them':
-	cls
-	guy += 2
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bjdn.jpg"></center>'
-	'Hands on your hips you playfully announce to the men: "OK boys, pants off, let''s see them."'
-	'"Now that''s my kind of woman", one of the men smiles as they both start to undress. You tap your foot with feigned impatience, while they get naked.'
-	'"I''m impressed boys. How is a sweet young thing like me ever going to manage?", you say smiling, as you kneel at their feet.'
-	'You spend the next ten minutes licking and greedily sucking their big black cocks.'
-	gs 'arousal', 'bj', 10, 'sub', 'group'
-	gs 'stat'
-	tipdarand = rand(0, 1)
-
-	if tipdarand = 0:
-		'One of the men leans over over and slides a hand down the crack of you ass, when he his finger finds your sphincter you move your hips to encourage him.'
-		'"Damn girl, is that how you want it?", he says.'
-		'"Yes", you whisper.'
-		gs 'arousal', 'anal_finger', 5, 'sub'
-		gs 'stat'
-		
-		act 'Give him your ass':
-			cls
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/dn.jpg"></center>'
-			'You continue sucking away at the first guy, as the other prepares to enter your backdoor.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
-			spafinloc = 3
-			gs 'cum_manage'
-			gs 'arousal', 'bj', 30, 'sub', 'group'
-			gs 'arousal', 'anal', 30, 'sub', 'group'
-			minut -= 30
-			gs 'stat'
-			gs 'boyStat', $npclastgenerated
-			tipdarand = rand(0, 1)
-			
-			if tipdarand = 0:
-				'The man fucking your mouth lets out a grunt, as his seed spills into your mouth.'
-
-				act 'Taste it':
-					cls
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow8.jpg"></center>'
-					'You swallow it down, looking up at him seeking approval.'
-					'He pats you on the head: "I guess you white girls really do crave it.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			elseif tipdarand = 1:
-				'The man at your mouth takes his cock in hand, and starts to jerk.'
-
-				act 'Open you mouth':
-					cls
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facialn.jpg"></center>'
-					'you make appreciative sounds, as hot streams of semen rain down on your face'
-					'After he is finished, you clean him up with licks and gentle kisses.'
-					'"Damn girl, I guess you are what they would call a hot mess", one of the men laughs.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			end
-		end
-	elseif tipdarand = 1:
-		'One of the men gently lifts you up, and lays you on the sofa.'
-		'He moves to position himslef between your legs, while the other guy brings his cock back to your lips.'
-
-		act 'Get filled':
-			cls
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/d1n.jpg"></center>'
-			'You take one man in your mouth, while the other guy spreads your legs.'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinsex','vaginal_sex',10
-			gs 'dinsex','sexcum'
-			gs 'arousal', 'bj', 30, 'sub', 'group'
-			gs 'arousal', 'vaginal', 30, 'sub', 'group'
-			minut -= 30
-			gs 'stat'
-			gs 'boyStat', $npclastgenerated
-			tipdarand = rand(0, 1)
-
-			if tipdarand = 0:
-				'The man fucking your mouth lets out a grunt, as his seed spills into your mouth.'
-
-				act 'Taste it':
-					cls
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow8.jpg"></center>'
-					'You swallow it down, looking up at him seeking approval.'
-					'He pats you on the head: "I guess you white girls really do crave it.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			elseif tipdarand = 1:
-				'The man at your mouth takes his cock in hand, and starts to jerk.'
-
-				act 'Open you mouth':
-					cls
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facialn.jpg"></center>'
-					'you make appreciative sounds, as hot streams of semen rain down on your face'
-					'After he is finished, you clean him up with licks and gentle kisses.'
-					'"Damn girl, I guess you are what they would call a hot mess", one of the men laughs.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Call a taxi': gt 'gdksport', 'cab_home'
-				end
-			end
-		end
-	end
-
-	!!if tipdarand = 2:end
-end
-
---- DanceWhore7 ---------------------------------
-

locations/DanceWhore8.qsrc

@@ -1,113 +0,0 @@
-# DanceWhore8
-
-minut += 5
-
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-$npc_thdick[$npclastgenerated] = 'massive'
-npc_dick[$npclastgenerated] = 24
-npc_Malen[$npclastgenerated] = rand(10,15)
-gs 'boyStat', $npclastgenerated
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-$npc_thdick[$npclastgenerated] = 'monstrous'
-npc_dick[$npclastgenerated] = 32
-npc_Malen[$npclastgenerated] = rand(10,15)
-$boy1 = $npclastgenerated
-gs 'npcgeneratec', 0, 'Albina''s "friend"', rand(18,32)
-$npc_thdick[$npclastgenerated] = 'monstrous'
-npc_dick[$npclastgenerated] = 30
-npc_Malen[$npclastgenerated] = rand(10,15)
-
-gs 'stat'
-'<center>your thoughts</center>'
-'<center><video autoplay loop src="images/shared/home/tv/seeporn.mp4"></video></center>'
-'This is just like one of those movies you''ve seen. Three big black guys leading a young little white girl into a hotel room, oh whatever will you do?'
-'"Let''s get this party started boys", you say smiling, as you take of your top.'
-'"Aren''t you just an eager little minx", one of the men laughs, as they begin to take off their pants.'
-'"Crawl over here and give it a kiss, little kitty. I''m gonna make you purr", another man says.'
-
-act 'Crawl to them':
-	cls
-	guy += 3
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/bjtn.jpg"></center>'
-	'The guys all rush to be first, when you make it over to them.'
-	'"One at a time boys. I know what I''m doing, but I can''t fit all three of those things in my mouth", you playfully chastise them.'
-	'The men laugh, as you settle into a rythm of sucking and stroking. The thought of all this hot black meat eager to be serviced is making your thighs ache with hunger.'
-	gs 'arousal', 'hj', 10, 'sub', 'gangbang'
-	gs 'arousal', 'bj', 10, 'sub', 'gangbang'
-	minut -= 10
-	gs 'stat'
-	!!tipdarand = rand(0, 1)
-	tipdarand = 0
-
-	if tipdarand = 0:
-		'After some minutes one of the men starts to slowly kneed one of your butt cheeks. His fingers are creeping ever closer to your sphincter.'
-		'"Oh, you think so do you", you say, looking up at him innocently.'
-		'"Oh, I know so, I know", he says with a grin.'
-		'Smiling, you slowly get on your hands and crawl toward the sofa. You make sure they get a good look at your white girl ass, as you do.'
-
-		act 'Call them over with a purr':
-			cls
-			spafinloc = 3
-			gs 'cum_manage'
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/fn.jpg"></center>'
-			'The sight of three big black guys rushing over to you puts a big smile on your face.'
-			'Two of the men move to get service from your mouth, while the third prepares to penetrate you.'
-			'"That''s one fine ass booty you got there, white girl", he says'
-			gs 'dinsex', 'boy_puts_condom'
-			gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
-			gs 'arousal', 'bj', 30, 'sub', 'gangbang'
-			gs 'arousal', 'anal', 30, 'sub', 'gangbang'
-			gs 'stat'
-			gs 'boyStat', $npclastgenerated
-			'The two men at your mouth seem close to finishing too.'
-
-			act 'Get some cream':
-				cls
-				tipdarand = rand(0, 1)
-
-				if tipdarand = 0:
-					spafinloc = 11
-					gs 'cum_manage'
-					gs 'boyStat', $boy1
-					spafinloc = 11
-					gs 'cum_manage'
-					facial += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/facialtn.jpg"></center>'
-					'You kneel down, and look up at the two remaining men stroking themselves toward the finish.'
-					'"Oh fuck, I''m going to paint that pretty face white for you, baby!", one of them says grunting.'
-					'Both men erupt at the same time. So much of it splatters against your face that it almost doesn''t seem real. You giggle wildly at the thrill of it all, after they have finished.'
-					'"God damn, this kitty really does love her cream!", one of the men laughs.'
-					gs 'arousal', 'end'
-					gs 'stat'
-				elseif tipdarand = 1:
-					spafinloc = 12
-					gs 'cum_manage'
-					gs 'boyStat', $boy1
-					spafinloc = 12
-					gs 'cum_manage'
-					swallow += 1
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow8.jpg"></center>'
-					'You eagerly suck the two remaining men to finish. It''s not long before both of them have poured their loads down you throat.'
-					'"Our little kitty must have been thirsty", one of the men laughs.'
-					'You look up and give him a little "meow", and lick your lips.'
-					gs 'arousal', 'end'
-					gs 'stat'
-				end
-
-				act 'Call a taxi': gt 'gdksport', 'cab_home'
-			end
-		end
-	end
-
-	!!if tipdarand = 1:end
-	!!if tipdarand = 2:end
-end
-
---- DanceWhore8 ---------------------------------
-

locations/FSfight.qsrc

@@ -1,4 +1,6 @@
 # FSfight
+
+menu_off = 1
 minut += 1
 gs 'stat'
 'Your health <<FSHP>>.'

locations/FSgame.qsrc

@@ -1,4 +1,6 @@
 # FSgame
+
+menu_off = 1
 minut += 1
 gs 'stat'
 gs 'FSstat'

locations/FSroom.qsrc

@@ -1,4 +1,6 @@
 # FSroom
+
+menu_off = 1
 minut += 1
 gs 'stat'
 gs 'FSstat'

locations/FSstart.qsrc

@@ -1,6 +1,7 @@
 # FSstart
 ! WD: Missing code ~ Fight opponent does not get any variables set.
 
+menu_off = 1
 minut += 1
 nosave = 1
 gs 'stat'

locations/FedorEv4.qsrc

@@ -2611,38 +2611,38 @@ if $ARGS[0] =  'Hallway':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/fedorhome/hallway.jpg"></center>'
 	'This is the central hallway which connects the whole house. There is a <a href="exec:gt ''mirror'', ''start''">mirror</a>, a coat rack and multiple painting on the walls.'
 
+	act'<b>Leave the house</b>':
+		if $clothingworntype = 'nude':
+			gt 'FedorEv4', 'Nude'
+		elseif FedorHomeDate = 1 and week <= 5 and hour >= 14 and hour <= 24:
+			gt 'FedorEv4', 'End Date'
+		else
+			FedorHomeDate = 0 & gt 'pavResidential'
+		end
+	end
+	
 	if fedorKozlovQW > 1 and week <= 5 and hour >= 16 and hour <= 17:
-		act 'Bedroom':gt 'FedorMisc', 'Workout Time'
+		act 'Go to Fedor''s bedroom':gt 'FedorMisc', 'Workout Time'
 	else
-		act 'Bedroom':gt 'FedorEv4', 'Bedroom'
+		act 'Go to Fedor''s bedroom':gt 'FedorEv4', 'Bedroom'
 	end
 
 	if fedorKozlovQW > 1 and week <= 5 and hour >= 16 and hour <= 17:
-		act 'Bathroom':gt 'FedorMisc', 'Workout Time'
+		act 'Go to the bathroom':gt 'FedorMisc', 'Workout Time'
 	else
-		act 'Bathroom':gt 'FedorEv4', 'Bathroom'
+		act 'Go to the bathroom':gt 'FedorEv4', 'Bathroom'
 	end
 
 	if fedorKozlovQW > 1 and week <= 5 and hour >= 16 and hour <= 17:
-		act 'Kitchen':gt 'FedorMisc', 'Workout Time'
+		act 'Go to the kitchen':gt 'FedorMisc', 'Workout Time'
 	else
-		act 'Kitchen':gt 'FedorEv4', 'Kitchen'
+		act 'Go to the kitchen':gt 'FedorEv4', 'Kitchen'
 	end
 
 	if fedorKozlovQW > 1 and week <= 5 and hour >= 16 and hour <= 17:
-		act 'Living room':gt 'FedorMisc', 'Workout Time'
+		act 'Go to the living room':gt 'FedorMisc', 'Workout Time'
 	else
-		act 'Living room':gt 'FedorEv4', 'Livingroom'
-	end
-
-	act'Leave House':
-		if $clothingworntype = 'nude':
-			gt 'FedorEv4', 'Nude'
-		elseif FedorHomeDate = 1 and week <= 5 and hour >= 14 and hour <= 24:
-			gt 'FedorEv4', 'End Date'
-		else
-			FedorHomeDate = 0 & gt 'pavResidential'
-		end
+		act 'Go to the living room':gt 'FedorEv4', 'Livingroom'
 	end
 end
 

locations/FightCrouch.qsrc

@@ -1,5 +1,6 @@
 # FightCrouch
-!!rMin -= 1
+
+menu_off = 1
 gs 'fightStat'
 stoper = 0
 '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/cro.jpg"></center>'

locations/FightE.qsrc

@@ -1,6 +1,6 @@
 # FightE
 $resultUderDinE = {
-	cls
+	*clr & cla
 
 	if Aktiv > Passiv:
 		pointE += 1
@@ -21,11 +21,11 @@ $resultUderDinE = {
 		'The two of you try to one up each other without being able to gain the superiority.'
 
 		act '...':gt $curloc
-end
+	end
 }
 
 $resultBrosDinE = {
-	cls
+	*clr & cla
 
 	if Aktiv > Passiv:
 		pointE += 2

locations/Gadbana.qsrc

@@ -6,8 +6,18 @@ $loc = 'Gadbana'
 $metkaM = ''
 $locM = 'Gadbana'
 $location_type = 'bathroom'
+$menu_loc = 'Gadbana'
+$menu_arg = ''
+menu_off = 0
 frost = 0
-clothesAtLocation = FUNC('lost_clothes_here','Gadbana')
+if banya_underwear = 0:
+	if $pantyworntype ! 'none' and $braworntype ! 'none':
+		banya_underwear = 1
+	else
+		banya_underwear = 2
+	end
+end
+!!clothesAtLocation = FUNC('lost_clothes_here','Gadbana')
 
 '<center><h4>bath</h4></center>'
 
@@ -20,9 +30,11 @@ if mira = 0:
 	if clothesAtLocation = 1 and $clothingworntype = 'nude':
 		act 'Get dressed and leave':
 			minut += 1
-			gs 'clothing', 'recover_lost_clothes', 'Gadbana', 1
-			gs 'underwear', 'wear'
+			menu_off = 1
+			!!gs 'clothing', 'recover_lost_clothes', 'Gadbana', 1
+			if banya_underwear = 1: gs 'underwear', 'wear'
 			gs 'stat'
+			killvar 'banya_underwear'
 			gt 'Gaddvor'
 		end
 	end
@@ -31,24 +43,28 @@ if mira = 0:
 	elseif $clothingworntype = 'nude':
 		act 'Go outside naked':
 			*clr & cla
+			menu_off = 1
 			minut += 1
 			inhib_exp += rand(0,2)
 			grandma_trouble += rand(0,1)
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>''It''s certainly risky leaving the hosue like this, and while it''s unlikely anyone saw you go outside naked, there''s a thrill in almost getting caught'
-			gs 'clothing', 'recover_lost_clothes', 'Gadbana'
+			!!gs 'clothing', 'recover_lost_clothes', 'Gadbana'
 			gs 'arousal', 'voyeur', 10, 'exhibitionism'
+			killvar 'banya_underwear'
 			gs 'stat'
 			act 'Continue': gt 'Gaddvor'
 		end
 	elseif $clothingworntype = 'nude' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
 		act 'Go outside in your underwear':
 			*clr & cla
+			menu_off = 1
 			minut += 1
 			inhib_exp += rand(0,2)
 			grandma_trouble += rand(0,1)
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>''It''s certainly risky leaving the hosue like this, and while it''s unlikely anyone saw you go outside in your underwear, there''s a thrill in almost getting caught'
-			gs 'clothing', 'recover_lost_clothes', 'Gadbana'
+			!!gs 'clothing', 'recover_lost_clothes', 'Gadbana'
 			gs 'arousal', 'voyeur', 10, 'exhibitionism'
+			killvar 'banya_underwear'
 			gs 'stat'
 			act 'Continue': gt 'Gaddvor'
 		end
@@ -63,13 +79,14 @@ if mira = 0:
 			if banaday ! daystart:
 				act 'Relax in the banya (2:00)':
 					cls
+					menu_off = 1
 					minut += 120
 					pcs_sweat = rand(0,5)
 					dynamic $showerdin
 					pcs_hairbsh = 0
 					pcs_makeup = 1
-					gs 'underwear', 'remove'
-					gs 'clothing', 'strip'
+					if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
+					if $clothingworntype ! 'nude': gs 'clothing', 'strip'
 
 					banaday = daystart
 
@@ -94,11 +111,13 @@ if mira = 0:
 
 	act 'Wash your body (0:25)':
 		cls
+		menu_off = 1
 		minut += 25
 		dynamic $showerdin
 		if frost > 0:frost = 0
-		gs 'clothing', 'strip', 'Gadbana'
-		gs 'underwear', 'remove'
+		!!gs 'clothing', 'strip', 'Gadbana'
+		gs 'clothing', 'strip'
+		if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mit.jpg"></center>'
 		'You lather your body washcloth and start scrubbing your body. You rinse off the soap and start to lather the hair with the shampoo. After rising off the shampoo you are completely clean.'
@@ -113,7 +132,8 @@ if mira = 0:
 	if $clothingworntype ! 'nude':
 		act 'Remove clothes':
 			minut += 1
-			gs 'clothing', 'strip', 'Gadbana'
+			!!gs 'clothing', 'strip', 'Gadbana'
+			gs 'clothing', 'strip'
 			gs 'stat'
 			gt 'Gadbana'
 		end
@@ -130,6 +150,7 @@ if mira = 0:
 		if pain['total'] > 0 and pain['killer'] = 0:
 			act 'Take a painkiller':
 				cla
+				menu_off = 1
 				pain['killer'] += 1
 				painkiller -= 1
 				pcs_hydra += 20
@@ -143,7 +164,7 @@ if mira = 0:
 		end
 	end
 	if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>.'
-	'There''s a small shaving <a href="exec:gt ''mirror'', ''start''">mirror</a> resting on the window sill, which you can use to ' + iif(pcs_hairbsh = 0,'<a href="exec:GT ''mirror'',''brush''">brush</a>','brush') + ' your hair.'
+	'There''s a small shaving <a href="exec:gt ''mirror'', ''start''">mirror</a> resting on the window sill, which you can use to ' + iif(pcs_hairbsh = 0,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair.'
 
 	!WD: heal chafe
 	if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
@@ -170,6 +191,7 @@ if mira = 0:
 	if (cumloc[6] = 1 or cumloc[7] = 1):
 		act 'Rinse the cum stains off your clothes in luke warm water(0:10)':
 			cla
+			menu_off = 1
 			cumspclnt = 6
 			gs 'cum_cleanup'
 			minut += 10
@@ -195,6 +217,7 @@ if mira = 0:
 	if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
 		act 'Rub ointment onto your pussy (0:05)':
 			cla
+			menu_off = 1
 			mosal_time = (daystart * 100) + hour
 			minut += 5
 			mosolmaz -= 1
@@ -208,8 +231,10 @@ else
 	!125st
 	act 'Undress':
 		cls
-		gs 'clothing', 'strip', 'Gadbana'
-		gs 'underwear', 'remove'
+		menu_off = 1
+		!!gs 'clothing', 'strip', 'Gadbana'
+		gs 'clothing', 'strip'
+		if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/village/mira/miraban.jpg"></center>'
 			'While you undress, through the corner of your eye you notice Mira removing her panties.'
@@ -247,8 +272,9 @@ else
 						cla
 						mira = 0
 						minut += 1
-						gs 'clothing', 'recover_lost_clothes', 'Gaddvor', 1
-						gs 'underwear', 'wear'
+						!!gs 'clothing', 'recover_lost_clothes', 'Gaddvor', 1
+						if banya_underwear = 1: gs 'underwear', 'wear'
+						killvar 'banya_underwear'
 						gs 'stat'
 						act 'Continue': gt 'Gaddvor'
 					end
@@ -261,9 +287,10 @@ else
 					grandma_trouble += rand(0,1)
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
 					'Luckily no one saw you outside naked, but there''s a thrill in almost getting caught'
-					gs 'clothing', 'recover_lost_clothes', 'Gaddvor'
+					!!gs 'clothing', 'recover_lost_clothes', 'Gaddvor'
 					gs 'arousal', 'voyeur', 10, 'exhibitionism'
 					gs 'arousal', 'end'
+					killvar 'banya_underwear'
 					gs 'stat'
 					act 'Continue': gt 'Gaddvor'
 				end

locations/Gaddvor.qsrc

@@ -15,6 +15,7 @@ if $ARGS[0]='':
 	if hour >= 6 and hour < 22:
 		if grandma_trouble = 10:
 			*clr & cla
+			menu_off = 1
 			killvar 'grandma_trouble'
 			'<center><h4>Your grandparents'' yard</h4></center>'
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandma_trouble.jpg"></center>'
@@ -92,6 +93,7 @@ if $ARGS[0]='':
 		mira_temp = rand(1,5)
 		if mira_temp = 3 and hour >= 9 and hour <= 19 and npc_rel['A60'] >= 15 and Mira_no = 0 and sunWeather = 1 and mira_guestday ! daystart and (npc_QW['A63'] < 13 or npc_QW['A60'] >= 10 or mirasex > 1):
 			*clr & cla
+			menu_off = 1
 			gs 'Miroslava', 'miraclothes'
 			'You went out into the yard and noticed Mira standing there.'
 			'"Oh, <<$pcs_nickname>> hi, hope you don’’t mind me visiting. I was bored being home alone." she said smiling.'

locations/Gadgarden.qsrc

@@ -1,8 +1,12 @@
 # Gadgarden
+
 if $ARGS[0] = 'garden':
 	$location_type = 'secluded'
-    $metka = $ARGS[0]
-    $loc = $CURLOC
+    $metka = 'garden'
+    $loc = 'Gadgarden'
+	$menu_loc = 'Gadgarden'
+	$menu_arg = 'garden'
+	menu_off = 0
     gs 'gadukino_event', 'sound'
     cls
     gs'stat'
@@ -30,6 +34,7 @@ if $ARGS[0] = 'garden':
 	    act 'Work in the garden (3:00)':
 		    cla
 		    *clr
+			menu_off = 1
 		    minut += 180
 		    pcs_sweat += 10
             work_garden = 0
@@ -49,6 +54,7 @@ if $ARGS[0] = 'garden':
 	    act 'Water the garden (1:00)':
 		    cla
 		    *clr
+			menu_off = 1
 		    pcs_sweat += 10
 		    minut += 60
 		    water_garden = 0
@@ -68,6 +74,7 @@ if $ARGS[0] = 'garden':
 	    act 'Harvest (3:00)':
 		    cla
 		    *clr
+			menu_off = 1
 		    minut += 180
 		    pcs_sweat += 10
 		    harvest_garden = 0
@@ -86,8 +93,11 @@ if $ARGS[0] = 'garden':
 end	
 
 if $ARGS[0] = 'strawberry':
-    $metka = $ARGS[0]
-    $loc = $CURLOC
+    $metka = 'strawberry'
+    $loc = 'Gadgarden'
+	$menu_loc = 'Gadgarden'
+	$menu_arg = 'strawberry'
+	menu_off = 0
     gs 'gadukino_event', 'sound'
     cls
     gs'stat'
@@ -113,6 +123,7 @@ if $ARGS[0] = 'strawberry':
 		act 'Eat the strawberries (1:00)':
 			cla
 			*clr
+			menu_off = 1
 			strawberriesday = daystart
 			minut += 60
 			pcs_mood += 10
@@ -133,6 +144,7 @@ if $ARGS[0] = 'strawberry':
 		act 'Collect strawberries (3:00)':
 			cla
 			*clr
+			menu_off = 1
 			minut += 180
 			pcs_sweat += 10
 			collect_strawberries = 0
@@ -156,8 +168,11 @@ end
 
 
 if $ARGS[0] = 'fruit_garden':
-    $metka = $ARGS[0]
-    $loc = $CURLOC
+    $metka = 'fruit_garden'
+    $loc = 'Gadgarden'
+	$menu_loc = 'Gadgarden'
+	$menu_arg = 'fruit_garden'
+	menu_off = 0
     gs 'gadukino_event', 'sound'
     cls
     gs'stat'
@@ -175,6 +190,7 @@ if $ARGS[0] = 'fruit_garden':
 		act 'Eat the fruit (1:00)':
 			cla
 			*clr
+			menu_off = 1
 			fruitday = daystart
 			minut += 60
 			pcs_mood += 10
@@ -195,6 +211,7 @@ if $ARGS[0] = 'fruit_garden':
 		act 'Collect fruit (3:00)':
 			cla
 			*clr
+			menu_off = 1
 			minut += 180
 			pcs_sweat += 10
 			fruit_collect = 0

locations/Gadhouse.qsrc

@@ -127,7 +127,7 @@ if $ARGS[0] = 'Main':
 	$locM = 'Gadhouse'
 	$locclass = 'livingr'
 	$menu_loc = 'Gadhouse'
-	$menu_arg = 'livingr'
+	$menu_arg = 'Main'
 	menu_off = 0
 	*clr
 	cla
@@ -199,6 +199,7 @@ if $ARGS[0] = 'Main':
 	elseif $clothingworntype = 'nude':
 		act 'Go outside naked':
 			*clr & cla
+			menu_off = 1
 			minut += 1
 			inhib_exp += rand(0,2)
 			grandma_trouble += rand(1,3)
@@ -212,6 +213,7 @@ if $ARGS[0] = 'Main':
 	elseif $clothingworntype = 'nude' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
 		act 'Go outside in your underwear':
 			*clr & cla
+			menu_off = 1
 			minut += 1
 			inhib_exp += rand(0,2)
 			grandma_trouble += rand(1,3)
@@ -255,6 +257,7 @@ if $ARGS[0] = 'Main':
 		act 'Drink tea with biscuits (0:05)':
 			cla
 			*clr
+			menu_off = 1
 			minut += 5
 			pranik -= 1
 			pcs_health += 30
@@ -282,6 +285,7 @@ if $ARGS[0] = 'Main':
 		act 'Prepare a diet meal (0:30)':
 			cla
 			*clr
+			menu_off = 1
 			frost = 0
 			minut += 30
 			pcs_health += 10
@@ -321,6 +325,7 @@ if $ARGS[0] = 'Main':
 			act 'Take a pill (0:05)':
 				cla
 				*clr
+				menu_off = 1
 				minut += 5
 				lekarday = daystart
 				lekarstvo -= 1
@@ -345,6 +350,7 @@ if $ARGS[0] = 'Main':
 			act 'Take vitamins (0:05)':
 				cla
 				*clr
+				menu_off = 1
 
 				minut += 5
 				vitaminday = daystart
@@ -378,6 +384,7 @@ if $ARGS[0] = 'Main':
 		if newgobelen = 0 and tkan > 0:
 			act'Start a new tapestry':
 				*clr & cla
+				menu_off = 1
 				tkan -= 1
 				newgobelen = 1
 				minut += 15
@@ -390,6 +397,7 @@ if $ARGS[0] = 'Main':
 			'Your tapestry is <<newgobelen/10>> percent finished.'
 			act'Work on the tapestry for an hour':
 				*clr & cla
+				menu_off = 1
 				minut += 60
 				sewng_exp += rand(pcs_intel/10, pcs_intel/5)
 				gobramax = (pcs_sewng - 70) * 6
@@ -426,6 +434,9 @@ if $ARGS[0]='grandma':
 
 		act 'Maybe you should get dressed before talking to her':gt 'Gadhouse', 'Start'
 	else
+		if grigory_flower > 0 and grigory_flower < 10:
+			act 'Talk to her about the flowers': gt 'grigory', 'flower4'
+		end
 		if grandmahelpday ! daystart:
 			act 'Offer to help out': grandmahelpday = daystart & gt'grandmahelp'
 		end
@@ -560,6 +571,9 @@ if $ARGS[0]='grandpa':
 		act 'Maybe you should get dressed before talking to him':gt 'Gadhouse', 'Start'
 	else
 
+		if grigory_flower > 0 and grigory_flower < 10:
+			act 'Talk to him about the flowers': gt 'grigory', 'flower3'
+		end
 		if go_in_boletus = 1:'You promise to bring grandpa <<grandpa_boletus>> kg of mushrooms.'
 		if go_in_bilberry = 1:'You promise to bring grandpa <<grandpa_bilberry>> kg of berries.'
 		if go_in_boletus_bilberry = 1:'You promise to bring grandpa <<grandpa_boletus>> kg mushrooms and <<grandpa_bilberry>> kg of berries.'

locations/Gadsarai.qsrc

@@ -1,5 +1,7 @@
 # Gadsarai
 
+menu_off = 1
+
 if $ARGS[0] = '':
 	$metka = ''
 	$loc = 'Gadsarai'

locations/Gnpc.qsrc

@@ -1,4 +1,6 @@
 # Gnpc
+
+menu_off = 1
 !!Guys
 GvstreBoyAfter[numnpc] = 0
 GvstreBoy = 0

locations/Gnpc2.qsrc

@@ -1136,6 +1136,7 @@ $din_gboy_go_to_boyhome = {
 
 }
 
+menu_off = 1
 gs 'stat'
 '<center><h1><font color="maroon"><<$boydesc>></font></h1></center>'
 '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/<<numnpc>>.jpg"></center>'

locations/Gnpc_cinema.qsrc

@@ -1,5 +1,6 @@
 # Gnpc_cinema
 
+menu_off = 1
 cls
 minut += 15
 gs 'stat'

locations/Gshveyfab.qsrc

@@ -1,74 +1,51 @@
 # Gshveyfab
-$metka = $ARGS[0]
-$loc = $CURLOC
+
 $location_type = 'public_outdoors'
 
-if $ARGS[0] = 'start':
-	cla
-	*clr
+if $ARGS[0] = 'tailor':
+	*clr & cla
+	$metka = 'tailor'
+	$loc = 'Gshveyfab'
+	$menu_loc = 'Gshveyfab'
+	$menu_arg = 'tailor'
+	menu_off = 0
 	gs'stat'
-
-	'<center><B>TEXTILE FACTORY, PARIS COMMUNE</B></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/factory/gshveyfab.jpg"></center>'
-	'You''re standing in front one biggest employers in Pavlovsk, the local textile factory. It''s mostly known for making clothing for the G&M Store, which also opened up a store within the compound.'
-	'Opening hours are Monday to Friday, between 08:00 to 20:00.'
-	if hour >= 8 and hour < 20 and week >= 1 and week <= 5:
-		'Behind the security checkpoint you can see the <a href="exec:minut += 5 & GT ''Gshveyfab'', ''enter''">entrance</a> that every employee passes through.'
-	elseif hour < 8 or hour > 20 or week > 5:
-		'The factory is currently closed.'
-		'Opening hours are Monday through Friday:'
-		'First shift - 08:00 to 16:00'
-		'Second shift - 16:00 to 20:00'
-	end
-	if week < 6 and hour >= 8 and hour < 20:
-		*pl 'The local <a href="exec:torg = 0 & GT ''budgetclothes'',''start''">G&M Store</a> is currently open.'
-	else
-		*pl 'The local G&M Store is currently closed. Opening hours are Monday to Friday, between 08:00 to 20:00.'
-	end
-
-	if week < 7 and hour >= 8 and hour < 15:
-		'In a smaller building right next to the factory is the local tailor shop, a service offered by the factory. Opening hours are Monday to Saturday, between 08:00 to 15:00.'
-		act 'Visit the tailor':
-			cla
-			*clr
-			minut += 5
-			gs'stat'
-			'An elderly man is inspecting some repaired clothes, as you walk in, he stops and smiles gently, greeting you.'
-			'"Hello there young lady, do you want to adjust some of your clothing? It''ll cost you 500 <b>₽</b> per item."'
-
-			if money >= 500:
-				act 'Resize the clothes you''re wearing (500 <b>₽</b>)':
-					cla
-					*clr
-					minut += 15
-					if CloStyle = 5 or $clothingworntype = 'exercise':
-						'The tailor is looking irritatingly at you, "Why are you wasting my time with exercise clothing? That type of clothing does not need to be resized..."'
-					else
-						money -= 500
-						dynamic '<<$clothingworntype>>B[<<clothingwornnumber>>] = pcs_hips'
-						'You are handed a t-shirt and shorts as you undress and give the clothes to the tailor for adjustment. The tailor is fast and only takes fifteen minutes until your clothes are ready.'
-						'You are handed your clothes back and quickly get dressed. You''re pleased with the job that the tailor has done.'
-					end
-
-					act 'Leave': minut += 5 & gt 'Gshveyfab', 'start'
-				end
-
-				act 'Resize your other clothes':gt 'clothing', 'view_clothing_list', 'resize'
-				act 'Resize all your clothes':gt 'portnoi2'
+	'There is a small wooden counter and above that a sign that says "If you can''t wear it we''ll adjust it"'
+	'Behind the counter an elderly man is inspecting some repaired clothes, he stops and smiles gently, greeting you.'
+	'"Hello there young lady, do you want to adjust some of your clothing? It''ll cost you 500 <b>₽</b> per item."'
+
+	act 'Leave': gt 'pavIndustrial'
+	
+	if money >= 500:
+		act 'Resize the clothes you''re wearing (500 <b>₽</b>)':
+			*clr & cla
+			minut += 15
+			if CloStyle = 5 or $clothingworntype = 'exercise':
+				'The tailor is looking irritatingly at you, "Why are you wasting my time with exercise clothing? That type of clothing does not need to be resized..."'
+			else
+				money -= 500
+				dynamic '<<$clothingworntype>>B[<<clothingwornnumber>>] = pcs_hips'
+				'You are handed a t-shirt and shorts as you undress and give the clothes to the tailor for adjustment. The tailor is fast and only takes fifteen minutes until your clothes are ready.'
+				'You are handed your clothes back and quickly get dressed. You''re pleased with the job that the tailor has done.'
 			end
-			act 'Leave': minut += 5 & gt 'Gshveyfab', 'start'
 
+			act 'Leave': minut += 5 & gt 'pavIndustrial'
 		end
+
+		act 'Resize your other clothes':gt 'clothing', 'view_clothing_list', 'resize'
+		act 'Resize all your clothes':gt 'portnoi2'
 	end
 
-	act 'Head to the residential area': minut += 15 & gt 'pavResidential'
-	act 'Head to the high street': minut += 15 & gt 'pavCommercial'
 end
 
 if $ARGS[0] = 'enter':
-CLOSE ALL
-	cla
-	*clr
+	CLOSE ALL
+	*clr & cla
+	$metka = 'tailor'
+	$loc = 'Gshveyfab'
+	$menu_loc = 'Gshveyfab'
+	$menu_arg = 'enter'
+	menu_off = 0
 	gs'stat'
 	'<center><B>TEXTILE FACTORY, PARIS COMMUNE</B></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/factory/gshveyfab.jpg" ></center>'
@@ -77,9 +54,11 @@ CLOSE ALL
 	'First shift - 08:00 to 16:00.'
 	'Second shift - 16:00 to 20:00.'
 	*nl
-	if workFabrika = 0 and age >= 16 and age < 18:'You can apply for a <a href="exec:minut += 15 & GT ''Gshveyfab'', ''job_start''">part-time job</a> here.'
-	if work = 0 and workFabrika = 0 and age >= 18:'You can apply for a <a href="exec:minut += 15 & GT ''Gshveyfab'', ''job_start''">full-time job</a> here.'
+	if workFabrika = 0 and age >= 16 and age < 18:'You can apply for a <a href="exec:minut += 15 & gt ''Gshveyfab'', ''job_start''">part-time job</a> here.'
+	if work = 0 and workFabrika = 0 and age >= 18:'You can apply for a <a href="exec:minut += 15 & gt ''Gshveyfab'', ''job_start''">full-time job</a> here.'
 
+	act 'Leave': minut += 5 & gt 'pavIndustrial'
+	
 	if workFabrika = 1 and week >= 1 and week <= 5 and hour >= 8 and hour < 9 and age >= 18:
 		'Your shift is starting now.'
 		act 'Start shift': gt'Gshveyfab','job'
@@ -91,6 +70,7 @@ CLOSE ALL
 	if workFabrika = 1:
 		'You can quit your job, but quitting will lead to a deducted wage.'
 		act 'Quit job':
+			menu_off = 1
 			if age >= 16 and age < 18:
 				smenaFabrika -= 1
 			elseif age >= 18:
@@ -108,22 +88,29 @@ CLOSE ALL
 			gt 'Gshveyfab','enter'
 		end
 	end
-	act 'Leave': minut += 5 & gt 'Gshveyfab', 'start'
 end
 
 if $ARGS[0] = 'job_start':
-	cla
-	*clr
+	*clr & cla
+	$metka = 'tailor'
+	$loc = 'Gshveyfab'
+	$menu_loc = 'Gshveyfab'
+	$menu_arg = 'job_start'
+	menu_off = 0
 	gs'stat'
 	'<center><B>FOREMAN''S OFFICE</B></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/stepan/nachalnik.jpg" ></center>'
 	'You head into the factory foreman, Stepan Sergeyevich office, and ask him if there''s an available job.'
+	
+	act 'Leave': gt'Gshveyfab', 'enter'
+	
 	if age >= 16 and age < 18 and workFabrika = 0:
 		'"Sure, have a seat," he says. "Now, the work is difficult and meticulous, but doesn''t require any special knowledge. You should catch on pretty quick. Since you are not an adult yet, you can only work half-time, and the pay is 105 <b>₽</b> per hour. Once you become an adult, we can transfer you to full-time. Naturally, as this is a state-recognized company, we do require all the appropriate documentation. The main shift is on weekdays from 08:00 to 16:00, but you will be working the second shift, from 16:00 to 20:00.'
 		'But beware, if you miss more than three days of work in a single month, you will be fired. You will be paid at the end of the month and getting fired before then will forfeit any pay not yet received. So, is that okay?"'
 
 		act 'Accept the job':
 			cla
+			menu_off = 1
 			minut += 10
 			work = 1
 			workFabrika = 1
@@ -131,7 +118,7 @@ if $ARGS[0] = 'job_start':
 			FabrikaProgul = 0
 			'You hand him over your documents, which he takes and then reminds you to come in on every weekday, at 16:00.'
 
-			act 'Leave':gt'Gshveyfab', 'enter'
+			act 'Leave': gt'Gshveyfab', 'enter'
 		end
 
 	elseif age >= 18 and workFabrika = 0:
@@ -140,6 +127,7 @@ if $ARGS[0] = 'job_start':
 
 		act 'Accept the job':
 			cla
+			menu_off = 1
 			minut += 10
 			work = 1
 			workFabrika = 1
@@ -147,16 +135,14 @@ if $ARGS[0] = 'job_start':
 			FabrikaProgul = 0
 			'You hand him your documents, which he takes and then reminds you to come in on every weekday, at 08:00.'
 
-			act 'Leave':gt'Gshveyfab', 'enter'
+			act 'Leave': gt'Gshveyfab', 'enter'
 		end
 	end
-
-	act 'Leave':gt'Gshveyfab', 'enter'
 end
 
 if $ARGS[0] = 'job':
-	cla
-	*clr
+	*clr & cla
+	menu_off = 1
 	FabrikaProgul -= 1
 	if FabrikaProgul < 0: FabrikaProgul = 0
 	if age >= 16 and age < 18:
@@ -172,7 +158,7 @@ if $ARGS[0] = 'job':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/factory/gshveyfab.jpg" ></center>'
 	'You work hard throughout your shift at the factory. The foreman has you running all over the factory performing all type of tasks. You barely even have time to rest during the shift.'
 
-	act 'Leave': minut += 5 & gt 'Gshveyfab', 'start'
+	act 'Leave': minut += 5 & gt 'pavIndustrial'
 end
 
 --- Gshveyfab ---------------------------------

locations/HotelAdmin.qsrc

@@ -2,6 +2,7 @@
 $metka = $ARGS[0]
 $loc = $CURLOC
 $location_type = 'event'
+menu_off = 1
 
 clr
 gs'stat'

locations/HotelHole.qsrc

@@ -4,6 +4,9 @@ CLOSE ALL
 $metka = $ARGS[0]
 $prevloc = $loc
 $loc = $CURLOC
+$menu_loc = 'HotelHole'
+$menu_arg = ''
+menu_off = 0
 $location_type = 'public_indoors'
 
 clr
@@ -103,11 +106,11 @@ end
 :skipresepevent
 '<center><H4>Pavlovsk hotel</H4></center>'
 '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.hole.jpg"></center>'
-'As you enter the Pavlovsk hotel you''re always surprised by how fancy it looks on the inside, given the shabby exterior. You can approach the <a href="exec:minut += 1 & GT ''hotel_resep''">reception desk</a> of the hotel where a cute brunette is currently manning the desk, she gives you a friendly nod when you get into her sight range.'
+'As you enter the Pavlovsk hotel you''re always surprised by how fancy it looks on the inside, given the shabby exterior. You can approach the <a href="exec:minut += 1 & gt ''hotel_resep''">reception desk</a> of the hotel where a cute brunette is currently manning the desk, she gives you a friendly nod when you get into her sight range.'
 if hour >= 12 and hour < 20 and proshotelopen = 1: '<a href="exec:gt ''HotelHole'',''Pavlin''">Pavlin</a> is sitting in the lobby looking around for fresh prey.'
 
 if hour >= 12 and hour <= 13 and GermanQW > 0:
-	'Next to the reception desk, you see a door labeled <a href="exec:minut += 1 & GT ''hoteladmin''">"Administration"</a>. That must be where the hotel manager works. The door is currently open.'
+	'Next to the reception desk, you see a door labeled <a href="exec:minut += 1 & gt ''hoteladmin''">"Administration"</a>. That must be where the hotel manager works. The door is currently open.'
 end
 
 if hotwait = 1:
@@ -172,6 +175,7 @@ end
 
 if $ARGS[0] = 'Pavlin' :
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/pavlin/pavlin.jpg"></center>'
 	'Varsonofy Krestovoz is a small time gangster who makes his money by whoring out vulnerable women in Pavlovsk. Few people know his name as he is usually called Pavlin (the Peacock).'
@@ -353,7 +357,7 @@ if $ARGS[0] = 'Pavlin' :
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/pavlin/pavlin.jpg"></center>'
 			'"<<$pcs_firstname>>, today I received a request for a pregnant girl. A Pregnant Girl! How the hell am I going to find a girl that is pregnant and willing to do this shit." he says, shaking his head.'
-			if knowpreg = 1 and pregtime >= 90:
+			if knowpreg = 1 and pregtime >= 150:
 				cla
 				'You feel anger towards Pavlin rising up inside you. "Do you ever pay attention to me? Can''t you see I am pregnant?" You ask, gesturing at your obviously swollen belly.'
 				'"Of course I know that!" Pavlin''s brows furrow, letting you know he''s getting mad. Butterflies flutter in your stomach, fear trying to match up with the anger.'
@@ -366,7 +370,7 @@ if $ARGS[0] = 'Pavlin' :
 				end
 				act '"Of course I am, for the right price..."': gt 'HotelHole','PregBDSM'
 			end
-			if knowpreg = 1 and pregtime < 90:
+			if knowpreg = 1 and pregtime < 150:
 				cla
 				'"Actually I am pregnant but unfortunately not really showing yet."'
 				'"That''s great, Once you are showing come to me again and I''ll introduce you."'
@@ -588,6 +592,9 @@ if $ARGS[0] = 'PregBDSM' :
 									'The nurse turns around, slightly startled, and says, "Oh you are awake. Just one minute, I will get the doctor for you." The nurse quickly exits the room.'
 									pregtime = 0
 									pregtalk = 0
+									pregTalkPC = 0
+									pregTalkNat = 0
+									pregTalkbrother = 0
 									preg = 0
 									abortionbirthdate = daystart
 									cycle = 4

locations/HotelRoom.qsrc

@@ -6,6 +6,9 @@ $locM = 'HotelRoom'
 $metka = 'normal'
 $loc = 'HotelRoom'
 $location_type = 'private'
+$menu_loc = 'HotelRoom'
+$menu_arg = 'normal'
+menu_off = 0
 clr
 gs 'stat'
 	cla
@@ -14,8 +17,8 @@ gs 'stat'
 	'<center><b><font color = maroon>Your normal hotel room</font></b></center>'
 	'<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal.jpg"></center>'
-	'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) stands near the entrance of the room. Next to the door, you can find a <a href="exec:GT ''mirror'',''start''">mirror</a>. The door to the <a href="exec:GT ''hotelroom'',''shower1''">bathroom</a> is to the right.'
-	'Your hotel room also has a <a href="exec:GT ''HotelRoom'',''tv''">TV</a>.'
+	'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) stands near the entrance of the room. Next to the door, you can find a <a href="exec:gt ''mirror'',''start''">mirror</a>. The door to the <a href="exec:gt ''hotelroom'',''shower1''">bathroom</a> is to the right.'
+	'Your hotel room also has a <a href="exec:gt ''HotelRoom'',''tv''">TV</a>.'
 	act'Go to the hotel lobby':
 		if $clothingworntype ! 'nude':
 			gt'hotelHole'
@@ -40,6 +43,9 @@ $metkaM = 'better'
 $locM = 'HotelRoom'
 $metka = 'better'
 $loc = 'HotelRoom'
+$menu_loc = 'HotelRoom'
+$menu_arg = 'better'
+menu_off = 0
 $location_type = 'private'
 clr
 gs 'stat'
@@ -49,8 +55,8 @@ gs 'stat'
 	'<center><b><font color = maroon>Your luxury room</font></b></center>'
 	'<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better.jpg"></center>'
-	'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) stands near the entrance of the room. Next to the door, you can find a <a href="exec:GT ''mirror'',''start''">mirror</a>. The door to the <a href="exec:GT ''hotelroom'',''shower1''">bathroom</a> is to the right.'
-	'Your hotel room also has a small flat-screen <a href="exec:GT ''HotelRoom'',''tv''">TV</a>, right across the bed.'
+	'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) stands near the entrance of the room. Next to the door, you can find a <a href="exec:gt ''mirror'',''start''">mirror</a>. The door to the <a href="exec:gt ''hotelroom'',''shower1''">bathroom</a> is to the right.'
+	'Your hotel room also has a small flat-screen <a href="exec:gt ''HotelRoom'',''tv''">TV</a>, right across the bed.'
 	act'Go to the hotel lobby':
 		if $clothingworntype ! 'nude':
 			gt'hotelHole'
@@ -74,6 +80,9 @@ $metkaM = 'best'
 $locM = 'HotelRoom'
 $metka = 'best'
 $loc = 'HotelRoom'
+$menu_loc = 'HotelRoom'
+$menu_arg = 'best'
+menu_off = 0
 $location_type = 'private'
 clr
 gs 'stat'
@@ -83,8 +92,8 @@ gs 'stat'
 	'<center><b><font color = maroon>Your royal suite</font></b></center>'
 	'<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best.jpg"></center>'
-	'Your hotel room is quite spacious, and is beautifully furnished. For a second, you wonder why a hotel in a town like Pavlovsk even has such a luxurious suite. The room is filled with expensive appliances. The gorgeous <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) stands near the entrance of the room. Next to the door, you can find a <a href="exec:GT ''mirror'',''start''">mirror</a>. The door to the <a href="exec:GT ''hotelroom'',''shower1''">bathroom</a> is to the right.'
-	'Your hotel room also has a huge flat-screen <a href="exec:GT ''HotelRoom'',''tv''">TV</a>, right across the bed.'
+	'Your hotel room is quite spacious, and is beautifully furnished. For a second, you wonder why a hotel in a town like Pavlovsk even has such a luxurious suite. The room is filled with expensive appliances. The gorgeous <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) stands near the entrance of the room. Next to the door, you can find a <a href="exec:gt ''mirror'',''start''">mirror</a>. The door to the <a href="exec:gt ''hotelroom'',''shower1''">bathroom</a> is to the right.'
+	'Your hotel room also has a huge flat-screen <a href="exec:gt ''HotelRoom'',''tv''">TV</a>, right across the bed.'
 	act'Go to the hotel lobby':
 		if $clothingworntype ! 'nude':
 			gt'hotelHole'

locations/HotelWork.qsrc

@@ -521,7 +521,7 @@ if $ARGS[0] = 'maid':
 							childrenplayground = rand(0,1)
 							cla
 							if childrenplayground = 0:
-							mood += 10
+							pcs_mood += 10
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/children.jpg"></center>'
 							'You let the children play around for an hour while you relax on a bench.'
 							'You take the children back to the parent''s room and continue your work.'
@@ -544,7 +544,7 @@ if $ARGS[0] = 'maid':
 						'There is not much to do here to entertain these children so you have to listen to them screaming at each other for an hour, giving you a terrible headache.'
 						'You take the children back to the parent''s room and continue your work'
 						gs 'pain', 2,'head','ache'
-						mood -= 5
+						pcs_mood -= 5
 						act'Continue':gt 'hotelwork', 'maid'
 					end
 				end
@@ -584,7 +584,7 @@ if $ARGS[0] = 'maid':
 						'You move to the bed and gently place your hand on his bare chest. You push him down on the bed. Then you move your hand down to his waist and take his flaccid penis in your hand. You slowly start moving your hand up and down. The man groans a little bit and you see he was already semi-erect.'
 						'You kept stroking for a few minutes but your technique was not sufficient enough to make him cum. Maybe if you had some more experience with your hands you could have given him a happy ending.'
 						'"Thanks for trying," he says, but I guess I am not really in the mood right now. He holds his head in his hands and shows a defeated look. Leaving the man like this does not make you feel very happy.'
-						pcs_mood -=10
+						pcs_mood -= 10
 					elseif stat['hj'] >= 5:
 						'You move to the bed and gently place your hand on his bare chest. You push him down on the bed. Then you move your hand down to his waist and take his flaccid penis in your hand. You slowly start moving your hand up and down. It only takes a few strokes for the dick to become rock hard.'
 						'The man watches you but doesn''t say anything.'

locations/IgorEv.qsrc

@@ -1,5 +1,6 @@
 # IgorEv
 
+menu_off = 1
 !!Igor = A4
 
 !!It starts off by talking to Igor at school and there will be a option where he is aceing history and Sveta is not as good as she wants to be. No mention of grades just she is doing worse class than he is. She can then ask if they can study together. This leads to them going to Igor's house to study and talk. From there two things can happen, each is it's own story that links back up later on.

locations/IgorHanter.qsrc

@@ -1,5 +1,8 @@
 # IgorHanter
 
+$menu_loc = 'IgorHanter'
+$menu_arg = ''
+menu_off = 0
 gs 'boyStat', 'A173'
 $boybody = 'high'
 $boybod = 'athletic'
@@ -35,6 +38,7 @@ if hantersIgorLove = 3:'<<$boydesc>> is your husband.'
 act 'Chat':
     *clr & cla
     minut += 60
+	menu_off = 1
     if hantersIgorQw < 10:hantersIgorQw += 1
     gs 'stat'
 
@@ -49,6 +53,7 @@ if hantersIgorQw >= 10:
     if hantersIgorLove = 0:
         act 'Flirt':
 			minut += 120
+			menu_off = 1
 			!!not using arousal as no orgasm chance
 			pcs_horny += 10
             *clr & cla
@@ -128,6 +133,7 @@ if hantersIgorQw >= 10:
         act 'Spend time together':
             *clr & cla
 			minut += 120
+			menu_off = 1
 			!!not using arousal as no orgasm chance
 			pcs_horny += 10
             pcs_mood = 100
@@ -150,6 +156,7 @@ end
 if hantersIgorLove > 0 and pcs_horny >= 60:
     act 'Have sex':
 	    *clr & cla
+		menu_off = 1
         hantersIgorQw += 1
         hantersIgorsex += rand(12,36)
 	    gs 'stat'
@@ -167,6 +174,7 @@ end
 !! I replaced the partial condition "and temp = 1" with "and rand(1,5) = 1" because temp is changed in the stat procedure. Formely the temp variable was initialized at the beginning of the file temp = rand(1,5)
 if hantersIgorLove > 0 and pcs_horny <= 60 and hantersIgorQw >= 10 and rand(1,5) = 1 and hantersIgorsex = 0:
 	*clr & cla
+	menu_off = 1
 	hantersIgorsex += rand(12,36)
 	gs 'stat'
 
@@ -204,6 +212,7 @@ if hantersIgorLove > 0:
     act 'Break up with Igor':
 	    *clr & cla
         minut += 5
+		menu_off = 1
         hantersIgorLove = 0
         if hantersIgorLove = 2:bfA = 0
         hantersIgorQw -= 100
@@ -221,6 +230,7 @@ act'Depart':gt $loc, $metka
 if hantersIgorQw < 10 and hantersIgorLove > 0:
 	*clr & cla
     minut += 5
+	menu_off = 1
     hantersIgorLove = 0
     if hantersIgorLove = 2:bfA = 0
     hantersIgorQw -= 10
@@ -236,6 +246,7 @@ end
 if hantersIgorLove < 2 and hantersIgorQw >= 35 and hantersKnowSlut = 0 and bfA < 1 and hour >= 8 and hour < 20 and pcs_apprnc >= 60:
     *clr & cla
     minut += 1
+	menu_off = 1
     gs 'stat'
 
     '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterkiss1.jpg"></center>'

locations/IrinaRoom.qsrc

@@ -3,8 +3,10 @@
 if $ARGS[0] = 'start':
 	cla
 	*clr
+	$menu_loc = 'IrinaRoom'
+	$menu_arg = 'start'
+	menu_off = 0
 	minut += 5
-	clr
 	gs 'stat'
 	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Entrance where your girlfriend Ira lives</font></b></center>'
@@ -39,7 +41,9 @@ if $ARGS[0] = 'first':
 	cla
 	clr
 	*clr
-	minut += 5
+	$menu_loc = 'IrinaRoom'
+	$menu_arg = 'first'
+	menu_off = 0
 	gs 'stat'
 	'<center><b><font color="maroon">Apartment Ira</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/irinaroom.jpg"></center>'
@@ -60,6 +64,7 @@ if $ARGS[0] = 'first1':
 		pcs_hydra -= 10
 	end
 	$locclass = 'kitr'
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/ira/irinaqw.jpg"></center>'
 	'You and Ira settle in the kitchen with a bottle of wine and some fruits, you talk and chat merrily.'

locations/IvanEv.qsrc

@@ -1,5 +1,7 @@
 # IvanEv
 
+menu_off = 1
+
 if $ARGS[0] = '':
 	cls
 	numnpc = 3

locations/JuliaMilGo.qsrc

@@ -1,4 +1,6 @@
 # JuliaMilGo
+
+menu_off = 1
 gs 'stat'
 '<center><b><font color="maroon">Julia Milova, your classmate</font></b></center>'
 '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/12.jpg"></center>'

locations/JuliaMilHome.qsrc

@@ -1,6 +1,9 @@
 # JuliaMilHome
 
 $location_type = 'indoors'
+$menu_loc = 'pavCommercial'
+$menu_arg = ''
+menu_off = 0
 CLOSE ALL
 if BeInJulMilHome = 0:BeInJulMilHome = 1
 
@@ -14,6 +17,7 @@ if lernHome ! 0:
 
 	act 'Do your homework with Julia':
 		cls
+		menu_off = 1
 		minut += 60
 		!npc_rel['A14'] += 10
 		lernHome = 0
@@ -33,6 +37,7 @@ elseif lernHome = 0:
 
 		act 'Have a meal with Julia':
 			cls
+			menu_off = 1
 			minut += 30
 			fat += 2
 			pcs_energy += 60
@@ -57,6 +62,7 @@ elseif lernHome = 0:
 		if wine = 1:
 			act 'Drink your wine with Julia':
 				cls
+				menu_off = 1
 				minut += 30
 				wine = 0
 				alko += 6
@@ -187,6 +193,7 @@ elseif lernHome = 0:
 
 		act 'Chat with Julia':
 			cls
+			menu_off = 1
 			minut += 15
 			JulMilBestFrend += 1
 			gs 'stat'

locations/JuliaMilVhod.qsrc

@@ -1,6 +1,7 @@
 # JuliaMilVhod
-CLOSE ALL
 
+CLOSE ALL
+menu_off = 1
 cla
 *clr
 

locations/KatjaHomeTalk.qsrc

@@ -3,6 +3,7 @@
 if $ARGS[0] = '':
 	$location_type = 'indoors'
 	CLOSE ALL
+	menu_off = 1
 	gs 'stat'
 	'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/14.jpg"></center>'

locations/Komp.qsrc

@@ -14,7 +14,7 @@ if $ARGS[0] = 'start':
 
 	!!act 'SunReview of the Dead':gt 'KGZstart'
 
-	if student > 0 and kursovik < 100:'You should probably do some of your <a href="exec:GT ''Komp'',''kursak''">coursework</a>.'
+	if student > 0 and kursovik < 100:'You should probably do some of your <a href="exec:gt ''Komp'',''kursak''">coursework</a>.'
 
 	if $LOC = 'shulga_room':
 		internet = 100000
@@ -50,7 +50,7 @@ if $ARGS[0] = 'brows':
 		'<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
 		'You go to your favourite start page, while you try to decide on what you want to see right now.'
 
-		'A blinking banner for a <a href="exec:GT ''Komp'',''agent''">Kirsanova Real Estate Agency</a> keeps popping up in the corner.'
+		'A blinking banner for a <a href="exec:gt ''Komp'',''agent''">Kirsanova Real Estate Agency</a> keeps popping up in the corner.'
 
 		if home_owned[1] = 2 and husband = 0:act 'Rent your apartment out':gt 'Komp', 'sale'
 

locations/Kwlake1.qsrc

@@ -2,6 +2,7 @@
 
 cls
 pcs_horny += 15
+menu_off = 1
 gs 'stat'
 '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/kwlake1/kwlake1.jpg"></center>'
 'While you and Kat walk along the beach, you notice a rock shaped like a dildo.'

locations/Kwlake2.qsrc

@@ -1,6 +1,7 @@
 # Kwlake2
 
 cls
+menu_off = 1
 gs 'stat'
 '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/kwlake2/kwlake1.jpg"></center>'
 'While you''re walking along the beach, Kat notices a man sitting by himself.'

locations/LariskaGo.qsrc

@@ -1,4 +1,5 @@
 # LariskaGo
+menu_off = 1
 gs'stat'
 
 '<center><b><font color="maroon"><<$npc_firstname[''A13'']>> <<$npc_lastname[''A13'']>></font></b></center>'

locations/LariskaHome.qsrc

@@ -5,7 +5,9 @@ March 25,2016
 Cleaned up the dialog
 added a few lines to the BDSM room to improve immersion
 }
-
+$menu_loc = 'LariskaHome'
+$menu_arg = ''
+menu_off = 0
 $location_type = 'indoors'
 CLOSE ALL
 gs'stat'

locations/LariskaStart.qsrc

@@ -6,6 +6,7 @@ if $ARGS[0] = 'start':
 	numnpc = 13
 	minut += 5
 	$static_num = 'A13'
+	menu_off = 1
 	gs'stat'
 
 	'<center><b><font color = maroon><<$npc_firstname[$static_num]>> <<$npc_lastname[$static_num]>></font></b></center>'

locations/MDressing.qsrc

@@ -14,7 +14,7 @@ gs 'stat'
 '<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/dressingroom.jpg"></center>'
 'A huge dressing room. Mostly used by submissives to dress as staff and because of this, it is a safe space and games are not allowed.'
 'It contains several <a href="exec:gt ''wardrobe'', ''start''">wardrobes</a> (where you can choose outfits and organize your clothing).'
-'There are whole cabinets filled with designer clothing belonging to various club members and plenty of <a href="exec:GT ''mirror'',''start''">mirrors</a> you can use.'
+'There are whole cabinets filled with designer clothing belonging to various club members and plenty of <a href="exec:gt ''mirror'',''start''">mirrors</a> you can use.'
 
 act 'Go to foyer': gt 'MHall', 'foyer'
 act 'Goto east wing hall': gt 'MHall', 'east'

locations/Maria1.qsrc

@@ -1,130 +0,0 @@
-# Maria1
-clr
-menu_off = 1
-minut += 1
-'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/metrd.jpg"></right>'
-'You walk up to the front reception and get greeted by a smiling young woman behind the counter.'
-'"How can I help you?" she asks.'
-
-act 'See the room descriptions':
-	cla
-	minut += 2 
-	'There are 4 types of rooms available:'
-	'1. Budget rooms, our most simplest rooms for the ones that just want a bed to sleep the night. There''s a public bathroom shared with the rest of the floor.'
-	'2. Standard rooms, our reasonably priced rooms. Every room has a private bathroom and a TV.'
-	'3. Suites, our luxurious room. Beside a private bathroom there''s also an extra livingroom.'
-	'4. Presidential Suite, our most prized room with all the modern necessities. Free room service included.'
-
-	act 'Finish reading':gt 'Maria1'
-end
-
-if nom_1 = 0:
-	act 'Flirt':
-		cla
-		minut += 1
-		'You smile at her and ask, "What are you doing tonight?"'
-		'She looks at you, "Having dinner with my husband. Anything else you wanted to know?"'
-
-		act 'Move away':gt 'Maria1'
-	end
-
-	if tobiQW = 2000:
-		act 'Why is the hotel so crowded?':
-			cla
-			tobiQW = 2001
-			minut += 1
-			'"Why so the hotel so crowded today?" you ask.'
-			'"There''s an conference on indigenous languages, they meet every year and complain about their disappearing languages." she says laughing.'
-
-			act 'Move away':gt 'Maria1'
-		end
-	end
-end
-
-if nomer = 0:
-
-	act 'Rent a room':
-		cla
-		minut += 1 
-		'"I would like to rent a room." you tell the girl at the counter.'
-		'"Unfortunately, we have no rooms available." she replies.'
-		act 'Walk away':gt'Maria1'
-!{		'- Good, What would you like to?'
-
-		act 'Cheapest room':
-			nomer = 1
-			nom_1 = 1
-
-			'"I''ll take the cheapest room."'
-
-			gt'Maria1'
-		end
-		act 'Standard room':
-			nomer = 2
-			nom_1 = 1
-
-			'"I''ll take the standard room."'
-
-			gt'Maria1'
-		end
-		act 'Suite':
-			nomer = 3
-			nom_1 = 1
-
-			'"I''ll take the suite."'
-
-			gt'Maria1'
-		end
-		act 'Presidential Suite':
-			nomer = 4
-			nom_1 = 1
-
-			'"I''ll take the presidential suite."'
-
-			gt'Maria1'
-		end}
-	end
-end
-
-act 'Move away': minut += 1 & gt 'hotel'
-
-!{
-if nom_1 = 1 and flag = 0:
-	cla
-	*clr
-	sto_nom = nom_o[nomer]
-	'"I''ll stay for one night." you tell her.'
-	'"That will be <<sto_nom>>."'
-
-	act 'Pay':
-		if sto_nom > money:
-			msg 'You don''t have enough money'
-			srokarend = 0
-			nomer = 0
-			nom_1 = 0
-			gt 'maria1'
-		end
-
-		cla
-		money -= sto_nom
-		flag = 1
-		nom_1 = 0
-		nom_nom = rand(1, 1000)
-		'"Thank you for staying at our hotel. Your room number is <<nom_nom>>."'
-
-		act 'Goodbye': minut += 1 & gt 'hotel'
-	end
-
-	act 'Change Your Mind':
-		nomer = 0
-		nom_1 = 0
-		gt 'maria1'
-	end
-end
-
-if nom_1 = 0:
-	act 'Move away': minut += 1 & gt 'hotel'
-end
-}
---- Maria1 ---------------------------------
-

locations/MartinSex2.qsrc

@@ -66,7 +66,7 @@ if $ARGS[0] = 'MartinSexPrep':
 	if pcs_vag = 0:
 		'But before either of you can make another move, a nagging thought that''s been floating around the back of your head pushes to the foreground of your mind: You are a virgin. Is Martin <i>really</i> the man you want to have your first time with? Not to mention all the risks involved if you didn''t take all necessary precautions against pregnancy...'
 	elseif prezik > 0 and preziktype ! 2 and tabletkishot < 1 and pillcon2 < 30000 and ovulate > 0: 
-		'But before either of you can make another move, a simple, powerful thought crosses your mind: You could get pregnant. And unless your count is off, today is a dangerous day to boot. You take a tentative look at your ' + iif(bag > 0,'purse','pocket') + ', the condoms sitting in it materializing before your inner eye.' + iif(preziktype=1,' You usually prefer to have sex sans condoms, but...')
+		'But before either of you can make another move, a simple, powerful thought crosses your mind: You could get pregnant. And unless your count is off, today is a dangerous day to boot. You take a tentative look at your ' + iif(bag > 0,'purse','pocket') + ', the condoms sitting in it materializing before your inner eye.' + iif(preziktype=1,' You usually prefer to have sex sans condoms, but...', ' ')
 	elseif prezik > 0 and preziktype ! 2 and tabletkishot < 1 and pillcon2 < 30000: 
 		'But before either of you can make another move, a simple, powerful thought crosses your mind: You could get pregnant. Today isn''t really a dangerous day, but it might be better to be safe than sorry. And while Martin doesn''t seem like the type who fucks random sluts, you can never be entirely sure of that, can you? You take a tentative look at your ' + iif(bag > 0,'purse','pocket') + ', the condoms sitting in it materializing before your inner eye.' + iif(preziktype=1,' You usually prefer to have sex sans condoms, but...')
 	elseif prezik > 0 and preziktype = 2 and tabletkishot < 1 and pillcon2 < 30000 and ovulate > 0: 
@@ -818,7 +818,7 @@ if $ARGS[0] = 'MartinAnalDyn':
 			act 'Let him cum on your tits':gt 'MartinSex2', 'MartinCumshot_Tits'
 			act 'Let him cum in your ass':
 				cls
-				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/anal/cum_anal.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/cumshot/cum_anal.jpg"></center>'
 				'You could have taken his cum anywhere you wanted but, really, you have him right where you want him - deep inside your ass.'
 				*nl
 				'You speed up your movements even more, panting "Cum for me, baby! Cum in my ass!" between thrusts. Your horny plea is too much for Martin and, with a final moan, he cums, shooting his load deep into your bowels.'

locations/MartinTalk.qsrc

@@ -323,7 +323,7 @@ if $ARGS[0] = '':
 				else
 					$MartinHobby = 'finger exercises'
 				end
-				'"I ' + iif(pcs_vokal>=pcs_instrmusic,'sing','play an instrument' + '."'
+				'"I '+iif(pcs_vokal >= pcs_instrmusic,'sing','play an instrument')+'."'
 				'"No wonder, with ' + iif(pcs_vokal>=pcs_instrmusic,'a voice','deft fingers') + ' like yours," Martin smiles.'
 				'"Oh, stop it," you say, flattered by his compliment. "Would you like to, I don''t know, hear something sometime?"'
 				'Martin gives you a look of pure horror. "Oh god, please no."'

locations/Miroslava.qsrc

@@ -1133,6 +1133,7 @@ if $ARGS[0] = 'miratalk':
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/village/mira/mira3.jpg"></center>'
 					act 'Tell her to show you her pussy':
+						*clr & cla
 						'"To start, you will pull down your panties and show me your pussy, and tell me what it felt like fucking Mitka in my meadow." you tell her sternly, "I want to know what is so special about his dick that you would exchange it for our friendship."'
 						'Mira gasps in shock from the sting in your words and jumps to her feet. She stares at you stupified and you can see the protest welling up in her but you don''t give her time to recover.'
 						'"If you want us to stay friends, you had better stick to the deal, and if you can''t keep your word then our friendship is over." you state, glaring at her angrily.'

locations/NatBelHome.qsrc

@@ -41,7 +41,7 @@ if lernHome ! 0:
 	'Natasha arranges her books on the table and looks at you expectantly. After all, you came here to study with her, right?'
 
 	act 'Study with Natasha':
-		cls
+		*clr & cla
 		minut += 60
 		npc_rel['A16'] += 5
 		lernHome = 0
@@ -57,7 +57,7 @@ elseif lernHome = 0:
 	'Natasha sits down on her bed and, polite as she is, offers you a seat in her semi-hospitable room.'
 
 	act 'Chat with Natasha':
-		cls
+		*clr & cla
 		minut += 15
 		NatBelBestFrend += 1
 		gs 'stat'
@@ -74,7 +74,7 @@ elseif lernHome = 0:
 		'Hesitantly, Natasha asks you, "<<$pcs_nickname>>, can you lend me a couple of thousand <b>₽</b>? I''ll pay you back, I promise."'
 
 		act 'Give Natasha some money (2000 <b>₽</b>)':
-			cls
+			*clr & cla
 			minut += 15
 			NatDolg = 2000
 			money -= 2000
@@ -88,7 +88,7 @@ elseif lernHome = 0:
 		'Natasha looks down in embarrassment, "<<$pcs_nickname>>, you have lots of money. Could you lend me 5000 <b>₽</b>? I will pay it back, I give you my word."'
 
 		act 'Lend Natasha the 5000 <b>₽</b>':
-			cls
+			*clr & cla
 			minut += 15
 			NatDolg = 5000
 			money -= 5000
@@ -106,7 +106,7 @@ elseif lernHome = 0:
 		'Natasha looks at the floor, "<<$pcs_nickname>>, I... I''m sorry, I don''t have your money."'
 
 		act 'Forgive Natasha''s debt':
-			cls
+			*clr & cla
 			minut += 15
 			NatDolg = 0
 			NatDolgDay = 0
@@ -120,7 +120,7 @@ elseif lernHome = 0:
 
 		if pcs_dom >= 10 and natotrab = 0:
 			act 'Demand repayment':
-				cls
+				*clr & cla
 				minut += 15
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/16.jpg"></center>'
@@ -131,7 +131,7 @@ elseif lernHome = 0:
 				'You give her a soft slap on the cheek to test your newfound power over her rather than to hurt her, but she flinches and nods profusely. Looks like you''ve got your own little slave now.'
 
 				act 'On your knees! Open your mouth!':
-					cls
+					*clr & cla
 					minut += 5
 					natotrab += 1
 					natsub += 1
@@ -142,7 +142,7 @@ elseif lernHome = 0:
 					'You bark at Natasha to get on her knees. She immediately kneels down at your feet and obediently opens her mouth.'
 
 					act 'Spit in her face':
-						cls
+						*clr & cla
 						minut += 5
 						natsub += 1
 						pcs_dom += 1
@@ -164,7 +164,7 @@ elseif lernHome = 0:
 			'Natasha still doesn''t have the <<NatDolg>> <b>₽</b>.'
 
 			act 'On your knees! Open your mouth!':
-				cls
+				*clr & cla
 				minut += 5
 				natotrab += 1
 				natsub += 1
@@ -175,7 +175,7 @@ elseif lernHome = 0:
 				'You bark at Natasha to get on her knees. She immediately kneels down at your feet and obediently opens her mouth.'
 
 				act 'Spit in her face':
-					cls
+					*clr & cla
 					minut += 5
 					natsub += 1
 					pcs_dom += 1
@@ -189,7 +189,7 @@ elseif lernHome = 0:
 				end
 				if natsub >= 4:
 					act 'Make her lick':
-						cls
+						*clr & cla
 						minut += 5
 						natsub += 1
 						pcs_dom += 1
@@ -211,7 +211,7 @@ elseif lernHome = 0:
 
 							if pcs_dom >= 20 and NatDolg >= 500:
 								act 'Piss in her mouth':
-									cls
+									*clr & cla
 									minut += 5
 									natsub += 1
 									pcs_dom += 1
@@ -226,7 +226,7 @@ elseif lernHome = 0:
 								end
 							else 
 								act 'Make her stop':
-									cls
+									*clr & cla
 									minut += 5
 									pcs_horny -= 10
 									money -= 50
@@ -253,7 +253,7 @@ elseif lernHome = 0:
 			
 				if hour >= 18 and hour < 21 and natsub >= 6 and natfuckday < daystart:
 					act 'Call your brother':
-						cls
+						*clr & cla
 						minut += 15
 						natsub += 1
 						pcs_dom += 1
@@ -270,7 +270,7 @@ elseif lernHome = 0:
 
 						if natsub >= 10 and brotherSex > 0 and NatDolg > 0 and natbro > 0:
 							act 'Make her fuck your brother for 500':
-								cls
+								*clr & cla
 								pcs_dom += 2
 								NatDolg -= 500
 								minut += 15
@@ -402,7 +402,7 @@ elseif lernHome = 0:
 						end
 
 						act 'Continue':
-							cls
+							*clr & cla
 							minut += 5
 						
 							gs 'stat'
@@ -420,7 +420,7 @@ elseif lernHome = 0:
 					act 'Take her to see Olu for 500':
 						oluuosegunday = daystart
 						gs 'boystat', 'A55'
-						cls
+						*clr & cla
 						pcs_dom += 2
 						NatDolg -= 500
 						minut += 5
@@ -442,7 +442,7 @@ elseif lernHome = 0:
 							'"Hello, Olu! This is my friend Natasha, she wants you to fuck her." You say to him, pointing at his crotch and then slapping Natasha on the ass. He seems to understand quickly and nods with a huge grin holding up the bottle of lube.'
 							'You glance at Natasha. "Well take off your clothes." She nods and does as you ask.'
 							act 'Undress Natasha':
-								cls
+								*clr & cla
 								minut += 5
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/olu/sex/olu4.jpg"></center>'
@@ -452,7 +452,7 @@ elseif lernHome = 0:
 								'"Yes I do, my ass could use a break and you owe me..."'
 								'After a moment she lowers her gaze and then nods her head. You pat her shoulder. "Good girl and it won''t be too bad, we have plenty of lube, wink, wink."'
 								act 'Let the fun begin':
-									cls
+									*clr & cla
 									minut += 15
 									natanal += 1
 									pcs_horny += 10
@@ -476,15 +476,15 @@ elseif lernHome = 0:
 end
 
 if pregTalkNat = 0 and kid = 0:
-	if natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and pregtime >= 90:
-		cls
+	if natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and pregtime >= 150:
+		*clr & cla
 		gs 'stat'
 		'"<<$pcs_nickname>>, are you pregnant, too? Well, I guess I don''t have to worry about being the only pregnant girl at school," she giggles.'
 
 		act 'Next':gt 'NatBelhome', 'natknows'
-	elseif natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and knowpreg = 1 and pregtime > 0 and pregtime < 90:
+	elseif natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and knowpreg = 1 and pregtime > 0 and pregtime < 150:
 		act 'Tell her you''re pregnant':
-			cls
+			*clr & cla
 			'"If you were worried about being the only pregnant girl at school, that won''t be a problem anymore." You smirk while rubbing your midriff. "It looks like I got myself knocked up as well."'
 			'Natasha smiles at you excitedly. "Really? Congratulations!"'
 			*nl
@@ -521,13 +521,13 @@ if pregTalkNat = 0 and kid = 0:
 end
 
 if pregTalkNat = 0 and kid > 0:
-	if (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and pregtime >= 90:
+	if (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and pregtime >= 150:
 		*clr & cla
 		gs 'stat'
 		'"Wow, <<$pcs_nickname>>, you''re pregnant again? You''re really committed to making sure I''m not the only young mother around here, huh?" She playfully smiles and puts a hand on your shoulder. "It''s good to know you''re looking out for me."'
 
 		act 'Next':gt 'NatBelhome', 'natknows1'
-	elseif (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and knowpreg = 1 and pregtime > 0 and pregtime < 90:
+	elseif (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and knowpreg = 1 and pregtime > 0 and pregtime < 150:
 		act 'Tell her you''re pregnant':
 			*clr & cla
 			'"Hey, guess who''s pregnant again. You know, I''m glad I forced you to let Kolka impregnate you so that I could have someone I can relate to."'
@@ -557,8 +557,8 @@ end
 if $ARGS[0] = 'natknows':
 	cla
 	pregTalkNat = 1
-	if pav_slut < 25: '"So, who''s the father?"'
-	if pav_slut >= 25: '"So, do you know who the father is?"'
+	if pav_slut < 125: '"So, who''s the father?"'
+	if pav_slut >= 125: '"So, do you know who the father is?"'
 	*nl
 	if $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
 		'You smile. "I''m sure you won''t be surprised to hear Kolka got me pregnant."'
@@ -579,8 +579,8 @@ end
 if $ARGS[0] = 'natknows1':
 	cla
 	pregTalkNat = 1
-	if pav_slut < 25: '"Is it the same father as last time?"'
-	if pav_slut >= 25: '"Do you know if it''s the same father as last time?"'
+	if pav_slut < 125: '"Is it the same father as last time?"'
+	if pav_slut >= 125: '"Do you know if it''s the same father as last time?"'
 	*nl
 	if $wombthfath = 'Kolka' and npc_rel['A34'] > 50 and arrpos('$ChildThFath',$wombthfath) >= 0 and arrpos('$ChildThFath',$wombthfath) ! arrsize('$ChildThFath')-1:
 		'"Yeah, I think you’re right. I’m not sure if I’ll let him get me pregnant again after this though." You pull your face as close to Natasha’s as you can without actually touching her and sultrily whisper, "You, on the other hand, are going to be his personal breeding bitch. There won’t be a single moment where your womb doesn’t contain either his baby or his cum. He is going to keep you knocked up until he gets bored of you and leaves you a single mother."'

locations/Nord.qsrc

@@ -6,6 +6,9 @@ if $ARGS[0] = '':
 	$metkaStreet = ''
 	$locStreet = 'Nord'
 	$location_type = 'public_outdoors'
+	$menu_loc = 'Nord'
+	$menu_arg = ''
+	menu_off = 0
 	CLOSE ALL
 	if sound = 0:
 		if month >=11 and month <= 12 or month >=1 and month <=3:
@@ -74,12 +77,12 @@ if $ARGS[0] = '':
 	if hour >= 9 and hour <= 17 and week > 1:'<a href="exec: minut += 5 & gt ''autotraidF'', ''start''">Car Dealership</a>'
 	if hour >= 9 and hour < 17 and week < 6:'<a href="exec: minut += 5 & gt ''dk'', ''start''">Community centre</a>'
 
-	if hour >= 9 and hour <= 17 and (StoryLine = 1 and SchoolAtestat = 0) or bumtolik > 3: '<a href="exec:GT ''buklinik'',''start''">Mercy clinic</a>'
+	if hour >= 9 and hour <= 17 and (StoryLine = 1 and SchoolAtestat = 0) or bumtolik > 3: '<a href="exec:gt ''buklinik'',''start''">Mercy clinic</a>'
 	if hour >= 8 and hour <= 20:'The parking lot, which is engulfed in bright lights, belongs to a <a href="exec: minut += 2 & gt ''shop'', ''start''">Supermarket</a>'
 	if hour >= 12 and hour <= 19:'Above the door to a basement room is a bright neon sign for the <a href="exec: minut += 5 & gt ''pirsingsalon'', ''start''">Tattoo & Piercing parlor</a>'
 	if tobiQW >= 1:'The old mansion, home to <a href="exec:gt ''kakuzu'', ''start''">Kakuzu</a>'
 
-	'There is a huge building, with bright lights, which houses a <a href="exec: minut += 10 & gt ''casino''">Casino</a>.'
+	'There is a huge building, with bright lights, which houses a <a href="exec: minut += 10 & gt ''casino'', ''outside''">Casino</a>.'
 
 	if hour >= 14 or hour < 4:'Located far away from the buildings <a href="exec: minut += 2 & gt ''lakecafe'', ''main''">barbecue</a>.'
 	if jouryResult = 10:'You can go to one of the apartment blocks and visit <a href="exec:gt ''youry'',''start''">Yuri''s</a> flat'
@@ -134,6 +137,12 @@ if $ARGS[0] = 'redlight':
 		'There are prostitutes working in places near here.'
 		if pcs_makeup > 2 and PCloStyle = 4 and pcs_inhib >= 40:
 			act 'Prostitute yourself': gt 'street_walker', 'work'
+		elseif pcs_inhib >= 40:  
+			*nl
+			'You could work as a prostitute, but you need to wear appropriate clothes and more than a little bit of makeup.'
+		else
+			*nl
+			'You could work as a prostitute, but you aren''t comfortable with the idea.'
 		end
 	end
 end

locations/NormPR.qsrc

@@ -12,7 +12,7 @@ if $ARGS[0] = '1':
 	gs'stat'
 
 	if RAND(0,1) = 0:
-		'<center><img <<$set_imgh>> src="images/locations/shared/sex/car/sexcar.jpg"></center>'
+		'<center><img <<$set_imgh>> src="images/locations/shared/sex/car/sexcar1.jpg"></center>'
 		'You obediently lie down on your back in the back seat, and the man pounces you eagerly. Within seconds, his cock is deep inside you.'
 		gs 'arousal', 'vaginal', 15, 'sub'
 		gs 'stat'

locations/Palatka.qsrc

@@ -2,9 +2,12 @@
 $location_type = 'event'
 
 if $ARGS[0] = 'start':
-	$sexloc = $CURLOC
-	$metkaM = $ARGS[0]
-	$locM = $CURLOC
+	$sexloc = 'Palatka'
+	$metkaM = 'start'
+	$locM = 'Palatka'
+	$menu_loc = 'Palatka'
+	$menu_arg = 'start'
+	menu_off = 0
     $location_type = 'private'
 	palMir = 1
 	gs 'stat'
@@ -29,6 +32,8 @@ end
 if $ARGS[0] = 'pal0':
 	cla
 	*clr
+	menu_off = 1
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/pal0.jpg"></center>'
 	'Once you begin to change clothes, you notice that there are two soldiers in the tent. They see you half-naked, walking up to you with their erect cocks. You long for their cocks, wondering if you should get them off or ignore them and relax after a hard day instead.'
 
@@ -49,6 +54,8 @@ end
 if $ARGS[0] = 'pal1':
 	cla
 	*clr
+	menu_off = 1
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/pal1.jpg"></center>'
 	'Entering the tent, you stumble, you reflexively close your eyes, as you prepare to hit the floor face first. Much to your surprise you do not land on the floor. Instead you feel powerful, strong hands catching you. Opening your eyes in surprise, you look up and see that a well-built black soldier has caught you in his arms.'
 

locations/ParChurch.qsrc

@@ -16,8 +16,11 @@ if $ARGS[0] = 'start':
 			if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
 		end
 	end
-	$loc = $CURLOC
-	$metka = $ARGS[0]
+	$loc = 'ParChurch'
+	$metka = 'start'
+	$menu_loc = 'ParChurch'
+	$menu_arg = 'start'
+	menu_off = 0
 	gs 'stat'
 	'<center><b><font color="maroon">Church of Saint Nikolas</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/st-nikolas.jpg"></center>'
@@ -53,6 +56,7 @@ end
 if $ARGS[0] = 'vigil':
 	cls
 	CLOSE ALL
+	menu_off = 1
 	churchday = daystart
 	pcs_mood += 10
 	temprand = rand(0,5)
@@ -106,6 +110,7 @@ if $ARGS[0] = 'liturgy':
 	cls
 	CLOSE ALL
 	churchday = daystart
+	menu_off = 1
 	gs 'stat'
 	hour = 12
 	PLAY 'sound/church/t' + rand(1,19) + '.mp3',30
@@ -149,6 +154,7 @@ end
 if $ARGS[0] = 'Narthex':
 	cls
 	CLOSE ALL
+	menu_off = 1
 	gs 'stat'
 	PLAY 'sound/church/76139__dkustic__090227-01-people-church-concert.wav',30
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/enterchurch.jpg"></center>'
@@ -166,6 +172,7 @@ end
 if $ARGS[0] = 'candle':
 	cls
 	minut += 30
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_candle.jpg"></center>'
 	if money >= 10 and owechurch = 0: 
@@ -198,6 +205,7 @@ end
 
 if $ARGS[0] = 'pray':
 	cls
+	menu_off = 1
 	randtime = rand(15,60)
 	minut += randtime
 	if pav_sex > 1: pav_sex -= 1
@@ -259,6 +267,7 @@ end
 
 if $ARGS[0] = 'amends':
 	cls
+	menu_off = 1
 	minut += 15
 	gs 'stat'
 	'As you approach the priest, you recall your previous behaviour and that the priest said that he wanted to discuss it with you further.'
@@ -440,7 +449,9 @@ end
 if $ARGS[0] = 'confessional':
 	cls
 	cla
+	menu_off = 1
 	minut += 5
+	gs 'atat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_talk.jpg"></center>'
 	'As you got ready to kneel, Father Kirill stopped you.'
 	'"One moment, my dear." he says softly, "I was wondering if you wouldn''t mind indulging an old man."'
@@ -496,6 +507,8 @@ if $ARGS[0] = 'confessional':
 end	
 
 if $ARGS[0] = 'Questions':
+	menu_off = 1
+	gs 'stat'
 	if Kirillsex = 0:
 		pcs_horny += 2
 		'"father, are you alright?" you ask concerned, "You sound out of breath."'

locations/ParChurch2.qsrc

@@ -1,6 +1,7 @@
 # ParChurch2
 if $ARGS[0] = 'confession':
 	cls
+	menu_off = 1
 	gs 'stat'
 	if confK ! 0: lastconf = daystart - confess
 	confess = daystart

locations/ParkKafe.qsrc

@@ -56,6 +56,7 @@ end
 if $ARGS[0] = 'guys':
 	menu_off = 1
 	cla
+	gs 'stat'
 
 	if rand(0, 1) = 0:
 		'You look at them intensely, but you don''t think they notice you.'
@@ -149,6 +150,7 @@ end
 if $ARGS[0] = 'Armenians':
 	menu_off = 1
 	cla
+	gs 'stat'
 
 	if rand(0, 1) = 0:
 		'You look at them intensely, but you don''t think they notice you.'
@@ -224,6 +226,7 @@ end
 if $ARGS[0] = 'man':
 	menu_off = 1
 	cla
+	gs 'stat'
 
 	if rand(0, 1) = 0:
 		'You stealthily glance at the respectable man, but it doesn''t look like he noticed you.'
@@ -270,13 +273,16 @@ end
 if $ARGS[0] = 'woman':
 	menu_off = 1
 	cla
+	gs 'stat'
 	'You stealthily glance at the imperious woman, but she doesn''t seem to noticed you.'
 
 	act 'Leave': gt 'parkKafe', 'end', 'cafe'
 end
 
 if $ARGS[0] = 'youth':
+	menu_off = 1
 	cla
+	gs 'stat'
 
 	if rand(0, 1) = 0:
 		'You look at the group of snickering youths, but they don''t seem to notice you.'
@@ -343,6 +349,7 @@ end
 if $ARGS[0] = 'negros':
 	menu_off = 1
 	cla
+	gs 'stat'
 
 	if rand(0, 1) = 0 or afra >= 1:
 		'You stealthily glance at the Africans, but it looks like they overlooked you.'
@@ -359,6 +366,7 @@ end
 if $ARGS[0] = 'the_boy':
 	menu_off = 1
 	cla
+	gs 'stat'
 
 	if rand(0, 1) = 0 and gosh = 0:
 		'You secretly look at the young boy, but it looks like he didn''t notice you.'

locations/Peterroom.qsrc

@@ -1,8 +1,11 @@
 # Peterroom
+
 if $ARGS[0] = 'start_door':
 	cla
-	clr
 	*clr
+	$menu_loc = 'Peterroom'
+	$menu_arg = 'start_door'
+	menu_off = 0
 	minut += 5
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -16,7 +19,9 @@ if $ARGS[0] = 'start_door':
 	end
 
 	act 'Ring the doorbell':
+		menu_off = 1
 		cla
+		gs 'stat'
 
 		if petersexday < 1:
 			petersexday += 1
@@ -39,6 +44,8 @@ end
 if $ARGS[0] = 'start':
 	cla
 	*clr
+	menu_off = 1
+	gs 'stat'
 
 	if peter > 0 :
 		peterrand = rand(1, 2)

locations/Prostitute.qsrc

@@ -6,6 +6,7 @@ if $ARGS[0] = 'start':
 	$loc = $CURLOC
 	$metkaSex = $ARGS[0]
 	$locSex = $CURLOC
+	menu_off = 1
 	cls
 	minut += 5
 	gs 'stat'
@@ -410,7 +411,7 @@ if $ARGS[0] = 'work2':
 						gs 'stat'
 
 						if rand(0, 1) = 0:
-							'<center><img <<$set_imgh>> src="images/locations/shared/sex/car/sexcar.jpg"></center>'
+							'<center><img <<$set_imgh>> src="images/locations/shared/sex/car/sexcar1.jpg"></center>'
 							'You obediently lie down on your back in the back seat. The man pounces on you eagerly, pushing your legs apart and buring his cock deep inside you, all in one swift motion. You groan at the sudden intrusion, but do nothing to stop his rough and fast pace. Quite the opposite actually, you encourage the hard fucking by wrapping your legs around his waist as he keeps slamming his dick deep into your vagina with all his might. '
 							gs 'arousal', 'vaginal', 15, 'prostitution', 'unknown', 'rough'
 							gs 'stat'

locations/RimmaSexQW.qsrc

@@ -2,6 +2,7 @@
 cls
 minut += 15
 rimmaday = daystart
+menu_off = 1
 gs 'stat'
 'You go over to Rima who smiles affably as she greets you.'
 '"Hi <<$pcs_nickname>>. My shift is almost over. Do you want to do something?"'

locations/RynokHoz.qsrc

@@ -16,7 +16,7 @@
 
 if $ARGS[0] = 'the_beginning':
 	minut += 15
-
+	menu_off = 1
 	if arturplan > 4000:arturplan -= 1000
 
 	gs 'stat'
@@ -212,7 +212,7 @@ end
 
 !!Artur and friends.
 if $ARGS[0] = 'group':
-
+	menu_off = 1
 	money += 5000
 
 	if repa < 6:repa = 6
@@ -277,7 +277,7 @@ end
 
 !!Just Artur
 if $ARGS[0] = 'sex':
-
+	menu_off = 1
     gs 'boyStat', 'A73'
 	'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj15.jpg"></center>'
 	'The Artur takes you into the warehouse, and with you on your knees in front of him pulls out his <<dick>>cm <<$dick_girth>> dick. He smacks you in the face with it and then rubs the tip against your lips, when you open your mouth he shoves his dick in your mouth and roughly fucks your mouth.'

locations/Serge_kuh.qsrc

@@ -16,6 +16,9 @@ if $ARGS[0] = '':
 	*clr & cla
 	gs 'boyStat', 'A112'
 	minut += 1
+	$menu_loc = 'Serge_kuh'
+	$menu_arg = ''
+	menu_off = 0
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/serge/serge2.jpg"></center>'
 	'Sergey Borisovich Shulgin, born in 1967. His hair is grey by now, and he has a small beer belly, but in your opinion he still looks good for his age. His then-wife divorced him a long time ago and he has been single ever since, raising Vasily all by himself.'

locations/SgrupDisco.qsrc

@@ -43,7 +43,7 @@ if i < 61:jump 'markgruploop'
 *nl
 '<<$textgrup2>>'
 '<center>Most the cool kids are dancing, while the gopnics are standing in the corner of the room, keeping to themselves.</center>'
-if hour >= 21 and hour < 23 and week=5: '<center>At the entrance of the disco hall stands <a href="exec:GT ''VolleyTrenerSpeak''">Coach Mikhail Nikolayevich</a></center>'
+if hour >= 21 and hour < 23 and week=5: '<center>At the entrance of the disco hall stands <a href="exec:gt ''VolleyTrenerSpeak''">Coach Mikhail Nikolayevich</a></center>'
 '</table><center>'
 
 --- SgrupDisco ---------------------------------

locations/SoniaHome.qsrc

@@ -16,6 +16,7 @@ if $ARGS[0] = 'Aftermath':
 	NikoAftermath = 1
 	$location_type = 'private'
 	$locclass = 'bedr'
+	menu_off = 1
 	gs'stat'
 	'<center><b><h4><font color=#FF00FF><<"Sonia Ivanko">></font></h4></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikomisc/soniahome/bedroom/soniawake.jpg"></center>'

locations/Terminal.qsrc

@@ -10,7 +10,7 @@ gs 'stat'
 '<center><b><font color="maroon">Storage terminal</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/city/industrial/terminal/terminal0.jpg"></center>'
 'A large shipping center with many on and off load truck ports.'
-if trfatherQW = 4 and week >= 6 and hour >= 12 and hour < 14:'Near one of the dirty trucks is your <a href="exec:GT ''trFatherMisha''">father</a>.'
+if trfatherQW = 4 and week >= 6 and hour >= 12 and hour < 14:'Near one of the dirty trucks is your <a href="exec:gt ''trFatherMisha''">father</a>.'
 
 act 'Leave':
 	cla

locations/_face_image.qsrc

@@ -40,33 +40,45 @@ else
 end
 $RESULT += '/'
 
-!! style
-if hbraids > 0:
-	$RESULT += 'braids'
-elseif hpigtail > 0:
-	$RESULT += 'pigtails'
-elseif curly > 0 and hbangs > 0 and hpingripw > 0:
-	$RESULT += 'curly-bangs-buns'
-elseif curly > 0 and hbangs > 0 and hscrunchw > 0:
-	$RESULT += 'curly-bangs-scrunch'
-elseif curly > 0 and hbangs > 0:
-	$RESULT += 'curly-bangs'
-elseif curly > 0 and hpingripw > 0:
-	$RESULT += 'curly-buns'
-elseif curly > 0 and hscrunchw > 0:
-	$RESULT += 'curly-scrunch'
-elseif hbangs > 0 and hpingripw > 0:
-	$RESULT += 'bangs-buns'
-elseif hbangs > 0 and hscrunchw > 0:
-	$RESULT += 'bangs-scrunch'
-elseif curly > 0:
-	$RESULT += 'curly'
-elseif hbangs > 0:
-	$RESULT += 'bangs'
-elseif hpingripw > 0:
-	$RESULT += 'buns'
-elseif hscrunchw > 0:
-	$RESULT += 'scrunch'
+!! style for medium or longer hair
+if pcs_hairlng > 80:
+	if hbraids > 0:
+		$RESULT += 'braids'
+	elseif hpigtail > 0:
+		$RESULT += 'pigtails'
+	elseif curly > 0 and hbangs > 0 and hpingripw > 0:
+		$RESULT += 'curly-bangs-buns'
+	elseif curly > 0 and hbangs > 0 and hscrunchw > 0:
+		$RESULT += 'curly-bangs-scrunch'
+	elseif curly > 0 and hbangs > 0:
+		$RESULT += 'curly-bangs'
+	elseif curly > 0 and hpingripw > 0:
+		$RESULT += 'curly-buns'
+	elseif curly > 0 and hscrunchw > 0:
+		$RESULT += 'curly-scrunch'
+	elseif hbangs > 0 and hpingripw > 0:
+		$RESULT += 'bangs-buns'
+	elseif hbangs > 0 and hscrunchw > 0:
+		$RESULT += 'bangs-scrunch'
+	elseif curly > 0:
+		$RESULT += 'curly'
+	elseif hbangs > 0:
+		$RESULT += 'bangs'
+	elseif hpingripw > 0:
+		$RESULT += 'buns'
+	elseif hscrunchw > 0:
+		$RESULT += 'scrunch'
+	else
+		$RESULT += 'normal'
+	end
+!! style for short hair (other images don't exist)
+elseif pcs_hairlng <= 80 and pcs_hairlng > 30:
+	if hbangs > 0:
+		$RESULT += 'bangs'
+	else
+		$RESULT += 'normal'
+	end
+!! style for very short hair (other images don't exist)
 else
 	$RESULT += 'normal'
 end

locations/agentned.qsrc

@@ -40,7 +40,7 @@ if $ARGS[0] = 'start':
 		if home_owned[3] > 0: 'An cottage located in the cooperative village'
 		if home_owned[5] = 1: 'A plot of land in the St. Petersburg suburbs'
 		*nl
-		'We are at your service if you decide to <a href="exec:GT ''agentned'',''sell''">sell</a>.'
+		'We are at your service if you decide to <a href="exec:gt ''agentned'',''sell''">sell</a>.'
 	end
 
 	act 'Leave':

locations/amrul.qsrc

@@ -1,37 +0,0 @@
-# amrul
-*clr & cla
-menu_off = 1
-minut += 5
-kh = 0
-chnch = 0
-mb = 0
-du = 0
-series = 0
-chi = 100
-x_rul = 100
-gs 'stat'
-'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/amrul.jpg"></center>'
-'You lean over the table.'
-
-act 'Move away from the table':gt 'roulette'
-
-act 'Make a bet':
-	st_1 = input 'Enter the amount'
-
-	if money < st_1:
-		msg 'You have enough money'
-		gt 'roulette'
-	elseif st_1 < 0:
-		msg 'You can''t bet a negative amount.'
-		gt 'amrul'
-	elseif st_1 > 1000:
-		msg 'The maximum rate is 1000 <b>₽</b>'
-		gt 'amrul'
-	end
-
-	money -= st_1
-	gt 'rate'
-end
-
---- amrul ---------------------------------
-

locations/andrey.qsrc

@@ -22,7 +22,7 @@ if $ARGS[0] = '':
 		gs 'andrey', 'reapply'
 	elseif young_shop_work = 0 and young_shop_work1 = 0 and young_shop_work2 = 0:
 		gs 'andrey', 'apply'
-	elseif young_shop_work = 1 or young_shop_work1 = 1 or young_shop_work2 = 1 or young_shop_work = 100 or young_shop_work1 = 100 or young_shop_work2 = 100:
+	elseif young_shop_work = 1 or young_shop_work1 = 1 or young_shop_work2 = 1:
 		gs 'andrey', 'regular'
 	else
 		gs 'andrey', 'beg'
@@ -55,7 +55,7 @@ if $ARGS[0] = 'apply':
 			act 'Take the evening job':
 				cla
 				work = 1
-				young_shop_work = 100
+				young_shop_work = 1
 				minut += 5
 				*nl
 				'You find the conditions suiting, and without batting and eye you sign the documents.'
@@ -64,7 +64,7 @@ if $ARGS[0] = 'apply':
 			end
 			act 'Take the weekend job':
 				cla
-				young_shop_work1 = 100
+				young_shop_work1 = 1
 				minut += 5
 				*nl
 				'You find the conditions suiting, and without batting and eye you sign the documents.'
@@ -74,7 +74,7 @@ if $ARGS[0] = 'apply':
 !!			act 'Take the full time job':
 !!				cla
 !!				work = 1
-!!				young_shop_work2 = 100
+!!				young_shop_work2 = 1
 !!				minut += 5
 !!				*nl
 !!				'You find the conditions suiting, and without batting and eye you sign the documents.'
@@ -350,13 +350,13 @@ if $ARGS[0] = 'reapply':
 		'You fill out the forms and return them to the manager.'
 		act 'Accept work during the week':
 			work = 1
-			young_shop_work = 100
+			young_shop_work = 1
 			minut += 5
 			'You got a job in the youth clothing store ''Pussy-Cats''. Your first workday is on Monday at 15:00.'
 			gt 'young_shop', 'start'
 		end
 		act 'Accept work during the weekend':
-			young_shop_work1 = 100
+			young_shop_work1 = 1
 			minut += 5
 			'You got a job in the youth clothing store ''Pussy-Cats''. Your first workday is on Saturday at 09:00.'
 			gt 'young_shop', 'start'

locations/anushapt.qsrc

@@ -53,16 +53,16 @@ if $ARGS[0] = 'home':
 	'You walk up to the front door and knock.'
 	if hour >= 22:
 		'It''s too late in the day to visit Anushka.'
-		act 'Move away from the door':gt'pavComplexb2','etaj_4'
+		act 'Move away from the door':gt'pavComplex', 'start'
 	elseif hour < 8:
 		'It''s too early in the day to visit Anushka.'
-		act 'Move away from the door':gt'pavComplexb2','etaj_4'
+		act 'Move away from the door':gt'pavComplex', 'start'
 	elseif ((hour >= 15 and hour < 20) or (week > 5 and hour >= 10 and hour < 20)) and (rand(0,4) = 0):
 		*clr & cla
 		'<center><img src="images/locations/pavlovsk/resident/apartment/anushapt/valeria.jpg"></center>'
 		'You stand outside the Konstantinov household, knocking on the door. It takes quite a while before someone actually does come and in the end it turns out to be Anushka''s mother.'
 		'Her mother just stands there glaring at you for a while, "Well now don''t just stand there, what do you want? Oh wait let me guess, you want to see Anushka? Well the little slut isn''t here and I don''t know when she''ll be back. So why don''t you just go bother someone else." Before you can even get a word in, she slams the door in your face and you hear the all the locks click into place. Not having any other option, you turn to leave.'
-		act 'Move away from the door':gt'pavComplexb2','etaj_4'
+		act 'Move away from the door':gt'pavComplex', 'start'
 	elseif (hour >= 15 and hour < 22) or (week > 5 and hour >= 8 and hour < 22):
 		*clr & cla
 		'You stand outside the Konstantinov household, waiting for Anushka to come open the door.'
@@ -124,11 +124,11 @@ if $ARGS[0] = 'home':
 				'You shake your head a bit, but there is nothing you can do about it, should you go in and wait for her or just go? As always, you can feel Maksim undressing you with his eyes while staring straight at your tits.'
 			end
 			act 'Enter': gt 'anushapt','hallway' 
-			act 'Leave': gt 'pavComplexb2','etaj_4'
+			act 'Leave': gt 'pavComplex','start'
 		end
 	else
 		'You knock on the door several times but no one answers. There is probably no one home at the moment.'
-		act 'Move away from the door':gt'pavComplexb2','etaj_4'
+		act 'Move away from the door': gt 'pavComplex','start'
 	end
 end
 
@@ -158,18 +158,18 @@ if $ARGS[0] = 'hallway':
 		'You stand still for a little while longer, listening for something but nothing happens. After a while you decide to move on, you''re pretty sure that it was just Anushka''s younger brother Maksim spying on you.'
 	end
 	if AnushkaLoc ! 1:
+		act '<b>Leave Anushka''s apartment</b>': gt 'pavComplex','start'
 		act 'Anushka''s Room': gt 'anushapt','anushroom'
 		act 'Bathroom': gt 'anushapt','bathroom'
 		act 'Anushka''s brother''s room': gt 'anushapt','brotherroom'
 		act 'Living Room': gt 'anushapt','livingroom'
 		act 'Kitchen': gt 'anushapt','kitchen'
 		act 'Parents Room': gt 'anushapt','anushparents'
-		act 'Leave Anushka''s apartment': gt 'pavComplexb2', 'etaj_4'
 	else
 		'Anushka is standing next to, looking at you expectantly. "What''s up, <<$pcs_nickname>>?"'
+		act '<b>Leave Anushka''s apartment</b>': gt 'pavComplex','start'
 		act 'Let''s go to your room':AnushkaLoc=2&gt'anushapt','anushroom'
 		act 'Let''s check on your brother':AnushkaLoc=3&gt'anushapt','brotherroom'
-		act 'Leave Anushka''s apartment': gt 'pavComplexb2', 'etaj_4'
 	end
 end
 
@@ -1020,6 +1020,21 @@ if $ARGS[0] = 'snack':
 	menu_off = 1
 	cla
 	*nl
+	!!Snack + Water
+	minut += 15
+	alko -= 1
+	pcs_health += 20
+	pcs_mood += 20
+	fat += 6
+	pcs_energy += 25
+	if pcs_hydra >= 100:
+		pcs_hydra += 25
+	else
+		pcs_hydra += 50
+	end
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	pcs_breath = 0
 	'She gets up and heads out of her room and to the kitchen, the two of you are talking and laughing as you enter the kitchen.'
 	temp = rand(0,9)
 	if temp = 0 and valeriaIntroduced = 0:
@@ -1040,8 +1055,7 @@ if $ARGS[0] = 'snack':
 			'"At least I''ll finish school! Unlike you." Anushka answers.'
 			'Her mother ignores her comment and speaks to you. "So whats your name?"'
 			act 'Tell her':
-				cla
-				*clr
+				*clr & cla
 				'<center><b><font color = maroon>Kitchen</font></b></center>'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/anushapt/valeria.jpg"></center>'
 				'You know this woman just wants to pick a fight but what else can you do. "My name is <<$pcs_firstname>> <<$pcs_lastname>>."'
@@ -1049,8 +1063,8 @@ if $ARGS[0] = 'snack':
 				'When you nod yes, she bursts out laughing and then shakes her head looking at her daughter. "Only you would become friends with the daughter of the town''s biggest slut. I bet she is just like her mother, the two of you must have so much in common."'
 				'Anushka steps up to her mother and gets right in her face. "Shut the fuck up you old cunt!" Anushka looks visibly pissed off. "You say another fucking word like that to my friend and I will knock you on your fucking ass."'
 				act 'Look around nervously':
-					cla
-					*clr
+					*clr & cla
+					gs 'stat'
 					'<center><b><font color = maroon>Kitchen</font></b></center>'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/anushapt/kitchen.jpg"></center>'
 					'The tension in the room is tremendous. Time seems to stand still and you just want to run out of the kitchen so you can breathe normally again.'
@@ -1062,6 +1076,7 @@ if $ARGS[0] = 'snack':
 			end
 		end
 	elseif temp = 1 or temp = 2:
+		gs 'stat'
 		'As you walk into the kitchen you see Timofey sitting at the small kitchen table looking sad. Anushka points to a cabinet and the fridge. "Chips and stuff are in there and drinks are in the fridge, grab us some."'
 		'Then she squats down next to her little brother and ruffles his hair. "Hey what''s wrong Timo?"'
 		'He looks up at her as you gather the stuff. "Maksim won''t let me have a turn playing the games."'
@@ -1073,6 +1088,7 @@ if $ARGS[0] = 'snack':
 		'She stands up and looks at you. "Got everything?" When you nod yes she adds. "Sweet, lets go back to my room."'
 		act 'Back to her room':AnushkaLoc=2&gt'anushapt','anushroom'
 	else
+		gs 'stat'
 		'As you walk into the kitchen Anushka points to a cabinet. "Grab some chips and stuff out of there."'
 		'While you are doing that, she grabs a couple of drinks from the fridge and once you both have your spoils from your raid on the kitchen you head back to her room.'
 		act 'Back to her room':AnushkaLoc=2&gt'anushapt','anushroom'
@@ -1324,7 +1340,7 @@ if $ARGS[0] = 'livingroom':
 						*clr
 						cla
 						'You nod and know how he feels, no point waiting for her. She could be gone for hours. "Thanks, you can just tell her I stopped by."'
-						act 'Leave Anushka''s apartment': gt 'pavComplexb2', 'etaj_3'
+						act 'Leave Anushka''s apartment': gt 'pavComplex','start'
 						act 'Thanks, I''ll wait':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/anushapt/living.jpg"></center>'
@@ -1345,7 +1361,7 @@ if $ARGS[0] = 'livingroom':
 					'Then he shakes his head. "Enough of my depressing talk, feel free to wait for her in her room if you want, but no telling when she might be home, or I can tell her you stopped by when I next see her."'
 					act 'Tell her I stopped by':
 						'You nod and know how he feels, no point waiting for her. She could be gone for hours. "Thanks, let her know I stopped by. Bye."'
-						act 'Leave Anushka''s apartment': gt 'pavComplexb2', 'etaj_3'
+						act 'Leave Anushka''s apartment': gt 'pavComplex','start'
 					end
 					act 'Thanks I''ll wait':
 						*clr & cla
@@ -1811,7 +1827,7 @@ if $ARGS[0] = 'shower_wait':
 	*clr
 	gs 'stat'
 	'<center><h4><font color="maroon">Anushka''s Room</font></h4></center>'
-	'<center><img src="images/locations/pavlovsk/resident/apartment/anushapt/nushbed.jpg"></center>'
+	'<center><img src="images/locations/pavlovsk/resident/apartment/anushapt/anushroom/nushbed.jpg"></center>'
 	if showerphotos = 0:
 		'While Nush gets dried off you go into her room to wait for her. The room is surprisingly clean, even if it''s somewhat dusty. The walls are covered with pictures and posters and the room is skillfully decorated with various strings of coloured lights. You take a seat on the bed as you wait for her to come join you. A couple of minutes later she walks in completely naked and quickly gets dressed before jumping on the bed next to you.'
 	elseif showerphotos = 1:

locations/autosalonF.qsrc

@@ -37,7 +37,7 @@ if $ARGS[0] = 'start':
 	'<TR><TD><a href="exec:GS ''carF1'',''car98''">Porsche Cayenne</a>.</TD><TD> - </TD><TD> New. Price: 5 million.RUB</TD></TR>'
 	'<TR><TD><a href="exec:GS ''carF1'',''car108''">Jaguar XKR-S</a>.</TD><TD> - </TD><TD> New. Price: 7 million.RUB</TD></TR>'
 	'<TR><TD><a href="exec:GS ''carF1'',''car100''">Mercedes-Benz S 600</a>.</TD><TD> - </TD><TD> New. Price: 8 million.RUB</TD></TR>'
-	'<TR><TD><a href="exec:GS ''carF1'',''car111''">Bentley Continental GT</a>.</TD><TD> - </TD><TD> New. Price: 10 million.RUB</TD></TR>'
+	'<TR><TD><a href="exec:GS ''carF1'',''car111''">Bentley Continental gt</a>.</TD><TD> - </TD><TD> New. Price: 10 million.RUB</TD></TR>'
 	'<TR><TD><a href="exec:GS ''carF1'',''car112''">Ferrari 458 Italia</a>.</TD><TD> - </TD><TD> New. Price: 20 million.RUB</TD></TR>'
 	'</TR></table>'
 

locations/bed2.qsrc

@@ -14,9 +14,9 @@ if $ARGS[0] = '':
 	*nl
 
 	if budilnikOn = 0:
-		'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & GT ''<<$loc>>''">off</a>.'
+		'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & gt ''<<$loc>>''">off</a>.'
 	else
-		'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & GT ''<<$loc>>''">on</a>.'
+		'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & gt ''<<$loc>>''">on</a>.'
 	end
 
 	if pcs_makeup ! 1:'<b><font color="red">You need to wash off your makeup before going to bed.</font></b>'
@@ -361,6 +361,8 @@ if $ARGS[0] = 'end':
 	InSleep = 0
 	slept_in = 0
 	strip_here = 0
+	if $braworntype ! 'none': gs 'bras', 'remove'
+	if $pantyworntype ! 'none':gs 'panties', 'remove'
 	if bedpanty = 1:
 		gs 'underwear', 'remove'
 	else
@@ -484,6 +486,9 @@ if $ARGS[0] = 'succubinit':
 		preg = 0
 		pregtime = 0
 		pregtalk = 0
+		pregTalkPC = 0
+		pregTalkNat = 0
+		pregTalkbrother = 0
 		thinkpreg = 0
 		knowpreg = 0
 		pregchem = 0

locations/bedr.qsrc

@@ -29,9 +29,9 @@ if rembedr = 0:
 	'A tight, little room with a <a href="exec:gt ''bed'', ''start''">double bed</a>.'
 	*nl
 	if budilnikOn = 0:
-		'There is an  <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & GT ''<<$loc>>''">off</a>.'
+		'There is an  <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & gt ''<<$loc>>''">off</a>.'
 	else
-		'There is an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & GT ''<<$loc>>''">on</a>.'
+		'There is an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & gt ''<<$loc>>''">on</a>.'
 	end
 	*nl
 	'An old wooden <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> stands near the door to the corridor.The windows are closed with faded, heavy curtains.'
@@ -41,9 +41,9 @@ else
 	'A bright and beautiful room, with a large, kingsized <a href="exec:gt ''bed'', ''start''">double bed</a>.'
 	*nl
 	if budilnikOn = 0:
-		'There is an  <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & GT ''<<$loc>>''">off</a>.'
+		'There is an  <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & gt ''<<$loc>>''">off</a>.'
 	else
-		'There is an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & GT ''<<$loc>>''">on</a>.'
+		'There is an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & gt ''<<$loc>>''">on</a>.'
 	end
 	*nl
 	'A modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) stands near the door to the corridor. Against the wall, stands a make-up table with a <a href="exec:gt ''mirror'', ''start''">mirror</a> on it.'

locations/bedr2x.qsrc

@@ -24,18 +24,18 @@ gs 'themes', 'indoors'
 if pcs_magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt'tobiQW','start'
 'A bright and beautiful bedroom, with modern and stylish furniture.'
 *nl
-'The room is dominated by <a href="exec:GT ''bed'',''start''">full sized bed</a>'
+'The room is dominated by <a href="exec:gt ''bed'',''start''">full sized bed</a>'
 if budilnikOn = 0:
-	'There is an  <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & GT ''<<$loc>>''">off</a>.'
+	'There is an  <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & gt ''<<$loc>>''">off</a>.'
 else
-	'There is an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & GT ''<<$loc>>''">on</a>.'
+	'There is an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on the bedside table, and it is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & gt ''<<$loc>>''">on</a>.'
 end
 *nl
 'Near the entrance stands a modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a>.'
 *nl
-'Against the wall is a table with a <a href="exec:GT ''mirror'',''start''">mirror</a> above it.'
+'Against the wall is a table with a <a href="exec:gt ''mirror'',''start''">mirror</a> above it.'
 *nl
-if komp = 1:'On the other bedside table is your <a href="exec:GT ''Komp'',''start''">laptop</a>.'
+if komp = 1:'On the other bedside table is your <a href="exec:gt ''Komp'',''start''">laptop</a>.'
 *nl
 if husbandrinkday = daystart:
 	if husbanstrapon = 1:'Your husband is still passed out drunk, after you used a anal plug on him.'

locations/bedrPar.qsrc

@@ -70,7 +70,7 @@ end
 'Your <a href="exec:gt ''bed'', ''start''">bed</a> stands opposite the wardrobe, and your <a href="exec:gt ''stol'' ,''stolPar''">desk</a> is next to it. Your sister''s bed is in the other corner.'
 *nl
 if popugai2 = 1:
-	'<a href="exec:GT ''popu'',''start2''"><<$namepopu2>></a> is sitting in his cage'
+	'<a href="exec:gt ''popu'',''start2''"><<$namepopu2>></a> is sitting in his cage'
 	if daystart - parbuydate <= 10: '<<$namepopu2>> starts squawking at you when you enter the room.'
 	if daystart - parbuydate > 10 and daystart - parbuydate <= 20: 'When <<$namepopu2>> sees you he starts ''speaking''. It sounds almost like he is saying "<b>hello  <<$pcs_nickname>></b>"'
 	if daystart - parbuydate > 20 and daystart - parbuydate <= 30: 'When <<$namepopu2>> sees you he starts ''speaking''. He is clearly saying "<b>hello  <<$pcs_nickname>></b>"'
@@ -96,9 +96,9 @@ if popugai2 = 1:
 	*nl
 end
 if budilnikOn = 0:
-	'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & GT ''<<$loc>>''">off</a>.'
+	'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 1 & gt ''<<$loc>>''">off</a>.'
 else
-	'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & GT ''<<$loc>>''">on</a>.'
+	'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' and is currently turned <a href="exec: budilnikOn = 0 & gt ''<<$loc>>''">on</a>.'
 end
 
 if tabletki > 0 and prezik + prezikcount + preziksabo > 0:
@@ -115,7 +115,7 @@ if sewing_kit = 1:
 	'You have <<tkan>> pieces of sewing fabric left.'
 end
 
-if komp = 1:'Your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a> is on your desk.'
+if komp = 1:'Your <a href="exec:gorodokKomp = 1 & gt ''Komp'',''start''">laptop</a> is on your desk.'
 gorodokKomp = 0
 
 gad = 0

locations/belgang.qsrc

@@ -38,8 +38,10 @@ if $ARGS[0] = 'workofdebt':
 			
 			if return_residential = 0: 
 				act 'Move on': gt 'pavCommercial'
-			else
+			elseif return_residential = 1: 
 				act 'Move on': gt 'pavResidential'
+			else
+				act 'Move on': gt 'pavIndustrial'
 			end
 		end
 	end
@@ -61,9 +63,11 @@ if $ARGS[0] = 'workofdebt':
 			
 			if return_residential = 0: 
 				act 'Move on': gt 'pavCommercial'
-			else
+			elseif return_residential = 1: 
 				act 'Move on': gt 'pavResidential'
-			end			
+			else
+				act 'Move on': gt 'pavIndustrial'
+			end		
 		end
 	end
 	
@@ -127,8 +131,10 @@ elseif $ARGS[0] = 'payday':
 			
 			if return_residential = 0: 
 				act 'Move on': gt 'pavCommercial'
-			else
+			elseif return_residential = 1: 
 				act 'Move on': gt 'pavResidential'
+			else
+				act 'Move on': gt 'pavIndustrial'
 			end
 		end
 	elseif money >= belgangPayWeek and money < belgangPay and belgangPayWeek > 0:
@@ -142,6 +148,10 @@ elseif $ARGS[0] = 'payday':
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/belymoney.jpg"></center>'
 			'You hand over the payment for this week. "That''s it, everything for this week."'
 			'He takes a moment to count the money and nods approvingly. "Very good, it''s the full amount."'
+			if slutty >= 10 and SaunaWhore = 0:
+				SaunaWhore = 1
+				'"If you ever need money, go to the sauna in the city and tell them Mr. Bely sends you. There you will have plenty of opportunities to use your ''talents''."'
+			end
 			
 			act 'Continue':
 				cla & *clr
@@ -158,9 +168,11 @@ elseif $ARGS[0] = 'payday':
 				
 				if return_residential = 0: 
 					act 'Move on': gt 'pavCommercial'
-				else
+				elseif return_residential = 1: 
 					act 'Move on': gt 'pavResidential'
-				end	
+				else
+					act 'Move on': gt 'pavIndustrial'
+				end
 			end
 		end
 	elseif belgangPayWeek <= 0:
@@ -172,7 +184,10 @@ elseif $ARGS[0] = 'payday':
 		else
 			'Vadim Bely steps out, along with several of his henchmen. He gives you a smile that you know is 100% fake and behaves amicably while he says: "Long time no see, <<$pcs_nickname>>! You are doing good. If you keep paying early, this will work out for the both of us," he says.' 
 		end
-
+		if slutty >= 10 and SaunaWhore = 0:
+				SaunaWhore = 1
+				'"If you ever need money, go to the sauna in the city and tell them Mr. Bely sends you. There you will have plenty of opportunities to use your ''talents''."'
+		end
 		act 'Continue':
 			cla & *clr
 			minut += 5
@@ -238,11 +253,13 @@ elseif $ARGS[0] = 'payday':
 				' '
 				'You owe him: <<belgangPay>> <b>₽</b>'
 				'Next week you need to pay him: <<belgangPayWeek>> <b>₽</b>'
-								
+				
 				if return_residential = 0: 
 					act 'Thank him and leave': gt 'pavCommercial'
-				else
+				elseif return_residential = 1: 
 					act 'Thank him and leave': gt 'pavResidential'
+				else
+					act 'Thank him and leave': gt 'pavIndustrial'
 				end
 			else 
 				'He frowns, abruptly cutting you off. You can see the disapproval in his eyes when you glance up. "That is very unfortunate <<$pcs_nickname>>. I had such high hopes for you," he says. "I guess we will have to find an alternative way for you to pay off your debts."'
@@ -273,9 +290,5 @@ elseif $ARGS[0] = 'payday':
 end
 
 
-
-
-
-
 --- belgang ---------------------------------
 

locations/beverage.qsrc

@@ -182,219 +182,254 @@ if $ARGS[0] = 'bev_tea':
 end
 
 if $ARGS[0] = 'bev_vod':
-	*clr & cla
-	frost = 0
-	alko += 2
-	minut += 15
-	fat += 8
-	money -= val($_drink['<<args[1]>>,price'])
-	pcs_health -= 5
-	pcs_mood += 10
-	pcs_energy -= 4
-	if pcs_hydra >= 100:
-		pcs_hydra -= 5
+	if pcs_health > 50:
+		*clr & cla
+		frost = 0
+		alko += 2
+		minut += 15
+		fat += 8
+		money -= val($_drink['<<args[1]>>,price'])
+		pcs_health -= 5
+		pcs_mood += 10
+		pcs_energy -= 4
+		if pcs_hydra >= 100:
+			pcs_hydra -= 5
+		else
+			pcs_hydra -= 10
+		end
+		cumspclnt = 2
+		gs 'cum_cleanup'
+		pcs_breath = 0
+		gs 'beverage', 'afteralcohol'
+		'<center><img <<$set_imgh>> src="images/locations/shared/brothel/barordervodka.jpg"></center>'
+		'The vodka shot disappears, like it was only water, and<<$mtxt>>'
+		gs 'stat'
+		killvar '$_drink'
+
+		if food_loc = 1 and $loc ! 'brothel':
+			act 'Finish': gt 'food_menu'
+		else
+			act 'Finish':gt $loc, $metka
+		end
 	else
-		pcs_hydra -= 10
-	end
-	cumspclnt = 2
-	gs 'cum_cleanup'
-	pcs_breath = 0
-	gs 'beverage', 'afteralcohol'
-	'<center><img <<$set_imgh>> src="images/locations/shared/brothel/barordervodka.jpg"></center>'
-	'The vodka shot disappears, like it was only water, and<<$mtxt>>'
-	gs 'stat'
-	killvar '$_drink'
-
-	if food_loc = 1:
-		act 'Finish': gt 'food_menu'
-	else
-		act 'Finish':gt $loc, $metka
+		msg 'You don''t feel well enough to drink alcohol.'
+		gt $loc, $metka
 	end
 end
 
 if $ARGS[0] = 'bev_bla':
-	*clr & cla
-	frost = 0
-	alko += 3
-	minut += 15
-	fat += 8
-	money -= val($_drink['<<args[1]>>,price'])
-	pcs_health -= 5
-	pcs_mood += 15
-	pcs_energy += 5
-	if pcs_hydra >= 100:
-		pcs_hydra -= 5
-	else
-		pcs_hydra -= 10
-	end
-	cumspclnt = 2
-	gs 'cum_cleanup'
-	pcs_breath = 0
-	gs 'beverage', 'afteralcohol'
-	'<center><img <<$set_imgh>> src="images/shared/drinks/blackrussian.jpg"></center>'
-	'You drink a Black Russian, and<<$mtxt>>'
-	gs 'stat'
-	killvar '$_drink'
-
-	if food_loc = 1:
-		act 'Finish': gt 'food_menu'
+	if pcs_health > 50:
+		*clr & cla
+		frost = 0
+		alko += 3
+		minut += 15
+		fat += 8
+		money -= val($_drink['<<args[1]>>,price'])
+		pcs_health -= 5
+		pcs_mood += 15
+		pcs_energy += 5
+		if pcs_hydra >= 100:
+			pcs_hydra -= 5
+		else
+			pcs_hydra -= 10
+		end
+		cumspclnt = 2
+		gs 'cum_cleanup'
+		pcs_breath = 0
+		gs 'beverage', 'afteralcohol'
+		'<center><img <<$set_imgh>> src="images/shared/drinks/blackrussian.jpg"></center>'
+		'You drink a Black Russian, and<<$mtxt>>'
+		gs 'stat'
+		killvar '$_drink'
+
+		if food_loc = 1 and $loc ! 'brothel':
+			act 'Finish': gt 'food_menu'
+		else
+			act 'Finish': gt $loc, $metka
+		end
 	else
-		act 'Finish':gt $loc, $metka
+		msg 'You don''t feel well enough to drink alcohol.'
+		gt $loc, $metka
 	end
 end
 
 if $ARGS[0] = 'bev_sco':
-	*clr & cla
-	frost = 0
-	alko += 2
-	minut += 15
-	fat += 6
-	money -= val($_drink['<<args[1]>>,price'])
-	pcs_health -= 5
-	pcs_mood += 10
-	pcs_energy -= 4
-	if pcs_hydra >= 100:
-		pcs_hydra -= 5
+	if pcs_health > 50:
+		*clr & cla
+		frost = 0
+		alko += 2
+		minut += 15
+		fat += 6
+		money -= val($_drink['<<args[1]>>,price'])
+		pcs_health -= 5
+		pcs_mood += 10
+		pcs_energy -= 4
+		if pcs_hydra >= 100:
+			pcs_hydra -= 5
+		else
+			pcs_hydra -= 10
+		end
+		cumspclnt = 2
+		gs 'cum_cleanup'
+		pcs_breath = 0
+		gs 'beverage', 'afteralcohol'
+		'<center><img <<$set_imgh>> src="images/shared/drinks/scotch.jpg"></center>'
+		'You drink scotch on the rocks, and<<$mtxt>>'
+		gs 'stat'
+		killvar '$_drink'
+
+		if food_loc = 1 and $loc ! 'brothel':
+			act 'Finish': gt 'food_menu'
+		else
+			act 'Finish':gt $loc, $metka
+		end
 	else
-		pcs_hydra -= 10
-	end
-	cumspclnt = 2
-	gs 'cum_cleanup'
-	pcs_breath = 0
-	gs 'beverage', 'afteralcohol'
-	'<center><img <<$set_imgh>> src="images/shared/drinks/scotch.jpg"></center>'
-	'You drink scotch on the rocks, and<<$mtxt>>'
-	gs 'stat'
-	killvar '$_drink'
-
-	if food_loc = 1:
-		act 'Finish': gt 'food_menu'
-	else
-		act 'Finish':gt $loc, $metka
+		msg 'You don''t feel well enough to drink alcohol.'
+		gt $loc, $metka
 	end
 end
 
 if $ARGS[0] = 'bev_win':
-	*clr & cla
-	frost = 0
-	alko += 2
-	minut += 15
-	fat += 4
-	money -= val($_drink['<<args[1]>>,price'])
-	pcs_health -= 5
-	pcs_mood += 15
-	pcs_energy -= 4
-	if pcs_hydra >= 100:
-		pcs_hydra -= 5
+	if pcs_health > 50:
+		*clr & cla
+		frost = 0
+		alko += 2
+		minut += 15
+		fat += 4
+		money -= val($_drink['<<args[1]>>,price'])
+		pcs_health -= 5
+		pcs_mood += 15
+		pcs_energy -= 4
+		if pcs_hydra >= 100:
+			pcs_hydra -= 5
+		else
+			pcs_hydra -= 10
+		end
+		cumspclnt = 2
+		gs 'cum_cleanup'
+		pcs_breath = 0
+		gs 'beverage', 'afteralcohol'
+		'<center><img <<$set_imgh>> src="images/shared/drinks/redwine.jpg"></center>'
+		'You drink some red wine, and<<$mtxt>>'
+		gs 'stat'
+		killvar '$_drink'
+
+		if food_loc = 1 and $loc ! 'brothel':
+			act 'Finish': gt 'food_menu'
+		else
+			act 'Finish':gt $loc, $metka
+		end
 	else
-		pcs_hydra -= 10
-	end
-	cumspclnt = 2
-	gs 'cum_cleanup'
-	pcs_breath = 0
-	gs 'beverage', 'afteralcohol'
-	'<center><img <<$set_imgh>> src="images/shared/drinks/redwine.jpg"></center>'
-	'You drink some red wine, and<<$mtxt>>'
-	gs 'stat'
-	killvar '$_drink'
-
-	if food_loc = 1:
-		act 'Finish': gt 'food_menu'
-	else
-		act 'Finish':gt $loc, $metka
+		msg 'You don''t feel well enough to drink alcohol.'
+		gt $loc, $metka
 	end
 end
 
 if $ARGS[0] = 'bev_mar':
-	*clr & cla
-	frost = 0
-	alko += 3
-	minut += 15
-	fat += 8
-	money -= val($_drink['<<args[1]>>,price'])
-	pcs_health -= 5
-	pcs_mood += 20
-	pcs_energy -= 4
-	if pcs_hydra >= 100:
-		pcs_hydra -= 5
+	if pcs_health > 50:
+		*clr & cla
+		frost = 0
+		alko += 3
+		minut += 15
+		fat += 8
+		money -= val($_drink['<<args[1]>>,price'])
+		pcs_health -= 5
+		pcs_mood += 20
+		pcs_energy -= 4
+		if pcs_hydra >= 100:
+			pcs_hydra -= 5
+		else
+			pcs_hydra -= 10
+		end
+		cumspclnt = 2
+		gs 'cum_cleanup'
+		pcs_breath = 0
+		gs 'beverage', 'afteralcohol'
+		'<center><img <<$set_imgh>> src="images/shared/drinks/martini.jpg"></center>'
+		'You drink a vodka martini, and<<$mtxt>>'
+		gs 'stat'
+		killvar '$_drink'
+
+		if food_loc = 1:
+			act 'Finish': gt 'food_menu'
+		else
+			act 'Finish':gt $loc, $metka
+		end
 	else
-		pcs_hydra -= 10
-	end
-	cumspclnt = 2
-	gs 'cum_cleanup'
-	pcs_breath = 0
-	gs 'beverage', 'afteralcohol'
-	'<center><img <<$set_imgh>> src="images/shared/drinks/martini.jpg"></center>'
-	'You drink a vodka martini, and<<$mtxt>>'
-	gs 'stat'
-	killvar '$_drink'
-
-	if food_loc = 1:
-		act 'Finish': gt 'food_menu'
-	else
-		act 'Finish':gt $loc, $metka
+		msg 'You don''t feel well enough to drink alcohol.'
+		gt $loc, $metka
 	end
 end
 
 if $ARGS[0] = 'bev_cha':
-	*clr & cla
-	frost = 0
-	alko += 2
-	minut += 15
-	fat += 4
-	money -= val($_drink['<<args[1]>>,price'])
-	pcs_health -= 5
-	pcs_mood += 20
-	pcs_energy -= 4
-	if pcs_hydra >= 100:
-		pcs_hydra -= 5
+	if pcs_health > 50:
+		*clr & cla
+		frost = 0
+		alko += 2
+		minut += 15
+		fat += 4
+		money -= val($_drink['<<args[1]>>,price'])
+		pcs_health -= 5
+		pcs_mood += 20
+		pcs_energy -= 4
+		if pcs_hydra >= 100:
+			pcs_hydra -= 5
+		else
+			pcs_hydra -= 10
+		end
+		cumspclnt = 2
+		gs 'cum_cleanup'
+		pcs_breath = 0
+		gs 'beverage', 'afteralcohol'
+		'<center><img <<$set_imgh>> src="images/shared/drinks/champagne.jpg"></center>'
+		'You drink some champagne, and<<$mtxt>>'
+		gs 'stat'
+		killvar '$_drink'
+
+		if food_loc = 1:
+			act 'Finish': gt 'food_menu'
+		else
+			act 'Finish':gt $loc, $metka
+		end
 	else
-		pcs_hydra -= 10
-	end
-	cumspclnt = 2
-	gs 'cum_cleanup'
-	pcs_breath = 0
-	gs 'beverage', 'afteralcohol'
-	'<center><img <<$set_imgh>> src="images/shared/drinks/champagne.jpg"></center>'
-	'You drink some champagne, and<<$mtxt>>'
-	gs 'stat'
-	killvar '$_drink'
-
-	if food_loc = 1:
-		act 'Finish': gt 'food_menu'
-	else
-		act 'Finish':gt $loc, $metka
+		msg 'You don''t feel well enough to drink alcohol.'
+		gt $loc, $metka
 	end
 end
 
 if $ARGS[0] = 'bev_bee':
-	*clr & cla
-	frost = 0
-	alko += 1
-	minut += 15
-	fat += 3
-	money -= val($_drink['<<args[1]>>,price'])
-	pcs_health -= 5
-	pcs_mood += 5
-	pcs_energy -= 4
-	if pcs_hydra >= 100:
-		pcs_hydra += 5
-	else
-		pcs_hydra += 10
-	end
-	cumspclnt = 2
-	gs 'cum_cleanup'
-	pcs_breath = 0
-	gs 'beverage', 'afteralcohol'
-	'<center><img <<$set_imgh>> src="images/shared/drinks/darkbeer.jpg"></center>'
-	'You drink the beer, enjoying the fresh, mildly bitter taste, and<<$mtxt>>'
-	gs 'stat'
-	killvar '$_drink'
-
-	if food_loc = 1:
-		act 'Finish': gt 'food_menu'
+	if pcs_health > 50:
+		*clr & cla
+		frost = 0
+		alko += 1
+		minut += 15
+		fat += 3
+		money -= val($_drink['<<args[1]>>,price'])
+		pcs_health -= 5
+		pcs_mood += 5
+		pcs_energy -= 4
+		if pcs_hydra >= 100:
+			pcs_hydra += 5
+		else
+			pcs_hydra += 10
+		end
+		cumspclnt = 2
+		gs 'cum_cleanup'
+		pcs_breath = 0
+		gs 'beverage', 'afteralcohol'
+		'<center><img <<$set_imgh>> src="images/shared/drinks/darkbeer.jpg"></center>'
+		'You drink the beer, enjoying the fresh, mildly bitter taste, and<<$mtxt>>'
+		gs 'stat'
+		killvar '$_drink'
+
+		if food_loc = 1 and $loc ! 'brothel':
+			act 'Finish': gt 'food_menu'
+		else
+			act 'Finish':gt $loc, $metka
+		end
 	else
-		act 'Finish':gt $loc, $metka
+		msg 'You don''t feel well enough to drink alcohol.'
+		gt $loc, $metka
 	end
 end
 
@@ -403,7 +438,6 @@ if $ARGS[0] = 'bev_bbr':
 end
 
 if $ARGS[0] = 'afteralcohol':
-
 	if pcs_hydra < 100:
 		$mtxt = ' while your drink, you wish you were better hydrated before you started.'
 	elseif pcs_hydra <= 80:
@@ -418,11 +452,10 @@ if $ARGS[0] = 'afteralcohol':
 end
 
 if $ARGS[0] = 'afterdrink':
-
 	if pcs_hydra > 100:
 		$mtxt = ' while your thirst is quenched, you are starting to feel bloated, with your belly full of liquids.'
 	elseif pcs_hydra >= 80:
-		$mtxt = ' it was sufficant enough to quench your thirst.'
+		$mtxt = ' it was sufficient enough to quench your thirst.'
 	elseif pcs_hydra >= 60:
 		$mtxt = ' you could definitely go another round.'
 	elseif pcs_hydra >= 40:

locations/blackjack.qsrc

@@ -1,36 +0,0 @@
-# blackjack
-
-menu_off = 1
-gs 'stat'
-num = 1
-:markcard
-papkarand[num] = rand(0, 4)
-
-if papkarand[num] = 0:$papkacard[num] = 'a'
-if papkarand[num] = 1:$papkacard[num] = 'b'
-if papkarand[num] = 2:$papkacard[num] = 'c'
-if papkarand[num] = 3:$papkacard[num] = 'd'
-if papkarand[num] = 4:$papkacard[num] = 'j'
-
-if papkarand[num] = 4:
-	numcard[num] = rand(1, 2)
-	nomcard[num] = 10
-else
-	numcard[num] = rand(2, 14)
-
-	if numcard[num] < 10:nomcard[num] = numcard[num]
-	if numcard[num] >= 10:nomcard[num] = 10
-end
-
-num += 1
-
-if num < 10:jump 'markcard'
-
-sumcard = nomcard[1]+nomcard[2]
-'<center><img <<$set_imgh>> src="images/shared/accessories/cards/card/<<$papkacard[1]>>/<<$papkacard[1]>><<numcard[1]>>.jpg"><img <<$set_imgh>> src="images/shared/accessories/cards/card/<<$papkacard[2]>>/<<$papkacard[2]>><<numcard[2]>>.jpg"></center>'
-'denomination cards <<sumcard>>'
-
-act 'Remove card':gt $loc
-
---- blackjack ---------------------------------
-

locations/blackjackPlay.qsrc

@@ -1,275 +0,0 @@
-# blackjackPlay
-
-menu_off = 1
-minut += 1
-gs 'stat'
-
-if $ARGS[0] = 'new':
-	killvar 'dealerHand'
-	killvar 'playerHand'
-	killvar 'playerBets'
-	killvar 'playerPoints'
-	dealerHand[] = 0
-	dealerHand[] = 1
-	playerHand[] = 2
-	playerHand[] = 3
-	cardsDealt = 4
-	numHands = 1
-	currentHand = 0
-	handLosses = 0
-	numAces = 0
-	dealerPoints = 0
-	insurance = 0
-	betTotal = 0
-	doubleBet = 0
-	minBet = 10
-	maxBet = 500
-	*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/stolbd.jpg"></center>'
-	*PL 'You are sitting at the blackjack table.'
-	act 'Bet' : gt 'blackjackPlay', 'bet'
-	act 'Rules' : gt 'blackjackPlay', 'rules'
-	act 'Leave' : gt 'cards'
-end
-
-if $ARGS[0] = 'rules':
-	*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/crupbd.jpg"></center>'
-	*PL '<h2><u>Blackjack Rules:</u></h2>'
-	*P '<ol><li>The player and dealer are each dealt 2 cards after initial bets (<<minBet>> <b>₽</b> - <<maxBet>> <b>₽</b>). The dealer will have 1 face-up card and 1 face-down card.</li>'
-	*P '<li>Face cards are worth 10 points, aces can double as either 11 or 1, and all other cards are worth their numeric value.</li>'
-	*P '<li>After the player finishes drawing, the dealer must continue to draw until he has 17 points or more.</li>'
-	*P '<li>To win, the player must score more points than the dealer, have the dealer bust, or get a blackjack.</li>'
-	*P '<li>Getting over 21 points is known as a bust, and an automatic loss.</li>'
-	*P '<li>Getting an ace and a 10 point card in the first 2 cards is known as a blackjack, and is an automatic win which pays 3 : 2.</li>'
-	*P '<li>If the dealer''s face-up card is an ace, the player can make a side-bet called "insurance" that pays 2 : 1 if the dealer has a blackjack.</li>'
-	*P '<li>At any time, the player can choose to double his/her bet, which gives the player 1 more card but prevents further draws on that hand.</li>'
-	*P '<li>If the player''s hand only consists of two cards of equal value, he/she can split them into 2 hands. Each hand must be covered by an amount equal to the original bet.</li>'
-	*P '<li>The player cannot score a blackjack using a split hand.</li>'
-	act 'Return' : gt 'blackjackPlay', 'new'
-end
-
-if $ARGS[0] = 'bet':
-	*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/stavkabd.jpg"></center>'
-	playerBets[0] = INPUT('Place your bet.')
-	if money < playerBets[0]:
-		MSG 'You don''t have enough money for that bet.'
-		gt 'blackjackPlay', 'new'
-	elseif playerBets[0] < minBet:
-		MSG 'There is a minimum bet of <<minBet>> <b>₽</b>.'
-		gt 'blackjackPlay', 'new'
-	elseif playerBets[0] > maxBet:
-		MSG 'There is a maximum bet of <<maxBet>> <b>₽</b>.'
-		gt 'blackjackPlay', 'new'
-	end
-	betTotal = playerBets[0]
-	gs 'deckShuffle'
-	if (deckFace[playerHand[0]] = 1 and deckFace[playerHand[1]] > 9) or (deckFace[playerHand[0]] > 9 and deckFace[playerHand[1]] = 1):
-		gt 'blackjackPlay', 'blackjack'
-	elseif deckFace[dealerHand[0]] > 9 and deckFace[dealerHand[1]] = 1:
-		gt 'blackjackPlay', 'blackjack'
-	elseif deckFace[dealerCards[0]] = 1:
-		gt 'blackjackPlay', 'insurance1'
-	else
-		gt 'blackjackPlay', 'player'
-	end
-end
-
-if $ARGS[0] = 'blackjack':
-	gs 'blackjackView', 1
-	if playerPoints[0] = 21 and dealerPoints = 21:
-		*PL 'DRAW GAME'
-		*PL 'You retrieve your bet.'
-	elseif playerPoints[0] = 21:
-		*PL 'PLAYER WINS'
-		*PL 'You receive <<playerBets[0] * 3 / 2>> <b>₽</b> in winnings.'
-		money += playerBets[0] * 3 / 2
-	else
-		*PL 'DEALER WINS'
-		*PL 'The dealer takes your <<playerBets[0]>> <b>₽</b> bet.'
-		money -= playerBets[0]
-	end
-	act 'Continue' : gt 'blackjackPlay', 'new'
-end
-
-if $ARGS[0] = 'insurance1':
-	gs 'blackjackView'
-	*PL 'The dealer has an ace showing.  Would you like to place a bet for insurance?'
-	insurance = 0
-	act 'Bet insurance' :
-		insurance = INPUT('Place your bet.')
-		if money < insurance:
-			MSG 'You don''t have enough money for that bet.'
-			gt 'blackjackPlay', 'insurance1'
-		elseif insurance < 0:
-			MSG 'You cannot bet a negative amount of money.'
-			gt 'blackjackPlay', 'insurance1'
-		elseif insurance > playerBets[0] / 2:
-			MSG 'Insurance cannot exceed half the original bet.'
-			gt 'blackjackPlay', 'insurance1'
-		else
-			gt 'blackjackPlay', 'insurance2'
-		end
-	end
-	act 'No insurance' : gt 'blackjackPlay', 'insurance2'
-end
-
-if $ARGS[0] = 'insurance2':
-	if deckFace[dealerCards[1]] > 9: gs 'blackjackView', 1
-	if deckFace[dealerCards[1]] < 10: gs 'blackjackView'
-	if dealerPoints = 21:
-		*PL 'DEALER WINS'
-		*P 'The dealer takes your <<playerBets[0]>> <b>₽</b> bet'
-		if insurance > 0: *P ' but also gives you <<insurance>> <b>₽</b> for your side bet'
-		*P '.'
-		money -= playerBets[0]
-		money += insurance
-		act 'Continue' : gt 'blackjackPlay', 'new'
-	else
-		*PL 'The dealer takes a peek at his hole card; no blackjack.'
-		if insurance > 0: *P 'He relieves you of <<insurance>> <b>₽</b> for your side bet.'
-		money -= insurance
-		act 'Continue' :
-			CLA
-			wait 500
-			gt 'blackjackPlay', 'player'
-		end
-	end
-end
-
-if $ARGS[0] = 'player':
-	gs 'blackjackView'
-	if playerPoints[currentHand] > 21: currentHand += 1 & handLosses += 1 & doubleBet = 0
-	if playerPoints[currentHand] = 21 or doubleBet = 1: currentHand += 1 & doubleBet = 0
-	if handLosses = numHands:
-		*PL 'DEALER WINS'
-		*P 'The dealer relieves you of <<betTotal>> <b>₽</b>.'
-		money -= betTotal
-		act 'Continue' : gt 'blackjackPlay', 'new'
-	elseif currentHand >= numHands:
-		*PL 'You can take no further actions.'
-		act 'Continue' :
-			CLA
-			wait 500
-			gt 'blackjackPlay', 'dealer'
-		end
-	else
-		if numHands = 1:
-			*PL 'You are considering actions for your hand.'
-			$text = ''
-		else
-			*PL 'You are considering your actions for <b>hand #<<currentHand + 1>></b>.'
-			$text = 'Hand #<<currentHand + 1>>: '
-		end
-		act '<<$text>>Hit' :
-			i = currentHand * 16 + 2
-			:loop1
-			if playerHand[i] ! 0: i += 1 & jump 'loop1'
-			playerHand[i] = cardsDealt
-			cardsDealt += 1
-			*CLR & CLA
-			*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartbde.jpg"></center>'
-			wait 750
-			gt 'blackjackPlay', 'player'
-		end
-		if money >= betTotal + playerBets[currentHand]:
-			act '<<$text>>Double' :
-				doubleBet = 1
-				betTotal += playerBets[currentHand]
-				playerBets[currentHand] += playerBets[currentHand]
-				i = currentHand * 16 + 2
-				:loop2
-				if playerHand[i] ! 0: i += 1 & jump 'loop2'
-				playerHand[i] = cardsDealt
-				cardsDealt += 1
-				*CLR & CLA
-				*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartbde.jpg"></center>'
-				wait 750
-				gt 'blackjackPlay', 'player'
-			end
-			if playerHand[currentHand * 16 + 2] = 0 and ((deckFace[playerHand[currentHand * 16]] > 9 and deckFace[playerHand[currentHand * 16 + 1]] > 9) or deckFace[playerHand[currentHand * 16]] = deckFace[playerHand[currentHand * 16 + 1]]):
-				act '<<$text>>Split' :
-					betTotal += playerBets[currentHand]
-					playerBets[numHands] = playerBets[currentHand]
-					numHands += 1
-					i = (currentHand + 1) * 16
-					:loop3
-					if playerHand[i] ! 0: i += 16 & jump 'loop3'
-					playerHand[i] = playerHand[currentHand * 16 + 1]
-					playerHand[currentHand * 16 + 1] = cardsDealt
-					cardsDealt += 1
-					playerHand[i + 1] = cardsDealt
-					cardsDealt += 1
-					*CLR & CLA
-					*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartbde.jpg"></center>'
-					wait 750
-					gt 'blackjackPlay', 'player'
-				end
-			end
-		end
-		act '<<$text>>Stay' :
-			currentHand += 1
-			CLA
-			wait 500
-			if currentHand < numHands: gt 'blackjackPlay', 'player'
-			if currentHand >= numHands: gt 'blackjackPlay', 'dealer'
-		end
-	end
-end
-
-if $ARGS[0] = 'dealer':
-	gs 'blackjackView', 1
-	if dealerPoints < 17:
-		act 'Continue' :
-			i = 2
-			:loop4
-			if dealerHand[i] ! 0: i += 1 & jump 'loop4'
-			dealerHand[i] = cardsDealt
-			cardsDealt += 1
-			*CLR & CLA
-			*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartbde.jpg"></center>'
-			wait 750
-			gt 'blackjackPlay', 'dealer'
-		end
-	elseif dealerPoints > 21:
-		betTotal = 0
-		i = 0
-		:loop5
-		if playerPoints[i] <= 21: betTotal += playerBets[i]
-		i += 1
-		if i < numHands: jump 'loop5'
-		*PL 'PLAYER WINS'
-		*P 'You receive <<betTotal>> <b>₽</b> in winnings.'
-		money += betTotal
-		act 'Continue' : gt 'blackjackPlay', 'new'
-	else
-		betTotal = 0
-		i = 0
-		:loop6
-		if playerPoints[i] > 21:
-			betTotal -= playerBets[i]
-		elseif playerPoints[i] < dealerPoints:
-			betTotal -= playerBets[i]
-		elseif playerpoints[i] > dealerPoints:
-			betTotal += playerBets[i]
-		end
-		i += 1
-		if i < numHands: jump 'loop6'
-		if betTotal = 0:
-			*PL 'DRAW GAME'
-			if numHands = 1: *P 'You retrieve your bet.'
-			if numHands > 1: *P 'You retrieve your bets.'
-		elseif betTotal < 0:
-			*PL 'DEALER WINS'
-			if numHands > 1: *P 'After taking into account all the hands, you have lost. '
-			*P 'The dealer relieves you of <<0 - betTotal>> <b>₽</b>.'
-		else
-			*PL 'PLAYER WINS'
-			if numHands > 1: *P 'After taking into account all the hands, you have won. '
-			*P 'You receive <<betTotal>> <b>₽</b> in winnings.'
-		end
-		money += betTotal
-		act 'Continue' : gt 'blackjackPlay', 'new'
-	end
-end
-
---- blackjackPlay ---------------------------------
-

locations/blackjackView.qsrc

@@ -1,79 +0,0 @@
-# blackjackView
-
-*PL '<table width="100%"><tr><td>'
-*PL '<u>Dealer</u>'
-if ARGS[0] = 0:
-	*P '<img <<$set_imgh>> src="<<$deckImg[dealerHand[0]]>>">'
-	*PL '<img <<$set_imgh>> src="images/locations/city/industrial/casino/cards/back.jpg">'
-else
-	numAces = 0
-	dealerPoints = 0
-	i = 0
-	:loop1
-	*P '<img <<$set_imgh>> src="<<$deckImg[dealerHand[i]]>>">'
-	if deckFace[dealerHand[i]] = 1:
-		dealerPoints += 11
-		numAces += 1
-	elseif deckFace[dealerHand[i]] > 9:
-		dealerPoints += 10
-	else
-		dealerPoints += deckFace[dealerHand[i]]
-	end
-	i += 1
-	if dealerHand[i] ! 0: jump 'loop1'
-	:loop2
-	if dealerPoints > 21 and numAces > 0:
-		dealerPoints -= 10
-		numAces -= 1
-		jump 'loop2'
-	end
-	if dealerPoints > 21:
-		*P '<br>BUST!'
-	elseif dealerPoints = 21 and dealerHand[2] = 0:
-		*P '<br>BLACKJACK!'
-	else
-		*P '<br><<dealerPoints>> points'
-	end
-end
-
-*PL '<br><br><u>Player</u>'
-i = 0
-:loop3
-numAces = 0
-playerPoints[i] = 0
-if numHands > 1: *PL 'Hand #<<i + 1>>:'
-j = 0
-:loop4
-if playerHand[i * 16 + j] ! 0:
-	*P '<img <<$set_imgh>> src="<<$deckImg[playerHand[i * 16 + j]]>>">'
-	if deckFace[playerHand[i * 16 + j]] = 1:
-		playerPoints[i] += 11
-		numAces += 1
-	elseif deckFace[playerHand[i * 16 + j]] > 9:
-		playerPoints[i] += 10
-	else
-		playerPoints[i] += deckFace[playerHand[i * 16 + j]]
-	end
-	j += 1
-	jump 'loop4'
-end
-:loop5
-if playerPoints[i] > 21 and numAces > 0:
-	playerPoints[i] -= 10
-	numAces -= 1
-	jump 'loop5'
-end
-if playerPoints[i] > 21:
-	*P '<br>BUST!'
-elseif playerPoints[i] = 21 and playerHand[2] = 0 and numHands = 1:
-	*P '<br>BLACKJACK!'
-else
-	*P '<br><<playerPoints[i]>> points |'
-end
-*P ' Bet = <<playerBets[i]>> <b>₽</b><br><br>'
-i += 1
-if i < numHands: jump 'loop3'
-*PL '</td><td valign="top"><div align="right"><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartbd.jpg"></div></td></tr></table>'
-
---- blackjackView ---------------------------------
-

locations/brother.qsrc

@@ -43,9 +43,9 @@ if npc_QW['A34'] > 20 and npc_QW['A34'] < 25: npc_QW['A34'] = 20
 ! npc_breastfeed_by_sveta['A34'] = 0 or 1 - Kolka was not/was breastfeed by sveta
 ! npc_tasted_sveta_milk['A34'] = 0 or 1 - Does Kolka know how svetas breastmilk taste? 0 = no, 1 = yes
 
-menu_off = 1
 
 if $ARGS[0] = 'start':
+	menu_off = 1
 	gs 'stat'
 	gs 'boystat','A34'
 	dick = npc_dick['A<<34>>']
@@ -315,7 +315,7 @@ if $ARGS[0] = 'start':
 
 	if $loc = 'sitrPar':
 
-		gs 'brother', 'pregreact'
+		if pregTalkBrother = 0: gs 'brother', 'pregreact'
 		gs 'brother', 'brotherSexCount'
 
 		if indorf = 0 and $clothingworntype ! 'nude' and brothersawpirsF=0 and father_go = 1 and npc_rel['A34'] > 85 and hour >= 18 and hour < 23 and pirsF > 0:
@@ -484,7 +484,9 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'kiss_talk':
+	menu_off = 1
 	brotherkisstalk = 1
+	gs 'stat'
 	'<center><b><font color = maroon>Kolka</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
 	'"Hey..." you say awkwardly. "Can we talk? About... you know..." you blush and look away awkwardly, the memory of your brother''s lips pressing at your mind. Kolka immediately blushes back and swallows.'
@@ -589,6 +591,7 @@ end
 if $ARGS[0] = 'sleepsexcum':
 	brotherfuck += 1
 	minut += 15
+	menu_off = 1
 	if protect ! 1:
 		!!Unprotected sex
 
@@ -654,6 +657,7 @@ end
 
 if $ARGS[0] = 'showbody':
 	cla
+	menu_off = 1
 	if npc_QW['A34'] = 3:
 		*clr & cla
 		cla
@@ -700,6 +704,7 @@ end
 if $ARGS[0] = 'homework':
 	cla
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	minut += 1
 	'<center><b><font color = maroon>Kolka</font></b></center>'
@@ -723,6 +728,7 @@ end
 
 if $ARGS[0] = 'brotherSexStart':
 	cla
+	menu_off = 1
 	gs 'boyStat', 'A34'
 	act 'Jerk your brother':
 		*clr & cla
@@ -951,6 +957,7 @@ end
 if $ARGS[0] = 'brother_go_away':
 	cla
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	pcs_horny += RAND(5,10)
 	minut += RAND(5,10)
@@ -965,6 +972,7 @@ end
 if $ARGS[0] = 'brother_go_away2':
 	cla
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	pcs_horny += RAND(5,10)
 	minut += RAND(5,10)
@@ -980,6 +988,7 @@ end
 if $ARGS[0] = 'brother_voyeur_end':
 	cla
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	pcs_horny += RAND(5,10)
 	minut += RAND(5,10)
@@ -1001,6 +1010,7 @@ end
 if $ARGS[0] = 'brother_voyeur_ev1':
 	cla
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	pcs_horny += RAND(10,15)
 	minut += RAND(5,10)
@@ -1019,6 +1029,7 @@ end
 if $ARGS[0] = 'brother_voyeur_ev2':
 	cla
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	pcs_horny += RAND(10,15)
 	temp_var = RAND(5,10)
@@ -1037,6 +1048,7 @@ end
 
 if $ARGS[0] = 'brother_voyeur_ev3':
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	if npc_QW['A34'] <= 1: npc_QW['A34'] = 2
 	pcs_horny += RAND(10,15)
@@ -1055,6 +1067,7 @@ end
 
 if $ARGS[0] = 'brother_voyeur_ev3_2':
 	*clr & cla
+	menu_off = 1
 	pcs_horny += RAND(10,15)
 	minut += RAND(5,10)
 	brother += 15
@@ -1106,6 +1119,7 @@ end
 
 if $ARGS[0] = 'brother_sex_end':
 	*clr & cla
+	menu_off = 1
 	$risk_boy = ''
 	gs 'stat'
 	pcs_horny += RAND(5,10)
@@ -1125,6 +1139,7 @@ end
 if $ARGS[0] = 'brother_voyeur_ev4':
 	cla
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	npc_rel['A34'] += rand(1,3)
 	pcs_horny += RAND(10,15)
@@ -1153,6 +1168,7 @@ end
 if $ARGS[0] = 'brother_voyeur_ev5':
 	cla
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	npc_rel['A34'] += rand(2,3)
 	pcs_horny += RAND(10,15)
@@ -1293,6 +1309,7 @@ end
 if $ARGS[0] = 'brother_voyeur_ev6':
 	cla
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	npc_rel['A34'] += rand(1,3)
 	pcs_horny += RAND(10,15)
@@ -1324,6 +1341,7 @@ end
 if $ARGS[0] = 'brother_voyeur_ev7':
 	cla
 	*clr & cla
+	menu_off = 1
 	gs 'stat'
 	npc_rel['A34'] += rand(1,3)
 	pcs_horny += RAND(10,15)
@@ -1402,7 +1420,7 @@ if $ARGS[0] = 'brother_voyeur_ev7':
 end
 
 if $ARGS[0] = 'brother_voyeur_ev8':
-	cla
+	menu_off = 1
 	*clr & cla
 	npc_rel['A34'] += rand(2,3)
 	pcs_horny += RAND(10,15)
@@ -1511,7 +1529,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 end
 
 if $ARGS[0] = 'pregreact':
-	if pregTalkbrother = 0 and knowpreg = 1:
+	if knowpreg = 1 and kid = 0:
 		if $clothingworntype = 'nude' and pregchem > 2000 and brotherSex < 7 and kid = 0:
 			'Surprised, your brother looks at your tummy. "<<$pcs_nickname>>, are you pregnant? <<$npc_nickname[''A29'']>> and dad are going to be pissed!" After a moments pause he adds "You do still look good pregnant, though."'
 			pregTalkbrother = 1
@@ -1524,7 +1542,7 @@ if $ARGS[0] = 'pregreact':
 			pregTalkbrother = 1
 
 			act 'Continue' :gt 'sitrPar'
-		exit
+			exit
 
 		elseif brotherSex >= 7 and kid = 0 and pregTalkMom = 0 and (($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460) or ($clothingworntype = 'nude' and pregchem < 2000) or ($clothingworntype ! 'nude' and pregchem < 3460)):
 			cla
@@ -1539,31 +1557,28 @@ if $ARGS[0] = 'pregreact':
 			else
 				act 'No':gt 'brother', 'brotherknows5'
 			end
-		exit
-
-
-		elseif ($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem > 3460) and brotherSex < 7 and kid > 0:
-			'"You''re already pregnant again? This is starting to look like a new hobby," he laughs.'
-			'"You know what? Maybe it is," you joke back. "Some girls play sports; I get serially impregnated."'
-			'"Well, congratulations on taking home the gold in getting knocked up."'
-			'"Thanks, I''m glad someone is proud of me," you reply.'
-			'Kolka takes a serious tone. "<<$pcs_nickname>>, I am always proud of you. You''re my sister and I''ll love you no matter what."'
-			'You''re briefly taken aback by his uncharacteristic sincerity. "Thanks, really. I love you, too."'
-			'You leave your brother to what he was doing before, glad that the two of you have the relationship that you do.'
-
-			act 'Continue' :pregTalkbrother = 1 & gt 'sitrPar'
-
-		elseif brotherSex >= 7 and pregTalkMom = 0 and kid > 0 and (($clothingworntype = 'nude' and pregchem >= 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460) or ($clothingworntype = 'nude' and pregchem < 2000) or ($clothingworntype ! 'nude' and pregchem < 3460)):
-			cla
-			'"Wow, you''re pregnant again? Is it mine this time?"'
-			*nl
-			if $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
-				act 'Yes':gt 'brother', 'brotherknows6'
-			elseif $wombthfath = '':
-				act 'Maybe':gt 'brother', 'brotherknows7'
-			else
-				act 'No':gt 'brother', 'brotherknows8'
-			end
+			exit
+		end
+	elseif brotherSex < 7 and kid > 0 and ($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem > 3460):
+		'"You''re already pregnant again? This is starting to look like a new hobby," he laughs.'
+		'"You know what? Maybe it is," you joke back. "Some girls play sports; I get serially impregnated."'
+		'"Well, congratulations on taking home the gold in getting knocked up."'
+		'"Thanks, I''m glad someone is proud of me," you reply.'
+		'Kolka takes a serious tone. "<<$pcs_nickname>>, I am always proud of you. You''re my sister and I''ll love you no matter what."'
+		'You''re briefly taken aback by his uncharacteristic sincerity. "Thanks, really. I love you, too."'
+		'You leave your brother to what he was doing before, glad that the two of you have the relationship that you do.'
+
+		act 'Continue' :pregTalkbrother = 1 & gt 'sitrPar'
+	elseif brotherSex >= 7 and kid > 0 and pregTalkMom = 0 and (($clothingworntype = 'nude' and pregchem >= 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460)):
+		cla
+		'"Wow, you''re pregnant again? Is it mine?"'
+		*nl
+		if $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
+			act 'Yes':gt 'brother', 'brotherknows6'
+		elseif $wombthfath = '':
+			act 'Maybe':gt 'brother', 'brotherknows7'
+		else
+			act 'No':gt 'brother', 'brotherknows8'
 		end
 	end
 end

locations/brother_voyeur.qsrc

@@ -1107,7 +1107,7 @@ if $ARGS[0] = 'brother_shower_shave':
 						*nl
 						'	"No? Why would I? I like it like this?" you say.'
 						if kolka_shave_ask = daystart:
-							if kolka_shave_ask2 = daystart
+							if kolka_shave_ask2 = daystart:
 								'	Kolka frowns. "I thought you said you were going to do what I asked?"'
 								*nl
 								act'Not going to change my mind':
@@ -1335,6 +1335,12 @@ end
 if $ARGS[0] = 'brother_shower_end':
 	npc_rel['A34'] += 5
 	brother_shower_times += 1
+	if hypnoAddict = 0:
+		cumspclnt = 1
+	else
+		cumspclnt = 18
+	end
+	gs 'cum_cleanup'
 	cla & *clr
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/vanrpar.jpg"></center>'
 	'	The two of you now feeling fresh and clean, you turn off the water and step out.'
@@ -2117,7 +2123,9 @@ if $ARGS[0] = 'brother_fuck_cum':
 			'	Your cries push him over the edge and Kolka can''t hold back any longer. He groans and pulls you tight against him. His cock plunges deep and you feel his cum spurting deep inside you. The sensation brings you to orgasm, body spasming and your pussy tightening up around him, squeezing him to the last drop.	As your orgasm winds down and your legs stop quivering, you lean forward against the shower wall, Kolka''s cock slipping from between your legs.'
 			'	Pressing your face against the wall, you feel Kolka''s cum drip from your pussy.'
 			*nl
-			if pillcon >= 30000 or tabletkishot >= 1:
+			if knowpreg = 1 or thinkpreg = 1:
+				'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+			elseif pillcon >= 30000 or tabletkishot >= 1:
 				'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
 				'	<i>It''s a good thing I''m on birth control...</i>'
 			elseif mesec > 0:
@@ -2130,13 +2138,15 @@ if $ARGS[0] = 'brother_fuck_cum':
 		end
 	elseif brothercumchoice = 2:
 		'	"<<$pcs_nickname>>-! I''m almost there! Can I cum inside you today?"'
-		act'Push him off (not inside!)':
-			cla & *clr
-			gs 'cum_call', 'stomach', 'A34', 1
-			'<center><video src="images/shared/home/bathroom/showercum.mp4"></center>'
-			'	"No! Not inside me!" you cry out. You push him off you and turn around. Grabbing his cock, you jerk him vigorously until he groans, spraying hot cum that spatters all over your stomach.'
-			if pillcon < 30000 and pillday < 18 and tabletkishot < 1:'	Feeling his spunk on your stomach, you suddenly grow annoyed and wonder why you even finished him off. "What the fuck Kolka?! Are you <i>trying</i> to get me pregnant?"'
-			act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
+		if knowpreg = 0 and thinkpreg = 0:
+			act'Push him off (not inside!)':
+				cla & *clr
+				gs 'cum_call', 'stomach', 'A34', 1
+				'<center><video src="images/shared/home/bathroom/showercum.mp4"></center>'
+				'	"No! Not inside me!" you cry out. You push him off you and turn around. Grabbing his cock, you jerk him vigorously until he groans, spraying hot cum that spatters all over your stomach.'
+				if pillcon < 30000 and pillday < 18 and tabletkishot < 1:'	Feeling his spunk on your stomach, you suddenly grow annoyed and wonder why you even finished him off. "What the fuck Kolka?! Are you <i>trying</i> to get me pregnant?"'
+				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
+			end
 		end
 
 		act'Push him off (not today)':
@@ -2144,7 +2154,7 @@ if $ARGS[0] = 'brother_fuck_cum':
 			gs 'cum_call', 'stomach', 'A34', 1
 			'<center><video src="images/shared/home/bathroom/showercum.mp4"></center>'
 			'	"Not today Kolka." You push your brother off of you and turn around. Grabbing his cock, you jerk him vigorously until he groans, spraying hot cum that spatters all over your stomach.'
-			if pillcon < 30000 and pillday < 18 and tabletkishot < 1 and knowpreg = 0:'	"Sorry little brother." You smile apologetically. "I''m not on birth control and I can''t afford to get knocked up. Especially not by my one of my siblings."'
+			if pillcon < 30000 and pillday < 18 and tabletkishot < 1 and knowpreg = 0 and thinkpreg = 0:'	"Sorry little brother." You smile apologetically. "I''m not on birth control and I can''t afford to get knocked up. Especially not by my one of my siblings."'
 			act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 		end
 
@@ -2165,7 +2175,9 @@ if $ARGS[0] = 'brother_fuck_cum':
 				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 			else
 				'	You smile mischievously and suddenly speed up, causing your brother to erupt inside you. He groans and you curl your toes in pleasure, feeling his cum spurting deep inside you. It''s not enough to bring you to orgasm, but it still feels good. You tighten up on him and work your hips a little more, trying to milk him for a couple more shots. Finally, Kolka pulls away and as his cock slips from inside you, cum bursts out like your pussy was a champagne bottle uncorked.'
-				if pillcon >= 30000 or tabletkishot >= 1:
+				if knowpreg = 1 or thinkpreg = 1:
+					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+				elseif pillcon >= 30000 or tabletkishot >= 1:
 					'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
 					'	<i>It''s a good thing I''m on birth control...</i>'
 				elseif mesec > 0:
@@ -2187,7 +2199,9 @@ if $ARGS[0] = 'brother_fuck_cum':
 			'	Your cries push him over the edge and Kolka can''t hold back any longer. He groans and pulls you tight against him. His cock plunges deep and you feel his cum spurting deep inside you. The sensation brings you to orgasm, body spasming and your pussy tightening up around him, squeezing him to the last drop. As your orgasm winds down and your legs stop quivering, you lean forward against the shower wall, Kolka''s cock slipping from between your legs.'
 			'	Pressing your face against the cool wall, you feel Kolka''s cum drip from your pussy, splashing on the bottom of the tub. You think to yourself...'
 			*nl
-			if pillcon >= 30000 or tabletkishot >= 1:
+			if knowpreg = 1 or thinkpreg = 1:
+				'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+			elseif pillcon >= 30000 or tabletkishot >= 1:
 				'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
 				'	<i>It''s a good thing I''m on birth control...</i>'
 			elseif mesec > 0:
@@ -2224,7 +2238,9 @@ if $ARGS[0] = 'brother_fuck_cum':
 				'	"But that''s not fair! So what I want doesn''t count for anything?"'
 				'	"Nope! But I get to decide if I''m feeling generous."'
 				'	With Kolka''s hands balled into fists at his side and your hands on your hips, the two of you glare at each other, scowling. This turned into a much bigger argument than you meant it to.'
-				if pillcon >= 30000 or tabletkishot >= 1:
+				if knowpreg = 1 or thinkpreg = 1:
+					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+				elseif pillcon >= 30000 or tabletkishot >= 1:
 					'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Only my idiot brother could ruin a perfectly good creampie like this.</i>'
 					'	<i>At least I''m on birth control...</i>'
 				elseif mesec > 0:
@@ -2241,7 +2257,9 @@ if $ARGS[0] = 'brother_fuck_cum':
 				'	"I''m sorry Kolka! Your cock just felt so good, I couldn''t stop! You can''t be mad at me for being too addicted to your cock to stop, right?" You kneel down, trying to apologize by cleaning him up with your tongue.'
 				'	He grumbles a bit but you can tell that he''s not mad at you. "I guess I can''t be mad about that... But next time I ask, I want to cum on your face!"'
 				'	"Okay, it''s a promise!" you say, standing back up and kissing him on the cheek. "So long as I can stop myself that is."'
-				if pillcon >= 30000 or tabletkishot >= 1:
+				if knowpreg = 1 or thinkpreg = 1:
+					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+				elseif pillcon >= 30000 or tabletkishot >= 1:
 					'	<i>Fuck, that felt good...</i> you think to yourself, looking down to watch another glob dribbles out of you with satisfaction.'
 					'	<i>It''s a good thing I''m on birth control...</i>'
 				elseif mesec > 0:
@@ -2255,7 +2273,9 @@ if $ARGS[0] = 'brother_fuck_cum':
 
 			act'Too much mess':
 				cla
-				if pillcon >= 30000 or tabletkishot >= 1:
+				if knowpreg = 1 or thinkpreg = 1:
+					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+				elseif pillcon >= 30000 or tabletkishot >= 1:
 					'	<i>Fuck, that feels good...</i> you think to yourself, looking down to watch another glob dribbles out of you with satisfaction.'
 					'	<i>It''s a good thing I''m on birth control...</i>'
 				elseif mesec > 0:
@@ -2296,7 +2316,9 @@ if $ARGS[0] = 'brother_fuck_cum':
 				'	"But that''s not fair! So what I want doesn''t count for anything?"'
 				'	"Nope! But I get to decide if I''m feeling generous."'
 				'	With Kolka''s hands balled into fists at his side and your hands on your hips, the two of you glare at each other, scowling. This turned into a much bigger argument than you meant it to.'
-				if pillcon >= 30000 or tabletkishot >= 1:
+				if knowpreg = 1 or thinkpreg = 1:
+					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+				elseif pillcon >= 30000 or tabletkishot >= 1:
 					'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Only my idiot brother could ruin a perfectly good creampie like this.</i>'
 					'	<i>At least I''m on birth control...</i>'
 				elseif mesec > 0:
@@ -2329,7 +2351,9 @@ if $ARGS[0] = 'brother_fuck_cum':
 				cla
 				'	"Too messy," you say. "Sorry Kolka, but I don''t feel like cleaning that off my face. You understand don''t you?"'
 				'	"Yeah I guess..."'
-				if pillcon >= 30000 or tabletkishot >= 1:
+				if knowpreg = 1 or thinkpreg = 1:
+					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+				elseif pillcon >= 30000 or tabletkishot >= 1:
 					'	<i>Fuck, that feels good...</i> you think to yourself, looking down to watch another glob dribbles out of you with satisfaction.'
 					'	<i>It''s a good thing I''m on birth control...</i>'
 				elseif mesec > 0:

locations/budgetclothes.qsrc

@@ -21,7 +21,7 @@ if $ARGS[0] = 'start':
 			minut += 3
 			gt 'torgcentr'
 		else
-			gt 'Gshveyfab', 'start'
+			gt 'pavIndustrial'
 		end
 	end
 	

locations/budilnik.qsrc

@@ -24,9 +24,9 @@ if $ARGS[0] = 'start':
 	'<center><b><a href="exec:gt ''budilnik'', ''Reset''">Reset</a> <a href="exec:gt ''budilnik'', ''Time''">Set Alarm</a></b></center>'
 	*nl
 	if budilnikOn = 0:
-		'<center>Your alarm is currently turned <a href="exec: budilnikOn = 1 & GT ''budilnik'', ''start''"><b>off</a></b></center>'
+		'<center>Your alarm is currently turned <a href="exec: budilnikOn = 1 & gt ''budilnik'', ''start''"><b>off</a></b></center>'
 	else
-		'<center>Your alarm is currently turned <a href="exec: budilnikOn = 0 & GT ''budilnik'', ''start''"><b>on</b></a></center>'
+		'<center>Your alarm is currently turned <a href="exec: budilnikOn = 0 & gt ''budilnik'', ''start''"><b>on</b></a></center>'
 		'<center>The alarm is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+'.</center>'
 	end
 	act 'Finish':

locations/buklinik.qsrc

@@ -244,15 +244,15 @@ if $ARGS[0] = 'olga2':
 	if bumtolik > 5:'- Hello, <<$pcs_nickname>>!'
 	if buklinikDay = daystart:'- Today there is no more work, we can relax.'
 	if bumtolik >= 7 and buklinikDay ! daystart:'- <<$pcs_nickname>>, We need help <a href="exec:gt ''buklinik_event'', ''pos6''">feed the needy</a>.'
-	if bumtolik >= 8 and buklinikDay ! daystart: '- <<$pcs_nickname>>, here is the address of one <a href="exec:GT ''buklinik_event'',''pos8''">elderly man</a>, go see him help with the housework.'
-	if bumtolik = 9 and buklinikDay ! daystart: '- <<$pcs_nickname>>, Need help persuade a wino not wander the streets, and come to live with <a href="exec:GT ''buklinik_event'',''pos9''">to_us</a>.'
-	if bumtolik = 10 and buklinikDay ! daystart: '- We need a babysitter for one very <a href="exec:GT ''buklinik_event'',''event0''">a strange man</a>.'
-	if bumtolik = 11 and buklinikDay ! daystart: '- <<$pcs_nickname>>, you need to go to <a href="exec:GT ''buklinik_event'',''entrance'',0">Michael</a>.'
-	if bumtolik = 12 and buklinikDay ! daystart: '- Waiting for you again <a href="exec:GT ''buklinik_event'',''entrance'',1">Michael</a>.'
-	if bumtolik = 13 and buklinikDay ! daystart: '- <<$pcs_nickname>>, waiting for you again <a href="exec:GT ''buklinik_event'',''entrance'',2">Michael</a>.'
-	if bumtolik = 14 and buklinikDay ! daystart: '- <<$pcs_nickname>>, <a href="exec:GT ''buklinik_event'',''entrance'',3">Michael</a> is waiting for you.'
-	if bumtolik = 15 and buklinikDay ! daystart: '- <a href="exec:GT ''buklinik_event'',''entrance'',4">Michael</a> is Waiting for you.'
-	if bumtolik = 16 and week = 1 and buklinikDay ! daystart: '- <a href="exec:GT ''buklinik_event'',''entrance'',5">Michael</a> is Waiting for you.'
+	if bumtolik >= 8 and buklinikDay ! daystart: '- <<$pcs_nickname>>, here is the address of one <a href="exec:gt ''buklinik_event'',''pos8''">elderly man</a>, go see him help with the housework.'
+	if bumtolik = 9 and buklinikDay ! daystart: '- <<$pcs_nickname>>, Need help persuade a wino not wander the streets, and come to live with <a href="exec:gt ''buklinik_event'',''pos9''">to_us</a>.'
+	if bumtolik = 10 and buklinikDay ! daystart: '- We need a babysitter for one very <a href="exec:gt ''buklinik_event'',''event0''">a strange man</a>.'
+	if bumtolik = 11 and buklinikDay ! daystart: '- <<$pcs_nickname>>, you need to go to <a href="exec:gt ''buklinik_event'',''entrance'',0">Michael</a>.'
+	if bumtolik = 12 and buklinikDay ! daystart: '- Waiting for you again <a href="exec:gt ''buklinik_event'',''entrance'',1">Michael</a>.'
+	if bumtolik = 13 and buklinikDay ! daystart: '- <<$pcs_nickname>>, waiting for you again <a href="exec:gt ''buklinik_event'',''entrance'',2">Michael</a>.'
+	if bumtolik = 14 and buklinikDay ! daystart: '- <<$pcs_nickname>>, <a href="exec:gt ''buklinik_event'',''entrance'',3">Michael</a> is waiting for you.'
+	if bumtolik = 15 and buklinikDay ! daystart: '- <a href="exec:gt ''buklinik_event'',''entrance'',4">Michael</a> is Waiting for you.'
+	if bumtolik = 16 and week = 1 and buklinikDay ! daystart: '- <a href="exec:gt ''buklinik_event'',''entrance'',5">Michael</a> is Waiting for you.'
 	!bumtolik = 3000 if michael events stoped.
 	if bumtolik = 5:
 		bumtolik = 6

locations/buklinik_event.qsrc

@@ -201,7 +201,7 @@ if $ARGS[0] = 'hall':
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/mercyclinic/kor.jpg"></center>'
 
 	if nanny_vika = 1:
-		'Near the mirror stand and krasitsja <a href="exec:GT ''buklinik_event'',''vika''">Vika</a>.'
+		'Near the mirror stand and krasitsja <a href="exec:gt ''buklinik_event'',''vika''">Vika</a>.'
 		act 'Go': gt 'nord'
 	end
 	act 'Bathroom Michael': gt 'buklinik_event', 'room'
@@ -230,7 +230,7 @@ if $ARGS[0] = 'room':
 			act 'Finish cleaning': gt $loc, $metka
 		end
 	end
-	'<a href="exec:GT ''buklinik_event'',''misha''">Michael</a> lying in bed and reading a book.'
+	'<a href="exec:gt ''buklinik_event'',''misha''">Michael</a> lying in bed and reading a book.'
 
 	act 'Out': gt 'buklinik_event', 'hall'	
 end

locations/cafe2.qsrc

@@ -1,7 +1,9 @@
 # cafe2
+
+menu_off = 1
+
 if $ARGS[0] = 'beginning':
-	cla
-	*clr
+	*clr & cla
 	'<<$boybody>> <<$boybod>> <<$boyface>>, introduces himself as <<$boydesc>>.'
 	deyst = rand(1, 100)
 
@@ -66,7 +68,6 @@ if $ARGS[0] = 'dance':
 		act 'Finish the dance':gt 'Cafe2', 'dance2'
 	elseif deyst > 80:
 		pcs_horny += 8
-		clr
 		gs 'stat'
 		'During the dance <<$boydesc>> paws at your ass, you cling to his body your tender flesh on his and he wants to kiss you.'
 

locations/cafe3.qsrc

@@ -1,7 +1,9 @@
 # cafe3
+
+menu_off = 1
+
 if $ARGS[0] = 'house':
-	cla
-	*clr
+	*clr & cla
 	money += 100
 	gs 'stat'
 	'<<$boydesc>> pays your bill and hails a taxi.'
@@ -81,8 +83,7 @@ if $ARGS[0] = 'house':
 end
 
 if $ARGS[0] = '0':
-	cla
-	*clr
+	*clr & cla
 	minut += 15
 	gs 'stat'
 	gs 'dinsexFX'
@@ -112,7 +113,7 @@ if $ARGS[0] = '0':
 			dynamic $vagstart
 			!!'<<$boydesc>> pushes your legs and enters you.'
 			picrand = rand(1, 5)
-			'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/vagcow<<picrand>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/vagdog<<picrand>>.jpg"></center>'
 			'<<$boydesc>> helps you onto all fours and enters you.'
 
 			pose = 1
@@ -272,8 +273,7 @@ if $ARGS[0] = 'toilet':
 			gs 'stat'
 
 			act 'Remove from mouth':
-			cla
-			*clr
+			*clr & cla
 			bjrand = rand(1, 100)
 
 			if bjrand < 50: 'You have time to take his member out of your mouth, <<$boydesc>>s cum just misses you.'
@@ -295,8 +295,7 @@ if $ARGS[0] = 'toilet':
 		end
 
 		act 'Suck on':
-			cla
-			*clr
+			*clr & cla
 			picrand = rand(20, 29)
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum<<picrand>>.jpg"></center>'
 			'You feel like a hot jet of sperm hits you in the throat. You have a mouth full of sperm.'

locations/cafe_parco.qsrc

@@ -10,10 +10,8 @@ if $args[0]= 'start':
 	'<center><img <<$set_imgh>> src="'+'images/locations/pavlovsk/park/cafe/caffe_del_parco'+iif(hour > 20 or hour < 7,'_night','')+'.jpg'+'"></center>'
 	'The newly opened cafe "Del Parco", with its striking facade, there are lots of tables and a summer terrace. Opening hours between 14.00 to 21.00.'
 
-	if hour >= 14 and hour < 21:
-		act 'Enter the cafe': gt 'cafe_parco', 'inner'
-	end
 	act 'Return to the square': gt 'gskver', 'start'
+	if hour >= 14 and hour < 21: act 'Enter the cafe': gt 'cafe_parco', 'inner'
 end
 
 if $args[0]= 'inner':

locations/carF.qsrc

@@ -23,15 +23,17 @@ $enddrive = {
 	if cardrive = 23:gt 'gadukino'
 	if cardrive = 24:gt 'pavCommercial'
 	if cardrive = 25:gt 'island'
+	if cardrive = 26:gt 'pavIndustrial'
 }
 
 if $ARGS[0] = 'start':
+	$menu_loc = 'carF'
+	$menu_arg = 'start'
+	menu_off = 0
 	$metka = $ARGS[0]
 	$loc = $CURLOC
 	CLOSE ALL
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 1
 	gs 'stat'
 	gs 'themes', 'indoors'
@@ -46,6 +48,7 @@ if $ARGS[0] = 'start':
 		if benz <= 35:
 			act 'Pour gasoline into the tank':
 				cla
+				menu_off = 1
 				benz += 5
 				kanistra -= 1
 				'You emptied the canister of gasoline in the tank.'
@@ -59,11 +62,10 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'salon':
+	menu_off = 1
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 1
 	gs 'stat'
 	'<center><b><<$car>></b></center>'
@@ -90,6 +92,7 @@ if $ARGS[0] = 'salon':
 	if cardrive = 23:'Through the windshield, you see the huts of the village of Gadukino.'
 	if cardrive = 24:'Through the windshield, you can see the Old Town.'
 	if cardrive = 25:'You cross one of the bridges that leads to the island.'
+	if cardrive = 26:'Through the windshield, you can see the Old Town.'
 
 	if prava = 0:'You don''t have a driver''s license.'
 
@@ -453,6 +456,25 @@ if $ARGS[0] = 'salon':
 				end
 			end
 
+			if cardrive ! 26:
+				act 'Go to Pavlovsk Industrial Region':
+					cla
+					benz -= 1
+					teh -= rand(3, 6)
+					cardrive = 26
+
+					if cardrive < 20:
+						minut += 75
+						'You spend more than an hour on the highway going to Pavlovsk.'
+					else
+						minut += 15
+						'15 minutes later, you reach your destination.'
+					end
+
+					dynamic $enddrive
+				end
+			end
+
 			act 'Drive the St. Petersburg - Pavlovsk Highway':
 				'You drive out onto the highway.'
 				:oops

locations/carF1.qsrc

@@ -1,335 +1,300 @@
 # carF1
+
+menu_off = 1
+
 if $ARGS[0] = 'car':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>VAZ 2107</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car'
+	end
 end
 
 if $ARGS[0] = 'car2':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>VAZ 2115</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car2.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon2.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car2'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon2.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car2'
+	end
 end
 
 if $ARGS[0] = 'car3':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>VAZ 2113</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car3.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon3.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car3'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon3.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car3'
+	end
 end
 
 if $ARGS[0] = 'car4':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>VAZ 2114</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car4.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon4.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car4'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon4.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car4'
+	end
 end
 
 if $ARGS[0] = 'car5':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>VAZ 2119</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car5.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon5.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car5'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon5.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car5'
+	end
 end
 
 if $ARGS[0] = 'car6':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 
 	'<center><b>VAZ Kalina</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car6.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon6.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car6'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon6.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car6'
+	end
 end
 
 if $ARGS[0] = 'car7':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>WHA PRIORA</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car7.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon7.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car7'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon7.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car7'
+	end
 end
 
 if $ARGS[0] = 'car8':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>Chevrolet Niva</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car8.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon8.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car8'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon8.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car8'
+	end
 end
 
 if $ARGS[0] = 'car9':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>UAZ HUNTER</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car9.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon9.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car9'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon9.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car9'
+	end
 end
 
 if $ARGS[0] = 'car10':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>UAZ Patriot</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car10.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon10.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car10'
-	end
-
-	act 'Leave':
+		act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon10.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car10'
+	end
 end
 
 if $ARGS[0] = 'car13':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>Ford Focus 2</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car13.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon13.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car13'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon13.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car13'
+	end
 end
 
 if $ARGS[0] = 'car95':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>Mitsubishi l200</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car95.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon95.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car95'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon95.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car95'
+	end
 end
 
 if $ARGS[0] = 'car96':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 
@@ -337,454 +302,403 @@ if $ARGS[0] = 'car96':
 	'<center><b>Audi Q7</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car96.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon96.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car96'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon96.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car96'
+	end
 end
 
 if $ARGS[0] = 'car97':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>Cadillac Escalade</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car97.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon97.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car97'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon97.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car97'
+	end
 end
 
 if $ARGS[0] = 'car98':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
-
-
 	'<center><b>Porsche Cayenne</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car98.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon98.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car98'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon98.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car98'
+	end
 end
 
 if $ARGS[0] = 'car99':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>BMW X6</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car99.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon99.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car99'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon99.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car99'
+	end
 end
 
 if $ARGS[0] = 'car100':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><b>Mercedes-Benz S 600</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car100.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon100.jpg"></center>'
-
-		act 'Leave':gt 'carF1', 'car100'
-	end
-
 	act 'Leave':
 		cla
 
 		if cartraid = 1:gt 'autosalonF', 'start'
 		if cartraid = 2:gt 'autotraidF', 'manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon100.jpg"></center>'
+
+		act 'Leave':gt 'carF1', 'car100'
+	end
 end
 
 if $ARGS[0] = 'car101':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>BMW Z4</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car101.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon101.jpg"></center>'
-
-		act 'Leave':gt'carF1','car101'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon101.jpg"></center>'
+
+		act 'Leave':gt'carF1','car101'
+	end
 end
 
 if $ARGS[0] = 'car102':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>Renault LOGAN</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car102.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon102.jpg"></center>'
-
-		act 'Leave':gt'carF1','car102'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon102.jpg"></center>'
+
+		act 'Leave':gt'carF1','car102'
+	end
 end
 
 if $ARGS[0] = 'car103':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>Toyaboutta Corolla</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car103.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon103.jpg"></center>'
-
-		act 'Leave':gt'carF1','car103'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon103.jpg"></center>'
+
+		act 'Leave':gt'carF1','car103'
+	end
 end
 
 if $ARGS[0] = 'car104':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>Toyota Celica</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car104.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon104.jpg"></center>'
-
-		act 'Leave':gt'carF1','car104'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon104.jpg"></center>'
+
+		act 'Leave':gt'carF1','car104'
+	end
 end
 
 if $ARGS[0] = 'car105':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>Mazda 6</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car105.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon105.jpg"></center>'
-
-		act 'Leave':gt'carF1','car105'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon105.jpg"></center>'
+
+		act 'Leave':gt'carF1','car105'
+	end
 end
 
 if $ARGS[0] = 'car106':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>Mercedes-Benz E 212</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car106.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon106.jpg"></center>'
-
-		act 'Leave':gt'carF1','car106'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon106.jpg"></center>'
+
+		act 'Leave':gt'carF1','car106'
+	end
 end
 
 if $ARGS[0] = 'car107':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>BMW M5</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car107.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon107.jpg"></center>'
-
-		act 'Leave':gt'carF1','car107'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon107.jpg"></center>'
+
+		act 'Leave':gt'carF1','car107'
+	end
 end
 
 if $ARGS[0] = 'car108':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>Jaguar XKR-S</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car108.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon108.jpg"></center>'
-
-		act 'Leave':gt'carF1','car108'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon108.jpg"></center>'
+
+		act 'Leave':gt'carF1','car108'
+	end
 end
 
 if $ARGS[0] = 'car109':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>Audi A6</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car109.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon109.jpg"></center>'
-
-		act 'Leave':gt'carF1','car109'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon109.jpg"></center>'
+
+		act 'Leave':gt'carF1','car109'
+	end
 end
 
 if $ARGS[0] = 'car110':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>Ford Mondeo</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car110.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon110.jpg"></center>'
-
-		act 'Leave':gt'carF1','car110'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon110.jpg"></center>'
+
+		act 'Leave':gt'carF1','car110'
+	end
 end
 
 if $ARGS[0] = 'car111':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla	
+	minut += 5
 	gs'stat'
 
 	'<center><b>Bentley Continental GT</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car111.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon111.jpg"></center>'
-
-		act 'Leave':gt'carF1','car111'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon111.jpg"></center>'
+
+		act 'Leave':gt'carF1','car111'
+	end
 end
 
 if $ARGS[0] = 'car112':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-
-	cla
-	clr
-	*clr
-	minut = minut + 5
+	*clr & cla
+	minut += 5
 	gs'stat'
 
 	'<center><b>Ferrari 458 Italia</b></center>'
 	'<center><img <<$set_imgh>> src="images/shared/accessories/car/car112.jpg"></center>'
 
-	act 'Sit behind the wheel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon112.jpg"></center>'
-
-		act 'Leave':gt'carF1','car112'
-	end
 	act 'Leave':
 		cla
 		if cartraid = 1:gt'autosalonF','start'
 		if cartraid = 2:gt'autotraidF','manager'
 	end
+	
+	act 'Sit behind the wheel':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/shared/accessories/car/salon112.jpg"></center>'
+
+		act 'Leave':gt'carF1','car112'
+	end
 end
 
 --- carF1 ---------------------------------

locations/card.qsrc

@@ -1,8 +1,12 @@
 # card
+
+menu_off = 1
+
 gs 'stat'
 
+act 'Put the cards away':gt $loc
 act 'Pull a card from the deck':
-	cls
+	*clr & cla
 	you_slut += 1
 
 	!!if you_slut < 10:end
@@ -57,15 +61,12 @@ act 'Pull a card from the deck':
 	act 'Put the card back into the deck':gt 'card'
 end
 
-act 'Put the cards away':gt $loc
-
 if card_deck = 0:
 	act 'Throw away your deck of vintage porn cards': vcard = 0 & vcard_trash = 1 & gt $loc
 elseif card_deck = 1:
 	act 'Throw away your deck of new porn cards': card = 0 & gt $loc
 end
 
-!!act 'Playing cards':gt 'blackjack'
 
 --- card ---------------------------------
 

locations/cardgame_durak.qsrc

@@ -2,6 +2,9 @@
 !-----------------------------------------------!
 !-----Playing cards with the guys on the strip-----!
 !===============================================!
+
+menu_off = 1
+
 if $ARGS[0] = 'start':
 	CLOSE ALL
 	cla

locations/cards.qsrc

@@ -1,56 +0,0 @@
-# cards
-clr
-minut += 10
-gs 'stat'
-'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/zalcart.jpg"></right>'
-'In the hall a lot of free games tables in Blackjack and Casino Wars.'
-
-act 'To the table game Blackjack':gt 'blackjackPlay', 'new'
-act 'To the table games in Casino War':gt 'kazvar'
-act 'Back in the hall':gt 'hall'
-!!SYMBOLS
-!! ♥
-!! ♠
-!! ♦
-!! ♣
-!!deck of cards
-$suit[1] = 'Spades'
-$symbol[1] = '♠'
-$suit[2] = 'Clubs'
-$symbol[2] = '♣'
-$suit[3] = 'Hearts'
-$symbol[3] = '♥'
-$suit[4] = 'Diamonds'
-$symbol[4] = '♦'
-
-$number[1] = 'Ace '
-points[1] = 11
-$number[2] = 'Deuce '
-points[2] = 2
-$number[3] = 'Three '
-points[3] = 3
-$number[4] = 'Four '
-points[4] = 4
-$number[5] = 'Five '
-points[5] = 5
-$number[6] = 'Six '
-points[6] = 6
-$number[7] = 'Seven '
-points[7] = 7
-$number[8] = 'Eight '
-points[8] = 8
-$number[9] = 'Nine '
-points[9] = 9
-$number[10] = 'Ten '
-points[10] = 10
-$number[11] = 'Jack '
-points[11] = 10
-$number[12] = 'Queen '
-points[12] = 10
-$number[13] = 'King '
-points[13] = 10
-$number[14] = 'Ace '
-points[14] = 11
-
---- cards ---------------------------------
-

locations/casino.qsrc

@@ -1,14 +1,1081 @@
 # casino
 
-gs 'stat'
-'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/zdcasino.jpg"></right>'
-'You stand in front of the door of the huge building casinos.'
+$loc = 'casino'
+$menu_loc = 'casino'
 
-act 'Enter the casino': minut += 1 & gt 'hall'
+if $ARGS[0] = 'outside':
+	$metka = 'outside'
+	$menu_arg = 'outside'
+	menu_off = 0
 
-act 'Return to the city industrial area': minut += 10 & gt 'nord'
+	*clr & cla
+	gs 'stat'
+	'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/zdcasino.jpg"></right>'
+	'You stand in front of the door of the huge building casinos.'
 
-!!if tobiQW < 1000:tobiQW = 1000
+	act 'Return to the city industrial area': minut += 10 & gt 'nord'
+
+	act 'Enter the casino': gt 'casino', 'foyer'
+
+	!!if tobiQW < 1000:tobiQW = 1000
+end
+
+if $ARGS[0] = 'foyer':
+	$metka = $ARGS[0]
+	$menu_arg = $ARGS[0]
+	menu_off = 0
+	
+	*clr & cla
+	minut += 1
+	gs 'stat'
+	picrand = rand(1, 3)
+	'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/hcasino<<picrand>>.jpg"></right>'
+	'You enter the foyer of the casino, there are lots of games .'
+	*nl
+	'In the hall are various <a href="exec:gt ''casino'', ''slots''">slot machines</a>.'
+	'In the games room there is <a href="exec:gt ''casino'', ''roulette''">Roulette</a> and <a href="exec:gt ''casino'', ''cards''">card games</a>.'
+
+	act 'Go outside': gt 'casino', 'outside'
+	act 'Go to the slot machines': gt 'casino', 'slots'
+	act 'Go to the roulette table': gt 'casino', 'roulette'
+	act 'Go to the card tables': gt 'casino', 'cards'
+end
+
+!!----------
+!! Roulette
+!!----------
+
+if $ARGS[0] = 'roulette':
+	$metka = $ARGS[0]
+	$menu_arg = $ARGS[0]
+	menu_off = 0
+
+	*clr & cla
+	minut += 1
+	gs 'stat'
+	'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/ruletka.jpg"></right>'
+	'You came to the table with American roulette.'
+
+	act 'Go back to the foyer': gt 'casino', 'foyer'
+	act 'Play roulette': gt 'casino', 'roulette_bet1'
+	act 'Approach the croupier':
+	*clr & cla
+		menu_off = 1
+		minut += 1
+		gs 'stat'
+		'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/crup.jpg"></right>'
+		'"Can I help you?" He asks.'
+
+		act 'Shake your head and move away': gt 'casino', 'roulette'
+
+		act 'Ask rules':
+			msg 'The rules are very simple.
+			First you choose the amount you want to bet.
+			But in our casino maximum amount is 1000 <b>₽</b>.
+			Then you choose where to put your chips. There are six different types of bets:
+			1. Red/Black (Payout: 1 to 1)
+			2. Even/Odd (Payout: 1 to 1)
+			3. Small/Large (Payout: 1 to 1)
+			4. Dozen (Payout: 1 to 3)
+			5. Series (Payout: 1 to 3)
+			6. Number (Payout: 1 to 36)
+			And the rest depends on your luck.'
+			gt 'casino', 'roulette'
+		end
+	end
+end
+
+if $ARGS[0] = 'roulette_bet1':
+	*clr & cla
+	menu_off = 1
+	minut += 1
+	kh = 0
+	chnch = 0
+	mb = 0
+	du = 0
+	series = 0
+	chi = 100
+	x_rul = 100
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/amrul.jpg"></center>'
+	'The maximum amount you can bet is 1000 <b>₽</b>.'
+	'You lean over the table.'
+
+	act 'Move away from the table':gt 'roulette'
+
+	act 'Make a bet':
+		st_1 = input 'Enter the amount'
+
+		if money < st_1:
+			msg '<br>You don''t have enough money.'
+			gt 'casino', 'roulette_bet1'
+		elseif st_1 <= 0:
+			msg '<br>You can''t bet zero or a negative amount.'
+			gt 'casino', 'roulette_bet1'
+		elseif st_1 > 1000:
+			msg '<br>The maximum amount you can bet is 1000 <b>₽</b>'
+			gt 'casino', 'roulette_bet1'
+		else 
+			money -= st_1
+			gt 'casino', 'roulette_bet2'
+		end
+	end
+end
+
+if $ARGS[0] = 'roulette_bet2':
+	*clr & cla
+	minut += 1
+	kh = 0
+	chnch = 0
+	mb = 0
+	du = 0
+	series = 0
+	chi = 100
+	gs 'stat'
+	'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/stavkaru.jpg"></right>'
+	'Where do you put your chips?'
+
+	act 'Don''t bet': 
+		money += st_1
+		gt 'casino', 'roulette_bet1'
+	end
+	
+	act 'Red / Black':
+		act 'Reconsider': gt 'casino', 'roulette_bet2'
+		act 'Red': kh = 1 & gt 'casino', 'roulette_result'
+		act 'Black': kh = 2 & gt 'casino', 'roulette_result'
+	end
+
+	act 'Even / Odd':
+		act 'Reconsider': gt 'casino', 'roulette_bet2'
+		act 'Even':	chnch = 1 & gt 'casino', 'roulette_result'
+		act 'Odd': chnch = 2 & gt 'casino', 'roulette_result'
+	end
+
+	act 'Small / Large':
+		act 'Reconsider': gt 'casino', 'roulette_bet2'
+		act 'Small: 1-18': mb = 1 & gt 'casino', 'roulette_result'
+		act 'Large: 19-36':	mb = 2 & gt 'casino', 'roulette_result'
+	end
+
+	act 'Dozen':
+		act 'Reconsider': gt 'casino', 'roulette_bet2'
+		act 'First dozen: 1-12': du = 1 & gt 'casino', 'roulette_result'
+		act 'Second dozen: 13-24': du = 2 & gt 'casino', 'roulette_result'
+		act 'Third dozen:25-36': du = 3 & gt 'casino', 'roulette_result'
+	end
+
+	act 'Series':
+		act 'Reconsider': gt 'casino', 'roulette_bet2'
+		act 'First row: 1, 4, 7, 10, 13, 16, 19, 22, 25, 28, 31, 34': series = 1 & gt 'casino', 'roulette_result'
+		act 'Second row: 2, 5, 8, 11, 14, 17, 20, 23, 26, 29, 32, 35': series = 2 & gt 'casino', 'roulette_result'
+		act 'Third row: 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36': series = 3 & gt 'casino', 'roulette_result'
+	end
+
+	act 'Number':
+		chi = input 'Enter a number from 0-36'
+
+		if chi < 0 and chi > 36:
+			msg 'You need to choose a number between 0 and 36.'
+			gt 'casino', 'roulette_bet2'
+		else
+			gt 'casino', 'roulette_result'
+		end
+	end
+end
+
+if $ARGS[0] = 'roulette_result':
+	cla
+	minut += 5
+	gs 'stat'
+	x_rul = 100
+	x_rul = rand(0, 36)
+
+	if x_rul = 0:
+		$color = ' '
+	else
+		if x_rul = 1 or x_rul = 3 or x_rul = 5 or x_rul = 7 or x_rul = 9 or x_rul = 12 or x_rul = 14 or x_rul = 16 or x_rul = 18 or x_rul = 19 or x_rul = 21 or x_rul = 23 or x_rul = 25 or x_rul = 27 or x_rul = 30 or x_rul = 32 or x_rul = 34 or x_rul = 36:
+			$color = 'red'
+		else
+			$color = 'black'
+		end
+	end
+
+	'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/resul.jpg"></right>'
+	*nl
+	'The ball stopps at <<x_rul>> <<$color>>'
+
+	if kh ! 0:
+		if kh = 1:
+			if x_rul = 1 or x_rul = 3 or x_rul = 5 or x_rul = 7 or x_rul = 9 or x_rul = 12 or x_rul = 14 or x_rul = 16 or x_rul = 18 or x_rul = 19 or x_rul = 21 or x_rul = 23 or x_rul = 25 or x_rul = 27 or x_rul = 30 or x_rul = 32 or x_rul = 34 or x_rul = 36:
+				act 'You have won <<2 * st_1>>':
+					money += 2 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+		elseif kh = 2:
+			if x_rul = 2 or x_rul = 4 or x_rul = 6 or x_rul = 8 or x_rul = 10 or x_rul = 11 or x_rul = 13 or x_rul = 15 or x_rul = 17 or x_rul = 20 or x_rul = 22 or x_rul = 24 or x_rul = 26 or x_rul = 28 or x_rul = 29 or x_rul = 31 or x_rul = 33 or x_rul = 35:
+				act 'You have won <<2 * st_1>>':
+					money += 2 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+		end
+	elseif chnch ! 0:
+		if chnch = 1:
+			chnch = 0
+			if x_rul mod 2 = 0:
+				act 'You have won <<2 * st_1>>':
+					money += 2 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+		elseif chnch = 2:
+			chnch = 0
+
+			if x_rul mod 2 = 1:
+				act 'You have won <<2 * st_1>>':
+					money += 2 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+		end
+	elseif mb ! 0:
+		if mb = 1:
+			mb = 0
+			if x_rul > 0 and x_rul < 19:
+				act 'You have won <<2 * st_1>>':
+					money += 2 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+		elseif mb = 2:
+			mb = 0
+			if x_rul > 18 and x_rul < 37:
+				act 'You have won <<2 * st_1>>':
+					money += 2 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+		end
+	elseif du ! 0:
+		if du = 1:
+			du = 0
+
+			if x_rul > 0 and x_rul < 13:
+				act 'You have won <<3 * st_1>>':
+					money += 3 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+
+		elseif du = 2:
+			du = 0
+
+			if x_rul > 12 and x_rul < 25:
+				act 'You have won <<3 * st_1>>':
+					money += 3 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+
+		elseif du = 3:
+			du = 0
+			if x_rul > 24 and x_rul < 37:
+				act 'You have won <<3 * st_1>>':
+					money += 3 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+		end
+	elseif series ! 0:
+		if series = 1:
+			series = 0
+
+			if x_rul = 1 or x_rul = 4 or x_rul = 7 or x_rul = 10 or x_rul = 13 or x_rul = 16 or x_rul = 19 or x_rul = 22 or x_rul = 25 or x_rul = 28 or x_rul = 31 or x_rul = 34:
+				act 'You have won <<3*st_1>>':
+					money += 3 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+
+		elseif series = 2:
+			series = 0
+
+			if x_rul = 2 or x_rul = 3 or x_rul = 8 or x_rul = 11 or x_rul = 14 or x_rul = 17 or x_rul = 20 or x_rul = 23 or x_rul = 26 or x_rul = 29 or x_rul = 32 or x_rul = 35:
+				act 'You have won <<3*st_1>>':
+					money += 3 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+
+		elseif series = 3:
+			series = 0
+
+			if x_rul = 3 or x_rul = 4 or x_rul = 9 or x_rul = 12 or x_rul = 15 or x_rul = 18 or x_rul = 21 or x_rul = 24 or x_rul = 27 or x_rul = 30 or x_rul = 33 or x_rul = 36:
+				act 'You have won <<3*st_1>>':
+					money += 3 * st_1
+					gt 'casino', 'roulette_bet1'
+				end
+			else
+				act 'You have lost':gt 'casino', 'roulette_bet1'
+			end
+		end
+	elseif chi ! 100:
+		if chi = x_rul:
+			act 'You have won <<37 * st_1>>':
+				money += 37 * st_1
+				gt 'casino', 'roulette_bet1'
+			end
+		else
+			act 'You have lost':gt 'casino', 'roulette_bet1'
+		end
+	end
+end
+
+!!-------
+!! Slots
+!!-------
+
+if $ARGS[0] = 'slots':
+	$metka = $ARGS[0]
+	$menu_arg = $ARGS[0]
+	menu_off = 0
+	
+	*clr & cla
+	minut += 1
+	gs 'stat'
+	'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/zaligravt.jpg"></right>'
+	'You enter the hall and are momentarily dazzled by the multitude of ringing sounds and blinking lights coming from endless rows of slot machines. In front of them you see people of various ages, sexes and backgrounds, trying their luck or perhaps just killing time.'
+	'Every once in a while you hear the satisfying sound of coins streaming into the tray of the next lucky winner.'
+	'According to the huge animated digital display on the back wall, there is a hefty jackpot up for grabs.'
+
+	act 'Go to the foyer': gt 'casino', 'foyer'	
+	act 'Use one of the slot machines':
+		*clr & cla
+		menu_off = 1
+		minut += 1
+		gs 'stat'
+		betAmount = 10
+		slotsJackpot = betAmount * 20000
+
+		'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/avt.jpg"></center>'
+		'Rules of the game are very simple: feed a <<betAmount>> <b>₽</b> coin into the machine and pull the lever. There are multiple winning combinations, but everyone here has their eyes on the <<slotsJackpot>> <b>₽</b> jackpot.'
+
+		act 'Go back to the foyer': gt 'casino', 'foyer'
+
+		act 'Pull the lever':
+			if money >= betAmount:
+				money -= betAmount
+
+				slotsRand = rand(1, 100000)
+
+				if slotsRand > 99990:
+					winnings = slotsJackpot
+					msg 'Jackpot! What are the odds!?'
+				elseif slotsRand >= 99900:
+					winnings = betAmount * 1500
+				elseif slotsRand >= 99000:
+					winnings = betAmount * 100
+				elseif slotsRand >= 90000:
+					winnings = betAmount * 5
+				elseif slotsRand >= 66667:
+					winnings = betAmount * 2
+				else
+					winnings = 0
+				end
+
+				if winnings > 0:
+					money += winnings
+					msg 'You have won <<winnings>> <b>₽</b>.'
+				else
+					msg 'You have lost. Try again?'
+				end
+
+				minut += 1
+				gs 'stat'
+				
+				gt 'casino', 'slots'
+			else
+				msg 'You don''t have enough money to play. Turns out there''s no such thing as a free lunch, and you need money for a chance to win more money. Life is so unfair.'
+				gt 'casino', 'slots'
+			end
+
+			killvar 'slotsRand'
+			killvar 'winnings'
+		end
+	end
+end
+
+!!-------
+!! Cards
+!!-------
+
+if $ARGS[0] = 'cards':
+	$metka = $ARGS[0]
+	$menu_arg = $ARGS[0]
+	menu_off = 0
+	*clr & cla
+	minut += 1
+	gs 'stat'
+	'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/zalcart.jpg"></right>'
+	'In the hall a lot of free games tables in Blackjack and Casino Wars.'
+
+	act 'Go back to the foyer': gt 'casino', 'foyer'
+	act 'Play Blackjack': gt 'casino', 'blackjack_play'
+	act 'Play Casino War': gt 'cards_cw'
+
+	!!SYMBOLS
+	!! ♥
+	!! ♠
+	!! ♦
+	!! ♣
+	!!deck of cards
+	$suit[1] = 'Spades'
+	$symbol[1] = '♠'
+	$suit[2] = 'Clubs'
+	$symbol[2] = '♣'
+	$suit[3] = 'Hearts'
+	$symbol[3] = '♥'
+	$suit[4] = 'Diamonds'
+	$symbol[4] = '♦'
+
+	$number[1] = 'Ace '
+	points[1] = 11
+	$number[2] = 'Deuce '
+	points[2] = 2
+	$number[3] = 'Three '
+	points[3] = 3
+	$number[4] = 'Four '
+	points[4] = 4
+	$number[5] = 'Five '
+	points[5] = 5
+	$number[6] = 'Six '
+	points[6] = 6
+	$number[7] = 'Seven '
+	points[7] = 7
+	$number[8] = 'Eight '
+	points[8] = 8
+	$number[9] = 'Nine '
+	points[9] = 9
+	$number[10] = 'Ten '
+	points[10] = 10
+	$number[11] = 'Jack '
+	points[11] = 10
+	$number[12] = 'Queen '
+	points[12] = 10
+	$number[13] = 'King '
+	points[13] = 10
+	$number[14] = 'Ace '
+	points[14] = 11
+end
+
+!!--------------------
+!! Cards: Casino Wars
+!!--------------------
+
+if $ARGS[0] = 'cards_cw':
+	$metka = $ARGS[0]
+	$menu_arg = $ARGS[0]
+	menu_off = 0
+	
+	*clr & cla
+	minut += 1
+	gs 'stat'
+
+	'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/stolcw.jpg"></right>'
+	'You approach the gambling table at the casino.'
+
+	act 'Move away from the table': gt 'casino', 'cards'
+	act 'Sit down at the table': gt 'casino', 'cards_cwplay'
+	act 'Approach the croupier':
+		*clr & cla
+		menu_off = 1
+		minut += 1
+		gs 'stat'
+		'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/crupcw.jpg"></right>'
+		'"How can I help you?"'
+
+		act 'Move away from the dealer': gt 'casino', 'cards_cw'
+
+		act 'Ask for the rules':
+			msg 'The rules are very simple.
+			First you choose how much you want to wager.
+			But note that in our casino maximum rate is 1000 <b>₽</b>.
+			After that, you can either continue with your bet, or bet on a draw (which costs your bet a second time), for a larger payout.
+
+			Regular:
+				Everyone is dealt a card. Face cards have different values.
+				Highest card wins. Payout is 1 to 1.
+				If both have the same card, choose between continuing (doubles bet), or end the round and return your bet.
+				If you win the second round you get a payout of 2 to 1. If it is another draw you get a payout of 1.5 to 1.
+
+			Bet on draw:
+				When betting on a draw and winning, you get your bet back.
+				However, if it is a draw, the payout will be 10 to 1.
+
+			That''s it. Enjoy the game.'
+			gt 'casino', 'cards_cw'
+		end
+	end	
+end
+
+if $ARGS[0] = 'casino_cwplay':
+	*clr & cla
+	menu_off = 1
+	minut += 1
+	gs 'stat'
+
+	if turn1 = 0:
+		cla
+		'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/stavkacw.jpg"></right>'
+		'Place your bets, ladies and gentlemen.'
+
+		act 'Place your bet':
+			if money < 1:
+				'You don''t have any money!'
+				act 'Leave the table': gt 'casino', 'cards_cw'
+			end
+
+			bet_amount = input 'Enter the amount to bet'
+
+			if money < bet_amount:
+				msg 'You don''t have enough money to bet that much'
+			elseif bet_amount < 1:
+				msg 'You must place a minimum bet of 1 <b>₽</b>.'
+			elseif bet_amount > 1000:
+				msg 'The maximum bet allowed is 1000 <b>₽</b>.'
+			else
+				money -= bet_amount
+				turn1 = 1
+			end
+
+			gt 'casino', 'casino_cwplay'
+		end
+
+		act 'Leave the table': gt 'casino', 'cards_cw'
+	end
+
+	if turn1 = 1:
+		cla
+		bet_draw = 0
+		'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/stavkacw.jpg"></right>'
+		'Continue with regular bet (payout 2 to 1), or bet on a draw (payout 11 to 1)?'
+		if money < bet_amount:
+			turn1 = 2
+			gt 'casino', 'casino_cwplay'
+		else
+			act 'Continue with regular bet':
+				turn1 = 2
+				gt 'casino', 'casino_cwplay'
+			end
+
+			act 'Bet on draw (doubles bet)':
+				turn1 = 2
+				bet_draw = 1
+				money -= bet_amount
+				gt 'casino', 'casino_cwplay'
+			end
+		end
+	end
+
+	if turn1 = 2:
+		cla
+		'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartcw.jpg"></right>'
+		' The dealer deals the cards:'
+		'...'
+		suit = rand(1, 4)
+		number = rand(1, 13)
+		$d_card[1] = $number[number] + 'of ' + $suit[suit]
+		d_points = number
+		suit = rand(1, 4)
+		!! Player draws from cards 2-14 so that they win if both they and the dealer draw an ace
+		number = rand(2, 14)
+		$p_card[1] = $number[number] + 'of ' + $suit[suit]
+		p_points = number
+		wait 1000
+		'Dealer''s Card:'
+		'  <<$d_card[1]>>'
+
+		'__________________________'
+		'Your Card:'
+		'  <<$p_card[1]>>'
+
+		if d_points > p_points:
+			' '
+			'Casino won'
+
+			act 'You lost':
+				turn1 = 0
+				gt 'casino', 'casino_cwplay'
+			end
+		elseif d_points < p_points:
+			' '
+			'You won'
+			act 'Take money (<<2 * bet_amount>> <b>₽</b>)':
+				money += 2 * bet_amount
+				turn1 = 0
+				gt 'casino', 'casino_cwplay'
+			end
+		else
+			if bet_draw = 1:
+				' '
+				'You won'
+
+				act 'Take money (<<11 * bet_amount>> <b>₽</b>)':
+					money += 11 * bet_amount
+					turn1 = 0
+					gt 'casino', 'casino_cwplay'
+				end
+			else
+				turn1 = 3
+				gt 'casino', 'casino_cwplay'
+			end
+		end
+	end
+
+	if turn1 = 3:
+		'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartcw.jpg"></right>'
+		' '
+		'Draw'
+
+		if money >= bet_amount:
+			act 'Continue (bet another <<bet_amount>> <b>₽</b>)':
+				cla
+
+				money -= bet_amount
+
+				' The dealer deals the cards:'
+				'...'
+				suit = rand(1, 4)
+				number = rand(1, 13)
+				$d_card[2] = $number[number] + 'of ' + $suit[suit]
+				d_points = number
+				suit = rand(1, 4)
+				number = rand(2, 14)
+				$p_card[2] = $number[number] + 'of ' + $suit[suit]
+				p_points = number
+				'Dealer''s Cards:'
+				'  <<$d_card[1]>>'
+				'  <<$d_card[2]>>'
+				'__________________________'
+				'Your Cards:'
+				'  <<$p_card[1]>>'
+				'  <<$p_card[2]>>'
+
+				if d_points > p_points:
+					' '
+					'Casino won'
+
+					act 'You lost':
+						turn1 = 0
+						gt 'casino', 'casino_cwplay'
+					end
+				elseif d_points < p_points:
+					' '
+					'You won'
+
+					act 'Take money (<<4 * bet_amount>> <b>₽</b>)':
+						money += 4 * bet_amount
+						turn1 = 0
+						gt 'casino', 'casino_cwplay'
+					end
+				elseif d_points = p_points:
+					' '
+					'Draw'
+
+					act 'Take money (<<3 * bet_amount>> <b>₽</b>)':
+						money += 3 * bet_amount
+						turn1 = 0
+						gt 'casino', 'casino_cwplay'
+					end
+				end
+			end
+		else
+			' '
+			'You don''t have enough money to continue'
+		end
+
+		act 'Take original bet (<<bet_amount>> <b>₽</b>)':
+			money += bet_amount
+			turn1 = 0
+			gt 'casino', 'casino_cwplay'
+		end
+	end
+end
+
+!!--------------------
+!! Cards: Blackjack
+!!--------------------
+
+if $ARGS[0] = 'blackjack_play':
+	menu_off = 1
+	minut += 1
+	gs 'stat'
+	killvar 'dealerHand'
+	killvar 'playerHand'
+	killvar 'playerBets'
+	killvar 'playerPoints'
+	dealerHand[] = 0
+	dealerHand[] = 1
+	playerHand[] = 2
+	playerHand[] = 3
+	cardsDealt = 4
+	numHands = 1
+	currentHand = 0
+	handLosses = 0
+	numAces = 0
+	dealerPoints = 0
+	insurance = 0
+	betTotal = 0
+	doubleBet = 0
+	minBet = 10
+	maxBet = 500
+	*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/stolbd.jpg"></center>'
+	*PL 'You are sitting at the blackjack table.'
+	act 'Move away from the table' : gt 'casino', 'cards'
+	act 'Play blackjack' : gt 'casino', 'bet'
+	act 'Ask for the rules' : gt 'casino', 'rules'
+end
+
+if $ARGS[0] = 'rules':
+	*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/crupbd.jpg"></center>'
+	*PL '<h2><u>Blackjack Rules:</u></h2>'
+	*P '<ol><li>The player and dealer are each dealt 2 cards after initial bets (<<minBet>> <b>₽</b> - <<maxBet>> <b>₽</b>). The dealer will have 1 face-up card and 1 face-down card.</li>'
+	*P '<li>Face cards are worth 10 points, aces can double as either 11 or 1, and all other cards are worth their numeric value.</li>'
+	*P '<li>After the player finishes drawing, the dealer must continue to draw until he has 17 points or more.</li>'
+	*P '<li>To win, the player must score more points than the dealer, have the dealer bust, or get a blackjack.</li>'
+	*P '<li>Getting over 21 points is known as a bust, and an automatic loss.</li>'
+	*P '<li>Getting an ace and a 10 point card in the first 2 cards is known as a blackjack, and is an automatic win which pays 3 : 2.</li>'
+	*P '<li>If the dealer''s face-up card is an ace, the player can make a side-bet called "insurance" that pays 2 : 1 if the dealer has a blackjack.</li>'
+	*P '<li>At any time, the player can choose to double his/her bet, which gives the player 1 more card but prevents further draws on that hand.</li>'
+	*P '<li>If the player''s hand only consists of two cards of equal value, he/she can split them into 2 hands. Each hand must be covered by an amount equal to the original bet.</li>'
+	*P '<li>The player cannot score a blackjack using a split hand.</li>'
+	act 'Return' : gt 'casino', 'blackjack_play'
+end
+
+if $ARGS[0] = 'bet':
+	*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/stavkabd.jpg"></center>'
+	playerBets[0] = INPUT('Place your bet.')
+	if money < playerBets[0]:
+		MSG 'You don''t have enough money for that bet.'
+		gt 'casino', 'blackjack_play'
+	elseif playerBets[0] < minBet:
+		MSG 'There is a minimum bet of <<minBet>> <b>₽</b>.'
+		gt 'casino', 'blackjack_play'
+	elseif playerBets[0] > maxBet:
+		MSG 'There is a maximum bet of <<maxBet>> <b>₽</b>.'
+		gt 'casino', 'blackjack_play'
+	end
+	betTotal = playerBets[0]
+	gs 'deckShuffle'
+	if (deckFace[playerHand[0]] = 1 and deckFace[playerHand[1]] > 9) or (deckFace[playerHand[0]] > 9 and deckFace[playerHand[1]] = 1):
+		gt 'casino', 'blackjack'
+	elseif deckFace[dealerHand[0]] > 9 and deckFace[dealerHand[1]] = 1:
+		gt 'casino', 'blackjack'
+	elseif deckFace[dealerCards[0]] = 1:
+		gt 'casino', 'insurance1'
+	else
+		gt 'casino', 'player'
+	end
+end
+
+if $ARGS[0] = 'blackjack':
+	gs 'casino', 'blackjack_view', 1
+	if playerPoints[0] = 21 and dealerPoints = 21:
+		*PL 'DRAW GAME'
+		*PL 'You retrieve your bet.'
+	elseif playerPoints[0] = 21:
+		*PL 'PLAYER WINS'
+		*PL 'You receive <<playerBets[0] * 3 / 2>> <b>₽</b> in winnings.'
+		money += playerBets[0] * 3 / 2
+	else
+		*PL 'DEALER WINS'
+		*PL 'The dealer takes your <<playerBets[0]>> <b>₽</b> bet.'
+		money -= playerBets[0]
+	end
+	act 'Continue' : gt 'casino', 'blackjack_play'
+end
+
+if $ARGS[0] = 'insurance1':
+	gs 'casino', 'blackjack_view'
+	*PL 'The dealer has an ace showing.  Would you like to place a bet for insurance?'
+	insurance = 0
+	act 'Bet insurance' :
+		insurance = INPUT('Place your bet.')
+		if money < insurance:
+			MSG 'You don''t have enough money for that bet.'
+			gt 'casino', 'insurance1'
+		elseif insurance < 0:
+			MSG 'You cannot bet a negative amount of money.'
+			gt 'casino', 'insurance1'
+		elseif insurance > playerBets[0] / 2:
+			MSG 'Insurance cannot exceed half the original bet.'
+			gt 'casino', 'insurance1'
+		else
+			gt 'casino', 'insurance2'
+		end
+	end
+	act 'No insurance' : gt 'casino', 'insurance2'
+end
+
+if $ARGS[0] = 'insurance2':
+	if deckFace[dealerCards[1]] > 9: gs 'casino', 'blackjack_view', 1
+	if deckFace[dealerCards[1]] < 10: gs 'casino', 'blackjack_view'
+	if dealerPoints = 21:
+		*PL 'DEALER WINS'
+		*P 'The dealer takes your <<playerBets[0]>> <b>₽</b> bet'
+		if insurance > 0: *P ' but also gives you <<insurance>> <b>₽</b> for your side bet'
+		*P '.'
+		money -= playerBets[0]
+		money += insurance
+		act 'Continue' : gt 'casino', 'blackjack_play'
+	else
+		*PL 'The dealer takes a peek at his hole card; no blackjack.'
+		if insurance > 0: *P 'He relieves you of <<insurance>> <b>₽</b> for your side bet.'
+		money -= insurance
+		act 'Continue' :
+			CLA
+			wait 500
+			gt 'casino', 'player'
+		end
+	end
+end
+
+if $ARGS[0] = 'player':
+	gs 'casino', 'blackjack_view'
+	if playerPoints[currentHand] > 21: currentHand += 1 & handLosses += 1 & doubleBet = 0
+	if playerPoints[currentHand] = 21 or doubleBet = 1: currentHand += 1 & doubleBet = 0
+	if handLosses = numHands:
+		*PL 'DEALER WINS'
+		*P 'The dealer relieves you of <<betTotal>> <b>₽</b>.'
+		money -= betTotal
+		act 'Continue' : gt 'casino', 'blackjack_play'
+	elseif currentHand >= numHands:
+		*PL 'You can take no further actions.'
+		act 'Continue' :
+			cla
+			wait 500
+			gt 'casino', 'dealer'
+		end
+	else
+		if numHands = 1:
+			*PL 'You are considering actions for your hand.'
+			$text = ''
+		else
+			*PL 'You are considering your actions for <b>hand #<<currentHand + 1>></b>.'
+			$text = 'Hand #<<currentHand + 1>>: '
+		end
+		act '<<$text>>Hit' :
+			i = currentHand * 16 + 2
+			:loop1
+			if playerHand[i] ! 0: i += 1 & jump 'loop1'
+			playerHand[i] = cardsDealt
+			cardsDealt += 1
+			*clr & cla
+			*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartbde.jpg"></center>'
+			wait 750
+			gt 'casino', 'player'
+		end
+		if money >= betTotal + playerBets[currentHand]:
+			act '<<$text>>Double' :
+				doubleBet = 1
+				betTotal += playerBets[currentHand]
+				playerBets[currentHand] += playerBets[currentHand]
+				i = currentHand * 16 + 2
+				:loop2
+				if playerHand[i] ! 0: i += 1 & jump 'loop2'
+				playerHand[i] = cardsDealt
+				cardsDealt += 1
+				*clr & cla
+				*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartbde.jpg"></center>'
+				wait 750
+				gt 'casino', 'player'
+			end
+			if playerHand[currentHand * 16 + 2] = 0 and ((deckFace[playerHand[currentHand * 16]] > 9 and deckFace[playerHand[currentHand * 16 + 1]] > 9) or deckFace[playerHand[currentHand * 16]] = deckFace[playerHand[currentHand * 16 + 1]]):
+				act '<<$text>>Split' :
+					betTotal += playerBets[currentHand]
+					playerBets[numHands] = playerBets[currentHand]
+					numHands += 1
+					i = (currentHand + 1) * 16
+					:loop3
+					if playerHand[i] ! 0: i += 16 & jump 'loop3'
+					playerHand[i] = playerHand[currentHand * 16 + 1]
+					playerHand[currentHand * 16 + 1] = cardsDealt
+					cardsDealt += 1
+					playerHand[i + 1] = cardsDealt
+					cardsDealt += 1
+					*clr & cla
+					*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartbde.jpg"></center>'
+					wait 750
+					gt 'casino', 'player'
+				end
+			end
+		end
+		act '<<$text>>Stay' :
+			currentHand += 1
+			cla
+			wait 500
+			if currentHand < numHands: gt 'casino', 'player'
+			if currentHand >= numHands: gt 'casino', 'dealer'
+		end
+	end
+end
+
+if $ARGS[0] = 'dealer':
+	gs 'casino', 'blackjack_view', 1
+	if dealerPoints < 17:
+		act 'Continue' :
+			i = 2
+			:loop4
+			if dealerHand[i] ! 0: i += 1 & jump 'loop4'
+			dealerHand[i] = cardsDealt
+			cardsDealt += 1
+			*clr & cla
+			*PL '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartbde.jpg"></center>'
+			wait 750
+			gt 'casino', 'dealer'
+		end
+	elseif dealerPoints > 21:
+		betTotal = 0
+		i = 0
+		:loop5
+		if playerPoints[i] <= 21: betTotal += playerBets[i]
+		i += 1
+		if i < numHands: jump 'loop5'
+		*PL 'PLAYER WINS'
+		*P 'You receive <<betTotal>> <b>₽</b> in winnings.'
+		money += betTotal
+		act 'Continue' : gt 'casino', 'blackjack_play'
+	else
+		betTotal = 0
+		i = 0
+		:loop6
+		if playerPoints[i] > 21:
+			betTotal -= playerBets[i]
+		elseif playerPoints[i] < dealerPoints:
+			betTotal -= playerBets[i]
+		elseif playerpoints[i] > dealerPoints:
+			betTotal += playerBets[i]
+		end
+		i += 1
+		if i < numHands: jump 'loop6'
+		if betTotal = 0:
+			*PL 'DRAW GAME'
+			if numHands = 1: *P 'You retrieve your bet.'
+			if numHands > 1: *P 'You retrieve your bets.'
+		elseif betTotal < 0:
+			*PL 'DEALER WINS'
+			if numHands > 1: *P 'After taking into account all the hands, you have lost. '
+			*P 'The dealer relieves you of <<0 - betTotal>> <b>₽</b>.'
+		else
+			*PL 'PLAYER WINS'
+			if numHands > 1: *P 'After taking into account all the hands, you have won. '
+			*P 'You receive <<betTotal>> <b>₽</b> in winnings.'
+		end
+		money += betTotal
+		act 'Continue' : gt 'casino', 'blackjack_play'
+	end
+end
+
+if $ARGS[0] = 'blackjack_view':
+	*PL '<table width="100%"><tr><td>'
+	*PL '<u>Dealer</u>'
+	if ARGS[1] = 0:
+		*P '<img <<$set_imgh>> src="<<$deckImg[dealerHand[0]]>>">'
+		*PL '<img <<$set_imgh>> src="images/locations/city/industrial/casino/cards/back.jpg">'
+	else
+		numAces = 0
+		dealerPoints = 0
+		i = 0
+		:loop1
+		*P '<img <<$set_imgh>> src="<<$deckImg[dealerHand[i]]>>">'
+		if deckFace[dealerHand[i]] = 1:
+			dealerPoints += 11
+			numAces += 1
+		elseif deckFace[dealerHand[i]] > 9:
+			dealerPoints += 10
+		else
+			dealerPoints += deckFace[dealerHand[i]]
+		end
+		i += 1
+		if dealerHand[i] ! 0: jump 'loop1'
+		:loop2
+		if dealerPoints > 21 and numAces > 0:
+			dealerPoints -= 10
+			numAces -= 1
+			jump 'loop2'
+		end
+		if dealerPoints > 21:
+			*P '<br>BUST!'
+		elseif dealerPoints = 21 and dealerHand[2] = 0:
+			*P '<br>BLACKJACK!'
+		else
+			*P '<br><<dealerPoints>> points'
+		end
+	end
+
+	*PL '<br><br><u>Player</u>'
+	i = 0
+	:loop3
+	numAces = 0
+	playerPoints[i] = 0
+	if numHands > 1: *PL 'Hand #<<i + 1>>:'
+	j = 0
+	:loop4
+	if playerHand[i * 16 + j] ! 0:
+		*P '<img <<$set_imgh>> src="<<$deckImg[playerHand[i * 16 + j]]>>">'
+		if deckFace[playerHand[i * 16 + j]] = 1:
+			playerPoints[i] += 11
+			numAces += 1
+		elseif deckFace[playerHand[i * 16 + j]] > 9:
+			playerPoints[i] += 10
+		else
+			playerPoints[i] += deckFace[playerHand[i * 16 + j]]
+		end
+		j += 1
+		jump 'loop4'
+	end
+	:loop5
+	if playerPoints[i] > 21 and numAces > 0:
+		playerPoints[i] -= 10
+		numAces -= 1
+		jump 'loop5'
+	end
+	if playerPoints[i] > 21:
+		*P '<br>BUST!'
+	elseif playerPoints[i] = 21 and playerHand[2] = 0 and numHands = 1:
+		*P '<br>BLACKJACK!'
+	else
+		*P '<br><<playerPoints[i]>> points |'
+	end
+	*P ' Bet = <<playerBets[i]>> <b>₽</b><br><br>'
+	i += 1
+	if i < numHands: jump 'loop3'
+	*PL '</td><td valign="top"><div align="right"><img <<$set_imgh>> src="images/locations/city/industrial/casino/cartbd.jpg"></div></td></tr></table>'
+end
 
 --- casino ---------------------------------
 

locations/cfnm.qsrc

@@ -1,9 +1,9 @@
 # cfnm
 
+menu_off = 1
+
 if $ARGS[0] = 'start':
-	cla
-	clr
-	*clr
+	*clr & cla
 	money -= 50
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/cfnm.jpg"></center>'
@@ -21,9 +21,7 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'tits':
-	cla
-	clr
-	*clr
+	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/cfnm1.jpg"></center>'
 	'The stripper continues sucking your nipples, occasionally introducing a gentle bite, eliciting a moan from your lips. You reach out your thin hand and begin rubbing his cock, feeling the warmth beneath your palm'
@@ -44,9 +42,7 @@ if $ARGS[0] = 'tits':
 end
 
 if $ARGS[0] = 'hand':
-	cla
-	clr
-	*clr
+	*clr & cla
 	fotoCFNMblowjob += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/cfnmhand.jpg"></center>'
@@ -60,9 +56,7 @@ if $ARGS[0] = 'hand':
 end
 
 if $ARGS[0] = 'eat':
-	cla
-	clr
-	*clr
+	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/cfnm2.jpg"></center>'
 	'The stripper holds a towel between the two of you, creating a barrier. You begin stroking him more vigorously as his thick, veiny cock grows harder.'
@@ -83,9 +77,7 @@ if $ARGS[0] = 'eat':
 end
 
 if $ARGS[0] = 'blow':
-	cla
-	clr
-	*clr
+	*clr & cla
 
 	if stripguy = 0: stripguy = 1 & guy += 1
 
@@ -109,9 +101,7 @@ if $ARGS[0] = 'blow':
 end
 
 if $ARGS[0] = 'blow2':
-	cla
-	clr
-	*clr
+	*clr & cla
 	fotoCFNMblowjob += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/cfnmblow2.jpg"></center>'
@@ -133,9 +123,7 @@ if $ARGS[0] = 'blow2':
 end
 
 if $ARGS[0] = 'blow3':
-	cla
-	clr
-	*clr
+	*clr & cla
 	spafinloc = 12
 	gs 'cum_manage'
 	swallow += 1
@@ -152,9 +140,7 @@ if $ARGS[0] = 'blow3':
 end
 
 if $ARGS[0] = 'blow4':
-	cla
-	clr
-	*clr
+	*clr & cla
 	spafinloc = 11
 	gs 'cum_manage'
 	facial += 1
@@ -171,9 +157,7 @@ if $ARGS[0] = 'blow4':
 end
 
 if $ARGS[0] = 'end':
-	cla
-	clr
-	*clr
+	*clr & cla
 	pcs_horny += 10
 	minut += 15
 	gs 'stat'
@@ -187,9 +171,7 @@ if $ARGS[0] = 'end':
 end
 
 if $ARGS[0] = 'sex':
-	cla
-	clr
-	*clr
+	*clr & cla
 	cumprecheck = 1
 	gs 'cum_manage'
 	spafinloc = 4

locations/changingroom.qsrc

@@ -1,5 +1,7 @@
 # changingroom
 
+menu_off = 1
+
 if $ARGS[0] = 'view_swim_list':
 
 	if $loc = 'fit' or $loc = 'bass' or temper >= 15: