glife/locations/AnalPR

# AnalPR

if $ARGS[0] = '1':
	$metka = $ARGS[0]
	$loc = $CURLOC
    $location_type = 'event'

	cls
	prosti = 0
	money += ProsMoney*100
	analprotect = 1
	gs'stat'

	dickK = dick*10/100
	if dickK < 1:dickK = 1
	pcs_ass = pcs_ass + dickK

	if pcs_ass < dick:
		fun = 0
		$analsex = 'Your anus stretches painfully while he fills your ass with his shaft, and you wince and beg him to take it easy for a little while. Fortunately, he listens. Once he feels he gave you enough time to adapt, he begins to move his hips. Slowly at first, but his thrusts accelerate more and more as he gets closer to his orgasm.'
		gs 'arousal', 'anal', 20, 'rough', 'sub'
		gs 'stat'
	end

	if pcs_ass >= dick:
		pcs_horny = pcs_horny + pcs_ass
		$analsex = 'Your anus has no difficulty adjusting to the size of his member, and it actually feels fairly pleasant when he shoves his length in. Your anus clasps around the base of his cock from time to time, and the man begins to thrust his hips against yours enthusiastically when he notices you can take it.'
		gs 'arousal', 'anal', 20, 'sub'
		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 yours. He pulls out of you and takes the filled condom off his slowly shrinking cock.'
	'The man ties a knot in the condom and tosses it out of the window carelessly.'
	spafinloc = 3
	gs 'arousal', 'anal', 20, 'sub'
	gs 'arousal', 'end'
	gs 'cum_manage'
	gs 'stat'

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

if $ARGS[0] = '2':
	$metka = $ARGS[0]
	$loc = $CURLOC
    $location_type = 'event'

	cls
	prosti = 0
	gs'stat'

	dickK = dick*10/100
	if dickK < 1:dickK = 1
	pcs_ass = pcs_ass + dickK

	if pcs_ass < dick:
		fun = 0
		$analsex = 'You feel a sharp pain and wince when the man pushes the tip of his <<dick>> centimeter member past your sphincter, and continues to work most of his length inside you. Fortunately, he listens when you beg him to go slow.<br>The guy 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, and 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, ignoring your crying and mewling underneath him.'
		gs 'arousal', 'anal', 20, 'rough', 'sub'
		gs 'stat'
	end
	if pcs_ass >= dick:
		pcs_horny = pcs_horny + pcs_ass
		$analsex = 'Your anus has no difficulty adjusting to the size of his member, and it actually feels fairly pleasant when he shoves his length in. Your anus clasps around the base of his cock from time to time, and the man begins to thrust his hips against yours enthusiastically when he notices you can take it.'
		gs 'arousal', 'anal', 20, 'sub'
		gs 'stat'
	end

	picanRand = RAND(1,6)
	if picanRand = 1:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl.jpg"></center>'
	if picanRand = 2:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl2.jpg"></center>'
	if picanRand = 3:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl3.jpg"></center>'
	if picanRand = 4:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl4.jpg"></center>'
	if picanRand = 5:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl5.jpg"></center>'
	if picanRand = 6:'<center><img <<$set_imgh>> src="images/shared/sex/anal/mis/cowl6.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', 15, 'sub'
	gs 'stat'
	if klismaday ! daystart and analprotect = 0:act 'Continue':gt'AnalPR','3'

	if klismaday = daystart:
		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 while 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.'
			gs 'arousal', 'anal', 15, 'sub'
			gs 'arousal', 'end'
			gs 'stat'
			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, and shoots his load all over them!<br>You silently curse him, but force yourself to keep smiling as he lets out a satisfied sigh and gives you your money.'
			gs 'arousal', 'anal', 15, 'sub'
			gs 'arousal', 'end'
			gs 'stat'
			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. Then he very slowly pulls out, and a trickle of his sperm slowly runs out of your slightly gaping ass.'
			'He admires his work for a moment, before giving the money he owes you with a satisfied smile on his face.'
			gs 'arousal', 'anal', 15, 'sub'
			gs 'arousal', 'end'
			gs 'stat'
			act 'Continue':gt $locSex, $metkaSex
		end
	end
end

if $ARGS[0] = '3':
	cls
	gs'stat'

	'When the man stops, you think it''s because he came. Instead, 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 should really give yourself an enema first, if you want to sell your ass like this...'
	'The man shouts angrily: "Get lost, 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
	if pcs_intel <= 100: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':
	cls
	money += ProsMoney * 100
	pcs_mood -= 30
	pcs_health -= 30
	pcs_willpwr -= 30
	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, but he doesn''t let you finish. The man angrily punches you in the stomach, making you double over in pain.'
	'"Fine! You''ll get your money... but you will correct your mistake, whore!" he snarls angrily.'
	'He kneels down and thrusts his smelly cock all the way into your mouth, and says with a mean grin: "Start sucking, slut. It''s not coming out until it''s completely clean!"'
	'The taste and stench are terrible, and you really have to fight the urge to not 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. Then finally, he groans and cums inside your mouth.'
	'He scoffs at you when he pulls away, while 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 and drives off, without saying another word.'
	spafinloc = 12
	gs 'arousal', 'bj', 10, 'sub', 'humiliation', 'rough', 'deepthroat'
	gs 'arousal', 'end'
	gs 'cum_manage'
	gs 'stat'

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

if $ARGS[0] = '5':
	cls
	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, while 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', 10, 'sub', 'humiliation'
	gs 'stat'
	act 'Let him fuck you':gt'AnalPR','6'
end

if $ARGS[0] = '6':
	cls
	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, giving the man a humble look as he takes place between your legs. He quickly put 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 yours, 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 yours. 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 even added a little extra!'
	gs 'arousal', 'vaginal', 20, 'sub', 'humiliation', 'rough'
	gs 'arousal', 'end'
	gs 'cum_manage'
	gs 'stat'

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

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