# mod_wlife_story

if $ARGS[0] = 'start_0':
	*clr & cla
	minut += 5
	menu_off = 1
	wl_timer['main'] = daystart
	wl_status['start'] = 1
	wl_stats['respect'] = 60
	gs 'mod_wlife_npc'
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/objects/newspaper.jpg"></center>'
	'The daily newspaper is on the kitchen table. Typically, it get''s read by your step-father in the morning and then get''s ignored by the rest of the family until it ends up in the trash in the evening. For once the lead story peaks your interest, when you glance at it. You pick it up and start to read.'
	*nl
	'<i>Missing girl (<<age>>) found dead near Pavlovsk/St. Petersburg.</i>'
	'<i>Two hunters made a gruesome discovery yesterday near the small village of Gadukino. "Suddenly Bogdan, my dog, went crazy and runs away deeper into the woods. We followed him and then we found her, the girl" one of the hunters told our reporter. The body of the young girl was quickly identified by the police as the <<age>> year old Zoya Stepanova. She was reported missing by her parents two weeks ago, when she didn''t return home Sunday evening after supposedly going to a friend. "She was such a sweet girl, but something changed a few months ago. She become withdrawn and didn''t talk to us anymore," her mother told our reporter. The police confirmed that they treat the case as a suicide. The toxicology report identified a common sleeping pill in her blood that matches pills that were found near the body.</i>'
	*nl
	'Zoya Stepanova? Did she go to your school? The name doesn''t ring a bell.'
		
	act 'Put the newspaper away': 
		if willpowermax < 100:
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/wlife/images/objects/info.gif"></center>'
			*nl
			'It''s recommended to start <i>Whore Life</i> with a maximum of 100 willpower. You can only have <<willpowermax>> willpower. Do you want to continue with <<willpowermax>> or raise it to 100?'
			
			act '<<willpowermax>>': gt 'kuhrPar'
			act '100': 
				willpowermax = 100
				pcs_willpwr = willpowermax
				gt 'kuhrPar'
			end
		else
			gt 'kuhrPar'
		end
	end
end

if $ARGS[0] = 'start_1':
	*clr & cla
	minut += 2
	menu_off = 1
	wl_timer['main'] = daystart + rand(0,2)
	wl_status['start'] = 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/objects/jeep.jpg"></center>'
	'You were about to cross the street near the '+iif(hour = 7, 'school', 'community center')+', when an old jeep turns around a corner and slowly drives down the road towards you. Can''t he speed up a bit? You think as you watch him slowly crawl towards you way below the speed limit of 60 km/h. Two boys, each maybe two or three years older than you, are sitting inside the Jeep and neither is watching the road. They''re instead staring at a group of girls outside the '+iif(hour = 7, 'school', 'community center')+' and talking excitedly to each other. "Boys," you whisper and roll your eyes as the car drives by.'
	
	act 'Continue': gt 'pav_residential'
end

if $ARGS[0] = 'start_2':
	*clr & cla
	minut += 2
	menu_off = 1
	wl_timer['main'] = daystart + rand(0,2)
	wl_status['start'] = 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/objects/jeep.jpg"></center>'
	'You walk down the streets in Pavlovsk''s residential area near the '+iif(hour = 7, 'school', 'community center')+', when a chill runs down your spin and you have the sudden feeling of being watched. You turn around and see that the boys inside the jeep are back. It''s slowly driving by and one of the two boys stares at you while the other one looks at a group of girls on the other side of the road. This is more than two boys looking at girls, this feels creepy. Your gaze follows the car for a few more seconds, before it turns right and vanishes behind a building.'
	
	act 'Continue': gt 'pav_residential'
end

if $ARGS[0] = 'start_3':
	*clr & cla
	minut += 2
	menu_off = 1
	wl_timer['main'] = daystart
	wl_status['start'] = 4
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/objects/jeep.jpg"></center>'
	'The jeep is back again. This time it''s parked outside the '+iif(hour = 7, 'school', 'community center')+', but the same boys are sitting inside it. They point at some of the girls and even take photos with their smartphones. At some point one of them takes a picture of you as well. This is going too far. Maybe you should do something? Let them know they got caught stalking you and the other girls?'

	act 'Ignore it': gt $loc

	gs 'willpower', 'misc', 'self', 'medium'
	if will_cost <= pcs_willpwr:
		act 'Tease them (<<will_cost>> Willpower)':
			*clr & cla
			minut += 2
			wl_stats['respect'] += 2
			wl_stats['loyalty'] -= 2
			pcs_mood += 20
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'<center><video autoplay loop src="mod/wlife/images/player/flip_off.mp4"></video></center>'
			'You conjure up a playful smile, when one of the boys looks at you. This is the moment you have waited for. His eyes grow wide, when you push two fingers inside your mouth. He points at you while his other hand taps the shoulder of his friend to get his attention. When his eyes are fixed on you as well, you pull out your index finger, before lasciviously pulling out your middle finger as well, flipping them off in the process.'
			'The boys stare at you for several seconds, staring at you in disbelief. Then they spring into action. One starts the car while the other one takes another picture of you with his phone, before the jeep accelerates and speeds away. Idiots, you think as you let out a low chuckle.'
			
			act 'Continue': gt $loc
		end
	else
		act 'Tease them (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
end

if $ARGS[0] = 'start_4':
	*clr & cla
	menu_off = 1
	wl_timer['main'] = daystart
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/objects/jeep.jpg"></center>'
	'The jeep, you have seen the last few days, speeds around a corner as you cross the street and nearly runs you over. The driver breaks hard and pulls over to the side. The two boys and two scary looking older men get out of the jeep. "There she is," one of the boys shouts and points at you.'	
			
	act 'Run away':
		*clr & cla
		minut += 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/characters/vadim_bely.jpg"></center>'
		'Instinctively you turn around and try to run away, but they quickly catch up to you. The driver, a bald guy with a lot of tattoos, tries to grab your wrist. You pull away from him, slapping his hand away from your body as you do. "Get your hands off me!" You can see the look in his eyes harden, and one of the younger guys roughly grabs you by the wrist again. The tattooed man snarls at you. "Who do you think you are? Show some respect, you fucking cunt," he shouts, before turning towards one of the younger guys. "That''s the bitch you were talking about?" he asks. "Yeah," one of them replies while the other one nods in agreement.'
		
		act 'Plead with them':
			*clr & cla
			minut += 2
			gs 'pain', 6, 'handR', 'twist'
			gs 'pain', 6, 'armR', 'twist'
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/player/wrist.jpg"></center>'
			'His hand has your wrist gripped like it''s in a vice, and you involuntarily shriek in pain: "Ow! Please let me go, you''re hurting me!" Instead of letting go, he twists your arm behind your back, which hurts even more. The tattooed man doesn''t look like he pities you at all. "Shut the fuck up or I''ll shut you up for good." You''re wincing in pain and are at a loss for words. Meanwhile, he digs through your personal items and finds your passport. "<<$pcs_firstname>> <<$pcs_lastname>>, living in Pavlovsk... Interesting." He pockets your passport. Then he turns back to you and says in a menacing voice. "You know what <<$pcs_firstname>>, you remind me of of one of my girls. She was being rude to me a few days ago, not even as much as you are now. I had to hurt her, really hurt her." The other man twists your arm again to proof his point. "Get her in the car."'
					
			act 'Go with them quietly': 
				cla & *nl
				minut += 1
				wl_stats['loyalty'] += 2 
				'You give up. There is no way that you would get away from them. "By the way," he says, when you reach the car, "my name is Bely, Vadim Bely, but for you it''s Mr. Bely."'
				gs 'stat'
										
				act 'Continue': gt 'mod_wlife_story_sex', 'start'
			end
									
			gs 'willpower', 'misc', 'self', 'easy'
			if will_cost <= pcs_willpwr:
				act 'Try to get away (<<will_cost>> Willpower)':
					*clr & cla
					minut += 2
					wl_stats['loyalty'] -= 2
					wl_stats['respect'] += 2
					gs 'willpower', 'pay', 'self'
					gs 'stat'
					'<center><img <<$set_imgh>> src="mod/wlife/images/player/caught.jpg"></center>'
					'You scream, hoping that somebody hears you and try to run away again.'
					'"Get her boys!" the tattooed man screams and two of his guys easily grab you while a third one puts his hand over your mouth.'
					'"Quick, get here into the car," the tattooed man says and they drag you to it. You scream against the hand, struggle and kick with your feet, but to no effect.'
					'"That''s a feisty one, Mr. Bely," one of the guys says to the tattooed guy.'
					'"Don''t worry Iosif, she will learn to behave. They always do."'
											
					act 'Continue': gt 'mod_wlife_story_sex', 'start'
				end
			else
				act 'Try to get away (<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] = 'start_aftermath_volya':
	*clr & cla
	menu_off = 1
	minut += 5
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/volya_sokolov.jpg"></center>'
	'Volya is still there when you leave the bathroom. "Are you alright?" he asks with a worried look.'
	gs 'stat'	
	
	act 'Nod weakly':
		cla & *nl
		'You just nod and keep your head down.'
		'"Listen to me <<$pcs_firstname>>, I know that you are probably angry, afraid and don''t know what to do." He stops for a moment waiting for a reaction, but you are still looking down and keeping your mouth shut.'
		'"There are worse things than to let some guys stick their cocks in you. They could stick knives in you, instead. You need to be strong, keep your head down and stay out of trouble. I''ll help you get through this if I can."'
		*nl
		'You look up and think that...'
		
		act 'You can''t trust him':
			cla & *nl
			npc_rel['A904'] -= 10
			'... you can''t trust him. He didn''t fuck you like the others, but he is still part of their gang.'
			'"Just take me to Georgiy," you say quietly.'
			
			act 'Follow him': gt 'mod_wlife_story', 'start_aftermath_georgiy'
		end
		
		act 'You can trust him':
			cla & *nl
			npc_rel['A904'] += 5
			'... you can trust him. He seems to care and as part of Mr. Bely''s crew he might be able to help you get through this.'
			'"Thanks, Volya," you say.'
			'He smiles. "Ok, follow me. I''ll take you to Georgiy."'
			
			act 'Follow him': gt 'mod_wlife_story', 'start_aftermath_georgiy'
		end
	end
	
	act 'Cry':
		cla & *nl
		'"No," you whisper and tears start to fill your eyes. Within a second he takes you into his arms. "<<$pcs_nickname>>, it''s ok, I''ll help you get through this."'
		
		act 'Push him away':
			cla & *nl
			npc_rel['A904'] -= 20
			'"Get away from me," you tell him between sobs and push him away. "Just leave me alone."'
			'"<<$pcs_firstname>>," he says with a calm voice. "There are worse things than to let some guys stick their cocks in you. They could stick knives in you, instead. You need to be strong, keep your head down and stay out of trouble. I''ll help you get through this if I can."'
			*nl
			'You wipe away your tears and shake your head. "Really, please leave me alone and just take me to Georgiy."'
			'"Fine, if that''s what you want, but my offer stands."'
			
			act 'Follow him': gt 'mod_wlife_story', 'start_aftermath_georgiy'
		end
		
		act 'Cry into his shoulder':
			cla & *nl
			npc_rel['A904'] += 20
			'The flood gates are open and you can''t stop yourself from crying into his shoulder.'
			'"<<$pcs_firstname>>," he says with a calm voice and looking more and more worried by the second. "There are worse thinks than to let some guys stick their cocks in you. They could stick knives in you instead. You need to be strong, keep your head down and stay out of trouble. I''ll help you get through this if I can."'
			'Those words don''t do anything to calm you down and you keep crying. It takes a few more minutes and more soothing words from Volya to really calm you down.'
			*nl
			'When you finally let go, he gives you a warm smile. "Are you ready to go to Georgiy?"'
			'You weakly nod.'
			'"Remember, be strong and do what they say. We''ll figure out a way to get you through this."'
			
			act 'Follow him to Georgiy': gt 'mod_wlife_story', 'start_aftermath_georgiy'
		end
	end
	
	act 'Tell him to go fuck himself':
		cla & *nl
		'"Really? Am I alright? Fuck you Volya!" you swear, but keep your voice down, so that no one else can hear you. "They basically raped me. How do you think I feel?"'
		'He takes a step closer to you. "Listen to me <<$pcs_firstname>>, I get it, you''re pissed and rightly so, but talking like that can get you in a lot of trouble."'
		'"Trouble? How can I possibly get into more trouble?" venting your anger. "They want me to... to be... to be a prostitute!"'
		'"<<$pcs_firstname>>," he says with a calm voice and looking more and more worried by the second. "There are worse things than to let some guys stick their cocks in you. They could stick knives in you, instead. You need to be strong, keep your head down and stay out of trouble. I''ll help you get through this if I can."'
		
		act 'Tell him you don''t want his help':
			cla & *nl
			npc_rel['A904'] -= 20
			'"I don''t need and don''t want your help, Volya. Just take me to Georgiy."'
			'"Fine, follow me."'
			
			act 'Follow him': gt 'mod_wlife_story', 'start_aftermath_georgiy'
		end
		
		act 'Calm down and accept his help':
			cla & *nl
			npc_rel['A904'] -= 10
			'You take a breath. "Ok, Volya. I''ll try."'
			'"Good, now let''s go to Georgiy."'
						
			act 'Follow him': gt 'mod_wlife_story', 'start_aftermath_georgiy'
		end
	end
end

if $ARGS[0] = 'start_aftermath_georgiy':
	*clr & cla
	minut += 2
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/warehouse/couch.jpg"></center>'
	'Volya leads you through an old and neglected hallway. A kitchen is right next to the bathroom, but you never want to cook or eat something in there. It''s in a horrible condition, just like the rest of the house.'
	'As you walk on, you move past a common room. Two of the guys are sitting on an old couch and watch TV. Both of them belong to the group who assaulted you. It''s strange to see them so relaxed, chatting with each other and drinking a beer after what happened a few minutes ago. "Those are Shura and Iosif." Volya tells you. "They are Georgiy''s right and left hand man.'
	'"And what about your boss? Mr. Bely?" you ask.'
	'"Vadim? He mostly keeps away from this part of the business. In fact, I don''t see him very often. Georgiy, his brother, manages the day to day operations."'
	*nl
	'Before you can ask him something else, he opens the door to a big but mostly empty room. There is only a lonely couch inside.'
	'"Wait here," he commands, "and don''t do anything stupid."'
	*nl
	'One look at the filthy thing wipes away any thought about sitting down and you decide to just stand where you are and wait.'
	gs 'stat'		
	
	act 'Wait':
		*clr & cla
		minut += 2
		'<center><img <<$set_imgh>> src="mod/wlife/images/characters/georgiy_bely.jpg"></center>'	
		'"Sit down," he commands and, in light of Volya''s warning, you change your mind about the couch and do it without hesitation.'
		'For a moment he only stands there taking a good look at your face and your body. He seems satisfied with what he sees and continues to talk, "Here is how it''s going to be, girl. You are working for us now. You probably have figured out what you are going to do." He looks at you expectedly and you nod.'
		*nl
		'"Good, here is the deal. This will be a mutual beneficial agreement, you get some money, we get some money and everybody will be happy," he starts to explain and you nod every time he makes a pause to wait for a reaction. "If you behave, we''ll never have to punish you again. But if you aren''t a good girl, you''ll leave us no other choice. It''s up to you."'
		'You nod again and keep quiet, as he keeps talking on. "You won''t be working for us here in Pavlovsk. The town is too small, there won''t be enough clients. We have to take you somewhere else."'
		'"No, you can''t do that, please," you interject and look at him shocked, "my whole life is here, my family, school. Please don''t send me somewhere..."'
		'"Shut up!" he screams and stares at you angrily, until you lower your head and look down to the floor. "I''m sorry, Sir."'
		'"Look at me when I''m talking to you," he demands and you look up again. "What do you mean with somewhere?"'
		'"Abroad?" you say, remembering the stories of young eastern European women that get send somewhere in western Europe and end up in a cheap brothel.'
		'"Do I look like some traitorous trash that sends our girls away?"'
		'"No, Sir," you answer him quickly and shake your head.'
		'"Exactly, Russian girls are for Russians," he says. You seem to have triggered something in him. After a moment he continues to explain, "we will pick you up, drive you to work and drive you back home again, when you are finished. Nothing more. You will be back home the same day."'
		*nl
		'"Volya!" he shouts and the young man immediately get''s back inside the room. "Get her some clothes and a pair of heels that are appropriate for her new job."'
		gs 'stat'
		
		act 'Go with Volya': 
			*clr & cla
			minut += 5
			gs 'stat'
			'<center><b>Welcome to G & M - Clothes for all your needs</b></center>'
			'<center><img <<$set_imgh>> src="mod/wlife/images/locations/singles/clothes_shop.jpg"></center>'
			'You go with Volya to the nearby G & M store and rummage through the outfits to find some fitting attire for your new job.'
			*nl
			'After five minutes you find something you could wear.'
			
			act 'Try on the outfit': gt 'mod_wlife_story', 'start_aftermath_firstoutfit'
		end
	end
end

if $ARGS[0] = 'start_aftermath_firstoutfit':
	*clr & cla
	minut += 10
	'<center><b>Welcome to G & M - Clothes for all your needs</b></center>'
		
	i = 0
	j = 0
	
	$wl_shop = '<center><table><tr>'
	
	:wl_jump_firstoutfit
	i += 1
				
	gs 'clothing_attributes', 'cheap', i
	if i < 413 and (cheap[i] = 1 or CloStyle ! 4 or CloBimbo ! 0 or CloInhibit > pcs_inhib): 
		jump 'wl_jump_firstoutfit'
	elseif i < 413:
		j += 1
		wl_cloth_price[i] = rand(1000,1200)
		$wl_shop += '<td><a href="exec: wl_total_price = wl_cloth_price[<<i>>] & cheap[<<i>>] = 1 & cheapH[<<i>>] = 50 & cheapB[<<i>>] = pcs_hips & gt ''mod_wlife_story'', ''start_aftermath_firstheels''"><img title="Click on the picture to buy this outfit." height="250" src="images/pc/clothing/1cheap/<<i>>.jpg"></a></td>'
		if j = 4: j = 0 & $wl_shop += '</tr><tr>'
		jump 'wl_jump_firstoutfit'
	elseif $wl_shop = '<center><table><tr>':
		'<center><img <<$set_imgh>> src="mod/wlife/images/locations/singles/clothes_shop.jpg"></center>'
		'Developer Note: It seems you have run into a problem, it could be that you already own all possible prostitution outfits that are available and Volya can''t buy you one. Sorry about that.'
		act 'Look for a pair of high heels': gt 'mod_wlife_story', 'start_aftermath_firstheels'	
	else
		$wl_shop += '</tr></table></center>'
		$wl_shop += '<br>Click on the outfit you want to buy.'
		$wl_shop
	end
end

if $ARGS[0] = 'start_aftermath_firstheels':
	*clr & cla
	minut += 10
	'<center><b>Welcome to G & M - Clothes for all your needs</b></center>'
		
	i = 0
	j = 0
	
	$wl_shop = '<center><table><tr>'
		
	:wl_jump_firstheels
	i += 1
	
	gs 'shoe_attributes', 'gandm', i
	if i < 51 and (sgandm[i] = 1 or ShoHeels < 4 or ShoHeels > 5): 
		jump 'wl_jump_firstheels'
	elseif i < 51:
		j += 1
		wl_shoe_price[i] = rand(700,900)
		$wl_shop += '<td><a href="exec: wl_total_price += wl_shoe_price[<<i>>] & sgandm[<<i>>] = 1 & gt ''mod_wlife_story'', ''start_aftermath_pay''"><img title="Click on the picture to buy this pair of heels." height="250" src="images/pc/shoes/G&M/<<i>>.jpg"></a></td>'
		if j = 4: j = 0 & $wl_shop += '</tr><tr>'
		jump 'wl_jump_firstheels'
	elseif $wl_shop = '<center><table><tr>':
		'<center><img <<$set_imgh>> src="mod/wlife/images/locations/singles/clothes_shop.jpg"></center>'
		'Developer Note: It seems you have run into a problem, it could be that you already own all possible high heeled shoes that are available and Volya can''t buy you one. Sorry about that.'
		act 'Continue': gt 'mod_wlife_story', 'start_aftermath_pay'
	else
		$wl_shop += '</tr></table></center>'
		$wl_shop += '<br>Click on the shoes you want to buy.'
		$wl_shop
	end
end

if $ARGS[0] = 'start_aftermath_pay':
	*clr & cla
	minut += 2
	gs 'stat'
	'<center><b>Welcome to G & M - Clothes for all your needs</b></center>'
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/singles/clothes_shop.jpg"></center>'
	'Outfit and heels in hand you walk back to Volya who was typing on his phone the whole time you were shopping. "I found something," you say. "Great, then go pay and we can get out of here," he says and points at the checkout counter.'
	'Wait... they are forcing you to become a prostitute and you have to pay for the clothes? Anger boils up inside you about the unfairness of the situation. Why should you have to pay the <<wl_total_price>> <b>₽</b>? '+iif(karta + money < wl_total_price, 'You don''t even have enough money to pay for it.', '')
	
	gs 'willpower', 'misc', 'self', 'medium'
	if will_cost <= pcs_willpwr:
		act 'Protest (<<will_cost>> Willpower)':
			cla & *nl
			minut += 2
			wl_stats['loyalty'] -= 1
			wl_stats['respect'] += 1
			wl_temp = 1
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'"Why do I have to pay for my clothes? Shouldn''t you pay if you''re forcing me into prostitution," you hiss keeping your voice down so that nobody can hear you by accident.'
			'Volya holds up his hand in a defensive gesture. "Don''t blame me. I''m only the messenger. If it would be up to me, you wouldn''t have to pay for it... you wouldn''t be here at all. If the amount is a problem, I can pay for it, but you''ll have to pay the Bely''s back at some point."'
			'"Fine," you sigh. This day gets worse by the minute.'

			gs 'mod_wlife_story', 'start_aftermath_pay_action'
			if karta + money >= wl_total_price:
				act 'Let him pay for it':
					cla & *nl
					minut += 2
					wl_debt['amount'] += wl_total_price
					'"If you don''t mind, can you pay for it?" you ask. He just shrugs, takes the clothes from your hands and says. "No problem." After a few minutes he returns from the checkout counter. "Here, this is for you, but you now owe the Bely''s <<wl_debt[''amount'']>> <b>₽</b>," he says and hands you a shopping bag with your new outfit. "Thanks," you reply.'
					
					act 'Go outside': gt 'mod_wlife_story', 'start_aftermath_end'
				end
			end
		end
	else
		act 'Protest (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	
	gs 'mod_wlife_story', 'start_aftermath_pay_action'
end

if $ARGS[0] = 'start_aftermath_pay_action':
	if karta + money < wl_total_price:
		act 'Tell him you can''t afford it':
			cla & *nl
			minut += 2
			wl_debt['amount'] += wl_total_price
			gs 'stat'
			'"I don''t have enough money," you say, but Volya doesn''t seem to care. He just shrugs, takes the clothes from your hand and says. "No problem, but you''ll have to pay the Bely''s back sooner or later."'
			'After a few minutes he returns from the checkout counter. "Here, this is for you," he says and hands you a shopping bag with your new outfit. '+iif(wl_temp = 1, '"Gee, thanks," you reply, your voice dripping with sarcasm.', '"Thanks," you say and take your new outfit... your new whore outfit from his hands.')
			
			act 'Go outside': gt 'mod_wlife_story', 'start_aftermath_end'
		end
	else
		act 'Pay for it':
			cla & *nl
			minut += 2
			if karta >= wl_total_price:
				karta -= wl_total_price
			elseif money >= wl_total_price:
				money -= wl_total_price
			else
				wl_total_price -= karta
				karta = 0
				money -= wl_total_price
			end
			gs 'stat'
			'You have no other choice, you sigh and pay for your new clothes.'
			
			act 'Go outside': gt 'mod_wlife_story', 'start_aftermath_end'
		end
	end
end

if $ARGS[0] = 'start_aftermath_end':
	*clr & cla
	minut += 30
	wl_status['main'] = 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/volya_sokolov.jpg"></center>'
	'You go outside the shop and Volya tells you that he has to go. "I''ll call you tomorrow and we''ll discuss everything else. I''m on the clock, Georgiy is waiting for me."'
	'You don''t really know what to say, so you just nod. "OK."'
	'"Bye <<$pcs_nickname>>," he says, but turns around after a few minutes and pulls something out of his pocket. "Here, your passport," he says and hands it back to you, before walking back towards the warehouse.'
		
	killvar 'i'
	killvar 'j'
	killvar 'wl_shoe_price'
	killvar 'wl_cloth_price'
	killvar 'wl_total_price'
	killvar '$wl_shop'
	killvar 'wl_temp'
		
	act 'Leave': gt 'pav_industrial'
end

!! Police 

if $ARGS[0] = 'police':
	CLOSE ALL
	*clr & cla
	menu_off = 1
	minut += 2
	wl_police['timer'] = daystart
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/search.mp4"></video></center>'
	'Your heart stops when you turn around and see a police car driving towards you. This isn''t good. You turn back around and casually walk to one of the nearby trucks to vanish behind it. You can''t get caught, not now. You left your clients car only a few seconds ago. If the cops have seen that, you''re toast.'
	*nl
	'With each step you take you''re getting closer to the truck. You hope that you didn''t draw any attention towards you and that it''s just a coincidence that they''re driving by.'
	*nl
	'Only a few more meters, a few more seconds until you''re out of sight and you can run away. When a car stops next to you, you don''t look and just keep walking.'
	*nl
	'A car door opens and closes behind you as you turn around the truck. Just keep going, you think, but a few seconds later a hand grabs you. "Not so fast," a male voice says. It''s a cop. You''re busted.'
		
	act 'Tell him you''re innocent':
		*clr & cla
		minut += 2
		'<center><img <<$set_imgh>> src="mod/wlife/images/player/arrested.jpg"></center>'
		'"I didn''t do anything with him," you blurt out and you realize the mistake you made the moment the words have left your mouth. The cop laughs. He actually laughs. That probably wasn''t the smartest thing to say and makes you look even more guilty as if your clothes not already scream ''whore'' at him.'
		'"Haven''t heard that before," he tells you and pulls a pair of handcuffs from his belt. "You just happen to get out of car dressed like this at a gas station?"'
		'Fuck, fuck, fuck... what should you do? You look around and see '+iif(wl_tomas_known = 1, 'Tomas', 'Bely''s guy')+' standing inside the shop of the gas station and an idea forms inside your head.'
		'"Yeah, I work here. My boss is inside. He will clear up this small misunderstanding," you lie desperately, but the officer only shakes his head and puts the cuffs on you.'
		'"You know girl, I only believe one part of that story. Can you guess what it is?" You shake your head as he opens the door of his car. "That you work here."'
		'He applies soft pressure with his hand to your head and guides you safely inside the car.'
		gs 'stat'
		
		act 'Continue':
			*clr & cla
			minut += 2
			'<center><video autoplay loop src="mod/wlife/images/sex/story/police/caught_00.mp4"></video></center>'
			'Your life is over. Literally over. He will take you to the police station and then you either go to prison or the Bely''s kill you.'
			'"Hey? Girl?" The voice of the police officer cuts into your thoughts. "You look like you have seen a ghost. Don''t worry. We typically let first time offenders go with a warning."'
			'"It doesn''t matter. My life is fucking over," you say still shocked from getting arrested.'
			'"You have to look at it as a chance. I don''t know why a young thing like you works on the streets, but maybe get out before it''s to late?" He suggests.'
			*nl
			'He doesn''t understand, why would he? He thinks you are working there like it was your choice. And then you remember his words, first time offenders only get a warning. "Do you have to book me? Can''t you give me the warning here?"'
			'He looks at you in the rear-view mirror and shakes his head. "I have to follow procedure."'
			'"Please, can''t you make an exception? Just this one time?" You beg him, but he shakes his head again.'
			*nl
			'You realize you only have two choices left. Either give up and take your chances with Volya and the Bely''s. You''re probably not the first whore getting caught on the job and Volya promised several times to help you. He should have a way out of this situation. Especially, if you only get a warning. Or you try and convince him.'
			
			gs 'stat'
			
			act 'Give up':
				*clr & cla
				minut += 2
				wl_police['convinced'] = 0
				'<center><video autoplay loop src="mod/wlife/images/sex/story/police/caught_01.mp4"></video></center>'
				'You give up and hope for the best. Maybe if they let you go with a warning, you can safely get out of this situation. "Fine," you say as if it was up for discussion.'
				'"That''s it? You give up so easily?" He suddenly asks. "I thought you were a whore." And what he means by that is clear. Of course, why would a cop be any different than all the other assholes you have met in the last weeks.'
				'"Fine," you say again. If that''s what it takes to make this this mess go away, you will do it.'
				'He turns right onto an old construction side and parks the car. The moment he steps out of the vehicle you feel a wave of relief washing over you. No prison or worse is waiting for you in your future, just another cock and you have learned how to handle those.'
				'"Do your job, bitch," he tells you coldly as he pulls out his rapidly growing dick.'
				
				gs 'stat'
				
				act 'Take his dick into your mouth': gt 'mod_wlife_story_sex', 'police_caught_0'
			end
			
			gs 'willpower', 'sex', 'self'
			if will_cost <= pcs_willpwr:	
				act 'Convince him (<<will_cost>> Willpower)':
					*clr & cla
					minut += 5
					wl_stats['acceptance'] += 2
					wl_police['convinced'] = 1
					gs 'willpower', 'pay', 'self'
					'<center><video autoplay loop src="mod/wlife/images/sex/story/police/caught_00.mp4"></video></center>'			
					'You have fucked for money, you can do it again to avoid prison or worse, you tell yourself and take a deep breath. You have nothing left to lose anyway.'
					'"Sir," you say and put on the fake smile that you show your customers day after day. "Are you sure? Nobody has to know. Please, isn''t there something I could do to convince you?"'
					'"What?" He asks surprised and takes his eyes of the road for a moment.'
					'"You could punish me right here, right now in your car and make sure that I learn my lesson," you suggest as lascivious as possible.'
					'He is silent for a moment, but encouraged by him not dismissing it outright you say: "Isn''t your motto protect & serve? Why don''t you protect me and I serve you?"'
					'He laughs out loud. Not the reaction you were hoping for. He laughs and laughs and laughs while you sit there and wait for him to calm down.'
					*nl
					'"Too much?" You ask half a minute later.'
					'"Yeah and you watch to much american television," he grins. "Also, you may have heard stories about us. But we aren''t all corrupt assholes that would take advantage of you."'
					'You sigh and lean back against the seat. "So, why do I have to meet the only decent cop?"'
					'"Sorry about that," he says half-jokingly, half-seriously.'
					gs 'stat'
					
					act 'Continue':
						*clr & cla
						minut += 5
						'<center><video autoplay loop src="mod/wlife/images/sex/story/police/caught_01.mp4"></video></center>'
						'Several minutes pass until he suddenly turns the car around. "You know what, I have changed my mind. I''ll do it."'
						'That takes you by surprise. "I thought you didn''t want to fuck me?"'
						'"What? No... Oh I see, that was easy to misunderstand. I mean, I have changed my mind about making an exception," he explains as he drives back to the gas station.'
						'"Really?" You ask and when he nods you feel a wave of relief washing over you. "What changed your mind?"'
						'He shrugs. "I don''t know. You''re the first hooker that made me laugh."'
						*nl
						'He parks near the gas station in an old abandoned construction side and turns towards you in the car. "I can''t drop you off at the gas station. Somebody could see me, but it''s only a few hundred meters down the road."'
						'"Ok, thanks. I can find the way," you tell him and when he gets out of the car you realize, he is risking his job by helping you. "Here, let me take those off," he says as he searches for the keys for the handcuffs.'
						*nl
						'This is the first time on the job that somebody does something nice for you without asking for everything in return. You ...'
						
						act 'Thank him':
							cla & *nl
							'... thank him. "Thanks, I know that you didn''t have to do that."'
							'"Yes, I don''t have to and that''s why you have to promise me something," he says as he pulls out his keys.'
							'Here it comes, you think.'
							'"Take care of yourself, OK? I don''t know why you do what you do, but ...," he stops and looks at you for a moment. "Just take care."'
							'You nod and blush a little bit. He seems to be a genuine good guy.'
							*nl
							'"Here take this," he hands you a card with his name and phone number on it. "If you ever have a problem, call me, ok?"'
							'You nod, but the instant his car is around the corner you let his card fall to the ground. You can''t risk taking it with you. It would be too hard to explain if Volya or one of the other guys find it on you.'
							
							act 'Walk to the gas station': minut += 10 & gt 'mod_wlife_highway', 'outside'
						end
						
						gs 'willpower', 'sex', 'self'
						if will_cost <= pcs_willpwr:
							act 'Really thank him (<<will_cost>> Willpower)':
								gs 'willpower', 'pay', 'self'
								gt 'mod_wlife_story_sex', 'police_caught_0'
							end
						else
							act 'Really thank him (<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
			else
				act 'Convince him (<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

!! Police - Aftermath

if $ARGS[0] = 'police_aftermath':
	*clr & cla
	minut += 2
	menu_off = 1
	wl_whore['shifts_message'] = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/objects/jeep.jpg"></center>'
	'A familiar car speeds down the road and stops right next to you. Two of Bely''s men exit it while a third stays behind the wheel.'
	'"Vadim and Georgiy want to talk to you right now." One of them yells as they pull you inside the car.'
	*nl
	'That can''t be a good thing. Isn''t Vadim suppose to stay clear of the day to day operations? You at least remember Volya telling you something like this.'
	'"Phone!" One of them says to you and holds out his hand. You open your mouth, but he cuts you off before you can say anything. "Give me your fucking phone, right now."'
	'With shaking hands you pull it out of your'+iif(bag = 1, ' purse ', ' pocket ')+'and hand it to him. "What''s going on guys?" You ask, but none of them answer you. The guy next to you only rips your phone out of your hands and puts it in his own pocket.'
	*nl
	'After a few minutes you reach the warehouse.'	
	
	act 'Go inside':
		*clr & cla
		minut += 10
		$location_type = 'privat'
		gs 'pain', 8, 'tummy', 'hit'
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/characters/vadim_bely.jpg"></center>'
		'Not only Vadim and his brother Georgiy are already waiting for you but Volya and several other guys are there as well. The menacing look in Vadim Bely''s eyes is only fuel for your panic and every instinct you have, screams at you, to run away.'
		'"Come here, <<$pcs_nickname>>." Vadim tells you with a cold but calm voice and seeing that you don''t have any other choice you go to him.'
		*nl
		'"Fucking snitch," he suddenly yells and punches you so hard in the stomach that you drop down to your knees and can''t breathe for several seconds. He doesn''t care and starts to berate you: "Our guy at the gas station," ''Tomas'' his brother says, but Vadim ignores him and keeps yelling at you. "He told us the cops took you and then you magically reappear at the gas station an hour later?"'
		'"I...," you try to say, but it''s still hard for you to breathe.'
		'"What did you tell them?" He screams furious.'
		'"Nothing, I swear," you reply. "Really, I swear."'
		'"And why the fuck would he let you go?" He asks you and his demeanor tells you this is your only chance to get yourself out of this situation. You have to...'
				
		act 'Tell them the truth':
			*clr & cla
			minut += 2
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/vadim_bely.jpg"></center>'
			if wl_police['fucked'] = 1:
				wl_stats['respect'] -= 2
				wl_stats['loyalty'] += 5
				'"I let him fuck me and he let me go, OK?" You tell him panicking.'+iif(wl_police['condom'] = 0, '"I even let the bastard cum inside me, so that I don''t have to talk to the cops."', '')
				'You look from Vadim to Georgiy, but the first to react is Volya: "Why didn''t you tell me something?" He asks you, but one look from Vadim shuts him up.'
				'"I think she is telling the truth," Georgiy says and bends down to you to look directly into your eyes. "Are you telling the truth?" You nod several times and Georgiy smiles. You breathe a sigh of relief. He believes you.'		
			elseif wl_police['fucked'] = 0 and wl_police['convinced'] = 1:
				wl_stats['respect'] += 2
				wl_stats['loyalty'] += 5
				'"It sounds ridiculous, but he just liked me. I swear, I tried to seduce him, but that just made him laugh and then he let me go. He told me never before did a mooker make him laugh and that''s why he let me go." You tell them and their reaction is silence. But after a moment Georgiy bends down to you to look directly into your eyes. "This is the dumbest excuse I have ever heard, but I think it''s true. You aren''t lying to us or are you <<$pcs_nickname>>?" You shake your head several times and he smiles. You breathe a sigh of relief. He belives you.'  
			end
			
			'"NO! She is fucking lying," his brother Vadim screams and roughly pulls you up from your knees. "I know bitches like her, they''re all disloyal cunts."'
			'Tears form in your eyes when he grabs you by your hair and pulls you towards the adjacent house. "Vadim, wait," Georgiy shouts and you can hear footsteps following you. "We can find out the truth before you do something irreversible."'
			'Suddenly Vadim stops still holding you by your hair. "You''re right Georgiy, we can find out the truth. We just have to make her tell us."'
			*nl
			'He let''s go of your hair for a moment to roughly pull your clothes of your body. "Please, I told you the truth," you cry, but he doesn''t listen to you.'
			'"You will stay here with us, until you tell us what we want to know. Either you stop lying or you stay here forever."'
			*nl
			'"I did tell you the truth. Georgiy, Volya, please. I didn''t lie to you."'
				
			gs 'pain', 6, 'hair', 'twist'
			gs 'stat'
			
			act 'Continue': gt 'mod_wlife_story_sex', 'police_aftermath_start'
		end
	end
end

if $ARGS[0] = 'police_aftermath_georgiy':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_status['main'] = 8
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/georgiy_bely.jpg"></center>'
	'This time it isn''t Volya that is waiting for you instead Georgiy stands outside the bathroom. "Come." He says and you follow him down the hallway to your usual spot. The dirty room with the lonely couch.'
	*nl
	'"Sit," he commands and hands you a bottle of water and a pill. "Take this." When you look at it sceptically he adds: "It''s only a painkiller, don''t worry I don''t get my whores hooked on drugs."'
	'You take the pill and the bottle and when you don''t swallow it right away he continues to talk. "Drugged up whore are fun for a month or two, but then you can throw them away."'
	*nl
	'You look at the pill and ...'
	
	gs 'willpower', 'drugs', 'resist', 'easy'
	if will_cost <= pcs_willpwr:
		act 'Hand it back (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'mod_wlife_story', 'police_aftermath_georgiy_pill'
	else
		act 'Hand it back (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	
	act 'Swallow it':
		wl_georgiy['pill'] = 1
		pain['killer'] += 1
		pcs_hydra = 100
		gt 'mod_wlife_story', 'police_aftermath_georgiy_pill'
	end
end

if $ARGS[0] = 'police_aftermath_georgiy_pill':
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/georgiy_bely.jpg"></center>'
	iif(wl_georgiy['pill'] = 0, 'You shake your head and give him the pill back. "Fine," he says annoyed and swallows it himself.', 'You swallow the pill down with some water and when you hand him the half-empty bottle back, he takes out another one and swallows it.')+' "My back is killing me today." He explains, but you can guess that this probably isn''t the truth. He just wanted to show you that the pill was save.'
	gs 'stat'
	*nl
	'"Can I go now?" You ask, but he shakes his head and pulls a huge roll of cash out of his pocket and starts counting. "Nikita, Shura, Iosif, Volya," he says and the only name you never heard before is Nikita. That''s probably the boy you have never seen before. '+iif(wl_vadim['rough'] > 0, '"And Vadim, that makes 5.000 <b>₽</b>."', '"That makes 4.000 <b>₽</b>."')+' He tells you and throws the money on the couch.'
	*nl
	'You stretch out your hand, but in that moment a thought enters your head. If you take it, this becomes a simple transaction as if it was something you agreed to do.'
		
	act 'Leave the cash and go':
		cla & *nl
		wl_stats['respect'] += 5
		wl_stats['acceptance'] -= 5
		'No, you won''t take it and absolve them of their crime. You have some dignity left. "What''s the matter?" He asks.'
		'"Keep it. You pay a hooker upfront, remember? Let''s not make what happened into something it was not." You say and stand up, ready to face the consequences of your words, but he just nods and says: '+iif(week ! 7, '"OK, see you next Sunday."', iif(wl_georgiy['timer_day'] = daystart, '"OK, see you next Sunday."', '"Fine, but we still have to talk about your performance today, so come back later."'))
		'You stand up and walk towards the door, when you remember something. He wasn''t one of the guys that fucked you in the attic and he doesn''t seem like somebody who would mind.'
		
		act 'Leave': gt 'mod_wlife_warehouse', 'street'
		act 'Ask him why he didn''t fuck you': gt 'mod_wlife_story', 'police_aftermath_georgiy_fuck'	
	end
	
	act 'Take the cash and go':
		cla & *nl
		wl_stats['acceptance'] += 5
		money += 4000
		if wl_vadim['rough'] > 0: money += 1000
		gs 'stat'
		'You grab the cash, you are a whore after all and whores get paid. '+iif(week ! 7, '"See you next Sunday."', iif(wl_georgiy['timer_day'] = daystart, '"See you next Sunday."', '"We still have to talk about your performance today, so come back later."'))+' Georgiy says.'
		'You stand up and walk towards the door, when you remember something. He wasn''t one of the guys that fucked you in the attic and he doesn''t seem like somebody who would mind.'
		
		act 'Leave': gt 'mod_wlife_warehouse', 'street'
		act 'Ask him why he didn''t fuck you': gt 'mod_wlife_story', 'police_aftermath_georgiy_fuck'
	end
end

if $ARGS[0] = 'police_aftermath_georgiy_fuck':
	*clr & cla
	minut += 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/georgiy_bely.jpg"></center>'
	'You stop and turn around. "Why didn''t you visit me upstairs like all the others?"'
	'He looks at you and shakes his head. "I don''t rape my girls." You frown and look at him as if he was insane. You can clearly remember him roughly deepthroating you on the fateful day you flipped Vadim''s car off.'
	'"I punish my girls if they misbehave. That is something different," he explains.'
	'No, that''s not something different, that''s complete and utter bullshit, but it''s probably not the best idea to tell him that. So you keep your mouth shut.'	
		
	act 'Leave': gt 'mod_wlife_warehouse', 'street' 
end

--- mod_wlife_story ---------------------------------
