glife/locations/qwBarBilliard.qsrc

# qwBarBilliard

$location_type = 'event'
gs 'themes', 'indoors'
menu_off = 1

if $ARGS[0] = 'billiard_engine':
	cla
	if pcs_pool < 10:
		billwin = rand(0, 10)
	elseif pcs_pool >= 10 and pcs_pool < 20:
		billwin = rand(0, 12)
	elseif pcs_pool >= 20 and pcs_pool < 30:
		billwin = rand(0, 14)
	elseif pcs_pool >= 30 and pcs_pool < 40:
		billwin = rand(0, 16)
	elseif pcs_pool >= 40 and pcs_pool < 50:
		billwin = rand(0, 18)
	elseif pcs_pool >= 50 and pcs_pool < 60:
		billwin = rand(0, 20)
	elseif pcs_pool >= 60 and pcs_pool < 70:
		billwin = rand(0, 22)
	elseif pcs_pool >= 70 and pcs_pool < 80:
		billwin = rand(0, 24)
	elseif pcs_pool >= 80 and pcs_pool < 90:
		billwin = rand(0, 26)
	elseif pcs_pool >= 90 and pcs_pool < 100:
		billwin = rand(0, 28)
	elseif pcs_pool >= 100:
		billwin = rand(0, 30)
	end
end

!!OPTION FOR SVETA TO GIVE HIM A BLOWJOB AFTER SHE WINS - SHE GETS TO KEEP THE MONEY AND HE GETS WHAT HE WANTS - BOTH WALK AWAY HAPPY
!What does she get out of that, though?

!Find (better) pictures for scenes?

if $ARGS[0] = 'billiard_ev1':
	if billiard_ev_var = 1:
		if billwin > 16:
			act 'Win':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolw.jpg"></center>'
				gs 'exp_gain', 'pool', rand(2,5)
				money += 2500
				killvar 'billiard_ev_var'
				minut += 30
				gs 'stat'
				'He comes out strong and plays really well, but you play just a tiny bit better and manage to win the round by a hair.'
				*nl
				'He seems completely surprised by the fact that you beat him but still congratulates you.'
				'"How about a rematch?" You tease, to which he laughs and shakes his head: "Nah, I think I''ve lost enough money for one day."'
				'You collect your winnings, chat with him for a few more minutes and then part ways.'

				act 'Return to the bar': gt 'qwBarPolet', 'bar'
			end

		else
			act 'Lose':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pooll.jpg"></center>'
				gs 'exp_gain', 'pool', rand(2,5)
				money -= 2500
				killvar 'billiard_ev_var'
				minut += 30
				gs 'stat'
				'He had a strong start, but you caught back up to him, matching him ball for a ball for a while. Towards the end, however, he ran the table with precise shots, not only pocketing his balls but also setting them up in ways that blocked yours. You lost, utterly and completely.'
				*nl
				'He laughs and says you almost had him, pointing out how lucky he got there at the end to beat you, though you''re not quite sure it was as close as he makes it sound.'
				'Still, he offers to play you again for the same amount, so you get a chance to "win your money back."'

				if money >= 2500:
					act 'Play again':
						cla
						*nl
						billiard_ev_var = 1
						'"Alright, let''s play."'
						'You ' + iif(bag > 0,'open your purse','reach into your pocket') + ' and pull out enough money to lay it down on the table. He grins, racks up the balls and lets you break again as he lays his money down on top of yours.'
						gs 'qwBarBilliard', 'billiard_engine'
						gs 'qwBarBilliard', 'billiard_ev1'
					end
				end

				act 'Tell him you don''t have that kind of money':
					cla
					PBB_Met = 2
					*nl
					'You shrug slightly and tell him you don''t have that much money on you. He nods in understanding, then looks around a bit before leaning in close. "We can play for something else, you know..."'
					'You look at him suspiciously. "Like what?"'
					'He gives you a relaxed, friendly smile. "If you win, you get the money. And if I win, you give me a blowjob. Sound fair?"'

					!!if fame['city_slut'] < 75 and (pcs_dom >= 20 or (pcs_inhib < 40 and alko < 5) or pcs_horny < 30):
					if fame['city_slut'] < 75:
						gs 'willpower', 'bj', 'resist'
						if will_cost <= pcs_willpwr:
							act 'Not that kind of girl (<<will_cost>> Willpower)':
								cla
								*nl
								gs 'willpower', 'pay', 'resist'
								'You shake your head and glare at him.'
								'"Do I look like some sort of cheap whore to you?"'
								'You don''t even give him time to respond - you simply turn on your heel and walk back to the main room.'

								act 'Return to the bar': gt 'qwBarPolet', 'bar'
							end
						else
							act 'Not that kind of girl (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
					end

					act 'I don''t think so':
						cla
						*nl
						'The thought of making a wager that might end up with you sucking some random guy''s cock doesn''t really bother you in and of itself, but you are not really interest in it either.'
						*nl
						'Deciding against it, you tell him: "I think I''ll pass today. Thank you for the drink and the game, though."'
						'He seems to notice that you don''t seem angry or even put off, so he smiles and simply says "See you around" before you leave.'

						act 'Return to the bar': gt 'qwBarPolet', 'bar'
					end
					if pcs_inhib >= 20:
						act 'You''re on':
							cla & *clr
							*nl
							'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pool2.jpg"></center>'
							billiard_ev_var = 2
							'<i>I can take him</i>, you think to yourself, <i>and even if I can''t, it''s just a blowjob.</i>'
							'With that in mind, you nod your head and tell him he''s on.'
							gs 'qwBarBilliard', 'billiard_engine'
							gs 'qwBarBilliard', 'billiard_ev1'
						end
					end
				end

				act 'You''ve played enough':
					cla
					*nl
					'You shake your head no.'
					'"I think I''ve lost enough money, and I should probably get going anyway."'
					'"Sounds reasonable," he concurs, "but remember, luck is fickle: My luck can run out any moment."'
					'"Then maybe it''ll run out next time. Thank you for the drink and the... expensive company." With that, you return to the main room.'

					act 'Return to the bar': gt 'qwBarPolet', 'bar'
				end
			end
		end

	elseif billiard_ev_var = 2:
		if billwin > 16:
			act 'Win':
				*clr & cla
				gs 'exp_gain', 'pool', rand(2,5)
				money += 2500
				killvar 'billiard_ev_var'
				minut += 30
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolw.jpg"></center>'
				'He comes out strong and plays really well, but you play just a tiny bit better and manage to win the round by a hair.'
				*nl
				'He seems completely surprised by the fact that you beat him but still congratulates you.'
				'"How about a rematch?" You tease, to which he laughs and shakes his head: "Nah, I think I''ve lost enough money for one day."'
				'You collect your winnings, chat with him for a few more minutes and then part ways.'

				act 'Return to the bar': gt 'qwBarPolet', 'bar'
			end

		else
			act 'Lose':
				*clr & cla
				gs 'exp_gain', 'pool', rand(2,5)
				killvar 'billiard_ev_var'
				minut += 30
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pooll.jpg"></center>'
				'He is good - really good. In fact, you think he has been holding back a bit until now: He rarely misses a shot, sets up obstacles for you, and before long, he has won the game.'
				*nl
				'"Guess I''m getting that blowjob," he says with a smug smile.'
				'You made that bet willingly but you are getting the distinct feeling that he hustled you...'

				act 'Refuse':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolr.jpg"></center>'
					'You shake your head. "I''m not sucking your dick. You scammed me."'
					'You turn to walk off, but his eyes flash with anger and he grabs your arm. "You''re not going anywhere. You made a bet, sweetheart, and you lost, so pay up."'
					'"Let me go!"'
					*nl
					'You try and jerk free but you can''t, he is much stronger than he looks. Things get a little heated and you both get louder, but before things can escalate, Martin, with his uncanny ability to appear wherever he''s needed, walks in.'
					'"You two need to calm down. What''s going on?" He asks, his tone calm but abrasive.'
					'The guy speaks quickly before you can even get a word in: "We made a bet and now she is refusing to pay up."'
					'Martin nods and then looks to you, letting you have your say, so you tell him: "He hustled me and now he wants me to give him a blowjob for losing."'
					'The guy snorts indignantly and almost yells: "That''s what you bet! You sure as hell would have taken my money if I had lost!"'
					*nl
					'Before the two of you can start shouting at each other again, the bartender raises his hands to silence the both of you, then turns towards you and asks, "Is it true? Did you bet a blowjob against his money?"'
					'You lower your head to avoid his gaze - not because he would have glared at you but because there was a hint of disappointment in it that you really didn''t want to see.'
					'"Yeah, I did," you confess quietly.'
					'"Alright." Martin pauses for a second. "Leave."'

					if npc_rel['A216'] < 20 or MartinLie = 1:
					!!WHEN WOULD HE THROW SVETA OUT?
					!SHOULD MartinLie GET KILLED AT SOME POINT?
						cla
						*nl
						npc_rel['A216'] -= 1
						'You look up and see Martin''s eyes rest on you. "Leave, now."'
						'"But-"'
						'"What about my payout?" The guy protests, but Martin doesn''t turn to him. That doesn''t diminish his threat, though:'
						'"You shut your mouth or I swear I will stuff it with those pool balls! <<$pcs_firstname>>, go."'
						*nl
						'Not wanting to make him say it once more, you quickly turn and walk towards the exit. Something about the disappointment you saw in Martin''s eyes doesn''t sit well with you, though. You got out of giving that blowjob, but you''re half-wondering if it hadn''t been better to give so you didn''t have to admit to Martin that you had taken that bet.'
						if MartinLie = 1:
							'It seems that, after having lied to him before, he''s got a short fuse for when you''re behaving inappropriately in the bar.'
						end

						act 'Leave the bar': gt 'city_industrial'

					else
						cla
						npc_rel['A216'] -= 2
						*nl
						'You look up and expect to see Martin''s face, but instead all you see is his shoulder - his eyes are resting on your pool partner who looks back and forth between the two of you incredulously.'
						*nl
						'"You''ve gotta be kidding me."'
						'"I''m not. Get out of my bar," Martin insists.'
						'"I''m the one who''s getting screwed here!" The guy yells.'
						'"Oh please, do you really think I don''t notice how you chat up anybody who looks like they might not know how to play? Your con may not be the kind the militia would go for but you are lucky I even let you back in here to begin with."'
						'The guy seems to want to retort, but Martin cuts him off: "So unless you want to find another place to hang out, I suggest you get lost. Now."'
						*nl
						'He glares at Martin, then at you, but then angrily grabs his money from the pool table and walks out.'
						'"Thank you, Mart-"'
						'"<<$pcs_firstname>>," he cuts you off, "why the fuck would you offer a blowjob as a wager?"'
						'"I didn''t! He... suggested it."'
						'"And you went for it. You took him up on his offer, for what? For some money?"'
						'"I-"'
						'"If I offered you money right now," he cuts you off again, "would you get down on your knees and blow me? Huh?!"'
						*nl

						if MartinSex = 0:
							'His words hit you surprisingly hard. You''re not sure if you want to slap him, walk off, or break into tears. Before you can decide, you feel his calloused hand at your chin, forcing you to raise your head and meet his eyes.'
							'"There are things you shouldn''t do for money. You''re not easy, coraz󮬠so don''t make yourself cheap."'
							'And with that, Martin walks off, leaving you to contemplate his words and his concern for you.'

							act 'Return to the bar': gt 'qwBarPolet', 'bar'

						else
							npc_rel['A216'] -= 1
							!!'"You don''t have to offer me money for that," you say ' + iif(pcs_dom<20,'shyly','confidently') + ' and put your hand on his crotch.'
							!!sub/dom dialog needs fixing
							'"You don''t have to offer me money for that," you say and put your hand on his crotch.'
							'"I know that. But," he seems to be having trouble focusing on what he wants to say, "<<$pcs_firstname>>, not here, not now."'
							'For a moment, you wonder how far he would go. Reluctant as he is, you doubt that he''d go as far as screwing you over the billiard table while there are people in the bar. He seems to be on the verge of agreeing to a blowjob, though, if you are bold or horny enough to push him...'

							act 'Back off':
								cla
								npc_rel['A216'] += 1
								'You not and remove your hand from his swelling cock.'
								'"Okay, if that''s what you want."'
								iif(pcs_inhib<30,'You are secretly relieved that he didn''t agree, cause you''re not sure you could have actually gone through with blowing him in public like this, without a lost bet to force your hand.','') + 'He seems ' + iif(pcs_inhib<30,'just as ','') + 'relieved that you backed off - judging by how quickly he got hard, he probably wouldn''t have said no a second time.'
								'"It''s better this way. But maybe we could continue after closing time?"'
								'"I''ll see what I can do," you say noncommittally, give him a smile and leave him to calm down.'

								act 'Return to the bar': gt 'qwBarPolet', 'bar'
							end

							!!sub/dom dialog needs fixing: action name depends on pcs_dom
							!!if pcs_dom >= 30 and exhibitionist_lvl > 1:
								!!$martinpos = 'But I want to'
							!!elseif pcs_horny >= 80 and pcs_inhib >= 30:
								!!$martinpos = 'I''ll do it if you want me to'
							!!end
							$martinpos = 'I''ll do it if you want me to'

							gs 'willpower', 'bj', 'self'
							!!if (pcs_horny >= 80 and exhibitionist_lvl > 0) or (pcs_dom >= 30 and exhibitionist_lvl > 1):
							if will_cost <= pcs_willpwr:
								act '<<$martinpos>> (<<will_cost>> Willpower)':
									*clr & cla
									gs 'willpower', 'pay', 'self'
									'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolm1.jpg"></center>'
									gs 'boyStat', 'A216'
									npc_rel['A216'] += 1

									if pcs_horny >= 80 and exhibitionist_lvl > 0:
										'"Oh, I think you <b>do</b> want it here and now," you say coyly as you unbutton Martin''s pants, "and I want to, too." You can see him tense, see that he is torn between his own rules and his lust for you, but in that moment your hand reaches into his underpants and your fingers close around his impressive length, the battle is over.'
									else
										'"Are you sure? I would do it if you asked me to."'
										'The truth is that, as much as you want to push him, you want him to give you that tiny little nudge you need to overcome your own reluctance. And he gives it:'
									end
									'"Then do it. Suck my dick."'
									*nl
									!!sub/dom dialog needs fixing
									!!'Smiling ' + iif(pcs_dom>=30,'seductively','shyly') + ', you get down on your knees, pulling his pants down as you go. You know full well that there''s a room''s worth of potential audience waiting on the other side of the curtain, so you don''t waste any time: After a single teasing lick around the tip of his cock, you ' + iif(pcs_hairlng>81,'brush a particularly annoying strand of your <<$pc_descWordy['hair length']>> out of your face','fish a rogue hair out of your mouth') + ' and take his <<dick>>cm <<$dick_girth>> dick into your mouth.'
									'Smiling, you get down on your knees, pulling his pants down as you go. You know full well that there''s a room''s worth of potential audience waiting on the other side of the curtain, so you don''t waste any time: After a single teasing lick around the tip of his cock, you ' + iif(pcs_hairlng>81,'brush a particularly annoying strand of your <<$pc_descWordy[''hair length'']>> out of your face','fish a rogue hair out of your mouth') + ' and take his <<dick>>cm <<$dick_girth>> dick into your mouth.'
									'You bob your head '+ iif(stat['bj']>20,'confidently','reluctantly, still trying to figure blowjobs out') + iif(stat['bj']>40,' and with wild abandon','') + ' and run your <<$pc_desc[''tongue'']>> tongue around it to stimulate him as much as you can.'
									*nl
									'You''re not sure if the prospect of getting caught here with a cock in your mouth terrifies or excites you more, but you don''t really feel the need to find out which it is.'
									$orgasm_txt = 'But you do anyway: It''s the latter. As you unconsciously knead your <<$pc_desc[''breast'']>> breasts through your top, the heat between your legs grows and spreads to your belly. You moan around Martin''s cock as the orgasm overcomes you. You don''t have to look up to see the self-satisfied expression on Martin''s face when he realizes that you came from sucking his cock...'
									gs 'arousal', 'bj', 5, 'exhibitionism'
									gs 'stat'
									killvar '$martinpos'

									act 'Make Martin come':
										*clr & cla
										'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolm2.jpg"></center>'
										'You are giving Martin the best blowjob you can, working him over with your mouth, tongue and hand to make him shoot his load quickly. And you seem to be doing something right, cause Martin is starting to tense.'
										'As Martin groans quietly, moments away from climax, you become acutely aware of the heat between your legs. The forbidden nature of what you''re doing apparently isn''t lost on your pussy, regardless of whether your conscious mind is turned on or scared.'
										*nl
										'Finally, your latin lover bends his head back as he empties his sperm into your mouth. You double your efforts, licking and sucking even harder.'
										$orgasm_txt = 'Or at least you try: You moan around Martin''s cock when the first jet of his ' + iif(pcs_traits['cumeater']=1,'tasty ','') + 'cum lands on your tongue and pushes you over the edge, making it difficult to focus on his pleasure. You think you manage quite well, but you don''t have to look up to see the self-satisfied expression on Martin''s face when he realizes that you came from sucking his cock - from him cumming in your mouth, in fact.'
										gs 'arousal', 'bj', 2, 'exhibitionism'
										gs 'stat'
										gs 'cum_call', 'mouth', $boy, 1
										*nl
										'When his orgasm subsides, you audibly swallow Martin''s ' + iif(pcs_traits['cumeater']=1,'delicious ','') + 'load and show him your clean tongue. The barkeeper smiles at how ' + iif(pcs_dom>=30,'bold','shy') + ' you are about this gesture.'
										'After that, you quickly return to reality when the sound of breaking glass reminds you of the bar behind the curtain. Martin zips his pants back up and you barely have time to get up on your feet when two guys pull the veil aside, looking to play a game of billiards.'
										*nl
										'They seem just as surprised as you to see each other, but they just give Martin a friendly "hello" before the two of you leave. As Martin strides towards the source of the noise you heard, you stay back long enough to hear the guys at the pool table break into wild speculations.'
										*nl
										'That was definitely an experience...'
										$orgasm_txt = ''
										gs 'arousal', 'end'
										gs 'stat'

										act 'Return to the bar':gt 'qwBarPolet'
									end
								end
							else
								act '<<$martinpos>> (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end
						end
					end
				end

				act 'Pay up':
					cla
					*clr
					'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poold1.jpg"></center>'
					gs 'npcgeneratec', 0, 'stranger', rand(18,35)
					gs 'boyStat', $npclastgenerated
					'Well, a bet is a bet. If you weren''t willing to do it, you shouldn''t have made the bet. At least that''s what''s going through your head as you get down on your knees in front of him. Even being in a separate room and hidden from sight, the fact that everything that''s between you and a whole bar full of people is a fluttering curtain ' + iif(exhibitionist_lvl < 1,'terrifies','excites') + ' you.'
					'He has his pants unbuttoned in about two seconds and out comes his cock, standing at attention already and revealing his eagerness and anticipation.'
					*nl
					'You quickly take it into your mouth and start sucking it for all you are worth, looking to get this over with as quickly as you can. You use your hands to caress his shaft and fondle his balls as you suck his dick, and while could imagine yourself doing more pleasant things, the fact that you are blowing a stranger in public does have a slight effect on you.'
					gs 'arousal', 'bj', 5, 'sub', 'exhibitionism'
					gs 'stat'

					act 'Payoff':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poold2.jpg"></center>'
						'It feels like you''ve only just started when you hear him give a suppressed grunt. You barely manage to open your mouth and pull away as he shoots his load of cum all over your face and into your mouth. He looks down at you as he tucks his dick away.'
						*nl
						'"Pleasure doing business with you sweetheart, maybe we can do it again sometime. And I hope you enjoy your... consolation price."'
						'With a fat grin on his face, he walks off, whistling and very pleased with himself, leaving you covered in cum.'
						'Maybe billiards just isn''t for you.'
						gs 'arousal', 'end'
						spafinloc = 11
						gs 'cum_manage'
						spafinloc = 12
						gs 'cum_manage'
						gs 'stat'

						act 'Return to the bar': gt 'qwBarPolet', 'bar'
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'billiard_ev2':
	cla
	*clr
	if bill_rand = 0:
		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolvicart.jpg"></center>'
		'You enter the backroom. As soon as you set foot inside, Jaska''s friends immediately turn their heads and give you broad grins.'
		if Jaska_Friend_Bill = 0:
			'"What do we have here? A pretty girl looking to play with us?" Asks one of them'
			'The other seems to recognize you: "Aren''t you the girl we saw with Jaska the other night?"'
			'"Yeah, I guess," you shrug. "Where is he, anyway?"'
			'"Probably losing more money against people who are better than him," the first one muses and both chuckle. "Are you looking for him?"'
			'"Not specifically. Just want to play some billiards, so I thought, why not play with you?"'
			'"If you wanna learn how to play to win, you came to the right people. We''ll go easy on you."'
			*nl
			'You notice how blatantly the other one checks you out but you ignore it as best you can.'

			act 'Play a round':
				*clr & cla
				minut += 20
				gs 'exp_gain', 'pool', rand(3,5)
				pcs_mood += rand(5,15)
				Jaska_Friend_Bill = 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pool2.jpg"></center>'
				'Time flies when you''re having fun and, as sleazy as the two - they introduce themselves as Artyom and Victor - come across, they are pretty decent company once you get used to their bawdy comments.'
				'The game ends up being quite close as you take shots on your own while they play together. You end up winning closely.'
				*nl
				'"Great shots there at the end," Victor admits.'
				'"I do what I can", you humblebrag as you lean the billiard cue against the table. "It''s been fun though."'
				'"Yeah," Artyom agrees. After the briefest of pauses and quick exchange of glances between the two, he continues: "How about we make it even more fun?"'
				'The grin they have on their faces reminds you of how they looked at Jaska. "What are you thinking?"'
				'"How about a little wager?" Victor suggests, tellingly aware of what his friend had in mind. "Nothing too insane... Maybe 500 <b>₽</b> each, winner takes all?"'

				if money >= 500:
					act 'Sure, let''s play':
						*clr & cla
						minut += 20
						gs 'exp_gain', 'pool', rand(3,5)
						pcs_mood += rand(15,25)
						money += 1000
						gs 'stat'
						'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/pool/pool4.mp4"></center>'
						'"Sure, I''m game if you are." You rummage through your ' + iif(bag>0,'purse','pocket') + ' and put a couple of bills on the table. Your two opponents quickly follow suit and set up the game.'
						*nl
						'The following game is close and it''s clear that Artyom and Victor are very skilled players, but Victor fumbles a shot or two towards the end of the game, which greatly upsets Artyom, and his mistakes are enough to bring you victory.'
						'"You won, fair and square," Victor admits and hands you your winnings.'
						'"Thanks. I got lucky, though. I can''t believe you missed those shots at the end."'
						'"Me neither," Artyom agrees bitterly.'
						'Victor gives him a stern look, then leans in and says quietly: "Don''t mind Artyom. He''s a sore loser, even though we''ve been playing for ages. It just doesn''t happen very often that we come across somebody who''s as good as you."'
						*nl
						'You smile at the compliment and the extra money in your hand. If they play like that every time, you should come here often for easy money.'
						'But you don''t say that out loud, of course. You just tell them that you should get going and that you''ll see them around.'
						'"We''ll be here for you," Victor promises as you turn to the curtain.'

						act 'Return to the bar': gt 'qwBarPolet', 'bar'
					end

				elseif money <= 500:
					act 'Sounds fun - I''m broke, though':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolvicart.jpg"></center>'
						'"Sounds like fun... but I don''t have that kind of money on me", you admit.'
						'Victor gives you a surprised look. "Oh? Well, that''s a pity."'
						'Artyom nods gravely. "Shame. You play a lot better than Jaska. Would have been fun to actually be challenged for once."'
						'"Yeah, well, can''t be helped," you shrug.'
						*nl
						'"Well," Artyom begins, "maybe we could-"'
						'"Maybe next time," Victor cuts him off. "Want to play another round without a wager?"'

						act 'Sure, let''s play':
							*clr & cla
							minut += 20
							gs 'exp_gain', 'pool', rand(3,5)
							pcs_mood += rand(5,15)
							gs 'stat'
							'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/pool/pool4.mp4"></center>'
							'You agree to play another friendly match. You cannot help but notice the scowl on Artyom''s face, and it seems to have very little to do with the fact that you are, once again, coming out ahead at the end.'
							'Victor once again applauds your skill while Artyom merely gives you an acknowledging nod. Victor seems annoyed at his friend''s bad mood but doesn''t let it keep himself from having a friendly chat with you for a few minutes.'
							'"You know where to find us if you wanna play," Victor emphasizes as you give them your goodbye.'

							act 'Return to the bar': gt 'qwBarPolet', 'bar'
						end

						act 'No thanks':
							cla
							*nl
							'"No, I should probably get going."'
							'Victor gives you a friendly pat on the shoulder. "Alright, take care."'
							'As you walk out, you cannot help but notice the scowl on Artyom''s face. It''s not directed at you but at Victor. Looks like they had slightly different ideas of what was supposed to happen...'

							act 'Return to the bar': gt 'qwBarPolet', 'bar'
						end
					end
				end

				act 'I don''t think so':
					cla
					'"Nah, I think one game was enough for the night," you decide. "Maybe another time?"'
					'Artyom looks like he wants to say something, but Victor quickly interjects: "Sure, another time. You know where to find us. We''re always happy to have you."'
					'"See you later," you bid them farewell and return to the main room.'

					act 'Return to the bar': gt 'qwBarPolet', 'bar'
				end
			end

		elseif Jaska_Friend_Bill = 1:
			'"Well, look what the cat dragged in. Good to see you, <<$pcs_firstname>>," Victor greets you.'
			'"You too. Are you guys busy?"'
			'"Nah, this game was pretty boring," Artyom declares.'
			'Victor leans in a little closer. "Of course he''d say that. He was losing."'
			'"I heard you," Artyom informs him.'
			'"I know. You were meant to." Victor turns to you. "So, ready to play?"'
			'"Sure, let''s do it."'
			'"Hold on," Artyom interjects. "Are we playing for money? Cause Victor and I were and you interrupted our game."'
			*nl
			'You don''t see any cash on the table, but that doesn''t have to mean anything. "How much were you playing for?"'
			'"1000 <b>₽</b> each."'

			act 'I don''t wanna play for that much':
				cla
				'"I don''t think I wanna play for that much tonight," you declare.'
				'"Oh," Victor makes, disappointed. "Well, in that case, you are welcome to watch as I take Artyom to the cleaners."'
				'"Yeah, right, as if," Artyom retorts.'
				'"Sounds like fun, but I think I better get going. I don''t wanna be blamed if either of you loses," you joke.'
				'"Alright, see you later," they tell you as you return to the main room.'

				act 'Return to the bar': gt 'qwBarPolet', 'bar'
			end

			act 'Sounds fun - I''m almost broke, though': gt 'VicArt_Billiard', 'VicArt_Ev1_Broke'

			if money >= 1000: act 'Sure, let''s play (for cash)': gt 'VicArt_Billiard', 'VicArt_Ev1_Cash'

		!!if Sveta has stripped for them before [PlayVariable = 2], has masturbated [PlayVariable = 3] but hasn''t yet given them a blowjob [PlayVariable = 4]
		elseif Jaska_Friend_Bill <= 3:
			''
			'Artyom and Victor'

			!Artyom and Victor need fixed stats?
			!Styled after Erik and ???, two Russian/Czech? porn actors:
			!Erick Lewis as Victor, dark-skinned, charming, composed - https://de.pornhub.com/pornstar/erick-lewis http://wtfpass.com/models/eric-cfst30/2/
			!Maxim (or anybody else - Edik?) as Artyom, fair-skinned, a little more brutish and lecherous - http://wtfpass.com/models/maxim-2/

			!Sex progression? first strip teases, masturbation, then handjobs/blowjobs, sex, anal, DP - dependent on pcs_exhib - caught in a specific act (blowjob? sex?) - each act is worth more
			!Small scene variants where she only blows one of them, only has sex with one of them etc.


		!!if Sveta has been caught by Martin during the blowjob [PlayVariable = 4] and every subsequent sex act
		elseif Jaska_Friend_Bill >= 4:

		end

!Separate location to handle all sex interactions with them after Jaska_Friend_Bill = 4?

	elseif bill_rand > 2:
		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pool3.jpg"></center>'
		'You enter the backroom. The group of three inside turn to greet you and you strike up a conversation with them as they finish the round they''ve been playing.'
		if bill_rand > 3:
			'You notice a small pile of bills sitting on the edge of the table. It''s no fortune by any stretch but these guys seem to enjoy a little wager.'
		end
		*nl
		'As they set up a new one, they invite you to play with them.'

		if money >= 250:
			act 'Suggest playing for money (250 <b>₽</b>)':
				cla
				*nl
				'"How about we make this more interesting?" You suggest. "We could play for money. Maybe like 250 <b>₽</b> each?"'

				if bill_rand > 3:
					if pcs_pool >= 60: temp = rand(1,4)
					if temp = 1:
						'One of them shakes their head. "I don''t think so. I know you. You play way too well."'
						'"Yeah, I don''t think I wanna play for money with you either," another one agrees.'
						'"Suit yourselves," you shrug and turn to leave. Pity.'

						act 'Return to the bar': gt 'qwBarPolet', 'bar'
					else
						money -= 250
						gs 'stat'
						'"Sure," one of them agrees and his friends nod, "we can do another match for cash."'
						'Without further ado, they set up the table again.'

						act 'Play to win': gt 'qwBarBilliard','billiard_money'
					end

				else
					'Your suggestion seems to be making them really uncomfortable.'
					'"It''s been a long day," one of them explains, "and I don''t think any of us are really up for a wager tonight, even if it''s a small one. We''d rather just have a good time, no risk involved."'

					act 'Have a friendly match instead':
						cla & *clr
						gs 'exp_gain', 'pool', rand(1,4)
						pcs_mood += rand(5,15)
						minut += 30
						temp = rand(1,4)
						gs 'stat'
						'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/pool/pool4.mp4"></center>'
						'You agree to playing a friendly match instead, though you have to admit you would have liked to maybe make a little money this way.'
						*nl
						gs 'qwBarBilliard','billiard_friendly'
					end

					act 'Sounds boring - Return to the bar': gt 'qwbarPolet'
				end
			end
		end

		act 'Suggest a friendly match':
			*clr & cla
			gs 'exp_gain', 'pool', rand(1,4)
			pcs_mood += rand(5,15)
			minut += 30
			temp = rand(1,4)
			gs 'stat'
			'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/pool/pool4.mp4"></center>'
			'You suggest playing a friendly match and they agree to keep money out of this.'
			*nl
			gs 'qwBarBilliard','billiard_friendly'
		end
	end
end

if $ARGS[0] = 'billiard_friendly':
	if temp <= 2:
		'The following match is slow but enjoyable, thanks to the cheerful conversation you are having with the guys as you wait for whoever''s turn it is to take their shot.'
		if temp = 1:
			gs 'exp_gain', 'pool', rand(1,4)
			'But you and the guys end up trying to do trick-shots to impress each other. Most of them fail spectacularly but those that work are quite impressive.'
		else
			'As it turns out, the guys are pretty terrible at billiards. You don''t exactly play like a champ yourself but their shots are remarkably badly aimed. That would have been a great boost in confidence if you didn''t catch two of them staring at your ass as you bent over for your final shot - maybe they were just distracted?'
		end

	else
		'The match is friendly and remains close until the end. It''s one of those games that starts off friendly but gets more tense and engaging as you take turns.'
		if temp = 3:
			pcs_mood += 5
			'Which makes it even more satisfying when your opponents miss their final shot and you end up winning by a hair.'
		else
			pcs_mood -= 5
			'Which makes it a little frustrating when your opponents perfectly aim their final shot and win, your own victory just one shot away. That''s what you get for feeling competitive.'
		end
	end
	'Either way, it was great fun and you quite enjoyed playing.'
	*nl
	'Another small group of people enters the backroom just as you and your newfound acquaintances finish up. With a few friendly words, you return to the main room and part ways.'

	act 'Return to the bar': gt 'qwBarPolet', 'bar'
end

if $ARGS[0] = 'billiard_money':
	*clr & cla
	gs 'exp_gain', 'pool', rand(1,4)
	minut += 30
	'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/pool/pool4.mp4"></center>'
	'You give it your best shot. True, there''s not a lot of money riding on this, but losing money is never fun.'
	*nl
	gs 'qwBarBilliard', 'billiard_engine'

	if billwin >= 8:
		money += 500
		pcs_mood += rand(5,20)
		'Lady Luck seems to be smiling on you tonight - you end up ' + iif(pcs_pool>50,'comfortably','closely') + ' winning the game.'
		'Your opponents look disappointed but remain friendly as they hand over your winnings.'
		'Understandably, they don''t feel like playing another round, so you all return to the main room together. Still, 500 <b>₽</b> isn''t a bad turnout for half an hour''s work.'
	else
		pcs_mood -= rand(5,20)
		'Luck really wasn''t on your side this time: You ' + iif(pcs_pool>50,'give them a run for their money but end up fumbling several critical shots','are getting absolutely destroyed by them') + ' and have to admit defeat.'
		'You commend them for their skill as you hand over the cash, since you don''t wanna be a sore loser, but you don''t really feel like playing another round with them.'
		'Since they also have to leave, you return to the main room with them where you part ways, 250 <b>₽</b> poorer than half an hour ago.'
	end

	gs 'stat'

	act 'Return to the bar': gt 'qwBarPolet', 'bar'
end

--- qwBarBilliard ---------------------------------