# blowPR
if $ARGS[0] = 'start':
	$metka = $ARGS[0]
	$loc = $CURLOC
	*clr
	cla
	zpprand = rand(0, 100)

	if zpprand >= 70:dynamic $venerasiak

	set minut += 1
	set guy += 1
	set bj += 1
	set throat += 1
	set prosta += 1
	!!set son -= 1

	clr
	gs 'stat'
	'<center><img src="images/img/prost/bj.jpg"></center>'
	'Your hand slid crotch guy and unzipped his pants. You shoved his hand into his pants and pulled out his cock.'

	if prezik > 0:act 'Wear a condom on the penis mouth.':gt 'blowPR', '1'
	if prezik = 0:act 'Mark cock in her mouth.':gt 'blowPR', '2'
end

if $ARGS[0] = '1':
	$metka = $ARGS[0]
	$loc = $CURLOC
	*clr
	cla
	set minut += 5
	set prezik -= 1
	clr
	gs 'stat'
	set picrand = rand(0, 6)

	if picrand = 0:'<center><img src="images/img/prost/bjp.jpg"></center>'
	if picrand = 1:'<center><img src="images/img/prost/bjp2.jpg"></center>'
	if picrand = 2:'<center><img src="images/img/prost/bjp3.jpg"></center>'
	if picrand = 3:'<center><img src="images/img/prost/bjp4.jpg"></center>'
	if picrand = 4:'<center><img src="images/img/prost/bjp5.jpg"></center>'
	if picrand = 5:'<center><img src="images/img/prost/bjp6.jpg"></center>'
	if picrand = 6:'<center><img src="images/img/prost/bjp7.jpg"></center>'

	'You pulled his lips a condom on the penis'

	if prosti = 0:
		'Your lips slide down the barrel client until he cums in a condom'

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

	if prosti = 1:
		'Client sufficiently warmed up and you can continue.'

		act 'Further.':gt 'NormPR', '1'
	end

	if prosti = 2:
		'Client sufficiently warmed up and you can continue.'

		act 'Further.':gt 'AnalPR', '1'
	end
end

if $ARGS[0] = '2':
	$metka = $ARGS[0]
	$loc = $CURLOC
	*clr
	cla
	dynamic $venerasiak
	set minut += 5
	clr
	gs 'stat'
	set picrand = rand(0, 5)

	if picrand = 0:'<center><img src="images/img/prost/bjp8.jpg"></center>'
	if picrand = 1:'<center><img src="images/img/prost/bjp9.jpg"></center>'
	if picrand = 2:'<center><img src="images/img/prost/bjp10.jpg"></center>'
	if picrand = 3:'<center><img src="images/img/prost/bjp11.jpg"></center>'
	if picrand = 4:'<center><img src="images/img/prost/bjp12.jpg"></center>'
	if picrand = 5:'<center><img src="images/img/prost/bjp13.jpg"></center>'

	'You clasped lips member.'

	act 'Suck':gt 'blowPR', '12'
end

if $ARGS[0] = '12':
	$metka = $ARGS[0]
	$loc = $CURLOC
	*clr
	cla

	if prosti = 0:
		bjrand = rand(0, 100)

		if bj <= 15 and bjrand > 0 and bjrand <= 50:
			'You clumsy movements suck dick customer until he cums in your mouth, making you wince from the unpleasant taste of sperm.'
			set cumlip += 1
			'<center><img src="images/img/prost/bjm.jpg"></center>'

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

		if bj > 15 and bjrand > 0 and bjrand <= 50:
			set cumlip += 1
			'<center><img src="images/img/prost/bjm2.jpg"></center>'
			'Your trained sponge glide up and down, bringing pleasure to the customer. Very soon you will feel the taste of his seed that you swallow with delight to the last drop.'
			set cumlip += 1

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

		if bjrand > 50 and bjrand <= 80 and bj <= 15 and mop = 1:
			set cumface += 1
			'<center><img src="images/img/prost/bjf.jpg"></center>'
			'You clumsy movements suck dick client suddenly you he pulls his dick, ending on your face, you do not have time to blink, a little sperm gets you in the eye, but, despite the burning, you can not cry, you can only smile.'

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

		if bjrand > 50 and bjrand <= 80 and bj <= 15 and mop > 1:
			set cumface += 1
			set mop = 0
			'<center><img src="images/img/prost/bjf.jpg"></center>'
			'You clumsy movements suck dick client suddenly you he pulls his dick, ending on your face, you do not have time to blink, a little sperm gets you in the eye, but, despite the burning, you can not cry, you can only smile.'

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

		if bjrand > 50 and bjrand <= 80 and bj > 15:
			set cumface += 1
			'<center><img src="images/img/prost/bjf2.jpg"></center>'
			'Your trained sponge glide up and down, bringing pleasure to the customer as soon as the client has released your mouth, you realize that your face is now flooded with sperm. You have time, tilt the head back with her eyes closed, heavy drops falling on your chin, forcing to smile at the thought of not smeared makeup.'

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

		if bjrand > 80 and bjrand <= 100 and bj <= 15:
			'<center><img src="images/img/prost/bjt2.jpg"></center>'
			'You clumsy movements suck dick client, it stretches hands to your chest trying to expose it. You moaned, letting him know that was not the deal. Dissatisfied client continued to have you in my mouth. You have already relaxed, as a client, pushing, pulled wet from saliva member. His eyes closed, you feel like a drop of sperm not fall on your face and chest! Surprised you open your eyes in horror when he saw in the semen-stained clothing, and pretty smiling customer.'
			set cumfrot += 1

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

		if bjrand > 80 and bjrand <= 100 and bj > 15:
			'<center><img src="images/img/prost/bjt.jpg"></center>'
			'Your trained sponge glide up and down, bringing pleasure to the customer. He stretches his hands to your chest did not patiently trying to expose her, you understand everything without words. Exposing boobs you become even more carefully to work his mouth when he was already on the brink, you have stepped back sharply, slipping back with the member in a moment became a client shoot sperm on your carefully when substituted hemisphere. Left happy, he handed you another Piatihatki.'
			set money += 500

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

	if prosti = 1:
		'Client sufficiently warmed up and you can continue.'

		act 'Further.':gt 'NormPR', '2'
	end

	if prosti = 2:
		'Client sufficiently warmed up and you can continue.'

		act 'Further.':gt 'AnalPR', '2'
	end
end

--- blowPR ---------------------------------