1
0

sexdvoe.qsrc 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294
  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. *clr
  65. sexvar -= 1
  66. gs 'dinsex2', 'stamina_npc'
  67. !blowjob
  68. if sexdvoeloc = 0:
  69. if sexvar > 0:
  70. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/minet<<picrand>>.jpg"></center>'
  71. else
  72. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/cum<<picrand>>.jpg"></center>'
  73. end
  74. 'You try to suck both of their cocks, but they really do not fit inside your mouth at the same time.'
  75. gs 'arousal', 'bj', 10
  76. gs 'stat'
  77. !double penetration
  78. elseif sexdvoeloc < 3:
  79. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/dp<<picrand>>.jpg"></center>'
  80. if sameboy = 1:
  81. '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.'
  82. gs 'boyStat', $boy[0]
  83. gs 'arousal', 'vaginal', 10, 'sub'
  84. gs 'boyStat', $boy[1]
  85. gs 'arousal', 'anal', 10, 'sub'
  86. minut -= 10
  87. gs 'stat'
  88. cumprecheck = 1
  89. gs 'cum_call', '', $boy
  90. elseif sexdvoeloc = 1:
  91. '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.'
  92. gs 'boyStat', $boy[0]
  93. gs 'arousal', 'vaginal', 10, 'sub'
  94. gs 'boyStat', $boy[1]
  95. gs 'arousal', 'anal', 10, 'sub'
  96. minut -= 10
  97. gs 'stat'
  98. cumprecheck = 1
  99. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  100. else
  101. '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.'
  102. gs 'boyStat', $boy[1]
  103. gs 'arousal', 'vaginal', 10, 'sub'
  104. gs 'boyStat', $boy[0]
  105. gs 'arousal', 'anal', 10, 'sub'
  106. minut -= 10
  107. gs 'stat'
  108. cumprecheck = 1
  109. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  110. end
  111. !spitroast, pussy
  112. elseif sexdvoeloc < 5:
  113. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/vag<<picrand>>.jpg"></center>'
  114. if sameboy = 1:
  115. 'While one guy is fucking your pussy, you diligently suck off the second.'
  116. gs 'boyStat', $boy[1]
  117. gs 'arousal', 'vaginal', 10, 'sub'
  118. gs 'boyStat', $boy[0]
  119. gs 'arousal', 'bj', 10, 'sub'
  120. minut -= 10
  121. gs 'stat'
  122. cumprecheck = 1
  123. gs 'cum_call', '', $boy[0]
  124. elseif sexdvoeloc = 3:
  125. 'While <<$boydesc[0]>> is fucking your pussy, you diligently suck off <<$boydesc[1]>>.'
  126. gs 'boyStat', $boy[0]
  127. gs 'arousal', 'vaginal', 10, 'sub'
  128. gs 'boyStat', $boy[1]
  129. gs 'arousal', 'bj', 10, 'sub'
  130. minut -= 10
  131. gs 'stat'
  132. cumprecheck = 1
  133. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  134. else
  135. 'While <<$boydesc[1]>> is fucking your pussy, you diligently suck off <<$boydesc[0]>>.'
  136. gs 'boyStat', $boy[1]
  137. gs 'arousal', 'vaginal', 10, 'sub'
  138. gs 'boyStat', $boy[0]
  139. gs 'arousal', 'bj', 10, 'sub'
  140. minut -= 10
  141. gs 'stat'
  142. cumprecheck = 1
  143. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  144. end
  145. !spitroast, ass
  146. else
  147. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvoe/anal<<picrand>>.jpg"></center>'
  148. if sameboy = 1:
  149. 'While one guy is fucking your ass, you diligently suck off the second.'
  150. gs 'boyStat', $boy[0]
  151. gs 'arousal', 'anal', 10, 'sub'
  152. gs 'boyStat', $boy[1]
  153. gs 'arousal', 'bj', 10, 'sub'
  154. elseif sexdvoeloc = 3:
  155. 'While <<$boydesc[0]>> is fucking your ass, you diligently suck off <<$boydesc[1]>>.'
  156. gs 'boyStat', $boy[0]
  157. gs 'arousal', 'anal', 10, 'sub'
  158. gs 'boyStat', $boy[1]
  159. gs 'arousal', 'bj', 10, 'sub'
  160. else
  161. 'While <<$boydesc[1]>> is fucking your ass, you diligently suck off <<$boydesc[0]>>.'
  162. gs 'boyStat', $boy[1]
  163. gs 'arousal', 'anal', 10, 'sub'
  164. gs 'boyStat', $boy[0]
  165. gs 'arousal', 'bj', 10, 'sub'
  166. end
  167. minut -= 10
  168. gs 'stat'
  169. end
  170. if pcs_horny >= 80:
  171. $orgasm_or = 'custom'
  172. $orgasm_txt = 'You have an orgasm.'
  173. end
  174. if sexvar = 1:'<br>They indicate that they will cum soon.'
  175. if sexvar > 0:xgt 'sexdvoe', 'menu'
  176. if sexvar = 0:gs 'sexdvoe', 'end'
  177. end
  178. if $ARGS[0] = 'end':
  179. cla
  180. gs 'sweat', 'add', 10
  181. minut += 10
  182. killvar 'sexvar'
  183. killvar 'sameboy'
  184. killvar 'sexstart'
  185. if sexdvoeloc = 0:
  186. temp = rand(0,5)
  187. if temp = 0:
  188. if $knownboy[0] = 1:gs 'cum_call', 'hair', $boy[0], 1 else gs 'cum_call', 'hair', $boy[0]
  189. elseif temp < 3:
  190. if $knownboy[0] = 1:gs 'cum_call', 'face', $boy[0], 1 else gs 'cum_call', 'face', $boy[0]
  191. else
  192. if $knownboy[0] = 1:gs 'cum_call', 'mouth', $boy[0], 1 else gs 'cum_call', 'mouth', $boy[0]
  193. end
  194. temp = rand(0,5)
  195. if temp = 0:
  196. if $knownboy[1] = 1:gs 'cum_call', 'hair', $boy[1], 1 else gs 'cum_call', 'hair', $boy[1]
  197. elseif temp < 3:
  198. if $knownboy[1] = 1:gs 'cum_call', 'face', $boy[1], 1 else gs 'cum_call', 'face', $boy[1]
  199. else
  200. if $knownboy[1] = 1:gs 'cum_call', 'mouth', $boy[1], 1 else gs 'cum_call', 'mouth', $boy[1]
  201. end
  202. 'With a groan, they both cum, mostly in your mouth, but some may have gotten on your face too.'
  203. elseif sexdvoeloc = 1:
  204. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  205. if $knownboy[1] = 1:gs 'cum_call', 'anus', $boy[1], 1 else gs 'cum_call', 'anus', $boy[1]
  206. if sameboy = 1:
  207. 'They groan, and you feel the copious amount of their seed they both pump inside your body at the same time.'
  208. else
  209. 'They both groan, and you feel <<$boydesc[0]>> pump your pussy full of his seed, while <<$boydesc[1]>>''s semen is released in your ass.'
  210. end
  211. elseif sexdvoeloc = 2:
  212. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  213. if $knownboy[0] = 1:gs 'cum_call', 'anus', $boy[0], 1 else gs 'cum_call', 'anus', $boy[0]
  214. if sameboy = 1:
  215. 'They groan, and you feel the copious amount of their seed they both pump inside your body at the same time.'
  216. else
  217. 'They both groan, and you feel <<$boydesc[1]>> pump your pussy full of his seed, while <<$boydesc[0]>>''s semen is released in your ass.'
  218. end
  219. elseif sexdvoeloc = 3:
  220. if $knownboy[0] = 1:gs 'cum_call', '', $boy[0], 1 else gs 'cum_call', '', $boy[0]
  221. if $knownboy[1] = 1:gs 'cum_call', 'mouth', $boy[1], 1 else gs 'cum_call', 'mouth', $boy[1]
  222. if sameboy = 1:
  223. 'They groan, and you have to swallow one of the <<$boydesc[0]>>''s seed while the other pumps your pussy full of his own.'
  224. else
  225. 'They both groan, and you have to swallow <<$boydesc[1]>>''s seed while <<$boydesc[0]>> pumps your pussy full of his own.'
  226. end
  227. elseif sexdvoeloc = 4:
  228. if $knownboy[1] = 1:gs 'cum_call', '', $boy[1], 1 else gs 'cum_call', '', $boy[1]
  229. if $knownboy[0] = 1:gs 'cum_call', 'mouth', $boy[0], 1 else gs 'cum_call', 'mouth', $boy[0]
  230. if sameboy = 1:
  231. 'They groan, and you have to swallow one of the <<$boydesc[0]>>''s seed while the other pumps your pussy full of his own.'
  232. else
  233. 'They both groan, and you have to swallow <<$boydesc[0]>>''s seed while <<$boydesc[1]>> pumps your pussy full of his own.'
  234. end
  235. elseif sexdvoeloc = 5:
  236. if $knownboy[0] = 1:gs 'cum_call', 'anus', $boy[0], 1 else gs 'cum_call', 'anus', $boy[0]
  237. if $knownboy[1] = 1:gs 'cum_call', 'mouth', $boy[1], 1 else gs 'cum_call', 'mouth', $boy[1]
  238. if sameboy = 1:
  239. '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.'
  240. else
  241. '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.'
  242. end
  243. else
  244. if $knownboy[1] = 1:gs 'cum_call', 'anus', $boy[1], 1 else gs 'cum_call', 'anus', $boy[1]
  245. if $knownboy[0] = 1:gs 'cum_call', 'mouth', $boy[0], 1 else gs 'cum_call', 'mouth', $boy[0]
  246. if sameboy = 1:
  247. '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.'
  248. else
  249. '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.'
  250. end
  251. end
  252. killvar 'sexdvoeloc'
  253. gs 'arousal', 'end'
  254. gs 'stat'
  255. if pcs_horny >= 80:$orgasm_or = 'yes'
  256. if picrand = 29:'When it ends, boss says that you did well and today you are free and can go.'
  257. if picrand = 39:'Then <<$boydescA>> throws you out of the apartment.'
  258. killvar 'knownboy'
  259. killvar 'knwn'
  260. act 'Leave':
  261. if picrand >= 24 and picrand <= 26:gt 'office', 'work'
  262. if picrand >= 30 and picrand <= 34:gt 'office', 'work'
  263. if picrand >= 35 and picrand <= 37:gt 'nichApartment'
  264. if picrand >= 40 and picrand <= 43:dynamic $brodila
  265. if picrand = 38:gt 'bed', 'vorend'
  266. if picrand = 29 or picrand = 39:gt 'city_industrial'
  267. if kafesexrand = 1:
  268. kafesexrand = 0
  269. gt 'city_kafe', 'workPred'
  270. end
  271. gt $sexloc, 'start'
  272. end
  273. end
  274. --- sexdvoe ---------------------------------