Răsfoiți Sursa

Merge remote-tracking branch 'netuttki/pro_integration'

Kevin_Smarts 1 an în urmă
părinte
comite
161f459db3

+ 5 - 0
glife.qproj

@@ -208,6 +208,11 @@
 		<Location name="NormPR"/>
 		<Location name="blowPR"/>
 		<Location name="AnalPR"/>
+		<Location name="gas_station_gp_117"/>
+		<Location name="prostitution_functions"/>
+		<Location name="prostitution_car_negotiation"/>
+		<Location name="prostitution_car_sex"/>
+		<Location name="prostitution_pavlovsk"/>
 	</Folder>
 	<Folder name="Quests">
 		<Location name="event"/>

+ 16 - 0
locations/carF.qsrc

@@ -26,6 +26,7 @@ $enddrive = {
 	if cardrive = 26:gt 'pav_industrial'
 	if cardrive = 27:gt 'city_redlight', 'start'
 	if cardrive = 28:gt 'city_suburbs', 'start'
+	if cardrive = 29:gt 'gas_station_gp_117', 'outside'
 }
 
 if $ARGS[0] = 'start':
@@ -108,6 +109,7 @@ if $ARGS[0] = 'salon':
 	if cardrive = 26:'Through the windshield, you can see Pavlovsk''s industrial region.'
 	if cardrive = 27:'Through the windshield, you see St. Petersburg''s red light district.'
 	if cardrive = 28:'Through the windshield, you see St. Petersburg''s suburbs.'
+	if cardrive = 29:'Through the windshield, you can see the Gazpromneft gas station on the highway.'
 
 	if prava = 0:'You don''t have a driver''s license.'
 
@@ -314,6 +316,20 @@ if $ARGS[0] = 'other':
 		end
 	end
 
+	if cardrive ! 29 and prostitute['gas_station'] = 1:
+		act 'Go to the gas station on M11':
+			cla
+			benz -= 1
+			teh -= rand(1,3)
+			minut += rand(25-50)
+			if cardrive = 1 or cardrive = 2 or cardrive = 8 or cardrive = 11 or cardrive =4 or cardrive = 5  or cardrive = 10 or cardrive = 28 or cardrive = 18:
+				minut += 10
+			end 
+			cardrive = 29
+			dynamic $enddrive
+		end
+	end
+
 	act 'Drive around the local track (1:00)':
 		cla
 		minut += 60

+ 7 - 0
locations/cikl.qsrc

@@ -1545,5 +1545,12 @@ end
 !! Repertoire quality decay if no practice is done
 if ml_performance['set_lastpracticeday'] ! (daystart-1): repertoire_quality -= 2
 
+
+!!------------- Prostitution - WLife integration related stuff ------------------------------------------------
+
+!! Check if people will start to seek Sveta randomly for services, based on her reputation
+if prostitute['blocked'] = 0: gs 'prostitution_functions', 'set_pav_prost'
+
+
 --- cikl ---------------------------------
 

+ 440 - 0
locations/gas_station_gp_117.qsrc

@@ -0,0 +1,440 @@
+# gas_station_gp_117
+
+!! 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 
+!! The Gazpromneft 117 gas station on the M11 a bit north-east of Pavlovsk 
+
+$loc = 'gas_station_gp_117'
+$locM = 'gas_station_gp_117'
+$menu_loc = 'gas_station_gp_117'
+
+! [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 'gas_station_gp_117', '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="images/locations/highway/gas_station_gp_117/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 car > 0 and cardrive = 29: gs 'gas_station_gp_117', 'gas'
+	*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.', '.'), '')
+
+	'<br>You can take a bus to the '+iif(money < 75, 'train station', '<a href="exec: gt ''gas_station_gp_117'', ''bus_end''">train station</a>')+' in Pavlovsk. The bus ride and a short walk to the bus station will take and hour and a half 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 'gas_station_gp_117', 'shop'
+	act 'Go to the public restroom': minut += 1 & gt 'gas_station_gp_117', 'restroom'
+	if prostitute['blocked'] = 0: act 'Go to work': gt 'gas_station_gp_117', '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="images/locations/highway/gas_station_gp_117/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 ''gas_station_gp_117'',''tomas''">'+iif(prostitute['tomas'] = 0, 'a plump man', 'Tomas')+'</a>.'
+		'Behind the counter stands '+iif(prostitute['tomas'] = 0, 'a plump man.', 'Tomas.')
+	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 'gas_station_gp_117', '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="images/locations/highway/gas_station_gp_117/food.jpg"></center>'
+		'You enjoy a tasty snack.'
+
+		act 'Continue': gt 'gas_station_gp_117', '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="images/locations/highway/gas_station_gp_117/food.jpg"></center>'
+		'You enjoy a healthy snack.'
+
+		act 'Continue': gt 'gas_station_gp_117', '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="images/locations/highway/gas_station_gp_117/water.jpg"></center>'
+		'You enjoy a drink of water'
+
+		act 'Continue': gt 'gas_station_gp_117', '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="images/locations/highway/gas_station_gp_117/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 ''gas_station_gp_117'',''condom_dispenser''">condom dispenser</a>.'
+	gs 'stat'
+
+	act 'Go back': minut += 1 & gt 'gas_station_gp_117', 'outside'
+
+
+	if money >= 10 and prostitute_status['restroom_chip'] = 0:
+		act 'Enter the female restroom': money -= 10 & minut += 1 & gt 'gas_station_gp_117', 'restroom_female'
+		act 'Enter the male restroom': money -= 10 & minut += 1 & gt 'gas_station_gp_117', '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="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 'gas_station_gp_117', '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="images/locations/highway/gas_station_gp_117/condoms.jpg"></center>'
+	'A condom costs 60 <b>₽</b> and you have <<prezikcount>> condoms.'
+	gs 'stat'
+
+	act 'Go back': minut += 1 & gt 'gas_station_gp_117', '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 'gas_station_gp_117', '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 'gas_station_gp_117', '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 'gas_station_gp_117', '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="images/locations/highway/gas_station_gp_117/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 'gas_station_gp_117', 'restroom'
+
+	gs 'prostitution_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="images/locations/highway/gas_station_gp_117/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 'gas_station_gp_117', '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="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
+
+
+if $ARGS[0] = 'gas':
+	'Your <a href="exec: gs ''carF'', ''start''"><<$car>></a> is parked here.'
+	*nl 
+	'You can buy petrol for your car, the price is 30 <b>₽</b> per liter.'
+	
+	if kanistra < 5:
+		act 'Buy a canister and fill it with 5 liters of gasoline for 150 <b>₽</b>':
+			cla
+			kanistra += 1
+			money -= 150
+			'You buy a canister of gasoline. (It will automatically be put in the trunk of your car)'
+			act 'Disengage from the pump': gt 'gas_station_gp_117', 'outside'
+		end
+	end
+
+	if benz < 50:
+		zprbenz = 50 - benz
+
+		if zprbenz * 30 <= money:
+			act 'Fill the tank with petrol':
+				cla
+				*clr
+				benz = 50
+				zprpay = zprbenz * 30
+				money -= zprpay
+
+				! WD: Uninitialised ~ 'pol'
+				! if pol > 0:'<center><img <<$set_imgh>> src="images/locations/shared/gas/zapr1.jpg"></center>'
+
+				'<center><img <<$set_imgh>> src="images/locations/shared/gas/zapr1.jpg"></center>'
+
+				'You fill the tank and pay <<zprpay>> <b>₽</b>.'
+
+				act 'Disengage from the pump':gt 'gas_station_gp_117', 'outside'
+			end
+		else
+			'You do not have enough money to refuel your car.'
+		end
+	end
+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_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="images/prostitution/car/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 'gas_station_gp_117', 'event_check'
+
+	act 'Stop working': gt 'gas_station_gp_117', '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_car_negotiation', 'look_client'
+		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 'gas_station_gp_117', '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_car_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 += 87
+	money -= 75
+!!NOTE: Removed the checking for acceptance
+	prostitute['earnings_day'] = 0
+	prostitute['customer_day'] = 0
+	gt 'pav_market'
+end
+
+
+--- gas_station_gp_117 ---------------------------------

+ 86 - 32
locations/katja_uni.qsrc

@@ -344,7 +344,7 @@ if $ARGS[0] = 'panty_check':
 	menu_off = 1
 	if katjaQW['pantiesQWstage'] >= 5 and katjaQW['dom'] > -30:
 		if CloSkirtShortness < 3:
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'	
+			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 			'"Why are you wearing '+iif( CloSkirtShortness = 0, 'pants', 'such a long skirt')+'?" Katja asks. "I can''t check to see if you are wearing panties or not,"'
 			'"I am '+iif($pantyworntype = 'none', 'of course not ', '')+'wearing panties," you say.'
 			if $pantyworntype = 'none': 
@@ -361,6 +361,7 @@ if $ARGS[0] = 'panty_check':
 					katjaQW['horny'] -= 10
 					katjaQW['dom'] -= 2
 					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 					'"No. Not now," you tell Katja while you free yourself from her grip. She looks a little shocked, standing there not knowing what to do. You leave her pondering upon her actions.' 
 					act 'Find a place to sit': gt 'uni_lessons1', $ARGS[1]
 				end
@@ -405,6 +406,7 @@ if $ARGS[0] = 'panty_check':
 							gs 'arousal', 'vaginal_finger_give', -2
 							gs 'arousal', 'end'
 							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/double_panty_check.jpg"></center>'
 							'You move one of your hands under Katja''s skirt to find her bare and completely smooth pussy and gently start rubbing her pussy lips. "I''m not the only good girl around, it seems," you say. You continue rubbing each others pussies and you can feel that she is starting to get wet.' 
 							'Suddenly, you are disturbed by loud voices very close by, and you remember that you are standing in the classroom with class about to start. You both quickly withdraw your hands and Katja turns to you saying with a grin and wink in her eye, "This is going to be really fun." She then licks her fingers leaves to find a place sit, and you are left wondering what kind of monster you have created.'
 							act 'Find a place to sit': gt 'uni_lessons1', $ARGS[1]
@@ -420,6 +422,7 @@ if $ARGS[0] = 'panty_check':
 						gs 'arousal', 'vaginal_finger', 2
 						gs 'arousal', 'end'
 						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/panty_check.jpg"></center>'
 						'You just stand there surprised about how bold Katja has gotten. She continues rubbing your pussy, making it harder for you to keep your voice down.' 
 						'Suddenly, you are disturbed by loud voices close by, and she remembers that you are standing in the classroom with class about to start. She quickly withdraws her hand and turns to you, saying with a grin and wink in her eye, "This is going to be really fun." She then licks her fingers that was just on your pussy and leaves to find a place sit, and you are left wondering what kind of monster you have created.'
 						act 'Find a place to sit': gt 'uni_lessons1', $ARGS[1]
@@ -437,6 +440,7 @@ if $ARGS[0] = 'panty_check':
 							katjaQW['dom'] -= 2
 							gs 'arousal', 'end'
 							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 							'"No! Not now," you tell Katja while you free yourself from her grip. She looks a little shocked, standing there not knowing what to do. You leave her pondering her actions.' 
 							act 'Find a place to sit': gt 'uni_lessons1', $ARGS[1]
 						end
@@ -464,7 +468,7 @@ if $ARGS[0] = 'panty_check':
 							gs 'arousal', 'vaginal_finger_give', 1
 							gs 'arousal', 'end'
 							gs 'stat'
-							
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/double_panty_check.jpg"></center>'
 							'You move one of your hands under Katja''s skirt and find her bare, completely smooth pussy and gently touch it before removing your hand. "I can feel that I''m not the only good girl around here," you say.'
 							'Katja turns to you, saying with a grin and wink, "This is going to be real fun. See you later."'
 							'She turns around and leaves to find a place to sit.'
@@ -528,6 +532,7 @@ if $ARGS[0] = 'panty_check':
 						katjaQW['dom'] -= 2
 						gs 'arousal', 'end'
 						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 						'"No! Not now," you tell Katja while you free yourself from her grip. She looks a little shocked, standing there not knowing what to do. You leave her pondering her actions.' 
 						act 'Find a place to sit': gt 'uni_lessons1', $ARGS[1]
 					end
@@ -690,7 +695,7 @@ if $ARGS[0] = 'batroom_panty_check':
 					gs 'arousal', 'vaginal_finger_give', 1
 					gs 'arousal', 'end'
 					gs 'stat'
-					
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/bathroom_double_fingering.jpg"></center>'
 					'You move one of your hands under Katja''s skirt and find her bare, completely smooth pussy and gently touch it before removing your hand. "I can feel that I''m not the only good girl around here," you say.' 
 					'Katja says with a grin and wink, "This is going to be real fun, but class is starting soon so we have to run. See you later," she says and hurries back to the lecture room.'
 					'You quickly '+iif(CloSkirtShortness = 0, 'zip up your pants ', 'straighten your skirt ')+'and rush back to class.'
@@ -714,7 +719,7 @@ if $ARGS[0] = 'batroom_panty_check':
 		if katjaQW['slut'] >= 100:
 			gs 'panties', 'remove'
 			katjaQW['horny'] += 10
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/katja_lickg.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/katja_lick.jpg"></center>'
 			'Katja gets in close and squats down in front of you. She then '+iif(CloSkirtShortness = 0, 'unzips your pants and pulls them down, getting you to step out of them. Next, she grabs your panties and they also come off. ', 'lifts your skirt and pulls your panties off. ')+'Instead of getting up, she moves her face closer to your pussy and starts gently licking it.'
 			gs 'arousal', 'cuni', 1
 			gs 'willpower', 'foreplay', 'resist', 'medium'
@@ -743,7 +748,7 @@ if $ARGS[0] = 'batroom_panty_check':
 				gs 'arousal', 'cuni', 2
 				gs 'arousal', 'end'
 				gs 'stat'
-
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/katja_lick.jpg"></center>'
 				'You just stand there surprised about how bold Katja has become. She continues licking your pussy, making it harder for you to keep your voice down.' 
 				'After a little while, she stops and gets up and wipes her lips.'
 				'"This will do for now but class is starting soon, so we have to postpone the rest. Remember to not wear panties in class," she winks. "This is going to be real fun. Later."'
@@ -769,7 +774,7 @@ if $ARGS[0] = 'batroom_panty_check':
 					gs 'arousal', 'vaginal_finger_give', 1
 					gs 'arousal', 'end'
 					gs 'stat'
-					
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/bathroom_double_fingering.jpg"></center>'
 					'You slip a hand under Katja''s skirt and find smooth and naked pussy yourself.'
 					'"It seems I''m not the only good girl around here," you say.' 
 					'"Remember not to wear panties in the future," Katja grins. She stuffs your panties into your purse with a wink. "This is going to be real fun, but class is starting soon so we got to run. See you later," she says and hurries back to the lecture room.'
@@ -777,7 +782,7 @@ if $ARGS[0] = 'batroom_panty_check':
 					act 'Find a place to sit': gt 'uni_lessons1', $ARGS[1]
 				end
 			else
-				act 'Remove Katja''s hand (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				act 'Return Katja''s touch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 			act 'Act surprised':
 				*clr & cla
@@ -828,7 +833,7 @@ If $ARGS[0] = 'library':
 	cla & *clr
 	menu_off = 1
 	minut += 2
-	gs 'npc_relationship', 'modify', 'A14', 'like', 3, 'library'
+	gs 'npc_relationship', 'modify', 'A14', 'like', 1, 'library'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_alone.jpg"></center>'
 	'You approach Katja, who is clearly studying. She doesn''t notice you until you''re right next to her.'
@@ -887,6 +892,8 @@ If $ARGS[0] = 'library':
 			if ARRSIZE('class_list_institution') >= i: jump 'exam_loop'
 			killvar 'i'
 		end			
+	elseif npc_rel['A14'] >= 50:
+		act 'Watch her studying': gt 'katja_uni', 'study_watch'
 	end
 end
 
@@ -918,38 +925,47 @@ end
 if $ARGS[0] = 'studying':
 	cla & *clr
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_together.jpg"></center>'
-	minut += 30
+	minut += 15
 	modifier = dyneval('RESULT = max(npc_intel[''<<$ARGS[5]>>''], pcs_intel) + (max(10+min(npc_intel[''<<$ARGS[5]>>''] -pcs_intel, pcs_intel -npc_intel[''<<$ARGS[5]>>'']),0)*(100 - max(npc_intel[''<<$ARGS[5]>>''], pcs_intel)))/50')
 	gs 'grades', 'optional_activity_attribute', '<<$ARGS[1]>>', '<<$ARGS[2]>>', 'yes', min(modifier+10,100)
 	killvar 'modifier'
 	gs 'npc_relationship', 'modify', 'A14', 'like'
 	gs 'stat'
-	'You and Katja start studying for your <<$ARGS[2]>> class. The library is mostly quiet so you and Katja try to keep you voices down, though she can''t always help herself when she gets excited about the material before realizing her volume and turning red with embarrassment.'
-	*nl
-	if dyneval ('RESULT = class[''<<$ARGS[1]>>_<<$ARGS[2]>>_optional_weekly_grade_gain'']') < dyneval ('RESULT = class[''<<$ARGS[1]>>_<<$ARGS[2]>>_optional_weekly_max'']'):
-		'You study together for half an hour, making good progress, but can tell that you will need to study more if you want to completely understand this week''s material.'
+	if  katjaQW['QWstage'] >= 6 and hotcat > rand(5,20):
+		gt 'katja_uni_sex', 'library_threesome1'
+	elseif npc_sex['A14'] > 0 and min(pcs_horny,100) >= rand(50,150):
+		gt 'katja_uni_sex',  'library_licking1'
 	else
-		'You study together for half an hour, making good progress, feeling like you have a good grasp on the material that was covered this week.'
-	end
-	act 'Say goodbye to Katja and leave the library':
-		minut += 5
-		gt 'uni_grounds', 'main'
-	end
-	if (week < 6 or hour < 23) and hour > 7:
-		act 'Say goodbye to Katja and return to the library entrance':
-			minut += 2
-			gt 'uni_library', 'start'
+		minut += 15
+		gs 'stat'
+		'You and Katja start studying for your <<$ARGS[2]>> class. The library is mostly quiet so you and Katja try to keep you voices down, though she can''t always help herself when she gets excited about the material before realizing her volume and turning red with embarrassment.'
+		*nl
+		if dyneval ('RESULT = class[''<<$ARGS[1]>>_<<$ARGS[2]>>_optional_weekly_grade_gain'']') < dyneval ('RESULT = class[''<<$ARGS[1]>>_<<$ARGS[2]>>_optional_weekly_max'']'):
+			'You study together for half an hour, making good progress, but can tell that you will need to study more if you want to completely understand this week''s material.'
+		else
+			'You study together for half an hour, making good progress, feeling like you have a good grasp on the material that was covered this week.'
 		end
-		gs 'katja_meynold_schedule'
-		if locat['katja'] = 29:
-			gs 'katja_uni', 'study_select' 
+
+		act 'Say goodbye to Katja and leave the library':
+			minut += 5
+			gt 'uni_grounds', 'main'
+		end
+		if (week < 6 or hour < 23) and hour > 7:
+			act 'Say goodbye to Katja and return to the library entrance':
+				minut += 2
+				gt 'uni_library', 'start'
+			end
+			gs 'katja_meynold_schedule'
+			if locat['katja'] = 29:
+				gs 'katja_uni', 'study_select' 
+			else
+				'"Well, I have to get going now," Katja says, starting to pack up her stuff. "But it was nice studying together. We should do it again sometime!"'
+				'She leaves the library, giving you a wave and a smile on the way out.'
+			end
 		else
-			'"Well, I have to get going now," Katja says, starting to pack up her stuff. "But it was nice studying together. We should do it again sometime!"'
-			'She leaves the library, giving you a wave and a smile on the way out.'
+			'"Well, it looks like the library is closing up," Katja says, reaching to pack up her stuff. "But it was nice studying together. We should do it again sometime!"'
+			'You leave together, parting ways at the entrance with a wave and a smile.'
 		end
-	else
-		'"Well, it looks like the library is closing up," Katja says, reaching to pack up her stuff. "But it was nice studying together. We should do it again sometime!"'
-		'You leave together, parting ways at the entrance with a wave and a smile.'
 	end
 end
 
@@ -984,7 +1000,7 @@ if $ARGS[0] = 'studying_exam':
 	'<center><b><font color="maroon">The University Library</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_together.jpg"></center>'
 	!!Nerds like studying and so their mood improves a little. Everybody else gets in a worse mood by studying.
-	intel_exp += max(0,rand(-1,1))
+	gs 'exp_gain', 'intel', max(0,rand(-1,1))
 	pcs_mood += (traits['nerd_status']*5 -10)
 	minut += 30
 	'You and Katja start studying for the <<$ARGS[2]>> exam. The library is mostly quiet so you and Katja try to keep you voices down, though she can''t always help herself when she gets excited about the material before realizing her volume and turning red with embarrassment.'
@@ -1118,6 +1134,44 @@ if $ARGS[0] = 'study_select':
 	end			
 end
 
+if $ARGS[0] = 'study_watch':
+	menu_off = 1
+	minut += 10
+	gs 'npc_relationship', 'modify', 'A14', 'like', 1, 'library_watch'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_alone.jpg"></center>'
+	'You sit down and watch Katja study for a while. She will sometimes ask you a question, and you will chat a little. But mostly you just watch her as she works.'
+	
+	act 'Continue to watch her':
+		if  katjaQW['QWstage'] >= 6 and hotcat > rand(5,20): 
+			gt 'katja_uni_sex', 'library_threesome1'
+		elseif npc_sex['A14'] > 0 and min(pcs_horny,100) >= rand(50,150): 
+			gt 'katja_uni_sex',  'library_licking1'
+		else
+			cla & *clr
+			minut += 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_alone.jpg"></center>'
+			'She is finishes ehr studying and gets ready to move on.'	
+			act 'Say goodbye to Katja and leave the library':
+				minut += 5
+				gt 'uni_grounds', 'main'
+			end
+			if (week < 6 or hour < 23) and hour > 7:
+				act 'Say goodbye to Katja and return to the library entrance':
+					minut += 2
+					gt 'uni_library', 'start'
+				end
+				'"Well, I have to get going now," Katja says, starting to pack up her stuff. "But it was nice having you here"'
+				'She leaves the library, giving you a wave and a smile on the way out.'
+			else
+				'"Well, it looks like the library is closing up," Katja says, reaching to pack up her stuff. "But it was nice having you here"'
+				'You leave together, parting ways at the entrance with a wave and a smile.'
+			end
+		end
+	end
+end
+
 if $ARGS[0] = 'dorm_room_invite':
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 	'As you are leaving the last class for today a excited Katja grabs your arm.'

+ 401 - 1
locations/katja_uni_sex.qsrc

@@ -17,7 +17,7 @@ if ARGS[0] = 'first_time':
 		act 'Go down on her':
 			cla & *clr
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/first_time3.jpg"></center>'
-			'You stop rubbing her clit and pull her panties off, tossing them aside as she looks at you with obvious desire and longing for mor. She spreads her legs and you crawl between them and bury your face and tongue in her wet pussy. She pulls off the rest of her clothes as you eat her out and you start doing the same.'
+			'You stop rubbing her clit and pull her panties off, tossing them aside as she looks at you with obvious desire and longing for more. She spreads her legs and you crawl between them to bury your face and tongue in her wet pussy. She pulls off the rest of her clothes as you eat her out and you start doing the same.'
 			gs 'arousal', 'cuni_give', 3, 'lesbian'
 			gs 'stat'
 			act 'Ask her to go down on you': gt 'katja_uni_sex', 'first_time_cuni_get'
@@ -103,5 +103,405 @@ if ARGS[0] = 'first_time_cuni_give':
 	end
 end
 
+if $ARGS[0] = 'library_licking1':
+	menu_off = 1
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_licking1.jpg"></center>'
+	gs 'katja_procedural', 'face_color'
+	'You look at Katja, who is sitting writing at her laptop, very focused on what she''s doing. You wonder if you should try to do something...'
+
+	gs 'willpower', 'cuni', 'self', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Crawl under the table to lick Katja''s pussy (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'force'
+			gt 'katja_uni_sex', 'library_licking2'
+		end
+	else
+		act 'Crawl under the table to get to Katja''s pussy (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+	act iif( $university['enrolled_in'] = 'teaching_studies', 'Just finish studying', 'Continue to watch her study'):
+		cla & *clr
+		if $university['enrolled_in'] = 'teaching_studies':
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_together.jpg"></center>'
+			minut += 15
+			gs 'stat'
+			'You finish studying together, and you are making good progress.'
+		else
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_alone.jpg"></center>'
+			minut += 5
+			gs 'stat'
+			'You continue to watch Katja while she finishes studying.'
+		end
+		gs 'katja_uni_sex', 'library_leave_actions'
+	end
+end
+
+if $ARGS[0] = 'library_licking2':
+	gs 'arousal', 'cuni_give', 1, 'lesbian'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_licking2.jpg"></center>'
+	'You quietly get under the table so as not to alert Katja. You then slowly crawl closer to her as she continues typing away, seemingly not paying attention to anything else. Even hiking up her skirt'+iif( katjaQW['pantiesQWstage'] = 5 or  katjaQW['take_of_panties_day'] = daystart, ' ', ' and pulling her panties to the side ')+'goes unnoticed. When you finally put your tongue to her pussy, she reacts with a startled yelp.'
+	*nl
+	if katjaQW['slut'] >= 80 and katjaQW['horny'] > 50:
+		gs 'npc_relationship', 'modify', 'A14', 'like'
+		katja_library_consent = 2
+		'After a moments pause, you hear Katja reply with a low sigh. "Yes... Don''t stop <<pcs_nickname>>... Please..."' 
+		act 'Eat Katja''s pussy': gt 'katja_uni_sex', 'library_licking3'
+	elseif (katjaQW['slut'] >= 40 and katjaQW['horny'] > 50)  or katja['slut'] >= 80:
+		katja_library_consent = 1
+		'After a moments pause, Katja replies in a low voice. "Stop it <<pcs_nickname>>. Not here. Later." She does not sound completely convincing though.'
+	
+		gs 'willpower', 'cuni', 'force', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Eat her pussy anyway (<<will_cost>> Willpower)':
+				katjaQW['dom'] -= 1
+				gs 'willpower', 'pay', 'force'
+				gs 'npc_relationship', 'modify', 'A14', 'dislike'
+				gt 'katja_uni_sex', 'library_licking3'
+			end
+		else
+			act 'Eat her pussy anyway (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+		act 'Get out from under the table':  
+			cla & *clr
+			katjaQW['dom'] += 2
+			katjaQW['horny'] += 10
+			gs 'arousal', 'end'
+			gs 'stat'
+			if $university['enrolled_in'] = 'teaching_studies':
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_together.jpg"></center>'
+				minut += 15
+				gs 'stat'
+				'You crawl out from under the table and continue to study. When you finish, you think that you are making good progress in the subject.'
+			else
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_alone.jpg"></center>'
+				minut += 15
+				gs 'stat'
+				'You crawl out from under the table and continue to watch Katja while she finishes studying.'
+			end
+			gs 'katja_uni_sex', 'library_lickiing_leave_actions'
+		end
+	elseif katjaQW['horny'] > 50 or katja['slut'] >= 60:
+		'Katja immediately reacts by clamping her legs together with your head still between them. "Stop it <<pcs_nickname>>. This isn''t the place for such things. Get out from there," she says in a hard tone.'
+	
+		gs 'willpower', 'cuni', 'force', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Force her legs open and eat her pussy anyway (<<will_cost>> Willpower)':
+				gs 'npc_relationship', 'modify', 'A14', 'hate'
+				katjaQW['dom'] -= 2
+				gs 'willpower', 'pay', 'force'
+				gt 'katja_uni_sex', 'library_licking3'
+			end
+		else
+			act 'Force her legs open and eat her pussy anyway (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+		act 'Get out from under the table':  
+			gs 'npc_relationship', 'modify', 'A14', 'dislike'
+			cla & *clr
+			katjaQW['dom'] += 2
+			gs 'arousal', 'end'
+			gs 'stat'
+			if $university['enrolled_in'] = 'teaching_studies':
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_together.jpg"></center>'
+				minut += 15
+				gs 'stat'
+				'Katja slowly opens her legs when she''s sure you''re not trying to do something. You crawl out from under the table and continue to study. When you finish, you think that you are making good progress in the subject.'
+			else
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_alone.jpg"></center>'
+				minut += 5
+				gs 'stat'
+				'Katja slowly opens her legs when she''s sure you''re not trying to do something. You crawl out from under the table and continue to watch Katja while she finishes studying.'
+			end
+			gs 'katja_uni_sex', 'library_leave_actions'
+		end
+	else
+		gs 'npc_relationship', 'modify', 'A14', 'loathe'
+		gs 'arousal', 'end'
+		gs 'stat'
+		'Katja abruptly pushes her chair back and quickly stands up, causing you to almost fall to the ground. "What the hell are you doing, <<pcs_nickname>>?!" Katja almost shouts. "Get out of there right now!" You crawl out from under the table.' 
+		'"What were you thinking?! This is a place for studying, not being a whore!" she exclaims. You don''t think you''ve ever seen her so mad before.' 
+		act 'Apologize':
+			if $university['enrolled_in'] = 'teaching_studies':
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_together.jpg"></center>'
+				minut += 15
+				gs 'stat'
+				'You apologize to Katja and quickly return to your studying. By the time you finish, Katja''s anger seems to have blown over, and you think that you are making good progress in the subject.'
+			else
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/studying_alone.jpg"></center>'
+				minut += 5
+				gs 'stat'
+				'You apologize to Katja and she returns to her studying. You continue to watch her in silence and by the time she finishes, her anger seems to have blown over.'
+			end
+			gs 'katja_uni_sex', 'library_leave_actions'
+		end			
+	end
+end
+
+if $ARGS[0] = 'library_licking2':
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_licking3.jpg"></center>'
+	if katja_library_consent = 2:
+		gs 'arousal', 'cuni_give', 2, 'lesbian'
+		'Katja relaxes and her pussy is soaked after a few licks.' 
+	elseif katja_library_consent = 1:
+		gs 'arousal', 'cuni_give', 4, 'lesbian'
+		'Katja protests a little, but you can hear that she don''t really mean it. She quickly relaxes and her pussy gets very wet after a few minutes.' 
+	else
+		gs 'arousal', 'cuni_give', 6, 'lesbian'
+		'You force Katja''s legs apart and continue to lick her pussy under her protest. She tries to continue working, but after a few minutes she gives up and relents when her pussy starts to get wet.'
+	end
+	act 'Use your tongue':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_licking4.jpg"></center>'		
+		'Katja starts getting into it as you really start using your tongue on her. She leans back and puts one hand on your head, as if she is afraid that you would stop.' 
+		gs 'arousal', 'cuni_give', 3, 'lesbian'
+		gs 'stat'
+		act 'Enjoy her pussy':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_licking5.jpg"></center>'		
+			'As Katja is getting closer to an orgasm, she closes her eyes and puts both her hands on your head, pressing it into her pussy while you devour her. Her juices are really flowing now, and you taste them on your tongue.'
+			gs 'arousal', 'cuni_give', 3, 'lesbian'
+			gs 'stat'
+			act 'Bring her to an orgasm':
+				cla & *clr
+				katjaQW['slut'] += 3
+				katjaQW['hrony'] = 0
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_licking5.jpg"></center>'		
+				'Katja removes one on her hands to steady herself as you finally brings her to an orgasm. She is shaking for a long time, clearly trying to keep her voice down so as not to draw attention.'
+				gs 'arousal', 'cuni_give', 1, 'lesbian'
+				gs 'araosal', 'end'
+				gs 'stat'
+				if katja_library_consent = 2:
+					'Katja comes down while you crawl out from under the table. "Thanks <<pcs_nickname>>, I really needed that."'
+					'"Anytime," you reply. "I love eating your pussy."' 
+				elseif katja_library_consent = 1:
+					'Katja comes down while you crawl out from under the table. "Thanks <<pcs_nickname>>, that was amazing. But we really should not have done it here. What if somebody noticed?"' 
+					'You smile. "That''s what makes so exciting, don''t you think?" you reply.' 
+					'"No... I mean maybe." Katja says, but her red face gives away her true thoughts.' 
+				else
+					'Katja comes down while you crawl out from under the table. "You shouldn''t have done that <<pcs_nickname>>."'
+					'"Why not? Wasn''t it good?" you ask.' 
+					'"That''s besides the point. When I tell you no, I mean no!" she says looking angry. You apologize and her demeanor softens.' 
+				end
+				*nl
+				if $university['enrolled_in'] = 'teaching_studies':
+					minut += 15
+					gs 'stat'
+					'You sit while Katja composes herself and the two of you continue to study. When you finish, you think that you are making good progress in the subject.'
+				else
+					minut += 5
+					gs 'stat'
+					'Katja composes her self and continue to study while you watch her.'
+				end
+				killvar 'katja_library_consent'
+				gs 'katja_uni_sex', 'library_leave_actions'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'library_leave_actions':
+	act 'Say goodbye to Katja and leave the library':
+		minut += 5
+		gt 'uni_grounds', 'main'
+	end
+	if (week < 6 or hour < 23) and hour > 7:
+		act 'Say goodbye to Katja and return to the library entrance':
+			minut += 2
+			gt 'uni_library', 'start'
+		end
+		gs 'katja_meynold_schedule'
+		if locat['katja'] = 29 and $university['enrolled_in'] = 'teaching_studies':
+			gs 'katja_uni', 'study_select' 
+		else
+			'"Well, I have to get going now," Katja says and starts to pack up her stuff. "It was nice '+iif($university['enrolled_in'] = 'teaching_studies', 'studying together. We should do it again sometime!', 'having you here.')+'"'
+			'She leaves the library, giving you a wave and a smile on the way out.'
+		end
+	else
+		'"Well, it looks like the library is closing up," Katja says, reaching to pack up her stuff. "It was nice '+iif($university['enrolled_in'] = 'teaching_studies', 'studying together. We should do it again sometime!', 'having you here.')+'"'
+		'You leave together, parting ways at the entrance with a wave and a smile.'
+	end		
+end
+
+if $ARGS[0] = 'library_threesome1':
+	gs 'npcgeneratec', 0, 'hot_student', rand(18,28), 2
+	gs 'boyStat', $npclastgenerated
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome1.jpg"></center>'
+	'While you and Katja are sitting in one of the reading rooms of the library, a handsome guy comes into the room. He leans over you. "So how are the studys going my beautiful angels?"' 
+	'"Good. good. It''s going good," you manage to say as you notice Katja trying extremely hard to not start laughing over his corny lines.'  
+	'"Well if it''s going so good, then perhaps you ladies need a break from your hard work..." he continues. "I''m <<$npc_nickname[$npclastgenerated]>> and will of course be more than willing to offer my services to make sure that you ladies are entertained during your respite." You look at Katja and see that she also understands his intentions.'
+	*nl
+	if katjaQW['boy_block'] = 1 and katjaQW['slut'] >= rand(50,100):
+		'"Sorry, but neither you or any other boy could possibly have anything that could entertain us," Katja says in a completely deadpan voice. He look flabbergasted before quickly turning around and leaving. "Go girl. That was impressive!" you tell Katja, and she blushes slightly.'
+		act 'Finish up': gt 'katja_uni_sex', 'threeseome_over'
+	else
+		if katjaQW['QWstage'] < 6 or katjaQW['boy_block'] = 1:
+			'You can see Katja looking uncomfortable at his suggestion. "What the fuck? Get the hell away from us, perv!" you say in a harsh voice. He seems very surprised and doesn''t know what to say, so he just slowly backs away.'
+			'After he leaves the room, Katja can''t hold it any more and breaks out laughing "What a moron!" she says. "I can''t believe that they let such idiots enter the uni."' 
+			'"Maybe he''s a lab experiment that got loose?" you suggest, which just sends Katja into another giggling fit. After she stops laughing, you return to your work.'
+			act 'Finish up': gt 'katja_uni_sex', 'threeseome_over'
+		else
+			if katjaQW['slut'] > 80 and katjaQW['horny'] >= rand(50,100):
+				'Katja turns and looks at you before leaning in and whispering. "I know his lines are corny, but he''s hot and I''m kind of horny." She looks at you with pleading eyes, waiting for your answer.'
+				act 'Agree to a threesome': gt 'katja_uni_sex', 'library_threesome2'
+				act 'Say no':
+					cla
+					if katjaQW['dom'] < -15:
+						'"No Katja, I don''t feel like it," you tell her.' 
+						'She looks disappointed, but turns to the guy and says "No, we''re fine. We have no time for breaks." <<$npc_nickname[$npclastgenerated]>> takes the rejection with a smile. "Then I will leave you ladies to your work. Maybe another time?" he says before leaving you alone. It seems like he didn''t expect his pick-up line to have worked anyway.'
+						act 'Finish up': gt 'katja_uni_sex', 'threeseome_over'
+					else
+						'"No Katja, I don''t feel like it," you tell her.' 
+						'She doesn''t look pleased. "Come on <<pcs_nickname>>, don''t be such a prude! I can''t believe I''m the daring one and you''re the one afraid of getting caught. It''s going to be fun! I really need this. Please <<pcs_nickename>>?" she says in a low voice, but you notice that <<$npc_nickname[$npclastgenerated]>> has clearly caught on to that she is trying to convince you.'
+						gs 'willpower', 'group', 'resist'
+						if will_cost <= pcs_willpwr:
+							act 'Stand firm (<<will_cost>> Willpower)':
+								cla
+								*nl
+								gs 'willpower', 'pay', 'resist'
+								gs 'npc_relationship', 'modify', 'A14', 'dislike'
+								'"I said no, Katja!" you tell her in a stern voice.' 
+								'She looks disappointed, but turns to the guy and says "No, we''re fine. My friend has no time for a break." <<$npc_nickname[$npclastgenerated]>> looks a little sad, as if he had gotten his hopes up that his pick-up line would actually work. "Then I will leave you ladies to your work. Maybe another time?" he says before leaving you alone.'
+								act 'Finish up': gt 'katja_uni_sex', 'threeseome_over'
+							end
+						else
+							act 'Stand firm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+						end						
+						act 'Relent': 
+							katjaQW['dom'] += 2
+							katjaQW['slut'] += 1 
+							gs 'npc_relationship', 'modify', 'A14', 'like'
+							gt 'katja_uni_sex', 'library_threesome2'
+						end
+					end
+				end
+			else
+				'You look at Katja and '+iif(katjaQW['horny'] > 50 and katjaQW['slut'] > 40, 'she gives you a nod to indicate that she is willing if you are.', 'it looks like she is not up for it.')
+				if katjaQW['horny'] > 50 and katjaQW['slut'] > 40:
+					act 'Agree and have a threesome': gt 'katja_uni_sex', 'library_threesome2'
+				elseif katjaQW['horny'] > 50 or katjaQW['slut'] >= 60:
+					gs 'willpower', 'group', 'force'
+					if will_cost <= pcs_willpwr:
+						act 'Convince Katja to have a threesome (<<will_cost>> Willpower)':
+							cla
+							*nl
+							gs 'willpower', 'pay', 'resist'
+							katjaQW['dom'] -= 1
+							'You lean over and whisper in Katja''s ear. "Come on Katja, it''s going to be fun. You need to loosen up and try more things!" you tell her.'
+							'"We''re in the library. Somebody could come!" she protests.' 
+							'"That''s what makes it more exciting! We''re already leading <<$npc_nickname[$npclastgenerated]>> on, so we can''t let him leave with blue balls!" Finally, Katja gives you a nod.'
+							act 'Have a threesome': gt 'katja_uni_sex', 'library_threesome2'
+						end
+					else
+						act 'Convince Katja to have a threesome (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end								
+				end
+				act 'Tell <<$npc_nickname[$npclastgenerated]>> that you are not interested':
+					cla
+					'You turn to <<$npc_nickname[$npclastgenerated]>>. "Sorry, but I don''t believe you have anything that could satisfy us."' 
+					'He looks a little disappointed. "I believe you are wrong, but will accept the ladies wishes. You don''t know what know what pleasures you will miss out on!"' 
+					'Once he is out of earshot, Katja scoffs. "What a jerk!"'
+					act 'Finish up': gt 'katja_uni_sex', 'threeseome_over'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'library_threesome2':
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome2.jpg"></center>'
+	'After you and Katja agree, you get up while Katja turns around to face him. "It''s your lucky day," she says. "But don''t think it''s because of your cheesy pick up lines."' 
+	'You get close to him and starts taking his shirt off as Katja slides her hand over his abs. "It''s only because you have something we need," you say, which prompts Katja to grab his already hard cock through his pants.'
+	gs 'arousal', 'foreplay_give', 1, 'group'
+	gs 'stat'
+	act 'Show him that he is just your toy':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome3.jpg"></center>'
+		'After you get his shirt off, Katja gets up and, just to show him how much he is just a toy for the two of you, you and Katja kiss as if he wasn''t there. It doesn''t seem to bother him, however, and his hand finds Katja''s ass.'
+		gs 'arousal', 'foreplay_give', -1, 'group'
+		gs 'arousal', 'kiss', 2, 'lesbian', 'group'
+		gs 'stat'
+		act 'Get you clothes off':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome4.jpg"></center>'
+			'You and Katja takes your clothes off and get down in front <<$npc_nickname[$npclastgenerated]>> before pulling his very hard cock out of his pants. You both start alternating between stroking his dick. He seems to get really turned on getting treated as a sex toy, so you decide to gently bite his nipple, which seems to turn him on even more.' 
+			gs 'arousal', 'hj', 3, 'group'
+			gs 'stat'
+			act 'Start licking':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome5.jpg"></center>'
+				'You get up and lay him down at the table. You take his cock into your mouth while Katja sits on his face. '+iif( pcs_throat < dick, 'You have a little trouble getting his big dick into your mouth', 'His cock easily slides into your mouth')+'. You continue sucking his dick while you hear Katja moan from getting her pussy eaten by <<$npc_nickname[$npclastgenerated]>>.'
+				gs 'arousal', 'bj', 2, 'group'
+				gs 'stat'
+				act 'Share with Katja':
+					cla & *clr
+					if npc_throat['A14'] < dick: npc_throat['A14'] += 1
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome6.jpg"></center>'
+					'You beckon Katja forward and she leans down and takes <<$npc_nickname[$npclastgenerated]>> into her mouth. She '+iif( npc_throat['A14'] < dick, 'has a hard time taking his big dick in her mouth', 'Licks his cock like a pro')+' while he continues to lick her pussy and you look on.'
+					gs 'arousal',  'voyeur_sex', 2, 'group'
+					gs 'stat'
+					act 'Mount him':
+						cla & *clr
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome7.jpg"></center>'
+						'You signal to Katja to stop sucking and lean back, which she does, so much that now he is licking her anus instead of her pussy. You then get up and slowly sit down on his cock with your back to Katja. You start riding him while using your hand to stimulate your clit at the same time.' 
+						gs 'arousal', 'vaginal', 3, 'group'
+						gs 'arousal', 'clit_finger', -2, 'group'
+						gs 'stat'
+						act 'Switch positions':
+							cla & *clr
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome8.jpg"></center>'
+							'You climb off his dick and and tell Katja that it''s her turn. You then guide his dick into her very wet pussy as she sits down on it. As she starts riding it, you get up and crawl over to <<$npc_nickname[$npclastgenerated]>>''s face before sitting on it and letting him eat your pussy.'
+							gs 'arousal', 'cuni', 3, 'group'
+							gs 'stat'
+							act 'Get on all fours':
+								cla & *clr
+								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome9.jpg"></center>'
+								'You and Katja get off <<$npc_nickname[$npclastgenerated]>>, who gets up from the table. You and Katja then get gown on all four on the edge of the table, and <<$npc_nickname[$npclastgenerated]>> slides his dick into you. He continues to fuck you from behind, but also starts alternating between fucking you and Katja.'
+								gs 'arousal', 'vaginal', 3, 'group'
+								gs 'stat'
+								act 'On top of Katja':
+									cla & *clr
+									katjaQW['slut'] += 3
+									katjaQW['hrony'] = 0
+									if npc_vag['A14'] < dick: npc_vag['A14'] += 1
+									if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
+									'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome10.jpg"></center>'
+									'After a while, as he is fucking Katja, you get up and lie yourself on top of Katja. <<$npc_nickname[$npclastgenerated]>> then starts alternating between pounding his dick into your pussy and into Katja''s. After a doing this for a while, you hear Katja cum while he is inside her. When she comes down, he switches to you and is clearly getting close to cumming himself.'
+									gs 'arousal', 'vaginal', 3, 'group'
+									gs 'stat'
+									act 'Finish':
+										cla & *clr
+										'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome11.jpg"></center>'
+										minut += 5
+										gs 'arousal', 'end'
+										gs 'cum_call', 'labia', $boy, 1
+										gs 'stat'
+										'He continues to pound you, and you''re wondering if he will manage to pull out before he pulls out at the last second, causing his cum to splatter all over your pussy. You then climb off Katja and she slides off the table.' 
+										'"That was amazing!" <<$npc_nickname[$npclastgenerated]>> says while getting dressed.' 
+										'"Yeah, that wasn''t bad," Katja replies. '+iif(katjaQW['slut'] >= 100, '"At least he knows how to use his dick, even if he doesn''t know how to use his words,"', '"Yes. We did get something useful out of him after all, who would have thought with such a corny come on" you say.')+' <<$npc_nickname[$npclastgenerated]>> doesn''t seem to know how to react to that, and just puts on the rest of his clothes and leaves. Once he''s gone, you and Katja break down laughing before finally getting your clothes back on and returning to the books.'
+										act 'Finish up': gt 'katja_uni_sex', 'threeseome_over'
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'threeseome_over':
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/uni/sex/library_threesome_aftermatch.jpg"></center>'
+	if $university['enrolled_in'] = 'teaching_studies':
+		minut += 15
+		gs 'stat'
+		'You and Katja continue to study. Once you finish, you think that you are making good progress in the subject.'
+	else
+		minut += 5
+		gs 'stat'
+		'Katja continues to study while you watch her.'
+	end
+	gs 'katja_uni_sex', 'library_leave_actions'
+end
+
 --- katja_uni_sex ---------------------------------
 

+ 4 - 0
locations/liam.qsrc

@@ -79,5 +79,9 @@ end
 
 act 'Wait':gs 'obj_din', 'wait'
 
+!-- Random prostitution solicitation check ------------------------ 
+if prostitute['blocked'] = 0: gs 'prostitution_functions', 'check_solicitation_event'
+
+
 --- liam ---------------------------------
 

+ 4 - 0
locations/pav_commercial.qsrc

@@ -211,5 +211,9 @@ elseif npc_QW['A113'] = 1 and daybelisex ! daystart and hour >= 9 and hour <= 23
 	act 'Go to the jeep': gt 'belgang', 'workofdebt'
 end
 
+!-- Random prostitution solicitation check ------------------------ 
+if prostitute['blocked'] = 0: gs 'prostitution_functions', 'check_solicitation_event'
+
+
 --- pav_commercial ---------------------------------
 

+ 6 - 0
locations/pav_complex.qsrc

@@ -153,6 +153,10 @@ if $ARGS[0] = 'start':
 !!	if mid($start_type,1,2) = 'sg': act 'Go to the old apartment building':minut += 1 & gt 'pavComplexOld', 'etaj_1'
 	act 'Sit on a bench':gt 'pav_aptcourtev', 'bench'
 	gs 'camera', 'check_location'
+
+	!-- Random prostitution solicitation check ------------------------ 
+	if prostitute['blocked'] = 0: gs 'prostitution_functions', 'check_solicitation_event'
+
 end
 
 if $ARGS[0] = 'garages':
@@ -491,6 +495,8 @@ if $ARGS[0] = 'garages':
 		act 'Go back to the courtyard':minut += 2 & gt 'pav_complex', 'start'
 		if mid($start_type,1,2) = 'sg': act 'Go to your stepfather''s garage': minut += 5 & gt 'gargazel'
 	end
+
 end
 
+
 --- pav_complex ---------------------------------

+ 4 - 0
locations/pav_industrial.qsrc

@@ -116,5 +116,9 @@ elseif npc_QW['A113'] = 1 and daybelisex ! daystart and hour >= 9 and hour <= 23
 	act 'Go to the jeep': gt 'belgang', 'workofdebt' 	
 end
 
+!-- Random prostitution solicitation check ------------------------ 
+if prostitute['blocked'] = 0: gs 'prostitution_functions', 'check_solicitation_event'
+
+
 --- pav_industrial ---------------------------------
 

+ 12 - 0
locations/pav_market.qsrc

@@ -39,6 +39,15 @@ end
 'The other side of the train station is a large square, where you can find a <a href="exec:minut += 1 & gt ''pav_train_market'', ''start''">market</a> on most days.'
 *nl
 'A rather run-down <a href="exec:minut += 1 & gt ''pav_hotel''">hotel</a> is just across the square, where travelers can spend the night. The manager is always looking for maids among the local young girls. Because of it''s frequent use by the local prostitutes, most people prefer to stay at the middle-class hotel by the main road.'
+if prostitute['blocked'] = 0 and prostitute['gas_station'] = 1:
+	*nl 
+	if money >= 75:
+		'Next to the train station you can find the bus terminal. Here you can catch the bus that will take you to <a href="exec:minut += 87 & money -= 75 & gt ''gas_station_gp_117'', ''outside''">the gas station on the M11</a>.'
+	else
+		'Next to the train station you can find the bus terminal. Here you can catch the bus that would take you to the gas station on the M111, unfortunately you don''t have enough money for the ticket.'
+	end
+end
+
 
 if curr_home = 6:
 	if vladimirday = daystart and vladimirQW = 30 and hour >= 16 and week = 6:'<a href="exec:gt ''qwmeet'',''2''">There''s an Audi parked in front of the hotel, and standing beside it, you notice Vladimir</a>.'
@@ -296,5 +305,8 @@ act 'Walk to Pushkin (0:20)':minut += 20 & nroad = 19 & gt 'liam'
 
 gs 'camera', 'check_location'
 
+!-- Random prostitution solicitation check ------------------------ 
+if prostitute['blocked'] = 0: gs 'prostitution_functions', 'check_solicitation_event'
+
 --- pav_market ---------------------------------
 

+ 4 - 0
locations/pav_park.qsrc

@@ -303,6 +303,10 @@ if $ARGS[0] = 'start':
 	end
 
 	gs 'camera', 'check_location'
+	
+	!-- Random prostitution solicitation check ------------------------ 
+	if prostitute['blocked'] = 0: gs 'prostitution_functions', 'check_solicitation_event'
+
 end
 
 if $ARGS[0] = 'alb_father_meeting_1':

+ 21 - 16
locations/pav_residential.qsrc

@@ -71,22 +71,24 @@ elseif rape > rape_count:
 	end
 end
 
-if fame['pav_slut'] >= 250 and rand(1, 10) = 10 and pav_residential_prost_day ! daystart:
-	pav_residential_prost_day = daystart
-	'A man approaches you, and asks if you want to earn some easy money. He''s offers you 200 <b>₽</b> for a quickie in the bushes.'
-
-	gs 'willpower', 'prostitution', 'resist'
-	if will_cost <= pcs_willpwr:
-		act 'Decline (<<will_cost>> Willpower)':
-			gs 'willpower', 'pay', 'resist'
-			gt 'pav_residential'
-		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 'Agree': gs 'npcgeneratec', 0, 'Stranger at the Park', rand(18,45) & gs 'boyStat', $npclastgenerated & gt 'gevent', '5'
-	exit
-end
+!! TODO: Commented out and replaced by the wlife mechanics - see end of the file under !-- Prostitution ---- 
+!!if fame['pav_slut'] >= 250 and rand(1, 10) = 10 and pav_residential_prost_day ! daystart:
+!!	pav_residential_prost_day = daystart
+!!	'A man approaches you, and asks if you want to earn some easy money. He''s offers you 200 <b>₽</b> for a quickie in the bushes.'
+!!
+!!
+!!	gs 'willpower', 'prostitution', 'resist'
+!!	if will_cost <= pcs_willpwr:
+!!		act 'Decline (<<will_cost>> Willpower)':
+!!			gs 'willpower', 'pay', 'resist'
+!!			gt 'pav_residential'
+!!		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 'Agree': gs 'npcgeneratec', 0, 'Stranger at the Park', rand(18,45) & gs 'boyStat', $npclastgenerated & gt 'gevent', '5'
+!!	exit
+!!end
 
 if ((month = 9 and day > 16) or month >= 10) and (AlbinaQW['StarletsShutDown'] = 0 or AlbinaQW['Chernov'] = 0): 'You can see election posters on the walls all over town. They say: "Vote for Boris Barlovsky!" Wait a minute... isn''t that Albina''s father?'
 if AlbinaQW['StarletsJoined'] > 0 and AlbinaQW['StarletsShutDown'] = 0 and npc_pregtalk['A23'] = 0 and AlbinaQW['Chernov'] = 0 and ((month = 11 and day > 18) or month = 12) and hour >= 14:gt 'albina_election_events', 'start'
@@ -274,6 +276,9 @@ elseif npc_QW['A113'] = 1 and daybelisex ! daystart and hour >= 9 and hour <= 23
 	act 'Go to the jeep': gt 'belgang', 'workofdebt' 	
 end
 
+!-- Random prostitution solicitation check ------------------------ 
+if prostitute['blocked'] = 0: gs 'prostitution_functions', 'check_solicitation_event'
+
 
 --- pav_residential ---------------------------------
 

+ 804 - 0
locations/prostitution_car_negotiation.qsrc

@@ -0,0 +1,804 @@
+# prostitution_car_negotiation
+
+!!----- Negotiating with client when not using the prostitution_pavlovsk setup. -----------------------------------------
+!!--  This is the one to use when creating anything like a gas station, side of the road, or when the clients are      --
+!!--  approaching with a car.                                                                                          --
+!!--  NOTE: Something similar should be made for pedestrian traffic in the city I think.                               --                                                                                      
+!!-----------------------------------------------------------------------------------------------------------------------
+
+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 ''<<$loc>>'', ''work''">three</a>', 'only <a href="exec: prostitute[''scene_reduction''] = 0 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">shown</a>.', '<a href="exec: prostitute[''skip_end''] = 0 & gt ''<<$loc>>'', ''work''">skipped</a>.')
+		' - Start scene will be '+iif(prostitute['skip_start'] = 0, '<a href="exec: prostitute[''skip_start''] = 1 & gt ''<<$loc>>'', ''work''">shown</a>.', '<a href="exec: prostitute[''skip_start''] = 0 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Automatic</a>', '<a href="exec: prostitute_auto[''normal''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Accept</a>', '<a href="exec: prostitute_auto[''norm_bj''] = 1 & gt ''<<$loc>>'', ''work''">Decline</a>')
+			'Vaginal: '+iif(prostitute_auto['norm_vag'] = 1, '<a href="exec: prostitute_auto[''norm_vag''] = 0 & gt ''<<$loc>>'', ''work''">Accept</a>', '<a href="exec: prostitute_auto[''norm_vag''] = 1 & gt ''<<$loc>>'', ''work''">Decline</a>')
+			'Anal: '+iif(prostitute_auto['norm_anal'] = 1, '<a href="exec: prostitute_auto[''norm_anal''] = 0 & gt ''<<$loc>>'', ''work''">Accept</a>', '<a href="exec: prostitute_auto[''norm_anal''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_bj_condom''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_vag_condom''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_anal_condom''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_bj_creampie''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_vag_creampie''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''norm_anal_creampie''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Automatic</a>', '<a href="exec: prostitute_auto[''regular''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_vag_condom''] = 1 & gt ''<<$loc>>'', ''work''">No</a>')
+			'- Anal: '+iif(prostitute_auto['reg_anal_condom'] = 1, '<a href="exec: prostitute_auto[''reg_anal_condom''] = 0 & gt ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_anal_condom''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_vag_creampie''] = 1 & gt ''<<$loc>>'', ''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 ''<<$loc>>'', ''work''">Yes</a>', '<a href="exec: prostitute_auto[''reg_anal_creampie''] = 1 & gt ''<<$loc>>'', ''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_car_negotiation', 'client_regular', 'look_client'
+	elseif prostitute['client_chance'] > 100 and prostitute['regular'] = 0:
+		prostitute['pity_counter'] = 0
+		'<center><video autoplay loop src="images/prostitution/car/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_car_negotiation', 'negotiation_start'
+			elseif prostitute_auto['normal'] = 1:
+				act 'Negotiate with him': gt 'prostitution_car_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_car_negotiation', 'negotiation_start'
+					act 'Your pussy': $prostitute['client_scene'] = 'Vaginal' & gt 'prostitution_car_negotiation', 'negotiation_start'
+					act 'Your ass': $prostitute['client_scene'] = 'Anal' & gt 'prostitution_car_negotiation', 'negotiation_start'
+				else
+					act 'A blowjob':
+						if $prostitute['client_scene'] ! 'Blowjob': prostitute['propose'] = 2
+						gt 'prostitution_car_negotiation', 'negotiation_start'
+					end
+					act 'Your pussy':
+						if $prostitute['client_scene'] ! 'Vaginal': prostitute['propose'] = 2
+						gt 'prostitution_car_negotiation', 'negotiation_start'
+					end
+					act 'Your ass':
+						if $prostitute['client_scene'] ! 'Anal': prostitute['propose'] = 2
+						gt 'prostitution_car_negotiation', 'negotiation_start'
+					end
+				end
+			end
+		else
+			gt 'prostitution_car_negotiation', 'rough'
+		end
+	else
+		prostitute['pity_counter'] += rand(4,8)
+		'<center><video autoplay loop src="images/prostitution/car/normal/negotiation/search.mp4"></video></center>'
+		'<br>Some cars drive by, but nobody stops.'
+		act 'Continue': gt $loc, 'work'
+	end
+end
+
+!!------ Regular Client ------
+
+! [x] First check over
+if $ARGS[0] = 'client_regular':
+	*clr & cla
+	'<center><video autoplay loop src="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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_car_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="images/prostitution/car/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(prezikcount = 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_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_car_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_car_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 $loc, '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_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_car_negotiation', 'client_regular_success'
+								end
+
+								act 'Can cum inside you':
+									cla & *nl
+									$prostitute_client_cumshot = 'Inside'
+									gs 'prostitution_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_car_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_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_car_negotiation', 'client_regular_success'
+							end
+
+							act 'Can cum inside you':
+								cla & *nl
+								$prostitute_client_cumshot = 'Inside'
+								gs 'prostitution_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_car_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_functions', 'payment', iif($prostitute_client_condom = 'Yes', 'condom_yes', 'condom_no'), iif($prostitute_client_cumshot = 'Inside', 'inside_yes', 'inside_no')
+						gt 'prostitution_car_negotiation', 'client_regular_success'
+					else
+						cla & *nl
+						$prostitute_client_condom = 'Yes'
+						$prostitute_client_cumshot = 'Outside or Condom'
+						gs 'prostitution_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_car_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_car_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="images/prostitution/car/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 $loc, '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_functions', 'acceptance_check', 'regular'
+	gs 'stat'
+	'<center><video autoplay loop src="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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_car_sex', 'regular_start'
+			end
+		else
+			minut += 2
+			'<center><video autoplay loop src="images/prostitution/car/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_car_sex', 'regular_start'
+			else
+				act 'Get undressed': gt 'prostitution_car_sex', '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_car_negotiation', 'negotiation_automatic'
+
+	'<center><video autoplay loop src="images/prostitution/car/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_functions', 'payment', 'condom_yes', 'not_discussed'
+	'Payment with condom: <<prostitute[''payment'']>> <b>₽</b>'
+	if prostitute['std_mod'] = 0:
+		gs 'prostitution_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 $loc, '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 $loc, '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_car_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_car_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_car_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_car_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_car_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_car_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_car_negotiation', 'negotiation_condom_yes'
+	elseif prezikcount > 0 and prostitute['std_mod'] = 1:
+		act 'Accept and use a condom': $prostitute_client_condom = 'Yes' & gt 'prostitution_car_negotiation', 'negotiation_condom_yes'
+	end
+
+	if prostitute['std_mod'] = 0:
+		act 'Don''t insist on a condom': $prostitute_client_condom = 'No' & gt 'prostitution_car_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_car_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_functions', 'payment', 'condom_no', 'not_discussed'
+				'New payment: <<prostitute[''payment'']>> <b>₽</b>'
+
+				gs 'prostitution_functions', 'will_unprotected', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Decline and move away (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'resist'
+						gt $loc, '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_car_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="images/prostitution/car/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
+
+	gs 'prostitution_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_functions', 'payment', 'condom_yes', 'Outside or Condom'
+			gt 'prostitution_car_negotiation', 'negotiation_success'
+		end
+	else
+		gs 'prostitution_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_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_functions', 'payment', 'condom_yes', 'inside_no'
+					act 'Get into his car': gt 'prostitution_car_negotiation', 'negotiation_success'
+				else
+					prostitute['fail_condom'] = 1
+					gt 'prostitution_car_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_car_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="images/prostitution/car/normal/negotiation/chat'+rand(0,1)+'.mp4"></video></center>'
+
+	gs 'prostitution_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_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_functions', 'payment', 'condom_no', 'inside_no'
+				act 'Get into his car': gt 'prostitution_car_negotiation', 'negotiation_success'
+			else
+				prostitute['fail_creampie'] = 1
+				gt 'prostitution_car_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_functions', 'payment', 'condom_no', 'inside_yes'
+		gt 'prostitution_car_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_car_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_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_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_functions', 'payment', 'condom_yes', 'inside_no'
+				if rand(1,10) < 4:
+					prostitute['fail_condom'] = 1
+					gt 'prostitution_car_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_functions', 'payment', 'condom_no', 'inside_no'
+					if rand(1,10) = 10 and prostitute['client_creampie'] = 0: gt 'prostitution_car_negotiation', 'negotiation_fail'
+				else
+					prostitute_auto['willpower'] = 1
+					$prostitute_client_condom = 'No'
+					$prostitute_client_cumshot = 'Inside'
+					gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
+				end
+			end
+			gt 'prostitution_car_negotiation', 'negotiation_success'
+		elseif rand(1,10) < 9 and prostitute['std_mod'] = 1:
+			gt 'prostitution_car_negotiation', 'negotiation_fail'
+		else
+			$prostitute_client_condom = 'No'
+			gs 'prostitution_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_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_functions', 'payment', 'condom_no', 'inside_no'
+				if rand(1,10) = 10 and prostitute['client_creampie'] = 0:
+					prostitute['fail_creampie'] = 1
+					gt 'prostitution_car_negotiation', 'negotiation_fail'
+				end
+			else
+				prostitute_auto['willpower'] = 1
+				$prostitute_client_cumshot = 'Inside'
+				gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
+			end
+			gt 'prostitution_car_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="images/prostitution/car/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 $loc, 'work'
+	end
+	if prostitute['fail_condom'] = 1:
+		prostitute['fail_condom'] = 0
+		act 'Change your mind and do it without a condom': gt 'prostitution_car_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_functions', 'payment', 'condom_no', 'inside_yes'
+			gt 'prostitution_car_negotiation', 'negotiation_success'
+		end
+	elseif prostitute['fail_pay'] = 1:
+		act 'Change your mind and accept his offer':
+			$prostitute_client_cumshot = 'Inside'
+			gs 'prostitution_functions', 'payment', 'condom_no', 'inside_yes'
+			gt 'prostitution_car_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="images/prostitution/car/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_car_negotiation', 'money'
+		gs 'prostitution_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_car_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_car_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_car_negotiation', 'money'
+		else
+			act '... ask for your money': gt 'prostitution_car_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="images/prostitution/car/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_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_car_sex', 'start'
+	else
+		act 'Get to work': gt 'prostitution_car_sex', 'start'
+	end
+end
+
+
+--- prostitution_car_negotiation ---------------------------------

+ 958 - 0
locations/prostitution_car_sex.qsrc

@@ -0,0 +1,958 @@
+# prostitution_car_sex
+
+!!------ 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_car_sex', 'Blowjob'
+	else
+		gt 'prostitution_car_sex', $prostitute['client_scene']
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'Blowjob':
+	*clr & cla
+	'<center><video autoplay loop src="images/prostitution/car/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 'prostitution_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 'prostitution_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_car_sex', $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_car_sex' , 'Blowjob'
+	elseif $prostitute_fetish['rimjob'] ! 'blocked' and prostitute['client_creampie'] = 0 and (rand(1,100) + prostitute['rim_pity_counter']) > 90:
+		act 'Continue': gs 'prostitution_car_sex', 'rimjob_start'
+	else
+		act 'Continue': gs 'prostitution_car_sex' , 'switch'
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'Vaginal':
+	*clr & cla
+	'<center><video autoplay loop src="images/prostitution/car/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 'prostitution_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_car_sex' , 'Vaginal'
+	elseif $prostitute_fetish['rimjob'] ! 'blocked' and prostitute['client_creampie'] = 0 and (rand(1,100) + prostitute['rim_pity_counter']) > 90:
+		act 'Continue': gs 'prostitution_car_sex', 'rimjob_start'
+	else
+		act 'Continue': gs 'prostitution_car_sex' , 'switch'
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'Anal':
+	*clr & cla
+	'<center><video autoplay loop src="images/prostitution/car/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 'prostitution_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_car_sex' , 'Anal'
+	elseif $prostitute_fetish['rimjob'] ! 'blocked' and prostitute['client_creampie'] = 0 and (rand(1,100) + prostitute['rim_pity_counter']) > 90:
+		act 'Continue': gs 'prostitution_car_sex', 'rimjob_start'
+	else
+		act 'Continue': gs 'prostitution_car_sex' , '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_car_sex', '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_car_sex', 'switch'
+		end
+	else
+		gs 'prostitution_car_sex', 'rimjob_decision'
+	end
+end
+
+! [x]  First check
+if $ARGS[0] = 'rimjob_decision':
+	gs 'prostitution_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_car_sex', '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_car_sex', 'switch'
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'switch':
+	if prostitute['client_rimjob'] = 1:
+		gt 'prostitution_car_sex', '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_car_sex', 'cumshot', 'mouth'
+		else
+			gt 'prostitution_car_sex', 'cumshot', 'facial'
+		end
+	elseif $prostitute['client_scene'] = 'Vaginal':
+		if $prostitute_client_cumshot = 'Inside' or prostitute['client_creampie'] = 1:
+			gt 'prostitution_car_sex', '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_car_sex', 'cumshot', 'stomach'
+			elseif prostitute_cumshot_rand = 3:
+				gt 'prostitution_car_sex', 'cumshot', 'butt'
+			else
+				gt 'prostitution_car_sex', '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_car_sex', 'cumshot', 'vaginal_creampie'
+				elseif prostitute_cumshot_rand > 10 and prostitute_cumshot_rand <= 60:
+					gt 'prostitution_car_sex', 'cumshot', 'stomach'
+				elseif prostitute_cumshot_rand > 60 and prostitute_cumshot_rand <= 90:
+					gt 'prostitution_car_sex', 'cumshot', 'butt'
+				else
+					gt 'prostitution_car_sex', '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_car_sex', 'cumshot', 'vaginal_creampie'
+				elseif prostitute_cumshot_rand > 5 and prostitute_cumshot_rand <= 60:
+					gt 'prostitution_car_sex', 'cumshot', 'stomach'
+				elseif prostitute_cumshot_rand > 60 and prostitute_cumshot_rand <= 90:
+					gt 'prostitution_car_sex', 'cumshot', 'butt'
+				else
+					gt 'prostitution_car_sex', 'cumshot', 'facial'
+				end
+			end
+		end
+	elseif $prostitute['client_scene'] = 'Anal':
+		if $prostitute_client_cumshot = 'Inside' or prostitute['client_creampie'] = 1:
+			gt 'prostitution_car_sex', '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_car_sex', 'cumshot', 'stomach'
+			elseif prostitute_cumshot_rand >= 2 or prostitute_cumshot_rand < 5:
+				gt 'prostitution_car_sex', 'cumshot', 'butt'
+			elseif prostitute_cumshot_rand = 5:
+				gt 'prostitution_car_sex', '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_car_sex', 'cumshot', 'anal_creampie'
+			elseif prostitute_cumshot_rand > 10 and prostitute_cumshot_rand <= 50:
+				gt 'prostitution_car_sex', 'cumshot', 'butt'
+			elseif prostitute_cumshot_rand > 50 and prostitute_cumshot_rand <= 90:
+				gt 'prostitution_car_sex', 'cumshot', 'stomach'
+			else
+				gt 'prostitution_car_sex', '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 'prostitution_functions', 'std_check_oral'
+	else
+		gs 'prostitution_functions', 'std_check'
+	end
+
+	if $ARGS[1] = 'rimjob':
+		gs 'prostitution_functions', 'std_check_oral', 'low'
+		gt 'prostitution_car_sex', 'rimjob_end'
+	elseif $ARGS[1] = 'mouth':
+		'<center><video autoplay loop src="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/normal/sex/cum/abelly_'+rand(1,10)+'.mp4"></video></center>'
+		else
+			'<center><video autoplay loop src="images/prostitution/car/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="images/prostitution/car/normal/sex/cum/abutt_'+rand(1,4)+'.mp4"></video></center>'
+		else
+			'<center><video autoplay loop src="images/prostitution/car/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="images/prostitution/car/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_car_sex', '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_car_sex', 'end'
+
+	if $prostitute_fetish['rimjob'] = '':
+		$prostitute_fetish['rimjob'] = 'undecided'
+		'<center><video autoplay loop src="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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_car_sex', '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 'prostitution_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_car_sex', '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 'prostitution_functions', 'std_check_oral', 'low'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/prostitution/car/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_car_sex', '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_car_sex', '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="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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 'gas_station_gp_117', '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 'gas_station_gp_117', '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="images/prostitution/car/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 'prostitution_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_car_sex', 'regular_start_bj'
+		else
+			gt 'prostitution_car_sex', 'regular_start_lick'
+		end
+	else
+		act 'Continue':
+			if prostitute_scene_rand < 8:
+				if prostitute_scene_rand < 4: prostitute_scene_clit = 1
+				gt 'prostitution_car_sex', 'regular_start_bj'
+			else
+				gt 'prostitution_car_sex', '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="images/prostitution/car/regular/sex/start_blowjob_clit.mp4"></video></center>'
+		gs 'arousal', 'foreplay', -4, 'unknown', 'prostitution', 'no_orgasm_msg'
+	else
+		'<center><video autoplay loop src="images/prostitution/car/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_car_sex', 'regular_start_lick'
+			elseif prostitute_scene_rand >= 4 and $prostitute['client_scene'] = 'Vaginal':
+				gt 'prostitution_car_sex', 'regular_vaginal'
+			elseif prostitute_scene_rand >= 4 and $prostitute['client_scene'] = 'Anal':
+				gt 'prostitution_car_sex', 'regular_anal'
+			end
+		end
+	else
+		if $prostitute['client_scene'] = 'Vaginal':
+			gt 'prostitution_car_sex', 'regular_vaginal'
+		else
+			gt 'prostitution_car_sex', '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="images/prostitution/car/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_car_sex', 'regular_vaginal'
+		elseif $prostitute['client_scene'] = 'Anal':
+			gt 'prostitution_car_sex', '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="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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_car_sex' , 'regular_vaginal'
+	else
+		act 'Continue': gs 'prostitution_car_sex' , 'regular_switch'
+	end
+end
+
+! [x]: First check
+if $ARGS[0] = 'regular_anal':
+	*clr & cla
+	'<center><video autoplay loop src="images/prostitution/car/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_car_sex' , 'regular_anal'
+	else
+		act 'Continue': gs 'prostitution_car_sex' , 'regular_switch'
+	end
+end
+
+! [x] First check
+if $ARGS[0] = 'regular_switch':
+	if $prostitute_client_condom = 'Yes':
+		if $prostitute['client_scene'] = 'Vaginal':
+			gt 'prostitution_car_sex', 'regular_cumshot', 'vaginal_condom'
+		elseif $prostitute['client_scene'] = 'Anal':
+			gt 'prostitution_car_sex', 'regular_cumshot', 'anal_condom'
+		end
+	elseif $prostitute_client_condom = 'No':
+		if $prostitute['client_scene'] = 'Vaginal':
+			if $prostitute_client_cumshot ! 'Inside':
+				gt 'prostitution_car_sex', 'regular_cumshot', 'mouth'
+			else
+				gt 'prostitution_car_sex', 'regular_cumshot', 'vaginal_creampie'
+			end
+		elseif $prostitute['client_scene'] = 'Anal':
+			if $prostitute_client_cumshot ! 'Inside':
+				gt 'prostitution_car_sex', 'regular_cumshot', 'mouth'
+			else
+				gt 'prostitution_car_sex', '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="images/prostitution/car/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="images/prostitution/car/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="images/prostitution/car/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_car_sex', 'regular_end_0'
+	if pcs_horny >= 80: act 'Get yourself off': gt 'prostitution_car_sex', 'regular_main_lick'
+end
+
+! [x] First check
+if $ARGS[0] = 'regular_main_lick':
+	*clr & cla
+	minut += 3
+	'<center><video autoplay loop src="images/prostitution/car/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_car_sex', '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="images/prostitution/car/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="images/prostitution/car/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_car_sex', '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="images/prostitution/car/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_car_sex', '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_car_sex', 'regular_end_1'
+				end
+			else
+				act 'Get out of the car': gt 'prostitution_car_sex', 'regular_end_1'
+			end
+		end
+	else
+		gt 'prostitution_car_sex', '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="images/prostitution/car/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 'gas_station_gp_117', 'work'
+	else
+		gt 'gas_station_gp_117', 'work'
+	end
+end
+
+
+--- prostitution_car_sex ---------------------------------

+ 775 - 0
locations/prostitution_functions.qsrc

@@ -0,0 +1,775 @@
+# prostitution_functions
+
+
+!!---------- Initial set up, enabling locations, etc. -------------------------------------------------------------------
+!!-----------------------------------------------------------------------------------------------------------------------
+
+
+if $ARGS[0] = 'block_internal_prostitution':
+    prostitute['blocked'] = 1
+end
+
+if $ARGS[0] = 'set_pav_prost':
+
+    if mod_list > 0:
+        mod_i=1
+        :mod_exec
+        if $mod_name[mod_i] = 'wlife':
+            gs 'prostitution_functions', 'block_internal_prostitution'
+        end
+        if mod_list > mod_i:
+            mod_i+=1
+            jump 'mod_exec'
+        end
+    end
+    
+    if fame['pav_prostitute'] > 250 or fame['pav_slut'] > 250 and prostitute['blocked'] = 0:
+        prostitute['pavlovsk'] = 1
+        prostitute['payment_method'] = 1
+    else
+        prostitute['pavlovsk'] = 0
+    end
+end
+!!-----------------------------------------------------------------------------------------------------------------------
+!!-----------------------------------------------------------------------------------------------------------------------
+
+
+!!---------- Checking for events ------------------------------------------------------------------------------------
+
+if $ARGS[0] = 'check_solicitation_event':
+
+    if prostitute['blocked'] = 0:
+        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 $curloc ! 'shop' and menu_off = 0 and $loc = $curloc:
+
+            if prostitute['pavlovsk'] = 1 and prostitute['pav_time_hour'] ! hour and rand(-20, 70) < minut and $curloc ! 'prostitution_pavlovsk' and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc: 
+                gs 'prostitution_pavlovsk', 'chance'
+            end
+            
+            if prostitute['pavlovsk'] = 1 and PCloStyle = 4 and ShoHeels > 3 :
+                pl '<center><a href="exec: gt ''prostitution_pavlovsk'', ''search''"><img title="Click to start working in Pavlovsk." height = 80 src="images/system/icons/icon_prostitute.png"></a></center>'
+            end
+
+            if prostitute['pav_residential_prost_day'] ! daystart: prostitute['pav_residential_prost_day'] = daystart
+            !!pav_residential_prost_day
+        end 
+    end
+end
+
+
+!!---------- Willpower checks ---------------------------------------------------------------------------------------
+
+if $ARGS[0] = 'will_unprotected':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if missCum >= timeTresh: will_calc += 100
+	if $ARGS[1] = 'resist':
+		if pro_stats['unprotected'] <= 90:
+			will_cost = (10 + pro_stats['unprotected'] + will_calc) / 10
+		else
+			will_cost = (100 + will_calc)/10
+		end
+	else
+		if pro_stats['unprotected'] <= 90:
+			will_cost = (100 - pro_stats['unprotected'] + will_calc) / 10
+		else
+			will_cost = (10 + will_calc)/10
+		end
+	end
+	gs 'willpower', 'difficulty', '<<$ARGS[2]>>'
+end
+
+if $ARGS[0] = 'will_rimming':
+	gs 'willpower', 'calc'
+
+	if $ARGS[1] = 'self':
+		if stat['rimming_give'] <= 90:
+			will_cost = (100 - stat['rimming_give'] + will_calc)/10
+		else
+			will_cost = (10 + will_calc)/10
+		end
+	elseif $ARGS[1] = 'force':
+		if stat['rimming_give'] <= 40:
+			will_cost = (110 - will_enforced - stat['rimming_give'] + will_calc)/10
+		else
+			will_cost = (70 - will_enforced + will_calc)/10
+		end
+	else
+		if stat['rimming_give'] <= 90:
+			will_cost = (10 + stat['rimming_give'] + will_calc)/10
+		else
+			will_cost = (100 + will_calc)/10
+		end
+	end
+	gs 'willpower', 'difficulty', '<<$ARGS[2]>>'
+end
+
+if $ARGS[0] = 'will_atm':
+	gs 'willpower', 'calc'
+
+	if $ARGS[1] = 'self':
+		if pro_stats['atm'] <= 90:
+			will_cost = (100 - pro_stats['atm'] + will_calc)/10
+		else
+			will_cost = (10 + will_calc)/10
+		end
+	elseif $ARGS[1] = 'force':
+		if pro_stats['atm'] <= 40:
+			will_cost = (110 - will_enforced - pro_stats['atm'] + will_calc)/10
+		else
+			will_cost = (70 - will_enforced + will_calc)/10
+		end
+	else
+		if pro_stats['atm'] <= 90:
+			will_cost = (10 + pro_stats['atm'] + will_calc)/10
+		else
+			will_cost = (100 + will_calc)/10
+		end
+	end
+	gs 'willpower', 'difficulty', '<<$ARGS[2]>>'
+end
+
+
+!!---------- Condoms & STDs--------------------------------------------------------------------------------------
+
+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 'prostitution_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 'prostitution_functions' , 'std_chance'
+	end
+end
+
+if $ARGS[0] = 'std_chance':
+	if cheatHealth = 0:
+		if pro_std_check_rand = 8:
+			!!herpes
+			if rand(1, 100) > 90:
+				if GerpesOnce = 0:
+					GerpesOnce = 1
+					Venera += 1
+					Gerpes += 1
+					GenHerpes = 1
+				end
+			end
+		elseif pro_std_check_rand = 7:
+			!!syphilis
+			if rand(1, 100) > 95: Venera += 1
+			if SifacOnce = 0:
+				SifacOnce = 1
+				Sifilis += 1
+			end
+		elseif pro_std_check_rand >= 5 and pro_std_check_rand < 7:
+			!!gonorrhea/triper
+			if rand(1, 100) > 95: Venera += 1
+			if TriperOnce = 0:
+				TriperOnce = 1
+				Triper += 1
+			end
+		elseif pro_std_check_rand < 5:
+			!!candidiasis/thrush
+			if rand(1, 100) > 85:
+				if KandidozOnce = 0:
+					KandidozOnce = 1
+					Kandidoz += 1
+				end
+			end
+		end
+	end
+end
+
+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 'prostitution_functions' , 'std_oral_chance'
+	else
+		if $ARGS[1] = 'high':
+			pro_std_rand = rand(-20,120)
+		elseif $ARGS[1] = 'low':
+			pro_std_rand = rand(-80,90)
+		else
+			pro_std_rand = rand(-60,100)
+		end
+		if pro_std_rand >= 80: gs 'prostitution_functions' , 'std_oral_chance'
+	end
+end
+
+if $ARGS[0] = 'std_oral_chance':
+	if cheatHealth = 0:
+		if pro_std_check_rand >= 5 and pro_std_check_rand < 7:
+			if rand(1, 100) > 95: Venera += 1
+			if TriperOnce = 0:
+				TriperOnce = 1
+				TriperOral += 1
+				if rand (0,100) < 15: TriperOralSigns = 1
+			end
+		elseif pro_std_check_rand = 7:
+			if rand(0,1) = 1:
+				!!syphilis
+				if rand(1, 100) > 95: Venera += 1
+				if SifacOnce = 0:
+					SifacOnce = 1
+					Sifilis += 1
+				end
+			end
+		elseif pro_std_check_rand < 5:
+			!!candidiasis/thrush
+			if rand(1, 100) > 85:
+				if KandidozOnce = 0:
+					KandidozOnce = 1
+					Kandidoz += 1
+				end
+			end
+		elseif pro_std_check_rand = 8:
+			!!herpes
+			if rand(1, 100) > 90:
+				if GerpesOnce = 0:
+					GerpesOnce = 1
+					Venera += 1
+					Gerpes += 1
+					OrHerpes = 1
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'remove_condom':
+	if prezik > 0:
+		prezik -= 1
+	else
+		prezikcount -= 1
+	end
+end
+
+if $ARGS[0] = 'your_condom':
+	prostitute['condom'] = 1
+	protect = iif(prezik > 0,1,0)
+	if prezik > 0:
+		if rand(1,prezik) <= badprezik:
+			badprezik -= 1
+			noprotect = 1
+			sexcontra = 7
+		else
+			sexcontra = 3
+		end
+		prezik -= 1
+		sexcontra = iif(preziktype = 2,7,sexcontra)
+	else
+		sexcontra = 0
+	end
+end
+
+if $ARGS[0] = 'his_condom':
+	$bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
+	protect = 1
+	sexcontra = 3
+	*p '<<ucase(mid($bwa_boy,1,1))>><<mid($bwa_boy,2,len($bwa_boy)-1)>> takes his condom and puts it on his <<dick>> centimeter dick.'
+end
+
+
+!!---------- Background: Black-----------------------------------------------------------------------------------
+
+if $ARGS[0] = 'darkness':
+	fcolor = rgb(255, 255, 255)
+	bcolor = rgb(0, 0, 0)
+	lcolor = rgb(106, 90, 205)
+end
+
+if $ARGS[0] = 'parameters':
+	!!Reset
+	protect = 0
+	sexcontra = 0
+	$pro_client_condom = 'tbd'
+	$pro_client_cumshot = 'tbd'
+
+	!!Client
+	gs 'npcgeneratec', 0, 'client', rand(18,65)
+	gs 'boyStat', $npclastgenerated
+
+	!!
+!!---------- Time -----------------------------------------------------------------------------------------------
+
+	if hour > 19 or hour < 7:
+		$pro_work_time = 'night'
+	else
+		$pro_work_time = 'day'
+	end
+
+	gs 'prostitution_functions', 'std_cum_check'
+
+!!---------- Client Likes/Dislikes ------------------------------------------------------------------------------
+
+	if rand(1,10) = 10:
+		prostitute['mesec_mod'] = 1
+	else
+		prostitute['mesec_mod'] = 0
+	end
+
+	if rand(1,100) > 97:
+		prostitute['dirty_anal_mod'] = 1
+	else
+		prostitute['dirty_anal_mod'] = 0
+	end
+
+	if rand(1,10) = 10:
+		prostitute['cum_visible_mod'] = 1
+	else
+		prostitute['cum_visible_mod'] = 0
+	end
+
+!!---------- Age ------------------------------------------------------------------------------------------------
+
+	if vidage < 18 and rand(1,10) < 7:
+		prostitute['vidage_mod'] = 1
+	else
+		prostitute['vidage_mod'] = 0
+	end
+
+!!---------- Scenes ----------------------------------------------------------------------------------------------	
+!!----------------------------------------------------------------------------------------------------------------	
+
+	pro_scene_rand = rand(1,100)
+
+	if pro_scene_rand <= 50:
+		if mesec = 0 or prostitute['mesec_mod'] = 1:
+			$prostitute['client_scene'] = 'Vaginal'
+		elseif mesec > 0 and prostitute['mesec_mod'] = 0 and (prostitute['enema'] = 1 or prostitute['dirty_anal_mod'] = 1):
+			$prostitute['client_scene'] = 'Anal'
+		else
+			$prostitute['client_scene'] = 'Blowjob'
+		end
+	elseif pro_scene_rand > 50 and pro_scene_rand <= 75:
+		if prostitute['enema'] = 1 or prostitute['dirty_anal_mod'] = 1:
+			$prostitute['client_scene'] = 'Anal'
+		elseif prostitute['enema'] = 0 and prostitute['dirty_anal_mod'] = 0 and (mesec = 0 or prostitute['mesec_mod'] = 1):
+			$prostitute['client_scene'] = 'Vaginal'
+		else
+			$prostitute['client_scene'] = 'Blowjob'
+		end
+	else
+		$prostitute['client_scene'] = 'Blowjob'
+	end
+
+	!!---- Regular Worker ----------------------------------------------------------------------------------------	
+
+	if prostitute['customer_total'] < 10:
+		prostitute['regular_chance'] = 0
+	elseif prostitute['customer_total'] >= 10 and prostitute['customer_total'] <= 25:
+		prostitute['regular_chance'] = 1
+	elseif prostitute['customer_total'] > 25 and prostitute['customer_total'] <= 50:
+		prostitute['regular_chance'] = 2
+	elseif prostitute['customer_total'] > 50 and prostitute['customer_total'] <= 100:
+		prostitute['regular_chance'] = 3
+	elseif prostitute['customer_total'] > 100 and prostitute['customer_total'] <= 250:
+		prostitute['regular_chance'] = 4
+	end
+
+	!!---- Chance to find a client --------------------------------------------------------------------------------	
+
+	prostitute['client_chance'] = hotcat * 10 + prostitute['regular_chance'] * 5 + rand(1,100) + prostitute['pity_counter']
+	if $pantyworntype = 'sexshop' and CloSkirtShortness > 4: prostitute['client_chance'] += 10
+
+	!!---- Client ------------------------------------------------------------------------------------------------	
+
+	if prostitute['regular_timer'] ! daystart and $prostitute['client_scene'] ! 'Blowjob':
+		if (prostitute['regular_chance'] = 1 and rand(1,100) > 95) or (prostitute['regular_chance'] = 2 and rand(1,100) > 90) or (prostitute['regular_chance'] = 3 and rand(1,100) > 80) or (prostitute['regular_chance'] = 4 and rand(1,100) > 60):
+			prostitute['regular'] = 1
+		else
+			prostitute['regular'] = 0
+		end
+	else
+		prostitute['regular'] = 0
+	end
+
+!!ToDo: Rough Clients
+!!	if prostitute['regular'] = 0:
+!!		if (pro_work_day = 0 and rand(1,100) > 90) or (pro_work_day = 1 and rand(1,100) > 95):
+!!			if prostitute['rough'] = 1
+!!		else
+!!			prostitute['rough'] = 0
+!!		end
+!!	end
+
+	if prostitute['regular'] = 0 and prostitute['rough'] = 0 and prostitute['std_mod'] = 0 and rand(1,100) > iif($pro_brand['text_pubic'] = 'cumslut', 84, 92):
+		prostitute['client_creampie'] = 1
+	else
+		prostitute['client_creampie'] = 0
+	end
+
+	if prostitute['rough'] = 1 or (prostitute['rough'] = 0 and rand(1,100) > 40):
+		prostitute['propose'] = 0
+	else
+		prostitute['propose'] = 1
+	end
+end
+
+!!---------- Payment ---------------------------------------------------------------------------------------------	
+
+if $ARGS[0] = 'payment':
+	!!---- Basic Payment -----------------------------------------------------------------------------------------	
+
+	if $ARGS[1] = 'pav':
+		if $prostitute['pav_scene'] = 'blowjob':
+			prostitute['payment'] = 425
+		elseif $prostitute['pav_scene'] = 'anal':
+			prostitute['payment'] = 1200
+		else
+			prostitute['payment'] = 1000
+		end
+	else
+		if $prostitute['client_scene'] = 'Blowjob':
+			prostitute['payment'] = 350
+			if $ARGS[1] = 'condom_no': prostitute['payment'] += 75
+			if $ARGS[2] = 'inside_yes': prostitute['payment'] += 50
+		elseif $prostitute['client_scene'] = 'Vaginal':
+			prostitute['payment'] = 700
+			if $ARGS[1] = 'condom_no': prostitute['payment'] += 300
+			if $ARGS[2] = 'inside_yes': prostitute['payment'] += 300
+		elseif $prostitute['client_scene'] = 'Anal':
+			prostitute['payment'] = 900
+			if $ARGS[1] = 'condom_no': prostitute['payment'] += 200
+			if $ARGS[2] = 'inside_yes': prostitute['payment'] += 100
+		end
+	end
+
+	!!---- Bonus -------------------------------------------------------------------------------------------------	
+	
+	prostitute['payment_mod'] = hotcat * 10
+	if pcs_makeup = 0:
+		prostitute['payment_mod'] -= 20
+	elseif pcs_makeup > 1:
+		prostitute['payment_mod'] += pcs_makeup * 10
+	end
+
+	if mesec > 0 and $prostitute['client_scene'] = 'Vaginal':
+		if prostitute['mesec_mod'] = 0:
+			prostitute['payment_mod'] -= 200
+		else
+			prostitute['payment_mod'] += 300
+		end
+	end
+
+	if prostitute['enema'] = 0 and $prostitute['client_scene'] = 'Anal':
+		if prostitute['dirty_anal_mod'] = 0:
+			if $ARGS[1] = 'condom_no':
+				prostitute['payment_mod'] -= 600
+			elseif $ARGS[1] = 'condom_yes':
+				prostitute['payment_mod'] -= 300
+			end
+		else
+			prostitute['payment_mod'] += 300
+		end
+	end
+
+	if prostitute['cum_dressed'] = 1:
+		if prostitute['cum_visible_mod'] = 0:
+			prostitute['payment_mod'] -= 200
+		else
+			prostitute['payment_mod'] += 300
+		end
+	end
+
+	prostitute['payment_mod'] += pcs_mood - 50
+
+	if $pantyworntype = 'sexshop' and CloSkirtShortness > 4: prostitute['payment_mod'] += 50
+
+	if prostitute['vidage_mod'] = 1:
+		prostitute['payment_mod'] += 50 * (18 - vidage)
+	else
+		prostitute['payment_mod'] -= 50 * (18 - vidage)
+	end
+
+	if ($prostitute['client_scene'] = 'Blowjob') or ($prostitute['pav_scene'] = 'blowjob'):
+		prostitute['payment_mod'] = prostitute['payment_mod'] / 2
+		if pirsA = 2:
+			prostitute['payment_mod'] += 50
+		elseif pirsA = 4:
+			prostitute['payment_mod'] += 75
+		elseif pirsA > 0 and pirsA < 10000:
+			prostitute['payment_mod'] += 25
+		end
+	end
+	prostitute['payment'] += prostitute['payment_mod']
+	prostitute['payment_backup'] = prostitute['payment']
+
+	prostitute['payment'] = (prostitute['payment'] * (100 + prostitute['client_satisfaction'])) / 100
+
+	!!Rounding
+	prostitute['payment'] = func('prostitution_functions', 'exact_round', prostitute['payment'], 10)
+	prostitute['payment_backup'] = func('prostitution_functions', 'exact_round', prostitute['payment_backup'], 10)
+end
+
+!!---------- Abortion --------------------------------------------------------------------------------------------	
+
+if $ARGS[0] = 'abortion':
+	abort += 1
+	abortionbirthdate = daystart
+
+	gs 'medical_din', 'remove_preg'
+	knowpregloss = 2
+
+	abortrand = rand(0, 10)
+	if age > 18:
+		if abortrand < 10:sterilewb += 1
+		if abortrand = 10:sterilewb += 10
+	else
+		if abortrand < 7:sterilewb += 2
+		if abortrand >= 7:sterilewb += 10
+	end
+	killvar 'abortrand'
+
+	pcs_hydra += 20
+
+	if broodcurse > 0: over = 13 & gt'gameover'
+end
+
+!!---------- Random Name -----------------------------------------------------------------------------------------	
+
+if $ARGS[0] = 'random_name':
+
+	$pro_boyname[1] = ''
+	$pro_boyname[2] = ''
+
+	:pro_rng_jump
+
+	pro_temp = rand(0,23)
+
+	if pro_temp = 0:
+		$pro_temp = 'Abram'
+	elseif pro_temp = 1:
+		$pro_temp = 'Alexei'
+	elseif pro_temp = 2:
+		$pro_temp = 'Adrian'
+	elseif pro_temp = 3:
+		$pro_temp = 'Dima'
+	elseif pro_temp = 4:
+		$pro_temp = 'Dimitri'
+	elseif pro_temp = 5:
+		$pro_temp = 'Igor'
+	elseif pro_temp = 6:
+		$pro_temp = 'Leonid'
+	elseif pro_temp = 7:
+		$pro_temp = 'Petka'
+	elseif pro_temp = 8:
+		$pro_temp = 'Michail'
+	elseif pro_temp = 9:
+		$pro_temp = 'Vasily'
+	elseif pro_temp = 10:
+		$pro_temp = 'Oleg'
+	elseif pro_temp = 11:
+		$pro_temp = 'Olezka'
+	elseif pro_temp = 12:
+		$pro_temp = 'Pasha'
+	elseif pro_temp = 13:
+		$pro_temp = 'Pavel'
+	elseif pro_temp = 14:
+		$pro_temp = 'Sacha'
+	elseif pro_temp = 15:
+		$pro_temp = 'Slava'
+	elseif pro_temp = 16:
+		$pro_temp = 'Ruslan'
+	elseif pro_temp = 17:
+		$pro_temp = 'Taras'
+	elseif pro_temp = 18:
+		$pro_temp = 'Timofey'
+	elseif pro_temp = 19:
+		$pro_temp = 'Vanya'
+	elseif pro_temp = 20:
+		$pro_temp = 'Viktor'
+	elseif pro_temp = 21:
+		$pro_temp = 'Vladimir'
+	elseif pro_temp = 22:
+		$pro_temp = 'Yaromir'
+	elseif pro_temp = 23:
+		$pro_temp = 'Yevgeni'
+	end
+
+	if $pro_boyname[1] = '':
+		$pro_boyname[1] = $pro_temp
+		jump 'pro_rng_jump'
+	elseif $pro_boyname[2] = '':
+		$pro_boyname[2] = $pro_temp
+	end
+
+	if $pro_boyname[1] = $pro_boyname[2]:
+		$pro_boyname[2] = ''
+		jump 'pro_rng_jump'
+	end
+
+	killvar 'pro_temp'
+	killvar '$pro_temp'
+end
+
+!!---------- Payment ---------------------------------------------------------------------------------------------	
+
+if $ARGS[0] = 'tat_pierce_count':
+	tattCount = 0
+
+	if tatarm >= 1: tattCount += 1
+	if tatass >= 1:	tattCount += 1
+	if tatback >= 1: tattCount += 1
+	if tatblly >= 1: tattCount += 1
+	if tatbrst >= 1: tattCount += 1
+	if tatchst >= 1: tattCount += 1
+	if tatfce >= 1:	tattCount += 1
+	if tatankle >= 1: tattCount += 1
+	if tatleg >= 1:	tattCount += 1
+	if tatlip >= 1:	tattCount += 1
+	if tatneck >= 1: tattCount += 1
+	if tatvag >= 1: tattCount += 1
+	if tatlech >= 1: tattCount += 1
+	if tatside >= 1: tattCount += 1
+	if tatupb >= 1: tattCount += 1
+	if tatunder >= 1: tattCount += 1
+	if tatwrist >= 1: tattCount += 1
+	if tathand >= 1: tattCount += 1
+
+	pierWearCount = 0
+
+	if pirsA > 0 and pirsA ! 10000:	pierWearCount += 1
+	if pirsB > 0 and pirsB ! 10000:	pierWearCount += 1
+	if pirsC > 0 and pirsC ! 10000:	pierWearCount += 1
+	if pirsD > 0 and pirsD ! 10000:	pierWearCount += 1
+	if pirsE > 0 and pirsE ! 10000:	pierWearCount += 1
+	if pirsF > 0 and pirsF ! 10000:	pierWearCount += 1
+	if pirsG > 0 and pirsG ! 10000:	pierWearCount += 1
+	if pirsN > 0 and pirsN ! 10000:	pierWearCount += 1
+end
+
+!!---------- Random Name -----------------------------------------------------------------------------------------	
+
+if $ARGS[0] = 'pav_client':
+	!!Reset
+	prostitute['pav_internal'] = 0
+
+	gs 'prostitution_functions', 'std_cum_check'
+
+	!!Regular
+	if prostitute['pav_total'] < 10:
+		prostitute['pav_chance'] = 0
+	elseif prostitute['pav_total'] >= 10 and prostitute['pav_total'] <= 25:
+		prostitute['pav_chance'] = 1
+	elseif prostitute['pav_total'] > 25 and prostitute['pav_total'] <= 50:
+		prostitute['pav_chance'] = 2
+	elseif prostitute['pav_total'] > 50 and prostitute['pav_total'] <= 100:
+		prostitute['pav_chance'] = 3
+	elseif prostitute['pav_total'] > 100 and prostitute['pav_total'] <= 250:
+		prostitute['pav_chance'] = 4
+	end
+
+	if ((prostitute['pav_chance'] = 1 and rand(1,100) > 95) or (prostitute['pav_chance'] = 2 and rand(1,100) > 90) or (prostitute['pav_chance'] = 3 and rand(1,100) > 80) or (prostitute['pav_chance'] = 4 and rand(1,100) > 60)) and (pro_rand ! 8 or (pro_rand = 8 and prostitute['pav_regular_s8'] = 1)):
+		prostitute['pav_regular'] = 1
+!!	elseif prostitute['pav_chance'] > 0 and rand(1,100) > 92:
+!!		prostitute['pav_regular'] = -1
+	else
+		prostitute['pav_regular'] = 0
+	end
+
+!!ToDo: Add cheat for this chance
+	$prostitute['client_behavior'] = iif(rand(1,100) < prostitute['client_behavior_chance'] or prostitute['pav_regular'] = -1, 'nice', 'abusive')
+
+	!!---- Scene --------------------------------------------------------------------------------------------------	
+	
+	if pro_rand > 7:
+		$prostitute['pav_scene'] = 'anal'
+	elseif mesec = 0 and rand(0,100) < 50:
+		$prostitute['pav_scene'] = 'pussy'
+	else
+		$prostitute['pav_scene'] = 'blowjob'
+	end
+
+	if pro_rand = 0 or pro_rand = 8 or pro_rand = 9 or ((pro_rand = 2 or pro_rand = 3 or (pro_rand = 5 and $prostitute['client_behavior'] = 'nice') or pro_rand = 6 or pro_rand = 7) and $prostitute['pav_scene'] = 'pussy'):
+		$prostitute['pav_location'] = 'private'
+		if pro_rand = 3 or pro_rand = 8: $prostitute['client_behavior'] = 'abusive'
+	elseif pro_rand = 1 and $prostitute['pav_scene'] = 'pussy':
+		$prostitute['pav_location'] = iif($prostitute['client_behavior'] = 'nice', 'private', 'public')
+	elseif ((pro_rand = 2 or pro_rand = 3 or pro_rand = 6 or pro_rand = 7) and $prostitute['pav_scene'] = 'blowjob') or pro_rand = 4 or pro_rand = 5:
+		$prostitute['pav_location'] = 'public'
+		if pro_rand = 5: $prostitute['client_behavior'] = 'abusive'
+	else
+		gt 'prostitution_pavlovsk', 'rng'
+	end
+
+	if prostitute['pav_regular_s8'] = 1 and pro_rand = 8: prostitute['pav_regular'] = 1
+
+	if (pro_rand = 3 or pro_rand = 8) and $prostitute['pav_scene'] = 'private' and prostitute['pav_regular'] = 1:
+		prostitute['pav_condom_refusal'] = 1
+	else
+		prostitute['pav_condom_refusal'] = 0
+	end
+
+	!!---- Generator ----------------------------------------------------------------------------------------------	
+	
+	gs 'npcgeneratec', 0, 'pavlovsk client', rand(18,45)
+	gs 'boyStat', $npclastgenerated
+end
+
+!!---- Checking visible STD and cum -------------------------------------------------------------------------------	
+
+if $ARGS[0] = 'std_cum_check':
+	!!---- Visible STD --------------------------------------------------------------------------------------------	
+	
+	if pcs_apprnc = -10 and rand(1,10) < 8:
+		prostitute['std_mod'] = 1
+	else
+		prostitute['std_mod'] = 0
+	end
+
+	!!---- Non-Visible Cum ----------------------------------------------------------------------------------------	
+	
+	if cumloc[0] = 1:
+		prostitute['cum_vaginal_mod'] = 1
+	else
+		prostitute['cum_vaginal_mod'] = 0
+	end
+
+	if cumloc[3] = 1:
+		prostitute['cum_anal_mod'] = 1
+	else
+		prostitute['cum_anal_mod'] = 0
+	end
+
+	!!---- Visible Cum (Dressed) ----------------------------------------------------------------------------------	
+	
+	if cumloc[7] = 1 or cumloc[11] = 1 or cumloc[13] = 1 or cumloc[15] = 1:
+		prostitute['cum_dressed'] = 1
+	else
+		prostitute['cum_dressed'] = 0
+	end
+
+	!!Visible Cum (Undressed)
+	if cumloc[1] = 1 or cumloc[4] = 1 or cumloc[8] = 1 or cumloc[14] = 1 or cumloc[16] = 1:
+		prostitute['cum_undressed'] = 1
+	else
+		prostitute['cum_undressed'] = 0
+	end
+end
+
+	
+!!---------- Exact Rounding --------------------------------------------------------------------------------------	
+if $ARGS[0] = 'exact_round':
+	!! ARGS[1] = value you want divided
+	!! ARGS[2] = divider
+	!!  func('prostitution_functions','exact_round', number, divider)
+	!!  func('prostitution_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
+		round_number = round_number * ARGS[2]
+		result = round_number
+		killvar 'round_number'
+	else
+		'<b>Developer Note: No division by 0. Please report this and some text from the mainscreen as a bug in the whore life thread.</b>'
+	end
+end
+
+
+--- prostitution_functions ---------------------------------

+ 1378 - 0
locations/prostitution_pavlovsk.qsrc

@@ -0,0 +1,1378 @@
+# prostitution_pavlovsk
+
+!!----- Random solicitation and active prostitution scenes in Pavlovsk -----------------------------------------------
+!!-- It can be used in other places too, potentially, at least the mechanics, but the scenese can be very Pavlovsk  --
+!!-- specific, referring to Pavlovsk characteristics: train, office building, etc.                                  --
+!!--                                                                                                                --
+!!-- Also the variables are still very Pavlovsk specific.                                                           --
+!!-- I think the way it is handled fits Pavlovsk, but not really anywhere else. St. Petersburg is too big,          --
+!!-- Gadukino is too small.                                                                                         --
+!!--------------------------------------------------------------------------------------------------------------------
+
+
+if $ARGS[0] = 'chance':
+	gs 'prostitution_pavlovsk', 'pav_rnd'
+	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_pavlovsk', 'rng'
+	end
+end
+
+if $ARGS[0] = 'pav_rnd':
+	if prostitute['pav_timer_day'] ! daystart:
+		prostitute['pav_daily_count'] = 0
+		prostitute['pav_timer_day'] = daystart
+	end
+
+	prostitute['pav_timer_hour'] = hour
+	prostitute['pav_daily_max'] = (fame['pav_prostitute'] / 100) + 2
+
+	prostitute['pav_rnd'] = fame['pav_prostitute'] + 50 + prostitute['pav_rnd_pity']
+	if PCloStyle = 4 and ShoHeels > 3: prostitute['pav_rnd'] += 100
+	if pcs_makeup = 4: prostitute['pav_rnd'] += 50
+	prostitute['pav_rnd'] -= (prostitute['pav_cooldown'] * 100)
+	if prostitute['pav_cooldown'] > 0: prostitute['pav_cooldown'] -= 1
+	prostitute['pav_rnd_pity'] += 20
+end
+
+if $ARGS[0] = 'rng':
+!!ToDo: has to be increased if more events are added AND the rands for abusive clients below
+	pro_rand = rand(0,7)
+!!ToDo: This has to be changed if more scenes are added
+	if pro_rand > 5: pro_rand += 2
+	gs 'prostitution_functions', 'pav_client'
+	gs 'prostitution_functions', 'payment', 'pav'
+	if prostitute['cum_dressed'] = 1 or prostitute['std_mod'] = 1:
+		gt $loc, $loc_arg
+	else
+		prostitute['pav_search'] = 0
+		prostitute['pav_rnd_pity'] = 0
+		gt 'prostitution_pavlovsk', 'start'
+	end
+end
+
+if $ARGS[0] = 'search':
+	*clr & cla
+!!ToDo: has to be increased if more events are added AND the rands for abusive clients below
+	pro_rand = rand(0,7)
+!!ToDo: This has to be changed if more scenes are added
+	if pro_rand > 5: pro_rand += 2
+	gs 'prostitution_functions', 'pav_client'
+	gs 'prostitution_functions', 'payment', 'pav'
+	gs 'stat'
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/search.mp4"></video></center>'
+	'You can walk around Pavlovsk to look for somebody that''s interested in buying your services. Since Pavlovsk isn''t a big city you expect that with your current fame you won''t find more than <<prostitute[''pav_daily_max'']>> guys per day and '+iif(prostitute['pav_daily_count'] >= prostitute['pav_daily_max'], 'you already had <<prostitute[''pav_daily_count'']>> customers.', 'you only had <<prostitute[''pav_daily_count'']>> customers today.')
+
+	if prostitute['cum_dressed'] = 1: 'People can see cum on you. You should clean it before searching for a client.'
+	if prostitute['std_mod'] = 1: 'Customers won''t approach you as long as you show signs of an STD.'
+
+	act 'Stop working': gt $loc, $loc_arg
+
+	if prostitute['cum_dressed'] = 0 and prostitute['std_mod'] = 0 and hour > 6 and hour < 23:
+		if will_cost <= pcs_willpwr and prostitute['pav_daily_count'] < prostitute['pav_daily_max']:
+			act 'Look for a customer (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'self'
+
+				gs 'prostitution_pavlovsk', 'pav_rnd'
+				prostitute['pav_rnd'] += 100
+
+				if rand(1,1000) < min(prostitute['pav_rnd'], 600):
+					minut += rand(5,40)
+					prostitute['pav_search'] = 1
+					prostitute['pav_rnd_pity'] = 0
+					gt 'prostitution_pavlovsk', 'start'
+				else
+					*clr & cla
+					minut += 40
+					gs 'stat'
+					'<center><video autoplay loop src="images/prostitution/pavlovsk/street/search.mp4"></video></center>'
+					'You walked around Pavlovsk for an hour, but nobody was interested in you.'
+
+					act 'Continue': gt 'prostitution_pavlovsk', 'search'
+				end
+			end
+		elseif will_cost > pcs_willpwr and prostitute['pav_daily_count'] < prostitute['pav_daily_max'] and hour > 6 and hour < 23:
+			act 'Look for a customer (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		elseif prostitute['pav_daily_count'] >= prostitute['pav_daily_max']:
+			'<br>It''s probably not worthwhile to keep looking for clients. You can try again tomorrow.'
+		else
+			'<br>Pavlovsk is a small town and its streets are empty at this hour.'
+		end
+	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_pavlovsk', 'search'
+		end
+	elseif salfetka = 0:
+		'<br>You don''t have any tissues with you to remove cum from your body.'
+	end
+
+	if joint > 0 and pro_drugs['status'] > 0 and pro_drugs['timer_pavlovsk'] ! daystart:
+		act 'Take a break and smoke a joint':
+			*clr & cla
+			menu_off = 1
+			minut += 5
+			pro_drugs['timer_pavlovsk'] = daystart
+			'<center><img <<$set_imgh>> src="images/player/joint_smoking.jpg"></center>'
+			'You head into a nearby back alley 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_pavlovsk', 'search'
+		end
+	end
+end
+
+if $ARGS[0] = 'start':
+	*clr & cla
+	minut += 4
+	menu_off = 1
+	prostitute['pav_daily_count'] += 1
+	gs 'willpower', 'prostitution', 'self', iif(prostitute['pav_regular'] = 1, 'easy', 'medium')
+    
+	gs 'stat'
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_'+iif(prostitute['pav_regular'] = 0, rand(0,3), pro_rand)+'/start.mp4"></video></center>'
+	if $prostitute['client_behavior'] = 'nice' and prostitute['pav_regular'] < 1:
+		'"Excuse me," an approaching man says. "I''m sorry to disturb you, but are you by any chance <<$pcs_nickname>>? A friend of mine showed me a photo of you and said you...," he hesitates and looks around to make sure that nobody is in earshot. "Could I buy your services?"'
+	elseif $prostitute['client_behavior'] = 'nice' and prostitute['pav_regular'] = 1:
+		'"Hello <<$pcs_nickname>>," one of your regulars says. "It''s a good to see you again. How are you?"'
+		'You smile. "Nice to see you again and I''m fine, thanks for asking."'
+		'He takes a look around to make sure that nobody is around to see you, before asking. "Could I buy your services again?"'
+	elseif $prostitute['client_behavior'] = 'abusive' and prostitute['pav_regular'] < 1:
+		if pro_rand < 2: gs 'fame', 'pav', 'prostitute', iif(PCloStyle = 4, 2, 1)
+		'"Hey!" a man shouts and waves towards you. "Aren''t you that teen whore <<$pcs_nickname>>?"'+iif(pro_rand < 4, ' He''s so loud that a few people turn around and stare at you disapprovingly.', ' To your relief nobody else is in earshot.')+' "Are you available? I always wanted to fuck a young slut like you."'
+	elseif $prostitute['client_behavior'] = 'abusive' and prostitute['pav_regular'] = 1:
+		if pro_rand < 2: gs 'fame', 'pav', 'prostitute', iif(PCloStyle = 4, 2, 1)
+		'"If that isn''t my favorite '+iif(rand(0,1) = 0, 'whore', 'fuckmeat')+'," one of your regulars says so loud that '+iif(pro_rand < 4, 'several people turn around to take a look at who he''s talking about.', 'people could have overheard that if somebody else would have been around.')+' "Are you up for some fun <<$pcs_nickname>>?"'
+	end
+	*nl
+	'He wants '+iif($prostitute['pav_scene'] = 'blowjob', 'you to give him a blowjob', 'to fuck your '+iif($prostitute['pav_scene'] = 'anal', 'ass', 'pussy'))+' and offers to pay <<prostitute[''payment'']>> <b>₽</b>. He wants to do it without a condom and it would take some convincing and a price reduction of '+iif($prostitute['pav_scene'] = 'blowjob', '75', '200')+' <b>₽</b> to change his mind.'
+
+	gs 'willpower', 'prostitution', 'resist', 'medium'
+	if $prostitute['client_behavior'] = 'nice': will_cost = (will_cost * 60) / 100
+	if will_cost <= pcs_willpwr:
+		act 'Decline and walk away (<<will_cost>> Willpower)':
+			gs 'willpower', 'prostitution', 'resist', 'medium'
+			if $prostitute['client_behavior'] = 'nice': will_cost = (will_cost * 60) / 100
+			gs 'willpower', 'pay', 'resist'
+			gt $loc, $loc_arg
+		end
+	else
+		act 'Decline and walk 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':
+		!!STDs are handled by the mod
+		cumnostd = 1
+		minut += 2
+		money += prostitute['payment']
+		pro_stats['unprotected'] += 1
+		prostitute['pav_condom'] = 0
+		prostitute['pav_total'] += 1
+		prostitute['pav_cooldown'] += 2
+		if pro_mother['knows'] = 0 and fame['pav_prostitute'] > rand(100,200) and prostitute['pav_total'] > 25 and (($prostitute['pav_location'] = 'public' and rand(0,1000) < fame['pav_prostitute']) or ($prostitute['pav_location'] = 'private' and rand(0,2000) < fame['pav_prostitute'])): pro_mother['knows'] = 1
+		gt 'prostitution_pavlovsk', iif(prostitute['pay_regular'] > -1, 'set_<<pro_rand>>', 'rape')
+	end
+
+	if prostitute['pav_condom_refusal'] = 1:
+		prostitute['pav_condom_refusal'] = 0
+		'<br>He''s one of those guys who always refuses to put on a condom. It makes no sense to ask him to use one.'
+	else
+		gs 'prostitution_functions', 'will_unprotected', 'resist', iif($prostitute['client_behavior'] = 'abusive', 'medium', 'easy')
+		if will_cost <= pcs_willpwr and pro_status['condoms'] > 0:
+			act 'Accept, but demand a condom (<<will_cost>> Willpower)':
+				!!STDs are handled by the mod
+				cumnostd = 1
+				minut += 5
+				prostitute['pav_payment'] -= iif($prostitute['pav_scene'] = 'pussy', -200, -75)
+				money += prostitute['payment']
+				prostitute['pav_condom'] = 1
+				prostitute['pav_total'] += 1
+				prostitute['pav_cooldown'] += 2
+				if (pro_rand ! 3 and pro_rand ! 8) or (pro_rand = 3 and $prostitute['pav_scene'] ! 'private'): gs 'prostitution_functions', 'remove_condom'
+				gs 'prostitution_functions', 'will_unprotected', 'resist', iif($prostitute['client_behavior'] = 'abusive', 'hard', 'easy')
+				gs 'willpower', 'pay', 'self'
+				if pro_mother['knows'] = 0 and fame['pav_prostitute'] > 200 and prostitute['pav_total'] > 25 and (($prostitute['pav_location'] = 'public' and rand(0,1000) > fame['pav_prostitute']) or ($prostitute['pav_location'] = 'private' and rand(0,2000) > fame['pav_prostitute'])): pro_mother['knows'] = 1
+				gt 'prostitution_pavlovsk', iif(prostitute['pay_regular'] > -1, 'set_<<pro_rand>>', 'rape')
+			end
+		elseif will_cost > pcs_willpwr and pro_status['condoms'] > 0:
+			act 'Accept, but demand a condom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		elseif pro_status['condoms'] = 0:
+			'<br>You''re out of condoms.'
+		end
+	end
+
+	gs 'willpower', 'prostitution', 'resist', 'medium'
+	will_cost = (will_cost * iif($prostitute['client_behavior'] = 'abusive', 120, 80)) / 100
+	if will_cost <= pcs_willpwr and prostitute['pav_regular'] = 0 and prostitute['pav_search'] = 0:
+		act 'React angrily (<<will_cost>> Willpower)':
+			cla & *nl
+			gs 'fame', 'pav', 'prostitute', iif(PCloStyle = 4 and $prostitute['client_behavior'] = 'abusive', -1, -2)
+			gs 'willpower', 'prostitution', 'resist', 'medium'
+			will_cost = (will_cost * iif($prostitute['client_behavior'] = 'abusive', 120, 80)) / 100
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'"What? Did you just '+iif($prostitute['client_behavior'] = 'abusive', 'call me', 'imply that I''m')+' a whore?" you hiss angrily and take a step back from him.'
+			if $prostitute['client_behavior'] = 'abusive':
+				'"You aren''t? Damn babe... really? Sorry about that. I knew that he was lying to me, when my friend told me about you." He points at your clothes. '+iif(PCloStyle = 4, '"But could have fooled me in that outfit."', '"But I should have known that a whore wouldn''t wear something like that"'+' he adds before walking away.')
+			else
+				'"Uhm... I...," he stammers, turns around and quickly walks away without saying another word.'
+			end
+
+			act 'Continue': gt $loc, $loc_arg
+		end
+	elseif will_cost > pcs_willpwr and prostitute['pav_regular'] = 0 and prostitute['pav_search'] = 0:
+		act 'React angrily (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+end
+
+!!------ set_0 ------
+
+if $ARGS[0] = 'set_0':
+	*clr & cla
+	minut += 15
+	if prostitute['pav_regular'] < 1: guy += 1
+	$prostitute['pav_walk'] = iif(rand(0,1) = 0, 'pav_residential', 'pav_complex')
+	gs 'prostitution_pavlovsk', 'travel', $prostitute['pav_walk']
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/private/bj_'+rand(0,3)+'.mp4"></video></center>'
+	if $prostitute['client_behavior'] = 'abusive':
+		gs 'pain', 8, 'head', 'slap'
+		gs 'fame', 'pav', 'prostitute', iif($prostitute['pav_scene'] = 'blowjob', rand(2,4), rand(3,6))
+		'You walk together to '+iif($prostitute['pav_walk'] = 'pav_residential', 'his apartment in the residential area', 'the Five Eight Estate')+'. The whole time he verbally abuses you by calling you whore, slut or something like fucktoy and loudly asks you embarrassing questions about your work and live as he grabs or slaps your ass from time to time.'
+		'He pushes you down to your knees, the second you are through the door. "Get to work whore," he commands and whips out his rock-hard cock. You take it into your mouth like the good whore that you are. "Yeah that''s it." He spits down on your face, before he continues. "Use that filthy mouth-pussy of yours." The verbally abuse continues until he pulls out a few minutes later and suddenly slaps your face hard. "You like that don''t you?" He slaps you again, before he grabs your head and rams his dick as deep as he can down your throat. "And don''t say no," he says with his cock buried balls deep into your mouth. "No self-respecting girl would whore herself out like this."'
+
+		gs 'arousal', 'bj', -9, 'prostitution', 'rough', 'deepthroat', 'sub'
+	else
+		gs 'fame', 'pav', 'prostitute', rand(1,2)
+		'You walk together to '+iif($prostitute['pav_walk'] = 'pav_residential', 'his apartment in the residential area', 'Five Eight Estate')+'. He always stays a few meters in front of you so that it doesn''t look like you two are walking together. It''s a nice gesture trying to make sure that it isn''t to obvious what you two are up to.'
+		*nl
+		'He isn''t much of a talker and leads you directly to the living room. "Here? Not the bedroom?" you ask as he takes of his jacket.'
+		'"Is that a problem for you?" You shake your head and follow his example. Taking of your clothes piece by piece. He intently watches you undress and compared with other clients he''s completely comfortable with you setting the pace. You take him by the hand, when he has taken off his clothes as well and walk him towards the couch. First you gently kiss the tip of his penis, before you swirl your tongue around it and softly suck on it. He never complains or tells you what to do. So you go through your routine which starts with a simple blowjob and ends with an impressive deepthroat.'
+
+		gs 'arousal', 'bj', -9, 'prostitution'
+	end
+
+	gs 'stat'
+
+	if $prostitute['pav_scene'] = 'pussy':
+		act 'Move on to the main course':
+			*clr & cla
+			minut += 12
+			gs 'arousal', 'auto_lube', 'vaginal', 'custom'
+			'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/private/vag_'+rand(0,2)+'.mp4"></video></center>'
+			if $prostitute['client_behavior'] = 'abusive':
+				'"Move your ass to the couch," he shouts, but he doesn''t even wait for you to comply. His hands push you hard and you can feel his weight on you only two heartbeats after you have landed on the couch. "Gonna ruin that hole," he says and forces his cock completely inside you in one hard push. He laughs as he starts to fuck you hard. "Not much left for me to ruin."'
+				$orgasm_txt = 'It starts between your legs, wanders down your legs and up your spine until your pussy clamps down hard and you moan uncontrollably as your whole body vibrates from the orgasm. "Yeah, cum you filthy slut. I knew that you like it rough."'
+
+				gs 'arousal', 'vaginal', -9, 'prostitution'
+			else
+				'You lay back against the sofa and spread your legs wide revealing your inviting pussy. "Ready for more?" you ask teasingly and spread your pussy lips with your fingers. You move your hips towards him, when he''s to careful and takes too much time to enter you. "You don''t have to be careful," you assure him. "I won''t break." He nods, pulls out and forcefully shoves his cock back into you. "Yeah, like that," you moan, close your eyes and enjoy the fuck.'
+				$orgasm_txt = 'It starts between your legs, wanders down your legs and up your spine until your pussy clamps down hard and you moan uncontrollably as your whole body vibrates from the orgasm.'
+
+				gs 'arousal', 'vaginal', -9, 'prostitution', 'rough', 'sub'
+			end
+
+			gs 'stat'
+
+			if rand(0,1) = 0:
+				act 'Get on your knees':
+					if prostitute['pav_condom'] = 0: gs 'prostitution_functions', 'std_check'
+					gt 'prostitution_pavlovsk', 's0_facial'
+				end
+			elseif prostitute['pav_condom'] = 1:
+				act 'Let him cum inside the condom':
+					if $prostitute['client_behavior'] = 'abusive' and rand(1,100) > iif($pro_brand['text_pubic'] = 'cumslut', 84, 92): prostitute['pav_internal'] = 1
+					gt 'prostitution_pavlovsk', 's0_internal'
+				end
+			else
+				act 'Let him cum inside you': gt 'prostitution_pavlovsk', 's0_internal'
+
+				gs 'willpower', 'cum_inside', 'self', iif($prostitute['client_behavior'] = 'abusive', 'hard', 'easy')
+				if will_cost <= pcs_willpwr:
+					act 'Tell him to pull out (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'self'
+						if (rand(0,3) = 3 or (rand(0,1) = 1 and $pro_brand['text_pubic'] = 'cumslut')) and $prostitute['client_behavior'] = 'abusive':
+							prostitute['pav_internal'] = 1
+							gt 'prostitution_pavlovsk', 's0_internal'
+						else
+							gs 'prostitution_functions', 'std_check'
+							gt 'prostitution_pavlovsk', 's0_facial'
+						end
+					end
+				else
+					act 'Tell him to pull out (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+		end
+	else
+		act 'Continue':
+			if prostitute['pav_condom'] = 0: gs 'prostitution_functions', 'std_check_oral'
+			gt 'prostitution_pavlovsk', 's0_facial'
+		end
+	end
+end
+
+if $ARGS[0] = 's0_facial':
+	*clr & cla
+	facial += 1
+	minut += 6
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/private/end_facial.mp4"></video></center>'
+	if $prostitute['client_behavior'] = 'abusive':
+		'It''s finally over, you think, when he forces you onto your knees and aims his dick at your face'+iif(prostitute['pav_condom'] = 1, ' and pulls the condom off.', '.')+'"Take it slut," he shouts as he furiously rubs his cock until he coats your entire face in cum. "Yeah bitch, that''s looks really nice on you," he looks at you like an artist who examines his latest masterpiece. Then he suddenly grabs you and pulls you towards the door. "Now get the fuck out," he shouts, opens the door and pushes you out of the apartment.'
+		'"Please, my clothes," you beg. He throws them onto the dirty floor and closes the door without saying another word. You quickly get dressed and ...'
+
+		gs 'arousal', 'bj', -6, 'prostitution', 'rough', 'deepthroat', 'sub'
+	else
+		'"Can I cum on your face?" He asks shyly. You pull your mouth away from his hard meat and submissively look up to him. "Of course you can, sweetie," you reply. '+iif(prostitute['pav_condom'] = 1, 'He takes the condom off and', 'He')+' doesn''t waste a second before he takes his cock into his hand and after a few furious strokes coats your entire face in a huge load. "Thanks <<$pcs_nickname>>, that was great. The bathroom is down the hall. You can clean up there before you leave."'
+
+		gs 'arousal', 'bj', -6, 'prostitution'
+	end
+
+	gs 'cum_call', 'face', 'a client'
+
+	gs 'arousal', 'end'
+	gs 'stat'
+
+	if $prostitute['client_behavior'] = 'abusive':
+		act '... leave with cum on your face': gt 'prostitution_pavlovsk', 'end'
+	else
+		act 'Clean up and leave': gt 'prostitution_pavlovsk', 'end', 'clean'
+	end
+end
+
+if $ARGS[0] = 's0_internal':
+	*clr & cla
+	minut += 6
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/private/end_vag.mp4"></video></center>'
+	gs 'arousal', 'vaginal', -6, 'prostitution', iif($prostitute['client_behavior'] = 'abusive', 'rough', '')
+	gs 'arousal', 'end'
+	if prostitute['pav_condom'] = 1:
+		if prostitute['pav_internal'] = 0 and rand(1,100) > 98:
+			prostitute['pav_internal'] = 1
+			'He stiffens and pushes his cock deeper inside your pussy and you can suddenly feel warmth flooding your insides. Your eyes grow wide, when you realize what''s happening. "What the fuck? Did you remove the condom?"'
+			if $prostitute['client_behavior'] = 'abusive':
+				'He looks confused for a second, pulls out and starts to laugh. "The condom broke you lucky bitch," he pulls it off and throws the wet broken condom on your stomach. "You should be grateful for receiving my cum'+iif($pro_brand['text_pubic'] = 'cumslut', ' aren''t you a cumslut anyway?" he grins and points at your pubic tat.', '."')
+			else
+				'He looks confused for a second and then a horrified expression takes shape on his face. "No, of course not," he pulls out and takes the condom off. "It broke," he holds the empty condom up. "See? I''m so sorry <<$pcs_nickname>>."'
+				'You sigh and stop him with one gesture of your hand. "It''s not your fault. Shit happens."'
+			end
+		elseif prostitute['pav_internal'] = 1:
+			gs 'pain', 8, 'head', 'slap'
+			'He stiffens and pushes his cock deeper inside your pussy and you can suddenly feel warmth flooding your insides. Your eyes grow wide, when you realize what''s happening. "What the fuck? Did you remove the condom?"'
+			'"Yeah I did you stupid cunt," he slaps your face hard. You let out a yelp while he continues, "and that''s no way to say thank you for receiving my seed you ungrateful whore."'
+			'"Thank you," you say rubbing your burning with your hand'+iif($pro_brand['text_pubic'] = 'cumslut', ' "Thank you for giving this cumslut what she needs," you say echoing what''s written on your pubic area.', '.')
+		else
+			'He stiffens and pushes his cock deeper inside your pussy, you can feel his meat pulsate inside you filling the condom.'
+		end
+	elseif prostitute['pav_internal'] = 1:
+		'He stiffens and pushes his cock deeper inside your pussy and you can suddenly feel warmth flooding your insides. Your eyes grow wide, when you realize what''s happening. "What the fuck? I told you to pull out."'
+		'He slaps your face hard. You let out a yelp while he says, "that''s no way to say thank you for receiving my seed you ungrateful whore'+iif($pro_brand['text_pubic'] = 'cumslut', ' and do you think I''m stupid? I can read you know." He slaps your ''cumslut'' tattoo once to underscore what he means.', '."')
+		'"Thank you," you say rubbing your burning with your hand."'
+	elseif prostitute['pav_internal'] = 0 and prostitute['pav_condom'] = 0:
+		'He stiffens and pushes his cock deeper inside your pussy and you can suddenly feel warmth flooding your inside. "Yes, fill me up baby," you moan as he coats your cervix in his potent seed.'+iif($pro_brand['text_pubic'] = 'cumslut', ' " Give this cumslut what she needs," softly slapping your pubic tat once to underscore what you''re saying.', '')
+	end
+
+	if $prostitute['client_behavior'] = 'abusive':
+		'Then he suddenly grabs you and pulls you towards the door. "Now get the fuck out," he shouts, opens the door and pushes you out of the apartment.'
+		'"Please, my clothes," you beg. He throws them onto the dirty floor and closes the door without saying another word. You quickly get dressed and ...'
+	else
+		'"Thanks <<$pcs_nickname>>, that was great. The bathroom is down the hall. You can clean up there before you leave."'
+	end
+
+	if prostitute['pav_condom'] = 0 or prostitute['pav_internal'] = 1:
+		gs 'prostitution_functions', 'std_check'
+		gs 'cum_call', 'vaginal', 'a client'
+	end
+
+	gs 'stat'
+
+	if $prostitute['client_behavior'] = 'abusive':
+		act '... leave': gt 'prostitution_pavlovsk', 'end'
+	else
+		act 'Clean up and leave': gt 'prostitution_pavlovsk', 'end', 'clean'
+	end
+end
+
+!!------ set_1 ------
+
+if $ARGS[0] = 'set_1':
+	*clr & cla
+	minut += 15
+	if prostitute['pav_regular'] < 1: guy += 1
+	$prostitute['pav_walk'] = iif($prostitute['pav_location'] = 'public', 'pav_industrial', 'pav_residential')
+	gs 'prostitution_pavlovsk', 'travel', $prostitute['pav_walk']
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/bj_'+rand(0,2)+'.mp4"></video></center>'
+	if $prostitute['pav_location'] = 'public':
+		gs 'fame', 'pav', 'prostitute', rand(2,4)
+		'"Come on slut, let''s go." After several minutes it''s become clear that you''re walking towards the outskirts of the industrial area, but he turns right into a small empty street before you can reach the warehouse. He abruptly turns around and points to the ground. "Get on your knees," he tells you unbuckling his belt at the same time. He opens his mouth again, when you didn''t comply with his wishes. "I paid, so do what I say you piece of shit," he growls and lifts his hand ready to strike. You quickly drop down kneeling on the hard uncomfortable asphalt and submissively open your mouth to not give him a reason to hit you. "Good slut, somebody trained you well." He aligns his cock with your mouth and slowly moves his hips forward until his pubic hairs tickle your nose. "I''ll fuck you so hard, that you''re going to puke," he predicts, grabs your head with both hands and uses your mouth like a pussy.'
+	else
+		gs 'fame', 'pav', 'prostitute', rand(1,2)
+		'It''s obvious that he''s a'+iif(prostitute['pav_regular'] = 1, ' still ', ' ')+'bit nervous as you walk to his home '+iif(prostitute['pav_regular'] = 1, 'even if it isn''t the first time that he bought your services', 'in the residential area')+'. He talks a lot, tells you about his life, his work and seems fine with you saying only the occasional ''yes'' and ''OK''. "Uhm...," he murmurs when the apartment door shuts behind the two of you and he looks to your for guidance for what to do next. You grab his arm and lead him to the bedroom at the end of the hallway, sit down on the bed, pull out his cock and suck the entire length of his cock into your mouth. He doesn''t say a word and you only stop your masterful blowjob to undress.'
+	end
+
+	gs 'arousal', 'bj', -9, 'prostitution', 'deepthroat', iif($prostitute['client_behavior'] = 'abusive', 'rough', ''), iif($prostitute['client_behavior'] = 'abusive', 'exhibitionism', '')
+	gs 'stat'
+
+	act 'Continue':
+		*clr & cla
+		minut += 12
+		gs 'arousal', 'auto_lube', 'vaginal', 'custom'
+		'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/vag_'+iif($prostitute['pav_location'] = 'public', rand(0,3), rand(0,7))+'.mp4"></video></center>'
+		if $prostitute['pav_location'] = 'public':
+			gs 'pain', 10, 'asscheeks', 'slap'
+			'You suck in air, when he finally relents and pulls his cock far enough out of your mouth that you can take more than one quick breath which was all you could do in the last ten minutes. He grabs you by the hip, turns you around and slams your body on the hood of a nearby old car. "You should be glad that I pay you. Rapemeat like you doesn''t deserve to be treated this nicely." he tells you coldly before he forces his cock deep inside your cunt. His hand slaps your ass with all the strength he can muster as he brutally shoves his tool into your snatch. "Fuck that hurts," you say and in response he slaps your ass again. "What was that?"'
+			'"Thanks for fucking me," you lie and swallow a bunch of insults you wish you could say instead.'
+			$orgasm_txt = 'You don''t want to, but you can''t stop the orgasm that approaches quickly. It''s humiliating to cum like this pressed against an old rusty car in the middle of the street, but you uncontrollably moan like a bitch in heat, when wave after wave of pleasure floods every cell of your body.'
+
+			gs 'arousal', 'vaginal', -9, 'prostitution', 'rough', 'exhibitionism', 'sub'
+		else
+			'"Did anybody ever tell you how beautiful you are?" he says as he slowly eases his cock inside you while caressing your body with his hands. He moves a single finger over your lips, down your neck and between your breasts down to your '+iif($pro_brand['text_pubic'] = 'cumslut', 'cumslut tattoo', 'pussy')+'. "You aren''t ashamed of what you are." It isn''t a question, it''s a statement of fact. "I love that. Without girls like you men like me would be totally alone." You look around in the bedroom and can''t see any pictures of a wife, kids or any other family or friends. "Everybody needs somebody," you say smiling up at him, before he starts to move his hips. His movements are slow at first, but his confidence grows with every thrust until he fucks you like the whore that you are.'
+
+			gs 'arousal', 'vaginal', -9, 'prostitution'
+		end
+
+		gs 'stat'
+
+		if prostitute['pav_condom'] = 1:
+			act 'Let him cum inside the condom':
+				if $prostitute['client_behavior'] = 'abusive' and rand(1,100) > iif($pro_brand['text_pubic'] = 'cumslut', 84, 92): prostitute['pav_internal'] = 1
+				gt 'prostitution_pavlovsk', 's1_end'
+			end
+		else
+			act 'Don''t say anything': gt 'prostitution_pavlovsk', 's1_end'
+
+			gs 'willpower', 'cum_inside', 'self', iif($prostitute['client_behavior'] = 'abusive', 'hard', 'easy')
+			if will_cost <= pcs_willpwr:
+				act 'Tell him to pull out (<<will_cost>> Willpower)':
+					gs 'willpower', 'pay', 'self'
+					if (rand(0,3) = 3 or (rand(0,1) = 1 and $pro_brand['text_pubic'] = 'cumslut')) and $prostitute['client_behavior'] = 'abusive':
+						prostitute['pav_internal'] = 1
+						gt 'prostitution_pavlovsk', 's1_end'
+					else
+						prostitute['pav_internal'] = -1
+						gs 'prostitution_functions', 'std_check'
+						gt 'prostitution_pavlovsk', 's1_end'
+					end
+				end
+			else
+				act 'Tell him to pull out (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 's1_end':
+	*clr & cla
+	minut += 6
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/end.mp4"></video></center>'
+	gs 'arousal', 'vaginal', -6, 'prostitution', iif($prostitute['client_behavior'] = 'abusive', 'rough', ''), iif($prostitute['client_behavior'] = 'abusive', 'exhibitionism', ''), iif($prostitute['client_behavior'] = 'abusive', 'sub', '')
+	gs 'arousal', 'end'
+
+	if $prostitute['pav_location'] = 'public':
+		'He roughly pushes your body against the car with every thrust and you know he''s close, when his movements become more erratic while he pants loudly. "Damn... take my cum bitch."'
+		if prostitute['pav_condom'] = 1:
+			if prostitute['pav_internal'] = 0 and rand(1,100) > 98:
+				prostitute['pav_internal'] = 1
+				'"Yes, fill me up," you encourage him, because you know he''s wearing a condom, but something doesn''t feel right. Is he still wearing a condom?'
+				'He laughs, when he pulls out his dick. "You should be careful what you wish for," he throws a broken condom on the car next to your head. "Your shitty condom broke.'+iif($pro_brand['text_pubic'] = 'cumslut', ' But maybe you already knew that... didn''t you cumdump?" He asks and shoves his hand between your the car and your belly. "You want to get pregnant, don''t you? I bet you manipulated it," he taunts you as he slowly caresses your ''cumslut'' tat until he ', '." He says and ')+'pulls up his jeans.'
+			elseif prostitute['pav_internal'] = 1:
+				'"Yes, fill me up," you encourage him knowing he''s wearing a condom. But he pulls out instead and you wait a few seconds expecting to feel his warm seed on your butt, when he without warning pushes back inside and you can feel his cock throb in your pussy. "I knew it, a filthy cumdump like you wants it inside. Why do you insist on the condom in the first place?" he taunts you, when his finished unloading into your unwilling cunt.'
+				'"What? Why did you cum inside me? Did you really believe I meant it?" you shout angrily, but he grabs you roughly by the shoulder and turns you around. '+iif($pro_brand['text_pubic'] = 'cumslut', '"Really? You''re going to complain, when you have a ''cumslut'' tat?"', '"Shut up I paid for it and you said I could. So stop complaining."')+' he says, before he takes a step back and pulls his jeans up.'
+			else
+				'"Yes, fill me up," you encourage him, because you know he''s wearing a condom.'
+				'"So you want me to take the condom off?" he taunts you and for a second you fear he would do that, but only two heartbeats later you can feel the condom expanding, when it fills with his seed. "Should have said something earlier, I would have paid more to fuck you raw," he says as he pulls up his jeans.'+iif($pro_brand['text_pubic'] = 'cumslut', '"Why did you ink ''cumslut'' on your body if you don''t want to be one?" he asks more to annoy than out of curiosity. "Just accept what you are."', '')
+			end
+		elseif prostitute['pav_internal'] = 1:
+			'"Please, don''t cum inside my," you plead as he presses your face with his hand against the cold metal of the car. He doesn''t show any sign of pulling out and a few seconds later you can feel his cock twitching in your pussy. "Yes, take it," he growls and forces his cock one last time inside you.'
+			'"Why did you do that?" you ask weakly when he takes a small step back.'
+			iif($pro_brand['text_pubic'] = 'cumslut', 'He points at your tattoo. "That''s why, we both know you want to be treated like as a cumdump."', '"I paid so I can do whatever you want."')+' he explains as he pulls up his pants.'
+		elseif prostitute['pav_internal'] = -1:
+			'"Please, don''t cum inside my," you plead as he presses your face with his hand against the cold metal of the car. To your surprise he actually listens to you. He let''s go, takes a step back and shots his load all over your naked ass. "What a waste," he says as he takes his dick and spreads the cum around on your ass.'
+		elseif prostitute['pav_internal'] = 0 and prostitute['pav_condom'] = 0:
+			'"Yes, fill me up," you encourage him. This takes him over the edge and his throbbing cock fills your pussy with his warm seed.'
+			iif($pro_brand['text_pubic'] = 'cumslut', '"You made a good choice with your tat. Maybe you should add some more. Worthless cunt or stupid whore would fit perfectly as well."', '')
+		end
+		'"See ya slut," is the last thing he says to you before he walks away.'
+
+		if prostitute['pav_condom'] = 0 or prostitute['pav_internal'] = 1:
+			gs 'prostitution_functions', 'std_check'
+			gs 'cum_call', iif(prostitute['pav_internal'] = -1, 'butt', 'vaginal'), 'a client'
+		end
+	else
+		'"Can I cum on you?" He asks shyly as his'+iif(prostitute['pav_condom'] = 1, ' condom covered ', ' ')+'cock moves rapidly in and out of your cunt. Most men wouldn''t ask, some would even cum inside you against your will. It''s sweet and a bit sad that not more men are like him. "Of course you can sweetie."'
+		'"Thanks...," he tries to say, but isn''t able to utter a whole sentence while his cum lands on your '+iif($pro_brand['text_pubic'] = 'cumslut', 'cumslut tattoo.', 'labia.')+' "Great," he murmurs as his body lands exhausted next to you on the bed. "That was really great."'
+		if prostitute['pav_condom'] = 1 and rand(1,100) > 98:
+			'"Yeah it was," you agree, but something catches your eye, when you sit up. The condom doesn''t look right. You pick it up and see that''s broken. Good thing he came outside, you think and hope that he was clean and didn''t infect you with a STD.'
+		elseif prostitute['pav_condom'] = 0:
+			gs 'prostitution_functions', 'std_check'
+		end
+		'He offers you to use the bathroom before you go and you gladly accept.'
+
+		gs 'cum_call', iif(prostitute['pav_internal'] = -1, 'labia', 'vaginal'), 'a client'
+	end
+
+	gs 'stat'
+
+	if $prostitute['client_behavior'] = 'abusive':
+		act 'Continue': gt 'prostitution_pavlovsk', 'end'
+	else
+		act 'Clean up and leave': gt 'prostitution_pavlovsk', 'end', 'clean'
+	end
+end
+
+!!------ set_2 ------
+
+if $ARGS[0] = 'set_2':
+	*clr & cla
+	minut += 15
+	if prostitute['pav_regular'] < 1: guy += 1
+	$prostitute['pav_walk'] = iif($prostitute['pav_location'] = 'public', 'pav_commercial', 'pav_complex')
+	gs 'prostitution_pavlovsk', 'travel', $prostitute['pav_walk']
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/bj_'+iif($prostitute['pav_location'] = 'public', rand(0,1), rand(0,3))+'.mp4"></video></center>'
+	gs 'fame', 'pav', 'prostitute', iif($prostitute['client_behavior'] = 'nice', rand(1,2), rand(2,4))
+	if $prostitute['pav_location'] = 'public':
+		if $prostitute['client_behavior'] = 'nice':
+			'"I don''t have much time," he explains as you walk next to him in Pavlovsk''s commercial area. "I need to get back to work in a few minutes," he adds as he pushes open a backdoor to one of the small office buildings.'
+			'"You want to do it here?" you ask skeptical. "Won''t we get caught?"'
+			'He shakes his head and walks through another door into an empty hallway. "Nobody comes here except for the clinic lady and she won''t be here until tomorrow," he explains while he unbuckles his belt and drops his pants. "Take of your shirt. I want to see your tits."'
+			'You take another look around, before you surrender to your fate, take of your top and get on your knees. "I don''t need some fancy shit, just get me off quickly, before my break ends."'
+			'"Roger that. One efficient blowjob coming right up," you say with a wink.'
+
+			gs 'arousal', 'bj', -9, 'prostitution', 'exhibitionism'
+		else
+			'"Move your ass slut. I don''t have much time," he says angrily as you follow him to the commercial district. "My fucking boss wants me back in the office in a few minutes. She''s such a retard. If the company goes to hell it''s her fault...," he rants. You stop listening after a few minutes and silently walk beside him as he goes on and on about his job, his boss, his colleagues and everything else that is getting on his nerves. He suddenly grabs your arm and pulls you through the back entrance into one of the small office buildings.'
+			'"Here?" you ask unsure, but nobody seems to be around.'
+			'"Of course here. I can hardly take you up to my office," he replies annoyed and pushes you down to your knees. "And now do what you''re told and get to it." You kneel down on the hard concrete floor and pull down his pants. "Take of your top, I want to see your tits," he commands and you obey just like he wants. You stroke his cock a few times to get it hard and lick the entire length while you submissively look into his eyes. "Why can''t '+iif(rand(0,1), 'my boss', 'stupid Masha in accounting')+' know her place like you do?" You don''t think, he really expects an answer from you. So, you continue to lavish his cock with in attention and tease the tip with your experienced tongue, when he adds. "I asked you a question..."'
+			'You look up and the serious expression on his face tells you, yes he seriously wants an answer. You let his cock slip out of your mouth with a naughty plop. "They probably never experienced how good it feels to be told what to do?" you say unsure if that''s what he wants to hear.'
+			'"Good answer slut." He wiggles his hips to make the cock dance in front of your face. "Get back to it."'
+
+			gs 'arousal', 'bj', -9, 'prostitution', 'exhibitionism', 'sub'
+		end
+
+		act 'Continue':
+			*clr & cla
+			minut += 3
+			'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/end.mp4"></video></center>'
+			if $prostitute['client_behavior'] = 'nice':
+				'You lavish his dick in attention and give everything you got. Not to show of your skill, but to get him off as quickly as possible. And your treatment works. Only a few minutes later you can see the signs that he''s close to the edge. You pull your head back, take the cock in your hand and give it a few hard strokes. "Ready to cum?"'
+				'"Oh god yes," he says moaning like a girl. You close your lips around the sensitive tip and he cums. Hot seed floods '+iif(prostitute['pav_condom'] = 1, 'the condom', 'your mouth')+' with hot salty seed.'
+			else
+				'You softly massage his balls with your hand as your head bobs up and down on his shaft. Your other hand grabs the base of his cock as you pull your mouth away. "Give it to me, give me your cum," you say lasciviously. That takes him over the edge. You suck the head back into your mouth a second before he unloads his load into '+iif(prostitute['pav_condom'] = 1, 'the condom', 'your mouth')
+			end
+			'Satisfied he pulls up his pants. "Shit, I have to go," he says and hastily walks away after checking the time on his phone.'
+
+			if prostitute['pav_condom'] = 0:
+				swallow += 1
+				gs 'cum_call', 'mouth', 'a client'
+				gs 'prostitution_functions', 'std_check_oral'
+			end
+			gs 'arousal', 'bj', -6, 'prostitution', 'exhibitionism'
+			gs 'arousal', 'end'
+			gs 'stat'
+
+			act 'Leave': gt 'prostitution_pavlovsk', 'end'
+		end
+	else
+		'You hope nobody you know sees you, when you walk through the courtyard of the Five Eight Estate, where your parents live.'
+		if $prostitute['client_behavior'] = 'nice':
+			minut += 10
+			'"It''s right there," your client says, pointing at one of the apartment blocks at the other side of the courtyard. At least he doesn''t live in the same building as your parents.'
+			'"Do you want something to drink?" he asks you as he unlocks the door to his apartment.'
+			'"That''s very considerate of you to ask," you answer. '+iif(pcs_hydra < 60, '"Some water would be nice."', '"But no, I''m fine thanks."')+' He leads you down a small hallway into the kitchen, where he pulls a beer from the nearly empty fridge'+iif(pcs_hydra < 60, ' and hands you a glass of water.', '.')+' The furniture and kitchen appliances look old, even older than your parents and it''s painfully obvious that he lives alone and probably is unemployed. The two of you spend several minutes making small talk like talking about the weather and you get the feeling this is more important to him then what will follow in the bedroom. There are some guys like him who hire you just to have some form of human contact.'
+			if pcs_hydra < 60: pcs_hydra = 100
+			*nl
+			'But you didn''t get paid to have a conversation and after a few more minutes you move into the bedroom. "Can you do it slowly?" is the only thing he asks of you for the rest of the time and one sensual striptease later he lies down on the bed to indulge in your masterful blowjob.'
+		else
+			gs 'pain', 8, 'slap', 'head'
+			'"What''s wrong? Why are you so nervous?" he asks you annoyed.'
+			'"I''m not, everything is fine," you reply but immediately regret the answer, when he turns around and slaps you hard. Pain flares up on your cheek. You stumble and nearly fall to the ground.'
+			'"Stop lying to me bitch. I owe you for the next hour, remember that," he growls.'
+			'Owe you? That''s ludicrous. He only rented your services for a short time and doesn''t owe you. You''re not his slave. But you bite your tongue and swallow the truth. An honest responds would probably earn you another slap in the face. Even returning the money and walking away isn''t an option. The scene he would make would draw the attention of everyone in the area. "I''m sorry, I didn''t want to annoy you with my problems. They aren''t worthy of your attention," you reply meekly." He looks speechless for a moment. Did you say the wrong thing again?'
+			'"You''re right. You really aren''t worthy of my concern. Why should I give a shit about some fucked-up whore."'
+			*nl
+			'A few minutes later you''re already undressed, kneeling on his bed, his cock down your throat. "Suck it deeper bitch," he commands as you try your best to fulfill his wish. "Yes, just like that, good girl," he praises you as you manage to swallow it completely. "We finally found something that is worthy of somebodies attention. Didn''t we?"'
+			'You pull your head up, leaving a sloppy trail of saliva on his meat. "Yes, we did," you say with the best fake smile you can muster.'
+		end
+
+		gs 'arousal', 'bj', -9, 'prostitution', iif($prostitute['client_behavior'] = 'nice', '', 'deepthroat'), iif($prostitute['client_behavior'] = 'nice', '', 'sub')
+
+		act 'Continue':
+			*clr & cla
+			minut += 12
+			gs 'arousal', 'auto_lube', 'vaginal', 'custom'
+			'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/vag_'+iif($prostitute['client_behavior'] = 'nice', rand(0,2), rand(3,5))+'.mp4"></video></center>'
+			if $prostitute['client_behavior'] = 'nice':
+				$orgasm_or = 'no'
+				'You position yourself on top of him and guide his'+iif(prostitute['pav_condom'] = 1, ' condom covered ', ' ')+'dick into your inviting sex. His hand moves up and tenderly caress your breasts. "Perfect," he whispers as his hands slowly wander down your sides.'
+				'You send him an honest smile and increase the pace, really jumping up and down on his cock. It''s so much easier to give it all you''ve got when they manage to behave like a normal human being. After a few more minutes of hard fucking your muscles get tired and you take a break for a moment only rotating your hips to keep his cock entertained. "How about we switch positions? Me on all fours?" He nods and you get on all fours presenting your ass.'
+				*nl
+				'He takes his time as explores your backside with his hands. "Even more perfect," he says and you unexpectedly feel wetness on your right ass-cheek. He placed a loud smacker on your ass.'
+				'"Did you just kiss my ass?" you ask and turn around to see him grinning like a little boy caught with his hand in the cookie jar. "I couldn''t help it. It''s just too cute."'
+				'You laugh and wiggle your ass. "It''s not often that somebody says my ass is cute."'
+				'"Then let me repeat that. It... is... cute," he emphasizes every word and kisses your ass again in the pauses between every word.'
+			else
+				gs 'pain', 10, 'asscheeks', 'slap'
+				gs 'pain', 10, 'asscheeks', 'slap'
+				gs 'pain', 10, 'asscheeks', 'slap'
+				'He quickly moved on from the blowjob. Demanding from you to get on all fours. "Yes, present me your fat ass," he berates you as you stick out your bum. He grabs your tender flesh with two rough hands and pulls you ass back to bury his meat into you. His hands violently knead your flesh. "I think we again found something worthy of attention," he says and withdraws one hand only to slap your ass hard. You yelp, but that only makes him laugh. "We both know that you deserve it bitch... And now start counting."'
+				'"What?" you shout not sure you heard him correctly.'
+				'"Count. I want to know how many slaps you took before I cum," he shouts and slaps your behind again.'
+				'"Three," you scream and wince, when his hand connects with your flesh again.'
+				'"Four...," you continue as he starts an unrelenting assault. But four isn''t enough. He smacks your ass hard again and again and again until your flesh turns blazing red.'
+
+				if rand(0,1) = 1:
+					*nl
+					if pcs_horny < 100: pcs_horny = 100
+					$orgasm_or = 'custom'
+					$orgasm_txt = '"Thirty-four...," you scream as he hits you again, but this time the result isn''t pain, but an explosion of pleasure, when his hard slap triggers an intense orgasm. Your eyes roll back and for a moment only his hard cock in your pussy and the pleasurable pain exist. The strength in your arms vanishes and your upper body falls down onto the bad and only his strong hands keep your ass aligned with his cock. "Fucking painslut. I knew it from the moment I saw you," he taunts you sounding immensely satisfied with himself.'
+				else
+					$orgasm_or = 'no'
+					pcs_horny = 0
+				end
+			end
+
+			gs 'arousal', 'vaginal', -9, 'prostitution', iif($prostitute['client_behavior'] = 'abusive', 'rough', ''), iif($prostitute['client_behavior'] = 'abusive', 'sub', '')
+			gs 'stat'
+
+			if prostitute['pav_condom'] = 1:
+				act 'Let him cum inside the condom': gt 'prostitution_pavlovsk', 's2_end'
+			else
+				act 'Don''t say anything': gt 'prostitution_pavlovsk', 's2_end'
+
+				gs 'willpower', 'cum_inside', 'self', iif($prostitute['client_behavior'] = 'abusive', 'hard', 'easy')
+				if will_cost <= pcs_willpwr:
+					act 'Tell him to pull out (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'self'
+						gt 'prostitution_pavlovsk', 's2_end'
+					end
+				else
+					act 'Tell him to pull out (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 's2_end':
+	*clr & cla
+	minut += 6
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/end.mp4"></video></center>'
+	gs 'arousal', 'vaginal', -6, 'prostitution', iif($prostitute['client_behavior'] = 'abusive', 'rough', ''), iif($prostitute['client_behavior'] = 'abusive', 'sub', '')
+	gs 'arousal', 'end'
+
+	if $prostitute['client_behavior'] = 'nice':
+		'"Can I cum on your cute butt?" he asks as his movements become more erratic by the second.'
+		'"Of course," you reply immediately and not a second too soon. He withdraws his cock'+iif(prostitute['pav_condom'] = 1, ', takes the condom off ', ' ')+'and shoots his cum on your backside. "Thanks, I really needed that.'
+		'You look over your shoulder at the mess he made on your ass and say with a cute wink. "Your welcome."'
+		'"The bathroom is on the other end of the hallway, if you want to freshen up before you go," he says before getting of the bed to collect his clothes.'
+	else
+		gs 'pain', 10, 'asscheeks', 'slap'
+		gs 'pain', 10, 'asscheeks', 'slap'
+		gs 'pain', 10, 'asscheeks', 'slap'
+		'"'+iif(rand(0,1) = 1, 'Fifty-two', 'Forty-four')+'," you cry out. The pain is fucking unbearable.'
+		'"Had enough?" he asks and you can''t manage to lie to him. You need it to stop. "Yes," you sob. "Please, no more."'
+		'"Probably the first honest thing you said today," he says chuckling. "I bet it hurts. Let me put on some ointment. He pulls out'+iif(prostitute['pav_condom'] = 1, ', tears the condom off ', ' ')+'and sprays cum all over your butt. "Does this feel better?" he asks you as he distributes the cum with his cock all over your burning cheeks.'
+		'"No," you sob and crawl away from him. He doesn''t stop you, when you put your clothes back on and ...'
+	end
+
+	gs 'cum_call', 'butt', 'a client'
+	gs 'stat'
+
+	if $prostitute['client_behavior'] = 'abusive':
+		act '... flee out of the apartment': gt 'prostitution_pavlovsk', 'end'
+	else
+		act 'Clean up and leave': gt 'prostitution_pavlovsk', 'end', 'clean'
+	end
+end
+
+!!------ set_3 ------
+
+if $ARGS[0] = 'set_3':
+	*clr & cla
+	minut += 15
+	pro_temp = rand(0,2)
+	if prostitute['pav_regular'] < 1: guy += 1
+	$prostitute['pav_walk'] = 'pav_residential'
+	gs 'prostitution_pavlovsk', 'travel', $prostitute['pav_walk']
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/bj_<<pro_temp>>.mp4"></video></center>'
+	gs 'fame', 'pav', 'prostitute', iif($prostitute['client_behavior'] = 'nice', rand(2,4), rand(3,6))
+	if $prostitute['pav_location'] = 'public':
+		if pro_temp = 0: gs 'fame', 'pav', 'prostitute', iif(PCloStyle = 4, 2, 1)
+		if $prostitute['client_behavior'] = 'nice':
+			'"My car is right over there," he says pointing to a single car in an empty parking lot on the edge of the residential area. He opens the door on the '+iif(pro_temp = 0, 'driver', 'passenger')+' side, but he stops you from '+iif(pro_temp = 0, 'going around the car to the passenger side.', 'getting inside the car.')+' "No, we don''t need to drive anywhere. We can do it here."'
+			'"Here? In public?" you ask skeptical'+iif(pro_temp = 0, ', but go back to him.', '.')
+			'"Sure, why not?" He points to the door. With the door open nobody will see what''s going on."'
+			'You take a look around and shake your head. "But there''s a road behind us. We will be completely exposed."'
+			'"No, no." He pulls down his pants. "Nobody drives on that road," he tries to reassure you. "We can debate this the whole day if you want." He suddenly pulls down his pants in one quick move. "Or you can get down from your high horse and down to your knees and get it over with. The faster you get me off the faster you''re out of here."'
+			*nl
+			'You resign to your fate and squat down in front of him. He paid and you accepted. If he wants to get sucked of in public there''s nothing you can do about it. Judging by how hard he is, this turns him on immensely and it probably was his plan all along.'
+
+			if pro_temp = 0:
+				*nl
+				'"You need to stop," he says sounding anxious, but his warning comes too late, when a car honks behind you several times. "Shit, they saw us," he explains the obvious. Should you stop? You ask yourself for a moment, but make the decision not to. You can''t change what happened and stopping now won''t help anybody.'
+			end
+		else
+			'"My car is right over there," he says pointing to a single car in an empty parking lot on the edge of the residential area. But when you get there, he doesn''t open the door instead he pulls down his pants and reveals his hard cock to the world.'
+			'"Uhm... here?" you asks shocked and take a look around. There are houses and two streets. "I can''t do it here. Everybody can see us."'
+			'He rolls his eyes and opens the driver side door to grant you some cover. "Satisfied? Now we can''t be seen."'
+			'You sigh and look behind you to the other road. Nobody drives on that street, most take the one near the houses. "Fine," you tell him and squat down in front of him.'
+			*nl
+			'"Are you wet?" he asks with a smirk on his face as you lick the entire length of his dick. "Does it turn you on that someone could see what a slut you are?"'
+			'"No, of course not," you say'+iif(pcs_horny < 40, ' and your dry pussy agrees with you.', ', but your wet pussy disagrees with you.')+' Sucking his cock into your mouth shuts him up for now and he has to grab the passenger side door to steady himself, when your talented tongue works her magic.'
+
+			if pro_temp = 0:
+				*nl
+				'A car honks behind you several time and your client suddenly laughs. Your eyes shift upwards and you can see giving a thumps up to somebody. His cock slips out of your mouth. "What the fuck? Why didn''t you warn me?"'
+				'He grins. "Oh come on, they only saw your back. If somebody has a reason to complain, it would be me. They saw my face." You mull his words and respond with a shrug. He''s right. They only saw your back, you agree and suck his cock back into your hot wet hole.'
+			end
+		end
+
+		killvar 'pro_temp'
+
+		gs 'arousal', 'bj', -9, 'prostitution', 'exhibitionism'
+		gs 'stat'
+
+		act 'Continue':
+			*clr & cla
+			minut += 3
+			'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/end.mp4"></video></center>'
+			'He draws in a sharp breath and his eyes close, when you sensually suck on the head out of his penis and rapidly stroke the base of his cock. '+iif($prostitute['client_behavior'] = 'nice', 'It''s as if you''re really sucking the cum directly out his body.', '"That''s it, suck me dry," he says.')+' His cock twitches and sprays a huge amount of cum '+iif(prostitute['pav_condom'] = 1, 'inside the condom.', 'into your willing mouth. You don''t want to risk running around with cum on your clothes. So you swallow it all down with one big gulp.')
+			iif($prostitute['client_behavior'] = 'nice', '"Thanks for doing this,"', '"Good job bitch. We need to do this again at some point,"')+' he says as he pulls up his pants. He get''s into his car and leaves you behind on the empty parking lot.'
+
+			if prostitute['pav_condom'] = 0:
+				swallow += 1
+				gs 'cum_call', 'mouth', 'a client'
+				gs 'prostitution_functions', 'std_check_oral'
+			end
+			gs 'arousal', 'bj', -6, 'prostitution', 'exhibitionism'
+			gs 'arousal', 'end'
+			gs 'stat'
+
+			act 'Leave': gt 'prostitution_pavlovsk', 'end'
+		end
+	else
+!!ToDo: Alternative scene with vag video 3-5
+		$orgasm_or = 'no'
+		'One of his strong arms grabs you the instant you walk into the door of his house in the residential area. You nearly stumble and fall as he roughly pulls you into the bedroom. "Undress and get on your knees," he tells you with a stern and commanding voice.'
+		if prostitute['pav_condom'] = 1:
+			money += 100 * rand(4,6)
+			'You obey, but when you pull out the condom, he shakes his head. "No condom, I need to feel you raw."'
+			'"No, no ... we agreed on a condom," you insist and try to get up, but he pushes you back down. "Stay there," he commands you as he picks up his pants and pulls out a few banknotes. "Is this enough?" he shouts angrily and throws them into your face, before grabbing your head and forces his dick between your lips. "I have paid, so do your job whore."'
+			'He shouldn''t be able to just throw money in your face and expect that it makes it OK, but what can you do except to do what he said... to do your job.'
+		else
+			'You paint a smile on your face and kneel in front of him, looking up at him like a submissive bitch. "Yeah, that''s a good look for you, now swallow my cock."'
+		end
+		'Opening your mouth wide to avoid scraping his shaft with your teeth, you shove your tongue under his cock and let inch after inch disappear down your throat. In the next minute you switch between different techniques to keep him happy. Sometimes you concentrate your effort on his balls, sucking softly on one of them while your hands stroke his cock or you lick the entire length of him.'
+
+		gs 'arousal', 'bj', -9, 'prostitution', 'rough', 'deepthroat'
+		gs 'stat'
+
+		act 'Follow his lead':
+			*clr & cla
+			minut += 20
+			$orgasm_or = 'custom'
+			if prostitute['pav_condom'] = 1: prostitute['pav_condom'] = 0
+			gs 'arousal', 'auto_lube', 'vaginal', 'custom'
+			'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/vag_'+rand(0,1)+'.mp4"></video></center>'
+			'He suddenly rips his cock free from your hole, grabs you by the arms and pushes you onto the bed. You let out a yelp of surprise, but he doesn''t care and instead roughly spreads your legs and forces his member into you. "I will fuck a child into you," he says.'
+			'You want to say something, respond to what he said, but he never gives you a chance. It''s like his cock pierces through your whole body and fucks every thought out of your brain. His movements are an unending assault on your sanity as his rough but skillful thrusts trigger small explosions of pleasure inside your pussy. You can only hold on to your legs, enjoy the ride and moan like a bitch in heat ready to be bred.'
+			$orgasm_txt = 'Your eyes roll back into your head and you eyes flutter shut, when you finally orgasm. But he doesn''t seem to be close. His stamina is insane and the constant stimulation of your g-spot is already pushing you towards your next orgasm only seconds after your first one ended.'
+			gs 'arousal', 'vaginal', -20, 'prostitution'
+			gs 'stat'
+
+			act 'Let him do whatever he wants':
+				*clr & cla
+				minut += 10
+				$orgasm_or = 'custom'
+				'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/end.mp4"></video></center>'
+				$orgasm_txt = 'The world doesn''t exist anymore. It has transformed into a unrecognizable red haze of lust, when he finally unloads his load into your young womb.'
+				gs 'arousal', 'vaginal', -6, 'prostitution', iif($prostitute['client_behavior'] = 'abusive', 'rough', '')
+				gs 'arousal', 'end'
+				'"Stay like this," he tells you as he pulls out and your orgasm finally ends and it''s like a floodgate has been opened and your consciousness flows back into your brain.'
+				'"What?" you ask still confused by your mind-blowing orgasm while his eyes are fixed on the cum leaking out of your hole.'
+				'"Somebody is responsive again," he say with a satisfied smirk. "When you feel up to it, you can get dressed and leave. Your job here is done," he leans closer and pushes some of the cum with his finger back inside. "And mine as well."'
+
+				gs 'cum_call', 'vaginal', 'a client'
+				gs 'prostitution_functions', 'std_check'
+				gs 'stat'
+
+				act 'Get dressed and leave': gt 'prostitution_pavlovsk', 'end'
+			end
+		end
+	end
+end
+
+!!------ set_4 ------
+
+if $ARGS[0] = 'set_4':
+	*clr & cla
+	minut += 6
+	if prostitute['pav_regular'] < 1: guy += 1
+	gs 'fame', 'pav', 'prostitute', iif($prostitute['client_behavior'] = 'nice', rand(1,2), rand(3,6))
+	if $loc = 'pav_commcenter' or $loc = 'pav_park': minut += 3 & $loc = 'pav_residential' & $loc_arg = ''
+	if $prostitute['pav_scene'] = 'blowjob':
+		'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/public/bj_'+rand(0,2)+'.mp4"></video></center>'
+		'He turns into a small alley, but he doesn''t head towards one of the houses. Instead he pulls you through a huge gap in a chain-link fence and behind a huge dumpster. '+iif($prostitute['client_behavior'] = 'nice', '"Nobody will see us here."', '"Get on your knees."')
+		'"Really? Here? Behind a dumpster?" you ask wrinkling your nose. "Can''t we go anywhere else? Don''t you have a house or an apartment we could go to?"'
+		iif($prostitute['client_behavior'] = 'nice', 'He shakes his head. "My wife and kids are at home, we can''t go there," he explains', '"Why do you complain bitch? Trash like you belongs here," he insults you')+' as he pulls down his pants. You sigh and squat down in front of him. It''s not an ideal environment, but at least nobody can see you here. So you start to ...'
+
+		gs 'arousal', 'bj', -9, 'prostitution'
+
+		act '... suck him dry':
+			if prostitute['pav_condom'] = 0: gs 'prostitution_functions', 'std_check_oral'
+			gt 'prostitution_pavlovsk', 's4_swallow'
+		end
+	else
+!!ToDo: Video vag_0 is not used, does not fit the text
+		$orgasm_or = 'no'
+		'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/public/vag_'+rand(1,2)+'.mp4"></video></center>'
+		gs 'arousal', 'auto_lube', 'vaginal', 'custom'
+		'He turns into a small alley, but he doesn''t head towards one of the houses. Instead he pulls you through a huge gap in a chain-link fence. "What are you doing?" You ask, when he pushes you against the wall and tugs on his pants to free his cock.'
+		'"I can''t wait anymore, you''re too fucking hot. We need to do it right here, right now," he hisses into your ear. '+iif($prostitute['client_behavior'] = 'abusive', '', 'His nice demeanor from a few minutes ago has completely changed.')
+		if prostitute['pav_condom'] = 1 and ($prostitute['client_behavior'] = 'nice' or rand(1,100) < iif($pro_brand['text_pubic'] = 'cumslut', 84, 92)):
+			'"Please, at least use the condom," you beg even if you''re sure that he has no self-control left. There''s nothing else you could do anyway. So you close your eyes resigning to your fate, when he suddenly stops his movements. "Fuck...," he swears loudly, but when his cock appears back between your legs it''s wearing the condom.'
+		else
+			'"Please, at least use the condom," you beg even if you''re sure that he has no self-control left. There''s nothing else you could do anyway. So you close your eyes resigning to your fate. He doesn''t care as you predicted. Instead his dick forces himself into your unprotected pussy.'
+			prostitute['pav_condom'] = 0
+		end
+		'His movements are rough, hectic and reminds you of an mindless animal in heat. He won''t last long and your ordeal will be over in a minute or two.'
+
+		gs 'arousal', 'vaginal', -1
+
+		if prostitute['pav_condom'] = 1:
+			act 'Let him cum inside the condom': gt 'prostitution_pavlovsk', 's4_internal'
+		else
+			act 'Don''t say anything': gt 'prostitution_pavlovsk', 's4_internal'
+
+			gs 'willpower', 'cum_inside', 'self', iif($prostitute['client_behavior'] = 'abusive', 'hard', 'easy')
+			if will_cost <= pcs_willpwr:
+				act 'Tell him to pull out (<<will_cost>> Willpower)':
+					gs 'willpower', 'pay', 'self'
+					if (rand(0,3) = 3 or (rand(0,1) = 1 and $pro_brand['text_pubic'] = 'cumslut')) and $prostitute['client_behavior'] = 'abusive':
+						prostitute['pav_internal'] = 1
+						gt 'prostitution_pavlovsk', 's4_internal'
+					else
+						gs 'prostitution_functions', 'std_check'
+						gt 'prostitution_pavlovsk', 's4_swallow'
+					end
+				end
+			else
+				act 'Tell him to pull out (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		end
+	end
+
+	gs 'stat'
+end
+
+if $ARGS[0] = 's4_swallow':
+	*clr & cla
+	minut += 4
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/public/end_bj.mp4"></video></center>'
+	'At least it''s over quickly. He '+iif($prostitute['pav_scene'] = 'pussy', 'only manages to fuck you for two minutes, before he pulls out and pushes you to the ground. "Suck, now!" he shouts. You close your lips around the red head of his penis and not a second to soon. He', 'only can resist your masterful tongue for two minutes, before he')+' sprays his cum inside '+iif(prostitute['pav_condom'] = 1, 'the condom', 'your mouth')
+	'The second he''s finished he rips his cock free and stuff it inside his pants '+iif(prostitute['pav_condom'] = 1, 'after taking the condom off and throwing it to the ground.', 'as you swallow his salty seed down.')
+
+	if prostitute['pav_condom'] = 0:
+		swallow += 1
+		gs 'cum_call', 'mouth', 'a client'
+	end
+
+	gs 'arousal', 'bj', -3, 'prostitution'
+	gs 'arousal', 'end'
+	gs 'stat'
+
+	act 'Leave': minut += 5 & gt $loc, $loc_arg
+end
+
+if $ARGS[0] = 's4_internal':
+	*clr & cla
+	minut += 4
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/public/end_vag.mp4"></video></center>'
+	gs 'arousal', 'vaginal', -1, 'prostitution', iif($prostitute['client_behavior'] = 'abusive', 'rough', '')
+	gs 'arousal', 'end'
+	'"That''s what I''m talking about," he says more to himself than to you while he buries his cock balls deep inside you.'
+	if prostitute['pav_condom'] = 1:
+		if prostitute['pav_internal'] = 0 and rand(1,100) > 98:
+			prostitute['pav_internal'] = 1
+			'You can feel his cock twitching inside your snatch as he unloads everything he has inside the condom... But something doesn''t feel right, when warmth floods your insides. He couldn''t have taken the condom of. He never had the time to do it.'
+			'"Did the condom break?" you ask him, but he either doesn''t listen or doesn''t care.'
+		else
+			'You can feel his cock twitching inside your snatch as he unloads everything he has inside the condom.'
+		end
+	else
+		'You can feel his cock twitching inside your snatch as he unloads everything he has inside you.'
+		if prostitute['pav_internal'] = 1: '"Why? I told you to cum outside," you hiss angrily, but he doesn''t seem to care. He doesn''t even bother with giving your an answer.'
+	end
+	'If there wasn''t a wall in front of you, you would have fallen face first to the ground when he pushes you away from him. "Hey," you shout protecting your face at the same time, when you crash against the wall. "What''s the matter with you?" But when you turn around he''s already stuffing his dick back inside his pants and runs away.'
+
+	if prostitute['pav_condom'] = 0 or prostitute['pav_internal'] = 1:
+		gs 'prostitution_functions', 'std_check'
+		gs 'cum_call', 'vaginal', 'a client'
+	end
+
+	gs 'stat'
+
+	act 'Continue': gt 'prostitution_pavlovsk', 'end'
+end
+
+!!------ set_5 ------
+
+if $ARGS[0] = 'set_5':
+	*clr & cla
+	minut += 15
+	if prostitute['pav_regular'] < 1: guy += 1
+	$prostitute['pav_walk'] = iif($prostitute['pav_location'] = 'private', 'pav_residential', 'pav_market')
+	gs 'prostitution_pavlovsk', 'travel', $prostitute['pav_walk']
+	if $prostitute['pav_scene'] = 'blowjob':
+		gs 'fame', 'pav', 'prostitute', rand(2,4)
+		'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/bj_'+rand(0,3)+'.mp4"></video></center>'
+		'He walks with you to a parking lot at the outskirts of Pavlovsk. A single car stands as far away as possible from the road, but it''s clearly visible from the train tracks which lead to the nearby train station. He doesn''t open the car, when you reach it, he leads you instead behind a big dumpster next to it. "Can''t we use the car?" you ask and for a moment he looks at you completely confused. You point at it. "Oh, that''s not mine."'
+		*nl
+		'A minute later you''re squatting in front of him, cock in your mouth and you head bobbing up and down on his meat. You aren''t visible from the street. The car and the dumpster are shielding you from any wandering eyes, but you still have to suck him off quickly before a train comes by and hundreds of people see you like this.'
+
+		gs 'arousal', 'bj', -9, 'prostitution', 'exhibitionism'
+		gs 'stat'
+
+		act 'Make him cum':
+			*clr & cla
+			minut += 4
+			'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/public/end_bj.mp4"></video></center>'
+			minut += 4
+			pro_temp = rand(-8,8)
+			gs 'fame', 'pav', 'prostitute', max(pro_temp,0)
+			'Too late... you can see a train approaching behind him at the same time as he unloads inside '+iif(prostitute['pav_condom'] = 1, 'the condom', 'your mouth')+'. '+iif(pro_temp > 0, 'The train isn''t passing by quickly. It''s slowly approaching the train station giving the passengers enough time to take a good look at you. "Shit," he murmurs and pulls the'+iif(prostitute['pav_condom'] = 1, ' condom covered ', ' ')+'dick out of your warm mouth. You stand up'+iif(prostitute['pav_condom'] = 1, ' ', ', swallow the cum down ')+'and walk away as quickly as you can. Hoping that not too many people saw you.', 'But it''s only an old freight train passing by quickly. "Seems we''re lucky today," he says with a boyish grin, before he walks away.')
+
+			if prostitute['pav_condom'] = 0:
+				swallow += 1
+				gs 'cum_call', 'mouth', 'a client'
+			end
+
+			gs 'arousal', 'bj', -3, 'prostitution', 'exhibitionism'
+			gs 'arousal', 'end'
+			gs 'stat'
+
+			killvar 'pro_temp'
+
+			act 'Leave': gt 'prostitution_pavlovsk', 'end'
+		end
+	else
+		gs 'fame', 'pav', 'prostitute', iif($prostitute['client_behavior'] = 'nice', rand(1,2), rand(2,4))
+
+		if $prostitute['pav_location'] = 'public':
+			'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_5/public/vag_'+rand(0,1)+'.mp4"></video></center>'
+			'He suddenly pushes you against a big trash can. "Here is fine," he says as his hands pull '+iif(CloSkirtShortness > 0, 'up your skirt.', 'down your pants.')+iif(prostitute['pav_condom'] = 1, '"The condom," you say when you feel his cock touching your pussy lips. He groans annoyed, but he pulls away and puts it on.', ' ')+'Without further ado his rock hard cock moves into your cunt while you try to steady yourself without touching the dirty trash can in front of you. Your attempt not very successful. Every time he pushes into you he pushes you further and further towards it until your whole body is pressed against it. The lid stands half open, the trash nearly spills over the edge and you have to pull your head back so that your face isn''t pushed into the trash bags.'
+		else
+			$orgasm_or = 'no'
+			if rand(0,1) = 1:
+				pro_temp = func('shortgs', 'rand_pick', '', 0, 1, 6)
+			else
+				pro_temp = func('shortgs', 'rand_pick', '', 2, 4)
+			end
+			'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_5/<<$prostitute[''pav_location'']>>/vag_<<pro_temp>>.mp4"></video></center>'
+			'He''s ogling your '+iif(pro_temp = 2 or pro_temp = 4, 'tits', 'ass')+' all the way to his apartment. There''s no small talk or any other conversation. He doesn''t speak another word after you have finished the deal. This doesn''t change even when you enter his apartment, but his hands are way more talkative than his mouth. The way he touches you communicates the raw lust seething inside him. Still you have to do most of the work from the moment your two naked bodies land in his bed. His attention is singularly focused on your '+iif(pro_temp = 2 or pro_temp = 4, 'tits', 'ass')+' and whatever you two do, he doesn''t let go of '+iif(pro_temp = 2 or pro_temp = 4, 'them', 'it')+'. He works your flesh like he''s kneading dough while you mostly '+iif(pro_temp = 2 or pro_temp = 4, 'ride him cowgirl style and do most of the work. Even when he takes over and fucks you his never lets go of your tits.', 'lie on your stomach and let him do all the work.')
+		end
+
+		gs 'arousal', 'vaginal', -3, 'prostitution', iif($prostitute['client_behavior'] = 'abusive', 'rough', ''), iif($prostitute['client_behavior'] = 'abusive', 'exhibitionism', ''), iif($prostitute['client_behavior'] = 'abusive', 'sub', '')
+		gs 'stat'
+
+		act 'Continue':
+			*clr & cla
+			minut += 12
+			gs 'arousal', 'auto_lube', 'vaginal', 'custom'
+			'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/vag_'+iif($prostitute['pav_location'] = 'public', 2, 5)+'.mp4"></video></center>'
+			if $prostitute['pav_location'] = 'public':
+				'"The smell," you say trying not to breath through your nose. "It''s disgusting."'
+				'"Really? Human trash like you has a problem with it?" he taunts you, but quickly changes his mind when the smell almost makes you throw up. "Fine, let''s go over to that car."'
+				'Freed from the smell you chuckle as the two of you try to walk over to the car while keeping his cock buried in your snatch. "Stop laughing," he says and slaps your ass hard to make you stop. Afterwards it''s business as usual. He hammers into you until he starts to breath harder and you know he''ll be ready to shot his load in a second.'
+			else
+				$orgasm_or = 'custom'
+				'Finally playtime is over and the little boy inside him, that toyed with your '+iif(pro_temp = 2 or pro_temp = 4, 'tit', 'ass')+'-flesh as if he had touched a woman for the first time, has to take a backseat. He '+iif(pro_temp = 2 or pro_temp = 4, 'throws you onto the bed', 'turns you around')+' and shoves his cock deep inside your cunt. He takes to finger and rapidly rubs your sensitive clit as he talks for the first time. "What do you want me to do?"'
+				'"Me?" you moan not able to think clearly.'
+				'"Yes you," he says in such a serious tone that you blurt out what you want in this moment. "Fuck me hard, don''t hold back."'
+				'"As you wish."'
+				$orgasm_txt = 'Your whole body is on fire and you''re twisting and turning under him. You moan uncontrollably with your tongue sticking out of your mouth like a bitch in heat getting mounted by her man. Your orgasm is nearly over, when he''s getting close himself.'
+			end
+
+			killvar 'pro_temp'
+			gs 'arousal', 'vaginal', -12, 'prostitution', iif($prostitute['client_behavior'] = 'abusive', 'rough', ''), iif($prostitute['client_behavior'] = 'abusive', 'exhibitionism', ''), iif($prostitute['client_behavior'] = 'abusive', 'sub', '')
+			gs 'stat'
+
+			if prostitute['pav_condom'] = 1:
+				act 'Let him cum inside the condom': gt 'prostitution_pavlovsk', 's5_end'
+			else
+				act 'Don''t say anything': gt 'prostitution_pavlovsk', 's5_end'
+
+				gs 'willpower', 'cum_inside', 'self', iif($prostitute['client_behavior'] = 'abusive', 'hard', 'easy')
+				if will_cost <= pcs_willpwr:
+					act 'Tell him to pull out (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'self'
+						if (rand(0,3) = 3 or (rand(0,1) = 1 and $pro_brand['text_pubic'] = 'cumslut')) and $prostitute['client_behavior'] = 'abusive':
+							prostitute['pav_internal'] = 1
+						else
+							prostitute['pav_internal'] = -1
+						end
+						gt 'prostitution_pavlovsk', 's5_end'
+					end
+				else
+					act 'Tell him to pull out (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 's5_end':
+	*clr & cla
+	minut += 6
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_<<pro_rand>>/<<$prostitute[''pav_location'']>>/end'+iif($prostitute['pav_location'] = 'public', '_vag', '')+'.mp4"></video></center>'
+	gs 'arousal', 'vaginal', -6, 'prostitution', iif($prostitute['client_behavior'] = 'abusive', 'rough', ''), iif($prostitute['client_behavior'] = 'abusive', 'exhibitionism', ''), iif($prostitute['client_behavior'] = 'abusive', 'sub', '')
+	gs 'arousal', 'end'
+
+	if $prostitute['pav_location'] = 'public':
+		if prostitute['pav_condom'] = 1:
+			if prostitute['pav_internal'] = 0 and rand(1,100) > 98:
+				prostitute['pav_internal'] = 1
+				'"Yes," he hisses as his hips jerk forward slamming you into the car as he fills his condom with his spunk. But something is wrong, you can feel his baby juice inside.'
+				'"What the fuck? Did you take the condom of?"'
+				'He takes a step back and immediately starts to laugh. He pulls the broken condom of his cock and throws it on the ground. "You fucking deserve it," he says between waves of laughter. You turn around and look down in disbelieve. '+iif($pro_brand['text_pubic'] = 'cumslut', ' "See," he points at your cumslut tattoo which he can now see for the first time. "You got what you wished for. ', ' "')+'If you get pregnant, tell your hooker child from me that mommy and daddy made him next to a trash can."'
+				*nl
+			else
+				'"Yes," he hisses as his hips jerk forward slamming you into the car as he fills the condom with his spunk.'
+			end
+		elseif prostitute['pav_internal'] = 1:
+			'"Yes," he hisses as his hips jerk forward slamming you into the car as he coats your insides with his baby juice.'
+			'"What the fuck? I told you not to cum inside me."'
+			'He takes a step back and immediately starts to laugh. "You fucking deserve it," he says between waves of laughter. You turn around and look at him in disbelieve.'+iif($pro_brand['text_pubic'] = 'cumslut', ' "See," he points at your cumslut tattoo which he can now see for the first time. "You got what you wished for. ', ' "')+'If you get pregnant, tell your hooker child from me that mommy and daddy made him next to a trash can."'
+		elseif prostitute['pav_internal'] = -1:
+			'"Yes," he hisses as he pulls back and shots his cum on the ground between your legs.'
+		elseif prostitute['pav_internal'] = 0 and prostitute['pav_condom'] = 0:
+			'"Yes," he hisses as his hips jerk forward slamming you into the car as he fills your willing pussy with his spunk.'
+		end
+		'"See ya trash," is the last thing he says to you before he walks away.'
+
+		if prostitute['pav_condom'] = 0 or prostitute['pav_internal'] = 1:
+			gs 'prostitution_functions', 'std_check'
+			if prostitute['pav_internal'] > -1: gs 'cum_call', 'vaginal', 'a client'
+		end
+	else
+		'He pulls out of your warm inviting body'+iif(prostitute['pav_condom'] = 1, ' and takes the condom off,', ',')+' before he flips you around while your body is still shaking from your orgasm. "If there ever was prove for god''s existence, it''s your perfect ass," he says after emptying his balls on it.'
+		'"But I guess he wouldn''t approve how I use his perfect creation," you joke and wiggle your ass playfully.'
+		'"No he won''t, but who cares," he says, bows down and plants a long loving kiss on your cum-free cheek. "The first door on the right is the bathroom. You can clean up in there before you go," he says before he gets up from the bed.'
+		gs 'cum_call', 'butt', 'a client'
+		if prostitute['pav_condom'] = 0: gs 'prostitution_functions', 'std_check'
+	end
+
+	gs 'stat'
+
+	if $prostitute['client_behavior'] = 'abusive':
+		act 'Continue': gt 'prostitution_pavlovsk', 'end'
+	else
+		act 'Clean up and leave': gt 'prostitution_pavlovsk', 'end', 'clean'
+	end
+end
+
+!!------ set_6 ------
+
+!!ToDo
+
+!!------ set_7 ------
+
+!!ToDo
+
+!!------ set_8 ------
+
+if $ARGS[0] = 'set_8':
+	*clr & cla
+	minut += 15
+	$orgasm_or = 'no'
+	if prostitute['pav_regular'] < 1:
+		guy += 1
+		prostitute['pav_regular_s8'] = 1
+	end
+	$prostitute['pav_walk'] = 'pav_residential'
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_8/private/anal_'+rand(0,1)+'.mp4"></video></center>'
+	gs 'fame', 'pav', 'prostitute', rand(1,2)
+	iif(rand(0,1) = 0, '"You have a nice ass,"', '"You have a really fuckable ass,"')+' he says loudly as you walk with him towards his house in the residential area. You try to look away, when he catches the attention of other pedestrians, but you''re sure they saw you and heard what he said. His hand roughly kneads your ass-cheek through your clothes as he continues, "I''m really looking forward to '+iif(rand(0,1) = 0, 'burying my cock deep inside your bowels."', 'filling your pretty little ass with my dick."')
+	*nl
+	'His not able to keep his desire in check as he nearly rips his clothes of the the second the apartment door shuts behind you. You don''t even make it to the bedroom. When you''re in your birthday suit as well, he pushes you into the kitchen, slams you against the kitchen table and forces his cock inside your dry asshole. "That''s what I''m talking about," he grunts as his cock sinks deeper and deeper into your ass. "Yeah, you filthy cunt, scream for me," he shouts not being able to contain his excitement as you let out a yelp.'+iif(prostitute['pav_condom'] = 1, ' He never put on the condom you two agreed on, but the pain is too much and you''re unable to remind him. He probably wouldn''t care anyway.', '')
+
+	gs 'arousal', 'anal', -9, 'prostitution', 'rough', 'sub'
+	gs 'stat'
+
+	act 'Get fucked':
+		*clr & cla
+		minut += 10
+		$orgasm_or = 'yes'
+		'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_8/private/anal_2.mp4"></video></center>'
+		'He doesn''t give a single fuck about your well-being. Only one thing is on his mind, fucking your ass as hard and fast as possible.'+iif(prostitute['pav_regular'] = 1, ' You could have known, what would happen. But you went with him anyway. Maybe because you want to experience such an intense orgasm again.', ' ')+iif(rand(0,1) = 0, '"I''ll fuck you until your ass bleed,"', '"You won''t be able to sit for a week,"')+' he taunts you as his cock moves back and forth stretching your abused hole wide open.'
+		'He suddenly grabs your hair and pulls your head back as his other hand gripes your throat violently. He brutally chokes you and '+iif(prostitute['pav_regular'] = 1, 'only knowing he will stop prevents you from fearing for your life even as your lungs scream for air.', 'he doesn''t let go and when your lungs scream for air you realize that could be it. The end. Dying in some guys apartment while being brutally fucked in the ass.')
+		$orgasm_txt = 'And then he let''s go, your brain floods your body with endorphins as your breath in cool air and it''s'+iif(prostitute['pav_regular'] = 1, ' again ', ' ')+'like a trigger for the rest of your body to let go. Your eyes roll back and your tongue slips out of your mouth like a bitch in heat that get''s bred by her master as your anal orgasm blocks out the pain and turns this horrible moment into pure bliss.'
+
+		gs 'arousal', 'anal', -9, 'prostitution', 'rough', 'sub'
+		gs 'pain', 10, 'hair', 'pull'
+		gs 'pain', 10, 'throat', 'choke'
+		gs 'stat'
+
+		*nl
+
+		'Your pulled back to your painful reality, when he finally pulls out his dick. Your asshole spasms trying and failing to close. "Get down here slut," he says his voice filled with pent-up aggression. You somehow are able to kneel down while your twitching ass and quivering hole constantly remind you of how you shamefully came by getting your ass violated.'
+
+		if $pro_fetish['atm'] ! 'blocked':
+			'"It''s time to taste your ass, lick my cock clean and then I''ll let you have my cum as a reward," he proclaims as if he''s handing out water to somebody who''s dying of thirst.'
+			'You stare at the cock right in front of your eyes. It was in your ass just a second ago, rummaging around deep inside your bowels. He never wiped it clean and he didn''t put on a condom. '+iif($pro_fetish['atm'] = 'yes', 'You unconsciously lick your lips in anticipation. You can''t wait to taste your own ass.', 'You frown and you move your head back an inch as you stare at the disgusting thing in front of you.')
+
+			gs 'prostitution_functions', 'will_atm', 'resist', iif($pro_fetish['atm'] = 'yes', 'hard', 'easy')
+			if will_cost < pcs_willpwr:
+				act 'Don''t do it (<<will_cost>> Willpower)':
+					cla & *nl
+					minut += 1
+					pro_temp = 0
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'You shake your head and say and . "Sorry, that''s not something I do and you didn''t pay for it."'
+					'"Fine bitch," he growls, but does nothing to persuade you to change your mind. Instead he grabs your hand and places it on his ass-juice covered dick.'
+
+					act 'Make him cum': gt 'prostitution_pavlovsk', 's8_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
+
+			if $pro_fetish['atm'] = '' or $pro_fetish['atm'] = 'undecided':
+				act 'Suck his cock and you''ll like it': $pro_fetish['atm'] = 'yes' & gt 'prostitution_pavlovsk', 's8_atm'
+				act 'Suck his cock and you''ll hate it': $pro_fetish['atm'] = 'no' & gt 'prostitution_pavlovsk', 's8_atm'
+			else
+				act 'Suck his cock': gt 'prostitution_pavlovsk', 's8_atm'
+			end
+
+			if $pro_fetish['atm'] = '':
+				'<br><font color="red">Content Warning: Ass-to-Mouth</font>'
+				act '<font color="red">Block this type of content</font>':
+					cla & *nl
+					minut += 1
+					$pro_fetish['atm'] = 'blocked'
+					gs 'stat'
+					'You shake your head and say and . "Sorry, that''s not something I do."'
+
+					act 'Continue': gt 'prostitution_pavlovsk', 's8_end'
+				end
+			end
+		else
+			'"It''s time to receive my cum," he proclaims as if he''s handing out water to somebody who''s dying of thirst. You deserve an Oscar for the smile you manage to fake as you thank him for his generosity.'
+
+			act 'Open your mouth': pro_temp = 0 & gt 'prostitution_pavlovsk', 's8_end'
+		end
+	end
+end
+
+if $ARGS[0] = 's8_atm':
+	*clr & cla
+	pro_temp = 1
+	pro_stats['atm'] += 1
+	pcs_mood = iif($pro_fetish['atm'] = 'yes', 100, 0)
+	minut += iif($pro_fetish['atm'] = 'yes', 10, 2)
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_8/private/anal_atm.mp4"></video></center>'
+	'You can''t resist the urge to sniff it, when you come closer. There is no ... stuff... on it. It looks perfectly fine and to your surprise it doesn''t even smell like you would have imagined something coming out of your ass. But it doesn''t smell like clean washed dick either. It''s '+iif($pro_fetish['atm'] = 'yes', 'strangely captivating and your pussy is getting wet only thinking about tasting your ass-juice.', 'disgusting. Utterly and completely disgusting, but you have no other choice than to go through with it.')
+	'After the first '+iif($pro_fetish['atm'] = 'yes', 'arousing', 'disgusting')+' taste you decide to '+iif($pro_fetish['atm'] = 'yes', 'take your time and clean his cock thoroughly. You let your tongue wander over his dick and lap every single drop of your enticing ass-juice. At the end you', 'get it done as quickly as possible. You only take the tip of his dick into your mouth,')+' grab the shaft with your hand and give him a handjob as you let your tongue wander around his sensitive flesh.'
+	'"I''m close," he moans, his eyes closed clearly enjoying what you''re doing. "Take it, swallow it all."'
+
+	gs 'arousal', 'bj', iif($pro_fetish['atm'] = 'yes', -8, -1), 'prostitution', 'humiliation'
+	gs 'stat'
+
+	act 'Open your mouth': gt 'prostitution_pavlovsk', 's8_end'
+end
+
+if $ARGS[0] = 's8_end':
+	*clr & cla
+	minut += 10
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_8/private/anal_atm.mp4"></video></center>'
+	'His cock twitches in your hand as his cum violently erupts from his meat and shoots into your mouth. "Fuck, take it bitch. Take my cum," he shouts loudly into the apartment as he throws his head back when the intensity of his orgasm takes hold of his body.'
+	*nl
+
+	swallow += 1
+	gs 'cum_call', 'mouth', 'a client'
+	gs 'arousal', 'hj', -2, 'prostitution'
+	gs 'stat'
+
+	if prostitute['pav_regular'] = 1:
+		minut += 10
+		pcs_mood += iif($pro_fetish['atm'] = 'yes', 20, 40)
+		gs 'drugs', 'alcohol', 'beer', 1
+
+		if prostitute['pav_regular_s8_end'] = 0:
+			prostitute['pav_regular_s8_end'] = 1
+			'He walks over to the fridge, after you have swallowed his spunk down, and pulls out two bottles of beer. "Do you want one as well? I bet my cum doesn''t taste that great'+iif(pro_temp = 1, ', but still better than your ass,"', ',"')+' he says and flashes you a boyish grin.'
+			'"Uhm... sure," you say a bit confused about the abrupt change in tone. One minute ago he nearly was choking you to death and now he''s offering you a beer as if you are a friend coming over to hang out.'
+			'"I really appreciate you sleeping with me again," he explains. "Most girls aren''t able to keep up with what I need from them and nobody went home with me twice."'
+			'"If you would be nicer, maybe more girls would return home with you." You take a big gulp and swirl it around to get the taste of cum'+iif(pro_temp = 1, ' and ass ', ' ')+'out of your mouth.'
+			'He shakes his head. "It''s not working for me if it''s all sweet and soft." He shrugs and takes a big gulp himself. "No idea why, but I need to take control and break the girl or I can''t get off. Maybe something is broken inside me. I don''t know. But you aren''t normal yourself, aren''t you?"'
+			'"What makes you say that?" you ask and wonder if it''s true. You were just a normal average schoolgirl a short while ago.'
+			'"You came both times. I never made a girl cum like this before." You blush. It''s nothing you have control over, but you hate that your cheeks turn red and you avert your gaze. He laughs and it''s sounds not at all like you would have expected. It''s soft, warm and understanding. "You liked it, didn''t you?"'
+			'Shit, he''s right. You did. You loved it. Should you tell him that? You ask yourself as your fingers nervously play with the label on the beer bottle. Finally, after at least a whole minute has passed, you nod. "Yeah I did."'
+			'He surprises you again with his reaction. "Thank god," he says relieved and his body visibly relaxes. "I always feel bad about what I do afterwards, but I can''t control myself. One reason I only use whores. At least they go with me willingly."'
+		else
+			'After you''re done, he offers you a beer again and the two of you chat for a few minutes about random stuff like the weather, before you get ready to leave.'
+		end
+		*nl
+
+		if pro_temp = 1:
+			*nl
+			money += 500
+			pcs_mood += 20
+			gs 'stat'
+			'"Before you go," he hands you 500 <b>₽</b>. "That''s for... you know... doing ass-to-mouth."'
+		end
+
+		killvar 'pro_temp'
+
+		act 'Get dressed and leave': gt 'prostitution_pavlovsk', 'end'
+	else
+		'"Wait," he says when you close your mouth to swallow his spunk down. "Savor it." You have no choice, but to do it, when you want to finally get out of here and so you swirl the cum around in your mouth until he signals you with a short nod it''s now OK to swallow it down. "And now get the fuck out of my house you disgusting slut."'
+
+		killvar 'pro_temp'
+
+		act 'Get dressed and leave': gt 'prostitution_pavlovsk', 'end'
+	end
+
+	gs 'stat'
+end
+
+!!------ set_9 ------
+
+if $ARGS[0] = 'set_9':
+	*clr & cla
+	minut += 15
+	$orgasm_or = 'no'
+	$prostitute['pav_walk'] = iif($prostitute['client_behavior'] = 'abusive', 'pav_residential', 'pav_complex')
+	gs 'prostitution_pavlovsk', 'travel', $prostitute['pav_walk']
+	'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_9/private/anal_'+iif($prostitute['client_behavior'] = 'abusive', 1, 0)+'.mp4"></video></center>'
+	gs 'fame', 'pav', 'prostitute', iif($prostitute['client_behavior'] = 'abusive', rand(2,4), rand(1,2))
+	if $prostitute['client_behavior'] = 'abusive':
+		'"I''m going to rip open your asshole'+iif(prostitute['pav_regular'] = 1, ' again,', ',')+'" the man says loudly not caring that somebody could overhear his words. "You won''t be able to sit down for a week." You smile and keep any thoughts you have about his behavior to yourself as you follow him to his apartment in the residential district.'
+		if rand(0,2) = 2:
+			gs 'pain', 10, 'asscheeks', 'slap'
+			gs 'fame', 'pav', 'prostitute', rand(2,4)
+			'He suddenly slaps your ass when you pass by two old man sitting on a bench. He immediately has their attention. "Yo geezers," he shouts and slaps your ass again while you look away. "I''m going to fuck this whore until her ass bleeds. You can''t see their reaction and you quicken your step to get away from them while he laughs and gives your ass another playful slap.'
+		end
+		*nl
+		'"Get on the bed," is the only thing he says to you after entering his apartment. The two of you undress and he positions himself behind you. There''s no foreplay, no emotion just raw lust on his part. For him you are just a warm pile of flesh in which he can stick his cock. He fucks you roughly, ramming his cock hard and deep inside your hole, but every once in a while he pulls out completely, gives your ass a playful slap before brutally forcing his cock past your abused sphincter.'
+	else
+		minut += 20
+		'The walk towards his apartment is actually quite nice because he shows interest in more than your body. He asks some questions about your hobbies and not just to pass the time, but he seems interested even if you only give him vague answers.'
+		'"Thanks for doing it," he says when the apartment door closes behind you two. "My wife hates it and never let''s me... you know..." he blushes and looks away.'
+		'"Hey," you grab his hand and give it a tender squeeze to reassure him. "It''s nothing you have to be ashamed of. If your wife doesn''t like anal, it''s her loss." You pull him towards the open door of the bedroom.'
+		*nl
+		'During the next ten minutes he treats you like a goddess. He caresses you and kisses every inch of your body as he explores it. Finally he moves on to the main course and pushes his dick inside your ass after he took his time preparing your hole with his fingers and tongue. "So good," he moans like a woman and slowly starts to move in and out of you.'
+		'If he continues like this, you''ll be here for hours. Maybe some encouragement will help, you think and say. "You can do it harder if you want." You doesn''t have to tell him twice as your comment has the desired effect. He instantly speeds up and fucks like wholeheartedly.'
+	end
+
+	gs 'arousal', 'auto_lube', 'vaginal', 'custom'
+	if $prostitute['client_behavior'] = 'nice':
+		gs 'arousal', 'foreplay', -9, 'prostitution'
+		gs 'arousal', 'anal', -9, 'prostitution'
+	else
+		gs 'arousal', 'anal', -9, 'prostitution', 'rough', 'sub'
+	end
+	gs 'stat'
+
+	*nl
+	'After a few minutes he''s done. He pulls out of your ass for the last time'+iif(prostitute['pav_condom'] = 1, ', takes the condom off ', ' ')+'and points at the floor without telling you what he wants, but an experienced whore knows exactly what comes next.'
+
+	act 'Get on your knees':
+		*clr & cla
+		minut += 10
+		'<center><video autoplay loop src="images/prostitution/pavlovsk/street/set_9/private/end.mp4"></video></center>'
+		if $prostitute['client_behavior'] = 'abusive':
+			'"Look at me," he growls like a dog as he furiously strokes his cock. He laughs when you follow his command and your gazes met. "I think this is the best part," he says as his cum coats your face. "Seeing how there is nothing left in the eyes of broken sluts.'
+			*nl
+			'"And now piss off," he says when he is done. "And keep my cum and your face to show everybody what kind of slut you are."'
+			act 'Leave with cum on your face': gt 'prostitution_pavlovsk', 'end'
+		else
+			'"Look at me." His voice is hoarse and sounds almost pleading. You tear your gaze away from his hard cock and look up directly into his eyes. For what feels like a whole minute there''s only silence in the room'
+			*nl
+			'"Thanks, I really appreciate you spending time with me," he says. "The bathroom is down the hall, you can fresh up in there."'
+			act 'Clean up and leave': gt 'prostitution_pavlovsk', 'end', 'clean'
+		end
+
+		facial += 1
+		gs 'cum_call', 'face', 'a client'
+		gs 'arousal', 'end'
+		gs 'stat'
+	end
+end
+
+!!------ rape ------
+
+if $ARGS[0] = 'rape':
+
+end
+
+!!------ End ------
+
+if $ARGS[0] = 'end':
+	minut += 5
+	prostitute['pav_timer_hour'] = hour
+	killvar 'pro_rand'
+	if $ARGS[1] = 'clean':
+		minut += 5
+		cumspclnt = 20
+		gs 'cum_cleanup'
+	end
+	gt $loc, $loc_arg
+end
+
+!!------ Travel times and return locations ------
+
+if $ARGS[0] = 'travel':
+	if $prostitute['pav_walk'] = 'pav_residential' or $prostitute['pav_walk'] = 'pav_complex':
+		if $loc = $loc = 'liam':
+			minut += 20
+		elseif $loc = 'pav_industrial' or $loc = 'pav_market':
+			minut += 15
+		elseif $loc = 'pav_park' or $loc = 'pav_commercial':
+			minut += 10
+		else
+			minut += 5
+		end
+		$loc_arg = iif($prostitute['pav_walk'] = 'pav_complex', 'start', '')
+	elseif $prostitute['pav_walk'] = 'pav_commercial':
+		if $loc = $loc = 'liam':
+			minut += 15
+		elseif $loc = 'pav_commercial':
+			minut += 5
+		else
+			minut += 10
+		end
+		$loc_arg = ''
+	elseif $prostitute['pav_walk'] = 'pav_market':
+		if $loc = 'liam' or $loc = 'pav_commercial':
+			minut += 10
+		elseif $loc = 'pav_market':
+			minut += 5
+		else
+			minut += 15
+		end
+		$loc_arg = ''
+	end
+
+	$loc = $prostitute['pav_walk']
+end
+
+
+!!{
+if $ARGS[0] = 'maybe_use_later':
+	'He pushes you down with one hand as he clumsily pulls his pants down with the other. "I will show the fat bastard who is the boss," he murmurs, grabbing your head at the same time. He them pushes his'+iif(prostitute['pav_condom'] = 1, ' condom covered ', ' ')+'cock down your throat without any regard for your well-being. You gag, tears well up in your eyes, but you get your throat under control thanks to your experience and let him abuse your face.'
+	'He isn''t fucking you. At least not in his mind. The whole time he fucks your face he complains about some bitch in accounting or his boss or secretary. The whole thing isn''t about sex, it''s about finding an outlet for his frustration and aggression. He doesn''t even stop his attack on your face, when he shoots his cum '+iif(prostitute['pav_condom'] = 1, 'into the condom', 'down your throat')
+	money += 100
+	if rand(0,1) = 1:
+		'He stops... finally... and it''s as if a spell has been lifted. He stares at the tears on your cheeks for what feels like an eternity, before he says. "Sorry about that... uhm...," he stammers as you wipe away the tears. "Could you clean my dick?" When he sees the hesitation in your eyes he adds. "I give you 100 <b>₽</b> extra."'
+		'You sigh. '+iif(prostitute['pav_condom'] = 1, 'A few drops probably can''t hurt,', 'Why no, you already swallowed his load')+' you think, grab his cock and give it a few soft strokes to push out the last drops of cum, before you take the head back into your mouth, swirl your tongue around it and like it clean.'
+		gs 'prostitution_functions', 'std_check_oral', 'low'
+	end
+end
+}
+
+--- prostitution_pavlovsk ---------------------------------