# 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:
'
'
'You obediently lay naked in the back seat until your dick hole logged.'
gs 'orgazm', 'start'
end
if sexprostRand = 1:
'
'
'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:'
'
if picpRand = 2:'
'
if picpRand = 3:'
'
if picpRand = 4:'
'
if picpRand = 5:'
'
if picpRand = 6:'
'
if picpRand = 7:'
'
if picpRand = 8:'
'
if picpRand = 9:'
'
if picpRand = 10:'
'
if picpRand = 11:'
'
if picpRand = 12:'
'
if picpRand = 13:'
'
if picpRand = 14:'
'
if picpRand = 15:'
'
if picpRand = 16:'
'
if picpRand = 17:'
'
act 'Leave.':gt $locSex, $metkaSex
end
--- NormPR ---------------------------------