paysex 6.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219
  1. # paysex
  2. ! Expects the guy names as array ($boy[0]='X', $boy[1]='Y',...)
  3. ! Since there is no way of knowing how big $boy is, before using the array use: dynamic '$clrboy'
  4. ! It does not need the array size
  5. ! Custom text can be entered for each kind of sex type, in $paysextext[0] = '', $paysextext[1] = '' format
  6. if ARGS[1] > 0:
  7. knwn = ARGS[1]
  8. :knownloop
  9. $knownboy[knwn] = 1
  10. knwn -= 1
  11. if knwn > 0: jump 'knownloop'
  12. end
  13. if $ARGS[0] = 'start':
  14. gang += 1
  15. pcs_sweat += 10
  16. picrand = rand(0, 1)
  17. gt 'paysex', 'var'
  18. end
  19. if $ARGS[0] = 'var':
  20. cla
  21. *clr
  22. minut += 5
  23. sexvar -= 1
  24. dynamic $stamina_npc
  25. pcs_horny += 10
  26. randpicture = rand(0, 2)
  27. if randpicture = 0:$randpicture = 'vag'
  28. if randpicture = 1:$randpicture = 'anal'
  29. if randpicture = 2:$randpicture = 'dp'
  30. '<center><img <<$set_imgh>> src="images/locations/shared/sex/<<$randpicture>><<picrand>>.jpg"></center>'
  31. ! Creating a random ordered array from $boy array
  32. COPYARR '$temp1','$boy'
  33. $boyP = $boy[0]
  34. x = 0
  35. :randomorder
  36. paysexrand = rand(ARRSIZE('$temp1')-1)
  37. $temp2[x] = $temp1[paysexrand]
  38. x += 1
  39. KILLVAR '$temp1',paysexrand
  40. if ARRSIZE('$temp1') > 0:jump 'randomorder'
  41. ! Describing the action of each participant. The order of events are fix, only the person doing it changes.
  42. j = 0
  43. i = ARRSIZE('$boy')
  44. :arrayloop
  45. gs 'boyStat', $temp2[j]
  46. if j = 0:
  47. if paysxsex = 0:stat['vaginal'] += 1 & paysxsex = 1
  48. if $paysextext[j] = '':
  49. '<<$boydesc>> fucks you in your pussy.'
  50. else
  51. '<<$paysextext[j]>>'
  52. end
  53. cumprecheck = 1
  54. if $knownboy[j] = 1:gs 'cum_call', '', $temp2[j], 1 else gs 'cum_call', '', $temp2[j]
  55. elseif j = 1:
  56. if paysxanal = 0:stat['anal'] += 1 & paysxanal = 1
  57. if $paysextext[j] = '':
  58. '<<$boydesc>> fucks you in your ass.'
  59. else
  60. '<<$paysextext[j]>>'
  61. end
  62. elseif j = 2:
  63. if paysxbj = 0:stat['bj'] += 1 & paysxbj = 1
  64. if $paysextext[j] = '':
  65. '<<$boydesc>> fucks you in your mouth.'
  66. else
  67. '<<$paysextext[j]>>'
  68. end
  69. elseif j = 3:
  70. if paysxhj = 0:stat['hj'] += 1 & paysxhj = 1
  71. if $paysextext[j] = '':
  72. '<<$boydesc>> uses one of your hands to masturbate.'
  73. else
  74. '<<$paysextext[j]>>'
  75. end
  76. elseif j = 4:
  77. if $paysextext[j] = '':
  78. '<<$boydesc>> uses one of your hands to masturbate.'
  79. else
  80. '<<$paysextext[j]>>'
  81. end
  82. elseif j > 4:
  83. if $paysextext[j] = '':
  84. '<<$boydesc>> masturbates above your body, waiting for his turn to your body.'
  85. else
  86. '<<$paysextext[j]>>'
  87. end
  88. end
  89. j += 1
  90. if j < i:jump 'arrayloop'
  91. $boy[0] = $boyP
  92. if pcs_horny >= 80:
  93. pcs_horny = 0
  94. orgasm += 1
  95. end
  96. gs 'stat'
  97. if sexvar > 1:
  98. act 'Continue':gt 'paysex', 'var'
  99. else
  100. act 'Finish':gt 'paysex', 'end'
  101. end
  102. end
  103. if $ARGS[0] = 'end':
  104. cla
  105. *clr
  106. sexvar -= 1
  107. dynamic $stamina_npc
  108. COPYARR '$temp1','$boy'
  109. pcs_horny += 10
  110. '<center><img <<$set_imgh>> src="images/locations/shared/sex/cum<<picrand>>.jpg"></center>'
  111. x = 0
  112. :randomend
  113. paysexrand = rand(ARRSIZE('$temp1')-1)
  114. $temp2[x] = $temp1[paysexrand]
  115. x += 1
  116. KILLVAR '$temp1',paysexrand
  117. if ARRSIZE('$temp1') > 0:jump 'randomend'
  118. j = 0
  119. i = ARRSIZE('$boy')
  120. :arrayloopend
  121. gs 'boyStat', $temp2[j]
  122. if j = 0:
  123. if rand(3) ! 0:
  124. '<<$boydesc>> is cumming in your pussy.'
  125. if $knownboy[j] = 1:gs 'cum_call', '', $temp2[j], 1 else gs 'cum_call', '', $temp2[j]
  126. else
  127. '<<$boydesc>> is cumming on your labia.'
  128. if $knownboy[j] = 1:gs 'cum_call', 'labia', $temp2[j], 1 else gs 'cum_call', 'labia', $temp2[j]
  129. end
  130. elseif j = 1:
  131. if rand(3) ! 0:
  132. '<<$boydesc>> is cumming in your ass.'
  133. if $knownboy[j] = 1:gs 'cum_call', 'anus', $temp2[j], 1 else gs 'cum_call', 'anus', $temp2[j]
  134. else
  135. '<<$boydesc>> is cumming on your ass.'
  136. if $knownboy[j] = 1:gs 'cum_call', 'butt', $temp2[j], 1 else gs 'cum_call', 'butt', $temp2[j]
  137. end
  138. elseif j = 2:
  139. if rand(3) ! 0:
  140. '<<$boydesc>> is cumming in your mouth.'
  141. if $knownboy[j] = 1:gs 'cum_call', 'mouth', $temp2[j], 1 else gs 'cum_call', 'mouth', $temp2[j]
  142. else
  143. '<<$boydesc>> is cumming on your face.'
  144. if $knownboy[j] = 1:gs 'cum_call', 'face', $temp2[j], 1 else gs 'cum_call', 'face', $temp2[j]
  145. end
  146. elseif j > 2:
  147. cumrand = rand(8)
  148. if cumrand = 0:
  149. '<<$boydesc>> is cumming on your tits.'
  150. if $knownboy[j] = 1:gs 'cum_call', 'breasts', $temp2[j], 1 else gs 'cum_call', 'breasts', $temp2[j]
  151. elseif cumrand = 1:
  152. '<<$boydesc>> is cumming on your belly.'
  153. if $knownboy[j] = 1:gs 'cum_call', 'stomach', $temp2[j], 1 else gs 'cum_call', 'stomach', $temp2[j]
  154. elseif cumrand = 2:
  155. '<<$boydesc>> is cumming on your hair.'
  156. if $knownboy[j] = 1:gs 'cum_call', 'hair', $temp2[j], 1 else gs 'cum_call', 'hair', $temp2[j]
  157. elseif cumrand = 3:
  158. '<<$boydesc>> is cumming on your face.'
  159. if $knownboy[j] = 1:gs 'cum_call', 'face', $temp2[j], 1 else gs 'cum_call', 'face', $temp2[j]
  160. elseif cumrand = 4:
  161. '<<$boydesc>> is cumming on your ass.'
  162. if $knownboy[j] = 1:gs 'cum_call', 'butt', $temp2[j], 1 else gs 'cum_call', 'butt', $temp2[j]
  163. elseif cumrand = 5:
  164. '<<$boydesc>> is cumming on your labia.'
  165. if $knownboy[j] = 1:gs 'cum_call', 'labia', $temp2[j], 1 else gs 'cum_call', 'labia', $temp2[j]
  166. elseif cumrand = 6:
  167. '<<$boydesc>> is cumming in your pussy.'
  168. if $knownboy[j] = 1:gs 'cum_call', '', $temp2[j], 1 else gs 'cum_call', '', $temp2[j]
  169. elseif cumrand = 7:
  170. '<<$boydesc>> is cumming in your ass.'
  171. if $knownboy[j] = 1:gs 'cum_call', 'anus', $temp2[j], 1 else gs 'cum_call', 'anus', $temp2[j]
  172. elseif cumrand = 8:
  173. '<<$boydesc>> is cumming in your mouth.'
  174. if $knownboy[j] = 1:gs 'cum_call', 'mouth', $temp2[j], 1 else gs 'cum_call', 'mouth', $temp2[j]
  175. end
  176. end
  177. j += 1
  178. if j < i: jump 'arrayloopend'
  179. if pcs_horny >= 80:
  180. pcs_horny = 0
  181. orgasm += 1
  182. end
  183. gs 'stat'
  184. killvar 'knownboy'
  185. killvar 'knwn'
  186. 'After all of the guys had their way with your body, you can finally catch your breath.'
  187. act 'Leave':
  188. paysxbj = 0
  189. paysxsex = 0
  190. paysxanal = 0
  191. paysxhj = 0
  192. dynamic $clrboy
  193. KILLVAR '$temp2'
  194. KILLVAR '$paysextext'
  195. firstact = 0
  196. if picrand = 16 or picrand = 17:
  197. gt 'office', 'work'
  198. elseif picrand = 18:
  199. gt 'husbSex', 'dolgend'
  200. else
  201. gt '<<$sexloc>>', 'start'
  202. end
  203. end
  204. end
  205. --- paysex ---------------------------------