# 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.'
		'"After all that happened? I thought you could need one."'
		'He''s too nice to be true, 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'] = 5:
		'You two greet each other with a quick hug, when you approach him.'
	end
	
	gs 'stat'
	
	act 'Leave': gt $loc, $metka
	
	act 'Buy some weed': gt 'mod_wlife_sacha', 'buy_weed'
	
	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')+' (<<will_cost>> Willpower)':
				wl_drugs['timer_bj'] = wl_timer['week']
				if wl_sacha['status'] = 1:
					*clr & cla
					minut += 2
					wl_stats['respect'] -= 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 (<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_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'] > 2: act 'Talk to him': gt 'mod_wlife_sacha', 'chat'
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 'Go back': wl_sacha['temp'] = 1 & gt 'mod_wlife_sacha', 'park'
!!	if wl_sacha['status'] > 2: act 'Talk to him instead': gt 'mod_wlife_sacha', 'chat'
		
	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 40 <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] = 'chat':
	*clr & cla
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
	'What do you want to talk about?'
	
	act 'Go back': wl_sacha['temp'] = 1 & gt 'mod_wlife_sacha', 'park'
	act 'Buy some weed instead': gt 'mod_wlife_sacha', 'buy_weed'
	
	if wl_sacha['talk_drugs'] = 0:
		act 'Talk about drugs':
			*clr & cla
			minut += 12
			wl_sacha['talk_drugs'] = 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
!!ToDo: Finish this			
			
		end
	elseif wl_sacha['talk_drugs'] = 1:
		act 'Talk about hard drugs':
			*clr & cla
			minut += 10
			wl_shura['talk_drugs'] = 1
			wl_sacha['talk_drugs'] = 2
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/sacha.jpg"></center>'
!!ToDo: Finish this			
			
		end
	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 ---------------------------------