sexdvoe.qsrc 12 KB

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