sex.qsrc 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300
  1. # sex
  2. if $ARGS[0] = 'start':
  3. sexstart = 1
  4. sexvar = rand(3,6)
  5. guy += 1
  6. gs 'dinsex2', 'stamina_npc'
  7. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/kiss.jpg"></center>'
  8. 'You kiss for a while. It feels nice, but you want more!'
  9. gs 'stat'
  10. picrand = rand(0, 1)
  11. xgt 'sex', 'var'
  12. end
  13. if $ARGS[0] = 'var':
  14. cla
  15. gs 'stat'
  16. textrand = rand(1, 4)
  17. dynamic $BanSexType
  18. if SexTypeCheck = 0 and picrand > 1:
  19. SexTypeCheck = 1
  20. BlowBan = arrpos('BlowArray',picrand)
  21. CooneyBan = arrpos('CooneyArray',picrand)
  22. MissionBan = arrpos('MissionArray',picrand)
  23. CowgirlBan = arrpos('CowgirlArray',picrand)
  24. DoggyBan = arrpos('DoggyArray',picrand)
  25. SidewaysBan = arrpos('SidewaysArray',picrand)
  26. AnalBan = arrpos('AnalArray',picrand)
  27. end
  28. if BlowBan <= 0:act 'Give him a blowjob':gt 'sex', 'minet'
  29. if CooneyBan <= 0:act 'Cooney':gt 'sex', 'kuni'
  30. if MissionBan <= 0:act 'Missionary':gt 'sex', 'vag'
  31. if CowgirlBan <= 0:act 'Cowgirl':gt 'sex', 'nae'
  32. if DoggyBan <= 0:act 'Doggy style':gt 'sex', 'rak'
  33. if SidewaysBan <= 0:act 'Sideways':gt 'sex', 'bok'
  34. if AnalBan <= 0:act 'In the ass':gt 'sex', 'anal'
  35. end
  36. if $ARGS[0] = 'minet':
  37. cls
  38. sexvar -= 1
  39. gs 'dinsex2', 'stamina_npc'
  40. pos = 1
  41. if sxbj = 0:
  42. if svidboysex = 1:bja += 1
  43. sxbj = 1
  44. end
  45. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/minet<<picrand>>.jpg"></center>'
  46. if textrand = 1:'You take his member in your hand and pull his foreskin back, exposing the shiny head underneath. Giving him a sweet smile, you close your lips around it and run your tongue over the tip. You then continue to suck his cock vigorously, teasing him with your tongue and fondling his balls with your fingers. He moans blissfully while you service him with your mouth, not taking his eyes from you.'
  47. if textrand = 2:'You kneel down and place your hand in on his nearly fully erect trunk. You smile at him shyly and mutter: "That''s a nice cock you have there..." before closing your lips around the tip and sucking him off.'
  48. if textrand = 3:'You dart your tongue all over his shaft, licking him eagerly all the way from the tip of his cock, to and including his testicles. Then your tender lips close around the well-engorged head, and you slowly take more and more of his length down your throat while you stroke the rest of his shaft that doesn''t fit in your mouth with your hand.'
  49. if textrand = 4:'You wrap your delicate fingers around his hard cock and guide it to your mouth, closing your lips around the tip. You try to take as much of his length down your throat as you can, gently caressing your own clit while you service him with your mouth.'
  50. gs 'arousal', 'bj', 10
  51. gs 'stat'
  52. if sexvar < 0:sexvar = 0
  53. if sexvar = 1:'<br>The man groans that he will cum soon.'
  54. if sexvar > 0:xgt 'sex', 'var'
  55. if sexvar = 0:gs 'sex', 'end'
  56. end
  57. if $ARGS[0] = 'kuni':
  58. cls
  59. sexvar -= 1
  60. gs 'dinsex2', 'stamina_npc'
  61. pos = 2
  62. if sxkuni = 0:
  63. sxkuni = 1
  64. end
  65. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/kuni<<picrand>>.jpg"></center>'
  66. if textrand = 1:'He places gentle kisses and licks all across your thighs, slowly working his way to your sweet slit. When he reaches it, he eagerly thrusts his tongue inside you as far it will go, lapping up your juices enthusiastically.'
  67. if textrand = 2:'He immediately thrusts his tongue deep inside your pussy, and moves it around as much as he can. He''s completely ignoring your clitoris though, and the devious glint in his eyes makes you believe he''s doing that on purpose. You enthusiastically rub your groin against his face, in an attempt to get yourself off.'
  68. if textrand = 3:'With his nose against your clitoris and his tongue plunged deep inside you, he licks you enthusiastically. Then he moves away from you and guides your ass to his mouth, eagerly licking your sphincter and trying to squeeze his tongue in. It feels heavenly, and you moan loudly while you thrust your hips against his face, encouraging him to go on.'
  69. if textrand = 4:'His tongue gently begins to lick your pussy lips. "Oh my!" you think to yourself, enjoying his touch more and more. When he pays more attention to your clitoris you have to pull away from him for a moment... wow, that''s intense!'
  70. gs 'arousal', 'cuni', 10
  71. gs 'stat'
  72. if sexvar < 0:sexvar = 0
  73. if sexvar = 1:'<br>The man groans that he will cum soon.'
  74. if sexvar > 0:xgt 'sex', 'var'
  75. if sexvar = 0:gs 'sex', 'end'
  76. end
  77. if $ARGS[0] = 'vag':
  78. cls
  79. if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
  80. sexvar -= 1
  81. gs 'dinsex2', 'stamina_npc'
  82. pos = 3
  83. if sxsex = 0:
  84. if svidboysex = 1:sexa += 1
  85. sxsex = 1
  86. end
  87. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/vag<<picrand>>.jpg"></center>'
  88. if textrand = 1:'He slowly penetrates you, and keeps thrusting until most of his length is buried inside you. You eagerly kiss him when you see the look of ecstacy on his face, and wrap your arms around him while he thrusts his hips against yours.'
  89. if textrand = 2:'His hard cock slides inside your wet cunt easily, and you feel the engorged head of his cock slowly part your insides when it goes deeper and deeper. You can''t help but rub your clit, while you encourage him to fuck you harder.'
  90. if textrand = 3:'He doesn''t stop until his cock bottoms out in you, and then proceeds to fuck you with the entire length of his impressive shaft. His thrusts become more and more intense, and soon the sound of his skin slapping against yours fills the room.'
  91. if textrand = 4:'Your wet pussy eagerly takes his cock in, and you hear some embarrassing sopping sounds when he proceeds to fuck your pussy enthusiastically. You must''ve wanted him pretty badly, if you got this wet...'
  92. gs 'arousal', 'vaginal', 10
  93. gs 'stat'
  94. if sexvar < 0:sexvar = 0
  95. if sexvar = 1:'<br>The man groans that he will cum soon.'
  96. if sexvar > 0:cumprecheck = 1 & gs 'cum_manage' & xgt 'sex', 'var'
  97. if sexvar = 0:gs 'sex', 'end'
  98. end
  99. if $ARGS[0] = 'nae':
  100. cls
  101. if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
  102. sexvar -= 1
  103. gs 'dinsex2', 'stamina_npc'
  104. pos = 4
  105. if sxsex = 0:
  106. if svidboysex = 1:sexa += 1
  107. sxsex = 1
  108. end
  109. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/nae<<picrand>>.jpg"></center>'
  110. if textrand = 1:'He slowly penetrates you, and keeps thrusting until most of his length is buried inside you. You eagerly kiss him when you see the look of ecstacy on his face, and wrap your arms around him while he thrusts his hips against yours.'
  111. if textrand = 2:'His hard cock slides inside your wet cunt easily, and you feel the engorged head of his cock slowly part your insides when it goes deeper and deeper. You can''t help but rub your clit, while you encourage him to fuck you harder.'
  112. if textrand = 3:'He doesn''t stop until his cock bottoms out in you, and then proceeds to fuck you with the entire length of his impressive shaft. His thrusts become more and more intense, and soon the sound of his skin slapping against yours fills the room.'
  113. if textrand = 4:'Your wet pussy eagerly takes his cock in, and you hear some embarrassing sopping sounds when he proceeds to fuck your pussy enthusiastically. You must''ve wanted him pretty badly, if you got this wet...'
  114. gs 'arousal', 'vaginal', 10
  115. gs 'stat'
  116. if sexvar < 0:sexvar = 0
  117. if sexvar = 1:'<br>The man groans that he will cum soon.'
  118. if sexvar > 0:cumprecheck = 1 & gs 'cum_manage' & xgt 'sex', 'var'
  119. if sexvar = 0:gs 'sex', 'end'
  120. end
  121. if $ARGS[0] = 'rak':
  122. cls
  123. if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
  124. sexvar -= 1
  125. gs 'dinsex2', 'stamina_npc'
  126. pos = 5
  127. if sxsex = 0:
  128. if svidboysex = 1:sexa += 1
  129. sxsex = 1
  130. end
  131. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/rak<<picrand>>.jpg"></center>'
  132. if textrand = 1:'He slowly penetrates you, and keeps thrusting until most of his length is buried inside you. You eagerly kiss him when you see the look of ecstacy on his face, and wrap your arms around him while he thrusts his hips against yours.'
  133. if textrand = 2:'His hard cock slides inside your wet cunt easily, and you feel the engorged head of his cock slowly part your insides when it goes deeper and deeper. You can''t help but rub your clit, while you encourage him to fuck you harder.'
  134. if textrand = 3:'He doesn''t stop until his cock bottoms out in you, and then proceeds to fuck you with the entire length of his impressive shaft. His thrusts become more and more intense, and soon the sound of his skin slapping against yours fills the room.'
  135. if textrand = 4:'Your wet pussy eagerly takes his cock in, and you hear some embarrassing sopping sounds when he proceeds to fuck your pussy enthusiastically. You must''ve wanted him pretty badly, if you got this wet...'
  136. gs 'arousal', 'vaginal', 10
  137. gs 'stat'
  138. if sexvar < 0:sexvar = 0
  139. if sexvar = 1:'<br>The man groans that he will cum soon.'
  140. if sexvar > 0:cumprecheck = 1 & gs 'cum_manage' & xgt 'sex', 'var'
  141. if sexvar = 0:gs 'sex', 'end'
  142. end
  143. if $ARGS[0] = 'bok':
  144. cls
  145. if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
  146. sexvar -= 1
  147. gs 'dinsex2', 'stamina_npc'
  148. pos = 6
  149. if sxsex = 0:
  150. if svidboysex = 1:sexa += 1
  151. sxsex = 1
  152. end
  153. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/bok<<picrand>>.jpg"></center>'
  154. if textrand = 1:'He slowly penetrates you, and keeps thrusting until most of his length is buried inside you. You eagerly kiss him when you see the look of ecstacy on his face, and wrap your arms around him while he thrusts his hips against yours.'
  155. if textrand = 2:'His hard cock slides inside your wet cunt easily, and you feel the engorged head of his cock slowly part your insides when it goes deeper and deeper. You can''t help but rub your clit, while you encourage him to fuck you harder.'
  156. if textrand = 3:'He doesn''t stop until his cock bottoms out in you, and then proceeds to fuck you with the entire length of his impressive shaft. His thrusts become more and more intense, and soon the sound of his skin slapping against yours fills the room.'
  157. if textrand = 4:'Your wet pussy eagerly takes his cock in, and you hear some embarrassing sopping sounds when he proceeds to fuck your pussy enthusiastically. You must''ve wanted him pretty badly, if you got this wet...'
  158. gs 'arousal', 'vaginal', 10
  159. gs 'stat'
  160. if sexvar < 0:sexvar = 0
  161. if sexvar = 1:'<br>The man groans that he will cum soon.'
  162. if sexvar > 0:cumprecheck = 1 & gs 'cum_manage' & xgt 'sex', 'var'
  163. if sexvar = 0:gs 'sex', 'end'
  164. end
  165. if $ARGS[0] = 'anal':
  166. cls
  167. if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
  168. sexvar -= 1
  169. gs 'dinsex2', 'stamina_npc'
  170. pos = 7
  171. if sxanal = 0:
  172. if svidboysex = 1:anala += 1
  173. sxanal = 1
  174. end
  175. '<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/anal<<picrand>>.jpg"></center>'
  176. if textrand = 1:'You spread your buttocks invitingly, inviting the man to fuck your ass. He does not hesitate and guides his cock to your puckered sphincter, slowly penetrating you further and further with each thrust. He''s a bit rough about it, making you squeal loudly with every thrust.'
  177. if textrand = 2:'His cock slowly but surely finds its way into your ass. After a while he bottoms out in you, and you squeeze your ass around the base of his cock testily. The tightness of your sphincter around him makes his cock pulse even harder, and he groans: "Oh yea! Keep doing that! That feels great... don''t stop!"'
  178. if textrand = 3:'You feel something thick and hard press against your sphincter, and enter it. You cry out in pain but he pays no attention to you, and begins to fuck you enthusiastically. Slowly your whimpers of pain become moans of pleasure, and despite the pain you greatly enjoy him fucking your ass.'
  179. if textrand = 4:'You spread your buttocks invitingly, inviting the man to fuck your ass. He does not hesitate and guides his cock to your puckered sphincter, slowly penetrating you further and further with each thrust. He''s a bit rough about it, making you squeal loudly with every thrust.'
  180. gs 'arousal', 'anal', 10
  181. gs 'stat'
  182. if sexvar < 0:sexvar = 0
  183. if sexvar = 1:'<br>The man groans that he will cum soon.'
  184. if sexvar > 0:xgt 'sex', 'var'
  185. if sexvar = 0:gs 'sex', 'end'
  186. end
  187. if $ARGS[0] = 'end':
  188. cla
  189. sexstart = 0
  190. sexvar = 0
  191. sxkuni = 0
  192. sxbj = 0
  193. sxsex = 0
  194. sxanal = 0
  195. SexTypeCheck = 0
  196. BlowBan = 0
  197. CooneyBan = 0
  198. MissionBan = 0
  199. CowgirlBan = 0
  200. DoggyBan = 0
  201. SidewaysBan = 0
  202. AnalBan = 0
  203. dick = 0
  204. if pos < 3:
  205. spafinloc = 12
  206. 'He groans loudly, and you feel his hard cock erupting in your mouth. You swallow it obediently, figuring that is what he wants you to do.'
  207. elseif pos < 7:
  208. spafinloc = 0
  209. cuminside = 1
  210. 'He groans loudly, spraying his seed deep inside your pussy.'
  211. else
  212. spafinloc = 3
  213. 'He groans loudly, spraying his seed deep inside your ass.'
  214. end
  215. gs 'cum_manage'
  216. if pcs_horny >= 80:
  217. pcs_horny = 0
  218. orgasm += 1
  219. 'You feel so horny after bringing him to orgasm, you''re very close to having an orgasm also! You close your eyes and surrender yourself to the moment, quickly rubbing yourself to completion.'
  220. end
  221. if cuminside = 1: gs 'cuminsidereact'
  222. gs 'arousal', 'end'
  223. gs 'stat'
  224. act 'Leave':
  225. if picrand >= 54 and picrand <= 73: killvar 'picrand' & gt 'office', 'work'
  226. if picrand >= 74 and picrand <= 76: killvar 'picrand' & gt 'vann', 'start'
  227. if picrand >= 77 and picrand <= 80: killvar 'picrand' & gt 'tanhouse'
  228. if picrand >= 81 and picrand <= 82: killvar 'picrand' & gt 'down'
  229. if picrand >= 83 and picrand <= 84: killvar 'picrand' & dynamic $brodila
  230. if picrand >= 85 and picrand <= 86: killvar 'picrand' & gt'down'
  231. if picrand = 87 or picrand = 90: killvar 'picrand' & dynamic $brodilk
  232. if picrand = 88: killvar 'picrand' & dynamic $brodils
  233. if picrand = 89: killvar 'picrand' & gt 'bed', 'start'
  234. killvar 'picrand'
  235. if svidboysex = 1:
  236. svidboysex = 0
  237. gt $svidboy_home, $svidboy_home_arg
  238. end
  239. gt $sexloc, 'start'
  240. end
  241. killvar 'pos'
  242. killvar 'textrand'
  243. end
  244. --- sex ---------------------------------