1
0

gloryhole.qsrc 30 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661
  1. # gloryhole
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  4. minut +=5
  5. menu_off = 1
  6. gs 'stat'
  7. '<center><b><font color="maroon">Empty Stall</font></b></center>'
  8. '<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/sitting.jpg"></center>'
  9. if stat['bj'] = 0 or stat['know_glory'] = 0:
  10. gs 'stat'
  11. 'You walk down to the last stall and sit down, next to the toilet is a rather large almost perfectly round hole. Puzzled, you wonder how it got there and why no one has fixed it.'
  12. elseif stat['bj'] >= 1:
  13. pcs_horny += 10
  14. gs 'stat'
  15. 'You walk down to the last stall. The large almost perfectly round hole is still there. You wonder how many women have used that hole. You feel a little excited as you contemplate your next move.'
  16. end
  17. gs 'gloryhole', 'start_options'
  18. end
  19. if $ARGS[0] = 'return':
  20. *clr & cla
  21. gs 'stat'
  22. '<center><b><font color="maroon">The Last Stall</font></b></center>'
  23. '<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/sitting.jpg"></center>'
  24. if stat['bj'] = 0 or stat['know_glory'] = 0:
  25. gs 'stat'
  26. 'You are still in the last stall. Next to the toilet is a rather large almost perfectly round hole. You still don''t know how it got there and why no one has fixed it.'
  27. elseif stat['bj'] >= 1:
  28. pcs_horny += 10
  29. gs 'stat'
  30. 'You are still in the last stall. The large almost perfectly round hole is still there. You wonder how many women have used that hole. You feel a little excited as you contemplate your next move.'
  31. end
  32. gs 'gloryhole', 'start_options'
  33. end
  34. if $ARGS[0] = 'start_options':
  35. act 'Stand up and leave': gt $loc, $loc_arg
  36. if pcs_horny >=40:
  37. gs 'willpower', 'mast', 'self'
  38. if will_cost <= pcs_willpwr:
  39. act 'Caress Yourself (<<will_cost>> Willpower)':
  40. if pcs_inhib < 40:inhib_exp += rand(1,3)
  41. gs 'willpower', 'mast', 'self'
  42. gs 'willpower', 'pay', 'self'
  43. gt 'gloryhole', 'mast'
  44. end
  45. else
  46. act 'Caress Yourself (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  47. end
  48. end
  49. act 'Look at the Hole': gt 'gloryhole', 'hole'
  50. end
  51. if $ARGS[0] = 'mast':
  52. if $ARGS[1] = '':
  53. *clr & cla
  54. gs 'stat'
  55. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/caress1.mp4"></video></center>'
  56. 'Feeling a bit turned on, you close the door to the stall and you behind to reach down your underwear and start rubbing your clit.'
  57. $orgasm_or = 'no'
  58. gs 'arousal', 'clit_finger', 4, 'masturbate'
  59. gs 'stat'
  60. act 'Continue': gs 'gloryhole', 'mast', 'stage2'
  61. end
  62. if $ARGS[1] = 'stage2':
  63. *clr & cla
  64. pcs_mood += 5
  65. menu_off = 1
  66. if picrand = 1:
  67. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/caress1.mp4"></video></center>'
  68. else
  69. '<center><img <<$set_imgh>> src="images/shared/sex/mast/mastr.jpg"></center>'
  70. end
  71. if pcs_horny <= 60:
  72. 'You are starting to feel warm and you insert your finger in your pussy.'
  73. else
  74. 'You are starting to feel warm and you insert your finger in your pussy. You keep fingering your pussy and before long you are breathing heavily and start to moan.'
  75. end
  76. $orgasm_or = 'no'
  77. gs 'arousal', 'clit_finger', 4, 'masturbate'
  78. gs 'stat'
  79. gs 'willpower', 'mast', 'self'
  80. if will_cost <= pcs_willpwr:
  81. act 'Stop (<<will_cost>> Willpower)':
  82. cla
  83. minut += 1
  84. gs 'willpower', 'mast', 'self'
  85. gs 'willpower', 'pay', 'self'
  86. gs 'arousal', 'end'
  87. gs 'stat'
  88. 'You decide that you shouldn''t continue and stop yourself from finishing.'
  89. act 'Leave': gt $loc, $loc_arg
  90. end
  91. else
  92. act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  93. end
  94. if pcs_horny >= 90:
  95. act 'Climax':
  96. *clr & cla
  97. pcs_mood += 15
  98. if pcs_inhib < 40: inhib_exp += rand(1,3)
  99. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/orgasm.mp4"></video></center>'
  100. $orgasm_or = 'custom'
  101. $orgasm_txt = 'As your pussy gets wet you pulls your panties down and slip your fingers inside of yourself. You start finger fucking yourself, with in a few minutes a powerful orgasm rocks your body. Leaving you gasping and trembling as you recover.'
  102. gs 'arousal', 'clit_finger', 2, 'masturbate'
  103. gs 'arousal', 'end'
  104. gs 'stat'
  105. act 'Leave': gt $loc, $loc_arg
  106. end
  107. else
  108. act 'Continue': gt 'gloryhole', 'mast', 'stage2'
  109. end
  110. end
  111. end
  112. if $ARGS[0] = 'hole':
  113. *clr & cla
  114. menu_off = 1
  115. gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
  116. if npc_dick[$npclastgenerated] < 6: npc_dick[$npclastgenerated] = 6
  117. gs 'boyStat', $npclastgenerated
  118. minut +=5
  119. gs 'stat'
  120. '<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/looking.jpg"></center>'
  121. wait 700
  122. if stat['gloryhole'] = 0 or rand(1,5) = 5:
  123. act 'Sign the wall':
  124. stat['know_glory'] = 1
  125. *clr & cla
  126. gs 'stat'
  127. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghstartled.mp4"></video></center>'
  128. 'While looking through the hole you decided to write something on the wall just above it. While you were focused on writing, you didn''t notice the dick poking through the hole until the tip of it nearly went into your mouth. Startled you jerk away from the offending penis.'
  129. act 'Quickly leave the stall ':
  130. *clr & cla
  131. minut += 2
  132. gs 'stat'
  133. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/eww.mp4"></video></center>'
  134. 'You shudder in disgust at the thought that some stranger''s dick was just practically in your mouth, you get up and quickly leave.'
  135. act 'Leave': gt $loc, $loc_arg
  136. end
  137. gs 'willpower', 'bj', 'self'
  138. if will_cost <= pcs_willpwr:
  139. act 'Suck it (<<will_cost>> Willpower)':
  140. gs 'willpower', 'bj', 'self'
  141. gs 'willpower', 'pay', 'self'
  142. gt 'gloryhole', 'blowjob'
  143. end
  144. else
  145. act 'Suck it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  146. end
  147. gs 'willpower', 'hj', 'self', 'easy'
  148. if pcs_throat = 0 and will_cost <= pcs_willpwr:
  149. act 'Touch the shaft (<<will_cost>> Willpower)':
  150. gs 'willpower', 'hj', 'self'
  151. gs 'willpower', 'pay', 'self'
  152. gt 'gloryhole', 'virgin'
  153. end
  154. elseif pcs_throat = 0 and will_cost > pcs_willpwr:
  155. act 'Touch the shaft (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  156. end
  157. end
  158. elseif rand(1, 10) >= 7 - (ghnow * 2):
  159. *clr & cla
  160. gs 'stat'
  161. '<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/see_men.jpg"></center>'
  162. 'You look through the hole and see several men with their backs to you, using the urinals.'
  163. act 'Don''t do it':
  164. cla
  165. 'You move away from the hole reconsidering what you were about to do and quickly leave the stall.'
  166. act 'Leave': gt $loc, $loc_arg
  167. end
  168. gs 'willpower', 'bj', 'self'
  169. if will_cost <= pcs_willpwr:
  170. act 'Stick your finger in the hole (<<will_cost>> Willpower)':
  171. *clr & cla
  172. money += 100
  173. minut += 10
  174. gs 'willpower', 'bj', 'self'
  175. gs 'willpower', 'pay', 'self'
  176. gs 'stat'
  177. if stat['gloryhole'] = 0:
  178. '<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger'+rand(1,5)+'.jpg"></center>'
  179. 'You put your finger in the hole hoping to entice a man to come over...'
  180. 'The man slips 100 <b>₽</b> into the hole, and then puts his erect cock through the hole.'
  181. elseif stat['gloryhole'] > 0:
  182. '<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/ready.jpg"></center>'
  183. 'You poke your finger in the hole showing that you are ready to serve a man. Then you put your face close to the hole and open your mouth.'
  184. 'The stranger slips 100 <b>₽</b> into the hole, and then his erect cock pokes out of the hole.'
  185. end
  186. act 'Suck it': gt 'gloryhole', 'blowjob'
  187. gs 'willpower', 'bj', 'resist'
  188. if will_cost <= pcs_willpwr:
  189. act 'Stop (<<will_cost>> Willpower)':
  190. *clr & cla
  191. gs 'willpower', 'bj', 'resist'
  192. gs 'willpower', 'pay', 'resist'
  193. gs 'stat'
  194. 'Seeing the dick poke through, you reconsider what you are about to do, do you really want to suck some strange man''s dick, through a hole in the bathroom for money?'
  195. gs 'willpower', 'bj', 'resist', 'hard'
  196. if will_cost <= pcs_willpwr:
  197. act 'Take his money and Leave (<<will_cost>> Willpower)':
  198. gs 'willpower', 'bj', 'resist', 'hard'
  199. gs 'willpower', 'pay', 'resist'
  200. gs 'stat'
  201. !gt 'gloryhole', 'rape'
  202. gt $loc, $loc_arg
  203. end
  204. else
  205. act 'Take his money and Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  206. end
  207. act 'Give back the money and Leave':
  208. money -= 100
  209. gt $loc, $loc_arg
  210. end
  211. act 'Blow Him': gt 'gloryhole', 'blowjob'
  212. end
  213. else
  214. act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  215. end
  216. end
  217. else
  218. act 'Stick your finger in the hole (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  219. end
  220. else
  221. *clr & cla
  222. gs 'stat'
  223. '<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/see_none.jpg"></center>'
  224. 'Looking through the hole, you can see a row of urinals on the other side. The hole must be to the men''s room next door. You don''t see any men currently in there.'
  225. act 'Leave': gt $loc, $loc_arg
  226. act 'Wait':
  227. cla
  228. 'You decide to stay and wait for someone to come.'
  229. act 'Keep looking': gs 'gloryhole', 'hole'
  230. end
  231. end
  232. end
  233. if $ARGS[0] = 'virgin':
  234. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghvirgin1.mp4"></video></center>'
  235. 'You tentatively reach out and gently touch the dick, half afraid to, but also half wanting to.'
  236. act 'Quickly leave the stall':
  237. *clr & cla
  238. minut += 2
  239. gs 'stat'
  240. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/eww.mp4"></video></center>'
  241. 'You shudder in disgust at the thought that you were just touching some stranger''s dick. You get up and quickly leave.'
  242. act 'Leave': gt $loc, $loc_arg
  243. end
  244. act 'Grab it':
  245. *clr & cla
  246. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfeeling.mp4"></video></center>'
  247. 'Biting your lip and deciding you want to feel it some more, you reach over again and grab it. You caress it with your hand, it is harder than you expected and warm to the touch, it almost feels like it is throbbing in your hand. Unexplained feelings of excitement run through your body. You hear through the wall the guy saying, "Stop playing with it and stroke it." "Huh?" You reply, not knowing why he wants you to stroke it. He replies, "Really, you don''t know? Just grab it with your hand and slide it up and down."'
  248. gs 'arousal', 'foreplay', 5, 'unknown'
  249. gs 'stat'
  250. gs 'willpower', 'hj', 'resist', 'hard'
  251. if will_cost <= pcs_willpwr:
  252. act 'Stop (<<will_cost>> Willpower)':
  253. *clr & cla
  254. gs 'willpower', 'hj', 'resist', 'hard'
  255. gs 'willpower', 'pay', 'resist'
  256. gs 'arousal', 'end'
  257. gs 'stat'
  258. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/eww.mp4"></video></center>'
  259. 'You let go of him, wondering what possessed you to grab some stranger''s dick in the first place. You quickly leave the stall, you can hear the guy. "Hey why did you stop...? Hello? Are you still there? What the fuck!"'
  260. act 'Quickly get out': gt $loc, $loc_arg
  261. end
  262. else
  263. act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  264. end
  265. act 'Slide your hand on his penis':
  266. *clr & cla
  267. gs 'stat'
  268. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghstroke1.mp4"></video></center>'
  269. 'You decide to gently slide your hand on his dick. You feel his hard penis throb as you continue to slide your hand up and down. To your surprise you are really enjoying stroking the dick, your pussy starts to itch from the experience. As you get more turned on, you grab it with both hands and stroke it.'
  270. gs 'arousal', 'hj', 5, 'unknown'
  271. gs 'stat'
  272. act 'Continue Stroking':
  273. *clr & cla
  274. minut +=5
  275. gs 'arousal', 'end'
  276. gs 'cum_call', 'hands', 'an unknown guy from the gloryhole'
  277. gs 'stat'
  278. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghmastcum.mp4"></video></center>'
  279. 'Without any warning, hot white liquid spurts out the tip of his penis. You look at your hands, watching the sperm run down the back of your hand and down onto your arm. The man panting says, "That was," he takes another breath, "That was great."'
  280. 'You decide to lick a bit of the white liquid off your hand curiously wanting to know what it tastes like. It''s slimy and tastes tart.'
  281. act 'Continue': gt 'gloryhole', 'return'
  282. end
  283. end
  284. end
  285. end
  286. if $ARGS[0] = 'blowjob':
  287. *clr & cla
  288. guy += 1
  289. ghnow += 1
  290. stat['gloryhole'] += 1
  291. temp = rand(1,5)
  292. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/dressed/bj<<rand(1,5)>>.mp4"></video></center>'
  293. 'You wrap your lips around his dick and take his <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock in your mouth and start to suck it, you suck the cock enthusiastically.'
  294. gs 'arousal', 'bj', 5, 'unknown', 'sub'
  295. gs 'stat'
  296. if stat['vaginal'] > 0 or stat['anal'] > 0:act 'Undress':gt 'gloryhole', 'ghsex'
  297. act 'Continue to Suck':
  298. *clr & cla
  299. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/dressed/bj<<rand(1,5)>>.mp4"></video></center>'
  300. 'You suck on his dick, bobbing your head, sometimes using your hands to stroke his shaft at the same time, other times your hands massage his balls. Before to long you hear the guy moan in pleasure, "I''m cuming."'
  301. gs 'arousal', 'bj', 5, 'unknown', 'sub'
  302. gs 'stat'
  303. act 'Keep sucking':
  304. *clr & cla
  305. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/dressed/bj<<rand(1,5)>>.mp4"></video></center>'
  306. 'Despite what he says you keep sucking his dick, you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth.'
  307. act 'Swallow':
  308. cla
  309. gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
  310. gs 'arousal', 'end'
  311. gs 'stat'
  312. 'You gather a mouthful of sperm, and then swallow it. Their sperm has a sticky and sharp taste which makes you grimace.'
  313. act 'Get up': gt 'gloryhole', 'return'
  314. end
  315. act 'Spit out':
  316. cla
  317. gs 'cum_call', 'mouth', 'an unknown guy from the gloryhole'
  318. gs 'arousal', 'end'
  319. gs 'stat'
  320. 'You decide to spit it all out.'
  321. act 'Get up': gt 'gloryhole', 'return'
  322. end
  323. end
  324. gs 'willpower', 'swallow', 'resist'
  325. if will_cost <= pcs_willpwr:
  326. act 'Step back (<<will_cost>> Willpower)':
  327. *clr & cla
  328. gs 'willpower', 'swallow', 'resist'
  329. gs 'willpower', 'pay', 'resist'
  330. gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
  331. gs 'arousal', 'end'
  332. gs 'stat'
  333. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
  334. 'You pull your mouth off his dick but keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
  335. act 'Get up': gt 'gloryhole', 'return'
  336. end
  337. else
  338. act 'Step back (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  339. end
  340. end
  341. end
  342. if $ARGS[0] = 'ghsex':
  343. *clr & cla
  344. gs 'stat'
  345. '<center><b><font color="maroon">Empty Stall</font></b></center>'
  346. '<center><video autoplay loop src="images/locations/shared/gloryhole/action/undress.mp4"></video></center>'
  347. 'You let go of him and quickly undress, once you are naked you start stroking him again while you line yourself up with his dick. You badly want to fuck him.'
  348. gs 'arousal', 'hj', 5, 'unknown', 'sub'
  349. gs 'stat'
  350. if stat['anal'] > 0: act 'Ass':gt 'gloryhole', 'anal'
  351. if stat['vaginal'] > 0:
  352. if mc_inventory['equipped_condoms'] > 0: act "Use a condom": gt 'gloryhole', 'condom'
  353. gs 'willpower', 'sex', 'self'
  354. if will_cost <= pcs_willpwr:
  355. act 'Pussy (<<will_cost>> Willpower)':
  356. gs 'willpower', 'pay', 'self'
  357. sexcontra = 0
  358. gt 'gloryhole', 'pussy'
  359. end
  360. else
  361. act 'Pussy (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  362. end
  363. end
  364. act 'Re-dress and suck it instead': gt 'gloryhole', 'blowjob'
  365. end
  366. if $ARGS[0] = 'condom':
  367. *clr & cla
  368. gs 'stat'
  369. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/condom_on.mp4"></video></center>'
  370. dynamic $prezik
  371. protect = 1
  372. if preziktype = 2:
  373. sexcontra = 7
  374. 'You take one of your sabotaged condoms and put it on the stranger.'
  375. else
  376. sexcontra = 3
  377. 'You take a condom and put it on the stranger''s dick.'
  378. end
  379. act 'Continue': gt 'gloryhole', 'pussy'
  380. end
  381. if $ARGS[0] = 'pussy':
  382. *clr & cla
  383. gs 'stat'
  384. temp = rand(1,5)
  385. if rand(0,2) > 0:
  386. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/sex<<temp>>.mp4"></video></center>'
  387. else
  388. if protect = 1:
  389. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/vagcon<<temp>>.mp4"></video></center>'
  390. else
  391. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/vag<<temp>>.mp4"></video></center>'
  392. end
  393. end
  394. 'You turn around and back up to the hole, you use one hand to guide his dick into your pussy. The <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock slides easily into your wet pussy, causing you to moan in pleasure as you move your hips back and forth. You start humping his dick with fast movements, taking the full length of him balls deep into you, which causes him to moan loudly. After several minutes, you hear him on the other side of the wall yell out, "I''m gonna cum."'
  395. gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
  396. gs 'stat'
  397. if protect ! 1:
  398. gs 'dinSex', 'std_trigger'
  399. if tabletkicheck = 0:
  400. gs 'willpower', 'cum_inside', 'self'
  401. if will_cost <= pcs_willpwr:
  402. act 'Allow him to cum inside (<<will_cost>> WillPower)':
  403. *clr & cla
  404. gs 'willpower', 'pay', 'resist'
  405. gs 'cum_call', 'vaginal', 'an unknown guy from the gloryhole'
  406. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghcreampie.mp4"></video></center>'
  407. 'Instead of pulling away, you moan "Inside me, please," and push yourself hard against the opening in the wall. You feel his hot sperm fill your pussy in spurt after spurt. When you finally pull yourself off him, you can feel the sperm leaking out of your pussy.'
  408. gs 'cuminsidereact', 'an unknown guy from the gloryhole'
  409. gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
  410. minut -= 9
  411. gs 'arousal', 'end'
  412. gs 'stat'
  413. act 'Get dressed': gt 'gloryhole', 'return'
  414. end
  415. else
  416. act 'Allow him to cum inside (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  417. end
  418. else
  419. act 'Allow him to cum inside':
  420. *clr & cla
  421. gs 'cum_call', 'vaginal', 'an unknown guy from the gloryhole'
  422. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghcreampie.mp4"></video></center>'
  423. 'Instead of pulling away, you moan "Inside me, please," and push yourself hard against the opening in the wall. You feel his hot sperm fill your pussy in spurt after spurt. When you finally pull yourself off him, you can feel the sperm leaking out of your pussy.'
  424. gs 'cuminsidereact', 'an unknown guy from the gloryhole'
  425. gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
  426. minut -= 9
  427. gs 'arousal', 'end'
  428. gs 'stat'
  429. act 'Get dressed': gt 'gloryhole', 'return'
  430. end
  431. end
  432. act 'Quickly turn around and get on your knees':
  433. *clr & cla
  434. gs 'stat'
  435. act 'Let him cum in your mouth':
  436. *clr & cla
  437. gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
  438. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghswallow.mp4"></video></center>'
  439. 'Once down on your knees you take his dick into your mouth and start sucking him. You are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
  440. gs 'arousal', 'bj', 10, 'unknown', 'sub'
  441. minut -= 9
  442. gs 'arousal', 'end'
  443. gs 'stat'
  444. act 'Get dressed': gt 'gloryhole', 'return'
  445. end
  446. act 'Let him cum on your face':
  447. *clr & cla
  448. gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
  449. gs 'arousal', 'hj', 10, 'unknown', 'sub'
  450. minut -= 9
  451. gs 'arousal', 'end'
  452. gs 'stat'
  453. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
  454. 'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
  455. act 'Get dressed': gt 'gloryhole', 'return'
  456. end
  457. end
  458. else
  459. if sexcontra = 4:
  460. 'You pull off of <<$boydesc>> and look at his dick and think, "Oh shit! The condom burst."'
  461. elseif sexcontra = 5:
  462. 'You pull off of <<$boydesc>> and look at his dick and think, "Oh shit! The condom is missing!"'
  463. else
  464. '<<$boydesc>> groaned and you realized that he came in the condom.'
  465. end
  466. sexcontra = 0
  467. protect = 0
  468. act 'Get dressed': gt 'gloryhole', 'return'
  469. end
  470. end
  471. if $ARGS[0] = 'anal':
  472. *clr & cla
  473. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghintoass.mp4"></video></center>'
  474. 'You rub your wet pussy and get your fingers nice and wet and then rub it on your asshole, you do the same to his dick, then you guide his <<npc_dick[$npclastgenerated]>>cm <<$npc_thdick[$npclastgenerated]>> cock into your ass. You feel his dick enter your tight ass, feelings of pain and pleasure rush through you.'
  475. anal_slip += 4
  476. gs 'arousal', 'clit_finger', 5, 'unknown', 'sub'
  477. gs 'arousal', 'anal', 5, 'unknown', 'sub'
  478. minut -= 5
  479. gs 'stat'
  480. act 'Keep Going':
  481. *clr & cla
  482. gs 'stat'
  483. temp = rand(1,5)
  484. if rand(0,2) > 0:
  485. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/sex<<temp>>.mp4"></video></center>'
  486. else
  487. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/anal<<temp>>.mp4"></video></center>'
  488. end
  489. if pcs_ass < 10:
  490. 'The pain doesn''t fade and instead it starts to hurt worse after a while and the pleasure starts to fade. You fuck his dick with your ass, at first taking him deeper and deeper, as you get faster and faster. As the pleasure fades and the pain gets worse you slow down and don''t take him as deep. You start to rub your clit to help with the sensation of pleasure. You consider stopping as the pain gets worse, but you can tell by the throbbing of his dick and ragged breathing he is about to cum and decided to keep it up so he can finish.'
  491. elseif pcs_ass < 20:
  492. 'The pain fades slowly and soon all you feel pleasure. You fuck his dick with your ass, taking him deeper and deeper, as you get faster and faster, you start to rub your clit as you feel yourself getting close to climax. You can tell by the throbbing of his dick and ragged breathing he is about to cum.'
  493. else
  494. 'The pain fades quickly and soon all you feel pleasure. You fuck his dick with your ass, taking him deeper and deeper, as you get faster and faster, you start to rub your clit as you feel yourself getting close to climax. You can tell by the throbbing of his dick and ragged breathing he is about to cum.'
  495. end
  496. gs 'arousal', 'anal', 5, 'unknown', 'sub'
  497. gs 'stat'
  498. if pcs_ass < 10:
  499. if will_cost <= pcs_willpwr:
  500. act 'Stop (<<will_cost>> Willpower)':
  501. *clr & cla
  502. gs 'willpower', 'anal', 'resist'
  503. gs 'willpower', 'pay', 'resist'
  504. gs 'arousal', 'end'
  505. gs 'stat'
  506. '<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/analpain.jpg"></center>'
  507. 'The pain becomes too much and you can''t take it anymore, on the verge of tears you stop and pull your ass off his dick. You quickly get dressed and leave, you wonder if it was supposed to hurt that much. You can hear the guy yelling at you for having stopped before he finished.'
  508. act 'Leave': gt $loc, $loc_arg
  509. end
  510. else
  511. act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  512. end
  513. end
  514. gs 'willpower', 'anal', 'resist'
  515. act 'Let him cum in your ass':
  516. *clr & cla
  517. gs 'cum_call', 'anus', 'an unknown guy from the gloryhole'
  518. gs 'arousal', 'anal', 10, 'unknown', 'sub'
  519. minut -= 9
  520. gs 'arousal', 'end'
  521. gs 'stat'
  522. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghanalcream1.mp4"></video></center>'
  523. 'You feel his dick throb as he shoots his load of sperm deep in your ass, filling it up. When you pull your ass off his dick, you feel the hot sperm spilling out of your gaping asshole.'
  524. act 'Get dressed': gt 'gloryhole', 'return'
  525. end
  526. act 'Let him cum all over your ass':
  527. *clr & cla
  528. gs 'cum_call', 'butt', 'an unknown guy from the gloryhole'
  529. gs 'arousal', 'anal', 10, 'unknown', 'sub'
  530. minut -= 9
  531. gs 'arousal', 'end'
  532. gs 'stat'
  533. '<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/ghcumonass.jpg"></center>'
  534. 'You pull your ass away, feeling his cock slip out of your asshole, just as you feel hot splashing of cum landing on your butt, coating your cheeks and running down the crack of your ass.'
  535. act 'Get dressed': gt 'gloryhole', 'return'
  536. end
  537. gs 'willpower', 'swallow', 'resist'
  538. if will_cost <= pcs_willpwr:
  539. act 'Turn around, kneel and let him cum in your mouth (<<will_cost>> Willpower)':
  540. *clr & cla
  541. gs 'willpower', 'swallow', 'resist'
  542. gs 'willpower', 'pay', 'resist'
  543. gs 'cum_call', 'mouth_swallow', 'an unknown guy from the gloryhole'
  544. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghswallow.mp4"></video></center>'
  545. 'Once down on your knees you take his dick into your mouth and start sucking him, tasting your own ass on his dick. But you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
  546. gs 'arousal', 'bj', 10, 'unknown', 'sub'
  547. minut -= 9
  548. gs 'arousal', 'end'
  549. gs 'stat'
  550. act 'Get dressed': gt 'gloryhole', 'return'
  551. end
  552. else
  553. act 'Turn around, kneel and let him cum in your mouth (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  554. end
  555. act 'Turn around, kneel and let him cum on your face':
  556. *clr & cla
  557. gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
  558. gs 'arousal', 'hj', 10, 'unknown', 'sub'
  559. minut -= 9
  560. gs 'arousal', 'end'
  561. gs 'stat'
  562. '<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
  563. 'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
  564. act 'Get dressed': gt 'gloryhole', 'return'
  565. end
  566. end
  567. end
  568. !{if $ARGS[0] = 'rape':
  569. *clr & cla
  570. menu_off = 1
  571. gs 'stat'
  572. dick = rand(9, 25)
  573. if rand(1, 20) > 12:
  574. gs 'npcgeneratec', 0, 'rapist', rand(19,45)
  575. gs 'boyStat', $npclastgenerated
  576. '<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape3.mp4"></video></center>'
  577. 'Just as you are leaving the women''s restroom a naked man storms out of the men''s restroom and grabs you by the hair and drags you inside the men''s room. He rips off your top and forces you down on your knees, shoving his dick in your mouth, forcing you to suck his dick.'
  578. act 'Continue':
  579. *clr & cla
  580. '<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape4.mp4"></video></center>'
  581. 'You bite down his dick, which makes him pull his dick out of your mouth. "Fine you little fucking cunt, we''ll do this the hard way." He lifts you up and forces you between two urinals with your face up against the wall. He roughly shoves his cock in your ass, the only lubrication is the bit of your saliva still on his dick. It feels like he is ripping your ass open, you cry and scream. He just jackhammers your ass balls deep, while holding you by the throat.'
  582. gs 'arousal', 'anal', 10, 'unknown', 'sub', 'rough'
  583. minut -= 5
  584. gs 'stat'
  585. act 'Continue':
  586. *clr & cla
  587. '<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape1.mp4"></video></center>'
  588. 'As you scream he reaches up and clamps a hand over your mouth to muffle your screams, he continues you pound your ass balls deep with his dick. Not relenting no matter how much you struggle or cry. "You think it''s funny bitch to steal a man''s hard earned money, well you won''t think it is so funny after I am done with you. I''m going to fuck your ass till it bleeds like your cunt."'
  589. 'He keeps ripping your ass up with his dick, the pain is unbearable, but there is nothing you can do about it. You really wish you hadn''t taken his money and kept it.'
  590. gs 'arousal', 'anal', 10, 'unknown', 'sub', 'rough'
  591. minut -= 5
  592. gs 'stat'
  593. act 'Continue':
  594. *clr & cla
  595. rape += 1
  596. gs 'cum_call', 'mouth', 'an unknown guy from the gloryhole'
  597. '<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/cumspit.mp4"></video></center>'
  598. 'Finally he pulls the dick out of your ass and forces you back to your knees, he shoves his dick back in your mouth and you can taste your own ass on his dick. He says to you. "You fucking bite me again bitch and I will call everyone I know and we will train fuck your ass for days." Afraid he is serious you suck his dick until he finally shoots his load in your mouth.'
  599. gs 'arousal', 'bj', 10, 'unknown', 'sub', 'rough'
  600. minut -= 5
  601. gs 'arousal', 'end'
  602. gs 'stat'
  603. 'With that he lets go of you and walks off in disgust.'
  604. 'Grabbing your clothes you get up and run out of the bathroom and run all the way home, only once you are several blocks away do you stop to put your clothes back on.'
  605. act 'Leave':gt 'korrPar'
  606. end
  607. end
  608. end
  609. else
  610. *clr & cla
  611. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/gorodok.jpg"></center>'
  612. 'You run from the community center and don''t stop until you are back in the residential area'
  613. act 'Catch your breath': minut += 5 & gt 'pav_residential'
  614. end
  615. end}
  616. --- gloryhole ---------------------------------