Merge remote-tracking branch 'julzor/master'

glife.qproj

@@ -592,16 +592,6 @@
 		<Location name="FedorEv4"/>
 		<Location name="FedorMisc"/>
 	</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>
 	<Folder name="School">
 		<Location name="gschool_grounds"/>
 		<Location name="gschool_lessons"/>
@@ -702,6 +692,7 @@
 		<Location name="albinaporog"/>
 		<Location name="AlbFatherQW"/>
 		<Location name="AlbStarsEnd"/>
+		<Location name="AlbStarsWhore"/>
 	</Folder>
 	<Folder name="Lariska">
 		<Location name="LariskaStart"/>
@@ -936,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">
@@ -1059,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/Cheatmenu_din.qsrc

@@ -1550,6 +1550,7 @@ $cheatmenu['force_preg'] = {
 $cheatmenu['remove_preg'] = {
 	pregtime = 0
 	pregtalk = 0
+	pregTalkPC = 0
 	pregTalkNat = 0
 	pregTalkbrother = 0
 	preg = 0

locations/DanceWhore1.qsrc

@@ -1,132 +0,0 @@
-# DanceWhore1
-
-menu_off = 1
-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,140 +0,0 @@
-# DanceWhore2
-
-menu_off = 1
-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,128 +0,0 @@
-# DanceWhore3
-
-menu_off = 1
-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,140 +0,0 @@
-# DanceWhore4
-
-menu_off = 1
-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,96 +0,0 @@
-# DanceWhore5
-
-menu_off = 1
-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,143 +0,0 @@
-# DanceWhore6
-
-menu_off = 1
-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,157 +0,0 @@
-# DanceWhore7
-
-menu_off = 1
-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
-
-menu_off = 1
-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/Gshveyfab.qsrc

@@ -3,8 +3,7 @@
 $location_type = 'public_outdoors'
 
 if $ARGS[0] = 'tailor':
-	cla
-	*clr
+	*clr & cla
 	$metka = 'tailor'
 	$loc = 'Gshveyfab'
 	$menu_loc = 'Gshveyfab'
@@ -15,10 +14,11 @@ if $ARGS[0] = 'tailor':
 	'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>)':
-			cla
-			*clr
+			*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..."'
@@ -29,19 +29,18 @@ if $ARGS[0] = 'tailor':
 				'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 'Leave': gt 'pavIndustrial'
+
 end
 
 if $ARGS[0] = 'enter':
-CLOSE ALL
-	cla
-	*clr
+	CLOSE ALL
+	*clr & cla
 	$metka = 'tailor'
 	$loc = 'Gshveyfab'
 	$menu_loc = 'Gshveyfab'
@@ -55,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'
@@ -87,12 +88,10 @@ CLOSE ALL
 			gt 'Gshveyfab','enter'
 		end
 	end
-	act 'Leave': minut += 5 & gt 'pavIndustrial'
 end
 
 if $ARGS[0] = 'job_start':
-	cla
-	*clr
+	*clr & cla
 	$metka = 'tailor'
 	$loc = 'Gshveyfab'
 	$menu_loc = 'Gshveyfab'
@@ -102,6 +101,9 @@ if $ARGS[0] = 'job_start':
 	'<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?"'
@@ -116,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:
@@ -133,16 +135,13 @@ 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

locations/HotelHole.qsrc

@@ -592,6 +592,7 @@ 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

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/Nord.qsrc

@@ -82,7 +82,7 @@ if $ARGS[0] = '':
 	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'

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/bed2.qsrc

@@ -484,6 +484,7 @@ if $ARGS[0] = 'succubinit':
 		preg = 0
 		pregtime = 0
 		pregtalk = 0
+		pregTalkPC = 0
 		pregTalkNat = 0
 		pregTalkbrother = 0
 		thinkpreg = 0

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,7 +452,6 @@ 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:

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/card.qsrc

@@ -67,7 +67,6 @@ 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/cards.qsrc

@@ -1,58 +0,0 @@
-# cards
-*clr & cla
-menu_off = 1
-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 'Back in the hall':gt 'hall'
-act 'To the table game Blackjack':gt 'blackjackPlay', 'new'
-act 'To the table games in Casino War':gt 'kazvar'
-
-!!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,21 +1,1081 @@
 # casino
 
 $loc = 'casino'
-$metka = ''
 $menu_loc = 'casino'
-$menu_arg = ''
-menu_off = 0
 
-*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 $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.'
 
-act 'Enter the casino': minut += 1 & gt 'hall'
+	act 'Return to the city industrial area': minut += 10 & gt 'nord'
 
-!!if tobiQW < 1000:tobiQW = 1000
+	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/croupier.qsrc

@@ -1,28 +0,0 @@
-# croupier
-*clr & cla
-menu_off = 1
-minut += 5
-gs 'stat'
-'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/crup.jpg"></right>'
-'"How can I help you?"'
-
-act 'Move away from the dealer':gt 'roulette'
-
-act 'Ask rules':
-	msg 'The rules are very simple.
-	First you choose the amount you want to bet.
-	But note that in our casino maximum rate is 1000 <b>₽</b>.
-	Then you choose what to put their money. There are 5 types of bets:
-	Color - 1 to 1
-	Chet/Odd - 1 to 1
-	Small/Large- 1 to 1
-	Dozen - 1 to 2
-	Series - 1 to 2
-	Number - 1 to 36
-	Well, then it all depends on your luck.'
-	gt 'croupier'
-end
-
-
---- croupier ---------------------------------
-

locations/croupier2.qsrc

@@ -1,32 +0,0 @@
-# croupier2
-*clr & cla
-menu_off = 1
-minut += 5
-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 'kazvar'
-
-act 'Ask 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 'croupier2'
-end
-
---- croupier2 ---------------------------------
-

locations/din_van.qsrc

@@ -1018,6 +1018,7 @@ if $ARGS[0] = 'private':
 			pregtest -= 1
 			gs 'stat'
 			 if pregchem > 120 and bimbolevel < 3 and knowpreg = 0 and huband = 0 and pregTalkPC = 0:
+				cla
 				knowpreg = 1
 				thinkpreg = 1
 				*nl
@@ -1026,6 +1027,7 @@ if $ARGS[0] = 'private':
 				act 'Concerned':gt 'din_van', 'ConcernedReact1'
 				act 'Excited':gt 'din_van', 'ExcitedReact1'
 			elseif pregchem > 120 and bimbolevel = 3 and knowpreg = 0 and huband = 0 and pregTalkPC = 0:
+				cla
 				knowpreg = 1
 				thinkpreg = 1
 				*nl
@@ -1040,7 +1042,12 @@ if $ARGS[0] = 'private':
 				knowpreg = 1
 				thinkpreg = 1
 				gt 'din_van', 'WifeReact2'
-			elseif pregTalkPC = 1:
+			elseif pregTalkPC = 1 and pregchem > 120 and knowpreg = 0:
+				*nl
+				knowpreg = 1
+				thinkpreg = 1
+				'The test shows two strips. You are pregnant.'
+			elseif pregTalkPC = 1 or (knowpreg = 1 and preg = 1):
 				*nl
 				knowpreg = 1
 				thinkpreg = 1

locations/down.qsrc

@@ -199,7 +199,7 @@ if hour >= 8 and hour <= 18:
 else
 	$desc_txt5 = '<a href="exec:msg ''The National Library of Russia is closed and will reopen at 8:00''">National Library of Russia</a>'
 end
-'Next door is the <<$desc_txt1>> followed by a <<$desc_txt2>> and <<$desc_txt3>> and the 5-star <a href="exec: minut += 5 & gt ''hotel''">Hotel Indigo</a> for your housing needs. Lastly, the local <<$desc_txt4>> and <<$desc_txt5>> can be found at the end of the road.'
+'Next door is the <<$desc_txt1>> followed by a <<$desc_txt2>> and <<$desc_txt3>> and the 5-star <a href="exec: minut += 5 & gt ''hotel'', ''foyer''">Hotel Indigo</a> for your housing needs. Lastly, the local <<$desc_txt4>> and <<$desc_txt5>> can be found at the end of the road.'
 *nl
 if week < 6 and hour >= 9 and hour <= 17:
 	$desc_txt6 = '<a href="exec: minut += 5 & gt ''sentence'',''start''">The Regional Courthouse</a>'

locations/elevator.qsrc

@@ -1,25 +0,0 @@
-# elevator
-act 'Back': minut += 1 & gt 'hotel'
-
-act 'Go to your room':
-	msg 'Excuse me, but the elevator is not working'
-	gt 'elevator'
-
-!'
-	if nomer = 0:
-		msg 'You have not paid for a room'
-		gt 'elevator'
-	elseif nomer = 1:
-		gt 'number1'
-	elseif nomer = 2:
-		gt 'number2'
-	elseif nomer = 3:
-		gt 'number3'
-	elseif nomer = 4:
-		gt 'number4'
-	end
-'!
-end
-
---- elevator ---------------------------------
-

locations/gdksport.qsrc

@@ -552,14 +552,14 @@ if $ARGS[0] = 'starlets':
 								slutty += 1
 								gs 'stat'
 								'You agreed to be "nice" and Albina counted out your money.'
-								if wealthmanrand = 0:act 'Go with a man':gt 'DanceWhore1'
-								if wealthmanrand = 1:act 'Go with men':gt 'DanceWhore2'
-								if wealthmanrand = 2:act 'Go in Caucasians':gt 'DanceWhore3'
-								if wealthmanrand = 3:act 'Go with Caucasians':gt 'DanceWhore4'
-								if wealthmanrand = 4:act 'Go with Caucasians':gt 'DanceWhore5'
-								if wealthmanrand = 5:act 'Start with a black man':gt 'DanceWhore6'
-								if wealthmanrand = 6:act 'Go with blacks':gt 'DanceWhore7'
-								if wealthmanrand = 7:act 'Go with blacks':gt 'DanceWhore8'
+								if wealthmanrand = 0:act 'Go with a man':gt 'AlbStarsWhore', 'whore1'
+								if wealthmanrand = 1:act 'Go with men':gt 'AlbStarsWhore', 'whore2'
+								if wealthmanrand = 2:act 'Go in Caucasians':gt 'AlbStarsWhore', 'whore3'
+								if wealthmanrand = 3:act 'Go with Caucasians':gt 'AlbStarsWhore', 'whore4'
+								if wealthmanrand = 4:act 'Go with Caucasians':gt 'AlbStarsWhore', 'whore5'
+								if wealthmanrand = 5:act 'Start with a black man':gt 'AlbStarsWhore', 'whore6'
+								if wealthmanrand = 6:act 'Go with blacks':gt 'AlbStarsWhore', 'whore7'
+								if wealthmanrand = 7:act 'Go with blacks':gt 'AlbStarsWhore', 'whore8'
 							end
 						end
 					end

locations/gpoli.qsrc

@@ -57,6 +57,7 @@ if $ARGS[0] = '':
 			knowpregrecover = 1
 			vidage += 1
 			pregtalk = 0
+			pregTalkPC = 0
 			pregTalkNat = 0
 			pregTalkbrother = 0
 			pregchem = 0

locations/hall.qsrc

@@ -1,16 +0,0 @@
-# hall
-clr
-*clr
-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 .'
-'You can go:'
-
-act 'Leave': minut += 11 & gt 'Nord'
-
-'In the hall are various <a href="exec:gt ''igravt''">slot machines</a>.'
-'In the games room there is <a href="exec:gt ''roulette''">Roulette</a> and <a href="exec:gt ''cards''">card games</a>.'
-
---- hall ---------------------------------
-

locations/hotel.qsrc

@@ -1,38 +1,96 @@
 # hotel
-clr
-nom_o[1] = 100
-nom_o[2] = 1000
-nom_o[3] = 10000
-nom_o[4] = 100000
-gs 'stat'
-'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/metrd.jpg"></center>'
-
-if tobiQW < 2000:'The hotel lobby is deserted and you only notice an alone bored girl standing at the reception desk.'
-if tobiQW >= 2000 and tobiQW < 2100:'The hotel lobby is very crowded. You notice there''s a swarm of comely old men dressed in scanty jackets with elbow patches.'
-
-if tobiQW = 2001:
-	'One of the visitors of the hotel, grabs your attention as he''s sitting in a chair, reading a book. It''s written in squiggles, which reminds you to the scroll you read earlier.'
-	act 'Excuse me':
+
+if $ARGS[0] = 'foyer':
+	*clr & cla
+	nom_o[1] = 100
+	nom_o[2] = 1000
+	nom_o[3] = 10000
+	nom_o[4] = 100000
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/metrd.jpg"></center>'
+
+	if tobiQW < 2000:'The hotel lobby is deserted and you only notice an alone bored girl standing at the reception desk.'
+	if tobiQW >= 2000 and tobiQW < 2100:'The hotel lobby is very crowded. You notice there''s a swarm of comely old men dressed in scanty jackets with elbow patches.'
+
+	if tobiQW = 2001:
+		'One of the visitors of the hotel, grabs your attention as he''s sitting in a chair, reading a book. It''s written in squiggles, which reminds you to the scroll you read earlier.'
+		act 'Excuse me':
+			*clr & cla
+			minut += 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/oldman.jpg"></center>'
+			'"I didn''t mean to disturb you, but what language is the book written in?" you ask the man.'
+			'The man stops, looks up to you and cheerfully answers, "This book right here is written in old Japanese language. Why do you ask?" the man asks curiously.'
+			'"Well, I was handed this book, in which the characters are very similarly written." you answer.'
+			'The man gasps, "By the gods! Can I take a look?"'
+			'"I don''t really know if it''s okay..." you hesitantly answer.'
+			'The man is taken aback a little by your answer, "Oh yes, it''s no wonder you''re being careful, where are my manners, I should introduce myself. My name is Plato Aristarkhovich, and you are?"'
+			'"My name is <<$pcs_firstname>> <<$pcs_lastname>>." you answer.'
+			'"I hope this doesn''t sound too creepy but would you please follow me to my room?" Plato asks you.'
+
+			act 'Go with Plato': minut += 1 & gt 'mqroom'
+		end
+	end
+
+	act 'Leave': minut += 5 & gt 'down'
+
+	act 'Go to the reception desk': gt 'hotel', 'reception'
+	
+	act 'Go to the lift': 
+		*clr & cla
+		minut += 1
+		gs 'stat'
+		msg 'Excuse me, but the elevator is not working'
+		gt 'hotel', 'foyer'
+	end
+end
+
+if $ARGS[0] = 'reception':
+	*clr & cla
+	menu_off = 1
+	minut += 1
+	gs 'stat'
+	'<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 'Go back to the foyer': minut += 1 & gt 'hotel'
+	
+	act 'See the room descriptions':
+		cla
+		minut += 1
+		gs 'stat'
+		'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 'Continue': gt 'hotel', 'reception'
+	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 'hotel'
+		end
+	end
+
+	act 'Rent a room':
 		cla
-		*clr
-		minut += 5
-		'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/oldman.jpg"></center>'
-		'"I didn''t mean to disturb you, but what language is the book written in?" you ask the man.'
-		'The man stops, looks up to you and cheerfully answers, "This book right here is written in old Japanese language. Why do you ask?" the man asks curiously.'
-		'"Well, I was handed this book, in which the characters are very similarly written." you answer.'
-		'The man gasps, "By the gods! Can I take a look?"'
-		'"I don''t really know if it''s okay..." you hesitantly answer.'
-		'The man is taken aback a little by your answer, "Oh yes, it''s no wonder you''re being careful, where are my manners, I should introduce myself. My name is Plato Aristarkhovich, and you are?"'
-		'"My name is <<$pcs_firstname>> <<$pcs_lastname>>." you answer.'
-		'"I hope this doesn''t sound too creepy but would you please follow me to my room?" Plato asks you.'
-
-		act 'Go with Plato': minut += 1 & gt 'mqroom'
+		minut += 1
+		gs 'stat'
+		*nl
+		'"I would like to rent a room." you tell the girl at the counter.'
+		'"Unfortunately, we have no rooms available." she replies.'
+		act 'Move away': gt 'hotel'
 	end
 end
 
-act 'Go to the reception desk': minut += 1 & gt 'Maria1'
-act 'Go to the lift': minut += 1 & gt 'elevator'
-act 'Leave': minut += 5 & gt 'down'
 
 --- hotel ---------------------------------
 

locations/igravt.qsrc

@@ -1,18 +0,0 @@
-# igravt
-
-$menu_loc = 'igravt'
-$menu_arg = ''
-menu_off = 0
-clr
-minut += 10
-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 'Play': gt 'authors3'
-act 'Go back' :gt 'hall'
-
---- igravt ---------------------------------
-

locations/igrkart2.qsrc

@@ -1,187 +0,0 @@
-# igrkart2
-clr
-$menu_loc = 'igravt2'
-$menu_arg = ''
-menu_off = 0
-minut += 5
-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 a bet':
-		if money < 1:
-			'You don''t have any money!'
-			act 'Leave the table' :gt 'kazvar'
-		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 'igrkart2'
-	end
-
-	act 'Leave the table' :gt 'kazvar'
-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 'igrkart2'
-	else
-		act 'Continue with regular bet':
-			turn1 = 2
-			gt 'igrkart2'
-		end
-
-		act 'Bet on draw (doubles bet)':
-			turn1 = 2
-			bet_draw = 1
-			money -= bet_amount
-			gt 'igrkart2'
-		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 'igrkart2'
-		end
-	elseif d_points < p_points:
-		' '
-		'You won'
-		act 'Take money (<<2 * bet_amount>> <b>₽</b>)':
-			money += 2 * bet_amount
-			turn1 = 0
-			gt 'igrkart2'
-		end
-	else
-		if bet_draw = 1:
-			' '
-			'You won'
-
-			act 'Take money (<<11 * bet_amount>> <b>₽</b>)':
-				money += 11 * bet_amount
-				turn1 = 0
-				gt 'igrkart2'
-			end
-		else
-			turn1 = 3
-			gt 'igrkart2'
-		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 'igrkart2'
-				end
-			elseif d_points < p_points:
-				' '
-				'You won'
-
-				act 'Take money (<<4 * bet_amount>> <b>₽</b>)':
-					money += 4 * bet_amount
-					turn1 = 0
-					gt 'igrkart2'
-				end
-			elseif d_points = p_points:
-				' '
-				'Draw'
-
-				act 'Take money (<<3 * bet_amount>> <b>₽</b>)':
-					money += 3 * bet_amount
-					turn1 = 0
-					gt 'igrkart2'
-				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 'igrkart2'
-	end
-end
-
---- igrkart2 ---------------------------------
-

locations/kazvar.qsrc

@@ -1,14 +0,0 @@
-# kazvar
-clr
-minut += 10
-gs 'stat'
-
-'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/stolcw.jpg"></right>'
-'You approach the gambling table at the casino.'
-
-act 'Approach to the dealer':gt 'croupier2'
-act 'Sit down at the table':gt 'igrkart2'
-act 'Move away from the table':gt 'cards'
-
---- kazvar ---------------------------------
-

locations/mother.qsrc

@@ -612,10 +612,12 @@ if $ARGS[0] = '':
 		end
 	end
 
-	if SchoolAtestat = 0 and motherKnowSpravka = 0 and GspravkaT ! 1 and ((week >= 6 and hour >= 6 and hour <= 21) or (week < 6 and hour >= 16 and hour <= 21)):
+	if GspravkaTalked ! daystart and SchoolAtestat = 0 and motherKnowSpravka = 0 and GspravkaT ! 1 and ((week >= 6 and hour >= 6 and hour <= 21) or (week < 6 and hour >= 16 and hour <= 21)):
 		gt 'mother', 'referral'
 	elseif Gspassed = 1 and ((week >= 6 and hour >= 6 and hour <= 21) or (week < 6 and hour >= 16 and hour <= 21)):
 		gt 'mother', 'referral_pass'
+	elseif GspravkaT = 2 and motherKnowSpravka = 0 and ((week >= 6 and hour >= 6 and hour <= 21) or (week < 6 and hour >= 16 and hour <= 21)):
+		gt 'mother', 'referral_fail'
 	end
 end
 

locations/number1.qsrc

@@ -1,6 +0,0 @@
-# number1
-'bedroom'
-'toilet-shower'
-
---- number1 ---------------------------------
-

locations/number2.qsrc

@@ -1,7 +0,0 @@
-# number2
-'lounge'
-'bedroom'
-'toilet-shower'
-
---- number2 ---------------------------------
-

locations/number3.qsrc

@@ -1,8 +0,0 @@
-# number3
-'lounge'
-'bathroom'
-'bar'
-'bedroom'
-
---- number3 ---------------------------------
-

locations/number4.qsrc

@@ -1,10 +0,0 @@
-# number4
-'pool'
-'jacuzzi'
-'bar'
-'bedroom'
-'bathroom'
-'lounge'
-
---- number4 ---------------------------------
-

locations/pavComplex.qsrc

@@ -26,7 +26,7 @@ if $ARGS[0] = 'start':
 	alkoblock = 0
 	boynumBlock = 0
 	gs 'stat'
-!!	gs 'rolanapt' , 'rolanroute'
+	gs 'rolanapt', 'rolanroute'
 	'<center><h2>Five Eight Estate</h2></center>'
 	if month >= 11 or month <= 3:
 		if hour >= 8 and hour <= 21:
@@ -197,7 +197,6 @@ if $ARGS[0] = 'garages':
 							'"Ah, well you didn''t frighten me, but you did startle me. You never know who it might be, maybe my past coming back to haunt me." he says smiling.'
 							'"I was just passing by and wanted to say hi, anyway I should let you get back to work." you say, as you quickly leave. You don''t even notice him nod or the slight frown when he sees you scurry away.'
 							gs 'stat'
-							act 'Go to the Western apartment building':minut += 1 & gt 'pavComplexb3', 'etaj_1'
 							act 'Go to the courtyard':minut += 1 & gt 'pavComplex', 'start'
 						end
 					elseif garageedevent = 2:
@@ -206,7 +205,6 @@ if $ARGS[0] = 'garages':
 						'Feeling rejected you turn around and move on.'
 						minut += 5
 						gs 'stat'
-						act 'Go to the Western apartment building':minut += 1 & gt 'pavComplexb3', 'etaj_1'
 						act 'Go to the courtyard':minut += 1 & gt 'pavComplex', 'start'
 					elseif garageedevent = 3:
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/garage/ed2.jpg"></center>'
@@ -229,7 +227,6 @@ if $ARGS[0] = 'garages':
 								minut += 5
 								npc_rel['A158'] += 1
 								gs 'stat'
-								act 'Go to the Western apartment building':minut += 1 & gt 'pavComplexb3', 'etaj_1'
 								act 'Go to the courtyard':minut += 1 & gt 'pavComplex', 'start'
 							end
 						end
@@ -252,7 +249,6 @@ if $ARGS[0] = 'garages':
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/garage/ed1.jpg"></center>'
 								'You shake your head slightly. "Nothing, I was just passing by and saw you. So thought I would stop and say hi, well anyways I should let you get back to work and I got things I need to do." With that you give him a slight wave then leave.'
 								gs 'stat'
-								act 'Go to the Western apartment building':minut += 1 & gt 'pavComplexb3', 'etaj_1'
 								act 'Go to the courtyard':minut += 1 & gt 'pavComplex', 'start'
 							end
 							act 'Talk':
@@ -265,7 +261,6 @@ if $ARGS[0] = 'garages':
 								'He laughs slightly at the question. "Well if you are really curious, the wife is still a shrew, the boys are... well preteen boys so nothing but trouble and Nush, well I wouldn''t know. I rarely see her, I just hope she is staying out of trouble." Then he snorts. "Or I should say, not getting into more trouble than she can handle. What about yourself? Everything ok at home, doing well in school?"'
 								'You spend some time telling him about home and school, he seems far more interested than you expected. After about half of hour of pleasant conversation you excuse yourself and tell him not to work too late, as you leave.'
 								gs 'stat'
-								act 'Go to the Western apartment building':minut += 1 & gt 'pavComplexb3', 'etaj_1'
 								act 'Go to the courtyard':minut += 1 & gt 'pavComplex', 'start'
 							end
 							act 'Want to learn about working on motorcycles':
@@ -291,7 +286,6 @@ if $ARGS[0] = 'garages':
 									'He chuckles and shakes his head at how you look. "Ok I think that is enough for now, why don''t you go get cleaned up. We can continue some other time." You put down the tools, smile and thank him for helping you, then leave.'
 								end
 								gs 'stat'
-								act 'Go to the Western apartment building':minut += 1 & gt 'pavComplexb3', 'etaj_1'
 								act 'Go to the courtyard':minut += 1 & gt 'pavComplex', 'start'
 							end
 						end
@@ -300,7 +294,6 @@ if $ARGS[0] = 'garages':
 						'As you walk past Eduard''s garage you hear some noises coming from his garage. You carefully approach the entrance and notice Valentin kneeling next to his bike, looking at it.'
 						minut += 5
 						gs 'stat'
-						act 'Go to the Western apartment building':minut += 1 & gt 'pavComplexb3', 'etaj_1'
 						act 'Go to the courtyard':minut += 1 & gt 'pavComplex', 'start'
 						act 'Approach him':
 							cla & *clr
@@ -321,7 +314,6 @@ if $ARGS[0] = 'garages':
 								'He sighs obviously a little disappointed. "I guess a little break wouldn''t hurt, so what''s up with you?"'
 								'The two of you start talking and before long he is fairly relaxed, after about half a hour. During a lull in the conversation he says. "I should really get back to this, thanks for hanging out, see ya later." With that he goes back to working on his bike and you take the hint.'
 								gs 'stat'
-								act 'Go to the Western apartment building':minut += 1 & gt 'pavComplexb3', 'etaj_1'
 								act 'Go to the courtyard':minut += 1 & gt 'pavComplex', 'start'
 							end
 							act 'Strip down to your panties':
@@ -395,7 +387,6 @@ if $ARGS[0] = 'garages':
 													gs 'underwear', 'wear'
 													gs 'clothing', 'wear_last_worn'
 													gs 'stat'
-													act 'Go to the Western apartment building':minut += 1 & gt 'pavComplexb3', 'etaj_1'
 													act 'Go to the courtyard':minut += 1 & gt 'pavComplex', 'start'
 												end
 											end
@@ -416,20 +407,8 @@ if $ARGS[0] = 'garages':
 	end
 	if $CURACTS = '':
 		gs 'stat'
-		if home_owned[2] = 1: act '<b>Go home</b> (Parents'' Apartment)': minut += 5 & gt 'korrPar'
 		if StoryLine = 1: act 'Go to your stepfather''s garage': minut += 5 & gt 'gargazel'
-		act 'Return to the apartment complex street':minut += 2 & gt 'pavComplex', 'start'
-		act 'Go to the Southern apartment building':minut += 1 & gt 'pod_ezd', 'etaj_1'
-		act 'Go to the Eastern apartment building':
-			minut += 3
-			if anushkaFirstvisit = 0 and npc_rel['A144'] > 50:
-				gt 'pavComplexb2', 'anushkaFirst'
-			else
-				gt 'pavComplexb2', 'etaj_1'
-			end
-		end
-		act 'Go to the Western apartment building':minut += 1 & gt 'pavComplexb3', 'etaj_1'
-		act 'Go to the courtyard':minut += 1 & gt 'pavComplex', 'start'
+		act 'Go to the courtyard':minut += 2 & gt 'pavComplex', 'start'
 	end
 !! garages
 end

locations/pavIndustrial.qsrc

@@ -21,8 +21,7 @@ if sound = 0:
 	end
 end
 
-cla
-*clr
+*clr & cla
 litltown = 1
 alkoblock = 0
 boynumBlock = 0
@@ -38,7 +37,7 @@ if streetevent_hour + 2 < hour:gt'street_event','pavIndustrial', 'main'
 'This area is dominated by one biggest employers in Pavlovsk, the local textile factory. It''s owned by G&M who opened up a store opposite.'
 
 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.'
+	'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.'
 end

locations/pavResidential.qsrc

@@ -115,8 +115,6 @@ $schoolname = 'the <a href="exec: minut += 2 & gt ''gschool_grounds'', ''main''"
 
 '<br>In the center of Pavlovsk is the town square, which features the popular <a href="exec: minut += 2 & gt ''gdk''">community center</a>, a hotspot for the local teenagers to hangout at after a long day at <<$schoolname>></b> Connected to the town center is the old palace grounds which have now been turned into a large <a href="exec:minut += 5 & gt ''gskver'', ''start''">public park</a>. With the <a href="exec: minut += 5 & gt ''glake''">lake</a> nearby, the area can get quite busy, especially during the summer and winter when people can swim or skate at the lake.'
 
-'<br>A <a href="exec:minut += 15 & gt ''Gshveyfab'', ''start''">garment factory</a> named Paris Commune is situated in the industrial area on the outskirts of town.'
-
 *nl
 !!made changes here, to remove direct links to the kids in the apartment complex, make sure this will work with the code left.
 if Enable_tablemap = 0:

locations/pod_ezd.qsrc

@@ -233,6 +233,7 @@ end
 
 !!roof
 if $ARGS[0] = 'roof':
+	$metka = 'roof'
 	$menu_loc = 'pod_ezd'
 	$menu_arg = 'roof'
 	menu_off = 0

locations/poli.qsrc

@@ -141,6 +141,7 @@ if $ARGS[0] = 'start':
 			money -= 15000
 			pregtime = 0
 			pregtalk = 0
+			pregTalkPC = 0
 			pregTalkNat = 0
 			pregTalkbrother = 0
 			preg = 0
@@ -234,6 +235,7 @@ if $ARGS[0] = 'start':
 			knowpregrecover = 1
 			vidage += 1
 			pregtalk = 0
+			pregTalkPC = 0
 			pregTalkNat = 0
 			pregTalkbrother = 0
 			pregchem = 0

locations/rate.qsrc

@@ -1,100 +0,0 @@
-# rate
-clr
-cla
-minut += 5
-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>'
-'What will be put?'
-
-act 'Red / Black':
-	act 'Red':
-		kh = 1
-		gt 'result'
-
-	end
-
-	act 'Black':
-		kh = 2
-		gt 'result'
-	end
-end
-
-act 'Even / Odd':
-	act 'Even':
-		chnch = 1
-		gt 'result'
-	end
-
-	act 'Odd':
-		chnch = 2
-		gt 'result'
-	end
-end
-
-act 'Small / Large':
-	act 'Small: 1-18':
-		mb = 1
-		gt 'result'
-	end
-
-	act 'Large: 19-36':
-		mb = 2
-		gt 'result'
-	end
-end
-
-act 'Dozen':
-	act 'first dozen: 1-12':
-		du = 1
-		gt 'result'
-	end
-
-	act 'Two Dozen:13-24':
-		du = 2
-		gt 'result'
-	end
-
-	act 'third dozen:25-36':
-		du = 3
-		gt 'result'
-	end
-end
-
-act 'Series':
-	act 'First row: 1, 4, 7, 10, 13, 16, 19, 22, 25, 28, 31, 34':
-		series = 1
-		gt 'result'
-	end
-
-	act 'Second row: 2, 5, 8, 11, 14, 17, 20, 23, 26, 29, 32, 35':
-		series = 2
-		gt 'result'
-	end
-
-	act 'Third row: 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36':
-		series = 3
-		gt 'result'
-	end
-end
-
-act 'Number':
-	chi = input 'Enter a number from 0-36'
-
-	if chi < 0 and chi > 36:
-		msg 'Said that it was only from 0 to 36'
-		gt 'rate'
-	end
-
-	gt 'result'
-end
-
-act 'Nothing':gt 'amrul'
-
---- rate ---------------------------------
-

locations/result.qsrc

@@ -1,182 +0,0 @@
-# result
-cla
-clr
-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>'
-''
-'The ball stopped 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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		end
-
-	elseif chnch = 2:
-		chnch = 0
-
-		if x_rul mod 2 = 1:
-			act 'You have won <<2 * st_1>>':
-				money += 2 * st_1
-				gt 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		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 'amrul'
-			end
-		else
-			act 'You lost':gt 'amrul'
-		end
-	end
-
-
-elseif chi ! 100:
-	if chi = x_rul:
-		act 'You have won <<37 * st_1>>':
-			money += 37 * st_1
-			gt 'amrul'
-		end
-	else
-		act 'You lost':gt 'amrul'
-	end
-end
-
---- result ---------------------------------
-

locations/rolanapt.qsrc

@@ -54,7 +54,7 @@ if $ARGS[0] = 'hallway':
 	menu_off = 1
 	killvar '$locclass'
 	gs 'stat'
-	!gs 'rolanapt' , 'rolanroute'
+	gs 'rolanapt' , 'rolanroute'
 	'<center><h4><font color="maroon">Entrance hall</font></h4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/hallway.jpg"></center>'
 	if RolanLoc[hour] = 0:
@@ -497,8 +497,8 @@ if $ARGS[0] = 'grandmaroom':
 
 	act 'Leave the room': gt 'rolanapt','hallway'
 
-	if RolanLoc[hour] = 6: 'Rolan is here.'
-
+	if RolanLoc[hour] = 6: 
+		'Rolan is here.'
 		if rolanworker = 4 and rolanknow = 1:
 			act 'Talk to Rolan':
 				*clr & cla

locations/roulette.qsrc

@@ -1,13 +0,0 @@
-# roulette
-clr
-minut += 10
-gs 'stat'
-'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/ruletka.jpg"></right>'
-'You came to the table with American roulette.'
-
-act 'Approach to the dealer':gt 'croupier'
-act 'Play':gt 'amrul'
-act 'Back in the hall':gt 'hall'
-
---- roulette ---------------------------------
-

locations/saloon.qsrc

@@ -1,5 +0,0 @@
-# saloon
-act 'Back in the hall':gt 'hall'
-
---- saloon ---------------------------------
-