sexdvoe 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402
  1. # sexdvoe
  2. if ARGS[1] > 0:
  3. knwn = ARGS[1]
  4. :knownloop
  5. $knownboy[knwn] = 1
  6. knwn -= 1
  7. if knwn > 0: jump 'knownloop'
  8. end
  9. if $ARGS[0] = 'start':
  10. guy += 2
  11. picrand = rand(0, 1)
  12. xgt 'sexdvoe', 'var'
  13. end
  14. if $ARGS[0] = 'menu':
  15. cla
  16. gs 'stat'
  17. if SexTypeCheck = 0 and picrand > 1:
  18. SexTypeCheck = 1
  19. if picrand = 12:DoubleBan = 1
  20. if picrand = 40:BlowBan = 1 & DoubleBan = 1
  21. end
  22. if pcs_dom > 0:
  23. if BlowBan = 0:act 'Blow them':sexdvoeloc = 0 & gt 'sexdvoe', 'sex'
  24. if sameboy = 1:
  25. if DoubleBan = 0:act 'Double penetration':sexdvoeloc = rand(1,2) & gt 'sexdvoe', 'sex'
  26. if SpitVagBan = 0:act 'Spit roast (pussy)':sexdvoeloc = rand(3,4) & gt 'sexdvoe', 'sex'
  27. if SpitAssBan = 0:act 'Spit roast (ass)':sexdvoeloc = rand(5,6) & gt 'sexdvoe', 'sex'
  28. else
  29. if DoubleBan = 0:act 'DP (<<$boytemp>> in pussy)':sexdvoeloc = 1 & gt 'sexdvoe', 'sex'
  30. if DoubleBan = 0:act 'DP (<<$boytemp1>> in pussy)':sexdvoeloc = 2 & gt 'sexdvoe', 'sex'
  31. if SpitVagBan = 0:act 'Spit roast (<<$boytemp>> in pussy)':sexdvoeloc = 3 & gt 'sexdvoe', 'sex'
  32. if SpitVagBan = 0:act 'Spit roast (<<$boytemp1>> in pussy)':sexdvoeloc = 4 & gt 'sexdvoe', 'sex'
  33. if SpitAssBan = 0:act 'Spit roast (<<$boytemp>> in ass)':sexdvoeloc = 5 & gt 'sexdvoe', 'sex'
  34. if SpitAssBan = 0:act 'Spit roast (<<$boytemp1>> in ass)':sexdvoeloc = 6 & gt 'sexdvoe', 'sex'
  35. end
  36. else
  37. act 'Continue':
  38. if BlowBan = 1 and DoubleBan ! 1:
  39. sexdvoe = rand(1,3)
  40. elseif BlowBan = 1 and DoubleBan = 1:
  41. sexdvoe = rand(2,3)
  42. else
  43. sexdvoe = rand(0,3)
  44. end
  45. if sexdvoe = 0:
  46. sexdvoeloc = 0 & gt 'sexdvoe', 'sex'
  47. elseif sexdvoe = 1:
  48. sexdvoeloc = rand(3,4) & gt 'sexdvoe', 'sex'
  49. elseif sexdvoe = 2:
  50. sexdvoeloc = rand(5,6) & gt 'sexdvoe', 'sex'
  51. else
  52. sexdvoeloc = rand(1,2) & gt 'sexdvoe', 'sex'
  53. end
  54. end
  55. end
  56. end
  57. if $ARGS[0] = 'var':
  58. *clr
  59. if $boy[0] = $boy[1]:sameboy = 1
  60. sexstart = 1
  61. sexvar = rand(3,6)
  62. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/kiss.jpg"></center>'
  63. 'After some kissing it is time to move on to the next stage.'
  64. xgt 'sexdvoe', 'menu'
  65. end
  66. if $ARGS[0] = 'sex':
  67. !blowjob
  68. if sexdvoeloc = 0:
  69. *clr
  70. sexvar -= 1
  71. dynamic $stamina_npc
  72. if dvsxbj = 0:
  73. dvsxbj = 1
  74. end
  75. if sexvar > 0:
  76. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/minet<<picrand>>.jpg"></center>'
  77. else
  78. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/cum<<picrand>>.jpg"></center>'
  79. end
  80. 'You try to suck both of their cocks, but they really do not fit inside your mouth at the same time.'
  81. gs 'arousal', 'bj', 10
  82. gs 'stat'
  83. if pcs_horny >= 80:
  84. $orgasm_or = 'custom'
  85. $orgasm_txt = 'You have an orgasm.'
  86. end
  87. if sexvar = 1:'<br>They indicate that they will cum soon.'
  88. if sexvar > 0:xgt 'sexdvoe', 'menu'
  89. if sexvar = 0:gs 'sexdvoe', 'end'
  90. !double penetration
  91. elseif sexdvoeloc < 3:
  92. *clr
  93. sexvar -= 1
  94. dynamic $stamina_npc
  95. if dvsxsex = 0:
  96. dvsxsex = 1
  97. end
  98. if dvsxanal = 0:
  99. dvsxanal = 1
  100. end
  101. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/dp<<picrand>>.jpg"></center>'
  102. if sameboy = 1:
  103. 'Both of them fuck you, one of them your ass, the other your pussy. The double friction gives you great pleasure as they are pumping in and out of your body in tandem.'
  104. gs 'arousal', 'vaginal', 10, 'sub'
  105. gs 'arousal', 'anal', 10, 'sub'
  106. minut -= 10
  107. gs 'stat'
  108. cumprecheck = 1
  109. gs 'cum_call', '', $boy
  110. elseif sexdvoeloc = 1:
  111. 'Both of them fuck you, <<$boydesc[1]>> in your ass, <<$boydesc[0]>> in your pussy. The double friction gives you great pleasure as they are pumping in and out of your body in tandem.'
  112. gs 'arousal', 'vaginal', 10, 'sub'
  113. gs 'arousal', 'anal', 10, 'sub'
  114. minut -= 10
  115. gs 'stat'
  116. cumprecheck = 1
  117. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  118. else
  119. 'Both of them fuck you, <<$boydesc[0]>> in your ass, <<$boydesc[1]>> in your pussy. The double friction gives you great pleasure as they are pumping in and out of your body in tandem.'
  120. gs 'arousal', 'vaginal', 10, 'sub'
  121. gs 'arousal', 'anal', 10, 'sub'
  122. minut -= 10
  123. gs 'stat'
  124. cumprecheck = 1
  125. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  126. end
  127. if pcs_horny >= 80:
  128. $orgasm_or = 'custom'
  129. $orgasm_txt = 'You have an orgasm.'
  130. end
  131. if sexvar = 1:'<br>They indicate that they will cum soon.'
  132. if sexvar > 0:xgt 'sexdvoe', 'menu'
  133. if sexvar = 0:gs 'sexdvoe', 'end'
  134. !spitroast, pussy
  135. elseif sexdvoeloc < 5:
  136. *clr
  137. sexvar -= 1
  138. dynamic $stamina_npc
  139. if dvsxbj = 0:
  140. dvsxbj = 1
  141. end
  142. if dvsxsex = 0:
  143. dvsxsex = 1
  144. end
  145. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/vag<<picrand>>.jpg"></center>'
  146. if sameboy = 1:
  147. 'While one guy is fucking your pussy, you diligently suck off the second.'
  148. gs 'arousal', 'vaginal', 10, 'sub'
  149. gs 'arousal', 'bj', 10, 'sub'
  150. minut -= 10
  151. gs 'stat'
  152. cumprecheck = 1
  153. gs 'cum_call', '', $boy[0]
  154. elseif sexdvoeloc = 3:
  155. 'While <<$boydesc[0]>> is fucking your pussy, you diligently suck off <<$boydesc[1]>>.'
  156. gs 'arousal', 'vaginal', 10, 'sub'
  157. gs 'arousal', 'bj', 10, 'sub'
  158. minut -= 10
  159. gs 'stat'
  160. cumprecheck = 1
  161. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  162. else
  163. 'While <<$boydesc[1]>> is fucking your pussy, you diligently suck off <<$boydesc[0]>>.'
  164. gs 'arousal', 'vaginal', 10, 'sub'
  165. gs 'arousal', 'bj', 10, 'sub'
  166. minut -= 10
  167. gs 'stat'
  168. cumprecheck = 1
  169. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  170. end
  171. if pcs_horny >= 80:
  172. $orgasm_or = 'custom'
  173. $orgasm_txt = 'You have an orgasm.'
  174. end
  175. if sexvar = 1:'<br>They indicate that they will cum soon.'
  176. if sexvar > 0:xgt 'sexdvoe', 'menu'
  177. if sexvar = 0:gs 'sexdvoe', 'end'
  178. !spitroast, ass
  179. else
  180. *clr
  181. sexvar -= 1
  182. dynamic $stamina_npc
  183. if dvsxbj = 0:
  184. dvsxbj = 1
  185. end
  186. if dvsxanal = 0:
  187. dvsxanal = 1
  188. end
  189. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/anal<<picrand>>.jpg"></center>'
  190. if sameboy = 1:
  191. 'While one guy is fucking your ass, you diligently suck off the second.'
  192. gs 'arousal', 'anal', 10, 'sub'
  193. gs 'arousal', 'bj', 10, 'sub'
  194. minut -= 10
  195. gs 'stat'
  196. elseif sexdvoeloc = 3:
  197. 'While <<$boydesc[0]>> is fucking your ass, you diligently suck off <<$boydesc[1]>>.'
  198. gs 'arousal', 'anal', 10, 'sub'
  199. gs 'arousal', 'bj', 10, 'sub'
  200. minut -= 10
  201. gs 'stat'
  202. else
  203. 'While <<$boydesc[1]>> is fucking your ass, you diligently suck off <<$boydesc[0]>>.'
  204. gs 'arousal', 'anal', 10, 'sub'
  205. gs 'arousal', 'bj', 10, 'sub'
  206. minut -= 10
  207. gs 'stat'
  208. end
  209. if pcs_horny >= 80:
  210. $orgasm_or = 'custom'
  211. $orgasm_txt = 'You have an orgasm.'
  212. end
  213. if sexvar = 1:'<br>They indicate that they will cum soon.'
  214. if sexvar > 0:xgt 'sexdvoe', 'menu'
  215. if sexvar = 0:gs 'sexdvoe', 'end'
  216. end
  217. end
  218. if $ARGS[0] = 'end':
  219. cla
  220. pcs_sweat += 10
  221. minut += 10
  222. dvsxbj = 0
  223. dvsxsex = 0
  224. dvsxanal = 0
  225. sexvar = 0
  226. sameboy = 0
  227. sexstart = 0
  228. if sexdvoeloc = 0:
  229. temp = rand(0,5)
  230. if temp = 0:
  231. if $knownboy[0] = 1:gs 'cum_call', 'hair', $boy[0], 1 else gs 'cum_call', 'hair', $boy[0]
  232. elseif temp < 3:
  233. if $knownboy[0] = 1:gs 'cum_call', 'face', $boy[0], 1 else gs 'cum_call', 'face', $boy[0]
  234. else
  235. if $knownboy[0] = 1:gs 'cum_call', 'mouth', $boy[0], 1 else gs 'cum_call', 'mouth', $boy[0]
  236. end
  237. temp = rand(0,5)
  238. if temp = 0:
  239. if $knownboy[1] = 1:gs 'cum_call', 'hair', $boy[1], 1 else gs 'cum_call', 'hair', $boy[1]
  240. elseif temp < 3:
  241. if $knownboy[1] = 1:gs 'cum_call', 'face', $boy[1], 1 else gs 'cum_call', 'face', $boy[1]
  242. else
  243. if $knownboy[1] = 1:gs 'cum_call', 'mouth', $boy[1], 1 else gs 'cum_call', 'mouth', $boy[1]
  244. end
  245. 'With a groan they both cum, mostly in your mouth, but it may have gotten on your face too.'
  246. gs 'arousal', 'end'
  247. gs 'stat'
  248. elseif sexdvoeloc = 1:
  249. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  250. if $knownboy[1] = 1:gs 'cum_call', 'anus', $boy[1], 1 else gs 'cum_call', 'anus', $boy[1]
  251. if sameboy = 1:
  252. 'They groan, and you feel the copious amount of their seed they both pump inside your body at the same time.'
  253. gs 'arousal', 'end'
  254. gs 'stat'
  255. else
  256. 'They both groan, and you feel as <<$boydesc[0]>> pump your pussy full of his seed, while <<$boydesc[1]>>''s semen is released in your ass.'
  257. gs 'arousal', 'end'
  258. gs 'stat'
  259. end
  260. elseif sexdvoeloc = 2:
  261. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  262. if $knownboy[0] = 1:gs 'cum_call', 'anus', $boy[0], 1 else gs 'cum_call', 'anus', $boy[0]
  263. if sameboy = 1:
  264. 'They groan, and you feel the copious amount of their seed they both pump inside your body at the same time.'
  265. gs 'arousal', 'end'
  266. gs 'stat'
  267. else
  268. 'They both groan, and you feel as <<$boydesc[1]>> pump your pussy full of his seed, while <<$boydesc[0]>>''s semen is released in your ass.'
  269. gs 'arousal', 'end'
  270. gs 'stat'
  271. end
  272. elseif sexdvoeloc = 3:
  273. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  274. if $knownboy[1] = 1:gs 'cum_call', 'mouth', $boy[1], 1 else gs 'cum_call', 'mouth', $boy[1]
  275. if sameboy = 1:
  276. 'They groan, and you have to swallow one of the <<$boydesc[0]>>''s seed while the other pumps your pussy full of his own.'
  277. gs 'arousal', 'end'
  278. gs 'stat'
  279. else
  280. 'They both groan, and you have to swallow <<$boydesc[1]>>''s seed while <<$boydesc[0]>> pumps your pussy full of his own.'
  281. gs 'arousal', 'end'
  282. gs 'stat'
  283. end
  284. elseif sexdvoeloc = 4:
  285. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  286. if $knownboy[0] = 1:gs 'cum_call', 'mouth', $boy[0], 1 else gs 'cum_call', 'mouth', $boy[0]
  287. if sameboy = 1:
  288. 'They groan, and you have to swallow one of the <<$boydesc[0]>>''s seed while the other pumps your pussy full of his own.'
  289. gs 'arousal', 'end'
  290. gs 'stat'
  291. else
  292. 'They both groan, and you have to swallow <<$boydesc[0]>>''s seed while <<$boydesc[1]>> pumps your pussy full of his own.'
  293. gs 'arousal', 'end'
  294. gs 'stat'
  295. end
  296. elseif sexdvoeloc = 5:
  297. if $knownboy[0] = 1:gs 'cum_call', 'anus', $boy[0], 1 else gs 'cum_call', 'anus', $boy[0]
  298. if $knownboy[1] = 1:gs 'cum_call', 'mouth', $boy[1], 1 else gs 'cum_call', 'mouth', $boy[1]
  299. if sameboy = 1:
  300. 'They groan at the same time, and you feel the taste of one of the guys as he cums inside your mouth, while the other one pumps your ass full of his own semen.'
  301. gs 'arousal', 'end'
  302. gs 'stat'
  303. else
  304. 'They groan at the same time, and you feel the taste of <<$boydesc[1]>>''s seed as he cums inside your mouth, while <<$boydesc[0]>> pumps your ass full of his semen.'
  305. gs 'arousal', 'end'
  306. gs 'stat'
  307. end
  308. else
  309. if $knownboy[1] = 1:gs 'cum_call', 'anus', $boy[1], 1 else gs 'cum_call', 'anus', $boy[1]
  310. if $knownboy[0] = 1:gs 'cum_call', 'mouth', $boy[0], 1 else gs 'cum_call', 'mouth', $boy[0]
  311. if sameboy = 1:
  312. 'They groan at the same time, and you feel the taste of one of the guys as he cums inside your mouth, while the other one pumps your ass full of his own semen.'
  313. gs 'arousal', 'end'
  314. gs 'stat'
  315. else
  316. 'They groan at the same time, and you feel the taste of <<$boydesc[0]>>''s seed as he cums inside your mouth, while <<$boydesc[1]>> pumps your ass full of his semen.'
  317. gs 'arousal', 'end'
  318. gs 'stat'
  319. end
  320. end
  321. if pcs_horny >= 80:
  322. $orgasm_or = 'yes'
  323. end
  324. if picrand = 29:'When it ends boss says that you did well and today you are free and can go.'
  325. if picrand = 39:'Then <<$boydescA>> throws you out of the apartment.'
  326. killvar 'knownboy'
  327. killvar 'knwn'
  328. act 'Leave':
  329. $boytemp = ''
  330. $boytemp1 = ''
  331. if picrand >= 24 and picrand <= 26:gt 'office', 'work'
  332. if picrand >= 30 and picrand <= 34:gt 'office', 'work'
  333. if picrand >= 35 and picrand <= 37:gt 'tanhouse'
  334. if picrand >= 40 and picrand <= 43:dynamic $brodila
  335. if picrand = 38:gt 'bed', 'vorend'
  336. if picrand = 29 or picrand = 39:gt 'nord'
  337. if kafesexrand = 1:
  338. kafesexrand = 0
  339. gt 'kafe', 'workPred'
  340. end
  341. gt '<<$sexloc>>', 'start'
  342. end
  343. end
  344. --- sexdvoe ---------------------------------