123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219 |
- # 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'
- '<center><img src="images/locations/shared/sex/<<$randpicture>><<picrand>>.jpg"></center>'
-
- ! 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
- '<center><img src="images/locations/shared/sex/cum<<picrand>>.jpg"></center>'
- 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 ---------------------------------
|