glife/sugarcube/src/autogenerated/Cars/zaprFWash.tw

:: zaprFWash[event]
	<!-- ! can't wash cars if have visible cum already-->
	<<if ($pc.cumAtLocation(6) == 1 or $pc.cumAtLocation(7) == 1) or $pc.cumAtLocation(11) == 1>>
		<<set $time.minutes += 5>>
		<<set $pc.mood -= 5>>
		<<fame 'pav' 'sex' `rand(0,2)`>>
		<p>The gas station worker chases you away: "At least go wash yourself off first, whore!"</p>
		<<act 'Leave'>>
			<<gt 'zaprF' 'start'>>
		<</act>>
		<<act 'Go to the toilet'>>
			<<gt 'zaprF' 'toilet'>>
		<</act>>
	<<else>>
		<<gs 'zaprFWashWash'>>
	<</if>>
:: zaprFWashWash[event]

	<<set $slut_compare = $pc.fame($location.region,'slut')>>

	<!-- ! only wearing bimbo or prostitute clothing and looking good can get propositioned by a customer-->
	<<if $wardrobe.PCloBimbo == 1 or $wardrobe.PCloStyle == 4>>
		<<image "locations/shared/carwash/bimboclean#.jpg" 1 4>>
		<<set $time.minutes += 60>>
		<<set $pc.mood -= 5>>
		<<run $pc.sweatAdd(2)>>
		<<if $pc.pcs_apprnc >= 60>>
			<!-- ! slightly more money for wearing bimbo or prostitute clothing and looking good too-->
			<p>You wash the windows of several cars and earn 100 <b>₽</b>.</p>
			<<set $finances.cash += 100>>
			<!-- ! min chance of 20 percent; max chance of 80 percent; percent chance scales with fame['city_slut'] or fame['pav_slut']-->
			<!-- ! as your reputation increases you will be asked more often-->
			<<set $skimpyCustomerChance = rand(1, 100)>>
			<<if $skimpyCustomerChance <= Math.min(Math.max(20,$slut_compare),80)>>
				As you finish washing another car, the driver walks up to you to give you a tip. From the way he's looking at you, it's obvious he's interested in something more as well.
				<!-- ! starts off with always doing titsQ when rep is low, as rep increases they may skip a question since they know you will do it anyway-->
				<!-- ! also different people have different tastes so you wont be asked the same thing in the same order every time by every customer that walks up to you-->
				<<set $carwashscene = rand(1, 100)>>
				<<if $carwashscene <= Math.min(Math.max(25,$slut_compare),50) and getvar("$carwashscene") >= 25>>
					<<gt 'zaprFWashEvent' 'assQ'>>
				<<elseif $carwashscene <= Math.min(Math.max(50,$slut_compare),65) and getvar("$carwashscene") >= 50>>
					<<gt 'zaprFWashEvent' 'pussyQ'>>
				<<elseif $carwashscene <= Math.min(Math.max(65,$slut_compare),85) and getvar("$carwashscene") >= 65>>
					<<gt 'zaprFWashEvent' 'handQ'>>
				<<elseif $carwashscene <= Math.min(Math.max(85,$slut_compare),100) and getvar("$carwashscene") >= 85>>
					<<gt 'zaprFWashEvent' 'blowQ'>>
				<<else>>
					<<gt 'zaprFWashEvent' 'titsQ'>>
				<</if>>
			<<else>>
				<<gs 'zaprFWashEvent' 'flash_passing'>>
			<</if>>
		<<else>>
			<!-- ! slightly more money for wearing bimbo or prostitute clothing but not looking too great-->
			<p>You wash the windows of several cars and earn 80 <b>₽</b>.</p>
			<<set $finances.cash += 80>>
			<<gs 'zaprFWashEvent' 'flash_passing'>>
		<</if>>
	<<else>>
		<<set $time.minutes += 60>>
		<<set $pc.mood -= 5>>
		<<run $pc.sweatAdd(2)>>
		<<set $finances.cash += 60>>
		<<image "locations/shared/carwash/regular#.jpg" 1 4>>
		<!-- ! normal money just for the car washing-->
		<p>You wash the windows of several cars and earn 60 <b>₽</b>.</p>
		<<gs 'zaprFWashEvent' 'flash_passing'>>
	<</if>>
:: zaprFWashEvent
<<if $location_var[$here][0] == 'flash_passing'>>
	<<act 'Continue'>>
		<<gt 'zaprF' 'start'>>
	<</act>>
	<<if $wardrobe.PCloPants > 0 or $wardrobe.PCloSkirt > 0>>
		<<if $pc.pcs_inhib >= 35>>
			<<actCLA 'Flash your tits at passing cars'>>
	<<gt 'zaprFWashEvent' 'titsFlash' 'Free' 'Flash'>>
<</actCLA>>

		<</if>>
		<<if getvar("$exhibitionist_lvl") > 0>>
			<<actCLA 'Flash your ass at passing cars'>>
	<<gt 'zaprFWashEvent' 'assFlash' 'Free' 'Flash'>>
<</actCLA>>

		<</if>>
		<<if getvar("$exhibitionist_lvl") > 1>>
			<<actCLA 'Flash your pussy at passing cars'>>
	<<gt 'zaprFWashEvent' 'pussyFlash' 'Free' 'Flash'>>
<</actCLA>>

		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'titsQ'>>
	<<image "locations/shared/carwash/bimboclean#.jpg" 1 4>>
	<p>Want to earn some more cash, girl? Show me your tits. I'll give you 50 <b>₽</b>. It's easy money.</p>
	<!-- ! inhibition or exhibitionism requirements needed to accept the offer or just have fun with him-->
	<<if getvar("$exhibitionist_lvl") > 0 or $pc.pcs_inhib >= 35 or $pc.horny >= 40>>
		<<actCLA 'Agree and show him your tits'>>
			<<gt 'zaprFWashEvent' 'titsFlash' 'Paid' 'Question'>>
		<</actCLA>>
	<</if>>
	<<act 'Refuse'>>
		<<gt 'zaprFWashEvent' 'refuse'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'assQ'>>
	<<image "locations/shared/carwash/bimboclean#.jpg" 1 4>>
	<p>What a nice ass you have there. Let me see it. Will 50 <b>₽</b> convince you to show it to me?</p>
	<!-- ! inhibition or exhibitionism requirements needed to accept the offer or just have fun with him-->
	<<if getvar("$exhibitionist_lvl") > 0 or $pc.horny >= 60>>
		<<actCLA 'Agree and show him your ass'>>
	<<gt 'zaprFWashEvent' 'assFlash' 'Paid' 'Question'>>
<</actCLA>>

	<</if>>
	<<act 'Refuse'>>
		<<gt 'zaprFWashEvent' 'refuse'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'pussyQ'>>
	<<image "locations/shared/carwash/bimboclean#.jpg" 1 4>>
	<p>You look like a cool girl. Let me see your pussy. I'll give you 50 <b>₽</b>.</p>
	<!-- ! inhibition or exhibitionism requirements needed to accept the offer or just have fun with him-->
	<<if getvar("$exhibitionist_lvl") > 1 or $pc.horny >= 80>>
		<<actCLA 'Agree and show him your pussy'>>
	<<gt 'zaprFWashEvent' 'pussyFlash' 'Paid' 'Question'>>
<</actCLA>>

	<</if>>
	<<act 'Refuse'>>
		<<gt 'zaprFWashEvent' 'refuse'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'handQ'>>
	<<image "locations/shared/carwash/bimboclean#.jpg" 1 4>>
	<p>Could you help me out girl? It's getting tight down here in my pants just looking at you. How about you touch it a bit? I'll pay you 200 <b>₽</b>.</p>
	<!-- ! slut or horny requirements needed to accept the offer or just have fun with him-->
	<<if getvar("$slut_compare") >= 25 or $pc.horny >= 25>>
		<<act 'Agree and give him a handjob'>>
	<<gt 'zaprFWashEvent' 'handjob' 'Paid'>>
<</act>>

	<</if>>
	<<act 'Refuse'>>
		<<gt 'zaprFWashEvent' 'refuse'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'blowQ'>>
	<<image "locations/shared/carwash/bimboclean#.jpg" 1 4>>
	<p>Looking hot today girl! How about you put your mouth to good use? I'll pay you 200 <b>₽</b>.</p>
	<!-- ! slut or horny requirements needed to accept the offer or just have fun with him-->
	<<if getvar("$slut_compare") >= 30 or $pc.horny >= 30>>
		<<actCLA 'Agree and give him a blowjob'>>
	<<gt 'zaprFWashEvent' 'blowjob' 'Paid' 'Question'>>
<</actCLA>>

	<</if>>
	<<act 'Refuse'>>
		<<gt 'zaprFWashEvent' 'refuse'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'refuse'>>
	<!-- ! just being asked can slowly change your inhibitions which will enable a player to eventually agree to the questions above-->
	<<if $pc.pcs_inhib < 35>>
		<<run $pc.skillExperienceGain('inhibition',rand(1,2))>>

	<</if>>
	<<set $pc.mood += 5>>
	<<video "pc/reactions/no.mp4">>
	You begin to consider his offer but decide to turn him down and walk away.
	<<act 'Go back to washing cars'>>
		<<gt 'zaprF' 'start'>>
	<</act>>
<</if>>
<!-- ! $ARGS[1] = whether you got paid for this-->
<!-- ! $ARGS[2] = whether this act came from a customer question or just flashing for passing cars-->
<<if $location_var[$here][0] == 'titsFlash'>>
	<!-- ! reputation and money will depend on whether you were paid-->
	<<if $location_var[$here][1] == 'Paid'>>
		<<set $finances.cash += 50>>
		<<if getvar("$litltown") == 0>>
			<<fame 'city' 'prostitute' `rand(0,1)`>>
		<<elseif getvar("$litltown") == 1>>
			<<fame 'pav' 'prostitute' `rand(0,1)`>>
		<</if>>
	<<elseif $location_var[$here][1] == 'Free'>>
		<<gs 'flash' 'tits' 'outdoors' 1 1>>
	<</if>>
	<<if $pc.pcs_inhib < 30>>
		<<run $pc.skillExperienceGain('inhibition',rand(2,4))>>

	<</if>>
	<<set $pc.mood += 5>>
	<!-- ! chance for using photos or videos-->
	<<if rand(1, 100) < 50>>
		<<set $i = rand(1, 100)>>
		<!-- ! chance of using old pics since there are so many newer pics to choose from-->
		<<if getvar("$i") < 15>>
			<<if $wardrobe.PCloPants > 0>>
				<<set $i = rand(1, 2)>>
				<<image `'locations/shared/carwash/pants/titsflash'+$i+'.jpg'`>>
			<<elseif $wardrobe.PCloSkirt > 0>>
				<<set $i = 1>>
				<<image `'locations/shared/carwash/skirt/titsflash'+$i+'.jpg'`>>
			<</if>>
		<<else>>
			<!-- ! newer photos are more neatly organized into different folders so no looping needed-->
			<<if $wardrobe.PCloPants > 0>>
				<<image "pc/activities/flashing/pants/outside/tits/#.jpg" 1 14>>
			<<elseif $wardrobe.PCloSkirt > 0>>
				<<image "pc/activities/flashing/dress/outside/tits/#.jpg" 1 12>>
			<</if>>
		<</if>>
	<<else>>
		<<if $wardrobe.PCloPants > 0>>
			<<set $i = rand(1, 4)>>
			<<video "locations/shared/carwash/pants/titsflash<<i>>.mp4">>
		<<elseif $wardrobe.PCloSkirt > 0>>
			<<set $i = rand(1, 3)>>
			<<video "locations/shared/carwash/skirt/titsflash<<i>>.mp4">>
		<</if>>
	<</if>>
	<!-- ! text differences depending on whether you were paid, whether you are flashing for a customer or for the cars on the road, and what type of clothing you are wearing-->
	<<if $location_var[$here][1] == 'Paid'>>
		<<if $wardrobe.PCloPants > 0>>
			You lift up your top and show him your breasts for a few seconds. Then you quickly cover up and take your money.

		<</if>>
		<<if $wardrobe.PCloSkirt > 0>>
			You pull down your top and show him your breasts for a few seconds. Then you quickly cover up and take your money.

		<</if>>
	<<elseif $location_var[$here][1] == 'Free'>>
		<<if $location_var[$here][2] == 'Question'>>
			<<if $wardrobe.PCloPants > 0>>
				You lift up your top and show him your breasts for a few seconds. You give your breasts a little shake for him before you cover up.

			<</if>>
			<<if $wardrobe.PCloSkirt > 0>>
				You pull down your top and show him your breasts for a few seconds. You give your breasts a little shake for him before you cover up.

			<</if>>
		<<elseif $location_var[$here][2] == 'Flash'>>
			<<if $wardrobe.PCloPants > 0>>
				You lift up your top and expose your breasts to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your breasts a little shake before you cover up.

			<</if>>
			<<if $wardrobe.PCloSkirt > 0>>
				You pull down your top and expose your breasts to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your breasts a little shake before you cover up.

			<</if>>
		<</if>>
	<</if>>
	<<arouse 'flashlite' 5 >>
	<!-- ! can only continue with more questions if flashing for a customer-->
	<!-- ! also more questions will require either sub or dom or bimbo or horny as well as bimbo or prostitute clothing-->
	<!-- ! this has a wide range of requirements so that many different types of characters can still play this content-->
	<!-- !if (bimbolevel >= 1 or pcs_horny >= 5) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':-->
	<<if (getvar("$bimbolevel") >= 1 or $pc.horny >= 5) and ($wardrobe.PCloBimbo == 1 or $wardrobe.PCloStyle == 4) and $location_var[$here][2] == 'Question'>>
		<!-- ! once again dynamically choosing the next scene to play based on reputation-->
		<<set $carwashscene = rand(1, 100)>>
		<<if $carwashscene <= Math.min(max(30,slut_compare),60) and getvar("$carwashscene") >= 50>>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'pussyQ'>>
			<</act>>
		<<elseif $carwashscene <= Math.min(max(60,slut_compare),80) and getvar("$carwashscene") >= 60>>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'handQ'>>
			<</act>>
		<<elseif $carwashscene <= Math.min(max(80,slut_compare),100) and getvar("$carwashscene") >= 80>>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'blowQ'>>
			<</act>>
		<<else>>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'assQ'>>
			<</act>>
		<</if>>
		<!-- ! flashing for cars just allows you to return to the gas station-->
	<<else>>
		<<actCLA 'Go back to the gas station'>>
			<<if $location_var[$here][1] == 'Paid'>>
				<<setn $slutty += 1>>

			<</if>>
			<<gt 'zaprF' 'start'>>
		<</actCLA>>
	<</if>>
<</if>>
<!-- ! $ARGS[1] = whether you got paid for this-->
<!-- ! $ARGS[2] = whether this act came from a customer question or just flashing for passing cars-->
<<if $location_var[$here][0] == 'assFlash'>>
	<<if $location_var[$here][1] == 'Paid'>>
		<<set $finances.cash += 50>>
		<<if getvar("$litltown") == 0>>
			<<fame 'city' 'prostitute' `rand(0,1)`>>
		<<elseif getvar("$litltown") == 1>>
			<<fame 'pav' 'prostitute' `rand(0,1)`>>
		<</if>>
	<<elseif $location_var[$here][1] == 'Free'>>
		<<gs 'flash' 'butt' 'outdoors' 2 1>>
	<</if>>
	<<if $pc.pcs_inhib < 30>>
		<<run $pc.skillExperienceGain('inhibition',rand(2,4))>>

	<</if>>
	<<set $pc.mood += 5>>
	<<if rand(1, 100) < 50>>
		<<set $i = rand(1, 100)>>
		<<if getvar("$i") < 10>>
			<<if $wardrobe.PCloPants > 0>>
				<<set $i = 1>>
				<<image `'locations/shared/carwash/pants/assflash'+$i+'.jpg'`>>
			<<elseif $wardrobe.PCloSkirt > 0>>
				<<set $i = 1>>
				<<image `'locations/shared/carwash/skirt/assflash'+$i+'.jpg'`>>
			<</if>>
		<<else>>
			<<if $wardrobe.PCloPants > 0>>
				<<image "pc/activities/flashing/pants/outside/butt/#.jpg" 1 16>>
			<<elseif $wardrobe.PCloSkirt > 0>>
				<<image "pc/activities/flashing/dress/outside/butt/#.jpg" 1 9>>
			<</if>>
		<</if>>
	<<else>>
		<<if $wardrobe.PCloPants > 0>>
			<<set $i = rand(1, 3)>>
			<<video "locations/shared/carwash/pants/assflash<<i>>.mp4">>
		<<elseif $wardrobe.PCloSkirt > 0>>
			<<set $i = rand(1, 2)>>
			<<video "locations/shared/carwash/skirt/assflash<<i>>.mp4">>
		<</if>>
	<</if>>
	<<if $location_var[$here][1] == 'Paid'>>
		<<if $wardrobe.PCloPants > 0>>
			You pull your pants down and show him your ass for a few seconds. Then you quickly cover up and take your money.

		<</if>>
		<<if $wardrobe.PCloSkirt > 0>>
			You lift your skirt up and show him your ass for a few seconds. Then you quickly cover up and take your money.

		<</if>>
	<<elseif $location_var[$here][1] == 'Free'>>
		<<if $location_var[$here][2] == 'Question'>>
			<<if $wardrobe.PCloPants > 0>>
				You pull your pants down and show him your ass for a few seconds. You give your ass a little shake for him before you cover up.

			<</if>>
			<<if $wardrobe.PCloSkirt > 0>>
				You lift your skirt up and show him your ass for a few seconds. You give your ass a little shake for him before you cover up.

			<</if>>
		<<elseif $location_var[$here][2] == 'Flash'>>
			<<if $wardrobe.PCloPants > 0>>
				You pull your pants down and expose your ass to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your ass a little shake before you cover up.

			<</if>>
			<<if $wardrobe.PCloSkirt > 0>>
				You lift your skirt up and expose your ass to the road for a few seconds. A couple cars pass by and honk in appreciation. You give your ass a little shake before you cover up.

			<</if>>
		<</if>>
	<</if>>
	<<arouse 'flashlite' 5 >>
	<!-- !if (bimbolevel >= 1 or pcs_horny >= 10) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':-->
	<<if (getvar("$bimbolevel") >= 1 or $pc.horny >= 10) and ($wardrobe.PCloBimbo == 1 or $wardrobe.PCloStyle == 4) and $location_var[$here][2] == 'Question'>>
		<<set $carwashscene = rand(1, 100)>>
		<<if $carwashscene <= Math.min(max(50,slut_compare),75) and getvar("$carwashscene") >= 50>>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'handQ'>>
			<</act>>
		<<elseif $carwashscene <= Math.min(max(75,slut_compare),100) and getvar("$carwashscene") >= 75>>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'blowQ'>>
			<</act>>
		<<else>>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'pussyQ'>>
			<</act>>
		<</if>>
	<<else>>
		<<actCLA 'Go back to the gas station'>>
			<<if $location_var[$here][1] == 'Paid'>>
				<<setn $slutty += 1>>

			<</if>>
			<<gt 'zaprF' 'start'>>
		<</actCLA>>
	<</if>>
<</if>>
<!-- ! $ARGS[1] = whether you got paid for this-->
<!-- ! $ARGS[2] = whether this act came from a customer question or just flashing for passing cars-->
<<if $location_var[$here][0] == 'pussyFlash'>>
	<<if $location_var[$here][1] == 'Paid'>>
		<<set $finances.cash += 50>>
		<<if getvar("$litltown") == 0>>
			<<fame 'city' 'prostitute' 1>>
		<<elseif getvar("$litltown") == 1>>
			<<fame 'pav' 'prostitute' 1>>
		<</if>>
	<<elseif $location_var[$here][1] == 'Free'>>
		<<gs 'flash' 'full' 'outdoors' 3 1>>
	<</if>>
	<<if $pc.pcs_inhib < 40>>
		<<run $pc.skillExperienceGain('inhibition',rand(4,6))>>

	<</if>>
	<<set $pc.mood += 5>>
	<<if $wardrobe.PCloPants > 0>>
		<<image "pc/activities/flashing/pants/outside/pussy/#.jpg" 1 9>>
	<<elseif $wardrobe.PCloSkirt > 0>>
		<<image "pc/activities/flashing/dress/outside/pussy/#.jpg" 1 13>>
	<</if>>
	<<if $location_var[$here][1] == 'Paid'>>
		<<if $wardrobe.PCloPants > 0>>
			You pull your pants down and show him your pussy for a few seconds. Then you quickly cover up and take your money.

		<</if>>
		<<if $wardrobe.PCloSkirt > 0>>
			You lift your skirt up and show him your pussy for a few seconds. Then you quickly cover up and take your money.

		<</if>>
	<<elseif $location_var[$here][1] == 'Free'>>
		<<if $location_var[$here][2] == 'Question'>>
			<<if $wardrobe.PCloPants > 0>>
				You pull your pants down and show him your pussy for a few seconds. You rub your clit a little for him before you cover up.

			<</if>>
			<<if $wardrobe.PCloSkirt > 0>>
				You lift your skirt up and show him your pussy for a few seconds. You rub your clit a little for him before you cover up.

			<</if>>
		<<elseif $location_var[$here][2] == 'Flash'>>
			<<if $wardrobe.PCloPants > 0>>
				You pull your pants down and expose your pussy to the road for a few seconds. A couple cars pass by and honk in appreciation. You rub your clit a little before you cover up.

			<</if>>
			<<if $wardrobe.PCloSkirt > 0>>
				You lift your skirt up and expose your pussy to the road for a few seconds. A couple cars pass by and honk in appreciation. You rub your clit a little before you cover up.

			<</if>>
		<</if>>
	<</if>>
	<<arouse 'flashlite' 5 >>
	<!-- !if (bimbolevel >= 1 or pcs_horny >= 15) and (PCloBimbo = 1 or PCloStyle = 4) and $ARGS[2] = 'Question':-->
	<<if (getvar("$bimbolevel") >= 1 or $pc.horny >= 15) and ($wardrobe.PCloBimbo == 1 or $wardrobe.PCloStyle == 4) and $location_var[$here][2] == 'Question'>>
		<<set $carwashscene = rand(1, 100)>>
		<<if $carwashscene <= Math.min(max(60,slut_compare),100) and getvar("$carwashscene") >= 60>>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'blowQ'>>
			<</act>>
		<<else>>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'handQ'>>
			<</act>>
		<</if>>
	<<else>>
		<<actCLA 'Go back to the gas station'>>
			<<if $location_var[$here][1] == 'Paid'>>
				<<setn $slutty += 1>>

			<</if>>
			<<gt 'zaprF' 'start'>>
		<</actCLA>>
	<</if>>
<</if>>
<!-- ! $ARGS[1] = whether you got paid for this-->
<<if $location_var[$here][0] == 'handjob'>>
	<!-- ! generate random npc for sex-->
	<<gs 'npcgeneratec' 0 'gas station customer' `rand(18,40)`>>

	<<if $location_var[$here][1] == 'Paid'>>
		<<set $finances.cash += 200>>
		<<if getvar("$litltown") == 0>>
			<<fame 'city' 'prostitute' 2>>
		<<elseif getvar("$litltown") == 1>>
			<<fame 'pav' 'prostitute' 2>>
		<</if>>
	<<elseif $location_var[$here][1] == 'Free'>>
		<<fame 'pav' 'sex' 2>>
	<</if>>
	<<if $pc.pcs_inhib < 50>>
		<<run $pc.skillExperienceGain('inhibition',rand(6,8))>>

	<</if>>
	<<set $pc.mood += 5>>
	<<if rand(1, 100) < 50>>
		<<set $i = rand(1, 2)>>
		<<if getvar("$i") == 1>>
			<<image "shared/sex/handjob/hand.jpg">>
		<<else>>
			<<image "shared/sex/handjob/hj.jpg">>
		<</if>>
	<<else>>
		<<set $i = rand(0, 2)>>
		<<if getvar("$i") == 0>>
			<<video "shared/sex/handjob/hj<<i>>.mp4">>
		<<else>>
			<<video "shared/sex/handjob/handjob<<i>>.mp4">>
		<</if>>
	<</if>>
	<<if $location_var[$here][1] == 'Paid'>>
		You follow him behind the gas station, where you get the promised money, kneel down, unzip his pants and start working his shaft with your hands.
		<<arouse 'hj' 15 `['sub','prostitution','unknown']`>>
	<<elseif $location_var[$here][1] == 'Free'>>
		You lead him behind the gas station, kneel down, unzip his pants and start working his shaft with your hands.
		<<arouse 'hj' 15 `['dom','unknown']`>>
	<</if>>
	<p>After a while, the man starts pulling your head closer and closer to him. He asks you to blow him: "I'll give you 200 <b>₽</b> if you open that mouth for me.</p>
	<<if (getvar("$bimbolevel") >= 1 and $pc.pcs_inhib >= 30) or $pc.horny >= 30>>
		<<actCLA 'Open your mouth for him'>>
	<<gt 'zaprFWashEvent' 'blowjob' 'Paid' 'handjob'>>
<</actCLA>>

	<</if>>
	<<act 'Rub harder to make him cum'>>
		<<gt 'zaprFWashEvent' 'handjobEndQ'>>
	<</act>>
<</if>>
<!-- ! $ARGS[1] = whether you got paid for this-->
<!-- ! $ARGS[2] = whether this act came from a customer question or already giving a customer a handjob-->
<<if $location_var[$here][0] == 'blowjob'>>
	<<if $location_var[$here][2] == 'Question'>>
		<<gs 'npcgeneratec' 0 'gas station customer' `rand(18,40)`>>

	<</if>>
	<<if $location_var[$here][1] == 'Paid'>>
		<<set $finances.cash += 200>>
		<<if getvar("$litltown") == 0>>
			<<fame 'city' 'prostitute' 2>>
		<<elseif getvar("$litltown") == 1>>
			<<fame 'pav' 'prostitute' 2>>
		<</if>>
	<<elseif $location_var[$here][1] == 'Free'>>
		<<fame 'pav' 'sex' 2>>
	<</if>>
	<<if $pc.pcs_inhib < 50>>
		<<run $pc.skillExperienceGain('inhibition',rand(6,8))>>

	<</if>>
	<<set $pc.mood += 5>>
	<<if rand(1, 100) < 50>>
		<<image "locations/shared/carwash/sex/blowjob#.jpg" 1 4>>
	<<else>>
		<<video "locations/shared/carwash/sex/blowjob#.mp4" 1 3>>
	<</if>>
	<<if $location_var[$here][2] == 'Question'>>
		<<if $location_var[$here][1] == 'Paid'>>
			You follow him behind the gas station, where you get the promised money, kneel down, unzip his pants and start working his shaft with your mouth.
			<<arouse 'bj' 15 `['sub','prostitution','unknown']`>>
		<<elseif $location_var[$here][1] == 'Free'>>
			You lead him behind the gas station, kneel down, unzip his pants and start working his shaft with your mouth.
			<<arouse 'bj' 15 `['dom','unknown']`>>
		<</if>>
	<<elseif $location_var[$here][2] == 'handjob'>>
		<<if $location_var[$here][1] == 'Paid'>>
			You grab the money he tosses at you and switch to working his shaft with your mouth.
			<<arouse 'bj' 15 `['sub','prostitution','unknown']`>>
		<<elseif $location_var[$here][1] == 'Free'>>
			You switch to working his shaft with your mouth.
			<<arouse 'bj' 15 `['dom','unknown']`>>
		<</if>>
	<</if>>
	<p>After a while, the man starts trying to remove your clothes. He asks you to let him fuck your pussy: "I'll give you 400 <b>₽</b> if you let me take your pussy! C'mon!</p>
	<<if (getvar("$bimbolevel") >= 1 and $pc.pcs_inhib >= 40) or $pc.horny >= 40>>
		<<if $pc.thinksIsVirgin>>
			<<act 'Offer your ass instead (you don`t want to lose your virginity to this stranger...)'>>
				<<gt 'zaprFWashEvent' 'fuckAnal' 'Paid'>>
			<</act>>
		<<else>>
			<<act 'Offer your pussy'>>
				<<gt 'zaprFWashEvent' 'fuckPussy' 'Paid'>>
			<</act>>
			<<act 'Offer your ass'>>
				<<gt 'zaprFWashEvent' 'fuckAnal' 'Paid'>>
			<</act>>
		<</if>>
	<</if>>
	<<act 'Suck harder to make him cum'>>
		<<gt 'zaprFWashEvent' 'blowjobEndQ'>>
	<</act>>
<</if>>
<!-- ! $ARGS[1] = whether you got paid for this-->
<<if $location_var[$here][0] == 'fuckPussy'>>
	<<if $location_var[$here][1] == 'Paid'>>
		<<set $finances.cash += 400>>
		<<if getvar("$litltown") == 0>>
			<<fame 'city' 'prostitute' 4>>
		<<elseif getvar("$litltown") == 1>>
			<<fame 'pav' 'prostitute' 4>>
		<</if>>
	<<elseif $location_var[$here][1] == 'Free'>>
		<<fame 'pav' 'sex' 4>>
	<</if>>
	<<if $pc.pcs_inhib < 60>>
		<<run $pc.skillExperienceGain('inhibition',rand(14,16))>>

	<</if>>
	<<set $pc.mood += 10>>
	<<if rand(1, 100) < 50>>
		<<image "locations/shared/carwash/sex/fuckpussy#.jpg" 1 4>>
	<<else>>
		<<video "locations/shared/carwash/sex/fuckpussy#.mp4" 1 4>>
	<</if>>
	<<if $location_var[$here][1] == 'Paid'>>
		You bend over and let the man start fucking your pussy after collecting your money.
		<<arouse 'vaginal' 30 `['sub','prostitution','unknown']`>>
	<<elseif $location_var[$here][1] == 'Free'>>
		You bend over and let the man start fucking your pussy.
		<<arouse 'vaginal' 30 `['dom','unknown']`>>
	<</if>>
	<<act 'Continue'>>
		<<gt 'zaprFWashEvent' 'pussyEndQ'>>
	<</act>>
<</if>>
<!-- ! $ARGS[1] = whether you got paid for this-->
<<if $location_var[$here][0] == 'fuckAnal'>>
	<<if $location_var[$here][1] == 'Paid'>>
		<<set $finances.cash += 400>>
		<<if getvar("$litltown") == 0>>
			<<fame 'city' 'prostitute' 4>>
		<<elseif getvar("$litltown") == 1>>
			<<fame 'pav' 'prostitute' 4>>
		<</if>>
	<<elseif $location_var[$here][1] == 'Free'>>
		<<fame 'pav' 'sex' 4>>
	<</if>>
	<<if $pc.pcs_inhib < 60>>
		<<run $pc.skillExperienceGain('inhibition',rand(14,16))>>

	<</if>>
	<<set $pc.mood += 10>>
	<<if rand(1, 100) < 50>>
		<<image "locations/shared/carwash/sex/fuckanal#.jpg" 1 4>>
	<<else>>
		<<video "locations/shared/carwash/sex/fuckanal#.mp4" 1 4>>
	<</if>>
	<<arouse 'auto_lube' 'anal' >>
	<<if $location_var[$here][1] == 'Paid'>>
		You bend over and let the man start fucking your ass after you collect your money. His cock is still wet with your saliva as it slides inside you.
		<<arouse 'anal' 30 `['sub','prostitution','unknown']`>>
	<<elseif $location_var[$here][1] == 'Free'>>
		You bend over and let the man start fucking your ass. His cock is still wet with your saliva as it slides inside you.
		<<arouse 'anal' 30 `['dom','unknown']`>>
	<</if>>
	<<set $rapePussyChance = rand(1, 100)>>
	<<if $rapePussyChance <= Math.min(max(1,slut_compare),20)>>
		<<act 'Continue'>>
			<<gt 'zaprFWashEvent' 'rapePussy'>>
		<</act>>
	<<else>>
		<<act 'Continue'>>
			<<gt 'zaprFWashEvent' 'analEndQ'>>
		<</act>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'rapePussy'>>
	<<set $i = rand(1, 5)>>
	<<video "locations/shared/carwash/sex/hardanal<<i>>.mp4">>
	The man fucks your ass furiously, taking no heed of your painful moans. As you try to move away a bit to limit the depth he can reach in your ass, he slaps your buttcheeks hard and shouts:
	<p>"Stop moving bitch! Who do you think you are, that you can tell me what to do?"</p>
	<<if $pc.pcs_vag == 0>>
		He gropes your ass, lifts it up and suddenly spots your hymen.
		<p>"What, you are a virgin? Such a tease and still a virgin, really?"</p>
		<<set $rapeAnyway = rand(1, 100)>>
		<<if $rapeAnyway <= Math.min(max(1,slut_compare),50)>>
			<p>"It would have happened sooner or later anyway, virgin slut. Now enjoy and remember this moment; I know I will!"</p>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'rapePussyYes' 'virgin'>>
			<</act>>
		<<else>>
			<p>"Girls like you should not be acting like this! Someone should have taught you a lesson a long time ago."</p>
			<<act 'Continue'>>
				<<gt 'zaprFWashEvent' 'punishSpank'>>
			<</act>>
		<</if>>
	<<else>>
		<<act 'Continue'>>
			<<gt 'zaprFWashEvent' 'rapePussyYes' 'normal'>>
		<</act>>
	<</if>>
<</if>>
<!-- ! $ARGS[1] = whether you were a virgin before this or not-->
<<if $location_var[$here][0] == 'rapePussyYes'>>
	<<run $pc.skillExperienceGain('inhibition',rand(10,20))>>
	<<video "locations/shared/carwash/sex/pussytoanal#.mp4" 1 3>>
	<<if $location_var[$here][1] == 'virgin'>>
		<<set $pc.mood -= 30>>
		<p>He gropes your ass, lifts it up and pushes his dick inside your pussy in one thrust! You feel your hymen break and know your virginity is gone forever. What will your friends and family think of you now if they find out?</p>
	<<elseif $location_var[$here][1] == 'normal'>>
		<<set $pc.mood -= 20>>
		<p>He gropes your ass, lifts it up and pushes his dick inside your pussy in one thrust, all the way to the hilt!</p>
	<</if>>
	<<arouse 'vaginal' 30 `['sub','prostitution','rough','rape','unknown']`>>
	<<act 'Continue'>>
		<<gt 'zaprFWashEvent' 'vaginaCum' 'rape'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'pussyEndQ'>>
	You can feel that the man is about to orgasm. You decide to...:
	<<act 'Let him cum inside your vagina'>>
		<<gt 'zaprFWashEvent' 'vaginaCum' 'consensual'>>
	<</act>>
	<<act 'Take his cum on your face'>>
		<<gt 'zaprFWashEvent' 'blowjobEndFace' 'inside'>>
	<</act>>
	<<act 'Let him cum inside your mouth'>>
		<<gt 'zaprFWashEvent' 'blowjobEndMouth' 'inside'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'analEndQ'>>
	You can feel that the man is about to ejaculate. You decide to...:
	<<act 'Let him cum inside your ass'>>
		<<gt 'zaprFWashEvent' 'assCum'>>
	<</act>>
	<<act 'Take his cum on your face'>>
		<<gt 'zaprFWashEvent' 'blowjobEndFace' 'inside'>>
	<</act>>
	<<act 'Let him cum inside your mouth'>>
		<<gt 'zaprFWashEvent' 'blowjobEndMouth' 'inside'>>
	<</act>>
<</if>>
<!-- ! $ARGS[1] = whether this was rape or not-->
<<if $location_var[$here][0] == 'vaginaCum'>>
	<<if $pc.pcs_inhib < 40>>
		<<run $pc.skillExperienceGain('inhibition',rand(4,6))>>

	<</if>>
	<<set $pc.pcs_vag += 1>>
	<<run $pc.painInc('vaginal','',4)>>
	<<cum ''>>
	<<video "locations/shared/carwash/sex/cumpussy#.mp4" 1 5>>
	<<if $location_var[$here][1] == 'consensual'>>
		<<set $pc.mood += 20>>
		You let him cum deep inside your vagina. A pleasant warmth fills your insides as he shoots his load deep inside you. When he pulls out, a bit of sperm leaks out of your hole.
	<<elseif $location_var[$here][1] == 'rape'>>
		<<set $pc.mood -= 20>>
		The pounding suddenly stops as he cums deep inside your vagina. You can feel his cum inside of you as he continues to shoot his load inside you. When he pulls out, a bit of sperm leaks out of your hole.
	<</if>>
	
	<<act 'Go back to the gas station'>>
		<<gt 'zaprF' 'start'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'assCum'>>
	<<if $pc.pcs_inhib < 40>>
		<<run $pc.skillExperienceGain('inhibition',rand(4,6))>>

	<</if>>
	<<set $time.minutes += 5>>
	<<set $pc.mood += 10>>
	<<set $pc.pcs_ass += 1>>
	<<run $pc.painInc('asshole','',1)>>
	<<cum 'anus'>>
	<<video "locations/shared/carwash/sex/cumanal#.mp4" 1 2>>
	You let him cum deep inside your ass. A pleasant warmth fills your insides as he shoots his load deep inside you. When he pulls out, a bit of sperm leaks out of your hole before you can tighten your worn out anus.
	
	<<act 'Go back to gas station'>>
		<<gt 'zaprF' 'start'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'handjobEndQ'>>
	You can feel that the man is about to orgasm. You decide to take it...:
	<<act 'On your face'>>
		<<gt 'zaprFWashEvent' 'blowjobEndFace' 'outside'>>
	<</act>>
	<<act 'On your hands'>>
		<<gt 'zaprFWashEvent' 'handjobEndHands'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'handjobEndHands'>>
	<<if $pc.pcs_inhib < 30>>
		<<run $pc.skillExperienceGain('inhibition',rand(2,4))>>

	<</if>>
	<<set $pc.mood += 5>>
	<<cum 'hands'>>
	<<if rand(1, 100) < 30>>
		<<video "shared/sex/cum/handjob/hand0,' + rand(0,1) + '.mp4">>
	<<else>>
		<<image "shared/sex/cum/handjob/hand#.jpg" 1 2>>
	<</if>>
	When the man starts to ejaculate, you quickly point his cock away from your face. Your hands are covered in cum by the time he is done ejaculating. His sack was full, you can say that for sure.
	
	<<act 'Go back to the gas station'>>
		<<gt 'zaprF' 'start'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'blowjobEndQ'>>
	You can feel that the man is about to orgasm. You decide to take it...:
	<<act 'On your face'>>
		<<gt 'zaprFWashEvent' 'blowjobEndFace' 'outside'>>
	<</act>>
	<<act 'In your mouth'>>
		<<gt 'zaprFWashEvent' 'blowjobEndMouth' 'outside'>>
	<</act>>
<</if>>
<!-- ! $ARGS[1] = whether his cock was inside or outside of you before he cums on your face-->
<<if $location_var[$here][0] == 'blowjobEndFace'>>
	<<if $pc.pcs_inhib < 30>>
		<<run $pc.skillExperienceGain('inhibition',rand(2,4))>>

	<</if>>
	<<set $pc.mood += 5>>
	<<cum 'face'>>
	<<if rand(1, 100) < 30>>
		<<video "locations/shared/carwash/sex/cumface#.mp4" 1 2>>
	<<else>>
		<<image "locations/shared/carwash/sex/cumface#.jpg" 1 4>>
	<</if>>
	<<if $location_var[$here][1] == 'outside'>>
		When the man starts to ejaculate, you quickly point his cock towards your face. Your face is covered in cum by the time he is done ejaculating. His sack was full, you can say that for sure.
	<<elseif $location_var[$here][1] == 'inside'>>
		When the man starts to ejaculate, you quickly take his cock out of you and point it towards your face. Your face is covered in cum by the time he is done ejaculating. His sack was full, you can say that for sure.
	<</if>>
	
	<<act 'Go back to the gas station'>>
		<<gt 'zaprF' 'start'>>
	<</act>>
<</if>>
<!-- ! $ARGS[1] = whether his cock was inside or outside of you before he cums in your mouth-->
<<if $location_var[$here][0] == 'blowjobEndMouth'>>
	<<cum 'mouth' $sex.npcId>>
	<<if rand(1, 100) < 60>>
		<<image "locations/shared/carwash/sex/cummouth#.jpg" 1 4>>
	<<else>>
		<<video "locations/shared/carwash/sex/cummouth1.mp4">>
	<</if>>
	<<if $location_var[$here][1] == 'outside'>>
		When the man starts to ejaculate, you quickly open your mouth while keeping his cock aimed straight at your tongue, giving him a good view of the cum as it flies inside your mouth. His sack was full, you can say that for sure.
	<<elseif $location_var[$here][1] == 'inside'>>
		When the man starts to ejaculate, you quickly take his cock out of you and aim it straight at your tongue, giving him a good view of the cum as it flies inside your mouth. His sack was full, you can say that for sure.
	<</if>>
	Your mouth is full of sperm. You decide to...:
	
	<<act 'Swallow and then show him your empty mouth'>>
		<<gt 'zaprFWashEvent' 'blowjobEndMouthSwallow'>>
	<</act>>
	<<act 'Spit it out in front of him'>>
		<<gt 'zaprFWashEvent' 'blowjobEndMouthSpit'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'blowjobEndMouthSwallow'>>
	<<if $pc.pcs_inhib < 40>>
		<<run $pc.skillExperienceGain('inhibition',rand(4,6))>>

	<</if>>
	<<set $swallow += 1>>
	<<set $pc.mood += 10>>
	<<image "locations/shared/carwash/sex/swallow#.jpg" 1 4>>
	You gulp down the mouthful of sperm and then present your tongue as proof that all of his seed is now in your belly.
	The man smiles, slaps you mildly on your face and says: "What a nice young slut you are. Next time I need a refill, I'll be sure to stop by."
	<<run $pc.sexStatInc('swallow','aware',1)>>
	
	<<act 'Go back to the gas station'>>
		<<gt 'zaprF' 'start'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'blowjobEndMouthSpit'>>
	<<if $pc.pcs_inhib < 30>>
		<<run $pc.skillExperienceGain('inhibition',rand(2,4))>>

	<</if>>
	<<if rand(1, 100) > 50>>
		<<image "locations/shared/carwash/sex/spit#.jpg" 1 3>>
	<<else>>
		<<video "locations/shared/carwash/sex/spit1.mp4">>
	<</if>>
	You spit the load of sperm down between the legs of your customer. He doesn''t seem happy about it...
	<p>His face darkens and he says: "What, my cum isn't good enough for you to swallow? I'll teach you bitch!"</p>
	<p>He moves closer to you with an angry look!</p>
	<<act 'Run back to the gas station'>>
		<<gt 'zaprFWashEvent' 'runback'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'runback'>>
	<<set $time.minutes += 5>>
	<!-- ! runSuccess uses a simpler version of the formula used with carwashscene-->
	<!-- ! just based on strength and agility; uses whichever is higher to try and run away-->
	<!-- ! min 25 percent chance; max 75 percent chance for this initial getaway-->
	<<set $runSuccess = rand(1, 100)>>
	<<if $runSuccess <= Math.min(max(25,pcs_stren,pcs_agil),75)>>
		<<image "locations/gadukino/village/turn_back.jpg">>
		<p>You manage to escape his grasp! You take a quick look behind you to make sure he's not following you before heading back to the gas station.</p>
		
		<<act 'Escape'>>
			<<gt 'zaprF' 'start'>>
		<</act>>
	<<else>>
		<<run $pc.painInc('cheeks','',2)>>
		<<run $pc.painInc('head','',2)>>
		<<run $pc.painInc('mouth','',2)>>
		<<run $pc.painInc('neck','',4)>>
		<<video "locations/shared/carwash/sex/punishbeatface.mp4">>
		<p>You aren't quick enough and he catches you. He pushes you down and starts to slap your face!</p>
		
		<<act 'Endure his punishment'>>
			<<gt 'zaprFWashEvent' 'punish'>>
		<</act>>
		<!-- ! gave doms the choice to fight back as long as they have some energy related stat with something left even if they lost the roll for runSuccess-->
		<!-- ! these values are based off of the cheat menu values for players who turn off these stats as they can never go below 35-->
		<<gs 'willpower' 'skill' 'resist' 'stren_lvl'>>
		<<set $will_cost = ($will_cost * 3) / 2>>
		<<if $will_cost <= $pc.willpower>>
			<<actCLA 'Push him off of you and escape (will_cost Willpower)'>>
				<<gs 'willpower' 'pay' 'resist'>> <<gt 'zaprFWashEvent' 'fight'>>
			<</actCLA>>
		<<else>>
			<<actCLA `'Push him off of you and escape ('+$will_cost+')'`>><font color=red><br/>You don`t have enough willpower to use this action.</font><</actCLA>>
		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'fight'>>
	<!-- ! maybe at some point this could be an actual fight but with the state of the combat logic is in this will just be left to drain a stat to escape-->
	<!-- ! these values are based off of the cheat menu values for players who turn off these stats as they can never go below 35-->
	<<if $pc.pcs_energy >= 35>>
		<<set $pc.pcs_energy -= 35>>
	<<elseif $pc.pcs_hydra >= 35>>
		<<set $pc.pcs_hydra -= 35>>
	<<elseif $pc.pcs_sleep >= 35>>
		<<set $pc.pcs_sleep -= 35>>
	<</if>>
	
	<<gt 'zaprF' 'start'>>
<</if>>
<<if $location_var[$here][0] == 'punish'>>
	<!-- ! once again punishType uses the same logic as carwashscene for dynamic choices-->
	<<set $punishType = rand(1, 100)>>
	<<if $punishType <= Math.min(max(50,slut_compare),75) and getvar("$punishType") >= 50>>
		<<gt 'zaprFWashEvent' 'punishAnal'>>
	<<elseif $punishType <= Math.min(max(75,slut_compare),100) and getvar("$punishType") >= 75>>
		<<gt 'zaprFWashEvent' 'punishPussyQ'>>
	<<else>>
		<<gt 'zaprFWashEvent' 'punishSpank'>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'punishSpank'>>
	<<set $pc.horny = 0>>
	<<set $pc.mood -= 10>>
	<<run $pc.skillExperienceGain('inhibition',rand(2,4))>>
	<<run $pc.painInc('asscheeks','',5)>>
	<<video "locations/shared/carwash/sex/punishspank.mp4">>
	The angry man drags you to a more secluded area, bends you over and starts to spank your ass very hard.
	After twenty minutes of ruthless punishment, he finally stops, and you crawl away with your ass burning.
	<<arouse 'foreplay' 15 `['sub','rough','unknown']`>>
	
	<<gs 'zaprFWashEvent' 'punishEnd'>>
<</if>>
<<if $location_var[$here][0] == 'punishAnal'>>
	<<set $pc.horny = 0>>
	<<set $pc.mood -= 20>>
	<<run $pc.painInc('asshole','',6)>>
	<<run $pc.skillExperienceGain('inhibition',rand(5,10))>>
	<<cum 'anus'>>
	<<set $i = rand(1, 3)>>
	<<video "locations/shared/carwash/sex/punishanal<<i>>.mp4">>
	The angry man drags you to a more secluded area, bends you over, and sticks a finger in your ass.
	Your anus fully exposed, he starts fucking it ruthlessly.
	After half an hour of rough assfucking he releases his grip on you so you can finally crawl away, your aching ass sore from the brutal penetration.
	<<arouse 'anal' 30 `['sub','rough','rape','unknown']`>>
	
	<<gs 'zaprFWashEvent' 'punishEnd'>>
<</if>>
<<if $location_var[$here][0] == 'punishPussyQ'>>
	The angry man drags you to a more secluded area. He bends you over and starts to rub your pussy.
	<<if $pc.pcs_vag == 0>>
		<p>Suddenly he remarks: "What? You're a virgin? Such a slutty tease and still a virgin?</p>
		<<set $penetrate = rand (1, 100)>>
		<<if $penetrate <= Math.min(max(50,slut_compare),75) and getvar("$penetrate") >= 50>>
			<p>I'll spare your virginity but you'll get fucked anyway. Sluts have more than one hole for a reason, right?</p>
			<<act 'Endure'>>
				<<gt 'zaprFWashEvent' 'punishAnal'>>
			<</act>>
		<<elseif $penetrate <= Math.min(max(75,slut_compare),100) and getvar("$penetrate") >= 75>>
			<p>This makes it even better! I'll enjoy your tears even more! I haven't had a virgin in forever!</p>
			<<act 'Endure'>>
				<<gt 'zaprFWashEvent' 'punishPussy' 'virgin'>>
			<</act>>
		<<else>>
			<p>Someone should have done this a long time ago, but I'll spare you penetration this time!</p>
			<<act 'Endure'>>
				<<gt 'zaprFWashEvent' 'punishSpank'>>
			<</act>>
		<</if>>
	<<else>>
		<p>Let's try what you've been teasing, you ungrateful whore!</p>
		<<act 'Endure'>>
			<<gt 'zaprFWashEvent' 'punishPussy' 'normal'>>
		<</act>>
	<</if>>
<</if>>
<!-- ! $ARGS[1] = whether you were a virgin before this or not-->
<<if $location_var[$here][0] == 'punishPussy'>>
	<<set $pc.horny = 0>>
	<<run $pc.painInc('vaginal','',4)>>
	<<run $pc.skillExperienceGain('inhibition',rand(5,10))>>
	<<cum ''>>
	<<video "locations/shared/carwash/sex/punishpussy#.mp4" 1 5>>
	<<if $location_var[$here][1] == 'virgin'>>
		<p>Your pussy fully exposed, he slowly inserts his cock inside of you. He pushes right up against your hymen, savoring the moment. Suddenly, you feel your hymen break and know your virginity is gone forever. What will your friends and family think of you now if they find out?</p>
		<<set $pc.mood -= 40>>
	<<elseif $location_var[$here][1] == 'normal'>>
		Your pussy fully exposed, he starts fucking it ruthlessly.
		<<set $pc.mood -= 20>>
	<</if>>
	After half an hour of destroying your cunt, he releases his grip on you so you can finally crawl away, your aching pussy sore from the brutal penetration.
	<<arouse 'vaginal' 30 `['sub','rough','rape','unknown']`>>
	
	<<gs 'zaprFWashEvent' 'punishEnd'>>
<</if>>
<!-- !! SM it was too hard to get abducted so remove old check against strength/agility, now only checks against slut reputation-->
<!-- !! minimum chance of 1% maximum chance of 90% to be abducted-->
<<if $location_var[$here][0] == 'punishEnd'>>
	<<set $abductionChance = Math.min(max(1,slut_compare),180) / 2>>
	<<if $abductionChance >= rand(1,100)>>
		But your perpetrator isn''t done with you.
		He catches you again, drags you to his car and pushes you into the trunk...
		You have a feeling this probably will not go well for you...
		<<act 'Cry for help'>>
			<<gt 'abduction' 'start'>>
		<</act>>
	<<else>>
		Your perpetrator stands up and just watches as you crawl away in pain.
		He turns around and calmly walks away, leaving you alone.
		<<act 'Escape'>>
			<<gt 'zaprF' 'start'>>
		<</act>>
	<</if>>
<</if>>