# mod_wlife_highway

$loc = 'mod_wlife_highway'
$locM = 'mod_wlife_highway'
$menu_loc = 'mod_wlife_highway'

if $ARGS[0] = 'outside':	
	if wl_status['main'] > -1 and wl_georgiy['payment_method'] = 0: gs 'mod_wlife_highway', 'event_check'
		
	CLOSE ALL
	if sound = 0:PLAY 'sound/highway.mp3',20
	$metka = 'outside'
	$menu_arg = 'outside'
	menu_off = 0
	
	$location_type = 'public_outdoors'
	
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/highway/gas_'+iif(month > 10 or month < 4, 'winter', '')+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'		
	'The gas station is modern and clean in comparison to other gas stations in the area. To the south of the station is the highway M-10 that goes from St. Petersburg to Moscow. To the north are small villages and towns similar to Pavlovsk which is even further south than the highway.'
	*nl
	'There is a small shop were you can buy something to eat or to drink and a public restroom is also nearby.'
	*nl
	if wl_whore['earnings_day'] > 0: '<br>You have earned <<wl_whore[''earnings_day'']>> <b>₽</b> today.'+iif(wl_georgiy['payment_method'] = 0, ' Your share is <<wl_whore[''earnings_day''] * wl_whore[''share_player''] / 100>> <b>₽</b>'+iif(wl_debt['amount'] > 0, ', but Volya will keep <<wl_whore[''earnings_day''] * 20 / 100>> <b>₽</b> to pay down your debt.', '.'), '')
	
	if wl_status['main'] = -1 or wl_georgiy['payment_method'] = 1: '<br>You can take a bus to the '+iif(money < 75, 'industrial train station', '<a href="exec: gt ''mod_wlife_highway'', ''bus_end''">industrial train station</a>')+' in St. Petersburg. The bus ride and a short walk to the bus station will take 35 minutes and cost 75 <b>₽</b>..'+iif(money < 75, ' You don''t have enough money.', '')
	
	gs 'stat'
			
	act 'Go inside the gas station': minut += 1 & gt 'mod_wlife_highway', 'shop'
	act 'Go to the public restroom': minut += 1 & gt 'mod_wlife_highway', 'restroom'
	act 'Go to work': gt 'mod_wlife_highway', 'work'
	act 'Wait': gs 'obj_din', 'wait'
end	

if $ARGS[0] = 'shop' or $wl_shop_inside = 'yes':
	CLOSE ALL
	if sound = 0:PLAY 'sound/highway.mp3',5
	$metka = 'shop'
	$menu_arg = 'shop'
	menu_off = 0
	
	$location_type = 'public_indoors'
	$wl_shop_inside = 'yes'
	
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/highway/gas_interior.jpg"></center>'
	'The shop is stacked with some magazines, cigarettes, different things to eat and drink.'
	*nl 
	if wl_status['main'] > -1: 
		'Behind the counter stands <a href="exec: minut += 1 & gt ''mod_wlife_highway'',''tomas''">'+iif(wl_tomas_known = 0, 'a plump man', 'Tomas')+'</a>.'
		*nl
	end
	
	$wl_shop_tab = '<center><table align="center">'
	$wl_shop_tab += func ('$stock_item', 20, 'Cigarettes', 115, 'siga', $curloc)
	$wl_shop_tab += func ('$single_stock_item', 1, 'Fashion magazine', 430, 'fashmag', $curloc)
	$wl_shop_tab += func ('$single_stock_item', 1, 'Computer magazine', 430, 'compmag', $curloc)
	$wl_shop_tab += func ('$single_stock_item', 1, 'Biographical magazine', 430, 'biomag', $curloc)
	$wl_shop_tab += func ('$single_stock_item', 1, 'Cooking magazine', 430, 'cookmag', $curloc)
	$wl_shop_tab += func ('$single_stock_item', 1, 'Knitting magazine', 430, 'knitmag', $curloc)
	$wl_shop_tab += func ('$single_stock_item', 1, 'Fitness magazine', 430, 'fitmag', $curloc)
	$wl_shop_tab += func ('$stock_item', 10, 'Wipes', 50, 'salfetka', $curloc, '', iif(bag > 0, 0, 1), 'You need a purse')
	$wl_shop_tab += func ('$stock_item', 20, 'Tampons', 200, 'tampon', $curloc)
	if umbrella = 0: $wl_shop_tab += func ('$single_stock_item', 1, 'Umbrella', 1000, 'umbrella', $curloc, '', iif(bag > 0, 0, 1), 'You need a purse')
	$wl_shop_tab += '</table></center>'
	*pl $wl_shop_tab
	killvar '$wl_shop_tab'
	gs 'stat'
	
	act 'Go outside': $wl_shop_inside = 'no' & minut += 1 & gt 'mod_wlife_highway', 'outside'
	
	act 'Buy and eat a snack (100 <b>₽</b> and 0:05)':
		*clr & cla
		menu_off = 1
		minut += 5
		money -= 100
		pcs_health += 5
		pcs_mood += 40
		fat += 6
		pcs_energy += 60
		if pcs_hydra >= 100:
			pcs_hydra += 10
		else
			pcs_hydra += 20
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		gs 'stat'		
		'<center><img <<$set_imgh>> src="mod/wlife/images/objects/food.jpg"></center>'
		'You enjoy a tasty snack.'
		
		act 'Continue': gt 'mod_wlife_highway', 'shop'
	end
	
	act 'Buy and eat a healthy snack (100 <b>₽</b> and 0:05)':
		*clr & cla
		menu_off = 1
		minut += 5
		money -= 100
		pcs_health += 40
		pcs_mood += 10
		fat += 2
		pcs_energy += 60
		if pcs_hydra >= 100:
			pcs_hydra += 10
		else
			pcs_hydra += 20
		end
		pcs_breath = 0
		cumspclnt = 2
		gs 'cum_cleanup'
		gs 'stat'		
		'<center><img <<$set_imgh>> src="mod/wlife/images/objects/food.jpg"></center>'
		'You enjoy a healthy snack.'
		
		act 'Continue': gt 'mod_wlife_highway', 'shop'
	end

	act 'Buy and drink some water (40 <b>₽</b> and 0:05)':
		*clr & cla
		menu_off = 1
		frost = 1
		if alko > 0: alko -= 1
		minut += 5
		money -= 40
		pcs_health += 10
		pcs_energy += 4
		if pcs_hydra >= 100:
			pcs_hydra += 25
		else
			pcs_hydra += 75
		end
		pcs_breath = 0
		cumspclnt = 2
		gs 'cum_cleanup'
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/objects/water.jpg"></center>'
		'You enjoy a drink of water'
		
		act 'Continue': gt 'mod_wlife_highway', 'shop'
	end
end	

if $ARGS[0] = 'restroom':
	CLOSE ALL
	if sound = 0:PLAY 'sound/highway.mp3',10
	$metka = 'restroom'
	$menu_arg = 'restroom'
	menu_off = 0
		
	$location_type = 'public_outdoors'
	
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/highway/restroom_'+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'		
	'The gas station has a public bathroom. '+iif(wl_restroom_chip = 0, 'It costs 10 <b>₽</b> to use it.', 'You have an employee chip an can use it for free.')+' On the right side of the restroom is a <a href="exec: minut += 1 & gt ''mod_wlife_highway'',''condom_dispenser''">condom dispenser</a>.'
	gs 'stat'
	
	act 'Go back': minut += 1 & gt 'mod_wlife_highway', 'outside'
	
	if money >= 10 and wl_restroom_chip = 0:
		act 'Enter the female restroom': money -= 10 & minut += 1 & gt 'mod_wlife_highway', 'restroom_female'
		act 'Enter the male restroom': money -= 10 & minut += 1 & gt 'mod_wlife_highway', 'restroom_male'
	elseif wl_restroom_chip = 1:
		act 'Enter the female restroom': minut += 1 & gt 'mod_wlife_highway', 'restroom_female'
		act 'Enter the male restroom': minut += 1 & gt 'mod_wlife_highway', 'restroom_male'
	else
		'<br>You don''t have enough money to use the restroom.'
	end
	
	if joint > 0 and wl_drugs['status'] > 0 and wl_drugs['timer_highway'] ! daystart: 
		act 'Smoke a joint':
			*clr & cla
			menu_off = 1
			minut += 5
			wl_drugs['timer_highway'] = daystart
			'<center><img <<$set_imgh>> src="mod/wlife/images/player/joint_smoking.jpg"></center>'
			'You go behind the restrooms and pull a joint out of your purse and light it up. Not before long you''re starting to feel the relaxing effects'+iif(wl_stats['acceptance'] < 20, ' wash away the anxiety about your job.', ' as you''re getting high.')
			gs 'mod_wlife_functions', 'weed_check'
			gs 'stat'
			act 'Go back': gt 'mod_wlife_highway', 'restroom'
		end
	end
end

if $ARGS[0] = 'condom_dispenser':
	CLOSE ALL
	if sound = 0:PLAY 'sound/highway.mp3',10
	$metka = 'condom_dispenser'
	$menu_arg = 'condom_dispenser'
	menu_off = 0
		
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/highway/condoms.jpg"></center>'		
	'A condom costs 100 <b>₽</b> and you have <<wl_status[''condoms'']>> condoms.'
	gs 'stat'
	
	act 'Go back': minut += 1 & gt 'mod_wlife_highway', 'restroom'
	
	if money >= 100: 
		act 'Buy a condom (100 <b>₽</b>)':
			minut += 1
			money -= 100
			if preziktype = 0: prezik += 1
			if preziktype = 1 or preziktype = 2: prezikcount += 1
			gt 'mod_wlife_highway', 'condom_dispenser'
		end
	end
	
	if money >= 500: 
		act 'Buy five condoms (500 <b>₽</b>)':
			minut += 1
			money -= 500
			if preziktype = 0: prezik += 5
			if preziktype = 1 or preziktype = 2: prezikcount += 5
			gt 'mod_wlife_highway', 'condom_dispenser'
		end
	end
	
	if money >= 1000: 
		act 'Buy ten condoms (1000 <b>₽</b>)':
			minut += 1
			money -= 1000
			if preziktype = 0: prezik += 10
			if preziktype = 1 or preziktype = 2: prezikcount += 10
			gt 'mod_wlife_highway', 'condom_dispenser'
		end
	end
end

if $ARGS[0] = 'restroom_female':
	CLOSE ALL
	if sound = 0:PLAY 'sound/highway.mp3',5
	$metka = 'restroom_female'
	$metkaM = 'restroom_female'
	$menu_arg = 'restroom_female'
	menu_off = 0
	
	$location_type = 'bathroom'
	
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/highway/restroom_female.jpg"></center>'		
	'The female restroom is relatively clean. It has has three bathroom stalls which over only a little privacy.'
	*nl
	'A <a href="exec:gt ''mirror'',''start''">mirror</a>, where you can ' + iif(pcs_hairbsh = 0,'<a href="exec: gt ''mirror'',''brush''">brush</a>','brush') + ' your hair hangs over each sink.'
	gs 'stat'
	
	act 'Go outside': minut += 1 & gt 'mod_wlife_highway', 'restroom'
	
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
	dynamic $removepan
!!ToDo: Change $removepan to $publicpan, when the new dev version is out	
end

if $ARGS[0] = 'restroom_male':
	CLOSE ALL
	if sound = 0:PLAY 'sound/highway.mp3',5
	$metka = 'restroom_male'
	$metkaM = 'restroom_male'
	$menu_arg = 'restroom_male'
	menu_off = 0
	
	$location_type = 'bathroom'
	
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/highway/restroom_male.jpg"></center>'		
	'The male restroom is dirty and smells like urine. It has has three bathroom stalls which over only a little privacy.'
	*nl
	'A <a href="exec:gt ''mirror'',''start''">mirror</a>, where you can ' + iif(pcs_hairbsh = 0,'<a href="exec: gt ''mirror'',''brush''">brush</a>','brush') + ' your hair hangs over each sink.'
	gs 'stat'
	
	act 'Go outside': minut += 1 & gt 'mod_wlife_highway', 'restroom'
	
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
	dynamic $removepan
!!ToDo: Change $removepan to $publicpan, when the new dev version is out	
end

if $ARGS[0] = 'tomas':
	*clr & cla
	menu_off = 1
	gs 'stat'
	
	if wl_tomas_known = 1: 
		if npc_rel['A907'] <= 0:
			$wl_tomas_relationship = 'you hate him.'
		elseif npc_rel['A907'] > 0 and npc_rel['A907'] <= 10:
			$wl_tomas_relationship = 'you really don''t like him.'
		elseif npc_rel['A907'] > 10 and npc_rel['A907'] <= 20:
			$wl_tomas_relationship = 'you don''t like him.'
		elseif npc_rel['A907'] > 20 and npc_rel['A907'] <= 60:
			$wl_tomas_relationship = 'you feel indifferent towards him.'
		elseif npc_rel['A907'] > 60 and npc_rel['A907'] <= 90:
			$wl_tomas_relationship = 'you like him.'
		elseif npc_rel['A907'] > 90:
			$wl_tomas_relationship = 'you really like him a lot.'
		end
	end
	
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/tomas.jpg"></center>'
	'Behind the counter stands '+iif(wl_tomas_known = 0, 'a plump man', 'Tomas')+iif(wl_tomas_known = 1, ', <<$wl_tomas_relationship>>', '.')+' He is wearing a bad fitting uniform that stretches over his considerable belly and he looks old enough that he should have retired years ago.'+iif(wl_tomas_known = 1, ' He is paid by Georgiy Belly to look the other way and scrub you from the security feed.', '')
	*nl

	act 'Leave': minut += 1 & gt 'mod_wlife_highway', 'shop'
	if wl_tomas_known = 0:
		cla & *nl
		minut += 1
		wl_tomas_known = 1
		wl_tomas_day = daystart
		'As you step up to the counter the old man looks at your clothes for a moment before he smiles meekly at you.'
		'He seems unsure what to say to you. "Hello, what can I do for you?"'
		gs 'stat'
			
		act 'Tell him who you are':
			*clr & cla
			minut += 1
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/tomas.jpg"></center>'
			'You take a quick look over your shoulder to see if you are alone with him in the shop. "I''m <<$pcs_firstname>>," you say. "Georgiy send me to ... work here."'
			'"Oh, I see. They told me you were coming," he tells you and holds out his hand. You look at it for a moment and then ...' 
			gs 'stat'
			
			act 'Ignore his hand':
				cla & *nl
				minut += 3
				npc_rel['A907'] = 30				
				'"Anyway," he says clearly surprised as he pulls back his hand. "I''m Tomas."'
				'"Do I have to check in with you or... ?" You ask, but he quickly shakes his head.'
				'"No, your... the guy that drives you," he says trying to avoid the word ''pimp''. "He gives me the heads-up and I''ll scrub the security footage at the end of my shift."'
				'You look at him sceptically.'
				'"Don''t worry, I now what I''m doing. I have done it for years for the Belys." He looks past you for a second as the door of the shop opens behind you. "Have a nice day," he says with the typical fake smile of an employee in the service industry. He clearly doesn''t want to talk to you with a customer in the shop.'
				gs 'stat'
				
				act 'Leave': gt 'mod_wlife_highway', 'outside'
			end
			
			act 'Shake his hand':
				cla & *nl
				minut += 3
				npc_rel['A907'] = 50
				'His hands are surprisingly cold, but his smile is honest and warm. "I''m Tomas by the way. Nice to meet you <<$pcs_firstname>>."'
				'"Nice to meet you, too." You reply. "Do I have to check in with you or... ?" You ask, but he quickly shakes his head.'
				'"No, your... the guy that drives you," he says trying to avoid the word ''pimp''. "He gives me the heads-up and I''ll scrub the security footage at the end of my shift."'
				'You look at him sceptically.'
				'"Don''t worry, I now what I''m doing. I have done it for years for the Belys." He looks past you for a second as the door of the shop opens behind you. "Have a nice day," he says with the typical fake smile of an employee in the service industry. He clearly doesn''t want to talk to you with a customer in the shop.'
				gs 'stat'
				
				act 'Leave': gt 'mod_wlife_highway', 'outside'
			end
		end
	elseif wl_tomas_day ! daystart and wl_tomas_known = 1:
		wl_tomas_day = daystart
		act 'Talk to him': gt 'mod_wlife_highway', 'tomas_talk'
	end
end

if $ARGS[0] = 'tomas_talk':
!!ToDo / Idea: restroom chip
!!ToDo / Idea: free food/water
!!ToDo / Idea: Read magazines for free	
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/tomas.jpg"></center>'
	'Developer Note: More content is planned for Tomas.'
	act 'Continue': gt 'mod_wlife_highway', 'shop'
end

!!------ Prostitution ------

if $ARGS[0] = 'work':
	CLOSE ALL
	if sound = 0:PLAY 'sound/highway.mp3',20
		
	*clr & cla
	$metka = 'work'
	$menu_arg = 'work'
	menu_off = 0
	gs 'stat'
			
	gs 'mod_wlife_functions', 'parameters'
	
	if $wl_names['street'] = '':
		'If you want, you can tell your clients a different name.'
		
		$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
	end
	
	'<center><video autoplay src="mod/wlife/images/prostitution/normal/negotiation/search.mp4"></video></center>'		
	'You are walking near the gas station waiting for a client. On a scale from 1 to 10 you look like a <<hotcat>>. A good looking girl will always earn more money.'+iif(pcs_makeup < 2, ' You should '+iif(pcs_makeup = 0, 'fix your make-up', 'wear make-up')+' if you want to do that.', ' Wearing make-up is a good way to do this.')+iif(pirsA > 0 and pirsA < 10000, ' Your tongue piercing will make a blowjob more enjoyable for most men, that could bring in a small bonus.', '')+iif($pantyworntype = 'sexshop' and CloSkirtShortness > 4, ' Wearing such a short skirt reveals your slutty panties to your potential customers.', '')+iif(pcs_apprnc = -10, ' You don''t look healthy and should seek treatment for your STD. There is a high chance that a guy won''t touch you without a condom.', '')
	
	if wl_whore['enema'] = 0: '<br>Nearly all men won''t like dirty anal sex, even with a condom, and it''s probably a safe bet that they won''t pay a lot for it. You should start giving yourself an enema before going to work.'
	if mesec > 0: '<br>You are having your period, most men will pay less for vaginal sex during that time of the month.'	
	if wl_whore['cum_dressed'] = 1: '<br>You have visible cum stains on you. Most clients won''t like that and will offer less money.'
	
	if wl_whore['earnings_day'] > 0: 'You have earned <<wl_whore[''earnings_day'']>> <b>₽</b> today.'+iif(wl_georgiy['payment_method'] = 0, ' Your share is <<wl_whore[''earnings_day''] * wl_whore[''share_player''] / 100>> <b>₽</b>'+iif(wl_debt['amount'] > 0, ', but Volya will keep <<wl_whore[''earnings_day''] * 20 / 100>> <b>₽</b> to pay down your debt.', '.'), '')
	
	if wl_status['main'] > -1 and wl_georgiy['payment_method'] = 0: gs 'mod_wlife_highway', 'event_check'
	
	act 'Stop working': gt 'mod_wlife_highway', 'outside'

	if wl_stats['acceptance'] < 20:
		'<br>You haven''t accepted your life as a common street whore and are very hesitant to look for customers.'
	elseif wl_stats['acceptance'] < 40:
		'<br>You haven''t accepted your life as a common street whore, but you are slowly getting used to it.'
	end
	gs 'mod_wlife_functions', 'will_acceptance', 'self'
	if wl_cheat['will_cost'] = 1: will_cost = 0
	if will_cost <= pcs_willpwr:
		act 'Look for a client (0:30 and <<will_cost>> Willpower)': 
			gs 'willpower', 'pay', 'self'
			gt 'mod_wlife_highway', 'look_client'
		end
	elseif will_cost > pcs_willpwr and wl_georgiy['payment_method'] = 1:
		act 'Look for a client (0:30 and <font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>' 
	else
		wl_temp = 0 & gt 'mod_wlife_volya', 'shift_premature_end'
	end

	if salfetka > 0 and (wl_whore['cum_dressed'] = 1 or wl_whore['cum_undressed'] = 1 or wl_whore['cum_vaginal_mod'] = 1 or wl_whore['cum_anal_mod'] = 1): 
		act 'Remove the cum from your body (0:02)':
			minut += 2
			salfetka -= 1
			cumspclnt = 20
			gs 'cum_cleanup'
			gt 'mod_wlife_highway', 'work'
		end
	elseif salfetka = 0:
		'<br>You don''t have any tissues with you to remove cum from your body.'
	end
	
	if wl_whore['customer_total'] > 9:
		*nl

		if wl_status['condoms'] = 0 and (wl_auto['norm_bj_condom'] + wl_auto['norm_vag_condom'] + wl_auto['norm_anal_condom'] + wl_auto['reg_vag_condom'] + wl_auto['reg_anal_condom']):
			'<b>You''re out of condoms!</b>'
			*nl
		end
		
		*nl
		'<table><tr><td valign="top"><b>Behavior towards normal clients:</b>'
		'Negotiation: '+iif(wl_auto['normal'] = 1, '<a href="exec: wl_auto[''normal''] = 0 & gt ''mod_wlife_highway'', ''work''">Automatic</a>', '<a href="exec: wl_auto[''normal''] = 1 & gt ''mod_wlife_highway'', ''work''">Manual</a>')
		if wl_auto['normal'] = 1:
			*nl
			'Which acts do you automatically accept/decline?'
			'Blowjob: '+iif(wl_auto['norm_bj'] = 1, '<a href="exec: wl_auto[''norm_bj''] = 0 & gt ''mod_wlife_highway'', ''work''">Accept</a>', '<a href="exec: wl_auto[''norm_bj''] = 1 & gt ''mod_wlife_highway'', ''work''">Decline</a>')
			'Vaginal: '+iif(wl_auto['norm_vag'] = 1, '<a href="exec: wl_auto[''norm_vag''] = 0 & gt ''mod_wlife_highway'', ''work''">Accept</a>', '<a href="exec: wl_auto[''norm_vag''] = 1 & gt ''mod_wlife_highway'', ''work''">Decline</a>')
			'Anal: '+iif(wl_auto['norm_anal'] = 1, '<a href="exec: wl_auto[''norm_anal''] = 0 & gt ''mod_wlife_highway'', ''work''">Accept</a>', '<a href="exec: wl_auto[''norm_anal''] = 1 & gt ''mod_wlife_highway'', ''work''">Decline</a>')
			
			if wl_auto['norm_bj'] + wl_auto['norm_vag'] + wl_auto['norm_anal'] > 0:
				*nl
				'Do you insist on a condom?'
				if wl_auto['norm_bj'] = 1: '- Blowjob: '+iif(wl_auto['norm_bj_condom'] = 1, '<a href="exec: wl_auto[''norm_bj_condom''] = 0 & gt ''mod_wlife_highway'', ''work''">Yes</a>', '<a href="exec: wl_auto[''norm_bj_condom''] = 1 & gt ''mod_wlife_highway'', ''work''">No</a>')
				if wl_auto['norm_vag'] = 1: '- Vaginal: '+iif(wl_auto['norm_vag_condom'] = 1, '<a href="exec: wl_auto[''norm_vag_condom''] = 0 & gt ''mod_wlife_highway'', ''work''">Yes</a>', '<a href="exec: wl_auto[''norm_vag_condom''] = 1 & gt ''mod_wlife_highway'', ''work''">No</a>')
				if wl_auto['norm_anal'] = 1: '- Anal: '+iif(wl_auto['norm_anal_condom'] = 1, '<a href="exec: wl_auto[''norm_anal_condom''] = 0 & gt ''mod_wlife_highway'', ''work''">Yes</a>', '<a href="exec: wl_auto[''norm_anal_condom''] = 1 & gt ''mod_wlife_highway'', ''work''">No</a>')
				
				if wl_auto['norm_bj_condom'] = 0 or wl_auto['norm_vag_condom'] = 0 or wl_auto['norm_anal_condom'] = 0:
					*nl
					'Do you allow him to cum inside you?'
					if wl_auto['norm_bj_condom'] = 0 and wl_auto['norm_bj'] = 1: '- Blowjob: '+iif(wl_auto['norm_bj_creampie'] = 1, '<a href="exec: wl_auto[''norm_bj_creampie''] = 0 & gt ''mod_wlife_highway'', ''work''">Yes</a>', '<a href="exec: wl_auto[''norm_bj_creampie''] = 1 & gt ''mod_wlife_highway'', ''work''">No</a>')
					if wl_auto['norm_vag_condom'] = 0 and wl_auto['norm_vag'] = 1: '- Vaginal: '+iif(wl_auto['norm_vag_creampie'] = 1, '<a href="exec: wl_auto[''norm_vag_creampie''] = 0 & gt ''mod_wlife_highway'', ''work''">Yes</a>', '<a href="exec: wl_auto[''norm_vag_creampie''] = 1 & gt ''mod_wlife_highway'', ''work''">No</a>')
					if wl_auto['norm_anal_condom'] = 0 and wl_auto['norm_anal'] = 1: '- Anal: '+iif(wl_auto['norm_anal_creampie'] = 1, '<a href="exec: wl_auto[''norm_anal_creampie''] = 0 & gt ''mod_wlife_highway'', ''work''">Yes</a>', '<a href="exec: wl_auto[''norm_anal_creampie''] = 1 & gt ''mod_wlife_highway'', ''work''">No</a>')
				end
			end	
		end
		'</td><td></td><td valign="top"><b>Behavior towards regular clients:</b>'
		'Negotiation: '+iif(wl_auto['regular'] = 1, '<a href="exec: wl_auto[''regular''] = 0 & gt ''mod_wlife_highway'', ''work''">Automatic</a>', '<a href="exec: wl_auto[''regular''] = 1 & gt ''mod_wlife_highway'', ''work''">Manual</a>')
		if wl_auto['regular'] = 1:
			*nl
			'Do you insist on a condom?'
			'- Vaginal: '+iif(wl_auto['reg_vag_condom'] = 1, '<a href="exec: wl_auto[''reg_vag_condom''] = 0 & gt ''mod_wlife_highway'', ''work''">Yes</a>', '<a href="exec: wl_auto[''reg_vag_condom''] = 1 & gt ''mod_wlife_highway'', ''work''">No</a>')
			'- Anal: '+iif(wl_auto['reg_anal_condom'] = 1, '<a href="exec: wl_auto[''reg_anal_condom''] = 0 & gt ''mod_wlife_highway'', ''work''">Yes</a>', '<a href="exec: wl_auto[''reg_anal_condom''] = 1 & gt ''mod_wlife_highway'', ''work''">No</a>')
			*nl
			if wl_auto['reg_anal_condom'] = 0 or wl_auto['reg_vag_condom'] = 0: 
				'Do you allow him to cum inside you?'
				if wl_auto['reg_vag_condom'] = 0: '- Vaginal: '+iif(wl_auto['reg_vag_creampie'] = 1, '<a href="exec: wl_auto[''reg_vag_creampie''] = 0 & gt ''mod_wlife_highway'', ''work''">Yes</a>', '<a href="exec: wl_auto[''reg_vag_creampie''] = 1 & gt ''mod_wlife_highway'', ''work''">No</a>')
				if wl_auto['reg_anal_condom'] = 0: '- Anal: '+iif(wl_auto['reg_anal_creampie'] = 1, '<a href="exec: wl_auto[''reg_anal_creampie''] = 0 & gt ''mod_wlife_highway'', ''work''">Yes</a>', '<a href="exec: wl_auto[''reg_anal_creampie''] = 1 & gt ''mod_wlife_highway'', ''work''">No</a>')
			end
		end
		'</td></tr></table>'
	end
end

if $ARGS[0] = 'event_check':
	if hour > 18 and ((wl_bad['counter'] > 0 and wl_bad['status'] = 1) or wl_whore['share_timer']> 0) and pirsA = 0: 
		gt 'mod_wlife_tattoo_piercing', 'tongue_piercing_start'
	elseif wl_bad['status'] = 1 and pirsA > 0:
		wl_bad['status'] = 2
	end
	
	if (hour = 22 and minut >= 30) or hour = 23 or hour < 6: gt 'mod_wlife_volya', 'shift_end'

	if hour < 20 and wl_status['main'] = 5 and wl_whore['customer_day'] > 0 and (wl_timer['startday'] + 14) < daystart and wl_shura['status'] > 0 and wl_iosif['status'] > 0:
		wl_status['main'] = 6
		gt 'mod_wlife_story', 'police'
	end
end

if $ARGS[0] = 'look_client':
	*clr & cla
	menu_off = 1
	minut += 30		
	gs 'stat'
		
	if pcs_inhib < 60: inhib_exp += rand(1,2)
				
	if wl_whore['regular'] = 1:
		gt 'mod_wlife_highway', 'client_regular'
	elseif wl_whore['client_chance'] > 100 and wl_whore['regular'] = 0:
		wl_whore['pity_counter'] = 0
		'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
							
		'A car stops next to you. "Hey sweetie, are you looking for a good time?" You say to him.'

		if wl_whore['rough'] = 0:
			if wl_whore['propose'] = 0 and wl_auto['normal'] = 0:
				act 'Let him decide': gt 'mod_wlife_highway', 'negotiation_start'
			elseif wl_auto['normal'] = 1:
				act 'Negotiate with him': gt 'mod_wlife_highway', 'negotiation_start'
			else
				*nl
				'The man looks a little bit nervous. You approach the window in a sensual manner and try to make him feel more comfortable. "Just relax and let me take care of you."'
				'You lean into the car and chat with him about what he likes and dislikes.'
						
				if wl_whore['enema'] = 0: iif(wl_whore['dirty_anal_mod'] = 0, 'He hates', 'He admits that he loves')+' anal sex with a girl that didn''t clean herself and he will pay significantly '+iif(wl_whore['dirty_anal_mod'] = 0, 'less', 'more')+' for it.'
				if mesec > 0: iif(wl_whore['mesec_mod'] = 0, 'He really doesn''t like', 'He tells you that he likes')+' to fuck girls that have their period.'
						
				*nl
						
				'You offer him...'
						
				if rand(1,10) < 10:
					act 'A blowjob': $wl_whore['client_scene'] = 'Blowjob' & gt 'mod_wlife_highway', 'negotiation_start'
					act 'Your pussy': $wl_whore['client_scene'] = 'Vaginal' & gt 'mod_wlife_highway', 'negotiation_start'
					act 'Your ass': $wl_whore['client_scene'] = 'Anal' & gt 'mod_wlife_highway', 'negotiation_start'
				else
					act 'A blowjob': 
						if $wl_whore['client_scene'] ! 'Blowjob': wl_whore['propose'] = 2
						gt 'mod_wlife_highway', 'negotiation_start'
					end
					act 'Your pussy':
						if $wl_whore['client_scene'] ! 'Vaginal': wl_whore['propose'] = 2
						gt 'mod_wlife_highway', 'negotiation_start'
					end
					act 'Your ass':
						if $wl_whore['client_scene'] ! 'Anal': wl_whore['propose'] = 2
						gt 'mod_wlife_highway', 'negotiation_start'
					end
				end
			end
		else
			gt 'mod_wlife_highway', 'rough'		
		end
	else
		wl_whore['pity_counter'] += rand(4,8)
		'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/search.mp4"></video></center>'
		'<br>Some cars drive by, but nobody stops.'
		act 'Continue': gt 'mod_wlife_highway', 'work'
	end
end

!!------ Regular Client ------

if $ARGS[0] = 'client_regular':
	*clr & cla
	'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/arrival.mp4"></video></center>'
	
	'A car approaches and slows down as it comes nearer. You take a look at the driver and you recognize him, he''s one of your regulars.'

	act 'Approach the car':
		*clr & cla
		minut += 1
		gs 'stat'
		'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/approach.mp4"></video></center>'		
		'"Hi <<$wl_names[''street'']>>. I was looking for you." He says in a good mood clearly happy to see you.'
		*nl
		'"Hey sweetie, good to see you again." You say to him with a smile on your lips.'
		
		act 'Lean inside the car':
			*clr & cla
			minut += 1
			gs 'stat'
			'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'			
			'"I was hoping that you would work today," he tells you and you give him a smile. You remember that he '+iif($wl_whore['client_scene'] = 'Vaginal', 'never asked to fuck your ass and always preferred your pussy.', 'always preferred to fuck your ass.')
			*nl
			
			if wl_status['condoms'] > 0 or (wl_status['condoms'] = 0 and wl_whore['std_mod'] = 0):
				'You tell him that...'
				
				gs 'willpower', 'prostitution', 'resist', 'easy'
				if wl_cheat['will_cost'] = 1: will_cost = 0
				if will_cost <= pcs_willpwr:
					act '... you''re not in the mood (<<will_cost>> Willpower)':
						gs 'willpower', 'pay', 'resist'
						gt 'mod_wlife_highway', 'client_regular_fail'
					end
				else
					act '... you''re not in the mood (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>' 
				end
				
				act '... you guess he wants to fuck your '+iif($wl_whore['client_scene'] = 'Vaginal', 'pussy', 'ass')+'': 
					*clr & cla
					minut += 2
					gs 'stat'
					'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
					
					'"So, I guess you want to fuck my '+iif($wl_whore['client_scene'] = 'Vaginal', 'pussy', 'ass')+'? You seem to love that the last time.'
					'He grins. "You remembered?" He asks you. "Sure," you answer with a convincing smile. "I''ll always remember what my most loyal customers like."'
					*nl
					'You also remember that with him you...'
					
					if wl_whore['std_mod'] = 0 and wl_auto['regular'] = 0:
						act 'Always use a condom':
							cla & *nl						
							'... always use a condom.'+iif(wl_status['condoms'] = 0, ' But you don''t have any with you', '')
							
							act 'Don''t make an exception':
								cla & *nl
								$wl_client_condom = 'Yes'
								$wl_client_cumshot = 'Outside or Condom'
								gs 'mod_wlife_functions', 'payment', 'condom_yes', 'inside_no'
								
								if wl_status['condoms'] > 0:
									'You pull out a condom out of your '+iif(bag = 1, 'purse', 'pocket')+' and he nods. "No problem <<$wl_names[''street'']>>, better safe than sorry."'
									
									act 'Continue': gt 'mod_wlife_highway', 'client_regular_success'
								else
									gs 'stat'
									'"I know you really like to fuck my '+iif($wl_whore['client_scene'] = 'Vaginal', 'pussy', 'ass')+' but I don''t have any condoms."'
									*nl
									'"Shit? Really?" He looks disheartened.'
									*nl
									if money >= 100:
										'"Don''t worry, honey. There is a condom dispenser at the restroom. If you give me a second, I''ll be right back."'
										'He nods and you go and buy a condom.'
										*nl
										'It takes you more than a second, but when you return you show him the condom.'
										'"Perfect, you nearly gave me a heart attack." You grin. "I mean it," he says half serious, half joking. "I can''t go a week without fucking you."'
										minut += 2
										money -= 100
										prezikcount += 1
										gs 'stat'
										
										act 'Continue': gt 'mod_wlife_highway', 'client_regular_success'
									else
										'He sighs and after a second he shrugs. "Fine," he looks at you and reassures you. "Don''t worry about it <<$wl_names[''street'']>>, you''re always worth waiting for."'
										
										act 'Leave': gt 'mod_wlife_highway', 'work'
									end
								end
							end
							
							act 'Make an exception':
								cla & *nl
								$wl_client_condom = 'No'
								'"You know what, how about we do it without a condom today?" You ask and quickly add: "But you have to pay for that."'
								'He looks at you surprised but pleased. "I can fuck you raw? Really?" You nod. "Wow, nice. Sure let''s do it like god intended."'
								*nl
								'You smile and tell him that he...'
									
								act 'Can''t cum inside you':
									cla & *nl
									$wl_client_cumshot = 'Outside'
									gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_no'
									'... can''t cum inside you. "Yeah, raw is the best way to fuck, but don''t cum inside me, OK? I''ll suck you off at the end."'
									'"Sure thing, babe."'
										
									act 'Continue': gt 'mod_wlife_highway', 'client_regular_success'
								end
									
								act 'Can cum inside you':
									cla & *nl
									$wl_client_cumshot = 'Inside'
									gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_yes'
									'... can cum inside you. "And don''t be afraid to cum inside me if you want and pay for it."'
									'"Of course I''ll pay for it. You''re the best, <<$wl_names[''street'']>>."'
										
									act 'Continue': gt 'mod_wlife_highway', 'client_regular_success'
								end
							end
						end	
						
						act 'Never use a condom':
							cla & *nl
							$wl_client_condom = 'No'
							'... never use a condom. "You want to fuck me raw as always?"'
							'He nods. "Of course, it just isn''t the same with a condom. It''s really great that you do that, <<$wl_names[''street'']>>. You know that, right? There aren''t many girls your age that do it raw."'
							*nl
							'You smile and tell him that he...'
							
							act 'Can''t cum inside you':
								cla & *nl
								$wl_client_cumshot = 'Outside'
								gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_no'
								'... can''t cum inside you. "Yeah, raw is the best way to fuck, but remember don''t cum inside me. I''ll suck you off at the end."'
								'He nods. "Sure thing, babe."'
								
								act 'Continue': gt 'mod_wlife_highway', 'client_regular_success'
							end
							
							act 'Can cum inside you':
								cla & *nl
								$wl_client_cumshot = 'Inside'
								gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_yes'
								'... can cum inside you. "Yeah, raw is the best way to fuck and remember don''t be afraid to cum anywhere you want."'
								'"You''re the best whore in the whole area, <<$wl_names[''street'']>>."'
								
								act 'Continue': gt 'mod_wlife_highway', 'client_regular_success'
							end
						end
					elseif wl_whore['std_mod'] = 0 and wl_auto['regular'] = 1:
						if (wl_auto['reg_vag_condom'] = 1 and $wl_whore['client_scene'] = 'Vaginal') or (wl_auto['reg_anal_condom'] = 1 and $wl_whore['client_scene'] = 'Anal'):
							$wl_client_condom = 'Yes'
							$wl_client_cumshot = 'Outside or Condom'
							if wl_status['condoms'] = 0: prezikcount += 1 & money -= 100
						else
							$wl_client_condom = 'No'
							if (wl_auto['reg_vag_creampie'] = 1 and $wl_whore['client_scene'] = 'Vaginal') or (wl_auto['reg_anal_creampie'] = 1 and $wl_whore['client_scene'] = 'Anal'):
								$wl_client_cumshot = 'Inside'
							else
								$wl_client_cumshot = 'Outside'
							end
						end
												
						gs 'mod_wlife_functions', 'payment', iif($wl_client_condom = 'Yes', 'condom_yes', 'condom_no'), iif($wl_client_cumshot = 'Inside', 'inside_yes', 'inside_no')
						gt 'mod_wlife_highway', 'client_regular_success'
					else
						cla & *nl
						$wl_client_condom = 'Yes'
						$wl_client_cumshot = 'Outside or Condom'
						gs 'mod_wlife_functions', 'payment', 'condom_yes', 'inside_no'
						
						'... should always use a condom. He was always nice, never mistreated you and without a condom he would surely catch your STD.'
						
						act 'Continue': gt 'mod_wlife_highway', 'client_regular_success'
					end
				end
			else	
				'You remember your STD, how he never mistreated you and also your lack of condoms. So, you tell him that...'
				act '... you''re not in the mood': gt 'mod_wlife_highway', 'client_regular_fail'
			end
		end
	end
end

if $ARGS[0] = 'client_regular_fail':
	*clr & cla
	minut += 5
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
	'"I''m sorry sweetie, I know you really like to fuck my '+iif($wl_whore['client_scene'] = 'Vaginal', 'pussy', 'ass')+' but I''m not up for that today."'
	*nl
	'"Shit? Really?" You nod and he looks disheartened. After a moment he shrugs and throws you a grin. "Don''t worry about it <<$wl_names[''street'']>>, it''s fine, you''re always worth the wait."'
	*nl
	'"Thanks," you say and step away from the car.'+iif(wl_whore['std_mod'] = 1 and wl_status['condoms'] = 0, ' As you walk away you think about your decision for a moment. In the end it was the right choice, he was always nice to you and without a condom he surely would catch your STD.', '')
	
	act 'Continue': gt 'mod_wlife_highway', 'work'
end

if $ARGS[0] = 'client_regular_success':
	CLOSE ALL
	if sound = 0:PLAY 'sound/highway.mp3',5
		
	*clr & cla
	minut += 5
	wl_whore['regular_timer'] = daystart
	gs 'mod_wlife_functions', 'acceptance_check', 'regular'
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/drive.mp4"></video></center>'
	'You get into his car and he takes you to your regular spot at the end of the parking lot.'
		
	act 'Continue':
		*clr & cla
		if rand(1,10) < 4:
			'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/money_0a.mp4"></video></center>'
			'You don''t want to say anything about the money, it always dampens the mood if you have to remind your clients to pay upfront. But with him you always have to say something. The instant he stops the car he reaches out for your top and touches your breasts.'
			'"Show them to me," he murmurs and together you free your tits from your top. "I love those. They''re perfect."'
			'"Thanks," you say as he grabs your right boob and squeezes it with a look on his face of a teenage boy that sees one of those for the first time.'
			'You laugh and smile, but also...'
			
			gs 'arousal', 'breasts', 2
			gs 'stat'
			
			act 'Remind him to pay you':
				*clr & cla
				'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/money_0b.mp4"></video></center>'
				'"You have to pay me first," you tell him quietly, but he doesn''t listen. Instead he eagerly puts one of your nipples inside your mouth and starts to suck on them. "Please, you know you have to pay first." You remind him again.'
				'"Fine," he sighs and jokes: "But they taste so good," stretching the ''so'' ridiculously long.'
				'You laugh and shake your head. "Come on," you grin when he doesn''t stop and push him away.'
				'"OK, Ok, I''ll get your money."'
				*nl
				'"Happy?" He asks as you take the <<wl_whore[''payment'']>> <b>₽</b>.'+iif(wl_status['main'] = -1 or wl_georgiy['payment_method'] = 1, '', ' You keep it separated from your own money until you can settle everything with Volya tonight.')
				'"Yes, now let me make you happy," you reply.'
				
				gs 'arousal', 'breasts', 2
				
				wl_whore['earnings_day'] += wl_whore['payment']	
				if wl_status['main'] = -1 or wl_georgiy['payment_method'] = 1: money += wl_whore['payment']
				wl_whore['payment'] = 0
				gs 'stat'
				
				act 'Continue': gt 'mod_wlife_highway_sex', 'regular_start'
			end
		else
			minut += 2
			'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/money_1.mp4"></video></center>'
			'You don''t want to say anything about the money, it always dampens the mood if you have to remind your clients to pay upfront. But with him you don''t have to. The instant he stops the car, he pulls out his wallet and hands you the money. He even makes sure that you see that everything is there without you having to count it yourself.'
			'"Thanks," you say and take the <<wl_whore[''payment'']>> <b>₽</b>.'+iif(wl_status['main'] = -1 or wl_georgiy['payment_method'] = 1, '', ' You keep it separated from your own money until you can settle everything with Volya tonight.')
			*nl
			'Now it''s for you to keep up your end of the bargain.'
			
			wl_whore['earnings_day'] += wl_whore['payment']	
			if wl_status['main'] = -1 or wl_georgiy['payment_method'] = 1: money += wl_whore['payment']
			wl_whore['payment'] = 0
			gs 'stat'
			
			act 'Get undressed': gt 'mod_wlife_highway_sex', 'regular_start'
		end
	end
end

!!------ Normal Client ------

if $ARGS[0] = 'negotiation_start':
	*clr & cla
	minut += 2
	gs 'stat'

	if wl_auto['normal'] = 1: gt 'mod_wlife_highway', 'negotiation_automatic'
		
	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
			
	iif(wl_whore['propose'] = 0, 'You lean into his car and chat with him about the price and what he likes and dislikes.' , iif(wl_whore['propose'] = 2, 'He doesn''t like your suggestion and instead offers something else.', 'You chat with him about the price.'))+' At the end of your conversation he takes a good look at you and '+iif(wl_whore['std_mod'] = 0, 'asks you if you do it with or without a condom.', 'tells you that you don''t look healthy and he won''t do it without a condom')
		
	*nl	
	'You are negotiating with the client:'
	'Sex: <<$wl_whore[''client_scene'']>>'
	gs 'mod_wlife_functions', 'payment', 'condom_yes', 'not_discussed'
	'Payment with condom: <<wl_whore[''payment'']>> <b>₽</b>'
	if wl_whore['std_mod'] = 0:
		gs 'mod_wlife_functions', 'payment', 'condom_no', 'not_discussed'
		'Payment without condom: <<wl_whore[''payment'']>> <b>₽</b>'
	end
	
	if wl_whore['propose'] = 0:
		*nl
		if wl_whore['enema'] = 0: iif(wl_whore['dirty_anal_mod'] = 0, 'He hates', 'He admits that he loves')+' anal sex with a girl that didn''t clean herself and he will pay significantly '+iif(wl_whore['dirty_anal_mod'] = 0, 'less', 'more')+' for it.'
		if mesec > 0: iif(wl_whore['mesec_mod'] = 0, 'He doesn''t like', 'He tells you that he likes')+' to fuck girls that have their period.'
	end
					
	if wl_status['condoms'] > 0 and (wl_whore['std_mod'] = 1 or wl_whore['propose'] = 2):
		gs 'willpower', 'prostitution', 'resist'
		if wl_cheat['will_cost'] = 1: will_cost = 0
		if will_cost <= pcs_willpwr:
			act 'Decline and move away (<<will_cost>> Willpower)':
				gs 'willpower', 'pay', 'resist'
				gt 'mod_wlife_highway', 'work'
			end
		else
			act 'Decline and move away (<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['propose'] = 0 and wl_whore['std_mod'] = 0:
		gs 'willpower', 'prostitution', 'resist'
		if wl_cheat['will_cost'] = 1: will_cost = 0
		if will_cost <= pcs_willpwr:
			act 'Decline and move away (<<will_cost>> Willpower)':
				gs 'willpower', 'prostitution', 'resist'
				if wl_cheat['will_cost'] = 1: will_cost = 0
				gs 'willpower', 'pay', 'resist'
				gt 'mod_wlife_highway', 'work'
			end
		else
			act 'Decline and move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		gs 'willpower', 'prostitution', 'resist', 'easy'
		if wl_cheat['will_cost'] = 1: will_cost = 0
		if will_cost <= pcs_willpwr:
			if rand(1,10) < 9:
				if $wl_whore['client_scene'] ! 'Blowjob': act 'Decline and offer him a blowjob instead (<<will_cost>> Willpower)': wl_whore['client_satisfaction'] -= 10 & gs 'willpower', 'pay', 'resist' & $wl_whore['client_scene'] = 'Blowjob' & wl_whore['propose'] = 1 & gt 'mod_wlife_highway', 'negotiation_start'
				if $wl_whore['client_scene'] ! 'Anal': act 'Decline and offer him your ass instead (<<will_cost>> Willpower)': wl_whore['client_satisfaction'] -= 10 & gs 'willpower', 'pay', 'resist' & $wl_whore['client_scene'] = 'Anal' & wl_whore['propose'] = 1 & gt 'mod_wlife_highway', 'negotiation_start'
				if $wl_whore['client_scene'] ! 'Vaginal': act 'Decline and offer him your pussy instead (<<will_cost>> Willpower)': wl_whore['client_satisfaction'] -= 10 & gs 'willpower', 'pay', 'resist' & $wl_whore['client_scene'] = 'Vaginal' & wl_whore['propose'] = 1 & gt 'mod_wlife_highway', 'negotiation_start'
			else
				if $wl_whore['client_scene'] ! 'Blowjob': act 'Decline and offer him a blowjob instead (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'mod_wlife_highway', 'negotiation_fail'
				if $wl_whore['client_scene'] ! 'Anal': act 'Decline and offer him your ass instead (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'mod_wlife_highway', 'negotiation_fail'
				if $wl_whore['client_scene'] ! 'Vaginal': act 'Decline and offer him your pussy instead (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'mod_wlife_highway', 'negotiation_fail'
			end
		else
			if $wl_whore['client_scene'] ! 'Blowjob': act 'Decline and offer him a blowjob instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			if $wl_whore['client_scene'] ! 'Anal': act 'Decline and offer him your ass instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			if $wl_whore['client_scene'] ! 'Vaginal': act 'Decline and offer him your pussy instead (<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 wl_status['condoms'] > 0 and wl_whore['std_mod'] = 0: 
		act 'Insist on a condom': $wl_client_condom = 'Yes' & gt 'mod_wlife_highway', 'negotiation_condom_yes'
	elseif wl_status['condoms'] > 0 and wl_whore['std_mod'] = 1:
		act 'Accept and use a condom': $wl_client_condom = 'Yes' & gt 'mod_wlife_highway', 'negotiation_condom_yes'
	end

	if wl_whore['std_mod'] = 0:
		act 'Don''t insist on a condom': $wl_client_condom = 'No' & gt 'mod_wlife_highway', 'negotiation_condom_no'
	elseif wl_status['condoms'] = 0 and wl_whore['std_mod'] = 1:
		act 'Tell him you don''t have a condom':
			if rand(1,10) < 9:
				gt 'mod_wlife_highway', 'negotiation_fail'
			else
				cla & *nl
				$wl_whore['client_scene'] = 'Blowjob'
				'After a moment he reluctantly accepts doing it without a condom'+iif($wl_whore['client_scene'] = 'Blowjob', '.', ', but he changed his mind and doesn''t want more than a blowjob.')
				
				*nl
				'Sex: <<$wl_whore[''client_scene'']>>'
				gs 'mod_wlife_functions', 'payment', 'condom_no', 'not_discussed'
				'New payment: <<wl_whore[''payment'']>> <b>₽</b>'
				
				gs 'mod_wlife_functions', 'will_unprotected', 'resist'
				if wl_cheat['will_cost'] = 1: will_cost = 0
				if will_cost <= pcs_willpwr:
					act 'Decline and move away (<<will_cost>> Willpower)':
						gs 'willpower', 'pay', 'resist'
						gt 'mod_wlife_highway', 'work'
					end
				else
					act 'Decline and move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
				
				act 'Accept': $wl_client_condom = 'No' & gt 'mod_wlife_highway', 'negotiation_condom_no'
			end
		end
	end
end

if $ARGS[0] = 'negotiation_condom_yes':
	*clr & cla
	minut += 2
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
	
	gs 'mod_wlife_functions', 'payment', 'condom_yes', 'Outside or Condom'
	
	*nl
	'You are negotiating with your client:'
	'Sex: <<$wl_whore[''client_scene'']>>'
	'Payment: <<wl_whore[''payment'']>> <b>₽</b>'
	'Condom: <<$wl_client_condom>>'
	*nl
		
	if wl_whore['std_mod'] = 1 or rand(1,10) < 7 or ($wl_whore['client_scene'] = 'Vaginal' and mesec > 0 and wl_whore['mesec_mod'] = 0) or ($wl_whore['client_scene'] = 'Anal' and wl_whore['enema'] = 0 and wl_whore['dirty_anal_mod'] = 0):		
		if wl_whore['std_mod'] = 1:
			'"Ok, get in'+iif(rand(1,10) < 7, ', but you really don''t look well, you should let somebody take a look at that.', ' and be glad I let you touch me, filthy whore.')+'," he says.'
		else
			'"Ok, get in'+iif(rand(1,10) < 7, ' girl', ' whore')+'," he says.'
		end
		act 'Get into his car':
			$wl_client_cumshot = 'Outside or Condom'
			gs 'mod_wlife_functions', 'payment', 'condom_yes', 'Outside or Condom'
			gt 'mod_wlife_highway', 'negotiation_success'
		end
	else
		gs 'mod_wlife_functions', 'payment', 'condom_no', 'not_discussed'
		'He asks you to forgo the condom. He would pay at least <<wl_whore[''payment'']>> <b>₽</b> and even more if you '+iif($wl_whore['client_scene'] = 'Blowjob', 'swallow his cum.', 'let him cum inside you.')
		gs 'mod_wlife_functions', 'will_unprotected', 'resist'
		if wl_cheat['will_cost'] = 1: will_cost = 0
		if will_cost <= pcs_willpwr:
			act 'Decline (<<will_cost>> Willpower)':
				cla & *nl
				gs 'willpower', 'pay', 'resist'
				if rand(1,10) < 7:
					'He finally accepts.'
					$wl_client_cumshot = 'Outside or Condom'
					wl_whore['client_satisfaction'] -= 10
					gs 'mod_wlife_functions', 'payment', 'condom_yes', 'inside_no'
					act 'Get into his car': gt 'mod_wlife_highway', 'negotiation_success'
				else
					wl_whore['fail_condom'] = 1
					gt 'mod_wlife_highway', 'negotiation_fail'
				end
			end
		else
			act 'Decline (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'Accept': $wl_client_condom = 'No' & gt 'mod_wlife_highway', 'negotiation_condom_no' 
	end
end

if $ARGS[0] = 'negotiation_condom_no':
	*clr & cla
	minut += 2
	gs 'stat'
	
	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
	
	gs 'mod_wlife_functions', 'payment', 'condom_no', 'not_discussed'
	
	*nl
	'You are negotiating with your client:'
	'Sex: <<$wl_whore[''client_scene'']>>'
	'Payment: <<wl_whore[''payment'']>> <b>₽</b>'
	'Condom: <<$wl_client_condom>>'
	*nl
	
	gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_yes'
	'He asks you if you would '+iif($wl_whore['client_scene'] = 'Blowjob', 'swallow his cum.', 'let him cum inside you.')+' He offers to pay you <<wl_whore[''payment'']>> <b>₽</b> if you do.'
	
	if $wl_whore['client_scene'] = 'Anal':
		gs 'willpower', 'cum_inside_anal', 'resist'
	elseif $wl_whore['client_scene'] = 'Blowjob':
		gs 'willpower', 'swallow', 'resist'
	else
		gs 'willpower', 'cum_inside', 'resist'
	end
	if wl_cheat['will_cost'] = 1: will_cost = 0
	if will_cost <= pcs_willpwr:	
		act 'Decline (<<will_cost>> Willpower)':
			cla & *nl
			gs 'willpower', 'pay', 'resist'
			if rand(1,10) < 10 or wl_whore['client_creampie'] = 1:
				'He accepts your decision.'
				$wl_client_cumshot = 'Outside'
				wl_whore['client_satisfaction'] -= 10
				gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_no'
				act 'Get into his car': gt 'mod_wlife_highway', 'negotiation_success'
			else
				wl_whore['fail_creampie'] = 1
				gt 'mod_wlife_highway', 'negotiation_fail'
			end
		end
	else
		act 'Decline (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
			
	act 'Accept and get into his car': 
		$wl_client_cumshot = 'Inside'
		gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_yes'
		gt 'mod_wlife_highway', 'negotiation_success'
	end
end

if $ARGS[0] = 'negotiation_automatic':
	wl_auto['negotiation'] = 1
	gs 'willpower', 'prostitution', 'resist'
	if wl_cheat['will_cost'] = 1: will_cost = 0
	if ((wl_auto['norm_bj'] = 0 and $wl_whore['client_scene'] = 'Blowjob') or (wl_auto['norm_vag'] = 0 and $wl_whore['client_scene'] = 'Vaginal') or (wl_auto['norm_anal'] = 0 and $wl_whore['client_scene'] = 'Anal')) and will_cost <= pcs_willpwr:
		gs 'willpower', 'pay', 'resist'
		gt 'mod_wlife_highway', 'negotiation_fail'
	else
		if ((wl_auto['norm_bj'] = 0 and $wl_whore['client_scene'] = 'Blowjob') or (wl_auto['norm_vag'] = 0 and $wl_whore['client_scene'] = 'Vaginal') or (wl_auto['norm_anal'] = 0 and $wl_whore['client_scene'] = 'Anal')): wl_auto['willpower'] = 1
		
		if ((wl_auto['norm_bj_condom'] = 1 and $wl_whore['client_scene'] = 'Blowjob') or (wl_auto['norm_vag_condom'] = 1 and $wl_whore['client_scene'] = 'Vaginal') or (wl_auto['norm_anal_condom'] = 1 and $wl_whore['client_scene'] = 'Anal')) and wl_status['condoms'] > 0:
			gs 'mod_wlife_functions', 'will_unprotected', 'resist'
			if wl_cheat['will_cost'] = 1: will_cost = 0
			if wl_whore['std_mod'] = 1 or rand(1,10) < 7 or ($wl_whore['client_scene'] = 'Vaginal' and mesec > 0 and wl_whore['mesec_mod'] = 0) or ($wl_whore['client_scene'] = 'Anal' and wl_whore['enema'] = 0 and wl_whore['dirty_anal_mod'] = 0):
				$wl_client_condom = 'Yes'
				$wl_client_cumshot = 'Outside or Condom'
				gs 'mod_wlife_functions', 'payment', 'condom_yes', 'inside_no'
			elseif will_cost <= pcs_willpwr:
				$wl_client_condom = 'Yes'
				$wl_client_cumshot = 'Outside or Condom'
				wl_whore['client_satisfaction'] -= 10
				gs 'willpower', 'pay', 'resist'
				gs 'mod_wlife_functions', 'payment', 'condom_yes', 'inside_no'
				if rand(1,10) < 4:
					wl_whore['fail_condom'] = 1
					gt 'mod_wlife_highway', 'negotiation_fail'
				end
			else
				if $wl_whore['client_scene'] = 'Anal':
					gs 'willpower', 'cum_inside_anal', 'resist'
				elseif $wl_whore['client_scene'] = 'Blowjob':
					gs 'willpower', 'swallow', 'resist'
				else
					gs 'willpower', 'cum_inside', 'resist'
				end
				if wl_cheat['will_cost'] = 1: will_cost = 0
				if will_cost <= pcs_willpwr:
					$wl_client_condom = 'No'
					$wl_client_cumshot = 'Outside'
					wl_whore['client_satisfaction'] -= 10
					gs 'willpower', 'pay', 'resist'
					gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_no'
					if rand(1,10) = 10 and wl_whore['client_creampie'] = 0: gt 'mod_wlife_highway', 'negotiation_fail'
				else
					wl_auto['willpower'] = 1
					$wl_client_condom = 'No'
					$wl_client_cumshot = 'Inside'
					gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_yes'
				end
			end	
			gt 'mod_wlife_highway', 'negotiation_success'
		elseif rand(1,10) < 9 and wl_whore['std_mod'] = 1:
			gt 'mod_wlife_highway', 'negotiation_fail'
		else
			$wl_client_condom = 'No'
			gs 'mod_wlife_functions', 'will_unprotected', 'resist'
			if wl_cheat['will_cost'] = 1: will_cost = 0
			if ((wl_auto['norm_bj_creampie'] = 1 and $wl_whore['client_scene'] = 'Blowjob') or (wl_auto['norm_vag_creampie'] = 1 and $wl_whore['client_scene'] = 'Vaginal') or (wl_auto['norm_anal_creampie'] = 1 and $wl_whore['client_scene'] = 'Anal')):
				$wl_client_cumshot = 'Inside'
				gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_yes'
			elseif will_cost <= pcs_willpwr:
				$wl_client_cumshot = 'Outside'
				wl_whore['client_satisfaction'] -= 10
				gs 'willpower', 'pay', 'resist'
				gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_no'
				if rand(1,10) = 10 and wl_whore['client_creampie'] = 0:
					wl_whore['fail_creampie'] = 1
					gt 'mod_wlife_highway', 'negotiation_fail'
				end
			else
				wl_auto['willpower'] = 1
				$wl_client_cumshot = 'Inside'
				gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_yes'
			end
			gt 'mod_wlife_highway', 'negotiation_success'
		end
	end		
end

if $ARGS[0] = 'negotiation_fail':
	*clr & cla
	minut += 2
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/leave_walk.mp4"></video></center>'	
	'He shakes his head. "I have changed my mind'+iif(rand(1,10) < 7, '", sorry girl maybe next time."', ', bitch. Get away from my car."')+' He says.'
	
	act 'Step back from the car': 
		wl_whore['client_satisfaction'] = 0
		gt 'mod_wlife_highway', 'work'
	end
	if wl_whore['fail_condom'] = 1:
		wl_whore['fail_condom'] = 0
		act 'Change your mind and do it without a condom': gt 'mod_wlife_highway', 'negotiation_condom_no'
	elseif wl_whore['fail_creampie'] = 1:
		wl_whore['fail_creampie'] = 0
		act 'Change your mind and allow him to cum inside you':
			gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_yes'
			gt 'mod_wlife_highway', 'negotiation_success'
		end
	elseif wl_whore['fail_pay'] = 1:
		wl_whore['fail_pay'] = 0
		act 'Change your mind and accept his offer':
			gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_yes'
			gt 'mod_wlife_highway', 'negotiation_success'
		end		
	end
end

if $ARGS[0] = 'negotiation_success':
	CLOSE ALL
	if sound = 0:PLAY 'sound/highway.mp3',5
	
	*clr & cla
	minut += 2
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/drive.mp4"></video></center>'
	if wl_auto['negotiation'] = 1:	
		'You have negotiated the following'+iif(wl_auto['willpower'] = 1, ', but you didn''t have enough willpower to resist all of his demands:', ':')
		'Sex: <<$wl_whore[''client_scene'']>>'
		'Payment: <<wl_whore[''payment'']>> <b>₽</b>'
		'Condom: <<$wl_client_condom>>'
		'Cumshot: '+iif($wl_client_cumshot = 'Outside or Condom', 'Outside', '<<$wl_client_cumshot>>')
		wl_auto['willpower'] = 0
		wl_auto['negotiation'] = 0
		*nl
	end
	'You get inside the car and tell him to drive to a more secluded part of the parking lot.'+iif(rand(1,10) < 4, 'His right hand immediately moves onto your thigh and he slowly strokes it and he is clearly distracted as he slowly drives the car to the end of the parking space.', '')
	*nl
	
	if $wl_client_condom = 'No': wl_stats['unprotected'] += 1
	
	if wl_whore['client_satisfaction'] < 0:
		'You get the feeling that he isn''t satisfied with all the choices and that he would have paid 10% or maybe even 20% more. You could try to convince him to pay you a bit more.'
		act 'Don''t haggle': gt 'mod_wlife_highway', 'money'
		gs 'mod_wlife_functions', 'will_acceptance', 'force'
		will_cost = (will_cost * iif(wl_whore['client_satisfaction'] = -10, 20, 40)) / 100
		if will_cost < 3: will_cost = 3
		if wl_cheat['will_cost'] = 1: will_cost = 0
		if will_cost <= pcs_willpwr:
			act 'Ask for more money (<<will_cost>> Willpower)':
				cla & *nl
				gs 'willpower', 'pay', 'force'
				if rand(1,10) = 10:
					wl_whore['fail_pay'] = 1
					gt 'mod_wlife_highway', 'negotiation_fail'
				end
				wl_whore['payment'] = wl_whore['payment_backup']
				gs 'stat'
				'He grudgingly accepts and agrees to pay you <<wl_whore[''payment'']>> <b>₽</b> instead.'
				
				act 'Continue': gt 'mod_wlife_highway', 'money'
			end
		else
			act 'Ask for more money (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	else
		'When you arrive you have only one thing left to do...'
		act '... ask for your money': gt 'mod_wlife_highway', 'money'
	end
end

if $ARGS[0] = 'money':
	*clr & cla
	minut += 2
	wl_whore['client_satisfaction'] = 0
	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/money.mp4"></video></center>'
	'"So...," you say when he parks his car, but he already knows what you''re going to say. "Yeah, I know, you want your money."'
	'He pulls out his wallet and hands you <<wl_whore[''payment'']>> <b>₽</b>.'+iif(wl_status['main'] = -1 or wl_georgiy['payment_method'] = 1, '', ' You keep it separated from your own money until you can settle everything with Volya tonight.')
	
	wl_whore['earnings_day'] += wl_whore['payment']	
	if wl_status['main'] = -1 or wl_georgiy['payment_method'] = 1: money += wl_whore['payment']
	wl_whore['payment'] = 0
	gs 'mod_wlife_functions', 'acceptance_check', 'normal'
	gs 'stat'

	'<br>The moment you have put your money away his hands move to your body starting to undress you.'
	
	act 'Get to work': gt 'mod_wlife_highway_sex', 'start'
end

if $ARGS[0] = 'bus_end':
	minut += 35	
	money -= 75
	if wl_whore['bus_check'] ! daystart:
		wl_whore['bus_check'] = daystart
		if wl_stats['acceptance'] > 100:
			wl_stats['acceptance'] = 100
		elseif wl_whore['earnings_day'] > 8000:
			wl_stats['acceptance'] += 3
		elseif wl_whore['earnings_day'] > 5000:
			wl_stats['acceptance'] += 2
		elseif wl_whore['earnings_day'] > 0:
			wl_stats['acceptance'] += 1
		else
			wl_stats['acceptance'] -= 1
		end
	end
	
	wl_whore['earnings_day'] = 0
	wl_whore['customer_day'] = 0
	gt 'city_industrial_train', 'outside'
end

--- mod_wlife_highway ---------------------------------