glife_t/locations/NormPR

# NormPR
if $ARGS[0] = '1':
	$metka = $ARGS[0]
	$loc = $CURLOC
	*clr
	cla
	set prosti = 0
	set minut += 15
	set sex += 1
	set protect = 1
	clr
	gs 'stat'
	set 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'
	end

	if 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
	*clr
	cla
	set prosti = 0
	set minut += 15
	set sex += 1
	clr
	gs 'stat'
	set prostRand = rand(0, 100)


	if prostRand > 0 and prostRand <= 50:
		set picpRand = rand(1, 7)
		set pose = 1
		'Becoming cancer, you feel hot prick seeking to get into the vagina.'
		gs 'orgazm', 'start'
	end

	if prostRand > 50 and prostRand <= 75:
		set picpRand = rand(8, 10)
		set pose = 1
		'Standing on all fours, you felt like a hole braced member.'
		gs 'orgazm', 'start'
	end

	if prostRand > 75 and prostRand <= 100:
		set pose = 0
		set picpRand = rand(11, 17)
		'You were ordered to undress and lie down on the hood of the car.'
		gs 'orgazm', 'start'
	end

	if picpRand = 1:'<center><img src="images/img/prost/sexcar3.jpg"></center>'
	if picpRand = 2:'<center><img src="images/img/prost/sexcar4.jpg"></center>'
	if picpRand = 3:'<center><img src="images/img/prost/sexcar5.jpg"></center>'
	if picpRand = 4:'<center><img src="images/img/prost/sexcar6.jpg"></center>'
	if picpRand = 5:'<center><img src="images/img/prost/sexcar7.jpg"></center>'
	if picpRand = 6:'<center><img src="images/img/prost/sexcar8.jpg"></center>'
	if picpRand = 7:'<center><img src="images/img/prost/sexcar9.jpg"></center>'
	if picpRand = 8:'<center><img src="images/img/prost/sexcar10.jpg"></center>'
	if picpRand = 9:'<center><img src="images/img/prost/sexcar11.jpg"></center>'
	if picpRand = 10:'<center><img src="images/img/prost/sexcar12.jpg"></center>'
	if picpRand = 11:'<center><img src="images/img/prost/sexcar13.jpg"></center>'
	if picpRand = 12:'<center><img src="images/img/prost/sexcar14.jpg"></center>'
	if picpRand = 13:'<center><img src="images/img/prost/sexcar15.jpg"></center>'
	if picpRand = 14:'<center><img src="images/img/prost/sexcar16.jpg"></center>'
	if picpRand = 15:'<center><img src="images/img/prost/sexcar17.jpg"></center>'
	if picpRand = 16:'<center><img src="images/img/prost/sexcar18.jpg"></center>'
	if picpRand = 17:'<center><img src="images/img/prost/sexcar19.jpg"></center>'

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

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