WLife/locations/mod_wlife_sacha.qsrc

# mod_wlife_sacha

if $ARGS[0] = 'park':
	*clr & cla
	menu_off = 1
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha_park.jpg"></center>'
	if wl_sacha['temp'] = 1:
		wl_sacha['temp'] = 0
		'Sacha is waiting for you to buy some weed or do something else.'
	elseif wl_drugs['status'] = 1:
		minut += 6
		wl_sacha['status'] = 1
		wl_drugs['status'] = 2
		'A young man is sitting near on of the park exit keeping a close look at his surrounding. You can''t see his face below the hoodie, but you have a feeling this the guy Shura told you about. "Hi," you greet him, when you''re only a few meters away. He doesn''t respond. "Shura send me if I never need... you know... stuff."'
		'He lifts his head a bit and the light of a nearby street light illuminates his face. "Shit...," you know him. Not from the warehouse, but from your old life. "Sacha?" you say hopeful that you''re mistaken, but when he pulls his hoodie back, you''re sure. It''s really him. He went to your class until last year. He was one of the bad students and it was only a matter of time until he would fail and had to quit school, but he was always one of the nice guys like Fedor or Ivan.'
		'"Yeah... Hi <<$pcs_nickname>>," he greets you as surprised as you. "How long has it been? A year?"'
		'You nod. "I didn''t know you still lived in Pavlovsk. The last thing I heard, was that you started an apprenticeship in St. Petersburg."'
		'A sad expression flickers over his face before he replies. "That didn''t work out. They went bankrupt when the economy tanked."'
		'"Sorry to hear that and now you sell drugs for the Belys?"'
		'He looks surprised for a moment when you say the name. "How do you know... wait... fuck. Don''t tell me you too? Do you work for them?"'
		'A wave of dread washes over you, but you can''t lie to him. He will find out sooner or later anyway, when he''s working for Shura. You only nod and his eyes widen in surprise, shock, horror or something similar. "I...," you hesitate. "So... do you have what I need? I only want to buy some weed," you pivot.'
		'"Uhm ... sure <<$pcs_nickname>>," he sends you one long knowing look before asking. "How much do you need?"'
	elseif wl_drugs['status'] = 2 and wl_sacha['status'] < 3:
		minut += 3
		'You take a deep breath and go towards the place where Sacha is always waiting for customers. It''s awkward talking to him, because he''s the only one who knows who you were before you met the Belys. "Hi Sacha."'
		'"Hey <<$pcs_nickname>>," Sacha greets you when you step closer. After hesitating for a bit he only asks. "Do you need something?"'
	elseif wl_drugs['status'] = 2 and wl_sacha['status'] = 3:
		gt 'mod_wlife_sacha', 'party_aftermath_0'
	elseif wl_sacha['status'] = 4:
		minut += 3
		wl_sacha['status'] = 5
		'"Hi Sacha," you greet him with an honest smile. Ever since the party the mood has changed between you. Even if he works for the Belys he''s still the same old Sacha you remember from school. At least you think so.'
		'"Hi <<$pcs_nickname>>," he greets you and suddenly pulls you into a hug. For a second you stand there confused, but then you relax into his arms and wrap your own arms around him. The two of you stand there for what feels like a lifetime, before you let go of him and take a step back.'
		'"What was that about?" you ask grateful about the gesture.'
		'"I thought you could need one after everything that has happened to you."'
		'He''s too nice to be real, your brain warns you as it reminds you of what Shura did to you. But you push the thought aside as you say, "thanks."'
	elseif (wl_sacha['status'] = 6 or wl_sacha['status'] = 8) and wl_sacha['chat_timer'] < wl_timer['week']:
		gt 'mod_wlife_sacha', 'events'
	elseif wl_sacha['status'] = 7 and wl_sacha['chat_timer'] < wl_timer['week'] and wl_whore['pav_total'] > 14:
		gt 'mod_wlife_sacha', 'events'
	elseif wl_sacha['status'] > 4:
		'You two greet each other with a quick hug, when you approach him.'
	end

	gs 'stat'

	act 'Leave': gt $loc, $loc_arg

	act 'Buy some weed': gt 'mod_wlife_sacha', 'buy_weed'
	if wl_sacha['cocaine_talk'] > 0: act 'Buy some cocaine': gt 'mod_wlife_sacha', 'buy_cocaine'

	if wl_drugs['timer_bj'] < wl_timer['week'] and wl_drugs['sex'] > -1:
		gs 'willpower', 'prostitution', 'self', iif(wl_sacha['status'] > 0, 'easy', 'hard')
		if will_cost <= pcs_willpwr:
			act ''+iif(wl_sacha['status'] = 1, 'Offer him a blowjob', 'Suck him off')+' for some weed (<<will_cost>> Willpower)':
				wl_drugs['timer_bj'] = wl_timer['week']
				if wl_sacha['status'] = 1:
					*clr & cla
					minut += 2
					wl_stats['acceptance'] += 2
					gs 'stat'
					'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
					'You hesitate. How do you offer a former classmate that you want to suck his cock for drugs? A question you would have never imagined pondering '+iif(wl_timer['startday'] < 60, 'weeks', 'months')+' ago. At the end you decide that a direct approach is the best option. You take a deep breath. "How about I give you a blowjob in exchange for some of your product?" you suggest.'
					'He looks confused and blinks several times as if he can''t believe what you just said. "Uhm... what? <<$pcs_nickname>>. No, we can''t...," he stammers, but you shut him up, when you say. "Let''s not pretend like we''re the same people we were a year ago. I''m a whore, you''re a drug dealer. So? Blowjob for some weed?"'
					'He still looks stunned, but after half a minute he slowly nods. "Okay, but I can''t give you a lot. If you don''t pay for them, I''ll have to. So I can maybe give you enough weed for...," he thinks about it for a moment, "5 joints."'

					act 'Get down on your knees': gt 'mod_wlife_sacha_sex', 'weed_bj'
				else
					gt 'mod_wlife_sacha_sex', 'weed_bj'
				end
			end
		else
			act 'Offer him a blowjob for some weed (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	elseif wl_drugs['timer_bj'] = wl_timer['week'] and wl_drugs['sex'] > -1:
		'<br>You already sucked him off this week. You''ll have to pay if you want more weed.'
	end

	if wl_drugs['timer_fuck'] < wl_timer['week'] and wl_drugs['sex'] > -1 and wl_sacha['cocaine_talk'] > 0 and wl_sacha['status'] > 1 and cocaine_count > 0:
		gs 'willpower', 'prostitution', 'self', iif(wl_sacha['status'] > 0, 'easy', 'hard')
		if will_cost <= pcs_willpwr:
			act ''+iif(wl_sacha['cocaine_fuck'] = 0, 'Offer him your pussy', 'Let him fuck you')+' for some cocaine (<<will_cost>> Willpower)':
				if wl_sacha['cocaine_fuck'] = 0:
					*clr & cla
					minut += 2
					wl_stats['acceptance'] += 2
					gs 'stat'
					'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
					'The direct approach was the best option, when you offered him your mouth for some weed, so you decide to use that approach again. "You know how I give you a blowjob for some weed?"'
					'"Uhm... yeah," Sacha says a bit confused about you suddenly mentioning it. "What about it?"'
					'"How about I let you fuck me for some blow?" you ask while mentally preparing for the discussion you''re about to have with him.'
					'"OK," he says instead. "Once a week and you get enough cocaine for two lines." That was the complete opposite of what you expected. He must see the confusion on your face, because he adds. "We both know you get your wish in the end anyway and we already discussed taking that stuff. There''s no reason to repeat it. So...," he points towards the bushes. "After you."'

					act 'Lead the way': gt 'mod_wlife_sacha_sex', 'cocaine_fuck'
				else
					gt 'mod_wlife_sacha_sex', 'cocaine_fuck'
				end
			end
		else
			act 'Offer him your pussy for some cocaine (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	elseif wl_drugs['timer_fuck'] = wl_timer['week'] and wl_drugs['sex'] > -1:
		'<br>You already let him fuck you this week. You''ll have to pay if you want more cocaine.'
	end

	if wl_drugs['cocaine'] > 0 and wl_sacha['cocaine_talk'] = 0:
		act 'Ask him about buying cocaine':
			*clr & cla
			minut += 5
			wl_sacha['cocaine_talk'] = 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
			'"I have a question about other drugs. Do you sell other stuff than weed?"'
			'"Is there a reason why you''re asking?" he asks.'
			'You shake your head and look down to his feet to avoid his questioning gaze. "No, not really. I just visited Alexei the other day."'
			'"Who?" he interjects.'
			'"One of your customers, the guy who asked me for a blowjob. Anyway... I went to his place the other day and he had some cocaine lying around and I was just wondering if he bought it from you."'
			'His sigh makes you look up. He looks defeated. "He probably did. Please don''t judge me. I need this or I won''t be able to ever leave this place."'
			'"Oh, I don''t judge you," you say shuffling your feet and looking down again. "I was actually asking to buy some myself."'
			*nl
			'Silence...'
			*nl
			'You look up and see a pained expression on his face. You quickly have to think of something, a good reason why you need it. "Uhm... it''s not what you think."'
			'"It''s not?"'
			'"I need it...," you keep stalling for a few more seconds before you finally have an idea. "I don''t need it for like recreational purposes, it''s just that the Belys sometimes make me work all day and sometimes I don''t have the energy to keep going and then clients get angry...," you make a pause to let his imagination spring into action. He swallows hard and nods.'
			'"Shit, I get it. Sure, I can sell you some. But you have to promise me something. Don''t use it just to have fun or to make you feel better if you''re feeling bad. That''s a dangerous road I don''t want you go down."'
			'"Of course. Don''t worry about it," you promise him with a reassuring smile.'

			act 'Continue': wl_sacha['temp'] = 1 & gt 'mod_wlife_sacha', 'park'
		end
	end

	if wl_shura['ignore_counter'] = 6:
		act 'Ask him about Shura''s disappearance':
			*clr & cla
			minut += 10
			wl_shura['ignore_counter'] += 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
			'"Have you seen Shura lately?" you ask him. "I haven''t seen him since the party and I really need to talk to him."'
			'Sacha shakes his head. "No, not really. I have picked up the product at the warehouse, but I haven''t seen him there, but that isn''t uncommon. He often keep away from the day-to-day business."'
			'You don''t even realize in this movement, but will remember later, that he revealed to you, that the Belys store drugs at the warehouse. Your mind is fixed on Shura. He was there every week since you entered this new life, but suddenly he''s gone? Maybe he doesn''t want to talk to you. Maybe he feels guilty about what happened to you at the party?'
			'"Should I tell him, that you''re looking for him, when I see him?"'
			'You nod. "Thanks, that would be nice."'

			act 'Continue': wl_sacha['temp'] = 1 & gt 'mod_wlife_sacha', 'park'
		end
	end

	if wl_sacha['status'] = 5 and wl_sacha['event_timer'] < wl_timer['week']:
		act 'Have a chat':
			*clr & cla
			minut += 10
			wl_sacha['status'] = 6
			wl_sacha['event_timer'] = wl_timer['week']
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
			'You hesitate for a moment thinking about what you want to talk about. He knows way more about you and your problems than you know about him. The only thing you can remember is him talking about how he lost his apprenticeship. "Do you miss having a normal job? Would you go back to...," you pause. He never told you what he did.'
			'"Mechatronics, it''s engineering with a focuses on electrical and mechanical systems," he explains.'
			'"Sounds complicated."'
			'"Yeah, I wanted to finish my apprenticeship and maybe study robotics afterwards in St. Petersburg. And to answer your question: I would go back. This," he points at his backpack with the weed inside. "It''s just to pay the rent and save enough money to leave this shithole."'
			'"To go where? Back to St. Petersburg?"'
			'He shakes his head. "No. There is no future for me here in Russia. I want to study somewhere in Europe. I can''t afford a university like Oxford, but maybe an university in Germany. It''s cheap compared with the United States or Great Britain. But I still have to save a lot without a scholarship. I''m looking for a part-time job and next month I start a language course in the city."'
			'"And the Belys. Will they let you leave?" you ask and doubt that they will ever let you quit your ''job''. But maybe it''s different for guys like Sacha. Even if he''s just a low level guy, but he''s still a guy and with that there come certain privileges in organizations like the one the Belys created.'
			'"The Belys can go fuck themselves. I won''t ask them if I can go," he tells you without hesitating for even a second. He must really trust you. "If I have the money and my visa, I will leave and never look back."'
			'"Do you think that''s a good idea?" you ask, but never get an answer. A customer approaches a second after you have finished your question.'
			'"Later <<$pcs_nickname>>," Sacha says, picks up his backpack and goes towards the customer.'

			act 'Leave': gt $loc, $loc_arg
			act 'Wait to buy some weed': minut += 5 & gt 'mod_wlife_sacha', 'buy_weed'
		end
	elseif wl_sacha['status'] = 8 or wl_sacha['status'] = 9:
		act 'Talk about working in Pavlovsk':
			*clr & cla
			minut += 10
			wl_sacha['event_timer'] = wl_timer['week']
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
			'"Did you have a problem with '+iif(wl_sacha['status'] = 8, 'Alexei propositioning me?"', 'me going with Alexei?"')
			'He looks away. "No, it''s fine."'
			'You don''t believe him. "It''s my job. I have to do that nearly every day."'
			'"You don''t have to defend yourself. I said it''s fine. "'
			'"Yeah, sure it is," you scoff. "A drug dealer judging a whore."'
			'That gets his attention. He turns around. "I''m not judging you." You roll your eyes. "No, really I''m not. What I''m doing is way worth than what you''re doing. Especially since I do it on my own accord and you aren''t."'
			'"Than what''s your damn problem?"'
			'He sighs and looks up into your eyes. "I thought you worked outside of Pavlovsk where nobody knew you. You know how small the city is. Everybody will know sooner or later if you keep doing it here."'
			'"The keeping it quiet part went out the window the day of Shura''s party. They recognized me on the streets. I had to give in and service them. It''s not like I don''t need the money."'
			'"Shit, sorry to hear that," he says sincerely. "Aren''t you afraid everybody you know will find out about it?"'
			'You just shrug. "It is what it is. It was only a matter of time before something like that happened."'

			wl_sacha['status'] = 10

			act 'Continue': wl_sacha['temp'] = 1 & gt 'mod_wlife_sacha', 'park'
		end
	elseif wl_sacha['hotel_talk'] = 0 and wl_status['hotel'] = 1:
!!ToDo: Talk about being thrown out of the parents apartment
	elseif wl_sacha['cocaine_talk'] = 2 and wl_sacha['boyfriend_talk'] = 0:
!!ToDo: Talk about your feelings
	end
end

if $ARGS[0] = 'events':
	*clr & cla
	wl_sacha['event_timer'] = wl_timer['week']

	if wl_sacha['status'] = 6:
		minut += 5
		wl_sacha['status'] = 7
		'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha_weed.jpg"></center>'
		'Sacha is sitting on an old park bench out of view from the main paths. "Smoking the product?" you ask when you see Sacha smoking a joint.'
		'His head jerks up. "No, I would... Oh, it''s you," he says sounding relieved.'
		'"Caught you red-handed," you say with a huge grin after witnessing his reaction.'
		'"Don''t scare me like that." His face is a little pale. "Do you know what the Belys do to guys who they suspect of stealing product or money?"'
		'"Really? Shura smoked the product all the time."'
		'Sacha scoffs. "Yeah, that''s Shura. Since he''s part of the Belys inner circle he can do it. The rest of us has to pay like everybody else."'
		'"And so you swipe a little bit here and there to get away with it?" you suggest.'
		'"Bingo."'
		'"My lips are sealed," you say and move your fingers over your mouth as if you zip your mouth shut.'

		act 'Continue': wl_sacha['temp'] = 1 & gt 'mod_wlife_sacha', 'park'
	elseif wl_sacha['status'] = 7:
		minut += 5
		$wl_whore['pav_scene'] = 'blowjob'
		gs 'mod_wlife_functions', 'payment', 'pav'
		'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha_dealing.jpg"></center>'
		'Sacha and another guy quickly take a step back from each other when they hear you approach. "Hi, it''s just me," you say stepping into the light of a nearby street-lamp to show your face.'
		'"Hi <<$pcs_nickname>>," Sacha says before he turns back to his customer. "She''s cool don''t worry." The guy nods as his eyes roam over your body checking out your tits, ass and face.'

		act 'Continue':
			*clr & cla
			minut += 5
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/alexei.jpg"></center>'
			'"Don''t I know you?" he asks as he carefully studies your face. You shake your head since you have never ... Shit! You have met him before. He''s one of your customers in Pavlovsk. You sucked him off a few days ago.'
			'"I think you''re mistaken," you try to convince him, but he immediately cuts you off. "No, no." Recognition shows in his eyes. "You''re that teen whore... <<$pcs_nickname>>? Your name is <<$pcs_nickname>>, right? The one who sucked me off a few days ago."'
			'You sigh. "Yeah, that''s me," you agree. Sacha stares at you surprised and shocked. You can easily read the question he wants to ask you on his face. <i>You''re working the streets in Pavlovsk?</i> But he doesn''t interfere.'
			'"Are you free right now? I would pay you <<wl_whore[''payment'']>> <b>₽</b> for a blowjob without a condom," he offers you.'
			'"Hey come on, she isn''t working right now," Sacha says. "She''s probably only here to buy some stuff and relax."'
			'That seems to give the guy an idea. "Is that true? Than why don''t you blow me and I pay for your weed. It''s a win-win-win situation. I get to cum, he gets to sell his merchandise and you get your drugs for free. You even get to taste my dick again as an added bonus."'

			gs 'mod_wlife_functions', 'will_acceptance', 'resist'
			if will_cost <= pcs_willpwr:
				act 'Decline (<<will_cost>> Willpower)':
					cla & *nl
					wl_sacha['status'] = 8
					wl_stats['respect'] += 2
					wl_alexei['status'] = 1
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					'You shake your head. "He''s right. I''m not working right now."'
					'"No problem," he says. "But can I have your number?"'
					'You shake your head. "Sorry, no."'
					'"Ok, I understand. Don''t want some horny guy calling you all day. How about I give you mine instead? You could give me a call if you ever want to party."'
					'You pull out your phone. "Why not," you say hoping that it will make him go away and it wasn''t a bad idea to be able to call somebody for a fuck if you ever need money.'
					'"Alright, great," he says in a good mood and rattles down his number. "You can save it under the name Alexei."'

					act 'Wait for him to leave': gt 'mod_wlife_sacha', 'events'
				end
			else
				act 'Decline and walk away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end

			act 'Accept':
				cla & *nl
				minut += 2
				wl_stats['acceptance'] += 1
				joint += (wl_whore['payment'] / 40) + 1
				gs 'stat'
				'"Sounds like a plan," you accept. Sacha throws you an even more confused look while your customer pulls out his wallet.'
				'"<<$pcs_nickname>> you don''t have to do that," Sacha whispers while the other guy is occupied.'
				'You shrug. "I know, but I was about to buy some weed from you anyway. And didn''t I give you a blowjob for weed. Where is the difference?"'
				'He opens his mouth, but closes it again without answering when the guy steps closer again. "So, what does the lady want me to buy for her? Some cocaine?"'
				'Cocaine? You look at Sacha''s backpack. You always thought he was only selling weed, but it seems you were wrong. "Uhm... no. Just some weed for me, thanks."'
				'"Weed? Really? And here I was thinking you were a cool and fun girl."'
				'"Hey, I''m a cool girl," you complain. "Or would I give you a blowjob if I wasn''t?"'
				'He grins. "Yeah, you''re right. Sorry didn''t mean it like that." He turns to Sacha. "Come on. Give her the weed."'

				act 'Get the drugs and follow him': gt 'mod_wlife_alexei_sex', 'park_bj'
			end

			act 'Accept, but don''t get paid with drugs':
				cla & *nl
				minut += 2
				money += wl_whore['payment']
				wl_stats['acceptance'] += 2
				gs 'stat'
				'"Sounds like a plan," you accept. Sacha throws you an even more confused look while your customer pulls out his wallet.'
				'"<<$pcs_nickname>> you don''t have to do that," Sacha whispers while the other guy is occupied.'
				'You shrug. "I know, but I need the money and "'
				'He opens his mouth, but closes it again without answering when the guy steps closer and hands you the money. "Let''s go to my car."'

				act 'Follow him': gt 'mod_wlife_alexei_sex', 'park_bj'
			end
		end
	end

	gs 'stat'
end

if $ARGS[0] = 'buy_weed':
	*clr & cla
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
	'How much weed do you want to buy from him?'

	act 'Change your mind': wl_sacha['temp'] = 1 & gt 'mod_wlife_sacha', 'park'
	if wl_sacha['cocaine_talk'] = 1: act 'Buy some cocaine instead': gt 'mod_wlife_sacha', 'buy_cocaine'

	if money >= 40:
		act 'Buy enough weed for 1 joint (40 <b>₽</b>)':
			cla & *nl
			money -= 40
			joint += 1
			minut += 2
			gs 'stat'
			'You hand him 40 <b>₽</b> before he gives you a very small plastic bag filled with weed. "Pleasure doing business with you," he says.'

			act 'Continue': gt 'mod_wlife_sacha', 'park'
		end
	elseif money < 40:
		act 'Buy enough weed for 1 joint (<font color="red">40 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy this much weed.</font>'
	end

	if money >= 200:
		act 'Buy enough weed for 5 joints (200 <b>₽</b>)':
			cla & *nl
			money -= 200
			joint += 5
			minut += 2
			gs 'stat'
			'You hand him 200 <b>₽</b> before he gives you a small plastic bag filled with weed. "Pleasure doing business with you," he says.'

			act 'Continue': gt 'mod_wlife_sacha', 'park'
		end
	elseif money < 200:
		act 'Buy enough weed for 5 joints (<font color="red">200 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy this much weed.</font>'
	end

	if money >= 400:
		act 'Buy enough weed for 10 joints (400 <b>₽</b>)':
			cla & *nl
			money -= 400
			joint += 10
			minut += 2
			gs 'stat'
			'You hand him 400 <b>₽</b> before he gives you a plastic bag filled with weed. "Pleasure doing business with you," he says.'

			act 'Continue': gt 'mod_wlife_sacha', 'park'
		end
	elseif money < 400:
		act 'Buy enough weed for 10 joints (<font color="red">400 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy this much weed.</font>'
	end

	if money >= 800:
		act 'Buy enough weed for 20 joints (800 <b>₽</b>)':
			cla & *nl
			money -= 800
			joint += 20
			minut += 2
			gs 'stat'
			'You hand him 800 <b>₽</b> before he gives you a large plastic bag filled with weed. "Pleasure doing business with you," he says.'

			act 'Continue': gt 'mod_wlife_sacha', 'park'
		end
	elseif money < 800:
		act 'Buy enough weed for 20 joints (<font color="red">800 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy this much weed.</font>'
	end
end

if $ARGS[0] = 'buy_cocaine':
	*clr & cla
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
	'How much cocaine do you want to buy from him?'

	act 'Change your mind': wl_sacha['temp'] = 1 & gt 'mod_wlife_sacha', 'park'
	act 'Buy some weed instead': gt 'mod_wlife_sacha', 'buy_weed'

	if money >= 350:
		act 'Buy enough cocaine for 1 line (350 <b>₽</b>)':
			cla & *nl
			money -= 350
			dur += 1
			minut += 2
			gs 'stat'
			'You hand him 350 <b>₽</b> before he gives you a very small plastic bag filled with white powder. "Pleasure doing business with you," he says.'

			act 'Continue': gt 'mod_wlife_sacha', 'park'
		end
	elseif money < 350:
		act 'Buy enough cocaine for 1 line (<font color="red">350 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy this much cocaine.</font>'
	end

	if money >= 700:
		act 'Buy enough cocaine for 2 lines (700 <b>₽</b>)':
			cla & *nl
			money -= 700
			dur += 2
			minut += 2
			gs 'stat'
			'You hand him 700 <b>₽</b> before he gives you a small plastic bag filled with white powder. "Pleasure doing business with you," he says.'

			act 'Continue': gt 'mod_wlife_sacha', 'park'
		end
	elseif money < 700:
		act 'Buy enough cocaine for 2 lines (<font color="red">700 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy this much cocaine.</font>'
	end

	if money >= 1750:
		act 'Buy enough cocaine for 5 lines (1750 <b>₽</b>)':
			cla & *nl
			money -= 1750
			dur += 5
			minut += 2
			gs 'stat'
			'You hand him 1750 <b>₽</b> before he gives you a small plastic bag filled with white powder. "Pleasure doing business with you," he says.'

			act 'Continue': gt 'mod_wlife_sacha', 'park'
		end
	elseif money < 1750:
		act 'Buy enough cocaine for 5 lines (<font color="red">1750 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy this much cocaine.</font>'
	end

	if money >= 3500:
		act 'Buy enough cocaine for 10 lines (3500 <b>₽</b>)':
			cla & *nl
			money -= 3500
			dur += 10
			minut += 2
			gs 'stat'
			'You hand him 3500 <b>₽</b> before he gives you a plastic bag filled with white powder. "Pleasure doing business with you," he says.'

			act 'Continue': gt 'mod_wlife_sacha', 'park'
		end
	elseif money < 3500:
		act 'Buy enough cocaine for 10 lines (<font color="red">3500 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy this much cocaine.</font>'
	end
end

if $ARGS[0] = 'party_aftermath_0':
	*clr & cla
	minut += 3
	wl_sacha['status'] = 4
	wl_status['main'] = 10
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
	'Sacha jumps up, when you approach him. "<<$pcs_nickname>>, I hoped you would come by. We really need to talk," he says agitated. "I''m really sorry, about what happened." The last part stops you right in your tracks. He''s sorry? Was it him? You never would have imagined that he would take advantage of your condition.'
	'"You?" You ask shocked. "It was you? How could..."'
	'He raises his arms in a defensive gesture. "No, no, no... It wasn''t me."'
	'"Who was it? Shura? That Grigory guy?" He looks away and nervously pushes his hands inside the pockets of his jeans. "Sacha, tell me!" you demand, but he looks pained and shakes his head. He doesn''t want to tell you. "<<$pcs_nickname>>...," he pulls his right hand out of his pants and nervously rubs the back of his neck. "The question you should ask isn''t who took advantage of your situation, but who didn''t." He speaks slowly choosing each word carefully.'
	'A cold feeling of dread washes over you and part of you wonders if it isn''t better not knowing what happened. "What''s that suppose to mean?"'
	'He sighs. "OK, I''ll tell you...'

	act 'Listen to him':
		*clr & cla
		minut += 10
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
		'"It wasn''t your fault," is the first thing he says to reassure you. "You were drunk and when I say drunk I mean completely shit-faced. We were chilling on the couch, when a guy sat down next to you and starts flirting with you," he pauses and looks away for a second to collect his thoughts before continuing. "I don''t remember the exact words, but you mumbled something like ''<i>don''t flirt with a whore, just pay her</i>'' and he did."'
		'"No I didn''t," you say helplessly. It couldn''t be true. You didn''t tell a random dude at a party in small-town pavlovsk that you''re a whore.'
		'He throws you a sympathetic look before he completely crushes your spirit. "And then he fucked you right there on the couch, in the middle of the living room in front of everybody." You can only stare at him. That''s way worse than anything that you imagined. "I''m really sorry that happened, but I couldn''t stop you. When I tried Shura intervened and told me to let you do what you want and have fun."'

		act 'Keep listening':
			*clr & cla
			minut += 4
			gs 'stat'
			'<center><video autoplay loop src="mod/wlife/images/sex/shura/party/sacha_talk.mp4"></video></center>'
			'"Afterwards they took you to one of the bedrooms and ...," he''s not comfortable about having to tell you this. "And kept using you. Five or maybe six guys fucked you that night. One by one they came into your room, Shura made sure that they paid and then let them do to you whatever they wanted. You were barely conscious at that time and just lay there. They...," you lift one hand to make him stop. You heard enough and it''s already almost too much to digest.'
			'How many were at that party? You try to remember, but you saw at least 20 maybe even 30 people. If they tell their friends and those tell their friends... Pavlovsk is a small town. How long will it take before somebody recognizes you on the street? "Did they take pictures?" you ask and Sacha confirms your suspicion with a simple nod.'

			act 'Freak out':
				*clr & cla
				minut += 6
				wl_stats['acceptance'] -= 3
				wl_stats['respect'] += 3
				if wl_sacha['talk_tattoo'] = 0: wl_sacha['talk_tattoo'] = 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
				'"This is bad, this is so fucking bad," you say more to yourself than to Sacha while you nervously pace around. "Pictures, videos of me whoring myself out... FUCK! How could I be so stupid."'
				'"<<$pcs_nickname>>...," he starts, but he can''t get a word in as you continue. "They will recognize me, they will tell their friends, they will show them pictures of me," '+iif($wl_brand['text_pubic'] ! '', 'and they saw my tattoo, you add silently. Not only they did, but Sacha did too. You', 'you')+' spin around to face Sacha again. "What should I do?"'
				'"There''s nothing you can do," he says honestly and you know it''s the truth. There is nothing to be done. What happened happened and you now have to deal with the fallout. "I''m really sorry that I couldn''t help you and...," but you again interject. "I don''t blame you, I know how difficult it is to do the right thing in our lives."'

				gs 'mod_wlife_sacha', 'party_aftermath_1'
			end

			gs 'willpower', 'misc', 'self', iif(wl_stats['acceptance'] < 60, 'hard', 'easy')
			if will_cost <= pcs_willpwr:
				act 'Shit happens (<<will_cost>> Willpower)':
					*clr & cla
					minut += 4
					wl_stats['acceptance'] += 3
					wl_stats['respect'] -= 3
					gs 'willpower', 'pay', 'self'
					gs 'stat'
					'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
					'It was only a matter of time until something like this happened. You made a stupid mistake, but it was unavoidable. Some people would have found out eventually. This not something you need to freak out about.'
					'"I''m really sorry that I couldn''t help you and...," but you again interject. "I don''t blame you, I know how difficult it is to do the right thing in our lives."'

					gs 'mod_wlife_sacha', 'party_aftermath_1'
				end
			else
				act 'Shit happens (<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

if $ARGS[0] = 'party_aftermath_1':
	wl_sacha['relationship'] = 1
	'If you don''t blame him, who do you blame?'

	act 'Shura':
		cla & *nl
		minut += 2
		wl_shura['relationship'] = 0
		wl_stats['respect'] += 1
		gs 'stat'
		'"This is all Shura''s fault," you say with a stern expression and hate creeping into your voice. "He should have told them no, told them I was joking and protected me. I wasn''t able to consent."'
		'"He let them rape you," Sacha adds and he''s exactly right. "Yes he did," you acknowledge. "I need some time to think about that, but thanks for telling me."'

		act 'End the conversation': wl_sacha['temp'] = 1 & gt 'mod_wlife_sacha', 'park'
	end

	act 'Yourself':
		cla & *nl
		minut += 2
		wl_stats['respect'] -= 1
		gs 'stat'
		'"It''s all my fault. I shouldn''t have so much to drink. If I...," you murmur, but this time Sacha forcefully interjects. "NO! Stop that. He let them rape you, don''t you see that? They had no right to do it. You were drunk and couldn''t consent to any of this."'
		'"Maybe you''re right," you reply unsure. "I need some time to think about that. Thanks for telling me."'

		act 'End the conversation': wl_sacha['temp'] = 1 & gt 'mod_wlife_sacha', 'park'
	end
end

--- mod_wlife_sacha ---------------------------------