:: prostitution_functions
<<set $here = 'prostitution_functions'>>
<<set $ARGS = $location_var[$here]>>
<!-- !! ---- Variables --------------------------------------------------------------------------------------------------------->
<!-- !!-->
<!-- !! prostitute['payment_method']: 1 - Sveta works for herself; 0 - Sveta works for someone else who will take a cut-->
<!-- !! prostitute['blocked']: 1 - WLife is loaded which blocks some of the locations: Pavlovsk will rely on the WLife mod-->
<!-- !!							  and the Gas Station will be completely blocked-->
<!-- !!						  0 - WLife is not loaded, everything works as normal.-->
<!-- !! prostitute[<<$location>>]: 1 - Sveta can work at the location.-->
<!-- !!                            0 - Sveta can't work at the location-->
<!-- !!     current locations: Pavlovsk - ''pavlovsk'', Gadukino - ''gadukino'',-->
<!-- !!                        Road between Pavlovsk and St Petersburg - ''road'', Gas Station ''gas_station''-->
<!-- !! prostitute['active']: 1- Sveta ''unlocked'' prostitution somewhere. It is use for non-location specific checks, like-->
<!-- !!							being able set a default prostitute outfit at home, or finding new places to work at.-->
<!-- !! prostitute['work_clothes']: 1 - Sveta is wearing a prostitute outfit, i.e. clothes and shoes-->
<!-- !! prostitute['outfit_is_set']: 1 - Sveta has a default outfit set up. Needed if she wants to change in restrooms-->
<!-- !!									or in the car on location, and not travel wearing that outfit-->
<!-- !! prostitute['changed_for_work']: 1 - It means that Sveta changed into her prostitute outfit on site from some regular-->
<!-- !!                                     clothes. This enables the 'Change into regular clothes' action in the changing-->
<!-- !!									   location.-->
<!-- !!								   0 - Sveta didn''t change which means she can't change into regular clothing.-->
<!-- !!---------- Initial set up, enabling locations, etc. --------------------------------------------------------------------->
<!-- !!------------------------------------------------------------------------------------------------------------------------->
<<setinit $solicitation_locations[0] = 'pav_commcenter'>>
<<setinit $solicitation_locations[1] = 'pav_residential'>>
<<setinit $solicitation_locations[2] = 'pav_industrial'>>
<<setinit $solicitation_locations[3] = 'pav_commercial'>>
<<setinit $solicitation_locations[4] = 'pav_market'>>
<<setinit $solicitation_locations[5] = 'pav_complex'>>
<<setinit $solicitation_locations[6] = 'pav_park'>>
<<setinit $solicitation_locations[7] = 'pushkin'>>
<<if $location_var[$here][0] == 'check_for_wlife'>>
	<<if getvar("$mod_list") > 0>>
		<<set $mod_i = 1>>
		<<warn 'JUMP MARKER ENCOUNTERED: :'>> % $_exec
		<<if $mod_name[$mod_i] == 'wlife'>>
			<<setinit getvar("$prostitute['blocked']") = 1>>
		<</if>>
		<<if $mod_list > $mod_i>>
			<<set $mod_i += 1>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump '>> % _exec'
		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'set_pavlovsk_prostitute'>>
	<<if ($pc.fame('pav_prostitute') > 250 or $pc.fame('pav_slut') > 250) and getvar("$prostitute['blocked']") == 0>>
		<<setinit $prostitute['pavlovsk'] = 1>>
		<<setinit $prostitute['active'] = 1>>
		<<setinit $prostitute['payment_method'] = 1>>
	<<else>>
		<<setinit $prostitute['pavlovsk'] = 0>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'set_gadukion_prostitute'>>
	<<if getvar("$gadriver_gang") == 2 and (getvar("$mirapimp") == 0 or getvar("$mirapimp") == 2)>>
		<<setinit $prostitute['gadukino'] = 1>>
		<<setinit $prostitute['active'] = 1>>
		<<setinit $prostitute['payment_method'] = 1>>
	<<else>>
		<<setinit $prostitute['gadukino'] = 0>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'prostitute_work_hours'>>
	<<if $region == 'pushkin'>>
		<<set $result = (hour >= 0 and hour < 2) or (hour >= 12 and hour < 14) or (hour >= 17 and hour <= 23)>>
	<<elseif $region == 'pav' or $MID($loc,1,4) == 'pav_'>>
		<<set $result = (hour >= 12 and hour < 14) or (hour >= 17 and hour <= 23)>>
	<<else>>
		<<set $result = 0>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'is_solicitation_location'>>
	<<set $result = $curloc ! 'shop' and $curloc ! 'prostitution_pavlovsk' and $loc = $curloc and menu_off = 0 and ($loc_arg = '' or $loc_arg = 'start') and (ARRPOS('$solicitation_locations', $loc) ! -1)>>
<</if>>
<!-- !!------------------------------------------------------------------------------------------------------------------------->
<!-- !!------------------------------------------------------------------------------------------------------------------------->
<!-- !!-->
<!-- !!---------- Setting default working outfit ------------------------------------------------------------------------------->
<!-- !! When calling check if Sveta is at home (i.e. the wardrobe is in her current home)-->
<<if $location_var[$here][0] == 'prostitute_outfit_at_home'>>
	<<if setup.func('homes_properties', 'is_current_home') and $prostitute and $prostitute['active']>>
		<<gs 'prostitution_functions' 'work_clothes'>>
		<<if $prostitute['work_clothes']>>
			<<gs 'prostitution_functions' 'is_default'>>
			<<if getvar("$prostitute['outfit_is_set']") == 1 and getvar("$is_default") == 0>>
				<<actCLA 'Replace your default prostitute outfit with the current outfit'>>
					<<gs 'prostitution_functions' 'set_default_outfit'>>
					<<gt $location>>
				<</actCLA>>
			<<elseif getvar("$prostitute['outfit_is_set']") == 0>>
				<<actCLA 'Set the current as your default prostitute outfit'>>
					<<gs 'prostitution_functions' 'set_default_outfit'>>
					<<gt $location>>
				<</actCLA>>
			<</if>>
			<<actCLA 'Change into regular clothes'>>
				<<gs 'prostitution_functions' 'change_into_regular_clothes'>>
				<<gt $location>>
			<</actCLA>>
		<<elseif $prostitute['outfit_is_set']>>
			<<actCLA 'Change into prostitute outfit'>>
				<<gs 'prostitution_functions' 'change_into_prostitute_outfit'>>
				<<gt $location>>
			<</actCLA>>
		<</if>>
		<<set $is_default to null>>
	<</if>>
<</if>>
<!-- !!---- Outfit checks ----------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'work_clothes'>>
	<<setinit $prostitute['work_clothes'] = ($wardrobe.PCloStyle == 4 and ($wardrobe.PShoStyle == 1 or $wardrobe.PShoStyle == 2 or $wardrobe.PShoHeels >= 3))>>
<</if>>
<<if $location_var[$here][0] == 'is_default'>>
	<!-- FAILED TO CONVERT
		is_default = prostitute['clothingwornnumber'] = clothingwornnumber & prostitute['pantywornnumber'] = pantywornnumber & prostitute['brawornnumber'] = brawornnumber & prostitute['shoewornnumber'] = shoewornnumber
	-----
		<<set $is_default = ERROR: FAILED TO CONVERT LITERAL: """prostitute['clothingwornnumber'] = clothingwornnumber""">> <<setinit $prostitute['pantywornnumber'] = $wardrobe.pantywornnumber>> <<set $prostitute['brawornnumber'] = $wardrobe.brawornnumber>> <<set $prostitute['shoewornnumber'] = $wardrobe.shoewornnumber>>

	-->
	<<warn "CONVERSION ERROR fb1370260bdd5b95488db03d52ccf98e">>
<</if>>
<!-- !!---- Setting, clearing and changing outfits -------------------------------------------------------------------->
<<if $location_var[$here][0] == 'set_default_outfit'>>
	<!-- !!-- Clothing-->
	<<setinit $prostitute['clothingworntype'] = $wardrobe.clothingworntype>>
	<<setinit $prostitute['clothingwornnumber'] = $wardrobe.clothingwornnumber>>
	<!-- !!-- Underwear-->
	<<setinit $prostitute['pantyworntype'] = $wardrobe.pantyworntype>>
	<<setinit $prostitute['pantywornnumber'] = $wardrobe.pantywornnumber>>
	<<setinit $prostitute['braworntype'] = $wardrobe.braworntype>>
	<<setinit $prostitute['brawornnumber'] = $wardrobe.brawornnumber>>
	<!-- !!-- Shoes-->
	<<setinit $prostitute['shoeworntype'] = $wardrobe.shoeworntype>>
	<<setinit $prostitute['shoewornnumber'] = $wardrobe.shoewornnumber>>
	<<setinit $prostitute['outfit_is_set'] = 1>>
<</if>>
<<if $location_var[$here][0] == 'clearing_default_outfit'>>
	<!-- !!-- Clothing-->
	<<setinit $prostitute['clothingworntype'] = ''>>
	<<setinit $prostitute['clothingwornnumber'] = 0>>
	<!-- !!-- Underwear-->
	<<setinit $prostitute['pantyworntype'] = ''>>
	<<setinit $prostitute['pantywornnumber'] = 0>>
	<<setinit $prostitute['braworntype'] = ''>>
	<<setinit $prostitute['brawornnumber'] = 0>>
	<!-- !!-- Shoes-->
	<<setinit $prostitute['shoeworntype'] = ''>>
	<<setinit $prostitute['shoewornnumber'] = 0>>
	<<setinit $prostitute['outfit_is_set'] = 0>>
<</if>>
<<if $location_var[$here][0] == 'change_into_prostitute_outfit'>>
	<<run $wardrobe.wear_clothes_legacy('clothes',$prostitute['clothingworntype'],$prostitute['clothingwornnumber'])>>
	<<run $wardrobe.wear(['panties',$prostitute['pantyworntype'],$prostitute['pantywornnumber']])>>
	<<run $wardrobe.wear(['bra',$prostitute['braworntype'],$prostitute['brawornnumber']])>>
	<<gs 'shoes' 'strip'>>
	<<run $wardrobe.wear(['shoes',$prostitute['shoeworntype'],$prostitute['shoewornnumber']])>>
	<!-- !	!! TODO: Check for worn out here?-->
	<!-- !! CHeck if the change happened not at home and if yes, then store the fact of change.-->
	<<gs 'prostitution_functions' 'work_clothes'>>
	<<if $location_var[$here][1] == 'work'>>
		<<setinit $prostitute['changed_for_work'] = 1>>

	<</if>>
<</if>>
<<if $location_var[$here][0] == 'change_into_regular_clothes'>>
	<!-- !!-- Clothing-->
	<<gs 'clothing' 'wear_last_worn'>>
	<!-- !!-- Underwear-->
	<<gs 'panties' 'wear_last_worn'>>
	<<gs 'bras' 'wear_last_worn'>>
	<!-- !!-- Shoes-->
	<<run $wardrobe.wear_last('shoes')>>
	<<gs 'prostitution_functions' 'work_clothes'>>
	<<if $prostitute['changed_for_work']>>
		<<setinit $prostitute['changed_for_work'] = 0>>

	<</if>>
<</if>>
<!-- !!---------- Chaging outfits in public locations -------------------------------------------------------------------------->
<!-- !!------ CHanging clothes ---------------------------->
<<if $location_var[$here][0] == 'change_to_work'>>
	 	<<set $time.minutes += 10>>
	<<if $location_var[$here][1] == 'car'>>
		<!-- !! TODO: Video / image and some text describing the cloth change in the car-->
		<<set '' + iif($loc_desc = $loc_desc, 'You quickly change into your working outfit in your car.', $loc_desc)>>
	<</if>>
	<<if $location_var[$here][1] == 'restroom'>>
		<!-- !! TODO: Video / image and some text describing the cloth change in the men''s restroom-->
		<!-- !! Is there a way to know if it's a men''s or women''s restroom?-->
		<<set '' + iif($loc_desc = $loc_desc,  'You slip into a stall and quickly change into your working outfit, trying t avoid your clothes touching the floor or, really, anything before you place them safely in your bag.', $loc_desc)>>
	<</if>>
	<<gs 'prostitution_functions' 'change_into_prostitute_outfit' 'work'>>
	<<actCLA 'Finish'>>
		<<gt $location>>
	<</actCLA>>
<</if>>
<<if $location_var[$here][0] == 'change_back'>>
	 	<<set $time.minutes += 10>>
	<<if $location_var[$here][1] == 'car'>>
		<!-- !! TODO: Video / image and some text describing the cloth change in the car-->
		You quickly change into your working outfit in your car.
	<</if>>
	<<if $location_var[$here][1] == 'restroom'>>
		<!-- !! TODO: Video / image and some text describing the cloth change in the men''s restroom-->
		You quickly change into your working in the men''s restroom..
	<</if>>
	<<if $loc_arg == 'restroom_women'>>
		<!-- !! TODO: Video / image and some text describing the cloth change in the women''s restroom-->
		You quickly change into your working outfit in the women''s restroom.
	<</if>>
	<<gs 'prostitution_functions' 'change_into_regular_clothes'>>
	<<actCLA 'Finish'>>
		<<gt $location>>
	<</actCLA>>
<</if>>
<!-- !!------------------------------------------------------------------------------------------------------------------------->
<!-- !!---------- Checking for events ------------------------------------------------------------------------------------------>
<!-- !!------------------------------------------------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'check_solicitation_event'>>
	<<gs 'prostitution_functions' 'work_clothes'>>
	<<if getvar("$prostitute['blocked']") == 0 and setup.func('prostitution_functions', 'prostitute_work_hours') and setup.func('prostitution_functions','is_solicitation_location')>>
		<<if getvar("$prostitute['pavlovsk']") == 1 and $prostitute['pav_time_hour'] != $time.hour and rand(-20, 70) < $time.minutes>>
			<<gs 'prostitution_pavlovsk' 'chance'>>
		<</if>>
		<<if getvar("$prostitute['pavlovsk']") == 1 and $prostitute['work_clothes']>>
			<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>
		<</if>>
		<<if $prostitute['pav_residential_prost_day'] != $time.daystart>>
			<<setinit $prostitute['pav_residential_prost_day'] = $time.daystart>>

		<</if>>
		<!-- !!pav_residential_prost_day-->
	<</if>>
<</if>>
<!-- !!------------------------------------------------------------------------------------------------------------------------->
<!-- !!---------- Willpower checks --------------------------------------------------------------------------------------------->
<!-- !!------------------------------------------------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'will_unprotected'>>
	<<gs 'willpower' 'calc'>>
	<<set $will_cost = 0>>
	<<if $missCum >= $timeTresh>>
		<<setn $will_calc += 100>>

	<</if>>
	<<if $location_var[$here][1] == 'resist'>>
		<<if getvar("$pro_stats['unprotected']") <= 90>>
			<<set $will_cost = (10 + $pro_stats['unprotected'] + $will_calc) / 10>>
		<<else>>
			<<set $will_cost = (100 + $will_calc) / 10>>
		<</if>>
	<<else>>
		<<if getvar("$pro_stats['unprotected']") <= 90>>
			<<set $will_cost = (100 - $pro_stats['unprotected'] + $will_calc) / 10>>
		<<else>>
			<<set $will_cost = (10 + $will_calc) / 10>>
		<</if>>
	<</if>>
	<<gs 'willpower' 'difficulty' '$ARGS[2]'>>
<</if>>
<<if $location_var[$here][0] == 'will_rimming'>>
	<<gs 'willpower' 'calc'>>
	<<if $location_var[$here][1] == 'self'>>
		<<if $pc.sexStat('rimming_give') <= 90>>
			<<set $will_cost = (100 - $pc.sexStat('rimming_give') + $will_calc) / 10>>
		<<else>>
			<<set $will_cost = (10 + $will_calc) / 10>>
		<</if>>
	<<elseif $location_var[$here][1] == 'force'>>
		<<if $pc.sexStat('rimming_give') <= 40>>
			<<set $will_cost = (110 - $will_enforced - $pc.sexStat('rimming_give') + $will_calc) / 10>>
		<<else>>
			<<set $will_cost = (70 - $will_enforced + $will_calc) / 10>>
		<</if>>
	<<else>>
		<<if $pc.sexStat('rimming_give') <= 90>>
			<<set $will_cost = (10 + $pc.sexStat('rimming_give') + $will_calc) / 10>>
		<<else>>
			<<set $will_cost = (100 + $will_calc) / 10>>
		<</if>>
	<</if>>
	<<gs 'willpower' 'difficulty' '$ARGS[2]'>>
<</if>>
<<if $location_var[$here][0] == 'will_atm'>>
	<<gs 'willpower' 'calc'>>
	<<if $location_var[$here][1] == 'self'>>
		<<if getvar("$pro_stats['atm']") <= 90>>
			<<set $will_cost = (100 - $pro_stats['atm'] + $will_calc) / 10>>
		<<else>>
			<<set $will_cost = (10 + $will_calc) / 10>>
		<</if>>
	<<elseif $location_var[$here][1] == 'force'>>
		<<if getvar("$pro_stats['atm']") <= 40>>
			<<set $will_cost = (110 - $will_enforced - $pro_stats['atm'] + $will_calc) / 10>>
		<<else>>
			<<set $will_cost = (70 - $will_enforced + $will_calc) / 10>>
		<</if>>
	<<else>>
		<<if getvar("$pro_stats['atm']") <= 90>>
			<<set $will_cost = (10 + $pro_stats['atm'] + $will_calc) / 10>>
		<<else>>
			<<set $will_cost = (100 + $will_calc) / 10>>
		<</if>>
	<</if>>
	<<gs 'willpower' 'difficulty' '$ARGS[2]'>>
<</if>>
<!-- !!------------------------------------------------------------------------------------------------------------------------->
<!-- !!---------- Condoms & STDs------------------------------------------------------------------------------------------------>
<!-- !!------------------------------------------------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'std_check'>>
	<<set $pro_std_check_rand = rand(0,10)>>
	<<if getvar("$protect") == 1>>
		<<set $pro_std_rand = rand(0,1000)>>
		<<if getvar("$pro_std_rand") == 1000>>
			<<gs 'prostitution_functions' 'std_chance'>>

		<</if>>
	<<else>>
		<<if $location_var[$here][1] == 'high'>>
			<<set $pro_std_rand = rand(-20,120)>>
		<<else>>
			<<set $pro_std_rand = rand(-60,100)>>
		<</if>>
		<<if getvar("$pro_std_rand") >= 80>>
			<<gs 'prostitution_functions' 'std_chance'>>

		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'std_chance'>>
	<<if getvar("$cheatHealth") == 0>>
		<<if getvar("$pro_std_check_rand") == 8>>
			<!-- !!herpes-->
			<<if rand(1, 100) > 90>>
				<<if getvar("$GerpesOnce") == 0>>
					<<set $GerpesOnce = 1>>
					<<set $Venera += 1>>
					<<set $Gerpes += 1>>
					<<set $GenHerpes = 1>>
				<</if>>
			<</if>>
		<<elseif getvar("$pro_std_check_rand") == 7>>
			<!-- !!syphilis-->
			<<if rand(1, 100) > 95>>
				<<setn $Venera += 1>>

			<</if>>
			<<if getvar("$SifacOnce") == 0>>
				<<set $SifacOnce = 1>>
				<<set $Sifilis += 1>>
			<</if>>
		<<elseif getvar("$pro_std_check_rand") >= 5 and getvar("$pro_std_check_rand") < 7>>
			<!-- !!gonorrhea/triper-->
			<<if rand(1, 100) > 95>>
				<<setn $Venera += 1>>

			<</if>>
			<<if getvar("$TriperOnce") == 0>>
				<<set $TriperOnce = 1>>
				<<set $Triper += 1>>
			<</if>>
		<<elseif getvar("$pro_std_check_rand") < 5>>
			<!-- !!candidiasis/thrush-->
			<<if rand(1, 100) > 85>>
				<<if getvar("$KandidozOnce") == 0>>
					<<set $KandidozOnce = 1>>
					<<set $Kandidoz += 1>>
				<</if>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'std_check_oral'>>
	<<set $pro_std_check_rand = rand(0,10)>>
	<<if getvar("$protect") == 1>>
		<<set $pro_std_rand = rand(0,1000)>>
		<<if getvar("$pro_std_rand") == 1000>>
			<<gs 'prostitution_functions' 'std_oral_chance'>>

		<</if>>
	<<else>>
		<<if $location_var[$here][1] == 'high'>>
			<<set $pro_std_rand = rand(-20,120)>>
		<<elseif $location_var[$here][1] == 'low'>>
			<<set $pro_std_rand = rand(-80,90)>>
		<<else>>
			<<set $pro_std_rand = rand(-60,100)>>
		<</if>>
		<<if getvar("$pro_std_rand") >= 80>>
			<<gs 'prostitution_functions' 'std_oral_chance'>>

		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'std_oral_chance'>>
	<<if getvar("$cheatHealth") == 0>>
		<<if getvar("$pro_std_check_rand") >= 5 and getvar("$pro_std_check_rand") < 7>>
			<<if rand(1, 100) > 95>>
				<<setn $Venera += 1>>

			<</if>>
			<<if getvar("$TriperOnce") == 0>>
				<<set $TriperOnce = 1>>
				<<set $TriperOral += 1>>
				<<if rand(0,100) < 15>>
					<<set $TriperOralSigns = 1>>

				<</if>>
			<</if>>
		<<elseif getvar("$pro_std_check_rand") == 7>>
			<<if rand(0,1) == 1>>
				<!-- !!syphilis-->
				<<if rand(1, 100) > 95>>
					<<setn $Venera += 1>>

				<</if>>
				<<if getvar("$SifacOnce") == 0>>
					<<set $SifacOnce = 1>>
					<<set $Sifilis += 1>>
				<</if>>
			<</if>>
		<<elseif getvar("$pro_std_check_rand") < 5>>
			<!-- !!candidiasis/thrush-->
			<<if rand(1, 100) > 85>>
				<<if getvar("$KandidozOnce") == 0>>
					<<set $KandidozOnce = 1>>
					<<set $Kandidoz += 1>>
				<</if>>
			<</if>>
		<<elseif getvar("$pro_std_check_rand") == 8>>
			<!-- !!herpes-->
			<<if rand(1, 100) > 90>>
				<<if getvar("$GerpesOnce") == 0>>
					<<set $GerpesOnce = 1>>
					<<set $Venera += 1>>
					<<set $Gerpes += 1>>
					<<set $OrHerpes = 1>>
				<</if>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'remove_condom'>>
	<<if $inventory.get("condom") > 0>>
		<<run $inventory.dec('condom',1)>>
	<<elseif getvar("$prezikcount") > 0>>
		<<set $prezikcount -= 1>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'your_condom'>>
	<<setinit $prostitute['condom'] = 1>>
	<<set $protect = iif(prezik > 0,1,0)>>
	<<if $inventory.get("condom") > 0>>
		<<if rand(1,prezik) <= $badprezik>>
			<<set $badprezik -= 1>>
			<<set $noprotect = 1>>
			<<set $sexcontra = 7>>
		<<else>>
			<<set $sexcontra = 3>>
		<</if>>
		<<run $inventory.dec('condom',1)>>
		<<set $sexcontra = iif(preziktype = 2,7,sexcontra)>>
	<<else>>
		<<set $sexcontra = 0>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'his_condom'>>
	<<set $bwa_boy = iif(!$ARGS[1],$boydesc,$ARGS[1])>>
	<<set $protect = 1>>
	<<set $sexcontra = 3>>
	<!-- FAILED TO CONVERT
		*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.'
	-----
		 * p '<<ucase(mid($bwa_boy,1,1))>><<mid($bwa_boy,2,len($bwa_boy) - ERROR: FAILED TO CONVERT LITERAL: """1)>> takes his condom and puts it on his <<dick>> centimeter dick.'"""

	-->
	<<warn "CONVERSION ERROR bf75915f7b1f3c650ba17d2fce999b3c">>
<</if>>
<!-- !!---------- Background: Black------------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'darkness'>>
	<<set $fcolor = rgb(255, 255, 255)>>
	<<set $bcolor = rgb(0, 0, 0)>>
	<<set $lcolor = rgb(106, 90, 205)>>
<</if>>
<<if $location_var[$here][0] == 'parameters'>>
	<!-- !!Reset-->
	<<set $protect = 0>>
	<<set $sexcontra = 0>>
	<<set $pro_client_condom = 'tbd'>>
	<<set $pro_client_cumshot = 'tbd'>>
	<!-- !!Client-->
	<<gs 'npcgeneratec' 0 'client' `rand(18,65)`>>
	
	<!-- !!-->
	<!-- !!---------- Time ------------------------------------------------------------------------------------------------->
	<<if $time.hour > 19 or $time.hour < 7>>
		<<set $pro_work_time = 'night'>>
	<<else>>
		<<set $pro_work_time = 'day'>>
	<</if>>
	<<gs 'prostitution_functions' 'std_cum_check'>>
	<!-- !!---------- Client Likes/Dislikes -------------------------------------------------------------------------------->
	<<if rand(1,10) == 10>>
		<<setinit $prostitute['mesec_mod'] = 1>>
	<<else>>
		<<setinit $prostitute['mesec_mod'] = 0>>
	<</if>>
	<<if rand(1,100) > 97>>
		<<setinit $prostitute['dirty_anal_mod'] = 1>>
	<<else>>
		<<setinit $prostitute['dirty_anal_mod'] = 0>>
	<</if>>
	<<if rand(1,10) == 10>>
		<<setinit $prostitute['cum_visible_mod'] = 1>>
	<<else>>
		<<setinit $prostitute['cum_visible_mod'] = 0>>
	<</if>>
	<!-- !!---------- Age -------------------------------------------------------------------------------------------------->
	<<if $pc.visualAge < 18 and rand(1,10) < 7>>
		<<setinit $prostitute['vidage_mod'] = 1>>
	<<else>>
		<<setinit $prostitute['vidage_mod'] = 0>>
	<</if>>
	<!-- !!---------- Scenes ------------------------------------------------------------------------------------------------>
	<!-- !!------------------------------------------------------------------------------------------------------------------>
	<<set $pro_scene_rand = rand(1,100)>>
	<<if getvar("$pro_scene_rand") <= 50>>
		<<if getvar("$mesec") == 0 or getvar("$prostitute['mesec_mod']") == 1>>
			<<setinit $prostitute['client_scene'] = 'Vaginal'>>
		<<elseif getvar("$mesec") > 0 and getvar("$prostitute['mesec_mod']") == 0 and ($klismaday == $time.daystart or getvar("$prostitute['dirty_anal_mod']") == 1)>>
			<<setinit $prostitute['client_scene'] = 'Anal'>>
		<<else>>
			<<setinit $prostitute['client_scene'] = 'Blowjob'>>
		<</if>>
	<<elseif getvar("$pro_scene_rand") > 50 and getvar("$pro_scene_rand") <= 75>>
		<<if $klismaday == $time.daystart or getvar("$prostitute['dirty_anal_mod']") == 1>>
			<<setinit $prostitute['client_scene'] = 'Anal'>>
		<<elseif $klismaday != $time.daystart and getvar("$prostitute['dirty_anal_mod']") == 0 and (getvar("$mesec") == 0 or getvar("$prostitute['mesec_mod']") == 1)>>
			<<setinit $prostitute['client_scene'] = 'Vaginal'>>
		<<else>>
			<<setinit $prostitute['client_scene'] = 'Blowjob'>>
		<</if>>
	<<else>>
		<<setinit $prostitute['client_scene'] = 'Blowjob'>>
	<</if>>
	<!-- !!---- Regular Worker ------------------------------------------------------------------------------------------>
	<<if getvar("$prostitute['customer_total']") < 10>>
		<<setinit $prostitute['regular_chance'] = 0>>
	<<elseif getvar("$prostitute['customer_total']") >= 10 and getvar("$prostitute['customer_total']") <= 25>>
		<<setinit $prostitute['regular_chance'] = 1>>
	<<elseif getvar("$prostitute['customer_total']") > 25 and getvar("$prostitute['customer_total']") <= 50>>
		<<setinit $prostitute['regular_chance'] = 2>>
	<<elseif getvar("$prostitute['customer_total']") > 50 and getvar("$prostitute['customer_total']") <= 100>>
		<<setinit $prostitute['regular_chance'] = 3>>
	<<elseif getvar("$prostitute['customer_total']") > 100 and getvar("$prostitute['customer_total']") <= 250>>
		<<setinit $prostitute['regular_chance'] = 4>>
	<</if>>
	<!-- !!---- Chance to find a client ---------------------------------------------------------------------------------->
	<<setinit $prostitute['client_chance'] = $pc.hotcat * 10 + $prostitute['regular_chance'] * 5 + rand(1,100) + $prostitute['pity_counter']>>
	<<if $wardrobe.pantyworntype == 'eroto' and getvar("$CloSkirtShortness") > 4>>
		<<setinit $prostitute['client_chance'] += 10>>

	<</if>>
	<!-- !!---- Client -------------------------------------------------------------------------------------------------->
	<<if $prostitute['regular_timer'] != $time.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)>>
			<<setinit $prostitute['regular'] = 1>>
		<<else>>
			<<setinit $prostitute['regular'] = 0>>
		<</if>>
	<<else>>
		<<setinit $prostitute['regular'] = 0>>
	<</if>>
	<!-- !!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 getvar("$prostitute['regular']") == 0 and getvar("$prostitute['rough']") == 0 and getvar("$prostitute['std_mod']") == 0 and rand(1,100) > iif($pro_brand['text_pubic']>>
		<<setinit $prostitute['client_creampie'] = 1>>
	<<else>>
		<<setinit $prostitute['client_creampie'] = 0>>
	<</if>>
	<<if getvar("$prostitute['rough']") == 1 or (prostitute['rough'] == 0 and rand(1,100) > 40)>>
		<<setinit $prostitute['propose'] = 0>>
	<<else>>
		<<setinit $prostitute['propose'] = 1>>
	<</if>>
<</if>>
<!-- !!---------- Payment ----------------------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'payment'>>
	<!-- !!---- Basic Payment ------------------------------------------------------------------------------------------->
	<<if $location_var[$here][1] == 'pav'>>
		<<if $prostitute['pav_scene'] == 'blowjob'>>
			<<setinit $prostitute['payment'] = 425>>
		<<elseif $prostitute['pav_scene'] == 'anal'>>
			<<setinit $prostitute['payment'] = 1200>>
		<<else>>
			<<setinit $prostitute['payment'] = 1000>>
		<</if>>
	<<else>>
		<<if $prostitute['client_scene'] == 'Blowjob'>>
			<<setinit $prostitute['payment'] = 350>>
			<<if $location_var[$here][1] == 'condom_no'>>
				<<setinit $prostitute['payment'] += 75>>

			<</if>>
			<<if $location_var[$here][2] == 'inside_yes'>>
				<<setinit $prostitute['payment'] += 50>>

			<</if>>
		<<elseif $prostitute['client_scene'] == 'Vaginal'>>
			<<setinit $prostitute['payment'] = 700>>
			<<if $location_var[$here][1] == 'condom_no'>>
				<<setinit $prostitute['payment'] += 300>>

			<</if>>
			<<if $location_var[$here][2] == 'inside_yes'>>
				<<setinit $prostitute['payment'] += 300>>

			<</if>>
		<<elseif $prostitute['client_scene'] == 'Anal'>>
			<<setinit $prostitute['payment'] = 900>>
			<<if $location_var[$here][1] == 'condom_no'>>
				<<setinit $prostitute['payment'] += 200>>

			<</if>>
			<<if $location_var[$here][2] == 'inside_yes'>>
				<<setinit $prostitute['payment'] += 100>>

			<</if>>
		<</if>>
	<</if>>
	<!-- !!---- Bonus --------------------------------------------------------------------------------------------------->
	<<setinit $prostitute['payment_mod'] = $pc.hotcat * 10>>
	<<if $pc.pcs_makeup == 0>>
		<<setinit $prostitute['payment_mod'] -= 20>>
	<<elseif $pc.pcs_makeup > 1>>
		<<setinit $prostitute['payment_mod'] += $pc.pcs_makeup * 10>>
	<</if>>
	<<if getvar("$mesec") > 0 and $prostitute['client_scene'] == 'Vaginal'>>
		<<if getvar("$prostitute['mesec_mod']") == 0>>
			<<setinit $prostitute['payment_mod'] -= 200>>
		<<else>>
			<<setinit $prostitute['payment_mod'] += 300>>
		<</if>>
	<</if>>
	<<if $klismaday != $time.daystart and $prostitute['client_scene'] == 'Anal'>>
		<<if getvar("$prostitute['dirty_anal_mod']") == 0>>
			<<if $location_var[$here][1] == 'condom_no'>>
				<<setinit $prostitute['payment_mod'] -= 600>>
			<<elseif $location_var[$here][1] == 'condom_yes'>>
				<<setinit $prostitute['payment_mod'] -= 300>>
			<</if>>
		<<else>>
			<<setinit $prostitute['payment_mod'] += 300>>
		<</if>>
	<</if>>
	<<if getvar("$prostitute['cum_dressed']") == 1>>
		<<if getvar("$prostitute['cum_visible_mod']") == 0>>
			<<setinit $prostitute['payment_mod'] -= 200>>
		<<else>>
			<<setinit $prostitute['payment_mod'] += 300>>
		<</if>>
	<</if>>
	<<setinit $prostitute['payment_mod'] += $pc.mood - 50>>
	<<if $wardrobe.pantyworntype == 'eroto' and getvar("$CloSkirtShortness") > 4>>
		<<setinit $prostitute['payment_mod'] += 50>>

	<</if>>
	<<if getvar("$prostitute['vidage_mod']") == 1>>
		<<setinit $prostitute['payment_mod'] += 50 * (18 - $pc.visualAge)>>
	<<else>>
		<<setinit $prostitute['payment_mod'] -= 50 * (18 - $pc.visualAge)>>
	<</if>>
	<<if $prostitute['client_scene'] == 'Blowjob' or $prostitute['pav_scene'] == 'blowjob'>>
		<<setinit $prostitute['payment_mod'] = $prostitute['payment_mod'] / 2>>
		<<if $pc.decoGet('piercing','tongue') == 2>>
			<<setinit $prostitute['payment_mod'] += 50>>
		<<elseif $pc.decoGet('piercing','tongue') == 4>>
			<<setinit $prostitute['payment_mod'] += 75>>
		<<elseif $pc.decoGet('piercing','tongue') > 0 and $pc.decoGet('piercing','tongue') < 10000>>
			<<setinit $prostitute['payment_mod'] += 25>>
		<</if>>
	<</if>>
	<<setinit $prostitute['payment'] += $prostitute['payment_mod']>>
	<<setinit $prostitute['payment_backup'] = $prostitute['payment']>>
	<<setinit $prostitute['payment'] = ($prostitute['payment'] * (100 + $prostitute['client_satisfaction'])) / 100>>
	<!-- !!Rounding-->
	<<setinit $prostitute['payment'] = setup.func('prostitution_functions', 'exact_round', prostitute['payment'], 10)>>
	<<setinit $prostitute['payment_backup'] = setup.func('prostitution_functions', 'exact_round', prostitute['payment_backup'], 10)>>
<</if>>
<!-- !!---------- Abortion ---------------------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'abortion'>>
	<<set $abort += 1>>
	<<set $abortionbirthdate = $time.daystart>>
	<<gs 'medical_din' 'remove_preg'>>
	<<set $pc.knowpregloss = 2>>
	<<set $abortrand = rand(0, 10)>>
	<<if getvar("$pc.age") > 18>>
		<<if getvar("$abortrand") < 10>>
			<<setn $sterilewb += 1>>

		<</if>>
		<<if getvar("$abortrand") == 10>>
			<<setn $sterilewb += 10>>

		<</if>>
	<<else>>
		<<if getvar("$abortrand") < 7>>
			<<setn $sterilewb += 2>>

		<</if>>
		<<if getvar("$abortrand") >= 7>>
			<<setn $sterilewb += 10>>

		<</if>>
	<</if>>
	<<set $abortrand to null>>
	<<set $pc.pcs_hydra += 20>>
	<<if getvar("$broodcurse") > 0>>
		<<set $pc.gameover= 13>> <<gt 'gameover'>>

	<</if>>
<</if>>
<!-- !!---------- Random Name ------------------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'random_name'>>
	<<setinit $pro_boyname[1] = ''>>
	<<setinit $pro_boyname[2] = ''>>
	<<warn 'JUMP MARKER ENCOUNTERED: :pro_rng_jump'>>
	<<set $pro_temp = rand(0,23)>>
	<<if getvar("$pro_temp") == 0>>
		<<set $pro_temp = 'Abram'>>
	<<elseif getvar("$pro_temp") == 1>>
		<<set $pro_temp = 'Alexei'>>
	<<elseif getvar("$pro_temp") == 2>>
		<<set $pro_temp = 'Adrian'>>
	<<elseif getvar("$pro_temp") == 3>>
		<<set $pro_temp = 'Dima'>>
	<<elseif getvar("$pro_temp") == 4>>
		<<set $pro_temp = 'Dimitri'>>
	<<elseif getvar("$pro_temp") == 5>>
		<<set $pro_temp = 'Igor'>>
	<<elseif getvar("$pro_temp") == 6>>
		<<set $pro_temp = 'Leonid'>>
	<<elseif getvar("$pro_temp") == 7>>
		<<set $pro_temp = 'Petka'>>
	<<elseif getvar("$pro_temp") == 8>>
		<<set $pro_temp = 'Michail'>>
	<<elseif getvar("$pro_temp") == 9>>
		<<set $pro_temp = 'Vasily'>>
	<<elseif getvar("$pro_temp") == 10>>
		<<set $pro_temp = 'Oleg'>>
	<<elseif getvar("$pro_temp") == 11>>
		<<set $pro_temp = 'Olezka'>>
	<<elseif getvar("$pro_temp") == 12>>
		<<set $pro_temp = 'Pasha'>>
	<<elseif getvar("$pro_temp") == 13>>
		<<set $pro_temp = 'Pavel'>>
	<<elseif getvar("$pro_temp") == 14>>
		<<set $pro_temp = 'Sacha'>>
	<<elseif getvar("$pro_temp") == 15>>
		<<set $pro_temp = 'Slava'>>
	<<elseif getvar("$pro_temp") == 16>>
		<<set $pro_temp = 'Ruslan'>>
	<<elseif getvar("$pro_temp") == 17>>
		<<set $pro_temp = 'Taras'>>
	<<elseif getvar("$pro_temp") == 18>>
		<<set $pro_temp = 'Timofey'>>
	<<elseif getvar("$pro_temp") == 19>>
		<<set $pro_temp = 'Vanya'>>
	<<elseif getvar("$pro_temp") == 20>>
		<<set $pro_temp = 'Viktor'>>
	<<elseif getvar("$pro_temp") == 21>>
		<<set $pro_temp = 'Vladimir'>>
	<<elseif getvar("$pro_temp") == 22>>
		<<set $pro_temp = 'Yaromir'>>
	<<elseif getvar("$pro_temp") == 23>>
		<<set $pro_temp = 'Yevgeni'>>
	<</if>>
	<<if $pro_boyname[1] == ''>>
		<<setinit $pro_boyname[1] = $pro_temp>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump pro_rng_jump'>>
	<<elseif $pro_boyname[2] == ''>>
		<<setinit $pro_boyname[2] = $pro_temp>>
	<</if>>
	<<if $pro_boyname[1] == $pro_boyname[2]>>
		<<setinit $pro_boyname[2] = ''>>
		<<warn 'JUMP COMMAND ENCOUNTERED: jump pro_rng_jump'>>
	<</if>>
	<<set $pro_temp to null>>
	<<set $pro_temp to null>>
<</if>>
<!-- !!---------- Payment ----------------------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'tat_pierce_count'>>
	<<set $tattCount = 0>>
	<<if getvar("$tatarm") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatass") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatback") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatblly") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatbrst") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatchst") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatfce") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatankle") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatleg") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatlip") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatneck") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatvag") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatlech") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatside") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatupb") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatunder") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tatwrist") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<if getvar("$tathand") >= 1>>
		<<setn $tattCount += 1>>

	<</if>>
	<<set $pierWearCount = 0>>
	<<if $pc.decoGet('piercing','tongue') > 0 and $pc.decoGet('piercing','tongue') != 10000>>
		<<setn $pierWearCount += 1>>

	<</if>>
	<<if $pc.decoGet('piercing','lip') > 0 and $pc.decoGet('piercing','lip') != 10000>>
		<<setn $pierWearCount += 1>>

	<</if>>
	<<if $pc.decoGet('piercing','ears') > 0 and $pc.decoGet('piercing','ears') != 10000>>
		<<setn $pierWearCount += 1>>

	<</if>>
	<<if $pc.decoGet('piercing','nose') > 0 and $pc.decoGet('piercing','nose') != 10000>>
		<<setn $pierWearCount += 1>>

	<</if>>
	<<if $pc.decoGet('piercing','eyebrow') > 0 and $pc.decoGet('piercing','eyebrow') != 10000>>
		<<setn $pierWearCount += 1>>

	<</if>>
	<<if $pc.decoGet('piercing','nipple') > 0 and $pc.decoGet('piercing','nipple') != 10000>>
		<<setn $pierWearCount += 1>>

	<</if>>
	<<if $pc.decoGet('piercing','pussy') > 0 and $pc.decoGet('piercing','pussy') != 10000>>
		<<setn $pierWearCount += 1>>

	<</if>>
	<<if $pc.decoGet('piercing','navel') > 0 and $pc.decoGet('piercing','navel') != 10000>>
		<<setn $pierWearCount += 1>>

	<</if>>
<</if>>
<!-- !!---------- Random Name ------------------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'pav_client'>>
	<!-- !!Reset-->
	<<setinit $prostitute['pav_internal'] = 0>>
	<<gs 'prostitution_functions' 'std_cum_check'>>
	<!-- !!Regular-->
	<<if getvar("$prostitute['pav_total']") < 10>>
		<<setinit $prostitute['pav_chance'] = 0>>
	<<elseif getvar("$prostitute['pav_total']") >= 10 and getvar("$prostitute['pav_total']") <= 25>>
		<<setinit $prostitute['pav_chance'] = 1>>
	<<elseif getvar("$prostitute['pav_total']") > 25 and getvar("$prostitute['pav_total']") <= 50>>
		<<setinit $prostitute['pav_chance'] = 2>>
	<<elseif getvar("$prostitute['pav_total']") > 50 and getvar("$prostitute['pav_total']") <= 100>>
		<<setinit $prostitute['pav_chance'] = 3>>
	<<elseif getvar("$prostitute['pav_total']") > 100 and getvar("$prostitute['pav_total']") <= 250>>
		<<setinit $prostitute['pav_chance'] = 4>>
	<</if>>
	<<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 (getvar("$pro_rand") != 8 or (getvar("$pro_rand") == 8 and getvar("$prostitute['pav_regular_s8']") == 1))>>
		<<setinit $prostitute['pav_regular'] = 1>>
		<!-- !!	elseif prostitute['pav_chance'] > 0 and rand(1,100) > 92:-->
		<!-- !!		prostitute['pav_regular'] = -1-->
	<<else>>
		<<setinit $prostitute['pav_regular'] = 0>>
	<</if>>
	<!-- !!ToDo: Add cheat for this chance-->
	<<setinit $prostitute['client_behavior'] = iif(rand(1,100) < prostitute['client_behavior_chance'] or prostitute['pav_regular'] = -1, 'nice', 'abusive')>>
	<!-- !!---- Scene ---------------------------------------------------------------------------------------------------->
	<<if getvar("$pro_rand") > 7>>
		<<setinit $prostitute['pav_scene'] = 'anal'>>
	<<elseif getvar("$mesec") == 0 and rand(0,100) < 50>>
		<<setinit $prostitute['pav_scene'] = 'pussy'>>
	<<else>>
		<<setinit $prostitute['pav_scene'] = 'blowjob'>>
	<</if>>
	<<if getvar("$pro_rand") == 0 or getvar("$pro_rand") == 8 or getvar("$pro_rand") == 9 or ((getvar("$pro_rand") == 2 or getvar("$pro_rand") == 3 or (getvar("$pro_rand") == 5 and $prostitute['client_behavior'] == 'nice') or getvar("$pro_rand") == 6 or getvar("$pro_rand") == 7) and $prostitute['pav_scene'] == 'pussy')>>
		<<setinit $prostitute['pav_location'] = 'private'>>
		<<if getvar("$pro_rand") == 3 or getvar("$pro_rand") == 8>>
			<<setinit $prostitute['client_behavior'] = 'abusive'>>

		<</if>>
	<<elseif getvar("$pro_rand") == 1 and $prostitute['pav_scene'] == 'pussy'>>
		<<setinit $prostitute['pav_location'] = iif($prostitute['client_behavior'] = 'nice', 'private', 'public')>>
	<<elseif ((getvar("$pro_rand") == 2 or getvar("$pro_rand") == 3 or getvar("$pro_rand") == 6 or getvar("$pro_rand") == 7) and $prostitute['pav_scene'] == 'blowjob') or getvar("$pro_rand") == 4 or getvar("$pro_rand") == 5>>
		<<setinit $prostitute['pav_location'] = 'public'>>
		<<if getvar("$pro_rand") == 5>>
			<<setinit $prostitute['client_behavior'] = 'abusive'>>

		<</if>>
	<<else>>
		<<gt 'prostitution_pavlovsk' 'rng'>>
	<</if>>
	<<if getvar("$prostitute['pav_regular_s8']") == 1 and getvar("$pro_rand") == 8>>
		<<setinit $prostitute['pav_regular'] = 1>>

	<</if>>
	<<if (getvar("$pro_rand") == 3 or getvar("$pro_rand") == 8) and $prostitute['pav_scene'] == 'private' and getvar("$prostitute['pav_regular']") == 1>>
		<<setinit $prostitute['pav_condom_refusal'] = 1>>
	<<else>>
		<<setinit $prostitute['pav_condom_refusal'] = 0>>
	<</if>>
	<!-- !!---- Generator ------------------------------------------------------------------------------------------------>
	<<gs 'npcgeneratec' 0 'pavlovsk client' `rand(18,45)`>>
	
<</if>>
<!-- !!---- Checking visible STD and cum --------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'std_cum_check'>>
	<!-- !!---- Visible STD ---------------------------------------------------------------------------------------------->
	<<if $pc.pcs_apprnc == -10 and rand(1,10) < 8>>
		<<setinit $prostitute['std_mod'] = 1>>
	<<else>>
		<<setinit $prostitute['std_mod'] = 0>>
	<</if>>
	<!-- !!---- Non-Visible Cum ------------------------------------------------------------------------------------------>
	<<if $pc.cumAtLocation(0) == 1>>
		<<setinit $prostitute['cum_vaginal_mod'] = 1>>
	<<else>>
		<<setinit $prostitute['cum_vaginal_mod'] = 0>>
	<</if>>
	<<if $pc.cumAtLocation(3) == 1>>
		<<setinit $prostitute['cum_anal_mod'] = 1>>
	<<else>>
		<<setinit $prostitute['cum_anal_mod'] = 0>>
	<</if>>
	<!-- !!---- Visible Cum (Dressed) ------------------------------------------------------------------------------------>
	<<if $pc.cumAtLocation(7) == 1 or $pc.cumAtLocation(11) == 1 or $pc.cumAtLocation(13) == 1 or $pc.cumAtLocation(15) == 1>>
		<<setinit $prostitute['cum_dressed'] = 1>>
	<<else>>
		<<setinit $prostitute['cum_dressed'] = 0>>
	<</if>>
	<!-- !!Visible Cum (Undressed)-->
	<<if $pc.cumAtLocation(1) == 1 or $pc.cumAtLocation(4) == 1 or $pc.cumAtLocation(8) == 1 or $pc.cumAtLocation(14) == 1 or $pc.cumAtLocation(16) == 1>>
		<<setinit $prostitute['cum_undressed'] = 1>>
	<<else>>
		<<setinit $prostitute['cum_undressed'] = 0>>
	<</if>>
<</if>>
<!-- !!---------- Exact Rounding ---------------------------------------------------------------------------------------->
<<if $location_var[$here][0] == 'exact_round'>>
	<!-- !! ARGS[1] = value you want divided-->
	<!-- !! ARGS[2] = divider-->
	<!-- !!  setup.func('prostitution_functions','exact_round', number, divider)-->
	<!-- !!  setup.func('prostitution_functions','exact_round', 12345, 7)-->
	<<if $location_var[$here][2] != 0>>
		<<set $round_number = $ARGS[1] / $ARGS[2]>>
		<<if ($location_var[$here][2] % 2 != 0 and $location_var[$here][1] % $location_var[$here][2] > $ARGS[2] / 2) or ($location_var[$here][2] % 2 == 0 and $location_var[$here][1] % $location_var[$here][2] >= $ARGS[2] / 2)>>
			<<setn $round_number += 1>>

		<</if>>
		<<set $round_number = $round_number * $ARGS[2]>>
		<<set $result = $round_number>>
		<<set $round_number to null>>
	<<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>
	<</if>>
<</if>>
