# NormPR
if $ARGS[0] = '1':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	clr
	*clr
	prosti = 0
	minut += 15
	sex += 1
	protect = 1
	gs 'stat'
	sexprostRand = rand(0, 1)

	if sexprostRand = 0:
		'<center><img src="images/img/prost/sexcar.jpg"></center>'
		'You obediently lay naked in the back seat until your dick hole logged.'
		gs 'orgazm', 'start'
	elseif sexprostRand = 1:
		'<center><img src="images/img/img/prost/sexcar2.jpg"></center>'
		'Standing on all fours, you felt like you were planting confident movement on the penis.'
		gs 'orgazm', 'start'
	end

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

if $ARGS[0] = '2':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	clr
	*clr
	prosti = 0
	minut += 15
	sex += 1
	gs 'stat'
	prostRand = rand(0, 100)

	if prostRand > 0 and prostRand <= 50:
		picpRand = rand(1, 7)
		pose = 1
		'Becoming cancer, you feel hot prick seeking to get into the vagina.'
		gs 'orgazm', 'start'
	elseif prostRand > 50 and prostRand <= 75:
		picpRand = rand(8, 10)
		pose = 1
		'Standing on all fours, you felt like a hole braced member.'
		gs 'orgazm', 'start'
	elseif prostRand > 75 and prostRand <= 100:
		pose = 0
		picpRand = rand(11, 17)
		'You were ordered to undress and lie down on the hood of the car.'
		gs 'orgazm', 'start'
	end

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

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

--- NormPR ---------------------------------
