1
0

paysex 4.8 KB

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