glife/locations/blowPR

# blowPR

if $ARGS[0] = 'start':
	$metka = $ARGS[0]
	$loc = $CURLOC
    $location_type = 'event'

	cla
	clr
	*clr
	minut += 1
	guy += 1
	stat['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>'
	'You slide your hand onto his crotch, once you''re in his car. The man quickly drives to a quiet area, about two streets away. You can feel an impressive bulge when you reach into his pants, and compliment him on his nice cock when you liberate it. He''s nearly fully erect already, and if you look closely you can actually see the cock throbbing.'

	if prezik > 0:act 'Put on a condom, using your mouth':sexcontra = 3 & gt'blowPR','1'
	if prezik = 0:act 'Get him hard with your mouth':gt'blowPR','2'
end

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

	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 put a condom between your lips and slowly guide your mouth to his penis, gently rolling the condom down using only your lips. You can tell the guy is impressed with your skills.'

	if prosti = 0:
		'You proceed to give him a blowjob, licking and sucking his condom-clad penis. The taste of the rubber is a bit unpleasant, but you do a good job and in no time the guy groans loudly.'
		'When you feel his cock slowly softening between your lips, you pull your head back. The man ties a knot in the condom and tosses it away carelessly.'
		spafinloc = 12
		gs 'cum_manage'

		act 'Continue':gt $locSex, $metkaSex
	elseif prosti = 1:
		'After you give the man a blowjob for a while, he grunts that he''s ready to fuck you now.'

		act 'Continue':gt'NormPR','1'
	elseif prosti = 2:
		'After you give the man a blowjob for a while, he grunts that he''s ready to fuck your ass now.'

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

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

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

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

	'You close your lips around his member and flick your tongue over the tip of his cock teasingly. It stands at full erection in no time.'

	act 'Suck on his cock':gt'blowPR','12'
end

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

	*clr
	cla

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

			if stat['bj'] <= 15:
				'<center><img src="images/prost/bjm.jpg"></center>'
				'You don''t have much experience giving blowjobs, and even though you do your best, the man can tell you''re not very good at it.'
				'Your mouth makes him feel good nevertheless, and after a few minutes the man groans and cums in your mouth. You wince from the unpleasant taste of his sperm, earning you a doubtful look from him.'
				'You can tell he wished you were a bit more eager and skilled, but is still fairly satisfied with your performance.'

				act 'Continue':gt $locSex, $metkaSex
			else
				'<center><img src="images/prost/bjm2.jpg"></center>'
				'Your trained tongue slides up and down his shaft, and you pull out all of your tricks to make him feel good. You even use some techniques you learned to stall his orgasm for a moment, making it all the more intense for him when he shoots his load into your mouth.'
				'When you swallow his load obediently, the man smiles at you with a delighted look on his face. You really made him feel great!'

				act 'Continue':gt $locSex, $metkaSex
			end
		elseif bjrand <= 80:
			spafinloc = 11
			gs 'cum_manage'
			if stat['bj'] <= 15:

				'<center><img src="images/prost/bjf.jpg"></center>'
				'You don''t have much experience giving blowjobs, and even though you do your best, the man can tell you''re not very good at it.'
				'When the man cums, he suddenly pulls his cock out of your mouth and shoots his load all over your face. Not expecting this, you didn''t have time to close your eyes and some of it ends up in your eye... ouch!'
				if mop > 1:mop = 0 & 'The cum on your face makes a mess of your make-up, too.'
				'You try to remain professional enough to smile at him and ignore the pain, but the man can clearly tell you''re uncomfortable. He doesn''t seem to care.'

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

				'<center><img src="images/prost/bjf2.jpg"></center>'
				'Your trained tongue slides up and down his shaft, and you pull out all of your tricks to make him feel good. You even use some techniques you learned to stall his orgasm for a moment, making it all the more intense for him when he orgasms.'
				'You quickly release his cock from your mouth and tilt your head backwards with your eyes closed, making him squirt his load onto your chin with a fake smile on your face.'
				if mop > 1: 'Even though the man thinks you''re delighted with him cumming all over you, in truth you''re mostly focusing on not smearing your make-up!'
				'The man grins happily when he looks at his work of art, and gives you the money he owed you. You made his day!'

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

				'<center><img src="images/prost/bjt2.jpg"></center>'
				'You don''t have much experience giving blowjobs, and even though you do your best, the man can tell you''re not very good at it.'
				'While you''re sucking him off, the man tries to pull your clothes aside to expose your breasts. You moan uncomfortably with his cock still in your mouth, letting him know that was not part of the deal!'
				'He''s clearly displeased, but lets go and refocuses his efforts on fucking your throat.'
				'When he''s close to cumming, he pulls his cock out of your mouth. When he begins to jerks off furiously, you close your eyes and tilt your head back... except you don''t feel anything land on your face!'
				'You open your eyes again after a few seconds and notice in horror that he dumped his load onto your clothes, leaving stains everywhere! You silently curse him but force yourself to smile... he is still your customer, after all.'

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

				'<center><img src="images/prost/bjt.jpg"></center>'
				'Your trained tongue slides up and down his shaft, and you pull out all of your tricks to make him feel good. You even use some techniques you learned to stall his orgasm for a while.'
				'While you''re sucking him off, the man tries to pull your clothes aside to expose your breasts. Understanding what he wants, you expose your boobs readily. His cock erupts almost immediately at the sight of them, and he removes his cock from your mouth so he can spray his sperm over your tits.'
				'The man grins happily when he looks at his work of art across your boobs, and gives you an extra 500 <b>₽</b> as a tip. You really made his day!'
				spafinloc = 15
				gs 'cum_manage'

				act 'Continue':gt $locSex, $metkaSex
			end
		end
	elseif prosti = 1:
		'After you suck him off for a while, the guy reminds you that that''s not why you''re here. He''s ready to fuck you now.'

		act 'Further':gt'NormPR','2'
	elseif prosti = 2:
		'After you suck him off for a while, the guy reminds you that that''s not why you''re here. He''s ready to fuck your ass now.'

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

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