mod_addedflavour_KSY_Events.qsrc 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267
  1. # mod_addedflavour_KSY_Events
  2. if $ARGS[0] = 'KSY-ParkOrgyEv-X1':
  3. *clr & cla
  4. minut += rand(1,3)
  5. modVar_AF_EventLock['KSY-ParkOrgyEv'] = daystart
  6. gs 'stat'
  7. gs 'themes', 'outdoors'
  8. '<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/oldtown/Kseniya/meet.jpg"></center>'
  9. *nl
  10. 'You approach Kseniya who looks up to see you with a smile. <font color="<<$npc_fontcolor[''KSY'']>>">"Hi ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! It''s a surprise to see you out here today."</font>'
  11. *nl
  12. '"It''s a surprise seeing you out here with clothes on!". This ellicits a chuckle from Kseniya who recognises that the only time you ever see her here is in the buff.'
  13. *nl
  14. if exhibitionQW >= 4:
  15. if modVar_AF_EventTriggered['KSY-ParkOrgyEv'] = 0:
  16. '<font color="<<$npc_fontcolor[''KSY'']>>">"You know what ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I was just sitting here pepping myself up before meeting some of my friends deeper in the woods and it comes to mind that the occasion is something you too would be interested in. You fancy..."</font> *mmm* <font color="<<$npc_fontcolor[''KSY'']>>">"...joining me?"</font>'
  17. *nl
  18. '<i>It does sound wholesome enough, what could be the harm...</i>'
  19. elseif modVar_AF_EventTriggered['KSY-ParkOrgyEv'] > 0:
  20. '<font color="<<$npc_fontcolor[''KSY'']>>">"Hey ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! I''m going to our little event again, do you fancy"</font> *mmm* <font color="<<$npc_fontcolor[''KSY'']>>">"coming with me? I''m sure you remember how much fun there is to be had!"</font>'
  21. *nl
  22. '<i>Well, it was a lot of fun...</i>'
  23. end
  24. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 3
  25. if modVar_AF_Inhib['Result'] = 1:
  26. act 'Go with Kseniya' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-X2'
  27. end
  28. else
  29. '<font color="<<$npc_fontcolor[''KSY'']>>">"Why haven''t you visited my shop yet! I''m looking forward to showing you my stock, I feel it will really show off your..."</font> *mmm* <font color="<<$npc_fontcolor[''KSY'']>>">"...curves."</font>'
  30. end
  31. act 'Say goodbye' : gt $loc, $loc_arg
  32. end
  33. if $ARGS[0] = 'KSY-ParkOrgyEv-X2':
  34. *clr & cla
  35. CLOSE ALL
  36. modVar_AF_EventTriggered['KSY-ParkOrgyEv'] += 1
  37. minut += rand(3,6)
  38. gs 'stat'
  39. gs 'themes', 'outdoors'
  40. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgyStart' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  41. *nl
  42. 'Kseniya has made sure you are wearing as skimpy a clothing as you can before the two of you start walking off into a more hidden area of the park. Sure enough it is not long before more people in a similar state of clothing start appearing alongside you.'
  43. *nl
  44. 'You get introduced quickly and shortly thereafter the pair of you are chatting amongst your new friends.'
  45. *nl
  46. 'After a short while you come across an open glade and see there is a small bbq and tent already set up; seems like a better place than many to start mingling.'
  47. act 'Mingle and Party' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-1'
  48. end
  49. if $ARGS[0] = 'KSY-ParkOrgyEv-1':
  50. *clr & cla
  51. minut += rand(8,12)
  52. modVar_AF_Rand = rand(1,4)
  53. modVar_AF_Temp = modVar_AF_Rand
  54. gs 'stat'
  55. gs 'themes', 'outdoors'
  56. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  57. *nl
  58. 'You immediately start integrating yourself into the group of people who have appeared in this seemingly random patch of grass. Kseniya seems to know them all well and is making sure they are all comfortable.'
  59. *nl
  60. 'As the music plays and alcohol is consumed, everyone is starting to loosen up.'
  61. act 'Party more' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-2'
  62. end
  63. if $ARGS[0] = 'KSY-ParkOrgyEv-2':
  64. *clr & cla
  65. minut += rand(8,12)
  66. :Kevrandloop1
  67. modVar_AF_Rand = rand(1,4)
  68. if modVar_AF_Rand = modVar_AF_Temp:
  69. jump 'Kevrandloop1'
  70. end
  71. gs 'stat'
  72. gs 'themes', 'outdoors'
  73. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  74. *nl
  75. 'The party is going well and everyone is comfortable in each others company. You have danced with girls and guys alike, and people have not been shy about touching you; something you certainly are not complaining about!'
  76. *nl
  77. 'The energy we are building here is already getting people a bit frisky. The sight of scantily-clad forms is boiling the desire in their eyes, let alone your own.'
  78. act 'Let loose!' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-3'
  79. end
  80. if $ARGS[0] = 'KSY-ParkOrgyEv-3':
  81. *clr & cla
  82. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
  83. minut += rand(5,10)
  84. modVar_AF_Rand = rand(5,8)
  85. modVar_AF_Temp = modVar_AF_Rand
  86. gs 'stat'
  87. gs 'themes', 'outdoors'
  88. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  89. *nl
  90. 'You look at Kseniya and see that she is first to start ramping up the sexuality on display and is freely revealing her most private areas.'
  91. *nl
  92. 'Not one to be left behind when showing your body, you start flashing your body as well!'
  93. act 'Keep this going' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-4'
  94. end
  95. if $ARGS[0] = 'KSY-ParkOrgyEv-4':
  96. *clr & cla
  97. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
  98. minut += rand(5,10)
  99. :Kevrandloop2
  100. modVar_AF_Rand = rand(5,8)
  101. if modVar_AF_Rand = modVar_AF_Temp:
  102. jump 'Kevrandloop2'
  103. end
  104. gs 'stat'
  105. gs 'themes', 'outdoors'
  106. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  107. *nl
  108. 'People are starting to get pretty excited! The music, the intoxication, the sexuality; all causing a surge of desire and want.'
  109. *nl
  110. 'You starting feeling up whoever you happen to be near, be it man or women! Any chance to get your hands on someone elses form is taken with wild abandon.'
  111. act 'Get Naked!' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-5'
  112. end
  113. if $ARGS[0] = 'KSY-ParkOrgyEv-5':
  114. *clr & cla
  115. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
  116. minut += rand(5,10)
  117. modVar_AF_Rand = rand(9,12)
  118. modVar_AF_Temp = modVar_AF_Rand
  119. gs 'stat'
  120. gs 'themes', 'outdoors'
  121. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  122. *nl
  123. 'No-one can hold on any more and soon people are grabbing the nearest person to them for their own personal use!'
  124. *nl
  125. 'Men have grabbed women by the shoulders then driven their cock deep into them; women have ripped the pants off total strangers just to kneel down and take their whole shaft into their eager throats; girls that had never even thought of kissing another girl were making out with them with a wild lust!'
  126. act 'Embrace the orgy' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-6'
  127. end
  128. if $ARGS[0] = 'KSY-ParkOrgyEv-6':
  129. *clr & cla
  130. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
  131. minut += rand(5,10)
  132. :Kevrandloop3
  133. modVar_AF_Rand = rand(9,12)
  134. if modVar_AF_Rand = modVar_AF_Temp:
  135. jump 'Kevrandloop3'
  136. end
  137. gs 'stat'
  138. gs 'themes', 'outdoors'
  139. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  140. *nl
  141. 'You are already starting to lose count of how many times you have orgasmed but even so there is no sign this fuck fest is letting up!'
  142. *nl
  143. 'You are getting the fucking of a lifetime and, by the looks of her, so is Kseniya.'
  144. act 'Go crazy!' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-7'
  145. end
  146. if $ARGS[0] = 'KSY-ParkOrgyEv-7':
  147. *clr & cla
  148. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
  149. minut += rand(5,10)
  150. modVar_AF_Rand = rand(13,16)
  151. modVar_AF_Temp = modVar_AF_Rand
  152. gs 'stat'
  153. gs 'themes', 'outdoors'
  154. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  155. *nl
  156. 'There is no inhibition left as more and more people start joining other peoples sex sessions. At times you have two to three cocks being inserted into you while at others you have multiple naked women pleasure you completely.'
  157. *nl
  158. 'Any sense of time or awareness of the world has been lost in the haze of sexual lust.'
  159. act 'Keep it going!' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-8'
  160. end
  161. if $ARGS[0] = 'KSY-ParkOrgyEv-8':
  162. *clr & cla
  163. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
  164. minut += rand(5,10)
  165. :Kevrandloop4
  166. modVar_AF_Rand = rand(13,16)
  167. if modVar_AF_Rand = modVar_AF_Temp:
  168. jump 'Kevrandloop4'
  169. end
  170. gs 'stat'
  171. gs 'themes', 'outdoors'
  172. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  173. *nl
  174. 'You see Kseniya being fucked hard and make a point of joining in with her.'
  175. *nl
  176. 'You make out with her, kiss her naked body, rub her perfect thighs and breasts; all while she is being pistoned into with hard cock!'
  177. act 'Drive this to completion' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-9'
  178. end
  179. if $ARGS[0] = 'KSY-ParkOrgyEv-9':
  180. *clr & cla
  181. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_AnalSex'
  182. minut += rand(5,10)
  183. $orgasm_or = 'yes'
  184. gs 'arousal', 'vaginal', 10
  185. gs 'arousal', 'end'
  186. gs 'stat'
  187. gs 'themes', 'outdoors'
  188. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgyEnd1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  189. *nl
  190. 'With the end being near everyone has moved together into one singular fuck pit. The last of everyones lust being signalled with the crying out of orgasms and the firing off of huge quantities of cum.'
  191. act 'Simmer down' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-10'
  192. end
  193. if $ARGS[0] = 'KSY-ParkOrgyEv-10':
  194. *clr & cla
  195. minut += rand(8,12)
  196. sexpartkno = 1
  197. gs 'npcgeneratec', 0, 'Kseniya''s Friend', rand(16,25)
  198. gs 'boyStat', $npclastgenerated
  199. spafinloc = 4
  200. gs 'Cum_Manage'
  201. sexpartkno = 1
  202. gs 'npcgeneratec', 0, 'Kseniya''s Friend', rand(16,25)
  203. gs 'boyStat', $npclastgenerated
  204. spafinloc = 8
  205. gs 'Cum_Manage'
  206. sexpartkno = 1
  207. gs 'npcgeneratec', 0, 'Kseniya''s Friend', rand(16,25)
  208. gs 'boyStat', $npclastgenerated
  209. spafinloc = 11
  210. gs 'Cum_Manage'
  211. sexpartkno = 1
  212. gs 'npcgeneratec', 0, 'Kseniya''s Friend', rand(16,25)
  213. gs 'boyStat', $npclastgenerated
  214. spafinloc = 12
  215. gs 'Cum_Manage'
  216. sexpartkno = 1
  217. gs 'npcgeneratec', 0, 'Kseniya''s Friend', rand(16,25)
  218. gs 'boyStat', $npclastgenerated
  219. spafinloc = 15
  220. gs 'Cum_Manage'
  221. gs 'stat'
  222. gs 'themes', 'outdoors'
  223. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgyEnd2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  224. *nl
  225. 'With everyone calming down we get together to recover and perhaps regain what is left of this ''<i>party</i>''.'
  226. *nl
  227. 'You chat with everyone again, some people embarrassingly after only seeing their faces for the first time! Before long you feel it has reached a point where you are ready to leave.'
  228. act 'Find Kseniya' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-11'
  229. end
  230. if $ARGS[0] = 'KSY-ParkOrgyEv-11':
  231. *clr & cla
  232. minut += rand(3,6)
  233. pcs_mood += 30
  234. gs 'stat'
  235. gs 'themes', 'outdoors'
  236. '<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/oldtown/Kseniya/leave.jpg"></center>'
  237. *nl
  238. 'You find Kseniya already saying her goodbye''s to everyone. Even after all that she seems confident and self-assured, you can only be impressed at her poise. She greets you with a look of someone with an orgasmic hangover.'
  239. *nl
  240. '<font color="<<$npc_fontcolor[''KSY'']>>">"That was quite something, wasn''t it ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!"</font>'
  241. *nl
  242. '"You''re telling me! Some warning next time wouldn''t go amiss! Not that I''m complaining, I don''t think I have ever been fucked harder than that. Anyway, shall we go?"'
  243. *nl
  244. '<font color="<<$npc_fontcolor[''KSY'']>>">"mmm... yeah! It''s probably the right time to."</font>'
  245. if salfetka <= 3:
  246. salfetka += 5
  247. *nl
  248. '<font color="<<$npc_fontcolor[''KSY'']>>">"Oh and I''ll think you''ll need these..."</font> Kseniya then hands you some Wet Wipes, and looking at yourself you agree they''ll be needed!'
  249. end
  250. *nl
  251. 'With that the pair of you head back out of the grove back to where you had initially met. Kseniya kisses your cheek after telling you how happy she was for you to be there with her, before walking off to leave you to do the same.'
  252. act 'Regain your composure' : gt $loc, $loc_arg
  253. end
  254. --- mod_addedflavour_KSY_Events ---------------------------------