# AnalPR

if $ARGS[0] = '1':
	$loc_arg = $ARGS[0]
	$loc = 'AnalPR'
    $location_type = 'event'
	menu_off = 1

	*clr & cla
	prosti = 0
	money += ProsMoney*100
	gs'stat'
	gs 'arousal', 'auto_lube', 'anal'

	if pcs_ass < dick:
		$analsex = 'Your anus stretches painfully as he fills your ass with his meaty shaft. You wince and beg him to take it easy for a little while. Fortunately, he listens to your request. You feel your anus muscles relax, which signals that he can go faster. Slowly at first, he gains momentum as he pushes closer to his orgasm.'
		gs 'arousal', 'anal', 5, 'rough', 'sub', 'unknown', 'prostitution'
		gs 'stat'
	end

	if pcs_ass >= dick:
		pcs_horny += pcs_ass
		$analsex = 'Your anus has no difficulty adjusting to the size of his member. It actually feels fairly pleasant when he shoves his full length in. Your anus grips his cock from time to time in response to your building orgasm. The man begins to thrust his hips against your ass enthusiastically when he notices you are enjoying your ass being reamed.'
		gs 'arousal', 'anal', 5, 'sub', 'unknown', 'prostitution'
		gs 'stat'
	end

	'<center><img <<$set_imgh>> src="images/shared/sex/anal/doggy/anal30.jpg"></center>'
	'You immediately feel the man''s hands on your ass cheeks when you get on your hands and knees in the back seat. The man confidently guides his condom-covered cock to your sphincter and slowly thrusts all of his <<dick>> centimeters inside you.'
	'<<$analsex>>'
	'After a few minutes of fucking your ass, the man groans, and you feel his hips spasming against your ass. He pulls out of you then takes the filled condom off his slowly shrinking cock.'
	'The man ties a knot at the open end of the condom and carelessly tosses it out of the window.'
	spafinloc = 3
	gs 'arousal', 'anal', 10, 'sub', 'unknown', 'prostitution'
	gs 'arousal', 'end'
	gs 'cum_manage'
	gs 'stat'

	act 'Continue':gt $locSex, $metkaSex
end

if $ARGS[0] = '2':
	$loc_arg = $ARGS[0]
	$loc = 'AnalPR'
    $location_type = 'event'
	menu_off = 1
	
	*clr & cla
	prosti = 0
	gs'stat'
	gs 'arousal', 'auto_lube', 'anal'

	if pcs_ass < dick:
		$analsex = 'You feel a sharp pain and wince when the man pushes the tip of his <<dick>> centimeter member past your sphincter. He continues to work most of his length inside you. Fortunately, he listens when you beg him to go slow.<br>The man holds still for a moment so your ass can get used to how far it''s being stretched out. After a little while, you don''t think it''s going to get any better, so you tell the man he can start to fuck you with a forced, fake smile on your face.<br>He''s still careful at first, but soon forgets about your suffering and accelerates more and more. The man groans loudly while he hammers his cock inside your ass. He ignores your crying and mewling coming from underneath him.'
		gs 'arousal', 'anal', -5, 'rough', 'sub', 'unknown', 'prostitution'
		gs 'stat'
	end
	if pcs_ass >= dick:
		pcs_horny += pcs_ass
		$analsex = 'Your anus has no difficulty adjusting to the size of his member. It actually feels fairly pleasant when he shoves his length in. Your anus grips the full length of his cock from time to time in response to your moaning. He begins to thrust his hips against your ass enthusiastically when he notices you are enjoying being fucked in the ass.'
		gs 'arousal', 'anal', -5, 'sub', 'unknown', 'prostitution'
		gs 'stat'
	end

	'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl<<rand(1, 6)>>.jpg"></center>'

	'As soon as you lie down on the hood of the car, the man parts your legs and eagerly presses the tip of his cock against your anus.'
	gs 'arousal', 'anal', 10, 'sub', 'unknown', 'prostitution'
	gs 'stat'
	if klismaday ! daystart:
		act 'Continue':gt 'AnalPR', '3'
	else
		money += 2000

		cumanalRand = RAND(0,2)
		if cumanalRand = 0:
			spafinloc = 4
			gs 'cum_manage'

			'Suddenly the man groans loudly and abruptly pulls his member out of your stretched anus. The sudden emptiness feels strange, but you smile seductively at the man as he jerks himself off over your ass cheeks. When he''s done covering your buttocks with his seed, he lets out a satisfied sigh and gives you your money.'
			
			act 'Continue':gt $locSex, $metkaSex
		elseif cumanalRand = 1:
			spafinloc = 7
			gs 'cum_manage'

			'Suddenly the man groans loudly and abruptly pulls his member out of your stretched anus. The sudden emptiness feels strange, but you smile seductively at the man while he jerks himself off over your ass cheeks. Then the bastard suddenly aims his cock at your clothes to shoot his load all over them!<br>You silently curse him, but force yourself to keep smiling as he lets out a satisfied sigh and places your money next to you.'
			
			act 'Continue':gt $locSex, $metkaSex
		elseif cumanalRand = 2:
			spafinloc = 3
			gs 'cum_manage'
			'Suddenly the man groans loudly and he holds still with his cock deep inside you. He very slowly pulls out, which results in a trickle of his sperm slowly running out of your slightly gaping ass.'
			'He admires his work for a moment before giving you the money he owes you with a satisfied smile on his face.'
			
			act 'Continue':gt $locSex, $metkaSex
		end
		gs 'arousal', 'anal', 10, 'sub', 'unknown', 'prostitution'
		gs 'arousal', 'end'
		gs 'stat'
		killvar 'cumanalRand'
	end
end

if $ARGS[0] = '3':
	*clr & cla
	menu_off = 1
	gs'stat'

	'When the man stops, at first you think it''s because he came, but then you hear swearing.'
	'"What the fuck!? What kind of dirty whore are you? This is disgusting!" he yells.'
	'When you turn around, you see the problem. His dick is covered in shit! You really should have given yourself an enema first before you sold your ass like this...'
	'The man shouts angrily, "Get lost you whore... you''re lucky I''m letting you leave without beating you up! You can forget about your money!"'

	act 'Leave quietly':gt $locSex, $metkaSex
	act 'Insist he pays anyway':gt 'AnalPR', '4'
	if pcs_intel >= 50:act 'Apologize and make amends':gt 'AnalPR', '5'
end

if $ARGS[0] = '4':
	*clr & cla
	menu_off = 1
	money += ProsMoney * 100
	pcs_mood -= 30
	pcs_health -= pcs_health/5
	pcs_throat += 1
	gs'stat'

	'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bjr.jpg"></center>'
	'"Hey, I did what you wanted! You owe m-," you begin to say, but he doesn''t let you finish. The man angrily punches you in the stomach, which makes you double over in pain.'
	'"Fine! You''ll get your money... but you will correct your mistake you whore," he snarls angrily.'
	'He kneels down then thrusts his smelly cock all the way into your mouth. He says with a mean grin, "Start sucking slut. It''s not coming out until it''s completely clean!"'
	'The taste and stench are terrible. You really have to fight the urge to vomit. You barely manage, partially because you''re afraid of what he would do otherwise...'
	'A few minutes later, long after you licked and sucked his cock clean, the man is still fucking your throat violently. He finally groans and cums inside your mouth.'
	'He scoffs at you when he pulls away as you roll to your stomach and dry heave a few times. That was disgusting!'
	'He carelessly throws the money he owes you onto the ground then drives off without saying another word.'
	spafinloc = 12
	gs 'arousal', 'bj', 10, 'sub', 'humiliation', 'rough', 'deepthroat', 'unknown', 'prostitution'
	gs 'arousal', 'end'
	gs 'cum_manage'
	gs 'stat'

	act 'Continue':gt $locSex, $metkaSex
end

if $ARGS[0] = '5':
	*clr & cla
	menu_off = 1
	pcs_throat += 1
	gs'stat'

	'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bjr1.jpg"></center>'
	'You understand perfectly why he''s upset... that wasn''t very smart of you. You''ll have to think of a solution fast!'
	'"I''m sorry sir! Please allow me to make it up to you...," you tell him as you drop to your knees obediently. This is going to be unpleasant, but you have to do something to keep him happy!'
	'The man watches in disgust as you close your lips around his dirty cock. The taste and smell is awful! He''s still upset, but you can see his anger slowly fade away when you lick his dirty cock clean. It''s fully erect again by now and you can tell he''s still very horny despite your mishap.'
	'He then says, "Good enough. Lie down in the grass."'
	gs 'arousal', 'bj', 5, 'sub', 'humiliation', 'unknown', 'prostitution'
	gs 'stat'
	act 'Let him fuck you':gt 'AnalPR', '6'
end

if $ARGS[0] = '6':
	*clr & cla
	menu_off = 1
	pcs_vag = pcs_vag + 1
	money += ProsMoney*110
	gs'stat'

	'<center><img <<$set_imgh>> src="images/locations/shared/sex/car/sexcar20.jpg"></center>'
	'You lie down obediently while giving the man a humble look as he takes his place between your legs. He quickly puts a condom on, not taking any more chances with you. You still have that awful taste in your mouth, but do your best to focus on giving the man pleasure.'
	'The man drives his cock deep inside you and begins to fuck your pussy using long, firm strokes. He groans every time his hips slap against your buttocks, and the intensity with which he fucks you makes you cry out as well.'
	'After a few minutes, the man groans, and you feel his hips spasming against your body. He pulls out of you and takes the filled condom off his slowly shrinking cock.'
	'While you lay on the grass recovering from all the things you just had to do to not lose your customer, he theatrically throws a number of bills onto your body one by one. He''s smiling again and is clearly in a good mood. He''s even added a little extra!'
	gs 'arousal', 'vaginal', 10, 'sub', 'humiliation', 'rough', 'unknown', 'prostitution'
	gs 'arousal', 'end'
	gs 'cum_manage'
	gs 'stat'

	act 'Continue':gt $locSex, $metkaSex
end

--- AnalPR ---------------------------------