Integrating WLife functions - adding the files (probably rename)

1. Adding the Pavlovsk random solicitations and the Pavlovsk prostitution mechanics + scenes
 2. Adding the gas station - split into 3 files, the gas station, the negotiation, the sex. 
This way the negotiation and the sex mechanism will be easy to use with any new location.

locations/prostitution_integ.qsrc

@@ -1,29 +1,24 @@
-
-# wlife_integ
+# prostitution_integ
 
 if $ARGS[0] = 'set_pav_prost':
-    if fame['pav_prostitute'] > 150 or fame['pav_sex'] > 150 or fame['pav_slut'] > 150:
-        prostitute['pavlovsk'] = true
+    if fame['pav_prostitute'] > 250 or fame['pav_slut'] > 250:
+        prostitute['pavlovsk'] = 1
+        prostitute['payment_method'] = 1
     else
-        prostitute['pavlovsk'] = false
+        prostitute['pavlovsk'] = 0
     end
 end
 
 if $ARGS[0] = 'check_solicitation_event':
-	if prostitute['pavlovsk'] and prostitute['pav_time_hour'] ! hour and rand(-20, =70) < minut and $curloc ! 'wlife_integ_solicitation' 
-    and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc: 
-        gs 'wlife_integ_solicitation', 'chance'
+    if prostitute['pavlovsk'] = 1 and prostitute['pav_time_hour'] ! hour and rand(-20, 70) < minut and $curloc ! 'prostitution_integ_solicitation' and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc: 
+        gs 'prostitution_integ_solicitation', 'chance'
     end
     
-!!   wl_sacha['status'] > 3 and wl_whore['pav_timer_hour'] ! hour and rand(-20,70) < minut and $curloc ! 'mod_wlife_solicitation' 
-!!   and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc: gs 'mod_wlife_solicitation', 'chance'
-
-	if prostitute['pavlovsk'] and PCloStyle = 4 and ShoHeels > 3 and (($loc_arg = '' and ($loc = 'pav_commcenter' or $loc = 'pav_residential' 
-    or $loc = 'pav_industrial' or $loc = 'pav_commercial' or $loc = 'pav_market' or $loc = 'liam'))
-    or ($loc_arg = 'start' and ($loc = 'pav_complex' or $loc = 'pav_park'))) and hour > 6 and hour < 23 and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc:
-		pl '<center><a href="exec: gt ''wlife_integ_solicitation'', ''search''"><img title="Click to start working in Pavlovsk." height = 80 src="mod/wlife/images/objects/prostitute.png"></a></center>'
+	if prostitute['pavlovsk'] = 1 and PCloStyle = 4 and ShoHeels > 3 and (($loc_arg = '' and ($loc = 'pav_commcenter' or $loc = 'pav_residential' or $loc = 'pav_industrial' or $loc = 'pav_commercial' or $loc = 'pav_market' or $loc = 'liam')) or ($loc_arg = 'start' and ($loc = 'pav_complex' or $loc = 'pav_park'))) and hour > 6 and hour < 23 and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc:
+		pl '<center><a href="exec: gt ''prostitution_integ_solicitation'', ''search''"><img title="Click to start working in Pavlovsk." height = 80 src="mod/wlife/images/objects/prostitute.png"></a></center>'
 	end
 
     if prostitute['pav_residential_prost_day'] ! daystart: prostitute['pav_residential_prost_day'] = daystart
+    !!pav_residential_prost_day
 end
---- wlife_integ ---------------------------------
+--- prostitution_integ ---------------------------------

locations/prostitution_integ_clientsex.qsrc

@@ -0,0 +1,958 @@
+# prostitution_integ_clientsex
+
+!!------ Normal Client ------
+! [x] First check
+if $ARGS[0] = 'start':
+	menu_off = 1
+	guy += 1
+	!!STD checks are done by the mod
+	cumnostd = 1
+	if $prostitute['client_scene'] = 'Blowjob' or (rand(0,2) < 2 and prostitute['scene_reduction'] = 0):
+		prostitute['blowjob_first'] = 1
+		gt 'prostitution_integ_clientsex', 'Blowjob'
+	else
+		gt 'prostitution_integ_clientsex', $prostitute['client_scene']
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'Blowjob':
+	*clr & cla
+	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/blowjob/bj_'+rand(1,27)+'.mp4"></video></center>'
+
+	if prostitute['scene_repeat'] = 0:
+		'At the sight of your naked body he wastes no time to undress and reveal his '+iif($prostitute['client_scene'] ! 'blowjob', 'limb dick.', 'already hard cock.')+' You both shuffle around in the car until you find a comfortable position.'+iif(rand(1,10) < 4, ' Sometimes you both can''t stop yourself from laughing, when you awkwardly move around each other and body parts intertwine.', '')
+		*nl
+	end
+
+	if $prostitute['client_scene'] = 'Blowjob' and prostitute['scene_repeat'] = 0:
+		if $prostitute_client_condom = 'Yes':
+			gs 'prostitute_integ_functions', 'remove_condom'
+			'You take your condom and put it on his <<dick>>cm dick.'
+		end
+		iif(rand(1,10) < 6, '"Don''t keep me waiting,', '"Get to work,')+iif(rand(1,10) < 4, ' whore', ' girl')+'," he says and you obediently start to suck him off.'
+	elseif $prostitute['client_scene'] = 'Blowjob' and prostitute['scene_repeat'] = 1:
+		'You''re giving it your best. Switching up your routine, sometimes you only tease the head of his dick, lick his balls or deepthroat him as he praises your effort, but as time moves on he doesn''t seem to be close to shooting his load.'
+	elseif $prostitute['client_scene'] = 'Blowjob' and prostitute['scene_repeat'] = 2:
+		'His stamina is impressive and despite your best efforts he still doesn''t cum. Your jaw aches and you''re getting tired of sucking him.'
+		gs 'pain', 1, 'mouth', 'stretch'
+	else
+		if $prostitute_client_condom = 'Yes':
+			gs 'prostitute_integ_functions', 'remove_condom'
+			'You take your condom and put it on his <<dick>>cm dick.'
+		end
+		'"Get me ready," he commands and you obediently start to suck him hard.'
+	end
+
+	'You wrap your lips around his member'+iif($prostitute_client_condom = 'Yes', '; with those modern condom there''s no real difference to bare skin. You suck and run', ' sucking and running')+' your tongue along his shaft while your hands fondle his balls. "Don''t be shy '+iif(rand(1,10) < 4, 'whore', 'girl')+'," he murmurs before pushing his cock further into your mouth.'
+
+	gs 'arousal', 'bj', iif(prostitute['scene_reduction'] = 0, 6, 12), 'unknown', 'prostitution', 'no_orgasm_msg'
+	gs 'stat'
+
+	if $prostitute['client_scene'] ! 'Blowjob':
+		act 'Continue': gt 'prostitution_integ_clientsex', $prostitute['client_scene']
+	elseif $prostitute['client_scene'] = 'Blowjob' and ((prostitute['scene_repeat'] = 0 and rand(1,6) < 4) or (prostitute['scene_repeat'] = 1 and rand(1,6) < 3)) and prostitute['scene_reduction'] = 0:
+		prostitute['scene_repeat'] += 1
+		act 'Continue': gt 'prostitution_integ_clientsex' , 'Blowjob'
+	elseif $prostitute_fetish['rimjob'] ! 'blocked' and prostitute['client_creampie'] = 0 and (rand(1,100) + prostitute['rim_pity_counter']) > 90:
+		act 'Continue': gs 'prostitution_integ_clientsex', 'rimjob_start'
+	else
+		act 'Continue': gs 'prostitution_integ_clientsex' , 'switch'
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'Vaginal':
+	*clr & cla
+	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/vaginal/vaginal_'+rand(1,45)+'.mp4"></video></center>'
+
+	if prostitute['scene_repeat'] = 0:
+		if prostitute['blowjob_first'] = 0: 'Once you both are alone you quickly take of your clothes and present your pussy to him. At the sight of your pussy he wastes no time unzipping his pants to reveal his already hard cock.'
+		if $prostitute_client_condom = 'Yes' and prostitute['condom'] = 0:
+			gs 'prostitute_integ_functions', 'remove_condom'
+			'You take your condom and put it on his <<dick>>cm dick.'
+		end
+		gs 'arousal', 'auto_lube', 'vaginal'
+		'You spread your legs and help guide his member to the right place. '+iif(pcs_horny > 40, 'You are getting wetter by the second, hoping to get some pleasure out of it, too. "You''re already wet for me? Good girl,"', 'He rubs his dick against your pussy and doesn''t seem to care that your pussy is still dry. "Get ready, bitch,"')+' he says and pushes his cock eagerly inside.'
+	elseif prostitute['scene_repeat'] = 1:
+		'He shows no signs of getting close as he fucks you as hard as in the beginning. "I could fuck you all day," he says.'
+	elseif prostitute['scene_repeat'] = 2:
+		'"Your pussy feels amazing," he says and rams his dick inside you as hard as he can. His stamina is as impressive as is his assault relentless.'
+	end
+
+	gs 'arousal', 'vaginal', iif(prostitute['scene_reduction'] = 0, 6, 12), 'unknown', 'prostitution', 'no_orgasm_msg'
+	gs 'stat'
+
+	if ((prostitute['scene_repeat'] = 0 and rand(1,6) < 4) or (prostitute['scene_repeat'] = 1 and rand(1,6) < 3)) and prostitute['scene_reduction'] = 0:
+		prostitute['scene_repeat'] += 1
+		act 'Continue': gt 'prostitution_integ_clientsex' , 'Vaginal'
+	elseif $prostitute_fetish['rimjob'] ! 'blocked' and prostitute['client_creampie'] = 0 and (rand(1,100) + prostitute['rim_pity_counter']) > 90:
+		act 'Continue': gs 'prostitution_integ_clientsex', 'rimjob_start'
+	else
+		act 'Continue': gs 'prostitution_integ_clientsex' , 'switch'
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'Anal':
+	*clr & cla
+	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/anal/anal_'+rand(1,19)+'.mp4"></video></center>'
+
+	if prostitute['scene_repeat'] = 0:
+		if prostitute['blowjob_first'] = 0: 'Once you both are alone you quickly take of your clothes and present your pussy to him. At the sight of your pussy he wastes no time unzipping his pants to reveal his already hard cock.'
+		if $prostitute_client_condom = 'Yes' and prostitute['condom'] = 0:
+			gs 'prostitute_integ_functions', 'remove_condom'
+			'You take your condom and put it on his <<dick>>cm dick.'
+		end
+		gs 'arousal', 'auto_lube', 'anal'
+		'You spread your legs and help guide his member to the right place. He pushes his member against your asshole and without giving you a word of warning forces his dick inside.'
+	elseif prostitute['scene_repeat'] = 1:
+		'Again and again he pushes his cock inside your ass, forcing it deeper and deeper with every thrust.'
+	elseif prostitute['scene_repeat'] = 2:
+		'He isn''t stopping, you realize while he fucks you with an amazing stamina.'
+		'"Fuck, you have a great ass," he groans as he thrusts balls-deep inside you.'
+		gs 'pain', 1, 'asshole', 'stretch'
+		gs 'pain', 1, 'asshole', 'tear'
+	end
+
+	gs 'arousal', 'anal', iif(prostitute['scene_reduction'] = 0, 6, 12), 'unknown', 'prostitution', 'no_orgasm_msg'
+	gs 'stat'
+
+	if ((prostitute['scene_repeat'] = 0 and rand(1,6) < 4) or (prostitute['scene_repeat'] = 1 and rand(1,6) < 3)) and prostitute['scene_reduction'] = 0:
+		prostitute['scene_repeat'] += 1
+		act 'Continue': gt 'prostitution_integ_clientsex' , 'Anal'
+	elseif $prostitute_fetish['rimjob'] ! 'blocked' and prostitute['client_creampie'] = 0 and (rand(1,100) + prostitute['rim_pity_counter']) > 90:
+		act 'Continue': gs 'prostitution_integ_clientsex', 'rimjob_start'
+	else
+		act 'Continue': gs 'prostitution_integ_clientsex' , 'switch'
+	end
+end
+
+! [x]First check
+if $ARGS[0] = 'rimjob_start':
+	cla & *nl
+	minut += 10
+	prostitute['rim_pity_counter'] = 0
+	prostitute['payment'] = 500 + hotcat * 5 + iif(prostitute['pirsA']= pirsA and pirsA < 10000, pirsA * 15, 0)
+	gs 'stat'
+	iif(rand(0,1) = 0 or $prostitute_fetish['rimjob'] = '', 'Even after ten more minutes he still doesn''t seem to be close to shooting his load. "Something wrong?" you ask. He shakes his head. "Not really, but this will take a while." You let out an involuntary sigh. "There is something that will get me off quickly if you''re willing to do it." You send him a questioning look. "Lick my ass, that always get''s me off quickly,"', '"This isn''t working," he says after ten more minutes. "Could you maybe eat my ass? It''s a sure way for me to cum,"')+' he continues and quickly adds. "I pay extra, of course. How about <<prostitute[''payment'']>> <b>₽</b>? I would really love to feel '+iif(pirsA > 0 and pirsA < 10000, 'that piercing', 'your tongue')+' on my asshole."'
+
+	if $prostitute_fetish['rimjob'] = '':
+		'<br>He wants you to do what? Licking his ass? You think shocked and look down to his ass. You knew that anal would be a possibility, but this? You don''t even have time to think about it more, before he asks, "and?" He clearly wants you to quickly make a decision.'
+
+		'<br><font color="red">Content Warning: Ass-licking/Rimjob</font>'
+
+		gs 'prostitution_integ_clientsex', 'rimjob_decision'
+
+		act '<font color="red">Block this type of content</font>':
+			cla & *nl
+			minut += 2
+			prostitute['payment'] = 0
+			prostitute['client_rimjob'] = 0
+			$prostitute_fetish['rimjob'] = 'blocked'
+			gs 'stat'
+			'You shake your head, you will never fall so low to do something like this. "No, I don''t do something like this." He looks disappointed, but doesn''t say anything, before you resume what you did before this short intermezzo.'
+
+			act 'Continue': gt 'prostitution_integ_clientsex', 'switch'
+		end
+	else
+		gs 'prostitution_integ_clientsex', 'rimjob_decision'
+	end
+end
+
+! [x]  First check
+if $ARGS[0] = 'rimjob_decision':
+	gs 'prostitute_integ_functions', 'will_rimming', 'resist', iif($prostitute_fetish['rimjob'] = 'yes', 'hard', 'easy')
+	if will_cost <= pcs_willpwr:
+		act 'Decline (<<will_cost>> Willpower)':
+			cla & *nl
+			minut += 1
+			prostitute['payment'] = 0
+			prostitute['client_rimjob'] = 0
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'"Sorry, I don''t do something like this," you '+iif($prostitute_fetish['rimjob'] ! 'undecided', 'lie', 'say')+iif(rand(0,1), ', but he doesn''t seem to care. "No problem, most girls don''t do it," he tells you', '. He looks disappointed, but doesn''t say anything')+', before you resume what you did before this short intermezzo.'
+
+			act 'Continue': minut += 10 & gt 'prostitution_integ_clientsex', 'switch'
+		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':
+		cla & *nl
+		minut += 1
+		prostitute['client_rimjob'] = 1
+		gs 'stat'
+		'"No problem, honey," you reply with a smile on your lips, "but money first." He eagerly pulls out his wallet and hands you the agreed upon amount of <<prostitute[''payment'']>> <b>₽</b>.'
+
+		prostitute['earnings_day'] += prostitute['payment']
+		if prostitute['payment_method'] = 1: money += prostitute['payment']
+		prostitute['payment'] = 0
+
+		act 'Dig in': gt 'prostitution_integ_clientsex', 'switch'
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'switch':
+	if prostitute['client_rimjob'] = 1:
+		gt 'prostitution_integ_clientsex', 'cumshot', 'rimjob'
+	elseif $prostitute_fetish['rimjob'] ! 'blocked':
+		prostitute['rim_pity_counter'] += 2
+	end
+
+	if $prostitute['client_scene'] = 'Blowjob':
+		if $prostitute_client_cumshot = 'Inside' or prostitute['client_creampie'] = 1:
+			gt 'prostitution_integ_clientsex', 'cumshot', 'mouth'
+		else
+			gt 'prostitution_integ_clientsex', 'cumshot', 'facial'
+		end
+	elseif $prostitute['client_scene'] = 'Vaginal':
+		if $prostitute_client_cumshot = 'Inside' or prostitute['client_creampie'] = 1:
+			gt 'prostitution_integ_clientsex', 'cumshot', 'vaginal_creampie'
+		elseif $prostitute_client_cumshot = 'Outside or Condom' and prostitute['client_creampie'] = 0:
+			prostitute_cumshot_rand = rand(0,4)
+			if prostitute_cumshot_rand < 3:
+				gt 'prostitution_integ_clientsex', 'cumshot', 'stomach'
+			elseif prostitute_cumshot_rand = 3:
+				gt 'prostitution_integ_clientsex', 'cumshot', 'butt'
+			else
+				gt 'prostitution_integ_clientsex', 'cumshot', 'facial'
+			end
+		elseif $prostitute_client_cumshot = 'Outside' and prostitute['client_creampie'] = 0:
+			cla & *nl
+			'You can feel it, he is getting close.'
+			act 'Trust him to pull out':
+				prostitute_cumshot_rand = rand(1,100)
+				if prostitute_cumshot_rand <= 10:
+					prostitute['accident'] = 1
+					gt 'prostitution_integ_clientsex', 'cumshot', 'vaginal_creampie'
+				elseif prostitute_cumshot_rand > 10 and prostitute_cumshot_rand <= 60:
+					gt 'prostitution_integ_clientsex', 'cumshot', 'stomach'
+				elseif prostitute_cumshot_rand > 60 and prostitute_cumshot_rand <= 90:
+					gt 'prostitution_integ_clientsex', 'cumshot', 'butt'
+				else
+					gt 'prostitution_integ_clientsex', 'cumshot', 'facial'
+				end
+			end
+
+			act 'Remind him to pull out':
+				prostitute_cumshot_rand = rand(1,100)
+				if prostitute_cumshot_rand <= 5:
+					prostitute['accident'] = 1
+					gt 'prostitution_integ_clientsex', 'cumshot', 'vaginal_creampie'
+				elseif prostitute_cumshot_rand > 5 and prostitute_cumshot_rand <= 60:
+					gt 'prostitution_integ_clientsex', 'cumshot', 'stomach'
+				elseif prostitute_cumshot_rand > 60 and prostitute_cumshot_rand <= 90:
+					gt 'prostitution_integ_clientsex', 'cumshot', 'butt'
+				else
+					gt 'prostitution_integ_clientsex', 'cumshot', 'facial'
+				end
+			end
+		end
+	elseif $prostitute['client_scene'] = 'Anal':
+		if $prostitute_client_cumshot = 'Inside' or prostitute['client_creampie'] = 1:
+			gt 'prostitution_integ_clientsex', 'cumshot', 'anal_creampie'
+		elseif $prostitute_client_cumshot = 'Outside or Condom' and prostitute['client_creampie'] = 0:
+			prostitute_cumshot_rand = rand(0,5)
+			if prostitute_cumshot_rand < 2:
+				gt 'prostitution_integ_clientsex', 'cumshot', 'stomach'
+			elseif prostitute_cumshot_rand >= 2 or prostitute_cumshot_rand < 5:
+				gt 'prostitution_integ_clientsex', 'cumshot', 'butt'
+			elseif prostitute_cumshot_rand = 5:
+				gt 'prostitution_integ_clientsex', 'cumshot', 'facial'
+			end
+		elseif $prostitute_client_cumshot = 'Outside' and prostitute['client_creampie'] = 0:
+			prostitute_cumshot_rand = rand(1,100)
+			if prostitute_cumshot_rand <= 10:
+				gt 'prostitution_integ_clientsex', 'cumshot', 'anal_creampie'
+			elseif prostitute_cumshot_rand > 10 and prostitute_cumshot_rand <= 50:
+				gt 'prostitution_integ_clientsex', 'cumshot', 'butt'
+			elseif prostitute_cumshot_rand > 50 and prostitute_cumshot_rand <= 90:
+				gt 'prostitution_integ_clientsex', 'cumshot', 'stomach'
+			else
+				gt 'prostitution_integ_clientsex', 'cumshot', 'facial'
+			end
+		end
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'cumshot':
+	*clr & cla
+	if prostitute['condom'] = 0 and $prostitute['client_scene'] = 'Blowjob':
+		gs 'prostitute_integ_functions', 'std_check_oral'
+	else
+		gs 'prostitute_integ_functions', 'std_check'
+	end
+
+	if $ARGS[1] = 'rimjob':
+		gs 'prostitute_integ_functions', 'std_check_oral', 'low'
+		gt 'prostitution_integ_clientsex', 'rimjob_end'
+	elseif $ARGS[1] = 'mouth':
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/cum/mouth_'+rand(1,6)+'.mp4"></video></center>'
+		'"'+iif(rand(1,10) < 4, 'Bitch, ', '')+'I''m cumming." He says'+iif(prostitute['scene_repeat'] = 0, '', ' finally')+iif($prostitute_client_condom = 'Yes', ', pulls the condom off ', ' ')+'and pushes his cock back inside your mouth and shoots his load down your throat.'
+		if $prostitute_client_cumshot ! 'Inside':
+			'"That wasn''t what we agreed on," you say angrily after he pulls his dick out of your mouth.'
+			'"Shut up, as if you don''t do that every day. Do you really think I pull out and ruin the seat?" He replies annoyed. "Now get dressed, I have other things to do."'
+		end
+		gs 'cum_call', 'mouth', 'a client'
+		swallow += 1
+	elseif $ARGS[1] = 'facial':
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/cum/face_'+rand(1,7)+'.mp4"></video></center>'
+		'"'+iif(rand(1,10) < 4, 'Bitch, ', '')+'I''m cumming." The man says'+iif(prostitute['scene_repeat'] = 0, '', ' finally')+iif($prostitute_client_condom = 'Yes', ', pulls off the condom ', ' ')+'and shoots his cum all over your face.'
+		gs 'cum_call', 'face', 'a client'
+		facial += 1
+		if rand(1,100) > 95 and pcs_makeup > 1: pcs_makeup = 0
+	elseif $ARGS[1] = 'vaginal_creampie':
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/cum/pussy_'+rand(1,7)+'.mp4"></video></center>'
+		if prostitute['accident'] = 1 and prostitute['client_creampie'] = 0 and $prostitute_client_cumshot ! 'Inside':
+			prostitute['payment'] += 300
+			'He speeds up for a moment and then shoots his cum deep inside you.'
+			'You look at him, but before you can say anything he pulls out and looks at the mess he made. "Fuck, I''m really sorry. I''ll pay extra."'
+			if prostitute['reminded'] = 0:
+				'You sigh, but don''t say anything. There is nothing you can do about it anyway.'
+			else
+				'"Seriously? I reminded you to pull out," you shout.'
+				'He actually looks really sorry about it. "Come on, please don''t be mad, you are an awesome fuck and I couldn''t stop myself. Really, I''m sorry." He apologies again.'
+				'"Fine", you sigh. "But pay up."'
+			end
+		elseif prostitute['client_creampie'] = 1 and $prostitute_client_cumshot ! 'Inside':
+			'He'+iif(prostitute['scene_repeat'] = 0, ' ', ' finally ')+' stops and pulls out, but only for a little while. He pushes himself back in, but something feels different. He cums before you can say anything, cock still buried deep in your pussy and without a condom. He groans and shoots his cum deep inside you. "Take it, bitch!" He screams.'
+			'"What''s wrong with you?" You scream while he slips out of your pussy. "You stupid son of a..."'
+			iif($prostitute_brand['text_pubic'] = 'cumslut', '"Stop complaining cumslut," he taunts you with your own tattoo. "We both know you want it."', '"Hahaha... what''s the problem ''mom''?" He laughs and get''s dressed.')
+		else
+			'He'+iif(prostitute['scene_repeat'] = 0, ' ', ' finally ')+'moans and you feel the warmth of his cum filling your pussy. With one last moan, he shoots the rest of his load inside you. "Fuck, that was good'+iif(rand(1,10) < 4, ' whore', '')+'," he sighs while zipping up.'
+		end
+
+		gs 'cum_call', 'vaginal', 'a client'
+	elseif $ARGS[1] = 'stomach':
+		if $prostitute['client_scene'] = 'Anal':
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/cum/abelly_'+rand(1,10)+'.mp4"></video></center>'
+		else
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/cum/pbelly_'+rand(1,10)+'.mp4"></video></center>'
+		end
+
+		iif($prostitute_client_condom = 'Yes', 'The man'+iif(prostitute['scene_repeat'] = 0, ' ', ' finally ')+'takes off the condom, ', 'He'+iif(prostitute['scene_repeat'] = 0, ' ', ' finally ')+'')+'groans and shoots his cum all over your labia and belly. Satisfied, he starts to clean himself up, going as far as to crudely wipe away the last dribbles of cum leaking from his cock onto your stomach. "That was fun'+iif(rand(1,10) < 4, ', slut."', '."')+' He says.'
+
+		gs 'cum_call', 'stomach', 'a client'
+		gs 'cum_call', 'labia', 'a client'
+	elseif $ARGS[1] = 'butt':
+		if $prostitute['client_scene'] = 'Anal':
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/cum/abutt_'+rand(1,4)+'.mp4"></video></center>'
+		else
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/cum/pbutt_'+rand(1,4)+'.mp4"></video></center>'
+		end
+
+		iif($prostitute_client_condom = 'Yes', 'The man'+iif(prostitute['scene_repeat'] = 0, ' ', ' finally ')+'takes off the condom, ', 'He'+iif(prostitute['scene_repeat'] = 0, ' ', ' finally ')+'')+'groans and shoots his cum all over your butt. Satisfied, he starts to clean himself up, going as far as to crudely wipe away the last dribbles of cum leaking from his cock onto your butt. "That was fun'+iif(rand(1,10) < 4, ', slut."', '."')+' He says.'
+
+		gs 'cum_call', 'butt', 'a client'
+	elseif $ARGS[1] = 'anal_creampie':
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/cum/anal_'+rand(1,2)+'.mp4"></video></center>'
+		if prostitute['client_creampie'] = 1 and $prostitute_client_cumshot ! 'Inside':
+			'For several more minutes he pounds your ass until he finally stops'+iif($prostitute_client_condom = 'Yes', 'and pulls out for a second before he pushes back inside.', ', cock still buried deep in your ass.')+' He groans and you can feel spurts of warm cum fill you.'
+			'"What''s wrong with you?" You scream while he slips out of your abused hole.'
+			iif($prostitute_brand['text_pubic'] = 'cumslut', '"Stop complaining cumslut," he taunts you with your own tattoo. "We both know you want it."', '"Shut up! It''s not like I could knock you up, slut." He gives your ass a hard slap before zipping himself up.')
+		else
+			'He'+iif(prostitute['scene_repeat'] = 0, ' ', ' finally ')+'moans and you feel the warmth of his cum filling your ass. With one last moan, he shoots the rest of his load deep inside your bowls. "God, yes take it'+iif(rand(1,10) < 5, ' whore', ' bitch')+'," he sighs.'
+			'"That was great, thanks for that," he adds.'
+			if $prostitute_client_cumshot ! 'Inside':
+				prostitute['payment'] += 100
+				'"Did you just cum inside me?" You ask him. "You didn''t pay for that!"'
+				'He looks puzzled. "Really? I didn''t?" He asks and when you shake your head he looks sorry. "Sorry, I totally forgot."'
+				'"Fine", you sigh. "But pay up."'
+			end
+		end
+		gs 'cum_call', 'anus', 'a client'
+	end
+
+	if prostitute['payment'] > 0:
+		*nl
+		'He pulls out his wallet and hands you an additional <<prostitute[''payment'']>> <b>₽</b>.'
+
+		prostitute['earnings_day'] += prostitute['payment']
+		if prostitute_status['main'] = -1 or prostitute_georgiy['payment_method'] = 1: money += prostitute['payment']
+		prostitute['payment'] = 0
+	end
+
+	if $prostitute['client_scene'] = 'Blowjob':
+		gs 'arousal', 'bj', 2, 'unknown', 'prostitution', 'no_orgasm_msg'
+	elseif $prostitute['client_scene'] = 'Vaginal':
+		gs 'arousal', 'vaginal', 2, 'unknown', 'prostitution', 'no_orgasm_msg'
+	elseif $prostitute['client_scene'] = 'Anal':
+		gs 'arousal', 'anal', 2, 'unknown', 'prostitution', 'no_orgasm_msg'
+	end
+	gs 'arousal', 'end'
+	gs 'stat'
+
+	act 'Get dressed': gt 'prostitution_integ_clientsex', 'end'
+end
+
+! [x] First check
+if $ARGS[0] = 'rimjob_end':
+	*clr & cla
+	prostitute_time = rand(3,4)
+	prostitute_rand = rand(0,5)
+	gs 'fame', 'city', 'prostitute', 1
+	if $prostitute_fetish['rimjob'] = 'yes':
+		prostitute_arousal = prostitute_time * -3
+	else
+		prostitute_arousal = prostitute_time * -1
+	end
+	minut += prostitute_time * 2
+
+	act 'Get dressed': gt 'prostitution_integ_clientsex', 'end'
+
+	if $prostitute_fetish['rimjob'] = '':
+		$prostitute_fetish['rimjob'] = 'undecided'
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/rimjob/rimjob_s5.mp4"></video></center>'
+		'He lays down on the backseat and lift his legs to present his ass to you. What have you agreed to? You ask yourself as your eyes wander down to his exposed asshole. He shaved the hair around it just like he did his balls and most of his crotch. At least you won''t have a ton of hair in your mouth. "Don''t worry, I showered before coming here," he tries to reassure you. "I always hope to find a girl that will do it. So I come prepared."'
+		'You continue to question your decision as you slowly move your head towards his ass. When you''re only an inch away you stick out your tongue and flinch the second it tip touches his puckered asshole. You quickly retreat back an inch, but it was unpleasant. A bit weird, but it didn''t taste horrible as you may have feared. "Please," the man pleads and that is the push you need to get back into it. You touch his asshole again with your tongue and start to lick the puckered flesh and the area around it. It tastes a bit bitter, but not bad and you quickly get used to it as you move your tongue around and over his asshole. "Spit on it," he orders you as he strokes his cock furiously. You do as he commands and push a bit with your tongue against his now wet opening. That takes him over the edge and he shoots his cum all over his hand an stomach while his asshole twitches slightly against your tongue. "Thanks," he says sounding completely spend but satisfied.'
+	else
+		if prostitute['rim_counter'] = 0 or (prostitute['rim_counter'] = 6 and prostitute_rand = 0):
+			prostitute['earnings_day'] += 200
+			if prostitute_status['main'] = -1 or prostitute_georgiy['payment_method'] = 1: money += 200
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/rimjob/rimjob_s0_'+rand(0,2)+'.mp4"></video></center>'
+			'He kneels on the backseat and spreads his ass-cheeks with his hands to give you better access to his asshole.'+iif($prostitute_fetish['rimjob'] = 'yes', ' Not even h', ' H')+'esitating for a second you push your mouth in his ass-crack and coat the sensitive area in your saliva. "Fuck, yes," the man shouts. "This is so fucking hot," he continues, when you dance around his hole with your tongue, before sucking on it once. After a minute of constant licking he urges you to give him a handjob and stimulated by your tongue and hands he shoots his cum on the backseat within a minute.'
+			*nl
+			'"Thanks, that was the best orgasm I had in a long time," he says sounding satisfied and pulls out another 200 <b>₽</b>. "Here take this for a job well done."'
+		elseif prostitute['rim_counter'] = 1 or (prostitute['rim_counter'] = 6 and prostitute_rand = 1):
+			gs 'cum_call', 'hands', 'a client'
+			if prostitute_thought['rimjob'] = 0: prostitute_thought['rimjob'] = 1
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/rimjob/rimjob_s1.mp4"></video></center>'
+			'In contrast to most guys he''s completely shaved. Not a single hair is left on his ass, balls and crotch which makes the whole experience a bit more enjoyable for you.'+iif(prostitute_thought['rimjob'] < 2, ' You give yourself a mental shake. It isn''t as if you like giving guys a rimjob... or do you? You ask yourself, but immediately push the thought aside and concentrate on the task in front of you. ', ' ')+'He also tastes like nothing, not even sweat as if he stepped right out of the shower. "That''s great, keep doing that," he says with a blissful smile on his face, when you flick your tongue through the puckered meat of his hole.'
+			*nl
+			'You continue to tease his ass with your '+iif(pirsA > 0 and pirsA < 10000, 'piercing', 'tongue')+' for the next few minutes and stroking his cock with your hands. "Damn, that''s...," he stops talking as cum erupts from the tip of his cock coating your hand in it.'
+		elseif prostitute['rim_counter'] = 2 or (prostitute['rim_counter'] = 6 and prostitute_rand = 2):
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/rimjob/rimjob_s2.mp4"></video></center>'
+			'You push your face into his shaved ass-crack and dig in. "That feels nice," he says with a grin and strokes his cock as your tongue moves up and down his ass-crack. "Sounds even nicer," he adds, when the air is filled with the slobbery sounds your mouth and tongue make on his ass.'
+			'"Yeah that''s it, lick my asshole whore, suck on it," he says more to himself to turn him on than to you. Still, you do what he says and enclose your mouth around his hole and suck on it a few times. "Shit, I''m coming," he hisses and erupts all over his hands.'
+		elseif prostitute['rim_counter'] = 3 or (prostitute['rim_counter'] = 6 and prostitute_rand = 3):
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/rimjob/rimjob_s3_'+rand(0,1)+'.mp4"></video></center>'
+			'"I...," his face turns red. "I know it''s probably not something you enjoy," he says, "but could you at least fake it?"'
+			'"I don''t have to fake it," you '+iif($prostitute_fetish['rimjob'] = 'yes', 'tell him the truth', 'lie to make him feel better')+'. "Really?" he asks surprised and happy at the same time. You nod and push him down on the backseat. "Of course, or I wouldn''t do it," you tell him and wink at him, before pushing your face into his ass and run your tongue through his ass-crack and over his asshole without breaking eye contact with him. "Yummy," you grin.'
+			*nl
+			'You give it all you got to give him a good time and make him believe that there is nothing more enjoyable for you than to have your face pushed against a guys ass. The whole time his gaze is fixed on you until he cums.'
+		elseif prostitute['rim_counter'] = 4 or (prostitute['rim_counter'] = 6 and prostitute_rand = 4):
+			cla
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/rimjob/rimjob_s4.mp4"></video></center>'
+			'"More pressure," your client demands as your tongue moves up and down between his ass-cheeks. "Come on, really push against it," he adds and you shift your focus to his asshole. Your tongue pushes against it and you apply more force than you normally would. "Yeah, that''s it. Your tongue feels great," he moans as his eyes flutter shut and his right hand grabs his cock.'
+			'For a minute or two nobody says a word and the only things you can hear are the cars rushing by on the nearby highway and the perverted slobbery sounds your mouth makes in his ass-crack. "A finger, push a finger inside," he tells you as he quickens his strokes. "Now!"'
+			'You do it. Your right index finger moves past his saliva covered sphincter into his ass. "Wiggle it around," he yells and your lips curl upwards into a small grin, when you move your finger up and down and his cock shoots several large spurts on his crotch, stomach and even hit his throat.'
+			if $prostitute_fetish['atm'] = 'blocked':
+				act 'Get dressed': gt 'prostitution_integ_clientsex', 'end'
+			else
+				'"Put it into your mouth," the man suddenly says, when he opens his eyes. '+iif($prostitute_fetish['atm'] = '', 'You move your mouth towards his cock to lick it clean, believing that''s what he meant, but he shakes his head. "No, your finger," he explains more clearly. Your finger? What? Is he crazy? You lift it', 'You lift your finger')+' in front of your eyes. It looks clean. "You want me to put my finger into my mouth?" He nods eagerly. "Yeah, lick it clean'+iif($prostitute_fetish['atm'] = 'yes', '. ', '," he continues and when he sees the hesitation on your face he adds, "')+'I''ll give you 1000 <b>₽</b>, when you do it."'
+
+				gs 'prostitute_integ_functions', 'will_atm', 'resist', iif($prostitute_fetish['atm'] = 'yes', 'hard', 'easy')
+				if will_cost < pcs_willpwr:
+					act 'Don''t do it (<<will_cost>> Willpower)':
+						cla & *nl
+						minut += 1
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'You shake your head and lower your finger. "Sorry, that''s not something I do," you '+iif(prostitute_thought['atm'] > 0, 'lie.', 'say.')
+
+						act 'Get dressed': gt 'prostitution_integ_clientsex', 'end'
+					end
+				else
+					act 'Don''t do it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+				act 'Lick your finger':
+					*clr & cla
+					minut += 2
+					prostitute['earnings_day'] += 1000
+					if prostitute_status['main'] = -1 or prostitute_georgiy['payment_method'] = 1: money += 1000
+					if prostitute_thought['atm'] = 0: prostitute_thought['atm'] = 1
+					prostitute_stats['atm'] += 1
+					gs 'prostitute_integ_functions', 'std_check_oral', 'low'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/normal/sex/rimjob/finger.jpg"></center>'
+					'"1,000?" you ask making sure you heard him correctly. "Yeah, a thousand rubles. You only have to put that finger into your mouth," he encourages you. You '+iif($prostitute_fetish['atm'] = 'yes', 'shrug', 'sigh')+' and suck your finger into your mouth. His eyes grow wide, when you swirl your tongue around it, before pulling your finger lasciviously out of your mouth. "Damn, you''re nasty," he says chuckling and hands you the promised 1,000 <b>₽</b>.'
+
+					act 'Get dressed': gt 'prostitution_integ_clientsex', 'end'
+				end
+
+				if $prostitute_fetish['atm'] = '':
+					$prostitute_fetish['atm'] = 'undecided'
+					'<br><font color="red">Content Warning: Ass-to-Mouth</font>'
+					act '<font color="red">Block this type of content</font>':
+						cla & *nl
+						minut += 1
+						$prostitute_fetish['atm'] = 'blocked'
+						gs 'stat'
+						'You shake your head and lower your finger. "Sorry, that''s not something I do," you say.'
+
+						act 'Get dressed': gt 'prostitution_integ_clientsex', 'end'
+					end
+				end
+			end
+		elseif prostitute['rim_counter'] = 5 or (prostitute['rim_counter'] = 6 and prostitute_rand = 5):
+			if prostitute_thought['trash'] = 0: prostitute_thought['trash'] = 1
+			facial += 1
+			gs 'cum_call', 'face', 'a client'
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/sex/rimjob/rimjob_s5.mp4"></video></center>'
+			'"Just flick your tongue over it," the men tells you as he'+iif(prostitute['condom'] = 1, ' pulls the condom off and ', ' ')+'takes his cock into his hand. You do as he wants '+iif($prostitute_fetish['rimjob'] = 'yes', 'without hesitation', 'after hesitating for a few seconds')+' and flick the tip of your tongue over the puckered flesh of his hole. "Look me in the eye bitch," he orders you and instinctively you look up into his '+iif(rand(0,1) = 1, 'brown', 'blue')+' eyes. There is no respect or appreciation in them for what you''re doing for him. You realize that it isn''t about him wanting to get a rimjob, but about you doing such a degrading act for money. "Yeah, taste my ass," he says coldly while he continues to furiously stroke his cock. It turns him on so much to degrade you that it won''t take long for him to cum. "That''s what you''re good for, licking a mans asshole... you fucking trash," he nearly screams the last words as suddenly moves backwards and upright to point his cock directly at you. Your eyes close, the only thing you have time for, before his cum lands all over your face.'
+			*nl
+			if prostitute['rim_unfriendly'] = 0 or rand(0,2) = 2:
+				prostitute['earnings_day'] += 500
+				if prostitute_status['main'] = -1 or prostitute_georgiy['payment_method'] = 1: money += 500
+				prostitute['rim_unfriendly'] = 1
+				'"I''m sorry," he apologizes, his demeanor has completely changed, and pulls out 500 <b>₽</b>. "I can''t stop myself from saying stuff like that." he explains. "It turns me on way too much."'
+				'"Don''t worry about it," you answer taking the money from his hand'+iif(prostitute_thought['trash'] < 2, ' and try not to think about the truth behind his words.', '.')
+			else
+				prostitute['client_asshole'] = 1
+			end
+		end
+
+		if prostitute['rim_counter'] < 6: prostitute['rim_counter'] += 1
+	end
+
+	gs 'arousal', 'rimming_give', prostitute_arousal, 'unknown', 'prostitution', 'no_orgasm_msg'
+	gs 'arousal', 'end'
+	gs 'stat'
+end
+
+! [x] First check
+if $ARGS[0] = 'end':
+	*clr & cla
+	minut += 5
+	prostitute['customer_day'] += 1
+	gs 'fame', 'city', 'prostitute', 1
+	gs 'stat'
+	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/leave_car.mp4"></video></center>'
+	'"That was great", he tells you with a satisfied smile on his face. "Can we meet again sometime?"'
+
+	if (prostitute['client_creampie'] = 1 and $prostitute_client_cumshot ! 'Inside') or prostitute['client_asshole'] = 1:
+		'You don''t look at him and don''t answer his question. You just get out of the car and...'
+	else
+		'"Sure, why not, sweetie. I work here several times a week except on Sunday," you say.'
+		'"What''s your name?" He calls after you.'
+		'"<<$prostitute_names[''street'']>>," you say before you ...'
+	end
+
+	if prostitute['skip_end'] = 0:
+		act 'Leave':
+			*clr & cla
+			minut += 2
+			gs 'stat'
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/leave_walk.mp4"></video></center>'
+			'You had <<prostitute[''customer_day'']>> '+iif(prostitute['customer_day'] > 1, 'clients', 'client')+' and earned <<prostitute[''earnings_day'']>> <b>₽</b> today.'
+
+			prostitute['reminded'] = 0
+			prostitute['accident'] = 0
+			prostitute['condom'] = 0
+			prostitute['blowjob_first'] = 0
+			prostitute['scene_repeat'] = 0
+			prostitute['client_rimjob'] = 0
+			prostitute['client_asshole'] = 0
+			killvar 'prostitute_cumshot_rand'
+			killvar 'prostitute_time'
+			killvar 'prostitute_rand'
+			killvar 'prostitute_arousal'
+
+			act 'Continue': gt 'prostitution_integ_gasstation', 'work'
+		end
+	else
+		minut += 2
+		prostitute['reminded'] = 0
+		prostitute['accident'] = 0
+		prostitute['condom'] = 0
+		prostitute['blowjob_first'] = 0
+		prostitute['scene_repeat'] = 0
+		prostitute['client_rimjob'] = 0
+		prostitute['client_asshole'] = 0
+		killvar 'prostitute_cumshot_rand'
+		killvar 'prostitute_time'
+		killvar 'prostitute_rand'
+		killvar 'prostitute_arousal'
+
+		gt 'prostitution_integ_gasstation', 'work'
+	end
+end
+
+!!------ Regular Client ------
+
+! [x] First check
+if $ARGS[0] = 'regular_start':
+	*clr & cla
+	menu_off = 1
+	cumnostd = 1
+	'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/start.mp4"></video></center>'
+	'You rub your hand over the hard bulge in his pants and smile seductively at him. "Let''s take care of this."'
+	'He groans and watches you opening his pants. "Yes, <<$prostitute_names[''street'']>>. I have waited the whole week for this," he tells you while you take his semi-hard cock and rub it slowly with your hand.'
+	*nl
+	if $prostitute_client_condom = 'Yes':
+		gs 'prostitute_integ_functions', 'remove_condom'
+		'You take your condom and put it on his <<dick>>cm dick.'
+		*nl
+	end
+	'You bow your head down and tenderly take the head of his dick in your mouth.'
+	'"Oh fuck," he says when you circle your tongue around the head.'
+
+	gs 'arousal', 'bj', 2, 'unknown', 'prostitution', 'no_orgasm_msg'
+	gs 'arousal', 'hj', 2, 'unknown', 'prostitution', 'no_orgasm_msg'
+	gs 'stat'
+
+	prostitute_scene_rand = rand(1,10)
+
+	if prostitute['scene_reduction'] = 1:
+		if prostitute_scene_rand < 8:
+			if prostitute_scene_rand < 4: prostitute_scene_clit = 1
+			gt 'prostitution_integ_clientsex', 'regular_start_bj'
+		else
+			gt 'prostitution_integ_clientsex', 'regular_start_lick'
+		end
+	else
+		act 'Continue':
+			if prostitute_scene_rand < 8:
+				if prostitute_scene_rand < 4: prostitute_scene_clit = 1
+				gt 'prostitution_integ_clientsex', 'regular_start_bj'
+			else
+				gt 'prostitution_integ_clientsex', 'regular_start_lick'
+			end
+		end
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'regular_start_bj':
+	*clr & cla
+	if prostitute_scene_clit = 1:
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/start_blowjob_clit.mp4"></video></center>'
+		gs 'arousal', 'foreplay', -4, 'unknown', 'prostitution', 'no_orgasm_msg'
+	else
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/start_blowjob'+rand(0,1)+'.mp4"></video></center>'
+	end
+	'"That''s great, keep doing it like this," he tells you and you circle your tongue around the head of his cock again. "Yeah, like this," he responds and you can feel his cock growing harder in your mouth.'
+	iif(prostitute_scene_clit = 1, 'His hand moves to your pussy and carefully rubs your clit while', 'For the next two minutes')+' you keep bobbing your head up and down on his shaft.'
+
+	gs 'arousal', 'bj', 4, 'unknown', 'prostitution', 'no_orgasm_msg'
+	gs 'stat'
+
+	prostitute_scene_rand = rand(1,10)
+
+	if prostitute['scene_reduction'] = 0:
+		act 'Continue':
+			if prostitute_scene_rand < 4:
+				gt 'prostitution_integ_clientsex', 'regular_start_lick'
+			elseif prostitute_scene_rand >= 4 and $prostitute['client_scene'] = 'Vaginal':
+				gt 'prostitution_integ_clientsex', 'regular_vaginal'
+			elseif prostitute_scene_rand >= 4 and $prostitute['client_scene'] = 'Anal':
+				gt 'prostitution_integ_clientsex', 'regular_anal'
+			end
+		end
+	else
+		if $prostitute['client_scene'] = 'Vaginal':
+			gt 'prostitution_integ_clientsex', 'regular_vaginal'
+		else
+			gt 'prostitution_integ_clientsex', 'regular_anal'
+		end
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'regular_start_lick':
+	*clr & cla
+	prostitute_scene_lick = 1
+	prostitute_pic_rand = rand(0,1)
+	'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/start_lick'+'<<prostitute_pick_rand>>'+'.mp4"></video></center>'
+	'He hinges down the passenger seat. "Lay down, I want to taste you," he tells you. You eagerly obey and spread your legs.'
+	'"Beautiful," he comments on your'+iif(pcs_horny < 40, ' dry ', ' wet ')+'pussy.'
+	*nl
+	if prostitute_pic_rand = 0:
+		'You grab on of your breasts and knead it. "Please," you moan. He smiles, but takes a moment to take in the view of you playing with yourself, then he moves his head between your legs and sucks your clit into his mouth.'
+		gs 'arousal', 'breasts', -4, 'unknown', 'prostitution', 'no_orgasm_msg'
+	else
+		'He takes too much time, so you grab his head and move him between your legs. "Come on," you say and enthusiastically sucks your clit into his mouth.'
+	end
+	*nl
+	'"Yes," you moan and for the next few minutes you don''t think about anything else than the feeling of his tongue on your pussy.'
+
+	gs 'arousal', 'cuni', 4, 'unknown', 'prostitution', 'no_orgasm_msg'
+	gs 'stat'
+
+	act 'Continue':
+		if $prostitute['client_scene'] = 'Vaginal':
+			gt 'prostitution_integ_clientsex', 'regular_vaginal'
+		elseif $prostitute['client_scene'] = 'Anal':
+			gt 'prostitution_integ_clientsex', 'regular_anal'
+		end
+	end
+end
+
+! [x]: First check
+if $ARGS[0] = 'regular_vaginal':
+	*clr & cla
+	if prostitute['scene_repeat'] = 0:
+		if prostitute_scene_lick = 0:
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/main_pussy_clit.mp4"></video></center>'
+			'He hinges down the passenger seat. "Lay down," he tells you and lays done next to you. You spread your legs and he holds up your leg while you guide his cock to your entrance. Starting slow he speeds up after a few thrusts and fucks you in earnest after a minute.'
+			*nl
+			'You''re just laying there and try to enjoy the feeling as he fucks you and plays with your clit the entire time.'
+			gs 'arousal', 'foreplay', -6, 'unknown', 'prostitution', 'no_orgasm_msg'
+		elseif prostitute_scene_lick = 1:
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/main_pussy'+rand(0,2)+'.mp4"></video></center>'
+			gs 'arousal', 'auto_lube', 'vaginal'
+			'He moves out of his clothes and replaces his tongue with his dick. You spread your legs even further to give him easier access and he pushes inside.'
+			'Starting slow he speeds up after a few thrusts and fucks you in earnest after a minute.'
+		end
+	elseif prostitute['scene_repeat'] = 1:
+		prostitute_pic_rand = rand(3,5)
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/main_pussy<<prostitute_pic_rand>>.mp4"></video></center>'
+		if prostitute_pic_rand < 5:
+			'After a few minutes you switch positions. He puts the passenger seat back and moves to the back of the car and pulls you with him. You get on top of him and he continues pushing inside you.'
+		elseif prostitute_pic_rand = 5:
+			'"Get on your knees," he orders and helps you with it in the tight confounds of the car.'
+		end
+	elseif prostitute['scene_repeat'] = 2:
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/main_pussy6.mp4"></video></center>'
+		iif(rand(1,10) < 4, 'You can''t remember that he ever showed such stamina, but today ', 'It''s always the same with him. His stamina shows no bounds and ')+' he can''t seem to get enough of you. It takes him several more minutes until he finally seems close to the finish line.'
+	end
+
+	gs 'arousal', 'vaginal', iif(prostitute['scene_reduction'] = 0, 6, 12), 'unknown', 'prostitution', 'no_orgasm_msg'
+	gs 'stat'
+
+	if ((prostitute['scene_repeat'] = 0 and rand(1,6) < 4) or (prostitute['scene_repeat'] = 1 and rand(1,6) < 3)) and prostitute['scene_reduction'] = 0:
+		prostitute['scene_repeat'] += 1
+		act 'Continue': gt 'prostitution_integ_clientsex' , 'regular_vaginal'
+	else
+		act 'Continue': gs 'prostitution_integ_clientsex' , 'regular_switch'
+	end
+end
+
+! [x]: First check
+if $ARGS[0] = 'regular_anal':
+	*clr & cla
+	'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/main_anal'+rand(0,4)+'.mp4"></video></center>'
+
+	if prostitute['scene_repeat'] = 0:
+		'He moves onto the backseat of the car and lies down on it. "Get on top of me."'
+		gs 'arousal', 'auto_lube', 'anal'
+		'Hands, legs, arms and feet are in the way as you make your way to the back of the car.'
+		if rand(1,10) = 1:
+			'Suddenly you loose your footing and land with your whole weight on top of him.'
+			'"Ow!" He shouts more surprised than hurt, but he shakes his head when you utter an apology. "Don''t worry it didn''t hurt."'
+			'He helps you to get in position and you grab his dick and position it at the entrance of your ass.'
+		else
+			'But you easily manage to get on top of him. You grab his dick and position it at the entrance of your ass.'
+		end
+		'You carefully lower yourself onto his cock and forcing him past your sphincter.'
+		'"Take a moment," he suggests'+iif(pcs_horny >= 60, ', but you shake your head and' , ' and you gladly take this opportunity to get used to his dick inside your body before you')+' start to fuck him.'
+	elseif prostitute['scene_repeat'] = 1:
+		'You switch up your routine every minute or so. Sometimes you fuck him, sometimes he fucks you or you both try to coordinate your simultaneous movements. He is clearly annoying himself and tells you that frequently.'
+		*nl
+		prostitute_scene_rand = rand(1,10)
+		if prostitute_scene_rand < 5:
+			'"My wife never let me fuck her like this," he tells you clearly '+iif(prostitute_scene_rand < 3, 'annoyed by this. "I should have married a whore like you <<$prostitute_names[''street'']>>."', 'proud about his wife. "She is a good woman, not a whore like you <<$prostitute_names[''street'']>>."')
+		else
+			'"You''re a special one, you know that, right?" He asks you, but you are to busy '+iif(prostitute_scene_rand > 8, 'fucking him', 'getting fucked by him')+' to answer. "Most of those other bitches don''t do anal.'+iif(prostitute_scene_rand > 8, ' If you''re a whore, you''re a whore. They should learn their place in the world, just like you did."', '"')
+		end
+	elseif prostitute['scene_repeat'] = 2:
+		'He has stopped talking and is, just like you, only concentrating on the action. You can feel he is getting closer and closer as the minutes tick by.'
+	end
+
+	gs 'arousal', 'anal', iif(prostitute['scene_reduction'] = 0, 6, 12), 'unknown', 'prostitution', 'no_orgasm_msg'
+	gs 'stat'
+
+	if ((prostitute['scene_repeat'] = 0 and rand(1,6) < 4) or (prostitute['scene_repeat'] = 1 and rand(1,6) < 3)) and prostitute['scene_reduction'] = 0:
+		prostitute['scene_repeat'] += 1
+		act 'Continue': gt 'prostitution_integ_clientsex' , 'regular_anal'
+	else
+		act 'Continue': gs 'prostitution_integ_clientsex' , 'regular_switch'
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'regular_switch':
+	if $prostitute_client_condom = 'Yes':
+		if $prostitute['client_scene'] = 'Vaginal':
+			gt 'prostitution_integ_clientsex', 'regular_cumshot', 'vaginal_condom'
+		elseif $prostitute['client_scene'] = 'Anal':
+			gt 'prostitution_integ_clientsex', 'regular_cumshot', 'anal_condom'
+		end
+	elseif $prostitute_client_condom = 'No':
+		if $prostitute['client_scene'] = 'Vaginal':
+			if $prostitute_client_cumshot ! 'Inside':
+				gt 'prostitution_integ_clientsex', 'regular_cumshot', 'mouth'
+			else
+				gt 'prostitution_integ_clientsex', 'regular_cumshot', 'vaginal_creampie'
+			end
+		elseif $prostitute['client_scene'] = 'Anal':
+			if $prostitute_client_cumshot ! 'Inside':
+				gt 'prostitution_integ_clientsex', 'regular_cumshot', 'mouth'
+			else
+				gt 'prostitution_integ_clientsex', 'regular_cumshot', 'anal_creampie'
+			end
+		end
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'regular_cumshot':
+	*clr & cla
+
+	if $ARGS[1] = 'mouth':
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/end_mouth.mp4"></video></center>'
+		'He pulls out of your '+iif($prostitute['client_scene'] = 'Anal', 'ass', 'pussy')+' and take his cock into your mouth. It won''t take much for him to cum.'+iif($prostitute['client_scene'] = 'Anal', ' You try to ignore the taste of your own ass', ' You can taste your own pussy on his dick')+' as you tease his head with your tongue. That takes him over the edge and he shoots his cum inside your mouth.'
+
+		gs 'arousal', 'bj', 2, 'unknown', 'prostitution', 'no_orgasm_msg'
+		gs 'cum_call', 'mouth', 'a regular client'
+		swallow += 1
+	elseif $ARGS[1] = 'vaginal_condom' or $ARGS[1] = 'vaginal_creampie':
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/end_pussy.mp4"></video></center>'
+		'You carefully massage his balls as he pushes into you. "I''m cumming," he groans and shoots his cum '+iif($ARGS[1] = 'vaginal_creampie', 'deep inside you.', 'inside the condom.')
+
+		gs 'arousal', 'vaginal', 2, 'unknown', 'prostitution', 'no_orgasm_msg'
+		if $ARGS[1] = 'vaginal_creampie': gs 'cum_call', 'vaginal', 'a regular client'
+	elseif $ARGS[1] = 'anal_condom' or $ARGS[1] = 'anal_creampie':
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/end_anal.mp4"></video></center>'
+		'With one last push he shoves his cock into you and shoots his cum '+iif($ARGS[1] = 'anal_creampie', 'deep inside you.', 'inside the condom.')
+
+		gs 'arousal', 'anal', 2, 'unknown', 'prostitution', 'no_orgasm_msg'
+		if $ARGS[1] = 'anal_creampie': gs 'cum_call', 'anus', 'a regular client'
+	end
+
+	gs 'arousal', 'end'
+	gs 'stat'
+
+	act 'Get dressed': gt 'prostitution_integ_clientsex', 'regular_end_0'
+	if pcs_horny >= 80: act 'Get yourself off': gt 'prostitution_integ_clientsex', 'regular_main_lick'
+end
+
+! [x] First check
+if $ARGS[0] = 'regular_main_lick':
+	*clr & cla
+	minut += 3
+	'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/sex/main_lick.mp4"></video></center>'
+	'You can feel you are close and you move your hand between your legs to get yourself off.'
+	'He watches you for a few seconds before he moves between your legs. "Here, let me help you," he says and a second later you can feel his tongue between your pussy lips.'
+	$orgasm_txt = 'Within a few minutes your legs are shaking and you closes your eyes as the powerful orgasm washes over you.'
+	$orgasm_or = 'custom'
+	gs 'arousal', 'cuni', -6, 'unknown'
+	gs 'arousal', 'end'
+	gs 'stat'
+	*nl
+	'"Thanks," you say exhausted but satisfied.'
+
+	act 'Get dressed': gt 'prostitution_integ_clientsex', 'regular_end_0'
+end
+
+! [x] First check
+if $ARGS[0] = 'regular_end_0':
+	if rand(1,10) < 4 and prostitute['skip_start'] = 0:
+		*clr & cla
+		minut += 10
+		gs 'stat'
+		'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/end_p1.mp4"></video></center>'
+		'You chat with him for some time and he tells you a little bit about himself, his life and his problems. Listening, asking some questions and faking interest in their troubles has become an important part of your job, at least with your regulars. They come to you to reduce stress and that does sometimes mean more than fucking you.'
+		*nl
+		'He suddenly moves his head back to your tits and he plants several kisses on them. "What are you doing?" You laugh. "You can''t get enough of those? Do you?"'
+		'"No never, they are perfect," he grins and suddenly looks a bit more serious as he moves back. "<<$prostitute_names[''street'']>>, can I kiss you?"'
+		*nl
+		'You...'
+
+		gs 'willpower', 'kiss', 'resist', iif($prostitute['kiss'] = 'yes', 'hard', 'easy')
+		if will_cost <= pcs_willpwr:
+			act 'Say no (<<will_cost>> Willpower)':
+				*clr & cla
+				minut += 2
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/end_p3.mp4"></video></center>'
+				'"No, sorry sweetie, but I don''t kiss anybody while im working. It has nothing to do with you, it''s a rule I have," you '+iif($prostitute['kiss'] = 'yes', 'lie', 'say')+' to avoid upsetting him.'
+				'He doesn''t look too happy about it. "Fine, I guess I can understand that."'
+
+				if rand(1,10) > 7: prostitute['customer_total'] -= 1
+
+				act 'Get out of the car': gt 'prostitution_integ_clientsex', 'regular_end_1'
+			end
+		else
+			act 'Say no (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+
+		act 'Kiss him':
+			*clr & cla
+			pcs_mood += 10
+			if $prostitute['kiss'] ! 'yes': $prostitute['kiss'] = 'yes'
+			'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/end_p2.mp4"></video></center>'
+			'... kiss him. It''s a strangely sweet moment in a car next to a gas station after he has solicited you for sex.'
+			'"Thanks <<$prostitute_names[''street'']>>," he says and he looks happy not sexually satisfied but truly happy.'
+
+			gs 'arousal', 'kiss', 3, 'unknown'
+			gs 'arousal', 'end'
+			gs 'stat'
+
+			if rand(1,10) < 5:
+				cla & *nl
+				'"Here, take this," he says and tries to hand you another 100 <b>₽</b>.'
+
+				gs 'willpower', 'prostitution', 'resist', 'easy'
+				if will_cost <= pcs_willpwr:
+					act 'Refuse (<<will_cost>> Willpower)':
+						cla & *nl
+						minut += 1
+						pcs_mood += 5
+						prostitute['customer_total'] += 1
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'"Oh no, I can'' take that," you say a little bit offended. It feels wrong to get payed for a kiss.'
+						'"What? Why?" He asks surprised.'
+						'You smile. "I don''t want it, not for giving you a kiss."'
+						'He looks puzzled and sits there for a moment still holding the 100 <b>₽</b> in his hand. "Sorry, I misjudged you."'
+						'"It''s fine, I guess it comes with the territory," you say.'
+						'He takes back the money and you can see in his eyes that you have earned a little bit of respect with him. A rare sight in your profession.'
+
+						act 'Get out of the car': gt 'prostitution_integ_clientsex', 'regular_end_1'
+					end
+				else
+					act 'Refuse (<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':
+					cla & *nl
+					minut += 1
+					pcs_mood -= 10
+					money += 100
+					'You take it and with that you change the kiss into a simple transaction.'+iif(prostitute_georgiy['payment_method'] = 0, ' You don''t put it with the money for Volya and keep it for yourself. You gave him something you aren''t required to give and you feel that this money only belongs to you.', '')
+					gs 'stat'
+
+					if rand(1,10) = 10: prostitute['customer_total'] -= 1
+
+					act 'Get out of the car': gt 'prostitution_integ_clientsex', 'regular_end_1'
+				end
+			else
+				act 'Get out of the car': gt 'prostitution_integ_clientsex', 'regular_end_1'
+			end
+		end
+	else
+		gt 'prostitution_integ_clientsex', 'regular_end_1'
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'regular_end_1':
+	*clr & cla
+	minut += 2
+	prostitute['customer_day'] += 1
+	gs 'fame', 'city', 'prostitute', 2
+	gs 'stat'
+	'<center><video autoplay loop src="mod/wlife/images/prostitution/regular/negotiation/end_p3.mp4"></video></center>'
+	'"Bye <<$prostitute_names[''street'']>>, I hope I''ll seeing you again," is the last thing he says to you as you step out of the car. You close the door behind you and step back onto the parking lot of the gas station.'+iif(hour < 23, ' Your shift still isn''t over.', '')
+
+	killvar 'prostitute_scene_clit'
+	killvar 'prostitute_scene_lick'
+	killvar 'prostitute_scene_rand'
+	killvar 'prostitute_pic_rand'
+	prostitute['condom'] = 0
+	prostitute['scene_repeat'] = 0
+
+	if prostitute['skip_end'] = 0:
+		act 'Move away from the car': gt 'prostitution_integ_gasstation', 'work'
+	else
+		gt 'prostitution_integ_gasstation', 'work'
+	end
+end
+
+
+--- prostitution_integ_clientsex ---------------------------------

locations/prostitution_integ_functions.qsrc

@@ -1,4 +1,4 @@
-# wlife_integ_functions
+# prostitution_integ_functions
 
 !!Willpower
 if $ARGS[0] = 'will_unprotected':
@@ -76,14 +76,14 @@ if $ARGS[0] = 'std_check':
 	pro_std_check_rand = rand(0,10)
 	if protect = 1:
 		pro_std_rand = rand(0,1000)
-		if pro_std_rand = 1000: gs 'wlife_integ_functions' , 'std_chance'
+		if pro_std_rand = 1000: gs 'prostitution_integ_functions' , 'std_chance'
 	else
 		if $ARGS[1] = 'high':
 			pro_std_rand = rand(-20,120)
 		else
 			pro_std_rand = rand(-60,100)
 		end
-		if pro_std_rand >= 80: gs 'wlife_integ_functions' , 'std_chance'
+		if pro_std_rand >= 80: gs 'prostitution_integ_functions' , 'std_chance'
 	end
 end
 
@@ -129,7 +129,7 @@ if $ARGS[0] = 'std_check_oral':
 	pro_std_check_rand = rand(0,10)
 	if protect = 1:
 		pro_std_rand = rand(0,1000)
-		if pro_std_rand = 1000: gs 'wlife_integ_functions' , 'std_oral_chance'
+		if pro_std_rand = 1000: gs 'prostitution_integ_functions' , 'std_oral_chance'
 	else
 		if $ARGS[1] = 'high':
 			pro_std_rand = rand(-20,120)
@@ -138,7 +138,7 @@ if $ARGS[0] = 'std_check_oral':
 		else
 			pro_std_rand = rand(-60,100)
 		end
-		if pro_std_rand >= 80: gs 'wlife_integ_functions' , 'std_oral_chance'
+		if pro_std_rand >= 80: gs 'prostitution_integ_functions' , 'std_oral_chance'
 	end
 end
 
@@ -240,7 +240,7 @@ if $ARGS[0] = 'parameters':
 		$pro_work_time = 'day'
 	end
 
-	gs 'wlife_integ_functions', 'std_cum_check'
+	gs 'prostitution_integ_functions', 'std_cum_check'
 
 	!!Client Likes/Dislikes
 	if rand(1,10) = 10:
@@ -430,8 +430,8 @@ if $ARGS[0] = 'payment':
 	prostitute['payment'] = (prostitute['payment'] * (100 + prostitute['client_satisfaction'])) / 100
 
 	!!Rounding
-	prostitute['payment'] = func('wlife_integ_functions', 'exact_round', prostitute['payment'], 10)
-	prostitute['payment_backup'] = func('wlife_integ_functions', 'exact_round', prostitute['payment_backup'], 10)
+	prostitute['payment'] = func('prostitution_integ_functions', 'exact_round', prostitute['payment'], 10)
+	prostitute['payment_backup'] = func('prostitution_integ_functions', 'exact_round', prostitute['payment_backup'], 10)
 end
 
 
@@ -570,7 +570,7 @@ if $ARGS[0] = 'pav_client':
 	!!Reset
 	prostitute['pav_internal'] = 0
 
-	gs 'wlife_integ_functions', 'std_cum_check'
+	gs 'prostitution_integ_functions', 'std_cum_check'
 
 	!!Regular
 	if prostitute['pav_total'] < 10:
@@ -614,7 +614,7 @@ if $ARGS[0] = 'pav_client':
 		$prostitute['pav_location'] = 'public'
 		if pro_rand = 5: $prostitute['client_behavior'] = 'abusive'
 	else
-		gt 'wlife_integ_solicitation', 'rng'
+		gt 'prostitution_integ_solicitation', 'rng'
 	end
 
 	if prostitute['pav_regular_s8'] = 1 and pro_rand = 8: prostitute['pav_regular'] = 1
@@ -669,8 +669,8 @@ end
 if $ARGS[0] = 'exact_round':
 	!! ARGS[1] = value you want divided
 	!! ARGS[2] = divider
-	!!  func('wlife_integ_functions','exact_round', number, divider)
-	!!  func('wlife_integ_functions','exact_round', 12345, 7)
+	!!  func('prostitution_integ_functions','exact_round', number, divider)
+	!!  func('prostitution_integ_functions','exact_round', 12345, 7)
 	if ARGS[2] ! 0:
 		round_number = ARGS[1]/ARGS[2]
 		if (ARGS[2] mod 2 ! 0 and ARGS[1] mod ARGS[2] > ARGS[2]/2) or (ARGS[2] mod 2 = 0 and ARGS[1] mod ARGS[2] >= ARGS[2]/2): round_number += 1
@@ -683,4 +683,4 @@ if $ARGS[0] = 'exact_round':
 end
 
 
---- wlife_integ_functions ---------------------------------
+--- prostitution_integ_functions ---------------------------------

locations/prostitution_integ_gasstation.qsrc

@@ -0,0 +1,395 @@
+# prostitution_integ_gasstation
+
+!! NOTE: #mod_wlife_highway was the original file
+!! TODO: Transferring the gas station mechanism and location from WLife
+!! TODO Potentially turn it into a normal gas station and lock the prostitution content behind some 
+
+$loc = 'prostitution_integ_gasstation'
+$locM = 'prostitution_integ_gasstation'
+$menu_loc = 'prostitution_integ_gasstation'
+
+! [x] First check over
+if $ARGS[0] = 'outside':
+	!! TODO: this is called every time Sveta arrives at the location whether from somewhere else or back from a client.
+    gs 'prostitution_integ_gasstation', '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 there 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 prostitute['earnings_day'] > 0: '<br>You have earned <<prostitute[''earnings_day'']>> <b>₽</b> today.'+iif(prostitute['payment_method'] = 0, ' Your share is <<prostitute[''earnings_day''] * prostitute[''share_player''] / 100>> <b>₽</b>'+iif(prostitute['debt_amount'] > 0, ', but your pimp will keep <<prostitute[''earnings_day''] * prostitute[''debt_payment_percent''] / 100>> <b>₽</b> to pay down your debt.', '.'), '')
+
+	if '<br>You can take a bus to the '+iif(money < 75, 'train station', '<a href="exec: gt ''prostitution_integ_gasstation'', ''bus_end''">train station</a>')+' in Pavlovsk. 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 'prostitution_integ_gasstation', 'shop'
+	act 'Go to the public restroom': minut += 1 & gt 'prostitution_integ_gasstation', 'restroom'
+	act 'Go to work': gt 'prostitution_integ_gasstation', 'work'
+	act 'Wait': gs 'obj_din', 'wait'
+end
+
+! [x] First check over
+if $ARGS[0] = 'shop' or $gas_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'
+	$gas_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 prostitute['tomas_timer'] = daystart:
+		'Behind the counter stands Tomas. He''s talking to another customer right now.'
+	elseif week < 7:
+		'Behind the counter stands <a href="exec: minut += 1 & gt ''prostitution_integ_gasstation'',''tomas''">'+iif(prostitute['tomas'] = 0, 'a plump man', 'Tomas')+'</a>.'
+	elseif prostitute['tomas'] > 0 and week = 7:
+		'Tomas isn''t working on Sundays. Another guy you don''t know is standing behind the counter.'
+	end
+	*nl
+	$prostitute_shop_tab = '<center><table align="center">'
+	$prostitute_shop_tab += func ('$stock_item', 20, 'Cigarettes', 115, 'siga', $curloc)
+	$prostitute_shop_tab += func ('$single_stock_item', 1, 'Fashion magazine', 430, 'fashmag', $curloc)
+	$prostitute_shop_tab += func ('$single_stock_item', 1, 'Computer magazine', 430, 'compmag', $curloc)
+	$prostitute_shop_tab += func ('$single_stock_item', 1, 'Biographical magazine', 430, 'biomag', $curloc)
+	$prostitute_shop_tab += func ('$single_stock_item', 1, 'Cooking magazine', 430, 'cookmag', $curloc)
+	$prostitute_shop_tab += func ('$single_stock_item', 1, 'Knitting magazine', 430, 'knitmag', $curloc)
+	$prostitute_shop_tab += func ('$single_stock_item', 1, 'Fitness magazine', 430, 'fitmag', $curloc)
+	$prostitute_shop_tab += func ('$stock_item', 10, 'Wipes', 50, 'salfetka', $curloc, '', iif(bag > 0, 0, 1), 'You need a purse')
+	$prostitute_shop_tab += func ('$stock_item', 20, 'Tampons', 200, 'tampon', $curloc)
+	if umbrella = 0: $prostitute_shop_tab += func ('$single_stock_item', 1, 'Umbrella', 1000, 'umbrella', $curloc, '', iif(bag > 0, 0, 1), 'You need a purse')
+	$prostitute_shop_tab += '</table></center>'
+	*pl $prostitute_shop_tab
+	killvar '$prostitute_shop_tab'
+	gs 'stat'
+
+	act 'Go outside': $gas_shop_inside = 'no' & minut += 1 & gt 'prostitution_integ_gasstation', '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 'prostitution_integ_gasstation', '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 'prostitution_integ_gasstation', '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 'prostitution_integ_gasstation', 'shop'
+	end
+end
+
+! [x] First check over
+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(prostitute_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 ''prostitution_integ_gasstation'',''condom_dispenser''">condom dispenser</a>.'
+	gs 'stat'
+
+	act 'Go back': minut += 1 & gt 'prostitution_integ_gasstation', 'outside'
+
+	if money >= 10 and prostitute_status['restroom_chip'] = 0:
+		act 'Enter the female restroom': money -= 10 & minut += 1 & gt 'prostitution_integ_gasstation', 'restroom_female'
+		act 'Enter the male restroom': money -= 10 & minut += 1 & gt 'prostitution_integ_gasstation', 'restroom_male'
+!! [x] For now it's disabled, need to modify Tomas for it to work
+!!	elseif prostitute_status['restroom_chip'] = 1:
+!!		act 'Enter the male restroom': minut += 1 & gt 'prostitution_integ_gasstation', 'restroom_male'
+	else
+		'<br>You don''t have enough money to use the restroom.'
+	end
+
+	if joint > 0:
+		act 'Smoke a joint':
+			*clr & cla
+			menu_off = 1
+			minut += 5
+			'<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 as you''re getting high.')
+			gs 'drugs', 'joint'
+			gs 'stat'
+			act 'Go back': gt 'prostitution_integ_gasstation', 'restroom'
+		end
+	end
+end
+
+! [x] First check over
+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 <<prezikcount>> condoms.'
+	gs 'stat'
+
+	act 'Go back': minut += 1 & gt 'prostitution_integ_gasstation', '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 'prostitution_integ_gasstation', '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 'prostitution_integ_gasstation', '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 'prostitution_integ_gasstation', 'condom_dispenser'
+		end
+	end
+end
+
+! [x] First check over
+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 'prostitution_integ_gasstation', 'restroom'
+
+	gs 'prostitution_integ_functions', 'cocaine'
+	dynamic $tampon
+	dynamic $quickwash
+	dynamic $basin
+	dynamic $publicpan
+end
+
+! [x]: First check over
+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 'prostitution_integ_gasstation', 'restroom'
+
+	if dur > 0 and narkday ! daystart:
+		act 'Do a line of cocaine (0:05)':
+			*clr & cla
+			menu_off = 1
+			narkday = daystart
+			gs 'drugs', 'cocaine'
+			minut += 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="mod/wlife/images/player/cocaine.jpg"></center>'
+			'You snort some cocaine, feeling dizzy for just a moment. After that you feel fantastic, horny and full of energy.'
+
+			act 'Continue': gt $loc, $loc_arg
+		end
+	end
+	
+	dynamic $tampon
+	dynamic $quickwash
+	dynamic $basin
+	dynamic $publicpan
+end
+
+! [x] First check over
+! NOTE: The functions relating to Tomas are removed for now, the attendant doesn't make seses at the moment. Not really integral to the WLife story, so could be 
+! scavenged and used later if needed.
+
+
+!!------ Prostitution ------
+
+! [x] First check over
+! NOTE: The first function - work - is location dependent, so this needs to be left here, and every location will need a similar one.
+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 'prostitution_integ_functions', 'parameters'
+
+	if $prostitute_names['street'] = '':
+		'If you want, you can tell your clients a different name.'
+
+		$prostitute_names['street'] = input("What name do you want to tell your clients? (Leave blank for <<$pcs_nickname>>)")
+		if $prostitute_names['street'] = '': $prostitute_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 prostitute['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 prostitute['cum_dressed'] = 1: '<br>You have visible cum stains on you. Most clients won''t like that and will offer less money.'
+
+	if prostitute['earnings_day'] > 0: 'You have earned <<prostitute[''earnings_day'']>> <b>₽</b> today.'+iif(prostitute['payment_method'] = 0, ' Your share is <<prostitute[''earnings_day''] * prostitute[''share_player''] / 100>> <b>₽</b>'+iif(prostitute['debt_amount'] > 0, ', but your pimp will keep <<prostitute[''earnings_day''] * prostitute[''debt_payment_percent''] / 100>> <b>₽</b> to pay down your debt.', '.'), '')
+
+	if prostitute['payment_method'] = 0: gs 'prostitution_integ_gasstation', 'event_check'
+
+	act 'Stop working': gt 'prostitution_integ_gasstation', 'outside'
+
+	gs 'willpower', 'prostitution', 'self', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'Look for a client (0:30 and <<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'self'
+			gt 'prostitution_integ_negotiation', 'look_client', $loc
+		end
+	elseif will_cost > pcs_willpwr:
+		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>'
+	end
+
+	if salfetka > 0 and (prostitute['cum_dressed'] = 1 or prostitute['cum_undressed'] = 1 or prostitute['cum_vaginal_mod'] = 1 or prostitute['cum_anal_mod'] = 1):
+		act 'Remove the cum from your body (0:02)':
+			minut += 2
+			salfetka -= 1
+			cumspclnt = 20
+			gs 'cum_cleanup'
+			gt 'prostitution_integ_gasstation', 'work'
+		end
+	elseif salfetka = 0:
+		'<br>You don''t have any tissues with you to remove cum from your body.'
+	end
+
+	!! NOTE:  This is where the working/negotiationg part begins in the original file. Moved to a separate file.
+	!! This call just displays the explanation and the "config" of the negotiations on the page.
+	gs 'prostitution_integ_negotiation', 'general_description'
+
+end 
+
+
+if $ARGS[0] = 'event_check':
+!! TODO: Originally this was checking for story events. Now it should check for police raid or just check, attack, or anything else. 
+!! If this is used in the city, then the initial pimp visits should be checked here too.
+!!		gt 'mod_wlife_story', 'police'
+end
+
+
+! [x] First check over
+if $ARGS[0] = 'bus_end':
+	minut += 35
+	money -= 75
+!!NOTE: Removed the checking for acceptance
+	prostitute['earnings_day'] = 0
+	prostitute['customer_day'] = 0
+	gt 'city_industrial_train', 'outside'
+end
+
+
+--- prostitution_integ_gasstation ---------------------------------

locations/prostitution_integ_negotiation.qsrc

@@ -0,0 +1,798 @@
+# prostitution_integ_negotiation
+
+if $ARGS[0] = 'general_description':
+
+	if prostitute['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(prostitute['scene_reduction'] = 0, 'up to <a href="exec: prostitute[''scene_reduction''] = 1 & gt '+$ARGS[1]+', ''work''">three</a>', 'only <a href="exec: prostitute[''scene_reduction''] = 0 & gt '+$ARGS[1]+', ''work''">one</a>')+' small scene'+iif(prostitute['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(prostitute['skip_end'] = 0, '<a href="exec: prostitute[''skip_end''] = 1 & gt '+$ARGS[1]+', ''work''">shown</a>.', '<a href="exec: prostitute[''skip_end''] = 0 & gt '+$ARGS[1]+', ''work''">skipped</a>.')
+		' - Start scene will be '+iif(prostitute['skip_start'] = 0, '<a href="exec: prostitute[''skip_start''] = 1 & gt '+$ARGS[1]+', ''work''">shown</a>.', '<a href="exec: prostitute[''skip_start''] = 0 & gt '+$ARGS[1]+', ''work''">skipped</a>.')
+		*nl
+
+		if prezikcount = 0 and (prostitute_auto['norm_bj_condom'] + prostitute_auto['norm_vag_condom'] + prostitute_auto['norm_anal_condom'] + prostitute_auto['reg_vag_condom'] + prostitute_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(prostitute_auto['normal'] = 1, '<a href="exec: prostitute_auto[''normal''] = 0 & gt '+$ARGS[1]+', ''work''">Automatic</a>', '<a href="exec: prostitute_auto[''normal''] = 1 & gt '+$ARGS[1]+', ''work''">Manual</a>')
+		if prostitute_auto['normal'] = 1:
+			*nl
+			'Which acts do you automatically accept/decline?'
+			'Blowjob: '+iif(prostitute_auto['norm_bj'] = 1, '<a href="exec: prostitute_auto[''norm_bj''] = 0 & gt '+$ARGS[1]+', ''work''">Accept</a>', '<a href="exec: prostitute_auto[''norm_bj''] = 1 & gt '+$ARGS[1]+', ''work''">Decline</a>')
+			'Vaginal: '+iif(prostitute_auto['norm_vag'] = 1, '<a href="exec: prostitute_auto[''norm_vag''] = 0 & gt '+$ARGS[1]+', ''work''">Accept</a>', '<a href="exec: prostitute_auto[''norm_vag''] = 1 & gt '+$ARGS[1]+', ''work''">Decline</a>')
+			'Anal: '+iif(prostitute_auto['norm_anal'] = 1, '<a href="exec: prostitute_auto[''norm_anal''] = 0 & gt '+$ARGS[1]+', ''work''">Accept</a>', '<a href="exec: prostitute_auto[''norm_anal''] = 1 & gt '+$ARGS[1]+', ''work''">Decline</a>')
+
+			if prostitute_auto['norm_bj'] + prostitute_auto['norm_vag'] + prostitute_auto['norm_anal'] > 0:
+				*nl
+				'Do you insist on a condom?'
+				if prostitute_auto['norm_bj'] = 1: '- Blowjob: '+iif(prostitute_auto['norm_bj_condom'] = 1, '<a href="exec: prostitute_auto[''norm_bj_condom''] = 0 & gt '+$ARGS[1]+', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_bj_condom''] = 1 & gt '+$ARGS[1]+', ''work''">No</a>')
+				if prostitute_auto['norm_vag'] = 1: '- Vaginal: '+iif(prostitute_auto['norm_vag_condom'] = 1, '<a href="exec: prostitute_auto[''norm_vag_condom''] = 0 & gt '+$ARGS[1]+', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_vag_condom''] = 1 & gt '+$ARGS[1]+', ''work''">No</a>')
+				if prostitute_auto['norm_anal'] = 1: '- Anal: '+iif(prostitute_auto['norm_anal_condom'] = 1, '<a href="exec: prostitute_auto[''norm_anal_condom''] = 0 & gt '+$ARGS[1]+', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_anal_condom''] = 1 & gt '+$ARGS[1]+', ''work''">No</a>')
+
+				if prostitute_auto['norm_bj_condom'] = 0 or prostitute_auto['norm_vag_condom'] = 0 or prostitute_auto['norm_anal_condom'] = 0:
+					*nl
+					'Do you allow him to cum inside you?'
+					if prostitute_auto['norm_bj_condom'] = 0 and prostitute_auto['norm_bj'] = 1: '- Blowjob: '+iif(prostitute_auto['norm_bj_creampie'] = 1, '<a href="exec: prostitute_auto[''norm_bj_creampie''] = 0 & gt '+$ARGS[1]+', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_bj_creampie''] = 1 & gt '+$ARGS[1]+', ''work''">No</a>')
+					if prostitute_auto['norm_vag_condom'] = 0 and prostitute_auto['norm_vag'] = 1: '- Vaginal: '+iif(prostitute_auto['norm_vag_creampie'] = 1, '<a href="exec: prostitute_auto[''norm_vag_creampie''] = 0 & gt '+$ARGS[1]+', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_vag_creampie''] = 1 & gt '+$ARGS[1]+', ''work''">No</a>')
+					if prostitute_auto['norm_anal_condom'] = 0 and prostitute_auto['norm_anal'] = 1: '- Anal: '+iif(prostitute_auto['norm_anal_creampie'] = 1, '<a href="exec: prostitute_auto[''norm_anal_creampie''] = 0 & gt '+$ARGS[1]+', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_anal_creampie''] = 1 & gt '+$ARGS[1]+', ''work''">No</a>')
+				end
+			end
+		end
+		'</td><td></td><td valign="top"><b>Behavior towards regular clients:</b>'
+		'Negotiation: '+iif(prostitute_auto['regular'] = 1, '<a href="exec: prostitute_auto[''regular''] = 0 & gt '+$ARGS[1]+', ''work''">Automatic</a>', '<a href="exec: prostitute_auto[''regular''] = 1 & gt '+$ARGS[1]+', ''work''">Manual</a>')
+		if prostitute_auto['regular'] = 1:
+			*nl
+			'Do you insist on a condom?'
+			'- Vaginal: '+iif(prostitute_auto['reg_vag_condom'] = 1, '<a href="exec: prostitute_auto[''reg_vag_condom''] = 0 & gt '+$ARGS[1]+', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_vag_condom''] = 1 & gt '+$ARGS[1]+', ''work''">No</a>')
+			'- Anal: '+iif(prostitute_auto['reg_anal_condom'] = 1, '<a href="exec: prostitute_auto[''reg_anal_condom''] = 0 & gt '+$ARGS[1]+', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_anal_condom''] = 1 & gt '+$ARGS[1]+', ''work''">No</a>')
+			*nl
+			if prostitute_auto['reg_anal_condom'] = 0 or prostitute_auto['reg_vag_condom'] = 0:
+				'Do you allow him to cum inside you?'
+				if prostitute_auto['reg_vag_condom'] = 0: '- Vaginal: '+iif(prostitute_auto['reg_vag_creampie'] = 1, '<a href="exec: prostitute_auto[''reg_vag_creampie''] = 0 & gt '+$ARGS[1]+', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_vag_creampie''] = 1 & gt '+$ARGS[1]+', ''work''">No</a>')
+				if prostitute_auto['reg_anal_condom'] = 0: '- Anal: '+iif(prostitute_auto['reg_anal_creampie'] = 1, '<a href="exec: prostitute_auto[''reg_anal_creampie''] = 0 & gt '+$ARGS[1]+', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_anal_creampie''] = 1 & gt '+$ARGS[1]+', ''work''">No</a>')
+			end
+		end
+		'</td></tr></table>'
+	end
+end
+
+
+
+! [x] First check over
+if $ARGS[0] = 'look_client':
+	*clr & cla
+	menu_off = 1
+	minut += 30
+	gs 'stat'
+
+	if pcs_inhib < 60: inhib_exp += rand(1,2)
+
+	if prostitute['regular'] = 1:
+		gt ''prostitution_integ_negotiation', 'client_regular'', 'look_client'
+	elseif prostitute['client_chance'] > 100 and prostitute['regular'] = 0:
+		prostitute['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 prostitute['rough'] = 0:
+			if prostitute['propose'] = 0 and prostitute_auto['normal'] = 0:
+				act 'Let him decide': gt 'prostitution_integ_negotiation', 'negotiation_start'
+			elseif prostitute_auto['normal'] = 1:
+				act 'Negotiate with him': gt 'prostitution_integ_negotiation', '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 prostitute['enema'] = 0: iif(prostitute['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(prostitute['dirty_anal_mod'] = 0, 'less', 'more')+' for it.'
+				if mesec > 0: iif(prostitute['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': $prostitute['client_scene'] = 'Blowjob' & gt 'prostitution_integ_negotiation', 'negotiation_start'
+					act 'Your pussy': $prostitute['client_scene'] = 'Vaginal' & gt 'prostitution_integ_negotiation', 'negotiation_start'
+					act 'Your ass': $prostitute['client_scene'] = 'Anal' & gt 'prostitution_integ_negotiation', 'negotiation_start'
+				else
+					act 'A blowjob':
+						if $prostitute['client_scene'] ! 'Blowjob': prostitute['propose'] = 2
+						gt 'prostitution_integ_negotiation', 'negotiation_start'
+					end
+					act 'Your pussy':
+						if $prostitute['client_scene'] ! 'Vaginal': prostitute['propose'] = 2
+						gt 'prostitution_integ_negotiation', 'negotiation_start'
+					end
+					act 'Your ass':
+						if $prostitute['client_scene'] ! 'Anal': prostitute['propose'] = 2
+						gt 'prostitution_integ_negotiation', 'negotiation_start'
+					end
+				end
+			end
+		else
+			gt 'prostitution_integ_negotiation', 'rough'
+		end
+	else
+		prostitute['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 $ARGS[1], 'work'
+	end
+end
+
+!!------ Regular Client ------
+
+! [x] First check over
+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 <<$prostitute_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($prostitute['client_scene'] = 'Vaginal', 'never asked to fuck your ass and always preferred your pussy.', 'always preferred to fuck your ass.')
+			*nl
+
+			if prezikcount > 0 or (prezikcount = 0 and prostitute['std_mod'] = 0):
+				'You tell him that...'
+
+				gs 'willpower', 'prostitution', 'resist', 'easy'
+				if will_cost <= pcs_willpwr:
+					act '... you''re not in the mood (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'resist'
+						gt 'prostitution_integ_negotiation', '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($prostitute['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($prostitute['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 prostitute['std_mod'] = 0 and prostitute_auto['regular'] = 0:
+						act 'Always use a condom':
+							cla & *nl
+							'... always use a condom.'+iif( = 0, ' But you don''t have any with you', '')
+
+							act 'Don''t make an exception':
+								cla & *nl
+								$prostitute_client_condom = 'Yes'
+								$prostitute_client_cumshot = 'Outside or Condom'
+								gs 'prostitution_integ_functions', 'payment', 'condom_yes', 'inside_no'
+
+								if prezikcount > 0:
+									'You pull out a condom out of your '+iif(bag = 1, 'purse', 'pocket')+' and he nods. "No problem <<$prostitute_names[''street'']>>, better safe than sorry."'
+
+									act 'Continue': gt 'prostitution_integ_negotiation', 'client_regular_success'
+								else
+									gs 'stat'
+									'"I know you really like to fuck my '+iif($prostitute['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 'prostitution_integ_negotiation', '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 <<$prostitute_names[''street'']>>, you''re always worth waiting for."'
+
+										act 'Leave': gt $ARGS[1], 'work'
+									end
+								end
+							end
+
+							act 'Make an exception':
+								cla & *nl
+								$prostitute_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
+									$prostitute_client_cumshot = 'Outside'
+									gs 'prostitution_integ_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 'prostitution_integ_negotiation', 'client_regular_success'
+								end
+
+								act 'Can cum inside you':
+									cla & *nl
+									$prostitute_client_cumshot = 'Inside'
+									gs 'prostitution_integ_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, <<$prostitute_names[''street'']>>."'
+
+									act 'Continue': gt 'prostitution_integ_negotiation', 'client_regular_success'
+								end
+							end
+						end
+
+						act 'Never use a condom':
+							cla & *nl
+							$prostitute_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, <<$prostitute_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
+								$prostitute_client_cumshot = 'Outside'
+								gs 'prostitution_integ_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 'prostitution_integ_negotiation', 'client_regular_success'
+							end
+
+							act 'Can cum inside you':
+								cla & *nl
+								$prostitute_client_cumshot = 'Inside'
+								gs 'prostitution_integ_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, <<$prostitute_names[''street'']>>."'
+
+								act 'Continue': gt 'prostitution_integ_negotiation', 'client_regular_success'
+							end
+						end
+					elseif prostitute['std_mod'] = 0 and prostitute_auto['regular'] = 1:
+						if (prostitute_auto['reg_vag_condom'] = 1 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['reg_anal_condom'] = 1 and $prostitute['client_scene'] = 'Anal'):
+							$prostitute_client_condom = 'Yes'
+							$prostitute_client_cumshot = 'Outside or Condom'
+							if prezikcount = 0: prezikcount += 1 & money -= 100
+						else
+							$prostitute_client_condom = 'No'
+							if (prostitute_auto['reg_vag_creampie'] = 1 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['reg_anal_creampie'] = 1 and $prostitute['client_scene'] = 'Anal'):
+								$prostitute_client_cumshot = 'Inside'
+							else
+								$prostitute_client_cumshot = 'Outside'
+							end
+						end
+
+						gs 'prostitution_integ_functions', 'payment', iif($prostitute_client_condom = 'Yes', 'condom_yes', 'condom_no'), iif($prostitute_client_cumshot = 'Inside', 'inside_yes', 'inside_no')
+						gt 'prostitution_integ_negotiation', 'client_regular_success'
+					else
+						cla & *nl
+						$prostitute_client_condom = 'Yes'
+						$prostitute_client_cumshot = 'Outside or Condom'
+						gs 'prostitution_integ_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 'prostitution_integ_negotiation', '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 'prostitution_integ_negotiation', 'client_regular_fail'
+			end
+		end
+	end
+end
+
+! [x] First check over
+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($prostitute['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 <<$prostitute_names[''street'']>>, it''s fine, you''re always worth the wait."'
+	*nl
+	'"Thanks," you say and step away from the car.'+iif(prostitute['std_mod'] = 1 and prezikcount = 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 $ARGS[1], 'work'
+end
+
+! [x] First check over
+if $ARGS[0] = 'client_regular_success':
+	CLOSE ALL
+	if sound = 0:PLAY 'sound/highway.mp3',5
+
+	*clr & cla
+	minut += 5
+	prostitute['regular_timer'] = daystart
+	gs 'prostitution_integ_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 prostitute['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 <<prostitute[''payment'']>> <b>₽</b>.'+iif(prostitute['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
+
+				prostitute['earnings_day'] += prostitute['payment']
+				if prostitute['payment_method'] = 1: money += prostitute['payment']
+				prostitute['payment'] = 0
+				gs 'stat'
+
+				act 'Continue': gt 'prostitution_integ_clientsex', '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 <<prostitute[''payment'']>> <b>₽</b>.'+iif(prostitute['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.'
+
+			prostitute['earnings_day'] += prostitute['payment']
+			if prostitute['payment_method'] = 1: money += prostitute['payment']
+			prostitute['payment'] = 0
+			gs 'stat'
+
+			if prostitute['skip_start'] = 1:
+				gt 'prostitution_integ_clientsex', 'regular_start'
+			else
+				act 'Get undressed': gt 'prostitution_integ_clientsex', 'regular_start'
+			end
+		end
+	end
+end
+
+!!------ Normal Client ------
+
+! [x] First check over
+if $ARGS[0] = 'negotiation_start':
+	*clr & cla
+	minut += 2
+	gs 'stat'
+
+	if prostitute_auto['normal'] = 1: gt 'prostitution_integ_negotiation', 'negotiation_automatic'
+
+	'<center><video autoplay loop src="mod/wlife/images/prostitution/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
+
+	iif(prostitute['propose'] = 0, 'You lean into his car and chat with him about the price and what he likes and dislikes.' , iif(prostitute['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(prostitute['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: <<$prostitute[''client_scene'']>>'
+	gs 'prostitution_integ_functions', 'payment', 'condom_yes', 'not_discussed'
+	'Payment with condom: <<prostitute[''payment'']>> <b>₽</b>'
+	if prostitute['std_mod'] = 0:
+		gs 'prostitution_integ_functions', 'payment', 'condom_no', 'not_discussed'
+		'Payment without condom: <<prostitute[''payment'']>> <b>₽</b>'
+	end
+
+	if prostitute['propose'] = 0:
+		*nl
+		if prostitute['enema'] = 0: iif(prostitute['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(prostitute['dirty_anal_mod'] = 0, 'less', 'more')+' for it.'
+		if mesec > 0: iif(prostitute['mesec_mod'] = 0, 'He doesn''t like', 'He tells you that he likes')+' to fuck girls that have their period.'
+	end
+
+	if prezikcount > 0 and (prostitute['std_mod'] = 1 or prostitute['propose'] = 2):
+		gs 'willpower', 'prostitution', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Decline and move away (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				gt $ARGS[1], '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 prostitute['propose'] = 0 and prostitute['std_mod'] = 0:
+		gs 'willpower', 'prostitution', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Decline and move away (<<will_cost>> Willpower)':
+				gs 'willpower', 'prostitution', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gt $ARGS[1], '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 will_cost <= pcs_willpwr:
+			if rand(1,10) < 9:
+				if $prostitute['client_scene'] ! 'Blowjob': act 'Decline and offer him a blowjob instead (<<will_cost>> Willpower)': prostitute['client_satisfaction'] -= 10 & gs 'willpower', 'pay', 'resist' & $prostitute['client_scene'] = 'Blowjob' & prostitute['propose'] = 1 & gt 'prostitution_integ_negotiation', 'negotiation_start'
+				if $prostitute['client_scene'] ! 'Anal': act 'Decline and offer him your ass instead (<<will_cost>> Willpower)': prostitute['client_satisfaction'] -= 10 & gs 'willpower', 'pay', 'resist' & $prostitute['client_scene'] = 'Anal' & prostitute['propose'] = 1 & gt 'prostitution_integ_negotiation', 'negotiation_start'
+				if $prostitute['client_scene'] ! 'Vaginal': act 'Decline and offer him your pussy instead (<<will_cost>> Willpower)': prostitute['client_satisfaction'] -= 10 & gs 'willpower', 'pay', 'resist' & $prostitute['client_scene'] = 'Vaginal' & prostitute['propose'] = 1 & gt 'prostitution_integ_negotiation', 'negotiation_start'
+			else
+				if $prostitute['client_scene'] ! 'Blowjob': act 'Decline and offer him a blowjob instead (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'prostitution_integ_negotiation', 'negotiation_fail'
+				if $prostitute['client_scene'] ! 'Anal': act 'Decline and offer him your ass instead (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'prostitution_integ_negotiation', 'negotiation_fail'
+				if $prostitute['client_scene'] ! 'Vaginal': act 'Decline and offer him your pussy instead (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'prostitution_integ_negotiation', 'negotiation_fail'
+			end
+		else
+			if $prostitute['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 $prostitute['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 $prostitute['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 prezikcount > 0 and prostitute['std_mod'] = 0:
+		act 'Insist on a condom': $prostitute_client_condom = 'Yes' & gt 'prostitution_integ_negotiation', 'negotiation_condom_yes'
+	elseif prezikcount > 0 and prostitute['std_mod'] = 1:
+		act 'Accept and use a condom': $prostitute_client_condom = 'Yes' & gt 'prostitution_integ_negotiation', 'negotiation_condom_yes'
+	end
+
+	if prostitute['std_mod'] = 0:
+		act 'Don''t insist on a condom': $prostitute_client_condom = 'No' & gt 'prostitution_integ_negotiation', 'negotiation_condom_no'
+	elseif prezikcount = 0 and prostitute['std_mod'] = 1:
+		act 'Tell him you don''t have a condom':
+			if rand(1,10) < 9:
+				gt 'prostitution_integ_negotiation', 'negotiation_fail'
+			else
+				cla & *nl
+				$prostitute['client_scene'] = 'Blowjob'
+				'After a moment he reluctantly accepts doing it without a condom'+iif($prostitute['client_scene'] = 'Blowjob', '.', ', but he changed his mind and doesn''t want more than a blowjob.')
+
+				*nl
+				'Sex: <<$prostitute[''client_scene'']>>'
+				gs 'prostitution_integ_functions', 'payment', 'condom_no', 'not_discussed'
+				'New payment: <<prostitute[''payment'']>> <b>₽</b>'
+
+				gs 'prostitution_integ_functions', 'will_unprotected', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Decline and move away (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'resist'
+						gt $ARGS[1], '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': $prostitute_client_condom = 'No' & gt 'prostitution_integ_negotiation', 'negotiation_condom_no'
+			end
+		end
+	end
+end
+
+! [x] First check over
+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 'prostitution_integ_functions', 'payment', 'condom_yes', 'Outside or Condom'
+
+	*nl
+	'You are negotiating with your client:'
+	'Sex: <<$prostitute[''client_scene'']>>'
+	'Payment: <<prostitute[''payment'']>> <b>₽</b>'
+	'Condom: <<$prostitute_client_condom>>'
+	*nl
+
+	if prostitute['std_mod'] = 1 or rand(1,10) < 7 or ($prostitute['client_scene'] = 'Vaginal' and mesec > 0 and prostitute['mesec_mod'] = 0) or ($prostitute['client_scene'] = 'Anal' and prostitute['enema'] = 0 and prostitute['dirty_anal_mod'] = 0):
+		if prostitute['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':
+			$prostitute_client_cumshot = 'Outside or Condom'
+			gs 'prostitution_integ_functions', 'payment', 'condom_yes', 'Outside or Condom'
+			gt 'prostitution_integ_negotiation', 'negotiation_success'
+		end
+	else
+		gs 'prostitution_integ_functions', 'payment', 'condom_no', 'not_discussed'
+		'He asks you to forgo the condom. He would pay at least <<prostitute[''payment'']>> <b>₽</b> and even more if you '+iif($prostitute['client_scene'] = 'Blowjob', 'swallow his cum.', 'let him cum inside you.')
+		gs 'prostitution_integ_functions', 'will_unprotected', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Decline (<<will_cost>> Willpower)':
+				cla & *nl
+				gs 'willpower', 'pay', 'resist'
+				if rand(1,10) < 7:
+					'He finally accepts.'
+					$prostitute_client_cumshot = 'Outside or Condom'
+					prostitute['client_satisfaction'] -= 10
+					gs 'prostitution_integ_functions', 'payment', 'condom_yes', 'inside_no'
+					act 'Get into his car': gt 'prostitution_integ_negotiation', 'negotiation_success'
+				else
+					prostitute['fail_condom'] = 1
+					gt 'prostitution_integ_negotiation', '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': $prostitute_client_condom = 'No' & gt 'prostitution_integ_negotiation', 'negotiation_condom_no'
+	end
+end
+
+! [x] First check over
+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 'prostitution_integ_functions', 'payment', 'condom_no', 'not_discussed'
+
+	*nl
+	'You are negotiating with your client:'
+	'Sex: <<$prostitute[''client_scene'']>>'
+	'Payment: <<prostitute[''payment'']>> <b>₽</b>'
+	'Condom: <<$prostitute_client_condom>>'
+	*nl
+
+	gs 'prostitution_integ_functions', 'payment', 'condom_no', 'inside_yes'
+	'He asks you if you would '+iif($prostitute['client_scene'] = 'Blowjob', 'swallow his cum.', 'let him cum inside you.')+' He offers to pay you <<prostitute[''payment'']>> <b>₽</b> if you do.'
+
+	if $prostitute['client_scene'] = 'Anal':
+		gs 'willpower', 'cum_inside_anal', 'resist'
+	elseif $prostitute['client_scene'] = 'Blowjob':
+		gs 'willpower', 'swallow', 'resist'
+	else
+		gs 'willpower', 'cum_inside', 'resist'
+	end
+	if will_cost <= pcs_willpwr:
+		act 'Decline (<<will_cost>> Willpower)':
+			cla & *nl
+			gs 'willpower', 'pay', 'resist'
+			if rand(1,10) < 10 or prostitute['client_creampie'] = 1:
+				'He accepts your decision.'
+				$prostitute_client_cumshot = 'Outside'
+				prostitute['client_satisfaction'] -= 10
+				gs 'prostitution_integ_functions', 'payment', 'condom_no', 'inside_no'
+				act 'Get into his car': gt 'prostitution_integ_negotiation', 'negotiation_success'
+			else
+				prostitute['fail_creampie'] = 1
+				gt 'prostitution_integ_negotiation', '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':
+		$prostitute_client_cumshot = 'Inside'
+		gs 'prostitution_integ_functions', 'payment', 'condom_no', 'inside_yes'
+		gt 'prostitution_integ_negotiation', 'negotiation_success'
+	end
+end
+
+! [x] First check over
+if $ARGS[0] = 'negotiation_automatic':
+	prostitute_auto['negotiation'] = 1
+	gs 'willpower', 'prostitution', 'resist'
+	if ((prostitute_auto['norm_bj'] = 0 and $prostitute['client_scene'] = 'Blowjob') or (prostitute_auto['norm_vag'] = 0 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['norm_anal'] = 0 and $prostitute['client_scene'] = 'Anal')) and will_cost <= pcs_willpwr:
+		gs 'willpower', 'pay', 'resist'
+		gt 'prostitution_integ_negotiation', 'negotiation_fail'
+	else
+		if ((prostitute_auto['norm_bj'] = 0 and $prostitute['client_scene'] = 'Blowjob') or (prostitute_auto['norm_vag'] = 0 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['norm_anal'] = 0 and $prostitute['client_scene'] = 'Anal')): prostitute_auto['willpower'] = 1
+
+		if ((prostitute_auto['norm_bj_condom'] = 1 and $prostitute['client_scene'] = 'Blowjob') or (prostitute_auto['norm_vag_condom'] = 1 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['norm_anal_condom'] = 1 and $prostitute['client_scene'] = 'Anal')) and prezikcount > 0:
+			gs 'prostitution_integ_functions', 'will_unprotected', 'resist'
+			if prostitute['std_mod'] = 1 or rand(1,10) < 7 or ($prostitute['client_scene'] = 'Vaginal' and mesec > 0 and prostitute['mesec_mod'] = 0) or ($prostitute['client_scene'] = 'Anal' and prostitute['enema'] = 0 and prostitute['dirty_anal_mod'] = 0):
+				$prostitute_client_condom = 'Yes'
+				$prostitute_client_cumshot = 'Outside or Condom'
+				gs 'prostitution_integ_functions', 'payment', 'condom_yes', 'inside_no'
+			elseif will_cost <= pcs_willpwr:
+				$prostitute_client_condom = 'Yes'
+				$prostitute_client_cumshot = 'Outside or Condom'
+				prostitute['client_satisfaction'] -= 10
+				gs 'willpower', 'pay', 'resist'
+				gs 'prostitution_integ_functions', 'payment', 'condom_yes', 'inside_no'
+				if rand(1,10) < 4:
+					prostitute['fail_condom'] = 1
+					gt 'prostitution_integ_negotiation', 'negotiation_fail'
+				end
+			else
+				if $prostitute['client_scene'] = 'Anal':
+					gs 'willpower', 'cum_inside_anal', 'resist'
+				elseif $prostitute['client_scene'] = 'Blowjob':
+					gs 'willpower', 'swallow', 'resist'
+				else
+					gs 'willpower', 'cum_inside', 'resist'
+				end
+				if will_cost <= pcs_willpwr:
+					$prostitute_client_condom = 'No'
+					$prostitute_client_cumshot = 'Outside'
+					prostitute['client_satisfaction'] -= 10
+					gs 'willpower', 'pay', 'resist'
+					gs 'prostitution_integ_functions', 'payment', 'condom_no', 'inside_no'
+					if rand(1,10) = 10 and prostitute['client_creampie'] = 0: gt 'prostitution_integ_negotiation', 'negotiation_fail'
+				else
+					prostitute_auto['willpower'] = 1
+					$prostitute_client_condom = 'No'
+					$prostitute_client_cumshot = 'Inside'
+					gs 'prostitution_integ_functions', 'payment', 'condom_no', 'inside_yes'
+				end
+			end
+			gt 'prostitution_integ_negotiation', 'negotiation_success'
+		elseif rand(1,10) < 9 and prostitute['std_mod'] = 1:
+			gt 'prostitution_integ_negotiation', 'negotiation_fail'
+		else
+			$prostitute_client_condom = 'No'
+			gs 'prostitution_integ_functions', 'will_unprotected', 'resist'
+			if ((prostitute_auto['norm_bj_creampie'] = 1 and $prostitute['client_scene'] = 'Blowjob') or (prostitute_auto['norm_vag_creampie'] = 1 and $prostitute['client_scene'] = 'Vaginal') or (prostitute_auto['norm_anal_creampie'] = 1 and $prostitute['client_scene'] = 'Anal')):
+				$prostitute_client_cumshot = 'Inside'
+				gs 'prostitution_integ_functions', 'payment', 'condom_no', 'inside_yes'
+			elseif will_cost <= pcs_willpwr:
+				$prostitute_client_cumshot = 'Outside'
+				prostitute['client_satisfaction'] -= 10
+				gs 'willpower', 'pay', 'resist'
+				gs 'prostitution_integ_functions', 'payment', 'condom_no', 'inside_no'
+				if rand(1,10) = 10 and prostitute['client_creampie'] = 0:
+					prostitute['fail_creampie'] = 1
+					gt 'prostitution_integ_negotiation', 'negotiation_fail'
+				end
+			else
+				prostitute_auto['willpower'] = 1
+				$prostitute_client_cumshot = 'Inside'
+				gs 'prostitution_integ_functions', 'payment', 'condom_no', 'inside_yes'
+			end
+			gt 'prostitution_integ_negotiation', 'negotiation_success'
+		end
+	end
+end
+
+! [x] First check over
+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':
+		prostitute['fail_pay'] = 0
+		prostitute['client_satisfaction'] = 0
+		gt $ARGS[1], 'work'
+	end
+	if prostitute['fail_condom'] = 1:
+		prostitute['fail_condom'] = 0
+		act 'Change your mind and do it without a condom': gt 'prostitution_integ_negotiation', 'negotiation_condom_no'
+	elseif prostitute['fail_creampie'] = 1:
+		prostitute['fail_creampie'] = 0
+		act 'Change your mind and allow him to cum inside you':
+			$prostitute_client_cumshot = 'Inside'
+			gs 'prostitution_integ_functions', 'payment', 'condom_no', 'inside_yes'
+			gt 'prostitution_integ_negotiation', 'negotiation_success'
+		end
+	elseif prostitute['fail_pay'] = 1:
+		act 'Change your mind and accept his offer':
+			$prostitute_client_cumshot = 'Inside'
+			gs 'prostitution_integ_functions', 'payment', 'condom_no', 'inside_yes'
+			gt 'prostitution_integ_negotiation', 'negotiation_success'
+		end
+	end
+end
+
+! [x] First check over
+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 prostitute_auto['negotiation'] = 1:
+		'You have negotiated the following'+iif(prostitute_auto['willpower'] = 1, ', but you didn''t have enough willpower to resist all of his demands:', ':')
+		'Sex: <<$prostitute[''client_scene'']>>'
+		'Payment: <<prostitute[''payment'']>> <b>₽</b>'
+		'Condom: <<$prostitute_client_condom>>'
+		'Cumshot: '+iif($prostitute_client_cumshot = 'Outside or Condom', 'Outside', '<<$prostitute_client_cumshot>>')
+		prostitute_auto['willpower'] = 0
+		prostitute_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 $prostitute_client_condom = 'No': prostitute_stat['unprotected'] += 1
+
+	if prostitute['client_satisfaction'] < 0 and prostitute['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 'prostitution_integ_negotiation', 'money'
+		gs 'prostitution_integ_functions', 'will_acceptance', 'force'
+		will_cost = (will_cost * iif(prostitute['client_satisfaction'] = -10, 20, 40)) / 100
+		if will_cost < 3: will_cost = 3
+		if will_cost <= pcs_willpwr:
+			act 'Ask for more money (<<will_cost>> Willpower)':
+				cla & *nl
+				gs 'willpower', 'pay', 'force'
+				if rand(1,10) = 10:
+					prostitute['fail_pay'] = 1
+					gt 'prostitution_integ_negotiation', 'negotiation_fail'
+				end
+				prostitute['payment'] = prostitute['payment_backup']
+				gs 'stat'
+				'He grudgingly accepts and agrees to pay you <<prostitute[''payment'']>> <b>₽</b> instead.'
+
+				act 'Continue': gt 'prostitution_integ_negotiation', '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
+		prostitute['fail_pay'] = 0
+		'When you arrive you have only one thing left to do...'
+		if prostitute['skip_start'] = 1:
+			gt 'prostitution_integ_negotiation', 'money'
+		else
+			act '... ask for your money': gt 'prostitution_integ_negotiation', 'money'
+		end
+	end
+end
+
+! [x] First check over
+if $ARGS[0] = 'money':
+	*clr & cla
+	minut += 2
+	prostitute['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 <<prostitute[''payment'']>> <b>₽</b>.'+iif(prostitute['payment_method'] = 1, '', ' You keep it separated from your own money until you can settle everything with Volya tonight.')
+
+	prostitute['earnings_day'] += prostitute['payment']
+	if prostitute['payment_method'] = 1: money += prostitute['payment']
+	prostitute['payment'] = 0
+	gs 'prostitution_integ_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 prostitute['skip_start'] = 1:
+		gt 'prostitution_integ_clientsex', 'start'
+	else
+		act 'Get to work': gt 'prostitution_integ_clientsex', 'start'
+	end
+end
+
+
+--- prostitution_integ_negotiation ---------------------------------

locations/prostitution_integ_solicitation.qsrc

@@ -1,13 +1,8 @@
 # prostitution_integ_solicitation 
 
-
 if $ARGS[0] = 'chance':
 	gs 'prostitution_integ_solicitation', 'pav_rnd'
-
-
-	if (($loc_arg = '' and ($loc = 'pav_commcenter' or $loc = 'pav_residential' or $loc = 'pav_industrial' or $loc = 'pav_commercial' or $loc = 'pav_market' or $loc = 'liam'))
-    or ($loc_arg = 'start' and ($loc = 'pav_complex' or $loc = 'pav_park'))) and hour > 6 and hour < 23 and prostitute['pav_daily_count'] < prostitute['pav_daily_max'] 
-    and rand(1,1000) < min(prostitute['pav_rnd'], 400):
+	if hour > 6 and hour < 23 and prostitute['pav_daily_count'] < prostitute['pav_daily_max'] and rand(1,1000) < min(prostitute['pav_rnd'], 400):
 		gt 'prostitution_integ_solicitation', 'rng'
 	end
 end