glife/locations/blowPR

# blowPR
if $ARGS[0] = 'start':
	$metka = $ARGS[0]
	$loc = $CURLOC

	cla
	clr
	*clr
	minut += 1
	guy += 1
	bj += 1
	throat += 1
	prosta += 1
	!son = son - 1
	if RAND(0,100) >= 70:dynamic $venerasiak
	gs'stat'

	'<center><img src="images/Prost/bj.jpg"></center>'
	'Your hand slips to the crotch of the man and unzips his pants. You thrust your hand into his pants and pull out his penis.'

	if prezik > 0:act 'Slide a condom on his penis with your mouth':sexcontra = 3 & gt'blowPR','1'
	if prezik = 0:act 'Take his penis in your mouth':gt'blowPR','2'
end

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

	cla
	clr
	*clr
	minut = minut + 5
	prezik = prezik - 1
	gs'stat'

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

	'You slide a condom over his penis with your lips.'

	if prosti = 0:
		'Your lips glide over the client`s trunk, until he ends up coming in the condom.'
		spafinloc = 12
		gs 'cum_manage'

		act 'Escape':gt $locSex, $metkaSex
	elseif prosti = 1:
		'The customer is warmed up enough and you can continue.'

		act 'Further':gt'NormPR','1'
	elseif prosti = 2:
		'The customer is warmed up enough and you can continue.'

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

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

	cla
	clr
	*clr
	dynamic $venerasiak
	minut = minut + 5
	gs'stat'

	'<center><img src="images/Prost/bjp'+RAND(8,13)+'.jpg"></center>'

	'You wrap your lips around his member.'

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

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

	*clr
	cla

	if prosti = 0:
		bjrand = RAND(1,100)
		if bjrand <= 50:
			spafinloc = 12
			gs 'cum_manage'
			fbreath = 0

			if bj <= 15:
				'<center><img src="images/Prost/bjm.jpg"></center>'
				'With clumsy movements you suck on the customer''s dick, sucking on the customer''s dick until he ends up coming in your mouth, causing you to wince from the unpleasant taste.'

				act 'Escape':gt $locSex, $metkaSex
			else
				'<center><img src="images/Prost/bjm2.jpg"></center>'
				'Your trained lips slide up and down, delivering the customer delight. Very soon you feel the taste of his seed in your mouth, and you swallow every drop with pleasure.'

				act 'Escape':gt $locSex, $metkaSex
			end
		elseif bjrand <= 80:
			spafinloc = 11
			gs 'cum_manage'
			if bj <= 15:
				mop = 0

				'<center><img src="images/Prost/bjf.jpg"></center>'
				'With clumsy movements you suck on the customer''s dick, suddenly he pulls out his penis, and ends on your face. You do not have time to blink, and a little sperm gets into your eyes. Despite the burning, You do not cry, only smile.'

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

				'<center><img src="images/Prost/bjf2.jpg"></center>'
				'Your trained lips slide up and down, delivering customer delight. Once the client slids out of your mouth, you get the idea, and before your face is flooded with sperm. You have time, to tilt your head back and close your eyes. Heavy drops fall on your chin, forcing to smile at the thought of not smearing your makeup.'

				act 'Escape':gt $locSex, $metkaSex
			end
		elseif bjrand <= 100:
			if bj <= 15:
				spafinloc = 7
				gs 'cum_manage'

				'<center><img src="images/Prost/bjt2.jpg"></center>'
				'With clumsy movements you suck on the customer''s dick, He stretches his hands to your chest tries to expose your breasts. You yell, implying that you do not agree. The Customer is dissatisfied but continues to have you in the mouth. You relax, as the client pulls his saliva drenched member out. You close your eyes and you feel drops of semen fall not on your face but your chest! Surprised you open your eyes, horrified to see your semen-stained clothes, and a smiling customer.'

				act 'Escape':gt $locSex, $metkaSex
			else
				money += 500

				'<center><img src="images/Prost/bjt.jpg"></center>'
				'Your trained lips slide up and down, delivering customer delight. He stretches his hands to your chest and impatiently tries to expose your breasts. You understand, and without words, Expose your tits. He becomes thoroughly hard in your mouth. when he''s on the brink, you step back sharply, and stroke his hard member. In an instant the client shoots his sperm carefully on your breasts. Satisfied, he hands you another Pjatihatki.'
				spafinloc = 15
				gs 'cum_manage'

				act 'Escape':gt $locSex, $metkaSex
			end
		end
	elseif prosti = 1:
		'The customer is warmed up enough and you can continue.'

		act 'Further':gt'NormPR','2'
	elseif prosti = 2:
		'The customer is warmed up enough and you can continue.'

		act 'Further':gt'AnalPR','2'
	end
end
--- blowPR ---------------------------------