# mod_wlife_phone

if $ARGS[0] = 'start':
	*clr & cla
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	
	act 'Put your phone away': gt $loc, $metka
		
	if wl_wine = 1 and wine = 0: 'Claim the bottle of <a href="exec: wl_wine = 0 & wine = 1 & gt ''mod_wlife_phone'', ''start''">wine</a> Henri gave you as a present.'
		
	if wl_georgiy['payment_method'] = 1:
		'<br>You have to pay <<wl_georgiy[''lump_sum'']>> <b>₽</b>'+iif(wl_debt['amount'] = 0, '.', ' while you already owe the Belys <<wl_debt[''amount'']>> <b>₽</b>.')+' If you want to work at the gas station, you''ll have to take a bus from the industrial train station in St. Petersburg.'
	elseif week < 7:
		'<br>You have to work <<wl_whore[''shifts_week'']>> shifts for Mr. Bely and have worked <<wl_whore[''shifts_done'']>> this week.'+iif(wl_prison['status'] > 0 and wl_prison['shift'] = 0, ' You have to work one of those shifts at the prison', ' ')+iif(wl_whore['shifts_message'] = 0, 'If you want to work at the gas station'+iif(wl_prison['status'] > 0, ' or at the prison,', ',')+' you have to send Volya a message before 16:00.', iif(hour < 17, '<br>Volya will pick you up outside your parents apartment building between 16:00 and 17:00.', ''))
	elseif week = 7 and wl_georgiy['timer_day'] ! daystart:
		'<br>You have to report to Georgiy at the warehouse today. He is at the warehouse after 20:00. You '+iif(wl_whore['shifts_done'] < wl_whore['shifts_week'], 'haven''t', 'have')+' fulfilled this weeks obligation.'
	elseif week = 7 and wl_georgiy['timer_day'] = daystart:	
		'<br>You have reported to Georgiy. Next week you have to work <<wl_whore[''shifts_week'']>> shifts.'
	end
			
	!!Earnings Check
	if wl_georgiy['payment_method'] = 0:
		if wl_whore['shifts_done'] > 0: 	
			wl_whore['earnings_check'] = wl_whore['earnings_week'] / wl_whore['shifts_done']
			
			wl_whore['earnings_check_unmod'] = wl_whore['earnings_check']
			
			if wl_whore['shifts_minimum'] = 3 and wl_whore['shifts_done'] > wl_whore['shifts_week']: wl_whore['earnings_check'] += 750 * (wl_whore['shifts_done'] - wl_whore['shifts_week'])
			
			if wl_whore['earnings_check'] < 1500:
				$wl_whore['performance'] = 'a very weak'
			elseif wl_whore['earnings_check'] < 2250:
				$wl_whore['performance'] = 'a weak'
			elseif wl_whore['earnings_check'] < 3250:
				$wl_whore['performance'] = 'a slightly below average'
			elseif wl_whore['earnings_check'] < 4750:
				$wl_whore['performance'] = 'an average'		
			elseif wl_whore['earnings_check'] < 6500:
				$wl_whore['performance'] = 'an slightly above average'
			elseif wl_whore['earnings_check'] < 9000:
				$wl_whore['performance'] = 'a strong'
			else
				$wl_whore['performance'] = 'a very strong'
			end
					
			'<br>This week you have earned <<wl_whore[''earnings_check_unmod'']>> <b>₽</b> per shift. This is <<$wl_whore[''performance'']>> performance.'
		end
		
		if wl_debt['amount'] > 0:
			'<br>Currently you only get <<wl_whore[''share_player''] - 20>>% of your earnings. Volya keeps 20% to pay down your debts.'
		else
			'<br>Currently you get <<wl_whore[''share_player'']>>% of your earnings.'
		end
		
		'<br>Volya will pick you up and drop you off in <<$wl_loc[2]>>. (<a href="exec: gt ''mod_wlife_phone'', ''loc_change''">Change it</a>)'
		
		if wl_whore['shifts_message'] = 0 and wl_whore['shifts_message_timer'] ! daystart and hour < 16 and week ! 7 and wl_georgiy['timer_week'] ! week: 
			if wl_whore['shifts_done'] >= wl_whore['shifts_week']:
				if wl_stats['acceptance'] < 10:
					'<br>You haven''t accepted your life as a whore and are very hesitant to work an additional shift.'
					gs 'willpower', 'prostitution', 'self', 'hard'
					will_cost = will_cost * 2
				elseif wl_stats['acceptance'] < 20:
					'<br>You haven''t accepted your life as a whore and are hesitant to work an additional shift.'
					gs 'willpower', 'prostitution', 'self', 'hard'
				elseif wl_stats['acceptance'] < 40:
					'<br>You haven''t accepted your life as a whore, but you are slowly getting used to it. It''s still difficult to motivate you to work an additional shift.'
					gs 'willpower', 'prostitution', 'self'
				else
					gs 'willpower', 'prostitution', 'self', 'easy'
				end
				if wl_cheat['will_cost'] = 1: will_cost = 0
				if will_cost <= pcs_willpwr:
					act 'Text Volya that you will work today (<<will_cost>> Willpower)': 
						minut += 1
						wl_whore['shifts_message'] = 1
						wl_whore['shifts_message_timer'] = daystart					
						gs 'willpower', 'pay', 'self'
						gt 'mod_wlife_phone', 'start'
					end
				else
					act 'Text Volya that you will work today (<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_whore['shifts_done'] < wl_whore['shifts_week']:
				act 'Text Volya that you will work today': 
					minut += 1
					wl_whore['shifts_message'] = 1
					wl_whore['shifts_message_timer'] = daystart
					gt 'mod_wlife_phone', 'start'
				end
			end
		elseif wl_whore['shifts_message'] = 1 and wl_whore['shifts_message_timer'] = daystart and hour < 17:
			act 'Text Volya that you can''t make it':
				minut += 1
				wl_whore['shifts_message'] = 0
				gt 'mod_wlife_phone', 'start'
			end
		elseif $loc = 'mod_wlife_highway':
			act 'Text Volya to pick you up': wl_temp = 1 & gt 'mod_wlife_volya', 'shift_premature_end'
		end
	end
	
	if wl_iosif['timer'] = 1: '<br>You have to visit Iosif at the warehouse at 23:00.'
		
	if wl_georgiy['timer_week'] < week and wl_demand['party'] = 1:
		'<br>You have to go to the party at Vadim Bely''s house next saturday.'
	elseif wl_georgiy['timer_week'] = week and wl_demand['party'] = 1:
		'<br><font color="red">You can''t work today. You have to go to Volya''s apartment today (19:00) to get ready for the party at Vadim Bely''s house</font>.'
	end
		
	if wl_status['main'] > 4 and PCloStyle = 4 and ShoHeels > 3 and (wl_whore['pirsA'] = 0 or (wl_whore['pirsA'] > 0 and pirsA < 10000)): 
		'<br>You are ready to work. Outfit'+iif(wl_whore['pirsA'] > 0, ', heels and tongue piercing', ' and heels')+' are an appropriate choice to work as a street whore.'
	elseif wl_status['main'] > 4:
		iif(PCloStyle = 4, '<br>Your outfit is an appropriate choice for a prostitute.', '<br>You need to change your outfit to work as a prostitute.')+iif(pirsA < 10000, '', iif(wl_whore['pirsA'] > 0, ' You''ll have to wear your tongue piercing to be able to work.', ''))
		iif(ShoHeels > 3, 'Your shoes are a good choice', 'You should think about your choice of shoes')+' if you want to go to work today.'
	end
						
	if $wl_names['street'] ! '' and wl_thought['pissing'] = 1: act 'Check your personal information': gt 'mod_wlife_phone', 'character'
	
	if wl_status['main'] > 4: act 'Check your information about the Bely''s operation': gt 'mod_wlife_phone', 'investigation'

	if wl_pictures > 0:
		act 'Look at '+iif(wl_pictures['count'] > 1, 'your degrading pictures', 'the degrading picture')+'':
			*clr & cla
			if wl_pictures['start'] = 1:
				*nl & '<center><b>The fateful day</b></center>'
				'<center><img src="mod/wlife/images/sex/story/start/start.jpg"></center>'
			end
			
			if wl_pictures['iosif_1'] = 1:
				*nl & '<center><b>Iosif marking his territory'+iif(wl_pictures['iosif_2'] = 1 or wl_pictures['iosif_3'] = 2, ' (Part 1)', '')+'</b></center>'
				'<center><img src="mod/wlife/images/sex/iosif/warehouse/creampie.jpg"></center>'
			end
			
			if wl_pictures['iosif_2'] = 1:
				*nl & '<center><b>Iosif marking his territory (Part 2)</b></center>'
				'<center><img src="mod/wlife/images/sex/iosif/warehouse/piss_whore.jpg"></center>'
			end
			
			if wl_pictures['iosif_3'] = 2: 
				*nl & '<center><b>Iosif marking his territory (Part '+iif(wl_pictures['iosif_2'] = 1, '3', '2')+')</b></center>'
				'<center><img src="mod/wlife/images/prostitution/party/iosif/iosif_facial.jpg"></center><br>'
			end	
			
			act 'Go back': gt 'mod_wlife_phone', 'start'
		end
	end
		
	if wl_okoro['status'] = 3: 
		act 'Reply to Henri Okoro': gt 'mod_wlife_phone', 'okoro_reply'
	elseif wl_okoro['status'] > 3 and wl_okoro['timer'] ! daystart and week = 7:
		act 'Call Henri Okoro':
			if ($loc ! 'bedr' and $loc ! 'bedr2x' and $loc ! 'bedrPar' and $loc ! 'pavSharedApt' and $loc ! 'mod_BroMod_bedrPar' and $loc ! 'mod_wlife_hotelroom') or (sisterHere = 1 and ($loc = 'bedrPar' or $loc = 'mod_BroMod_bedrPar')):
				*clr & cla
				'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
				'Henri said to call him on a Sunday and you should probably be in your bedroom'+iif(sisterHere = 1 and $loc = 'bedrPar', ', when your sister isn''t here.', '.')
				
				act 'Go back': gt 'mod_wlife_phone', 'start'
			else
				gt 'mod_wlife_okoro', 'call'
			end
		end
	end	
	
	if wl_homeless['video_count'] > 0:
		act 'Visit youporn.com to see your video':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/homeless/set_1/youporn.jpg"></center>'
			if wl_homeless['video_timer'] ! daystart:
				wl_temp = daystart - wl_homeless['video_timer']
				wl_homeless['video_count'] += rand(500,1500) * wl_temp
				wl_homeless['video_timer'] = daystart
				killvar 'wl_temp'
			end
			gs 'arousal', 'porn', 2
			gs 'stat'
			'You look at the number of views. It '+iif(wl_homeless['video_count'] = 70000, 'still is', 'has gone up to')+' <<wl_homeless[''video_count'']>>.'
			
			act 'Close your browser': gs 'arousal', 'end' & gt 'mod_wlife_phone', 'start'
			
			act 'Click play':
				*clr & cla
				'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_1/pussy_1.mp4"></video></center>'
				wl_homeless['video_count'] += 1
				gs 'arousal', 'porn', 6
				gs 'arousal', 'end'
				gs 'stat'
				'You watch yourself getting fucked.'
				
				act 'Close your browser': gs 'arousal', 'end' & gt 'mod_wlife_phone', 'start'
			end
		end
	end
	
	act 'Enter the cheatmenu': gt 'mod_wlife_cheatmenu', 'start'
end

if $ARGS[0] = 'loc_change':
	*clr & cla
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Text him the new address where he should pick you up and drop you off after work.'
	
	act 'Don''t change the address': gt 'mod_wlife_phone', 'start'
	
	act 'Pavlovsk':
		$wl_loc[0] = 'pav_complex'
		$wl_loc[1] = 'start'
		$wl_loc[2] = 'Pavlovsk'
		gt 'mod_wlife_phone', 'start'
	end
	
	act 'Pavlovsk''s Hotel':
		$wl_loc[0] = 'pav_train'
		$wl_loc[1] = ''
		$wl_loc[2] = 'Pavlovsk''s Hotel'
		gt 'mod_wlife_phone', 'start'
	end
	
	act 'St. Petersburg':
		$wl_loc[0] = 'street'
		$wl_loc[1] = ''
		$wl_loc[2] = 'St. Petersburg'
		gt 'mod_wlife_phone', 'start'
	end
	
	act 'Pushkin/Old Town':
		'street'
		$wl_loc[0] = 'liam'
		$wl_loc[1] = ''
		$wl_loc[2] = 'Pushkin/Old Town'
		gt 'mod_wlife_phone', 'start'	
	end
	
	act 'Gadukino':
		'street'
		$wl_loc[0] = 'gadukino'
		$wl_loc[1] = ''
		$wl_loc[2] = 'Gadukino'
		gt 'mod_wlife_phone', 'start'	
	end
end

if $ARGS[0] = 'character':
	*clr & cla
	'<center><img src="<<func(''$face_image'')>>"></center>' 
	
	'<b>Names:</b>'
	if $wl_names['street'] ! '': 'The name you tell your clients is: <<$wl_names[''street'']>> <a href="exec: gt ''mod_wlife_phone'', ''change_name_street''">(Change it)</a>'
	if $wl_names['okoro'] ! '': 'You gave the Okoro brothers your '+iif($wl_names['okoro'] = $pcs_firstname, 'real', 'fake')+' name.'
	if $wl_names['first'] ! '': 'The first name in your fake passport is: <<$wl_names[''first'']>> <a href="exec: gt ''mod_wlife_phone'', ''change_name_passport''">(Change it)</a>'
	if $wl_names['last'] ! '': 'The last name in your fake passport is: <<$wl_names[''last'']>> <a href="exec: gt ''mod_wlife_phone'', ''change_name_passport''">(Change it)</a>'
		
	*nl
	
	'<b>Fetishes</b>'
	'Do you like the following fetishes?'
	if $wl_fetish['humiliation'] ! '': '- Being humiliated: '+iif($wl_fetish['humiliation'] = 'yes', '<b>Yes</b>', '<a href="exec: $wl_fetish[''humiliation''] = ''yes'' & gt ''mod_wlife_phone'', ''character''">Yes</a>')+'|'+iif($wl_fetish['humiliation'] = 'no', '<b>No</b>', '<a href="exec: $wl_fetish[''humiliation''] = ''no'' & gt ''mod_wlife_phone'', ''character''">No</a>')  
	if $wl_fetish['pissing'] ! '': '- Pissing: '+iif($wl_fetish['pissing'] = 'yes', '<b>Yes</b>', '<a href="exec: $wl_fetish[''pissing''] = ''yes'' & gt ''mod_wlife_phone'', ''character''">Yes</a>')+'|'+iif($wl_fetish['pissing'] = 'no', '<b>No</b>', '<a href="exec: $wl_fetish[''pissing''] = ''no'' & gt ''mod_wlife_phone'', ''character''">No</a>')+'|'+iif($wl_fetish['pissing'] = 'blocked', '<b>Blocked</b>', '<a href="exec: $wl_fetish[''pissing''] = ''blocked'' & gt ''mod_wlife_phone'', ''character''">Blocked</a>')
	if $wl_fetish['pissed_on'] ! '': '- Getting pissed on: '+iif($wl_fetish['pissed_on'] = 'yes', '<b>Yes</b>', '<a href="exec: $wl_fetish[''pissed_on''] = ''yes'' & gt ''mod_wlife_phone'', ''character''">Yes</a>')+'|'+iif($wl_fetish['pissed_on'] = 'no', '<b>No</b>', '<a href="exec: $wl_fetish[''pissed_on''] = ''no'' & gt ''mod_wlife_phone'', ''character''">No</a>')+'|'+iif($wl_fetish['pissed_on'] = 'blocked', '<b>Blocked</b>', '<a href="exec: $wl_fetish[''pissed_on''] = ''blocked'' & gt ''mod_wlife_phone'', ''character''">Blocked</a>')
	if $wl_fetish['piss_drinking'] ! '': '- Drinking piss: '+iif($wl_fetish['piss_drinking'] = 'yes', '<b>Yes</b>', '<a href="exec: $wl_fetish[''piss_drinking''] = ''yes'' & gt ''mod_wlife_phone'', ''character''">Yes</a>')+'|'+iif($wl_fetish['piss_drinking'] = 'no', '<b>No</b>', '<a href="exec: $wl_fetish[''piss_drinking''] = ''no'' & gt ''mod_wlife_phone'', ''character''">No</a>')+'|'+iif($wl_fetish['piss_drinking'] = 'blocked', '<b>Blocked</b>', '<a href="exec: $wl_fetish[''piss_drinking''] = ''blocked'' & gt ''mod_wlife_phone'', ''character''">Blocked</a>') 
	if $wl_fetish['rimjob'] ! '': '- Giving rimjobs: '+iif($wl_fetish['rimjob'] = 'yes', '<b>Yes</b>', '<a href="exec: $wl_fetish[''rimjob''] = ''yes'' & gt ''mod_wlife_phone'', ''character''">Yes</a>')+'|'+iif($wl_fetish['rimjob'] = 'no', '<b>No</b>', '<a href="exec: $wl_fetish[''rimjob''] = ''no'' & gt ''mod_wlife_phone'', ''character''">No</a>')+'|'+iif($wl_fetish['rimjob'] = 'blocked', '<b>Blocked</b>', '<a href="exec: $wl_fetish[''rimjob''] = ''blocked'' & gt ''mod_wlife_phone'', ''character''">Blocked</a>') 
	if $$wl_fetish['atm'] ! '': '- Ass to mouth: '+iif($wl_fetish['atm'] = 'yes', '<b>Yes</b>', '<a href="exec: $wl_fetish[''atm''] = ''yes'' & gt ''mod_wlife_phone'', ''character''">Yes</a>')+'|'+iif($wl_fetish['atm'] = 'no', '<b>No</b>', '<a href="exec: $wl_fetish[''atm''] = ''no'' & gt ''mod_wlife_phone'', ''character''">No</a>')+'|'+iif($wl_fetish['atm'] = 'blocked', '<b>Blocked</b>', '<a href="exec: $wl_fetish[''atm''] = ''blocked'' & gt ''mod_wlife_phone'', ''character''">Blocked</a>') 
	if $wl_brand['type'] ! '' or wl_whore['pirsA'] > 0:
		*nl
		'<b>Tattoos and Piercings:</b>'
		if $wl_brand['type'] ! '': 'You have been branded as a whore with a <a href="exec: gt ''mod_wlife_phone'', ''tattoo'', ''brand''"><<$wl_brand[''type'']>> tattoo</a>.'
		if $wl_brand['text_pubic'] ! '': 'Iosif forced you to get a <a href="exec: gt ''mod_wlife_phone'', ''tattoo'', ''iosif''">pubic tattoo</a>.'
		if wl_whore['pirsA'] > 0: 'The Bely''s forced you to get a tongue <a href="exec: gt ''mod_wlife_phone'', ''tongue_piercing''">piercing</a>.'
	end
	
	*nl
	
	act 'Go back': gt 'mod_wlife_phone', 'start'
end

if $ARGS[0] = 'investigation':
	*clr & cla	
	minut += 1
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	
	if wl_status > 4:
		'<b>Properties:</b>'
		'- They own a warehouse in Pavlovsk''s industrial area'
		if wl_status['hotel']: '- The hotel near the train station is owned by the Belys'
		*nl
	end
	
	if wl_medical['status'] = 2:
		'<b>Doctor Mikhailov:</b>'
		'- As far as you know all whores have to check-n with Doctor Mikhailov at the clinic in Pavlovsk'
		'- Doctor Mikhailov works for the Belys and maybe has files on all the girls working for the Belys'
		*nl
	end

	if wl_investigation['shura'] > 0:
		'<b>Shura Azarov:</b>'
		'- He''s the one in charge or one of the higher ups of a drug dealing operation'
		if wl_drugs['status'] = 2: '- Sacha, an ex-classmate of yours, is selling weed in the park for Shura'
		if wl_shura['talk_hard_drugs'] = 1: '- Shura and the Belys sell hard drugs like heroin and cocaine'
		if wl_shura['ignore_counter'] > 6: '- The Belys store at least some of the drugs at the warehouse'
		*nl
	end
	
	if wl_investigation['okoro'] > 0: 
		'<b>Okoro brothers:</b>'
		'- The Okoro brothers shipped 1,000 kilos of an unknown substance (drugs???) through the St. Petersburg port'
		*nl
	end
	
	if wl_investigation['maxim'] > 0:
		'<b>Maxim:</b>'
		if wl_investigation['maxim'] = 1:
			'- You could see excel-sheets on Maxim''s laptop. Maybe he works as some kind of numbers guy for the Bely''s'
		elseif wl_investigation['maxim'] > 1:
			'- The Belys have legitimate businesses they use to launder their illegal incomes'
			'- Maxim is an accountant and manages the financial side of the Bely''s legitimate businesses'
			if wl_investigation['maxim'] = 3:
				'- You know the password for Maxim''s laptop. It''s Arthur his dog''s name.'
			elseif wl_investigation['maxim'] = 4:
				'- You have copied Maxim''s files onto my usb-drive. You need to '+iif(komp = 0, 'buy a laptop to check the files.', 'check the files on your laptop')
			elseif wl_investigation['maxim'] = 5:
				'- You have all financial information about the legal and illegal parts of the Bely''s business'
			end
		end
		*nl
	end
	
	act 'Go back': gt 'mod_wlife_phone', 'start'
	if wl_investigation['points'] > 0:
		act 'Send the information to the police':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
			'Developer Note: For now the information you have collected is enough to get the Belys arrested, since the other investigations aren''t finished yet. Sending the information will block all content, like the cheat. Right now there is also no ''end scene'' or something similar. You can also revert your decision later if you want to. This will not be possible, when I have added more investigations and a proper end.'
			
			act 'Wait for now': gt 'mod_wlife_phone', 'investigation'
			act 'Send the information': 
				wl_status['stored'] = wl_status['main']
				wl_status['main'] = -1
				gt $loc, $metka
			end
		end
	end
end

if $ARGS[0] = 'change_name_street':
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	$wl_names['street'] = ''
	$wl_names['street'] = input("What name do you want to tell your clients? (Leave blank for <<$pcs_nickname>>)")
	if $wl_names['street'] = '': $wl_names['street'] = $pcs_nickname
	act 'Continue': gt 'mod_wlife_phone', 'character'
end

if $ARGS[0] = 'change_name_passport':
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	$wl_names['first'] = ''
	$wl_names['first'] = input("What is your name in your fake passport? (Leave blank for <<$pcs_firstname>>)")
	if $wl_names['first'] = '': $wl_names['first'] = $pcs_firstname
	if $wl_names['okoro'] ! '' and $wl_names['okoro'] ! $pcs_firstname: $wl_names['okoro'] = $wl_names['first']
	act 'Continue': gt 'mod_wlife_phone', 'character'
end

if $ARGS[0] = 'passport_pay':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_debt['amount'] += 18000
	wl_debt['amount'] += wl_brand['price']
	wl_passport_pay = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. Volya send you a message.'
	*nl
	'<i>Hi <<$pcs_nickname>>, I totally forgot to tell you the good news, when I gave you the passport. It normally costs 30,000 <b>₽</b>, but Georgiy agreed that you don''t have to pay the full amount. I managed to beat down the price to 18,000 <b>₽</b>.</i>'
	*nl
	'18,000 <b>₽</b>? And you also have to pay for getting branded? You read the message again, but the amount didn''t change. You sigh and shake your head. Yeah, that''s really great, you think sarcastically and put your phone away.'
	
	act 'Continue': gt $loc, $metka
end

if $ARGS[0] = 'tattoo':
	*clr & cla
	if $ARGS[1] = 'brand':
		'<center><img src="<<$wl_brand[''image'']>>"></center>'
		'The tattoo on your <<$wl_brand[''type'']>> is your whore brand.'
	elseif $ARGS[1] = 'iosif':
		'<center><img src="<<$wl_brand[''image_pubic'']>>"></center>'
		'Iosif forced you to get the word ''<<$wl_brand[''text_pubic'']>>'' inked on your pubic area.'
	end
	
	act 'Continue': gt 'mod_wlife_phone', 'start'
end

if $ARGS[0] = 'tongue_piercing':
	*clr & cla
	'<center><img  height = 334 src="images/pc/body/piercings/a<<wl_whore[''pirsA'']>>.jpg"></center>'
	'The Bely''s forced you to buy this piercing.'
	
	act 'Continue': gt 'mod_wlife_phone', 'start'
end

if $ARGS[0] = 'start_aftermath_picture':
	*clr & cla
	menu_off = 1
	minut += 1
	wl_status['main'] = 3
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. You have received a message from an unknown number.'
	gs 'stat'
	
	act 'Open it':
		*clr & cla
		minut += 1
		'<center><img <<$set_imgh>> src="mod/wlife/images/sex/story/start/start.jpg"></center>'
		'It''s a picture of you as one of the guys shoots his load directly into your mouth.'
		'Shortly after the picture a second message appears: <i>A little memento of your special day</i>.'
		'You click on the message and ...'
		gs 'stat'
		
		act 'Delete the picture':
			cla & *nl
			wl_pictures['start'] = 0
			'You angrily delete the picture. Why would you ever want to remember that day?'
			
			act 'Put your phone away': gt $loc, $metka
		end
		
		act 'Save the picture':
			cla & *nl
			inhib_exp += 2
			wl_pictures['start'] = 1
			wl_pictures['count'] += 1
			'You save the picture. Maybe you save it as evidence, maybe because you really want to, but whatever your reasons are, you keep it on your phone.'
			
			act 'Put your phone away': gt $loc, $metka
		end
	end
end

if $ARGS[0] = 'start_aftermath_volya':
	*clr & cla
	menu_off = 1
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. You are getting a call from an unknown number.'
	
	act 'Answer it': gt 'mod_wlife_volya', 'introduction_start'
end

if $ARGS[0] = 'volya_missed':
	*clr & cla
	menu_off = 1
	wl_whore['shifts_message'] = 0
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. Volya send you a message.'
	*nl
	if wl_shift_missed = 0:
		wl_shift_missed = 1
		'<i>Hi <<$pcs_nickname>>. If you aren''t going to make it, send me a message next time.</i>'
	else
		wl_stats['loyalty'] -= rand(0,1)
		'<i>Come on <<$pcs_nickname>>, next time tell me, when you aren''t going to make it. Don''t stand me up like this.</i>'
	end
	
	act 'Put your phone away': gt $loc, $metka
end 

if $ARGS[0] = 'iosif_work_first':
	*clr & cla
	minut += 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. You are getting a call from an unknown number.'
	
	act 'Answer it': gt 'mod_wlife_iosif', 'first_call'
end

if $ARGS[0] = 'iosif_work_regular':
	*clr & cla
	minut += 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. You are getting a call from Iosif.'
	
	gs 'willpower', 'prostitution', 'resist', 'easy'
	if will_cost <= pcs_willpwr:
		act 'Don''t answer it (<<will_cost>> Willpower)': 
			wl_stats['loyalty'] -= rand(0,1)
			wl_iosif['call_avoid'] += 1
			wl_iosif['timer_whore'] = daystart + rand(0,3)
			gt $loc, $metka
		end
	else
		act 'Don''t answer it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
		
	act 'Answer it': wl_iosif['call_avoid'] = 0 & gt 'mod_wlife_iosif', 'regular_call'
end

if $ARGS[0] = 'iosif_party_pic':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_pictures['count'] += 1
	wl_pictures['iosif_3'] = 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. Iosif has send you a picture.'
	
	act 'Open it': 
		*clr & cla
		minut += 2
		gs 'stat'
		'<center><img src="mod/wlife/images/prostitution/party/iosif/iosif_facial.jpg"></center><br>'
		'A small message accompanies the picture: <i>Slut look what I found. Isn''t it a great picture? I sifted through all the footage I could get my hands on. I hope you like it.</i>'
		
		act 'Continue': gt $loc, $metka
	end
end

if $ARGS[0] = 'iosif_missed':
	*clr & cla
	menu_off = 1
	wl_iosif['call_missed'] += 1
	wl_stats['loyalty'] -= rand(2,6) * wl_iosif['call_missed']
	wl_iosif['timer_whore'] = daystart + rand(2,4)
	wl_iosif['timer'] = 0
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. Iosif send you a message.'
	*nl
	if wl_iosif['call_missed'] > 1 and wl_bad['status_punishment'] = 0:
		wl_bad['status_punishment'] = 1
		wl_bad['iosif'] = 1
		wl_iosif['call_missed'] = 0
		'<i>This was the last time that you ignored me. I called Georgiy and told him what a bitch you were. Good luck on Sunday.</i>'
	elseif rand(0,1) = 0:
		'<i>Who do you think you are? You fucking cunt. Next time, when I tell you to get your ass to the warehouse, you''ll get your fucking ass to the warehouse!</i>'
	else
		'<i>I told you to come to the warehouse you stupid bitch. Move your ass next time or you''ll fucking regret it.</i>'
	end
	
	act 'Put your phone away': gt $loc, $metka
end

if $ARGS[0] = 'iosif_avoid':
	*clr & cla
	menu_off = 1
	wl_iosif['call_missed'] += 1
	wl_stats['loyalty'] -= rand(2,6) * wl_iosif['call_missed']
	wl_iosif['timer_whore'] = daystart + rand(2,4)
	wl_iosif['call_avoid'] = 0
	minut += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. Iosif send you a message.'
	*nl
	if wl_iosif['call_missed'] > 1 and wl_bad['status_punishment'] = 0:
		wl_bad['status_punishment'] = 1
		wl_bad['iosif'] = 1
		wl_iosif['call_missed'] = 0
		'<i>This was the last time that you ignored me. I called Georgiy and told him what a bitch you were. Good luck on Sunday.</i>'
	elseif rand(0,1) = 0:
		'<i>Fucking lazy bitch, answer your fucking phone, when I call you.</i>'
	else
		'<i>Pick up, when I fucking call you!</i>'
	end
	
	act 'Put your phone away': gt $loc, $metka
end

if $ARGS[0] = 'volya_party_warning':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_party_warning_day = daystart
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. Volya send you a message.'
	*nl
	'<i>Hi <<$pcs_nickname>>, remember to be at my apartment at 19:00 to go to Vadim''s party. This is important!</i>'
	
	act 'Put your phone away': gt $loc, $metka
end

if $ARGS[0] = 'okoro':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_okoro['status'] = 3
	wl_okoro['timer'] = daystart
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. An unknown number send you a message.'
	*nl
	'<i>Hello <<$wl_names[''okor'']>>. I hope you don''t mind, but I asked Vadim for your number. If you ever want to chat, send me a message. I typically have some free time on Sundays.
	- Henri Okoro</i>'
	
	act 'Put your phone away': gt $loc, $metka
	act 'Reply': gt 'mod_wlife_phone', 'okoro_reply' 
end

if $ARGS[0] = 'okoro_reply':
	*clr & cla
	menu_off = 1
	minut += rand(3,7)
	wl_okoro['status'] = 4
	wl_okoro['timer'] = daystart
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'You type a quick message to Henri that you would like to chat with him someday. It only takes a few minutes for Henri to reply: <i>There is a video chat app I always wanted to give a try if you''re up for it. Talking would be fine, but I really want to see you.</i>'
	
	act 'Install the app': 
		cla & *nl
		minut += 1
		gs 'stat'
		'You quickly download the app and install it. You can now call Henri on a Sunday.'
		
		act 'Put your phone away': gt $loc, $metka
	end
end

if $ARGS[0] = 'leon_reminder':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_okoro['timer'] = daystart
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. Henri Okoro send you a message.'
	*nl
	'<i>Hello <<$wl_names[''okoro'']>>. Léon is looking forward to tonight and he wanted me to tell you, that he''s in room 309 and should be back in his room after ten.</i>'
	*nl
	'You wonder for a second why Henri and not Léon is texting you, but then you remember that his brother doesn''t speak Russian, not even English. Why would Henri send his brother to Georgiy instead of going himself, when he doesn''t speak either of those languages? Maybe Georgiy speaks French? But you somehow doubt it. And then you realize that you also won''t be able to talk to him. Not that you expect a lot of talking, but still it could make it more complicated.' 
	
	act 'Put your phone away': gt $loc, $metka
end

if $ARGS[0] = 'homeless_aftermath':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_homeless['video_count'] = 70000
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/phone_holding.jpg"></center>'
	'Your phone vibrates in your '+iif(bag = 1, 'purse', 'pocket')+'. The unknown person, who send you the picture of getting blowbanged in the warehouse, send you another message.'
	*nl
	'<i>Nice work <<$pcs_nickname>>, you really fucked him good. See for yourself, I''m not the only one saying that: <a href="exec: minut += 2 & gt ''mod_wlife_phone'', ''homeless_aftermath_link''">https://www.youporn.com/watch/15288211/young-russian-whore-makes-a-bum-s-day</a>'
	'See you next Sunday, Georgiy</i>'
	
	act 'Click on the link': gt 'mod_wlife_phone', 'homeless_aftermath_link'
end

if $ARGS[0] = 'homeless_aftermath_link':
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/homeless/set_1/youporn.jpg"></center>'
	wl_homeless['video_timer'] = daystart
	gs 'arousal', 'porn', 2
	gs 'stat'
	'With trembling hands you click on the link praying that it isn''t what it obviously is.'
	'Oh... my... god... they really made a video. It''s short, only two minutes, but it isn''t a problem for you to recognize yourself even if your face isn''t visible. There is no doubt about it.'
	*nl
	'Why would they do that? Isn''t it enough for you to get pounded by a hobo? Why do they need to publicly humiliate you? But while you''re pondering those questions the only possible answer is already forming in your mind. It''s not about humiliating you, it''s blackmail material. You bet your life on it, that this isn''t all there is. They probably took a longer video where your face is visible in some part of it.'
		
	act 'Watch it again': wl_temp = 1 & gt 'mod_wlife_phone', 'homeless_aftermath_watch'
	act 'Read the comments': wl_temp = 1 & gt 'mod_wlife_phone', 'homeless_aftermath_comments'
end

if $ARGS[0] = 'homeless_aftermath_watch':
	*clr & cla
	'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_1/pussy_1.mp4"></video></center>'
	gs 'arousal', 'porn', 6
	gs 'stat'
	'Seeing it again comes with a bunch of different emotions. It''s humiliating, frustrating, enraging and so much more. Your mind can''t decide what to focus on and so you watch it again and again and again...'
	*nl
	'Three things stand out from the confusing mix of emotions: disgust, arousal and pride.'
	'You are disgusted by it, when you remember the smell, how his filthy hands felt on your body and his dick inside you. But a hint of arousal also flares up inside you, when you remember how degrading the whole experience was and a little bit of pride manifests itself, when you think about how you gave him a happy memory to hold on to in what must be a miserable existence.'
	*nl
	'In the end one of the three dominates your reaction to the video...'
	
	act 'Disgust':
		cla & *nl
		wl_homeless['bad'] -= 1
		wl_homeless['good'] -= 1
		'That whole experience was one of the worst days of your life and you hope to never have to repeat it.'
		
		gs 'mod_wlife_phone', 'homeless_aftermath_actions', 'watch'
	end
	
	act 'Pride':
		cla & *nl
		wl_homeless['good'] += 1
		pcs_mood = 100
		gs 'stat'
		'You really did it and stepped up. In the end you conquered your own fear and revulsion. Yeah, it was disgusting, but you''re proud of yourself to be able to get through it and that in the process you actually did something nice for somebody.'
		
		gs 'mod_wlife_phone', 'homeless_aftermath_actions', 'watch'
	end
	
	act 'Arousal':
		cla & *nl
		wl_homeless['bad'] += 1
		if pcs_horny < 60: pcs_horny = 60
		gs 'stat'
		'At some point you have to deal with those weird flashes of arousal that spark inside you whenever you''re being degraded. You should be ashamed of yourself, the conscious part of your brain tells you, but your perverted subconscious relishes those memories like getting fucked by a homeless men'+iif($wl_fetish['pissed_on'] = 'yes', ' or being pissed on by Iosif.', '.') 
		
		gs 'mod_wlife_phone', 'homeless_aftermath_actions', 'watch'
	end
end

if $ARGS[0] = 'homeless_aftermath_comments':
	*clr & cla
	minut += 3
	wl_adrian['timer'] = daystart + rand(2,5)
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/homeless/set_1/youporn.jpg"></center>'
	'It already has over 70,000 views... "70,000?" you whisper and shake your head in disbelieve. You scroll down to take a look at the comments'
	*nl
	'<i>1. That girl knows her place.</i>'
	iif($wl_homeless['condom'] = 'yes' or $wl_homeless['condom'] = 'broke', '<i>2. Such a vile whore doesn''t deserve a condom, she should have let him fuck her raw.</i>', '<i>2. She isn''t even using a condom. Such a piece of trash. Probably is riddled with diseases.</i>')
	'<i>3. Doing her good deed for the day...</i>'
	'<i>4. Where is the rest??? I want to see more of her!!</i>'
	'<i>5. Only thinking about it makes me cum... again.</i>'
	iif($wl_homeless['condom'] = 'yes' or $wl_homeless['condom'] = 'broke', '<i>6. I hope the condom broke that bitch doesn''t deserve it any better.</i>', '<i>6. I hope he came inside her. That bitch deserves a bum-baby.</i>')
	'<i>7. Shut up you haters. That bitch is hot. Girls who fuck everything that moves are the best.</i>'
	'<i>8. Probably the best day of his life.'
	'<i>9. I bet she''s hot as fuck, just look at her legs... somebody knows who she is????</i>'
	'<i>10. Damn I wish there was more...</i>'
	'<i>11. He''s the happiest bum in the whole world.</i>'
	*nl
	'After reading the first comments, you liked...'
	
	act 'None of them':
		cla & *nl
		wl_stats['acceptance'] -= 1
		wl_homeless['bad'] -= 1
		wl_homeless['good'] -= 1
		'Why would you like any of them? Those men all are fucked up perverts and can go to hell.'
		
		gs 'mod_wlife_phone', 'homeless_aftermath_actions', 'comments'	
	end
	
	act '4, 5, 7, 9 and 10':
		cla & *nl
		wl_stats['acceptance'] += 2
		'You know that you shouldn''t care what random men on the internet think about you, but you feel validated by their comments about wanting to see more and masturbating to you.'
		
		gs 'mod_wlife_phone', 'homeless_aftermath_actions', 'comments'	
	end
	
	act '3, 8 and 11':
		cla & *nl
		wl_homeless['good'] += 1
		'It''s not a very healthy reaction, your brain tells you, but that can''t stop your heart from beating a bit faster, when you read those comments. Helping the needy is something everybody should do, it isn''t something bad.'
		
		gs 'mod_wlife_phone', 'homeless_aftermath_actions', 'comments'
	end
	
	act '1, 2, 6 and 8':
		cla & *nl
		wl_homeless['bad'] += 1
		if pcs_horny < 60: pcs_horny = 60
		gs 'stat'
		'You feel ashamed, but can''t lie to yourself, when your eyes keep going back to the degrading comments, that you''re nothing more than trash. They trigger something inside you that lay dormant until you have been exposed to more and more degrading situation like getting fucked by strangers in their cars'+iif(wl_vadim['rough'] = 2, ' or begging Vadim to fuck you in the attic.', '')
				
		gs 'mod_wlife_phone', 'homeless_aftermath_actions', 'comments'
	end
end

if $ARGS[0] = 'homeless_aftermath_actions':
	if $ARGS[1] = 'watch':
		if wl_temp < 2: 
			act 'Read the comments': wl_temp = 2 & gt 'mod_wlife_phone', 'homeless_aftermath_comments'
		else
			act 'Put your phone away': 
				killvar 'wl_temp'
				gs 'arousal', 'end'
				gt $loc, $metka
			end
		end
	else
		if wl_temp < 2: 
			act 'Watch it again': wl_temp = 2 & gt 'mod_wlife_phone', 'homeless_aftermath_watch'
		else
			act 'Put your phone away': 
				killvar 'wl_temp'
				gs 'arousal', 'end'
				gt $loc, $metka
			end
		end
	end
end

--- mod_wlife_phone ---------------------------------
