# paysex
! Expects the guy names as array ($boy[0]='X', $boy[1]='Y',...)
! Since there is no way of knowing how big $boy is, before using the array use: dynamic '$clrboy'
! It does not need the array size
! Custom text can be entered for each kind of sex type, in $paysextext[0] = '', $paysextext[1] = '' format
if ARGS[1] > 0:
knwn = ARGS[1]
:knownloop
$knownboy[knwn] = 1
knwn -= 1
if knwn > 0: jump 'knownloop'
end
if $ARGS[0] = 'start':
gang += 1
pcs_sweat += 10
picrand = rand(0, 1)
gt 'paysex', 'var'
end
if $ARGS[0] = 'var':
cla
*clr
minut += 5
sexvar -= 1
dynamic $stamina_npc
pcs_horny += 10
randpicture = rand(0, 2)
if randpicture = 0:$randpicture = 'vag'
if randpicture = 1:$randpicture = 'anal'
if randpicture = 2:$randpicture = 'dp'
'
'
! Creating a random ordered array from $boy array
COPYARR '$temp1','$boy'
$boyP = $boy[0]
x = 0
:randomorder
paysexrand = rand(ARRSIZE('$temp1')-1)
$temp2[x] = $temp1[paysexrand]
x += 1
KILLVAR '$temp1',paysexrand
if ARRSIZE('$temp1') > 0:jump 'randomorder'
! Describing the action of each participant. The order of events are fix, only the person doing it changes.
j = 0
i = ARRSIZE('$boy')
:arrayloop
gs 'boyStat', $temp2[j]
if j = 0:
if paysxsex = 0:stat['vaginal'] += 1 & paysxsex = 1
if $paysextext[j] = '':
'<<$boydesc>> fucks you in your pussy.'
else
'<<$paysextext[j]>>'
end
cumprecheck = 1
if $knownboy[j] = 1:gs 'cum_call', '', $temp2[j], 1 else gs 'cum_call', '', $temp2[j]
elseif j = 1:
if paysxanal = 0:stat['anal'] += 1 & paysxanal = 1
if $paysextext[j] = '':
'<<$boydesc>> fucks you in your ass.'
else
'<<$paysextext[j]>>'
end
elseif j = 2:
if paysxbj = 0:stat['bj'] += 1 & paysxbj = 1
if $paysextext[j] = '':
'<<$boydesc>> fucks you in your mouth.'
else
'<<$paysextext[j]>>'
end
elseif j = 3:
if paysxhj = 0:stat['hj'] += 1 & paysxhj = 1
if $paysextext[j] = '':
'<<$boydesc>> uses one of your hands to masturbate.'
else
'<<$paysextext[j]>>'
end
elseif j = 4:
if $paysextext[j] = '':
'<<$boydesc>> uses one of your hands to masturbate.'
else
'<<$paysextext[j]>>'
end
elseif j > 4:
if $paysextext[j] = '':
'<<$boydesc>> masturbates above your body, waiting for his turn to your body.'
else
'<<$paysextext[j]>>'
end
end
j += 1
if j < i:jump 'arrayloop'
$boy[0] = $boyP
if pcs_horny >= 80:
pcs_horny = 0
orgasm += 1
end
gs 'stat'
if sexvar > 1:
act 'Continue':gt 'paysex', 'var'
else
act 'Finish':gt 'paysex', 'end'
end
end
if $ARGS[0] = 'end':
cla
*clr
sexvar -= 1
dynamic $stamina_npc
COPYARR '$temp1','$boy'
pcs_horny += 10
''
x = 0
:randomend
paysexrand = rand(ARRSIZE('$temp1')-1)
$temp2[x] = $temp1[paysexrand]
x += 1
KILLVAR '$temp1',paysexrand
if ARRSIZE('$temp1') > 0:jump 'randomend'
j = 0
i = ARRSIZE('$boy')
:arrayloopend
gs 'boyStat', $temp2[j]
if j = 0:
if rand(3) ! 0:
'<<$boydesc>> is cumming in your pussy.'
if $knownboy[j] = 1:gs 'cum_call', '', $temp2[j], 1 else gs 'cum_call', '', $temp2[j]
else
'<<$boydesc>> is cumming on your labia.'
if $knownboy[j] = 1:gs 'cum_call', 'labia', $temp2[j], 1 else gs 'cum_call', 'labia', $temp2[j]
end
elseif j = 1:
if rand(3) ! 0:
'<<$boydesc>> is cumming in your ass.'
if $knownboy[j] = 1:gs 'cum_call', 'anus', $temp2[j], 1 else gs 'cum_call', 'anus', $temp2[j]
else
'<<$boydesc>> is cumming on your ass.'
if $knownboy[j] = 1:gs 'cum_call', 'butt', $temp2[j], 1 else gs 'cum_call', 'butt', $temp2[j]
end
elseif j = 2:
if rand(3) ! 0:
'<<$boydesc>> is cumming in your mouth.'
if $knownboy[j] = 1:gs 'cum_call', 'mouth', $temp2[j], 1 else gs 'cum_call', 'mouth', $temp2[j]
else
'<<$boydesc>> is cumming on your face.'
if $knownboy[j] = 1:gs 'cum_call', 'face', $temp2[j], 1 else gs 'cum_call', 'face', $temp2[j]
end
elseif j > 2:
cumrand = rand(8)
if cumrand = 0:
'<<$boydesc>> is cumming on your tits.'
if $knownboy[j] = 1:gs 'cum_call', 'breasts', $temp2[j], 1 else gs 'cum_call', 'breasts', $temp2[j]
elseif cumrand = 1:
'<<$boydesc>> is cumming on your belly.'
if $knownboy[j] = 1:gs 'cum_call', 'stomach', $temp2[j], 1 else gs 'cum_call', 'stomach', $temp2[j]
elseif cumrand = 2:
'<<$boydesc>> is cumming on your hair.'
if $knownboy[j] = 1:gs 'cum_call', 'hair', $temp2[j], 1 else gs 'cum_call', 'hair', $temp2[j]
elseif cumrand = 3:
'<<$boydesc>> is cumming on your face.'
if $knownboy[j] = 1:gs 'cum_call', 'face', $temp2[j], 1 else gs 'cum_call', 'face', $temp2[j]
elseif cumrand = 4:
'<<$boydesc>> is cumming on your ass.'
if $knownboy[j] = 1:gs 'cum_call', 'butt', $temp2[j], 1 else gs 'cum_call', 'butt', $temp2[j]
elseif cumrand = 5:
'<<$boydesc>> is cumming on your labia.'
if $knownboy[j] = 1:gs 'cum_call', 'labia', $temp2[j], 1 else gs 'cum_call', 'labia', $temp2[j]
elseif cumrand = 6:
'<<$boydesc>> is cumming in your pussy.'
if $knownboy[j] = 1:gs 'cum_call', '', $temp2[j], 1 else gs 'cum_call', '', $temp2[j]
elseif cumrand = 7:
'<<$boydesc>> is cumming in your ass.'
if $knownboy[j] = 1:gs 'cum_call', 'anus', $temp2[j], 1 else gs 'cum_call', 'anus', $temp2[j]
elseif cumrand = 8:
'<<$boydesc>> is cumming in your mouth.'
if $knownboy[j] = 1:gs 'cum_call', 'mouth', $temp2[j], 1 else gs 'cum_call', 'mouth', $temp2[j]
end
end
j += 1
if j < i: jump 'arrayloopend'
if pcs_horny >= 80:
pcs_horny = 0
orgasm += 1
end
gs 'stat'
killvar 'knownboy'
killvar 'knwn'
'After all of the guys had their way with your body, you can finally catch your breath.'
act 'Leave':
paysxbj = 0
paysxsex = 0
paysxanal = 0
paysxhj = 0
dynamic $clrboy
KILLVAR '$temp2'
KILLVAR '$paysextext'
firstact = 0
if picrand = 16 or picrand = 17:
gt 'office', 'work'
elseif picrand = 18:
gt 'husbSex', 'dolgend'
else
gt '<<$sexloc>>', 'start'
end
end
end
--- paysex ---------------------------------