glife/locations/qwBarEncounters.qsrc

# qwBarEncounters

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


!Scene ideas:
! - Bar Threesome Dream

!An event chain where some random guy pays for Svetas drink, with multiple outcomes:
!- Not interested and nothing happens;
!- Not interested and rape (but Martin steps in);
!- Roofied (but Martin steps in);
!- Drunk sex somewhere else;
!- Drunk sex on the toilet;
!- Pleasant banter and potential boyfriend;

!IDEAS FOR SCENES:
!You have an over protective barman so realistically the sex is either with him or off the premises.
!Being the industrial area at night then there are going to be quiet streets or car parks for the sexy-times and if its a nicer guy there''s a hotel above the casino.
!You can have it not unlike the dance in Pav with guys asking Sveta if she wants to ''step out'' with them (you could have it as a way for Sveta to earn so ''tips'' but the BBQ in the same area does that probably not).
!Throw in a couple looking to spice things up (hotel for sure), some guys looking for a slut to use and a woman looking for some lesbian company and you''ve covered all bases.



!!Check *clr & cla... Adjust pictures etc.



if $ARGS[0] = '':
	!Enc_Rand ALWAYS NEEDS TO BE ADJUSTED FOR NEW EVENTS!!!
	Enc_Rand = rand(1,2)

	if Enc_Rand = 1 and Jaska_Ev = 0:
		*clr
		cla
		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/billiard_1.jpg"></center>'
		minut += 5
		'While you''re sitting idly at the counter, drink in hand, you take a look around the room. After a moment, your attention is pulled to three guys playing pool. Two of them look to be in their mid to late 30s, while the third looks to be in his early 20s. They’re all dressed casually albeit a bit rough looking.'
		*nl
		'With not much else to do, you settle on watching them play, only mildly interested until you see the younger guy pull out a small wad of cash and reluctantly hand it over to the other two.'
		'It looks like they’re playing for money. Maybe they’ll let you join them?'

		act 'On second thought...':
			cla
			'After a moment, you decide not to join them, and instead go back to your drink. At least that way you can''t lose any money, right?'

			act 'Finish your drink': gt 'qwBarPolet', 'bar'
		end

		act 'Ask them if you can play':
			*clr
			cla
			'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/jaska.jpg"></center>'
			'You make your way over to the three of them just as they’re setting up for another round. "Are you guys playing for money?" you ask.'
			'"Not anymore." One of the older guys laughs, flaunting the wad of cash. "We’re done with this dumbass."'
			'The second one chimes in, "I thought you said you got better, Jaska! You still play like shit, and now you’re broke!" He smirks before looking to you. "You’re late, girl. We cleaned him out," he says with a laugh.'
			'Jaska shakes his head and points his pool cue at them. "Yeah yeah, just fuck off already. Go blow your money on cheap whores and booze, like you always do."'
			*nl
			'You watch in silence as the three of them exchange a few more insults before the two older guys gather their things and finally leave. Jaska grabs his glass and finishes off the last bit of alcohol before making his way over to you. He leans against the pool table and looks you up and down. He’s close enough that you can smell a mixture of alcohol, cigarette and a hint of musk.'
			'"I don’t think I’ve seen you around here before," he says after a moment, "What’s your name?"'
			'"<<$pcs_nickname>>," you tell him.'
			'"Right. Well, I’m Jaska, if you didn’t already know." He laughs ruefully, "So, you ever play pool?" You shake your head and Jaska’s face lights up a bit. "Then how about I teach you," he suggests, not really asking as much as telling you.'

			if pcs_billiard < 10:
				act '"Sounds fun"':
					cla
					*nl
					minut += 60
					gs 'stat'
					Jaska_Ev = 1
					'Jaska smiles and hands you his pool cue. You watch him gather the balls into the triangle and set them up in the middle before grabbing another pool cue off the wall. "Alright, since it’s your first time, I won’t bore you with the technical shit, and keep it simple." He says as he moves behind you, his hand on the small of your back as he gently pushes you closer to the table.'
					'"Like this?" You ask, following his lead. You lean down low to the table and allow yourself to be moved this way and that way by Jaska. Before you know it, an hour has passed and he tells you that you’ve got the basics down, even going as far as to say you could probably beat some of the regulars.'
					*nl
					'"Well, that’s all I got time to teach you," Jaska says, glancing down at his watch. He grabs his worn-out leather jacket and slips it on. "Next time, we’ll play for real!" He says before pausing, "There will be a next, right?"'
					'"Of course. Just make sure you have your wallet ready," you tease. He laughs before saying one last goodbye and walking out the door.'

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

			else
				act 'I already know how to play':
					cla
					*nl
					Jaska_Ev = 1
					minut += 60
					gs 'stat'
					'"I already know to how play," you say with a smile.'
					'Jaska looks a bit surprised, "Oh yeah? Then what are we waiting for, lets play." He says, handing you a pool cue. The two of you spend an hour playing together, and you find that you really enjoy his company, even though he’s absolutely terrible at pool.'
					*nl
					'"No wonder you lost all your money," you tease as you clear the table and beat him again. "How many times have I won now?"'
					'"Don’t get cocky." He says as he playfully pushes you aside so he can set up again. "I’m just going easy on you." He starts to set up, but pauses when he looks at his watch. "Damn."'
					'"What’s wrong?" You ask.'
					'Jaska sighs, "Well, as much as I like being beaten by you, I’ve gotta go." He sets down the pool cue and slips on his worn-out leather jacket. "How about we play again some other time?"'
					'"Just make sure you have your wallet ready," you tease. Jaska laughs before saying one last goodbye and leaving.'

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

	elseif Enc_Rand = 1 and bill_rand ! 3:
		cla
		*nl
		minut += 5

		if PBB_Met = 1:
			'While you are sitting at the bar and enjoying your drink, somebody approaches you - it''s the guy in his mid-twenties you had a drink with earlier. What was his name again?'
			'Before you can even try to remember, he''s already sat down next to you and asks if you wanna chat and have a drink on him.'
		elseif PBB_Met = 2:
			'While you are sitting at the bar and enjoying your drink, somebody approaches you - the pool player who bet money against a blowjob.'
			'For a moment, you expect him to be straightforward about it and ask if you wanna play, but instead, he simply sits down next to you and politely offers to buy you a drink.'
		else
			'While you are sitting at the bar and enjoying your drink, a guy who''s slightly older than you - in his mid- or maybe late twenties - sits down next to you and orders himself a drink. After a few minutes of silently nursing on your respective drinks, he starts chatting you up and offers to buy you a drink.'
		end

		act 'Decline':
			cla
			*nl
			'You shake your head no and decline the offered drink, letting him know you can buy your own. "But thanks anyways."'
			'He doesn''t seem too disappointed though. He remains polite and chats with you for a few more minutes before getting up and leaving you to yourself.'

			act 'Finish your drink': gt 'qwBarPolet', 'bar'
		end



		act 'Accept':
			cla
			if $boozeVar = 'beer':
				gs 'exp_gain', 'agil', rand(0,1)
				gs 'exp_gain', 'react', rand(0,1)
				gs 'drugs', 'alcohol', 'beer'
			elseif $boozeVar = 'vodka':
				gs 'exp_gain', 'stren', rand(0,1)
				gs 'exp_gain', 'vital', rand(0,1)
				gs 'drugs', 'alcohol', 'vodka'
			elseif $boozeVar = 'wine':
				gs 'exp_gain', 'chrsm', rand(0,1)
				gs 'exp_gain', 'prcptn', rand(0,1)
				gs 'drugs', 'alcohol', 'wine'
			elseif $boozeVar = 'spirit':
				gs 'exp_gain', 'intel', rand(0,1)
				gs 'exp_gain', 'sprt', rand(0,1)
				gs 'drugs', 'alcohol', 'vodka'
			end
			minut += 15

			*nl
			PBB_Met = 1
			'You smile at him and accept his offer. He buys you another <<$boozeVar>> and as you nurse on it, the two of you chat some more about everything and nothing.'
			'Eventually he asks you if you would like to go play pool with him.'

			act 'Decline':
				cla
				*nl
				minut += 30
				'You decline the offer with a laugh.'
				'"After the drinks I''ve had, you''d have it too easy", you joke, to which he responds with a broad laughter.'
				'But the two of you sit and talk for another half hour before he says needs to get going.'
				'"I wouldn''t mind seeing you again, though," he smiles before leaving.'

				act 'Finish your drink': gt 'qwBarPolet', 'bar'
			end

			act 'Challenge accepted':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pool1.jpg"></center>'
				minut += 30
				gs 'stat'
				pcs_billiard += rand(1,3)
				'You agree to go play pool with him and he leads you to the side area where the lone pool table sits, deserted and in sore need of use.'
				*nl
				'Your new acquaintance racks up the pool balls and lets you go first.'
				'It ends up being a very close game: He takes the lead for most of it, seemingly effortlessly pocketing one ball after the other, but towards the end he seems to be having trouble even hitting the ones he was aiming for and more than once accidentally sets up easy shots for you. You catch up, take the lead and, with a final good shot, win the game.'
				'He curses his luck and points out that he "almost had you."'
				*nl
				'"Well, it''s not really worth much when you ''almost'' win the lottery or ''almost'' had an orgasm," you say with a grin.'
				'"True," he laughs. "How about you give me a chance to restore my honor? A rematch? And now that we know what we''re up against, we could make it more interesting by playing for money."'
				'"How much were you thinking?", you ask.'
				'"I don''t know... 2,500 <b>₽</b>?"'

				act 'Decline':
					cla
					*nl
					'You shake your head no.'
					'"That''s a lot of money for a friendly match. I think I''m gonna pass. I should get going soon anyway."'
					*nl
					'He seems slightly disappointed but quickly recovers: "Well, it was fun while it lasted."'
					'"Yeah, it was," you agree. "Thank you for the game and the drink."'
					'"See you around," he bids you farewell and you return to the main room.'

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

				if money >= 2500:
					act 'Accept':
						*clr
						cla
						*nl
						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pool2.jpg"></center>'
						billiard_ev_var = 1
						'"Alright, let''s play."'
						'You ' + iif(bag > 0,'open your purse','reach into your pocket') + ' and pull out a few bills and lay them down on the table.'
						'Your acquaintance gives you a wolfish grin, 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

				if money < 2500 or pcs_intel >= 60 or pcs_persuas >= 60:
					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 understandingly, then looks around a bit before leaning in close. "We could play for something else, you know..."'
						'You look at him suspiciously. "Like what?"'
						'His smile may be friendly, but his casual tone doesn''t match his suggestion: "If you win, you get the money. And if I win, you give me a blowjob. Sound fair?"'


						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, if you''re being perfectly honest, but you are not really interested in it either.'
							'Deciding against it, you tell him: "I think I''ll pass. Thank you for the drink, though."'
							'He notices that you don''t seem angry or even put off, so he smiles and simply says, "Until next time, then," before you leave.'

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

						act 'You''re on':
							*clr
							cla
							*nl
							'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/pool2.jpg"></center>'
							billiard_ev_var = 2
							$OpenInnerThought+'I can take him,'+$CloseInnerThought+' you think to yourself, '+$OpenInnerThought+'and even if he beats me, it''s just a blowjob.' +$CloseInnerThought
							'With that in mind, you nod your head and tell him he''s got himself a deal.'
							gs 'qwBarBilliard', 'billiard_engine'
							gs 'qwBarBilliard', 'billiard_ev1'
						end
					end
				end
			end
		end

	!elseif Enc_Rand = 2:
	else
		*clr & cla
		gs 'stat'
		gs 'npcgeneratec', 0, 'stranger', rand(18,35)
		gs 'boyStat', $npclastgenerated

		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/bargrind1.jpg"></center>'
		'Martin nods and prepares your beverage, then places it in front of you.'
		'"Thank you," you smile at him and earn a half-smile in return before he leaves you to yourself.'
		*nl

		if alko >= 5:
			'Truth is, you''re drinking more than you can really handle and at this point, you are starting to feel pretty drunk.'
		end

		'You lean against the bar, caught up in a random thought as you nurse on your drink, and so you barely notice at first that somebody is grinding against your ass. Taking your ignorance as consent, the guy grabs you by the hip with one hand to pull you back against him, at which point it becomes pretty hard to ignore, and just then, he grabs you by your hair and tilts you forward a bit more.'
		'It''s not difficult to deduce how this is going to end if you don''t put an end to it right now.'

		act 'Tell him to get lost':
			cla
			*nl
			npc_rel['A216'] += 1
			'At first you just try to pull away, but the guy is either too drunk or too horny to take a hint. You try to shove him off but the guy hangs onto you, his grip tight and insistent.'
			*nl
			'Just as you are about to tell him to "piss off", Martin comes over.'
			'"Is there a problem here?"'
			'You nod and open your mouth to respond, but the man talks over you: "No, no problem. The bitch likes it, you can tell..."'
			*nl
			'Martin silences him with a glare, giving you the chance to speak up: "This asshole won''t let go of me. I want him to leave me alone."'
			'As soon as Martin hears this, he turns and looks at the guy. "I suggest you let her go before I make you let go."'
			*nl
			'The man may be horny, but he isn''t stupid enough to risk butting heads with the bulky bartender, and before you can blink, he has vanished into the night.'
			'You give the bartender a grateful smile. "Thank you, Martin."'
			'He just nods. "My pleasure, but I think you''ve had enough for the night."'

			act 'He might have a point - Finish your drink': gt 'qwBarPolet', 'bar'
		end

		!! Note this action was influenced by exhibition level too.
		!! May be some way to add that in later using willpower?
		gs 'willpower', 'sex', 'resist'
		if will_cost <= pcs_willpwr:
			act 'Grind back against him':
				cla
				*clr
				gs 'willpower', 'pay', 'resist'
				'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/bargrind2.mp4"></video></center>'
				!!sub/dom dialog needs fixing
				!!'Maybe it''s the alcohol, ' + iif(sub>=20,'maybe you are','or maybe you are just') + ' really horny ' + iif(sub>=20,'or maybe you are just too submissive to refuse him ','') + '- whatever the case may be, you don''t really want the stranger to stop. Quite the opposite, in fact.'
				'Maybe it''s the alcohol, or maybe you are just really horny - whatever the case may be, you don''t really want the stranger to stop. Quite the opposite, in fact.'
				*nl
				'You grind your butt back against him and that is all the incentive he needs: After a little more grinding, he reaches around and worms his fingers into your bottoms. You are shocked and want to say something but just when you open your mouth, he finds your clit and your protest turns into a soft moan. You can feel his erection growing against your butt and the whole situation is getting you really excited.'
				gs 'arousal', 'vaginal_finger', 5, 'sub', 'exhibitionism'
				gs 'stat'

				act 'Let him guide you':
					cla
					*clr
					'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/bargrinds1.mp4"></video></center>'
					'He works your clit with his fingers for a bit, clearly knowing what he''s doing and getting you hot and bothered before he pulls his hand free. He turns you around so your back is against the bar and then pushes down on your shoulders until you are squatted down in front of him and hidden from most views.'
					'The strangers pulls out his cock and shoves it in your open mouth - you already knew what to expect and at this point, you are eager to suck his cock. He leans in close and starts fucking your mouth, and you are reveling in it, masturbating as he shoves his <<dick>>cm <<$dick_girth>> cock down your throat again and again. You don''t know if anybody''s watching and you are too drunk to feel anything but excitement at the prospect.'
					gs 'arousal', 'bj', 5, 'sub', 'exhibitionism', 'deepthroat', 'rough'
					gs 'arousal', 'clit_finger', 5, 'sub', 'exhibitionism'
					minut -= 5
					gs 'stat'
					$orgasm_txt = 'Your fingers on your needy cunt and the sensation of blowing a stranger in the middle of a bar prove too much to you, and you cum, shaking all over, your moans muffled by his <<$dick_girth>> cock.'

					act 'Finish him':
						cla
						*clr
						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/bargrinds2.jpg"></center>'
						'You are not quite sure for how long you are squatting there while he fucks your mouth, but at some point, he picks up the pace and starts to groan, then suddenly pulls his cock out of your mouth and the first hot jet of sperm hits your face, then another shoots into your mouth. Several more follow and cover your lips, chin and tongue with cum.'
						'Once the last spurt is out, he wipes the tip of dick against your lips to get the last drops off cum off. Then he tucks his cock back in his pants, orders another drink for each of you and, before you''re even fully back on your feet, takes his drink and walks off.'
						gs 'arousal', 'end'
						gs 'cum_call', 'face', $boy, 0,'','',20
						gs 'cum_call', 'mouth', $boy, 0,'','',20
						gs 'fame', 'city', 'sex', 1
						gs 'stat'

						act 'Finish up': gt 'qwBarPolet', 'bar'
					end
				end

				gs 'willpower', 'cuni', 'force'
				if will_cost <= pcs_willpwr:
					act 'Take charge':
						cla
						*clr
						gs 'willpower', 'pay', 'force'
						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/bargrindd1.jpg"></center>'
						gs 'boyStat', $npclastgenerated
						'Once you are good and wet, you pull his hands away, sit down on a bar stool, move your clothes out of the way enough to reveal your pussy and spread your legs as you pull him close. You gently push down on his shoulders and he gets the idea, smiles and goes down to his knees to lick your pussy.'
						'He laps at your cunt without a hint of reservation. One of his hands is squeezing your tits through your clothes while the other joins his mouth, his fingers inside you adding to the overwhelming sensations you are feeling. You notice some people watching but not as many as you expected; you don''t care though, this simply feels too great to think about consequences, and your guy friend seems unconcerned with the looks of other patrons too, maybe even enjoying the fact that he can show off his conquest right here.'
						'He keep going, working your sex tirelessly until an orgasm rocks your body and you have to bite down on your lip to keep yourself from moaning out loud. As the shuddering subsides, he stands up with a shit-eating grin and his hands move to unbutton his pants.'
						gs 'arousal', 'cuni', 5, 'dom', 'exhibitionism'
						$orgasm_or = 'yes'
						gs 'stat'

						act 'Got to leave':
							cla
							*nl
							'You put your hands on his and stop him from undoing his pants further. You lean in to kiss his cheek, then whisper. "Thank you for this... but I gotta go. Have a nice evening."'
							'Then, before he has even had time to process what you just said, you pull away and walk off. You can hear him calling you a "bitch" among other things, but you don''t care - you got yours, and that puts a spring in your step as you leave the bar.'
							gs 'arousal', 'end'
							act 'Leave':gt 'city_industrial'
						end

						act 'Return the favor':
							cla
							*clr
							'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/bargrinds1.mp4"></video></center>'
							gs 'boyStat', $npclastgenerated
							'Seeing as he got down on you right then and there, it seems only fair for you to do the same for him, so you get down on your knees, squatted down in front of him with your back against the counter, hidden from most views.'
							'The strangers pulls out his cock and shoves it in your open mouth - you already knew what to expect and at this point, you are eager to suck his cock. He leans in close and starts fucking your mouth, and you are reveling in it, masturbating as he shoves his <<dick>>cm <<$dick_girth>> cock down your throat again and again. You don''t know if anybody''s watching and you are too drunk to feel anything but excitement at the prospect.'
							gs 'arousal', 'bj', 5, 'sub', 'exhibitionism', 'deepthroat', 'rough'
							gs 'arousal', 'vaginal_finger', 5, 'sub', 'exhibitionism', 'masturbate'
							minut -= 5
							gs 'stat'
							$orgasm_txt = 'Your fingers on your needy cunt and the sensation of blowing a stranger in the middle of a bar prove too much to you, and you cum, shaking all over, your moans muffled by his <<$dick_girth>> cock.'

							act 'Finish him':
								cla
								*clr
								'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/bargrinds2.jpg"></center>'
								gs 'boyStat', $npclastgenerated
								'You are not quite sure for how long you are squatting there while he fucks your mouth, but at some point, he picks up the pace and starts to groan, then suddenly pulls his cock out of your mouth and the first hot jet of sperm hits your face, then another shoots into your mouth. Several more follow and cover your lips, chin and tongue with cum.'
								'Once the last spurt is out, he wipes the tip of dick against your lips to get the last drops off cum off. Then he tucks his cock back in his pants, orders another drink for each of you and, before you''re even fully back on your feet, takes his drink and walks off.'
								gs 'arousal', 'end'
								spafinloc = 11
								gs 'cum_manage'
								spafinloc = 12
								gs 'cum_manage'
								gs 'fame', 'city', 'sex', 1
								gs 'stat'

								act 'Finish up': gt 'qwBarPolet', 'bar'

							end
						end
					end
				else
					act 'Take charge (<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
end




	! 'While you are sitting at the bar, minding your own business, a young man sits next to you.'

	!pcs_lover < 3 (has less than three lovers) or bfa < 1 (has a boyfriend with a dominant personality):      !!! DOESN''T MAKE ANY SENSE HERE - SHOULD BE PLACED AT THE END OF EVENT, WHEN THE GUY ASKS FOR SVETA''S NUMBER !!!
	! gs 'npcgeneratec', 0
	! gs 'boyStat', $npclastgenerated
	! 'A <<$boybody>>, <<$boybod>> guy with <<$boyface>> hair walks up to you, he is <<$boyClo>>'
	!		'The guy introduces himself as <<$boydesc>> and asks for your phone number.'
	!
	!if $ARGS[0] = 'hasan':
	!	!!stopboy = 0
	!	gs 'boyStat', 'A92'
	!	$boydesc = $npc_usedname['A92']
	!	$boybody = 'average growth'
	!	$boybod = 'abdominous'
	!	$boyface = 'black-haired'
	!	!!long cock
	!	dick = npc_dick['A92']
	!	!! sexual force of 0 prior_to 2
	!	silaVag = npc_sexskill['A92']
	!	!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
	!	finance = 2
	!	!!check in appearance, a parameter pcs_apprnc
	!	vneshBoy = 100
	!	$boyClo = 'dressed in a leather jacket and cap'
	!	!!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
	!	figurBoy = 2
	!	!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
	!	titBoy = 2
	!	!!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
	!	haerBoy = 3
	!	!!character 0 - soft, 1 -norm 2 - aggressor
	!	harakBoy = 2
	!	!!perversity
	!	izvrat = 1
	!end

	!
	!if haraklover[3] = 0 and loverrelation[3] > 1:pl'He''s calm and self-possessed character.'
	!if haraklover[3] = 1 and loverrelation[3] > 1:pl'He has a cheerful and sociable character.'
	!if haraklover[3] = 2 and loverrelation[3] > 1:pl'He''s short-tempered and rigid.'
	!
	!	if guy_personality = shy:
	!		'The guy gives you one sideways glance after the other, but every time you think he''s gonna say something, he looks away. He''s probably too shy to start a conversation.'
	!		act 'Ignore him':
	!			'You are not in the mood to chat with a guy who can''t gather the courage to speak to you. You deliberately turn away from him, and after a few minutes of pointed disinterest, he seems to have caught on and leaves.'
	!			act 'Finish your drink':gt'qwBarPolet'
	!		end
	!		act 'Have mercy on him and chat him up':
	!
	!	if guy_personality = normal:
	!		'The guy introduces himself as <<$boydesc>> and he uses a cheesy pick-up line in an attempt to strike up a conversation.'
	!
	!	if guy_personality = blunt:
	!		'The guy tells you his name is <<$boydesc>> and he asks your name, looking to get a conversation started.'
	!
	!
	!	act 'Tell him your number':
	!			cla
	!			gs 'boyfrend', 'start'
	!			stopboy = 0
	!			'<<$boydesc[i]>> takes your number and leaves.'
	!
	!else !!! DOESN''T MAKE ANY SENSE HERE - SHOULD BE PLACED AT THE END OF EVENT, WHEN THE GUY ASKS FOR SVETA''S NUMBER !!!
	!	'You ignore him, knowing that (if pcs_lover >= 3 - you already have three lovers and probably couldn''t handle more than that; elseif bfa = 1 - your boyfriend would probably go nuts if he found out).'






--- qwBarEncounters ---------------------------------