paysex.qsrc 6.2 KB

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