# AnalPR
if $ARGS[0] = '1':
	$metka = $ARGS[0]
	$loc = $CURLOC

	cla
	clr
	*clr
	minut = minut + 1
	prosti = 0
	anal = anal + 1
	money += ProsMoney*100
	analprotect = 1
	gs'stat'

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

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

	if anus >= dick:
		horny = horny + anus
		$analsex = 'You feel, as the vagina like a stretched anus clasping member, when a customer walked in you, He immediately began to have your ass.'
	end

	'<center><img src="images/Prost/anal.jpg"></center>'
	'You got cancer and you put his client in his anus <<dick>> inch dick. <<$analsex>>'
	'Finally, the client does not stand up and ends in a condom.'
	spafinloc = 3
	gs 'cum_manage'

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

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

	cla
	clr
	*clr
	minut = minut + 1
	prosti = 0
	gs'stat'

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

	if anus < dick:
		fun = 0
		$analsex = 'The sharp pain of the stick member pierced ass, making you wince groan. Customer waited patiently until your anus, accustomed to stretching, but you still could not get rid of the nagging pain. Fake smile, through the desire to end this torture quickly, you gave the signal to start the action. The client was cautious, starting with slow movements in the anus, gradually accelerating, he forgot about your suffering, surrendering his own pleasure, and are not seen as "goods", writhes and moans of pain.'
	end
	if anus >= dick:
		horny = horny + anus
		$analsex = 'You feel, as the vagina like a stretched anus clasping member, when a customer walked in you, He immediately began to have your ass.'
	end

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

	'As soon as you lay down on the hood of the car, legs apart, anus you rested <<dick>> inch dick. <<$analsex>>'

	if klismaday ! daystart and analprotect = 0:act 'Escape':gt'AnalPR','3'

	if klismaday = daystart:
		money = money + 2000

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

			'Suddenly, in the anus become empty, Client dramatically pulled member, before a drop of his seed watered half of your ass.'

			act 'Escape':gt $locSex, $metkaSex
		elseif cumanalRand = 1:
			anal = anal + 1
			spafinloc = 7
			gs 'cum_manage'

			'Suddenly, in the anus become empty, Client dramatically pulled member, before a drop of his seed rain fell on your body, dirtying clothes traces of milk.'

			act 'Escape':gt $locSex, $metkaSex
		elseif cumanalRand = 2:
			anal = anal + 1
			spafinloc = 3
			gs 'cum_manage'

			'Movement of the customer has been a sharp and painful it literally rammed you in the ass, Finally you feel like you are inside the sperm flows, do you think it was over.'

			act 'Escape':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 entire bolt, in your shit, you, that do not know, I have a hell, not a toilet brush, get out of here is still intact, And the money you can forget".'

	act 'Escape':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
	money += ProsMoney*100
	manna = manna - 30
	health = health - 30
	willpower = willpower - 30
	bj = bj + 1
	throat = throat + 1
	gs'stat'

	'<center><img src="images/Prost/bjr.jpg"></center>'
	'"Listen, I do not understand, I whip my money..." finish you do not give. The man hit you heavy blow to the chest, from which you fell to the ground. "Money wanted, Well, what a bitch, I`ll give them to you, but you have to correct his mistake" After these words he drove you exuding the stench dick in her mouth. You choked on the stench, but there was nothing, eyes closed, how to say yes, you try to keep from vomiting, fear of new beating. The stranger had you in the mouth, trying to touch her every move eggs your lips. His cock soon became clear, but that did not stop him, it seemed an eternity before he once again finished right in the throat. Looking at you roll in a mixture of vomit and saliva, he laughed and said no more words thrown in your face money.'
	spafinloc = 12
	gs 'cum_manage'

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

if $ARGS[0] = '5':
	cla
	*clr
	bj = bj + 1
	throat = throat + 1
	gs'stat'

	'<center><img src="images/Prost/bjr1.jpg"></center>'
	'You perfectly understand everything, you are to blame, and you are correct, Client insanely angry and think, ready to tear you to pieces. You decide to make amends, guilt polished mouth stained body of the client.'

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

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

	'<center><img src="images/Prost/sexcar20.jpg"></center>'
	'The bitter taste of feces in his mouth you do not dilute the flavor given sperm. Freeing your desktop mouth, customer ordered to lie on the grass. You dutifully and even with a certain touch of acting talent fulfill the role, innocent until you fuck doll. Customer, heated by your skillful mouth, long twitching over you, quickly ended in a condom. While you are lying recovering, your body fall three green paper, he was pleased with, smiling happily do you think.'
	gs 'cum_manage'

	act 'Escape':gt $locSex, $metkaSex
end
--- AnalPR ---------------------------------