Browse Source

[merged] Dancewhore1 - Dancewhore8 into AlbStarsWhore
[merged] amrul, blackjackPlay, blackjackView, cards, croupier, croupier2, hall, igravt, igrkart2, kazvar, rate, result, roulette into casino
[deleted] all merged files and unused file saloon

julzor 6 years ago
parent
commit
91d829751b

+ 1 - 26
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,13 @@
 	<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 +1035,6 @@
 	</Folder>
 	<Folder name="Deck of cards">
 		<Location name="card"/>
-		<Location name="blackjack"/>
 	</Folder>
 	<Folder name="Hotel">
 		<Location name="HotelHole"/>

+ 1019 - 0
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 ---------------------------------
+

+ 0 - 132
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 ---------------------------------
-

+ 0 - 140
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 ---------------------------------
-

+ 0 - 128
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 ---------------------------------
-

+ 0 - 140
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 ---------------------------------
-

+ 0 - 96
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 ---------------------------------
-

+ 0 - 143
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 ---------------------------------
-

+ 0 - 157
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 ---------------------------------
-

+ 0 - 113
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 ---------------------------------
-

+ 1 - 1
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'

+ 0 - 37
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 ---------------------------------
-

+ 0 - 36
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 ---------------------------------
-

+ 0 - 275
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 ---------------------------------
-

+ 0 - 79
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 ---------------------------------
-

+ 0 - 1
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 ---------------------------------
 

+ 0 - 58
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 ---------------------------------
-

+ 1070 - 10
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 ---------------------------------
 

+ 0 - 28
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 ---------------------------------
-

+ 0 - 32
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 ---------------------------------
-

+ 8 - 8
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

+ 0 - 16
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 ---------------------------------
-

+ 2 - 1
locations/hotel.qsrc

@@ -30,9 +30,10 @@ if tobiQW = 2001:
 	end
 end
 
+act 'Leave': minut += 5 & gt 'down'
 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 ---------------------------------
 

+ 0 - 18
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 ---------------------------------
-

+ 0 - 187
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 ---------------------------------
-

+ 0 - 14
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 ---------------------------------
-

+ 0 - 100
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 ---------------------------------
-

+ 0 - 182
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 ---------------------------------
-

+ 0 - 13
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 ---------------------------------
-

+ 0 - 5
locations/saloon.qsrc

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