podrsex 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256
  1. # podrsex
  2. if $ARGS[0] = 'start':
  3. pcs_sweat += 10
  4. girl += 1
  5. guy += 1
  6. lesbian += 1
  7. picrand = rand(0, 1)
  8. xgt 'podrsex', 'var'
  9. end
  10. if $ARGS[0] = 'var':
  11. cla
  12. randhorny = rand(50,100)
  13. gs 'stat'
  14. if sub <= 0:
  15. if sexvar ! 1:
  16. act 'Suck his dick':gt 'podrsex', 'suck'
  17. act 'Let him fuck your pussy':gt 'podrsex', 'pussy'
  18. act 'Let him fuck your ass':gt 'podrsex', 'ass'
  19. act 'Watch him fuck the other girl':gt 'podrsex', 'voy'
  20. else
  21. act 'Suck him off':gt 'podrsex', 'suck'
  22. act 'Ask him to cum in your pussy':gt 'podrsex', 'pussy'
  23. act 'Ask him to cum in your ass':gt 'podrsex', 'ass'
  24. if pcs_dom > 10:act 'Make him cum in the other girl':gt 'podrsex', 'voy'
  25. end
  26. else
  27. podrand = rand(0,3)
  28. if podrand = 0:
  29. xgt 'podrsex', 'suck'
  30. elseif podrand = 1:
  31. xgt 'podrsex', 'pussy'
  32. elseif podrand = 2:
  33. xgt 'podrsex', 'ass'
  34. else
  35. xgt 'podrsex', 'voy'
  36. end
  37. end
  38. end
  39. if $ARGS[0] = 'suck':
  40. *clr
  41. sexvar -= 1
  42. if sexvar < 0: sexstart = 0
  43. gs 'dinsex2', 'stamina_npc'
  44. pos = 1
  45. if pdsxbj = 0:
  46. stat['bj'] += 1
  47. pdsxbj = 1
  48. end
  49. '<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/minet<<picrand>>.jpg"></center>'
  50. 'You look the other girl deep in the eyes while the two of you suck the man''s cock, touching her tongue with yours when you reach it around his shaft. Then the two of you take turns sucking him off enthusiastically, while the other licks his balls.'
  51. gs 'arousal', 'bj', 10, 'sub', 'group'
  52. gs 'stat'
  53. if pcs_horny >= (randhorny - pcs_exhibition):
  54. 'You feel so horny in this situation, you''re very close to having a spontaneous orgasm with the guy''s cock still in your mouth. The other girl notices and gives you a sweet wink while she takes over, giving you some time to rub your clit furiously.'
  55. $orgasm_or = 'yes'
  56. gs 'arousal', 'masturbate', 5
  57. gs 'stat'
  58. end
  59. if sexvar = 1:'<br>The man groans that he will cum soon.'
  60. if sexvar > 0:xgt 'podrsex', 'var'
  61. if sexvar = 0:
  62. *clr
  63. '<br><center><img <<$set_imgh>> src="images/locations/shared/sex/pod/cum<<picrand>>.jpg"></center>'
  64. spafinloc = 12
  65. gs 'cum_manage'
  66. gs 'podrsex', 'end'
  67. end
  68. end
  69. if $ARGS[0] = 'pussy':
  70. *clr
  71. sexvar -= 1
  72. if sexvar < 0: sexstart = 0
  73. gs 'dinsex2', 'stamina_npc'
  74. pos = 2
  75. cumprecheck = 1
  76. gs 'cum_manage'
  77. if pdsxsex = 0:
  78. stat['vaginal'] += 1
  79. pdsxsex = 1
  80. end
  81. '<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/uvag<<picrand>>.jpg"></center>'
  82. 'The man eagerly penetrates your pussy, and begins to thrust his length inside you over and over bringing you pleasure.'
  83. gs 'arousal', 'vaginal', 10, 'sub', 'group'
  84. gs 'stat'
  85. if pcs_horny >= (randhorny - pcs_exhibition):
  86. 'You feel so horny in this situation, you''re very close to having a spontaneous orgasm. You close your eyes and surrender yourself to the moment, reaching an explosive orgasm without ever touching yourself.'
  87. $orgasm_or = 'yes'
  88. gs 'stat'
  89. end
  90. if sexvar = 1:'<br>The man groans that he will cum soon.'
  91. if sexvar > 0:xgt 'podrsex', 'var'
  92. if sexvar = 0:
  93. gs 'cum_manage'
  94. gs 'podrsex', 'end'
  95. end
  96. end
  97. if $ARGS[0] = 'ass':
  98. *clr
  99. sexvar -= 1
  100. if sexvar < 0: sexstart = 0
  101. gs 'dinsex2', 'stamina_npc'
  102. pos = 3
  103. if pdsxanal = 0:
  104. stat['anal'] += 1
  105. pdsxanal = 1
  106. end
  107. '<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/uanal<<picrand>>.jpg"></center>'
  108. 'The man slowly works the tip of his cock inside your ass, and halts for a moment so you can get used to the sensation. Then he begins to thrust his length inside you, fucking you more and more intensely with less regard for your feelings and more for his own pleasure.'
  109. gs 'arousal', 'anal', 10, 'sub', 'group'
  110. gs 'stat'
  111. if pcs_horny >= (randhorny - pcs_exhibition):
  112. 'You feel so horny in this situation, you''re very close to having a spontaneous orgasm. You close your eyes and surrender yourself to the moment, reaching an explosive orgasm without ever touching yourself.'
  113. $orgasm_or = 'yes'
  114. gs 'stat'
  115. end
  116. if sexvar = 1:'<br>The man groans that he will cum soon.'
  117. if sexvar > 0:xgt 'podrsex', 'var'
  118. if sexvar = 0:
  119. spafinloc = 3
  120. gs 'cum_manage'
  121. gs 'podrsex', 'end'
  122. end
  123. end
  124. if $ARGS[0] = 'voy':
  125. *clr
  126. sexvar -= 1
  127. if sexvar < 0: sexstart = 0
  128. gs 'dinsex2', 'stamina_npc'
  129. if pcs_horny >= (randhorny - pcs_exhibition):
  130. $orgasm_or = 'custom'
  131. $orgasm_txt = 'You have an orgasm.'
  132. gs 'stat'
  133. end
  134. if rand(0,1) = 0:
  135. pos = 4
  136. '<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/vag<<picrand>>.jpg"></center>'
  137. 'While the other girl is enjoying getting her pussy fucked, you find that she''ll do whatever you want her to do. She eagerly licks your pussy when you put it on her mouth, and lap up her sweet juices while the guy rams his cock inside her repeatedly.'
  138. gs 'arousal', 'cuni', 10, 'lesbian', 'dom', 'group'
  139. gs 'stat'
  140. else
  141. pos = 5
  142. '<center><img <<$set_imgh>> src="images/locations/shared/sex/pod/anal<<picrand>>.jpg"></center>'
  143. 'While the other girl is enjoying getting her ass fucked, you find that she''ll do whatever you want her to do. She eagerly licks your pussy when you put it on her mouth, and lap up her sweet juices while the guy rams his cock inside her repeatedly.'
  144. gs 'arousal', 'cuni', 10, 'lesbian', 'dom', 'group'
  145. gs 'stat'
  146. end
  147. if sexvar = 1:'<br>The man groans that he will cum soon.'
  148. if sexvar > 0:xgt 'podrsex', 'var'
  149. if sexvar = 0:
  150. spafinloc = 12
  151. gs 'cum_manage'
  152. gs 'podrsex', 'end'
  153. end
  154. end
  155. if $ARGS[0] = 'end':
  156. cla
  157. pdsxbj = 0
  158. pdsxsex = 0
  159. pdsxanal = 0
  160. sexstart = 0
  161. if pos = 1:
  162. 'The man''s cock erupts, shooting his load over your face and the other girl. The two of you giggle and lick his cock clean, kissing each other in the process.'
  163. gs 'arousal', 'kiss', 5, 'lesbian'
  164. gs 'arousal', 'end'
  165. gs 'stat'
  166. elseif pos = 2:
  167. 'The man groans, pumping his seed deep inside your pussy.'
  168. tmp = func 'pregriskeval'
  169. if tmp = 0:
  170. '<br>"Oh, shit!" you think, when you feel his cock pumping his load deep inside you. Hopefully you won''t end up pregnant...'
  171. gs 'arousal', 'end'
  172. gs 'stat'
  173. elseif tmp > 0:
  174. '<br>You push against him when you feel his cock pumping his load deep inside you. Maybe you''ll end up pregnant...'
  175. gs 'arousal', 'end'
  176. gs 'stat'
  177. end
  178. elseif pos = 3:
  179. spafinloc = 3
  180. 'The man groans, pumping his seed deep inside your ass.'
  181. gs 'arousal', 'end'
  182. gs 'stat'
  183. elseif pos = 4:
  184. 'He groans, pumping her pussy full of cum.'
  185. tmp = func 'pregriskeval'
  186. if tmp > 0:
  187. '<br>It''s exciting to watch another woman being pumped full of sperm. Maybe''ll she end up pregnant with his bastard son... '
  188. gs 'arousal', 'end'
  189. gs 'stat'
  190. else
  191. '<br>It''s hot to see another woman being pumped full of cum, but You just hope she''s on the pill right now...'
  192. gs 'arousal', 'end'
  193. gs 'stat'
  194. end
  195. elseif pos = 5:
  196. 'He groans, pumping her ass full of cum.'
  197. gs 'arousal', 'end'
  198. gs 'stat'
  199. end
  200. pos = 0
  201. gs 'stat'
  202. act 'Leave':
  203. if picrand = 26 or picrand = 27 or picrand = 29:gt 'office', 'work'
  204. if picrand >= 30 and picrand <= 32:gt 'down'
  205. if picrand = 19:gt 'tanhousezal'
  206. if kazsexdva = 1:
  207. kazsexdva = 0
  208. gt 'kazinosvid', '3'
  209. end
  210. gt $sexloc, 'start'
  211. end
  212. end
  213. --- podrsex ---------------------------------