sexdvoe.qsrc 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420
  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. gs 'dinsex2', '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. gs 'dinsex2', '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 'boyStat', $boy[0]
  105. gs 'arousal', 'vaginal', 10, 'sub'
  106. gs 'boyStat', $boy[1]
  107. gs 'arousal', 'anal', 10, 'sub'
  108. minut -= 10
  109. gs 'stat'
  110. cumprecheck = 1
  111. gs 'cum_call', '', $boy
  112. elseif sexdvoeloc = 1:
  113. '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.'
  114. gs 'boyStat', $boy[0]
  115. gs 'arousal', 'vaginal', 10, 'sub'
  116. gs 'boyStat', $boy[1]
  117. gs 'arousal', 'anal', 10, 'sub'
  118. minut -= 10
  119. gs 'stat'
  120. cumprecheck = 1
  121. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  122. else
  123. '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.'
  124. gs 'boyStat', $boy[1]
  125. gs 'arousal', 'vaginal', 10, 'sub'
  126. gs 'boyStat', $boy[0]
  127. gs 'arousal', 'anal', 10, 'sub'
  128. minut -= 10
  129. gs 'stat'
  130. cumprecheck = 1
  131. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  132. end
  133. if pcs_horny >= 80:
  134. $orgasm_or = 'custom'
  135. $orgasm_txt = 'You have an orgasm.'
  136. end
  137. if sexvar = 1:'<br>They indicate that they will cum soon.'
  138. if sexvar > 0:xgt 'sexdvoe', 'menu'
  139. if sexvar = 0:gs 'sexdvoe', 'end'
  140. !spitroast, pussy
  141. elseif sexdvoeloc < 5:
  142. *clr
  143. sexvar -= 1
  144. gs 'dinsex2', 'stamina_npc'
  145. if dvsxbj = 0:
  146. dvsxbj = 1
  147. end
  148. if dvsxsex = 0:
  149. dvsxsex = 1
  150. end
  151. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/vag<<picrand>>.jpg"></center>'
  152. if sameboy = 1:
  153. 'While one guy is fucking your pussy, you diligently suck off the second.'
  154. gs 'boyStat', $boy[1]
  155. gs 'arousal', 'vaginal', 10, 'sub'
  156. gs 'boyStat', $boy[0]
  157. gs 'arousal', 'bj', 10, 'sub'
  158. minut -= 10
  159. gs 'stat'
  160. cumprecheck = 1
  161. gs 'cum_call', '', $boy[0]
  162. elseif sexdvoeloc = 3:
  163. 'While <<$boydesc[0]>> is fucking your pussy, you diligently suck off <<$boydesc[1]>>.'
  164. gs 'boyStat', $boy[0]
  165. gs 'arousal', 'vaginal', 10, 'sub'
  166. gs 'boyStat', $boy[1]
  167. gs 'arousal', 'bj', 10, 'sub'
  168. minut -= 10
  169. gs 'stat'
  170. cumprecheck = 1
  171. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  172. else
  173. 'While <<$boydesc[1]>> is fucking your pussy, you diligently suck off <<$boydesc[0]>>.'
  174. gs 'boyStat', $boy[1]
  175. gs 'arousal', 'vaginal', 10, 'sub'
  176. gs 'boyStat', $boy[0]
  177. gs 'arousal', 'bj', 10, 'sub'
  178. minut -= 10
  179. gs 'stat'
  180. cumprecheck = 1
  181. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  182. end
  183. if pcs_horny >= 80:
  184. $orgasm_or = 'custom'
  185. $orgasm_txt = 'You have an orgasm.'
  186. end
  187. if sexvar = 1:'<br>They indicate that they will cum soon.'
  188. if sexvar > 0:xgt 'sexdvoe', 'menu'
  189. if sexvar = 0:gs 'sexdvoe', 'end'
  190. !spitroast, ass
  191. else
  192. *clr
  193. sexvar -= 1
  194. gs 'dinsex2', 'stamina_npc'
  195. if dvsxbj = 0:
  196. dvsxbj = 1
  197. end
  198. if dvsxanal = 0:
  199. dvsxanal = 1
  200. end
  201. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/anal<<picrand>>.jpg"></center>'
  202. if sameboy = 1:
  203. 'While one guy is fucking your ass, you diligently suck off the second.'
  204. gs 'boyStat', $boy[0]
  205. gs 'arousal', 'anal', 10, 'sub'
  206. gs 'boyStat', $boy[1]
  207. gs 'arousal', 'bj', 10, 'sub'
  208. minut -= 10
  209. gs 'stat'
  210. elseif sexdvoeloc = 3:
  211. 'While <<$boydesc[0]>> is fucking your ass, you diligently suck off <<$boydesc[1]>>.'
  212. gs 'boyStat', $boy[0]
  213. gs 'arousal', 'anal', 10, 'sub'
  214. gs 'boyStat', $boy[1]
  215. gs 'arousal', 'bj', 10, 'sub'
  216. minut -= 10
  217. gs 'stat'
  218. else
  219. 'While <<$boydesc[1]>> is fucking your ass, you diligently suck off <<$boydesc[0]>>.'
  220. gs 'boyStat', $boy[1]
  221. gs 'arousal', 'anal', 10, 'sub'
  222. gs 'boyStat', $boy[0]
  223. gs 'arousal', 'bj', 10, 'sub'
  224. minut -= 10
  225. gs 'stat'
  226. end
  227. if pcs_horny >= 80:
  228. $orgasm_or = 'custom'
  229. $orgasm_txt = 'You have an orgasm.'
  230. end
  231. if sexvar = 1:'<br>They indicate that they will cum soon.'
  232. if sexvar > 0:xgt 'sexdvoe', 'menu'
  233. if sexvar = 0:gs 'sexdvoe', 'end'
  234. end
  235. end
  236. if $ARGS[0] = 'end':
  237. cla
  238. pcs_sweat += 10
  239. minut += 10
  240. dvsxbj = 0
  241. dvsxsex = 0
  242. dvsxanal = 0
  243. sexvar = 0
  244. sameboy = 0
  245. sexstart = 0
  246. if sexdvoeloc = 0:
  247. temp = rand(0,5)
  248. if temp = 0:
  249. if $knownboy[0] = 1:gs 'cum_call', 'hair', $boy[0], 1 else gs 'cum_call', 'hair', $boy[0]
  250. elseif temp < 3:
  251. if $knownboy[0] = 1:gs 'cum_call', 'face', $boy[0], 1 else gs 'cum_call', 'face', $boy[0]
  252. else
  253. if $knownboy[0] = 1:gs 'cum_call', 'mouth', $boy[0], 1 else gs 'cum_call', 'mouth', $boy[0]
  254. end
  255. temp = rand(0,5)
  256. if temp = 0:
  257. if $knownboy[1] = 1:gs 'cum_call', 'hair', $boy[1], 1 else gs 'cum_call', 'hair', $boy[1]
  258. elseif temp < 3:
  259. if $knownboy[1] = 1:gs 'cum_call', 'face', $boy[1], 1 else gs 'cum_call', 'face', $boy[1]
  260. else
  261. if $knownboy[1] = 1:gs 'cum_call', 'mouth', $boy[1], 1 else gs 'cum_call', 'mouth', $boy[1]
  262. end
  263. 'With a groan they both cum, mostly in your mouth, but it may have gotten on your face too.'
  264. gs 'arousal', 'end'
  265. gs 'stat'
  266. elseif sexdvoeloc = 1:
  267. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  268. if $knownboy[1] = 1:gs 'cum_call', 'anus', $boy[1], 1 else gs 'cum_call', 'anus', $boy[1]
  269. if sameboy = 1:
  270. 'They groan, and you feel the copious amount of their seed they both pump inside your body at the same time.'
  271. gs 'arousal', 'end'
  272. gs 'stat'
  273. else
  274. '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.'
  275. gs 'arousal', 'end'
  276. gs 'stat'
  277. end
  278. elseif sexdvoeloc = 2:
  279. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  280. if $knownboy[0] = 1:gs 'cum_call', 'anus', $boy[0], 1 else gs 'cum_call', 'anus', $boy[0]
  281. if sameboy = 1:
  282. 'They groan, and you feel the copious amount of their seed they both pump inside your body at the same time.'
  283. gs 'arousal', 'end'
  284. gs 'stat'
  285. else
  286. '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.'
  287. gs 'arousal', 'end'
  288. gs 'stat'
  289. end
  290. elseif sexdvoeloc = 3:
  291. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  292. if $knownboy[1] = 1:gs 'cum_call', 'mouth', $boy[1], 1 else gs 'cum_call', 'mouth', $boy[1]
  293. if sameboy = 1:
  294. 'They groan, and you have to swallow one of the <<$boydesc[0]>>''s seed while the other pumps your pussy full of his own.'
  295. gs 'arousal', 'end'
  296. gs 'stat'
  297. else
  298. 'They both groan, and you have to swallow <<$boydesc[1]>>''s seed while <<$boydesc[0]>> pumps your pussy full of his own.'
  299. gs 'arousal', 'end'
  300. gs 'stat'
  301. end
  302. elseif sexdvoeloc = 4:
  303. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  304. if $knownboy[0] = 1:gs 'cum_call', 'mouth', $boy[0], 1 else gs 'cum_call', 'mouth', $boy[0]
  305. if sameboy = 1:
  306. 'They groan, and you have to swallow one of the <<$boydesc[0]>>''s seed while the other pumps your pussy full of his own.'
  307. gs 'arousal', 'end'
  308. gs 'stat'
  309. else
  310. 'They both groan, and you have to swallow <<$boydesc[0]>>''s seed while <<$boydesc[1]>> pumps your pussy full of his own.'
  311. gs 'arousal', 'end'
  312. gs 'stat'
  313. end
  314. elseif sexdvoeloc = 5:
  315. if $knownboy[0] = 1:gs 'cum_call', 'anus', $boy[0], 1 else gs 'cum_call', 'anus', $boy[0]
  316. if $knownboy[1] = 1:gs 'cum_call', 'mouth', $boy[1], 1 else gs 'cum_call', 'mouth', $boy[1]
  317. if sameboy = 1:
  318. '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.'
  319. gs 'arousal', 'end'
  320. gs 'stat'
  321. else
  322. '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.'
  323. gs 'arousal', 'end'
  324. gs 'stat'
  325. end
  326. else
  327. if $knownboy[1] = 1:gs 'cum_call', 'anus', $boy[1], 1 else gs 'cum_call', 'anus', $boy[1]
  328. if $knownboy[0] = 1:gs 'cum_call', 'mouth', $boy[0], 1 else gs 'cum_call', 'mouth', $boy[0]
  329. if sameboy = 1:
  330. '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.'
  331. gs 'arousal', 'end'
  332. gs 'stat'
  333. else
  334. '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.'
  335. gs 'arousal', 'end'
  336. gs 'stat'
  337. end
  338. end
  339. if pcs_horny >= 80:
  340. $orgasm_or = 'yes'
  341. end
  342. if picrand = 29:'When it ends boss says that you did well and today you are free and can go.'
  343. if picrand = 39:'Then <<$boydescA>> throws you out of the apartment.'
  344. killvar 'knownboy'
  345. killvar 'knwn'
  346. act 'Leave':
  347. $boytemp = ''
  348. $boytemp1 = ''
  349. if picrand >= 24 and picrand <= 26:gt 'office', 'work'
  350. if picrand >= 30 and picrand <= 34:gt 'office', 'work'
  351. if picrand >= 35 and picrand <= 37:gt 'tanhouse'
  352. if picrand >= 40 and picrand <= 43:dynamic $brodila
  353. if picrand = 38:gt 'bed', 'vorend'
  354. if picrand = 29 or picrand = 39:gt 'nord'
  355. if kafesexrand = 1:
  356. kafesexrand = 0
  357. gt 'kafe', 'workPred'
  358. end
  359. gt $sexloc, 'start'
  360. end
  361. end
  362. --- sexdvoe ---------------------------------