vecher.qsrc 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340
  1. # vecher
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  4. $menu_loc = 'vecher'
  5. $menu_arg = 'start'
  6. menu_off = 0
  7. gs 'stat'
  8. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vecher.jpg"></center>'
  9. 'You turn up to a Friday night party.'
  10. 'A large crowd gathers on the senior''s floor, some people looking for others to play <a href="exec:gt ''vecher'',''twister''">twister</a>.'
  11. gs 'willpower', 'drink', 'resist'
  12. if will_cost <= pcs_willpwr:
  13. act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
  14. else
  15. act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  16. end
  17. act 'Dance':
  18. cla
  19. hour = 23
  20. gs 'drugs', 'alcohol', 'wine'
  21. gs 'drugs', 'alcohol', 'vodka'
  22. gs 'drugs', 'alcohol', 'beer'
  23. 'You have fun, drinking and dancing.'
  24. itrand = rand(1, 12)
  25. gt 'vecher', 'end<<itrand>>'
  26. end
  27. end
  28. if $ARGS[0] = 'end1':
  29. *clr & cla
  30. '<center><img <<$set_imgh>> src="images/locations/shared/party/itog.jpg"></center>'
  31. 'Gradually, your steady alcohol intake gets the better of you, and you spend the rest of the night in the bathroom, hugging the toilet'
  32. act 'Leave':gt 'dorm', 'korr'
  33. end
  34. if $ARGS[0] = 'end2':
  35. *clr & cla
  36. '<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss2.jpg"></center>'
  37. 'You dance and drink for a while before you have the idea to dance with Vika. Soon you end up having a deep lesbian kiss under the flashing lights of the dance.'
  38. gs 'willpower', 'cuni', 'resist'
  39. if will_cost <= pcs_willpwr:
  40. act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
  41. else
  42. act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  43. end
  44. act 'Get a room with Vika':
  45. cla
  46. if vikasex = 0: vikasex = 1
  47. $sexloc = 'obroom'
  48. gt 'lezbsex', 'start'
  49. end
  50. end
  51. if $ARGS[0] = 'end3':
  52. *clr & cla
  53. if pcs_apprnc < 80:
  54. '<center><img <<$set_imgh>> src="images/locations/shared/party/itog3.jpg"></center>'
  55. 'You stumble into an open room and sleep it off, listening to the sounds of hardcore sex from down the hall.'
  56. act 'Leave': gt 'dorm', 'korr'
  57. else
  58. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vechend1.jpg"></center>'
  59. 'You stumble into an open room and sleep it off, listening to the sounds of hardcore sex from down the hall. You dream about fucking Vika, the fantasy so real that you can feel your legs spreading, her tongue on your clitoris. Opening your eyes, you see a few girls bent over your body, hands busy caressing you, while between your legs Vika skillfully uses her tongue. "This needs to become reality," you think as you awaken.'
  60. act 'Leave': gt 'dorm', 'korr'
  61. act 'Enjoy':
  62. *clr & cla
  63. if vikasex = 0: vikasex = 1
  64. orgasm += 1
  65. girl += 4
  66. lesbian += 1
  67. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vechend2.jpg"></center>'
  68. 'You relax, allowing the girls to caress your body. Periodically changing positions so another can take post at your pussy, they settle into a rotation, trying to see who can trigger the most orgasms.'
  69. act 'Continue': gt 'vecher', 'end13'
  70. end
  71. end
  72. end
  73. if $ARGS[0] = 'end4':
  74. *clr & cla
  75. '<center><img <<$set_imgh>> src="images/locations/shared/party/itog4.jpg"></center>'
  76. 'You get drunk and begin to molest the other girls. Before you realise it, your top is pulled down to show your breasts, and Vika is licking and sucking at them in front of everyone.'
  77. gs 'willpower', 'cuni', 'resist'
  78. if will_cost <= pcs_willpwr:
  79. act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
  80. else
  81. act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  82. end
  83. act 'Go with Vika to an empty room':
  84. cla
  85. if vikasex = 0: vikasex = 1
  86. $sexloc = 'obroom'
  87. gt 'lezbsex', 'start'
  88. end
  89. end
  90. if $ARGS[0] = 'end5':
  91. *clr & cla
  92. guy += 1
  93. stat['vaginal'] += 1
  94. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog5.jpg"></center>'
  95. 'You wake up on the floor in the hallway, halfway to your room. Panting over your body is a pimply young man, dick inside you, trying to fuck your vagina carefully so you don''t wake up. Noticing that you''re awake, he quickly jumps to his feet and runs off, leaving you lying confused and naked on the dirty floor.'
  96. act 'Leave': gt 'dorm', 'korr'
  97. end
  98. if $ARGS[0] = 'end6':
  99. *clr & cla
  100. '<center><img <<$set_imgh>> src="images/locations/shared/party/itog6.jpg"></center>'
  101. 'You spend all evening molesting a girl with big tits, begging her to let you kiss them. Eventually, you both get so drunk she allows you to bury your face in her cleavage and motorboat her.'
  102. act 'Leave': gt 'dorm', 'korr'
  103. end
  104. if $ARGS[0] = 'end7':
  105. *clr & cla
  106. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog7.jpg"></center>'
  107. 'You don''t know how or when your dancing became a striptease, but the alcohol has plainly done its job. You begin to become lewder and lewder, swaying on your feet before collapsing into a man''s lap on the couch. Scarcely believing his luck, he wastes no time in grabbing at your breasts, pinching your nipples.'
  108. gs 'willpower', 'sex', 'resist'
  109. if will_cost <= pcs_willpwr:
  110. act 'Leave him blueballed (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
  111. else
  112. act 'Leave him blueballed (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  113. end
  114. act 'Remove your panties':
  115. *clr & cla
  116. guy += 1
  117. stat['bj'] += 1
  118. stat['vaginal'] += 1
  119. spafinloc = 4
  120. gs 'cum_manage'
  121. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog71.jpg"></center>'
  122. 'You get up off the man''s lap to finish your stripping, shuffling out of your panties drunkenly, almost toppling over again. Catching a glimpse of your pussy, the man hastens to strip off his clothes too, fumbling with his fly.'
  123. act 'Suck':
  124. *clr & cla
  125. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog72.jpg"></center>'
  126. 'Getting down on your knees and clasping his member greedily between your lips, you start to move back and forth on his length, slurping noisily, ignoring the crowd in the rest of the room. The man seems to want more however, wrapping his fingers in your hair and starting to drag your head back and forth, using your mouth to masturbate.'
  127. act 'Further':
  128. *clr & cla
  129. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog73.jpg"></center>'
  130. 'With his cock rock hard and nicely wet, he lifts you bodily and turns you around, pushing you into the sofa doggystyle. He shoves himself into your pussy and starts to pound away, not caring about your enjoyment, just fucking. A crowd gathers to view the show, calling out encouragements and suggestions on how best to fuck you. The guy pounding you keeps it up for a long time, too drunk to do the deed properly.'
  131. act 'Further':
  132. *clr & cla
  133. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog74.jpg"></center>'
  134. 'Just when you start to get tired of his thrusting, he tugs his dick out of your aching puss, shooting a few meager ropes of cum onto your buttocks. Scooping up your clothes from the floor, you follow him to his room to sleep it off.'
  135. act 'Leave':gt 'dorm', 'korr'
  136. end
  137. end
  138. end
  139. end
  140. end
  141. if $ARGS[0] = 'end8':
  142. *clr & cla
  143. '<center><img <<$set_imgh>> src="images/locations/shared/party/sex/itog8.jpg"></center>'
  144. 'You head out into one of the rooms with Vika, who soon starts kissing and then fucking an unknown guy. You spend a few minutes lying next to Vika, having fun chatting with her while a drunk stranger pounds away at her.'
  145. gs 'willpower', 'voyeur', 'resist'
  146. if will_cost <= pcs_willpwr:
  147. act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
  148. else
  149. act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  150. end
  151. act 'Caress Vika':
  152. *clr & cla
  153. if vikasex = 0: vikasex = 1
  154. girl += 1
  155. lesbian += 1
  156. pcs_horny += 60
  157. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog81.jpg"></center>'
  158. 'You kiss and fondle at Vika''s breasts, making her wriggle and moan. She soon offers to reward you with some cunnilingus.'
  159. if pcs_horny < 100: 'You soon tire of the licking, wanting to get on with something else.'
  160. if pcs_horny >= 100: pcs_horny = 0 & orgasm += 1 & 'The muscles of your vagina start to clench and ripple with pleasure, a warm wave of pleasure suffusing your lower body as you howl in orgasm.'
  161. 'The stranger tugs his dick out of Vika with a wet schlurp and lifts his body to press it into her mouth.'
  162. act 'Watch':
  163. *clr & cla
  164. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog82.jpg"></center>'
  165. 'The man cums in Vika''s mouth with a shudder, prompting her to open her mouth and show off her creamy treat. You want to taste...'
  166. act 'Kiss Vika':
  167. *clr & cla
  168. spafinloc = 12
  169. gs 'cum_manage'
  170. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog83.jpg"></center>'
  171. 'You spend a couple of moments making out and snowballing the cum between the two of you.'
  172. act 'Leave': gt 'dorm', 'korr'
  173. end
  174. end
  175. act 'Share the dick':
  176. *clr & cla
  177. stat['bj'] += 1
  178. guy += 1
  179. spafinloc = 11
  180. gs 'cum_manage'
  181. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog84.jpg"></center>'
  182. 'You suck and lick the dick together, working as a team until the man climaxes across your faces and tongues.'
  183. act 'Kiss Vika':
  184. *clr & cla
  185. spafinloc = 12
  186. gs 'cum_manage'
  187. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog83.jpg"></center>'
  188. 'You spend a couple of moments making out and snowballing the cum between the two of you.'
  189. act 'Leave': gt 'dorm', 'korr'
  190. end
  191. end
  192. end
  193. end
  194. if $ARGS[0] = 'end9':
  195. cla
  196. '<center><img <<$set_imgh>> src="images/locations/shared/party/sex/itog9.jpg"></center>'
  197. 'Girls love to have fun, particularly drunken ones. You and two new girlfriends you met spend the party kissing and caressing each other, drawing a lot of admiring glances.'
  198. act 'Leave': gt 'dorm', 'korr'
  199. end
  200. if $ARGS[0] = 'end10':
  201. cla
  202. '<center><img <<$set_imgh>> src="images/locations/shared/party/itog10.jpg"></center>'
  203. 'You get drunk and dance with some stranger who spends the whole time pawing at your tits and making dirty comments.'
  204. gs 'willpower', 'foreplay', 'resist'
  205. if will_cost <= pcs_willpwr:
  206. act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm','korr'
  207. else
  208. act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  209. end
  210. act 'Grab his crotch':
  211. $sexloc = 'obroom'
  212. gs 'npcgeneratec', 0, 'stranger from a party', rand(18,28)
  213. gs 'boyStat', $npclastgenerated
  214. picrand = rand(20,40)
  215. gt 'sex', 'start'
  216. end
  217. end
  218. if $ARGS[0] = 'end11':
  219. *clr & cla
  220. spafinloc = 7
  221. gs 'cum_manage'
  222. '<center><img <<$set_imgh>> src="images/locations/shared/party/skirtcum.jpg"></center>'
  223. 'You wake up in a strange room, lying on a man''s stomach, thankfully still dressed although your hangover is killing you.'
  224. 'As you sit up, you notice something wet on your butt. What a bastard! He dragged you into some random room and came on your clothes.'
  225. act 'Leave': gt 'dorm', 'korr'
  226. end
  227. if $ARGS[0] = 'end12':
  228. *clr & cla
  229. minut += 15
  230. picrand = RAND(1,5)
  231. '<center><img <<$set_imgh>> src="images/locations/city/island/university/college_ass_show<<picrand>>.jpg"></center>'
  232. 'All girls love to party. You and a few others get drunk and decide to host a contest for who has the best ass.'
  233. act 'Leave': gt 'dorm', 'korr'
  234. end
  235. if $ARGS[0] = 'end13':
  236. *clr & cla
  237. minut += 15
  238. picrand = rand(3, 9)
  239. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vechend<<picrand>>.jpg"></center>'
  240. 'All mixed up in a big ball of women''s bodies, you can''t remember the name of the girl your fingers are exploring, put a face to the taste on your tongue, or identify who is delving into your pussy.'
  241. act 'More': gt 'vecher', 'end13'
  242. act 'Leave': gt 'dorm', 'korr'
  243. end
  244. if $ARGS[0] = 'twister':
  245. *clr & cla
  246. hour = 23
  247. '<center><img <<$set_imgh>> src="images/locations/city/island/university/twister0.jpg"></center>'
  248. 'You join a game. Everyone has fun, a heated competition developing as the bodies tangle together.'
  249. 'After a couple of rounds, one of the spectators drunkenly calls out that everyone should play naked and soon the whole crowd is chanting it.'
  250. gs 'willpower', 'exhib', 'resist', 'easy'
  251. if will_cost <= pcs_willpwr:
  252. act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
  253. else
  254. act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  255. end
  256. act 'Undress': gt 'vecher', 'twister_nude'
  257. end
  258. if $ARGS[0] = 'twister_nude':
  259. *clr & cla
  260. minut += 15
  261. pcs_horny += 30
  262. picrand = RAND(1,8)
  263. '<center><img <<$set_imgh>> src="images/locations/city/island/university/twister<<picrand>>.jpg"></center>'
  264. 'You undress and continue to play, making sure to take the most difficult and exposing postures you can. Throughout the game, you feel a lot of hands groping and caressing your body, warm bodies pressed tight into yours.'
  265. twister_rand = rand(1,3)
  266. if twister_rand = 1:
  267. cla
  268. act 'Leave': gt 'dorm', 'korr'
  269. end
  270. if twister_rand = 2:
  271. cla
  272. act 'Leave': gt 'dorm', 'korr'
  273. end
  274. if twister_rand = 3:
  275. cla
  276. act 'Leave': gt 'dorm', 'korr'
  277. end
  278. act 'Leave': gt 'dorm', 'korr'
  279. end
  280. --- vecher ---------------------------------