WLife/locations/mod_wlife_highway.qsrc

# 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
	$loc_arg = '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
	$loc_arg = '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_timer['tomas'] = daystart:
		'Behind the counter stands Tomas. He''s talking to another customer right now.'
	elseif wl_status['main'] > -1 and week < 7:
		'Behind the counter stands <a href="exec: minut += 1 & gt ''mod_wlife_highway'',''tomas''">'+iif(wl_status['tomas'] = 0, 'a plump man', 'Tomas')+'</a>.'
	elseif wl_status['main'] > -1 and week = 7:
		'Tomas isn''t working on Sundays. Another guy you don''t know is standing behind the counter.'
	end
	*nl
	$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
	$loc_arg = '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_status['restroom_chip'] = 0, 'It costs 10 <b>₽</b> to use it.', 'You have an employee chip and 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_status['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_status['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
	$loc_arg = '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 60 <b>₽</b> and you have <<wl_status[''condoms'']>> condoms.'
	gs 'stat'

	act 'Go back': minut += 1 & gt 'mod_wlife_highway', 'restroom'

	if money >= 60:
		act 'Buy a condom (60 <b>₽</b>)':
			minut += 1
			money -= 60
			if preziktype = 0: prezik += 1
			if preziktype = 1 or preziktype = 2: prezikcount += 1
			gt 'mod_wlife_highway', 'condom_dispenser'
		end
	end

	if money >= 300:
		act 'Buy five condoms (300 <b>₽</b>)':
			minut += 1
			money -= 300
			if preziktype = 0: prezik += 5
			if preziktype = 1 or preziktype = 2: prezikcount += 5
			gt 'mod_wlife_highway', 'condom_dispenser'
		end
	end

	if money >= 600:
		act 'Buy ten condoms (600 <b>₽</b>)':
			minut += 1
			money -= 600
			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
	*clr & cla
	if sound = 0:PLAY 'sound/highway.mp3',5
	$loc_arg = 'restroom_female'
	$locM_arg = 'restroom_female'
	$menu_arg = 'restroom_female'
	menu_off = 0
	$location_type = 'bathroom'
	gs 'stat'
	'<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.'

	act 'Go outside': minut += 1 & gt 'mod_wlife_highway', 'restroom'

	gs 'mod_wlife_functions', 'cocaine'
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
	dynamic $publicpan
end

if $ARGS[0] = 'restroom_male':
	CLOSE ALL
	*clr & cla
	if sound = 0:PLAY 'sound/highway.mp3',5
	$loc_arg = 'restroom_male'
	$locM_arg = 'restroom_male'
	$menu_arg = 'restroom_male'
	menu_off = 0
	$location_type = 'bathroom'
	gs 'stat'
	'<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.'

	act 'Go outside': minut += 1 & gt 'mod_wlife_highway', 'restroom'

	gs 'mod_wlife_functions', 'cocaine'
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
	dynamic $publicpan
end

if $ARGS[0] = 'tomas':
	*clr & cla
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/tomas.jpg"></center>'
	'Behind the counter stands '+iif(wl_status['tomas'] = 0, 'a plump man', 'Tomas')+'. 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_status['tomas'] = 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_status['tomas'] = 0:
		cla & *nl
		minut += 1
		wl_timer['tomas'] = daystart
		gs 'stat'
		'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?"'

		act 'Tell him who you are':
			*clr & cla
			minut += 1
			gs 'stat'
			'<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 ...'

			act 'Ignore his hand':
				cla & *nl
				minut += 3
				wl_status['tomas'] = 1
				gs 'stat'
				'"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.'

				act 'Leave': gt 'mod_wlife_highway', 'outside'
			end

			act 'Shake his hand':
				cla & *nl
				minut += 3
				wl_status['tomas'] = 2
				gs 'stat'
				'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.'

				act 'Leave': gt 'mod_wlife_highway', 'outside'
			end
		end
	elseif wl_timer['tomas'] ! daystart and wl_status['tomas'] < 3:
		act 'Talk to him': gt 'mod_wlife_highway', 'tomas_talk'
	elseif wl_timer['tomas'] ! daystart and wl_status['tomas'] > 2:
		act 'Browse the magazines': gt 'mod_wlife_highway', 'tomas_talk'
	end
end

if $ARGS[0] = 'tomas_talk':
	*clr & cla
	minut += 10
	pcs_mood += 20
	pcs_willpwr += 2
	wl_timer['tomas'] = daystart
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/tomas.jpg"></center>'
	if wl_status['tomas'] < 3:
		wl_status['tomas'] = 3
		'"Hello <<$pcs_firstname>>," Tomas greets you. "Did you want to buy something? Or is something else on your mind?"'
		'You shrug. "Nothing really. I only needed a break." You point at the magazines. "Do you mind if I browse a bit?"'
		if wl_status['tomas'] = 1:
			'He points at a small sign that says <i>If you read it, you bought it</i>.'
			'"Oh, I didn''t see it," you say and pull your hand back from a magazine you were about to take out of the shelf.'
			'You''re about to leave, when he says. "OK fine, go ahead."'
			'"Really?" you beam with joy as you walk back to the shelfs. "Thanks."'
		else
			'"Of course not. Go ahead," he says with a warm fatherly smile and points to a small sign that says <i>If you read it, you bought it</i>. "And ignore the sign, you can read them as much as you want."'
		end
		*nl
		'You spend a few minutes flipping through several magazines while customers come and go. It doesn''t help you to forget, but it distracts you enough for a short period of time to improve your mood a bit.'

		act 'Continue': gt 'mod_wlife_highway', 'shop'
	elseif wl_status['tomas'] = 3:
		wl_status['tomas'] = 4
		'"Is that something that interests you?" Tomas asks looking at the fashion magazine in your hands.'
		'You reply with a noncommittal shrug. "I guess." You put it back on the shelf. "Every girl has to like pretty clothes and jewelery. Isn''t that was everybody `thinks," you say without indicating if you''re into fashion or not.'
		'He lets out a short but warm laugh. "My granddaughter would disagree. She would tell you a girl doesn''t have to do anything society expects of her," he tells you proudly which makes clear that he agrees with her. "Women should do what they want." It sounds strange coming from somebody who keeps an eye on a teen hooker being forced into prostitution. "That''s why I don''t have a problem with your ''job''."'
		'He doesn''t know. Which makes absolutely sense. Why would the Belys tell somebody like him what''s really happening here. Easier to pay him some cash to which nobody would say no to in the current economic climate. They just got lucky with finding a guy like him who has no problem with prostitution. For a split second you want to tell him, but in the end decide against it. It would only put him and yourself at risk. "That''s really progressive of you," you say instead.'
		'He opens his mouth, but at that moment the doors slide open and a customer enters the shop.'

		act 'Go back to work': gt 'mod_wlife_highway', 'shop'
	elseif wl_status['tomas'] = 4:
		wl_status['tomas'] = 5
		wl_status['restroom_chip'] = 1
		'"You said you had a granddaughter. How many grandkids do you have?" you ask while flipping through a magazine about musical instruments.'
		'"Twelve," he says extremely proud.'
		'You turn around to him. "Twelve?" you ask surprised. He is old, but doesn''t look that old to already have so many grandchildren.'
		'"I have seven children and twelve grandchildren with one more on the way right now."'
		'"Congratulation," you reply. "But how did you manage to have so many already. You don''t look that old."'
		'"I guess I should take that as a compliment," he says with his warm fatherly smile. "I married young, really young and I don''t know why, but twins run in my family. I have twins and two of my daughters have twins as well."'
		'"Is that the reason why you''re still working. To get away from all the craziness that must come with so many kids?" you joke and he responds with a pleasant laugh.'
		'"No," he shakes his head smiling. "I''m still working to support them. Times are tough and they need every ruble I can spare. But who am I telling that to. You probably are working here for a similar reason. Right?" You give a noncommittal shrug. It''s still better if he doesn''t know what''s really going on.'
		'"That reminds me of something, wait a second," he bends down and searches something below the counter. "Ah here it is." He slides a yellow plastic chip over the counter to you. "It isn''t much, but it''s an employee chip for the restroom, so you don''t have to pay if you want to use it."'

		act 'Thank him and go back to work': gt 'mod_wlife_highway', 'shop'
	elseif wl_status['tomas'] = 5:
		pcs_sleep += 20
		pcs_hydra += 60
		wl_status['tomas'] = 6
		'"You look tired," Tomas says right after the current customer has left. "Don''t you think you''re maybe working to much?"'
		'You shake your head. "No, it''s fine."'
		'"I don''t want to pry, but why do you work so much?" he asks and you pretend to be really captivated by a story your reading to avoid answering it. "<<$pcs_firstname>>?"'
		'"Uhm... what?" You ask as if you didn''t hear the question. When he opens his mouth again to repeat it, you react quickly and move the conversation in another direction. "By the way you can call my <<$pcs_nickname>>. All my friends call me that."'
		'He smiles happy to be called your friend and looks around the room searching for something. "Why don''t you take an energy drink. It''s on me," he says pointing at the wall where all the drinks like water, soft and energy drinks stand. "You really do look tired."'
		'"Thanks, that''s really nice of you," you say taking a can from the refrigerator section of the shop and drink it.'

		act 'Go back to work': gt 'mod_wlife_highway', 'shop'
	elseif wl_status['tomas'] = 6 and fashmag = 0:
		fashmag = 1
		pcs_sleep += 20
		pcs_hydra += 60
		minut += 10
		wl_status['tomas'] = 7
		'Tomas notices that you''re really taken with one of the fashion magazines. "First time I see you reading one of those for more than a minute."'
		'"It''s not so overly superficial like most of them," you reply as you flip to the next page. "Like this article." You tip on the page with your finger. "It''s more than a simple puff piece. I really would like to finish it."'
		'"Why don''t you?" he asks.'
		'"I have to go back to work," you sigh, but when you''re about to put the magazine back he says that you can keep it. "Really?" you ask.'
		'"Sure why not. It''s not as if the guys at headquarter will notice if one magazine goes missing. Take it home with you."'
		'"Thank you Tomas," you say putting the magazine in your purse.'

		act 'Go back to work': gt 'mod_wlife_highway', 'shop'
	else
		pcs_sleep += 20
		pcs_hydra += 60
		'You spend a few minutes talking to Tomas, reading in one or two magazines and get treated by him to another energy drink.'

		act 'Go back to work': gt 'mod_wlife_highway', 'shop'
	end

	gs 'stat'
end

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

if $ARGS[0] = 'work':
	CLOSE ALL
	if sound = 0:PLAY 'sound/highway.mp3',20

	*clr & cla
	$loc_arg = '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')+' to increase your earnings.', ' Wearing make-up is a good way to increase your earnings.')+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
		'A blowjob, anal oder vaginal scene can consist of up to three or only one small scene. Currently there can be '+iif(wl_whore['scene_reduction'] = 0, 'up to <a href="exec: wl_whore[''scene_reduction''] = 1 & gt ''mod_wlife_highway'', ''work''">three</a>', 'only <a href="exec: wl_whore[''scene_reduction''] = 0 & gt ''mod_wlife_highway'', ''work''">one</a>')+' small scene'+iif(wl_whore['scene_reduction'] = 0, 's.', '.')
		'The start and end scene (getting your money, leaving the car, talking to a regular, ...) can either be shown or skipped automatically.'
		' - End scene will be '+iif(wl_whore['skip_end'] = 0, '<a href="exec: wl_whore[''skip_end''] = 1 & gt ''mod_wlife_highway'', ''work''">shown</a>.', '<a href="exec: wl_whore[''skip_end''] = 0 & gt ''mod_wlife_highway'', ''work''">skipped</a>.')
		' - Start scene will be '+iif(wl_whore['skip_start'] = 0, '<a href="exec: wl_whore[''skip_start''] = 1 & gt ''mod_wlife_highway'', ''work''">shown</a>.', '<a href="exec: wl_whore[''skip_start''] = 0 & gt ''mod_wlife_highway'', ''work''">skipped</a>.')
		*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 >= 60:
										'"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 -= 60
										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 and wl_whore['skip_start'] = 0:
			'<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'

			if wl_whore['skip_start'] = 1:
				gt 'mod_wlife_highway_sex', 'regular_start'
			else
				act 'Get undressed': gt 'mod_wlife_highway_sex', 'regular_start'
			end
		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['fail_pay'] = 0
		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':
			$wl_client_cumshot = 'Inside'
			gs 'mod_wlife_functions', 'payment', 'condom_no', 'inside_yes'
			gt 'mod_wlife_highway', 'negotiation_success'
		end
	elseif wl_whore['fail_pay'] = 1:
		act 'Change your mind and accept his offer':
			$wl_client_cumshot = 'Inside'
			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 and wl_whore['fail_pay'] = 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
		wl_whore['fail_pay'] = 0
		'When you arrive you have only one thing left to do...'
		if wl_whore['skip_start'] = 1:
			gt 'mod_wlife_highway', 'money'
		else
			act '... ask for your money': gt 'mod_wlife_highway', 'money'
		end
	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.'

	if wl_whore['skip_start'] = 1:
		gt 'mod_wlife_highway_sex', 'start'
	else
		act 'Get to work': gt 'mod_wlife_highway_sex', 'start'
	end
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 ---------------------------------