# AnalPR
if $ARGS[0] = '1':
	$metka = $ARGS[0]
	$loc = $CURLOC
	*clr
	cla
	set minut += 1
	set prosti = 0
	clr
	gs 'stat'
	'<center><img src="images/img/prost/anal.jpg"></center>'
	set dickK = dick * 10 / 100

	if dickK < 1:set dickK = 1
		set anus += dickK

		if anus < dick:
			set fun = 0
			set $analsex = 'Ass ached when the member entered her client waited for a bit until your ass adapt and gradually began to move his cock in you, gradually accelerating.'
		end

		if anus >= dick:
			set horny += anus
			set $analsex = 'You felt like like vagina stretched anus clasping member when a customer came in you, he immediately began to have your ass.'
		end

		'You got cancer and client uper you in your anus <<dick>> centimeter member. <<$analsex>>'
		'Finally, the client does not stand up and ends in a condom.'
		set anal += 1
		money += ProsMoney * 100
		set analprotect = 1

		act 'Leave.':gt $locSex, $metkaSex
end

if $ARGS[0] = '2':
	$metka = $ARGS[0]
	$loc = $CURLOC
	*clr
	cla
	set minut += 1
	set prosti = 0
	clr
	gs 'stat'
	set picanRand = rand(1, 6)

	if picanRand = 1:'<center><img src="images/img/prost/cowl.jpg"></center>'
	if picanRand = 2:'<center><img src="images/img/prost/cowl2.jpg"></center>'
	if picanRand = 3:'<center><img src="images/img/prost/cowl3.jpg"></center>'
	if picanRand = 4:'<center><img src="images/img/prost/cowl4.jpg"></center>'
	if picanRand = 5:'<center><img src="images/img/prost/cowl5.jpg"></center>'
	if picanRand = 6:'<center><img src="images/img/prost/cowl6.jpg"></center>'

	set dickK = dick * 10 / 100

	if dickK < 1:set dickK = 1

	set anus += dickK

	if anus < dick:
		set fun = 0
		set $analsex = 'A sharp pain pierced member of stuck in the ass, making you wince groan. Customer waited patiently until your anus, get used to stretching, but you still could not get rid of the nagging pain. Fake smile, through the desire to end this torture quickly, you give the signal to start the action. Client was cautious, starting with the slow movements in the anus, gradually accelerating, he forgot about your suffering, surrendering his own enjoyment, and not noticing as "goods", writhes and moans in pain.'
	end

	if anus >= dick:
		set horny += anus
		set $analsex = 'You felt like like vagina stretched anus clasping member when a customer came in you, he immediately began to have your ass.'
	end

	'As soon as you lay on the hood of the car, legs apart, you stared into the anus <<dick>> centimeter member. <<$analsex>>'

	if klismaday ! day and analprotect = 0:act 'Leave':gt 'AnalPR', '3'

	if klismaday = day:
		set money += 2000
		set cumanalRand = rand(0, 2)

		if cumanalRand = 0:
			'Suddenly the anus was empty, the client abruptly yanked member before it drops the seed watered half your ass.'
			set anal += 1
			set cumanal = cumass + 1

			act 'Leave.':gt $locSex, $metkaSex
		end

		if cumanalRand = 1:
			'Suddenly the anus was empty, the client abruptly yanked a member before his seed rain drops fell on your body, dirtying clothes traces of dairy.'
			set anal += 1
			set cumfrot += 1

			act 'Leave.':gt $locSex, $metkaSex
		end

		if cumanalRand = 2:
			'Customer traffic have become sharp and painful it literally rammed in the ass you finally feel like you´re inside you flowing sperm all over you think.'
			set anal += 1
			set cumanus += 1

			act 'Leave.':gt $locSex, $metkaSex
		end
	end
end

if $ARGS[0] = '3':
	cla
	*clr
	gs 'stat'
	'You were going to get the money but instead heard swearing. "You fear that the nipple completely lost my whole bolt in your shit, you do not know that I have a dick, and not brush the toilet, get out of here while intact, but money can not forget."'

	act 'Leave.':gt $locSex, $metkaSex

	if intel <= 100:act 'Be rude':gt 'AnalPR', '4'
	if intel >= 50:act 'Make amends':gt 'AnalPR', '5'
end

if $ARGS[0] = '4':
	cla
	*clr
	gs 'stat'
	'<center><img src="images/img/prost/bjr.jpg"></center>'
	'"Hey, I did not understand, chase my money ..." you did not get to finish. Man hit you strong blow to the chest, from which you crashed to the ground. "Money is wanted, well, what a bitch I´ll give them to you, but you are correct his mistake" after these words he drove you exhaling stench dick in her mouth. You were choking from the stench, but there was nothing, his eyes closed, as if saying yes, you tried to keep from vomiting, fear of causing mayhem. The stranger had you in my mouth, trying to touch every movement of your lips their balls. His cock soon became clean, but it did not stop him, it seemed an eternity before he again finished right in the throat. Looking at you roll in a mixture of saliva and vomit, he laughed and said no more words thrown in your face money.'
	set money += ProsMoney * 100
	set manna -= 30
	set health -= 30
	set willpower -= 30
	set bj += 1
	set throat += 1

	act 'Leave.':gt $locSex, $metkaSex
end

if $ARGS[0] = '5':
	cla
	*clr
	gs 'stat'
	'<center><img src="images/img/prost/bjr1.jpg"></center>'
	'You understand everything perfectly, you are at fault, and you correct client insanely angry and seems ready to tear you to pieces. You decide to make amends, his guilt polish smeared mouth organ client.'
	set bj += 1
	set throat += 1

	act 'Suck':gt 'AnalPR', '6'
end

if $ARGS[0] = '6':
	cla
	*clr
	gs 'stat'
	'<center><img src="images/img/prost/sexcar20.jpg"></center>'
	'Bitter taste in the mouth of feces did not give you a taste of diluted semen. Freeing your mouth working, customer ordered to lie on the grass. You humbly and even with a certain touch of acting talent was acting innocent doll while you fuck. Client warmed your able mouth twitching long over you, quickly ran into the condom. While you lay recovering on your body fall three green paper, he was satisfied, happy smile you think.'
	set vagina += 1
	set money += ProsMoney * 110

	act 'Leave.':gt $locSex, $metkaSex
end

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