# AnalPR
<<<<<<< 470_AnalPR
if $ARGS[0] = '1':
=======
if $ARGS[0]='1':
>>>>>>> 470_AnalPR
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
<<<<<<< 470_AnalPR
set minut += 1
=======
set minut = minut + 1
>>>>>>> 470_AnalPR
set prosti = 0
clr
<<<<<<< 470_AnalPR
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.': GOTO $locSex, $metkaSex
=======
gs'stat'
'<center><img src="prost/anal.jpg" ></center>'
set dickK = dick*10/100
if dickK < 1:set dickK = 1
set anus = anus + dickK

	 if anus < dick:
	 set fun = 0
	 set $analsex = 'Ass ached when the member entered her, client waited a little, until your ass and began to adapt gradually to move his cock in you, gradually accelerating.' 
	 end
	 
	 if anus >= dick:
	 set horny = horny + anus
	 set $analsex = 'you feel, as similar to the vagina is stretched anus clasping member, when a customer walked in you, He immediately began to have your ass.' 
	 end
'You got cancer and client uper you in your ass <<dick>> inch dick. <<$analsex>>'
'Finally.'
set anal = anal + 1
money+=ProsMoney*100
set analprotect = 1
act 'Get_Away.':GOTO $locSex, $metkaSex
>>>>>>> 470_AnalPR
end

<<<<<<< 470_AnalPR
if $ARGS[0] = '2':
=======
if $ARGS[0]='2':
>>>>>>> 470_AnalPR
$metka = $ARGS[0]
$loc = $CURLOC
*clr
cla
<<<<<<< 470_AnalPR
set minut += 1
=======
set minut = minut + 1
>>>>>>> 470_AnalPR
set prosti = 0
clr
<<<<<<< 470_AnalPR
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.': GOTO $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.': GOTO $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.': GOTO $locSex, $metkaSex
		end
	end
=======
gs'stat'
set picanRand = RAND (1,6)
if picanRand = 1:'<center><img src="prost/cowl.jpg" ></center>'
if picanRand = 2:'<center><img src="prost/cowl2.jpg" ></center>'
if picanRand = 3:'<center><img src="prost/cowl3.jpg" ></center>'
if picanRand = 4:'<center><img src="prost/cowl4.jpg" ></center>'
if picanRand = 5:'<center><img src="prost/cowl5.jpg" ></center>'
if picanRand = 6:'<center><img src="prost/cowl6.jpg" ></center>'
set dickK = dick*10/100
if dickK < 1:set dickK = 1
set anus = anus + dickK
	 if anus < dick:
	 set fun = 0
	 set $analsex = 'A sharp pain shot through a member of the pop in the ass, making you wince moan. Client 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 in pain.' 
	 end
	 if anus >= dick:
	 set horny = horny + anus
	 set $analsex = 'you feel, as similar to the vagina is stretched anus clasping member, when a customer walked in you, He immediately began to have your ass.' 
	 end
'As soon as you lay on the hood of the car, legs spread, anus you rested <<dick>> inch dick. <<$analsex>>'

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

	 if klismaday = day:
	 set money = money + 2000
	 set cumanalRand = RAND (0,2)
		 
		 if cumanalRand = 0: 
		 'Suddenly, client abruptly yanked member, before a drop of his seed watered half your ass. '
		 set anal = anal + 1
		 set cumanal = cumass + 1
		 act 'Get_Away.':GOTO $locSex, $metkaSex
		 end
		 
		 if cumanalRand = 1: 
		 'Suddenly, client abruptly yanked member, before a drop of his seed rain fell on your body, dirtying clothes traces of milk. '
		 set anal = anal + 1
		 set cumfrot = cumfrot + 1
		 act 'Get_Away.':GOTO $locSex, $metkaSex
		 end 
		 
		 if cumanalRand = 2: 
		 'Customer traffic 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.'
		 set anal = anal + 1
		 set cumanus = cumanus + 1
		 act 'Get_Away.':GOTO $locSex, $metkaSex
		 end 
	 end
>>>>>>> 470_AnalPR
end

<<<<<<< 470_AnalPR
if $ARGS[0] = '3':
=======
if $ARGS[0]='3':
>>>>>>> 470_AnalPR
cla
*clr
<<<<<<< 470_AnalPR
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.': GOTO $locSex, $metkaSex
if intel <= 100: act 'Be rude': gt 'AnalPR','4'
if intel >= 50: act 'Make amends': gt 'AnalPR','5'
=======
gs'stat'
'You were going to get the money but instead heard swearing. В«Are you really fear the nipple lost my entire bolt, in your shit, do_you, that do not know, I have a fuck, instead Toilet Brushes, get out of here while intact, And the money you can forgetВ». '
act 'Get_Away.':GOTO $locSex, $metkaSex
if intel <= 100:act 'be_rude':gt 'AnalPR','4'
if intel >= 50:act 'make amends':gt 'AnalPR','5'
>>>>>>> 470_AnalPR
end

<<<<<<< 470_AnalPR
if $ARGS[0] = '4':
=======
if $ARGS[0]='4':
>>>>>>> 470_AnalPR
cla
*clr
<<<<<<< 470_AnalPR
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.': GOTO $locSex, $metkaSex
=======
gs'stat'
'<center><img src="prost/bjr.jpg" ></center>'
'В«Listen, I do not understand, whip my money ... В» agreement. The man hit you hard blows to the chest, from what you crashed to the ground. В«wanted money, Well bitch , but you have to correct his mistakeВ» After these words he drove you exuding the stench dick in her mouth. You choking from the stench, but there was nothing, eyes closed, how to say yes, you try to keep from vomiting, fear of causing mayhem. The stranger had you in the mouth, trying with every movement of your eggs to touch your lips. His cock soon became clear, but that 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 .'
set money+=ProsMoney*100
set manna = manna - 30
set health = health - 30
set willpower = willpower - 30
set bj = bj + 1
set throat = throat + 1
act 'Get_Away.':GOTO $locSex, $metkaSex
>>>>>>> 470_AnalPR
end

<<<<<<< 470_AnalPR
if $ARGS[0] = '5':
=======
if $ARGS[0]='5':
>>>>>>> 470_AnalPR
cla
*clr
<<<<<<< 470_AnalPR
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'
=======
gs'stat'
'<center><img src="prost/bjr1.jpg" ></center>'
'You perfectly understand everything, you are to blame, and you are correct, client insanely angry and it seems, ready to tear you to pieces. You decide to make amends, guilt polished mouth stained body of the client. '
set bj = bj + 1
set throat = throat + 1
act 'suck':gt 'AnalPR','6'
>>>>>>> 470_AnalPR
end

<<<<<<< 470_AnalPR
if $ARGS[0] = '6':
=======
if $ARGS[0]='6':
>>>>>>> 470_AnalPR
cla
*clr
<<<<<<< 470_AnalPR
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.': GOTO $locSex, $metkaSex
=======
gs'stat'
'<center><img src="prost/sexcar20.jpg" ></center>'
'Bitter taste in the mouth of feces did not give you a taste of diluted sperm. Freeing your desktop mouth, customer ordered to lie down on the grass. You dutifully and even with a certain touch of acting talent are acting as, innocent until you fuck doll. customer, warmed your skillful mouth, long twitching over you, quickly ran out into the condom. While you are lying recovering, your body fall three green paper, he was pleased with, smiling happily do you think.'
set vagina = vagina + 1
set money+=ProsMoney*110
act 'Get_Away.':GOTO $locSex, $metkaSex
>>>>>>> 470_AnalPR
end
--- AnalPR ---------------------------------