glife/locations/NormPR

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

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

	if RAND(0,1) = 0:
		'<center><img src="images/Prost/sexcar.jpg"></center>'
		'You dutifully lay naked in the back seat, as he climbs back and enters into your hole with his member.'

		gs'orgazm','start'
	else
		'<center><img src="images/Prost/sexcar2.jpg"></center>'
		'Standing on all fours, you feel waves of pleasure as he thrusts his penis inside with confidence.'
		gs'orgazm','start'
	end

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

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

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

	prostRand = RAND(1,100)
	if prostRand <= 50:
		picpRand = RAND(3,9)
		pose = 1

		'Becoming aroused, you feel his hot prick entering into your vagina.'

		gs'orgazm','start'
	elseif prostRand <= 75:
		picpRand = RAND(10,12)
		pose = 1

		'Standing on all fours, you feel waves of pleasure as he buries his dick deep inside you.'

		gs'orgazm','start'
	else
		pose = 0
		picpRand = RAND(13,19)

		'he orders you to undress and lie down on the hood of the car.'

		gs'orgazm','start'
	end

	'<center><img src="images/Prost/sexcar<<picpRand>>.jpg"></center>'

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