mod_addedflavour_A702_Events.qsrc 31 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512
  1. # mod_addedflavour_A702_Events
  2. if $ARGS[0] = 'A702-SexTouchEv-1':
  3. *clr & cla
  4. if modVar_AF_SexProg['A700'] > modVar_AF_SexProg['TouchGate'] and modVar_AF_SexProg['A701'] > modVar_AF_SexProg['TouchGate']:
  5. $SFLA_PlayerSex_ThirdPartyName = '<<$npc_firstname[''A700'']>> & <<$npc_firstname[''A701'']>>'
  6. elseif modVar_AF_SexProg['A700'] > modVar_AF_SexProg['TouchGate']:
  7. $SFLA_PlayerSex_ThirdPartyName = $npc_firstname['A700']
  8. elseif modVar_AF_SexProg['A701'] > modVar_AF_SexProg['TouchGate']:
  9. $SFLA_PlayerSex_ThirdPartyName = $npc_firstname['A701']
  10. end
  11. gs 'stat'
  12. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  13. *nl
  14. '<font color="<<$npc_fontcolor[''A702'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! Just the person I''ve been wanting to see..."</font>'
  15. *nl
  16. '"What is it Jan?'
  17. *nl
  18. '<font color="<<$npc_fontcolor[''A702'']>>">"It''s nothing, just come in and sit down."</font>'
  19. *nl
  20. 'You do so but you can''t shake your feeling of apprehension about it...'
  21. act 'Sit down' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-2'
  22. end
  23. if $ARGS[0] = 'A702-SexTouchEv-2':
  24. *clr & cla
  25. minut += rand(1,2)
  26. gs 'stat'
  27. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  28. *nl
  29. '<font color="<<$npc_fontcolor[''A702'']>>">"That''s it, just pop your pert little bottom down here, next to me."</font>'
  30. *nl
  31. 'You sit there slightly nervous; you have no reason not to trust Janina but she definitely has you at a disadvantage.'
  32. act 'React to Jan' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-3'
  33. end
  34. if $ARGS[0] = 'A702-SexTouchEv-3':
  35. *clr & cla
  36. gs 'stat'
  37. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  38. *nl
  39. '<font color="<<$npc_fontcolor[''A702'']>>">"So ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', we''ve been getting to know eachother quite well recently, in fact you''ve been getting to know everyone recently..."</font>'
  40. *nl
  41. '"Yes... Everyone has been very kind in ingratiating into their home... I''m happy I''ve got to know all of you..."'
  42. *nl
  43. '<font color="<<$npc_fontcolor[''A702'']>>">"Indeed, but then you have got to know certain people more than others. There is how much you have got to know me; then there is how much you have got to know <<$SFLA_PlayerSex_ThirdPartyName>> isn''t there..."</font>'
  44. act '"Sorry..."' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-4'
  45. end
  46. if $ARGS[0] = 'A702-SexTouchEv-4':
  47. *clr & cla
  48. minut += rand(1,2)
  49. gs 'stat'
  50. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  51. *nl
  52. '<font color="<<$npc_fontcolor[''A702'']>>">"I should hope so, in fact I think it is time you found out just what it is like to get to know me..."</font>'
  53. *nl
  54. 'You are not quite sure what is happening but you are you can''t escape your submission to her.'
  55. act 'What does she have in mind...' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-5'
  56. end
  57. if $ARGS[0] = 'A702-SexTouchEv-5':
  58. *clr & cla
  59. minut += rand(1,2)
  60. gs 'stat'
  61. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  62. *nl
  63. 'She puts her hand on your exposed leg, rubbing gently so as to stake her claim.'
  64. *nl
  65. '<font color="<<$npc_fontcolor[''A702'']>>">"Lets talk about what I want and how that also happens to be what you want."</font>'
  66. *nl
  67. 'Her touches continue; and while she has you under her control you can''t help but agree with her. If it is your body she wants then you want her to have it, completely...'
  68. act 'Be compliant' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-6'
  69. end
  70. if $ARGS[0] = 'A702-SexTouchEv-6':
  71. *clr & cla
  72. minut += rand(1,3)
  73. gs 'stat'
  74. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  75. *nl
  76. '<font color="<<$npc_fontcolor[''A702'']>>">"Stay there, I''ll just go make sure we have our privacy."</font>'
  77. *nl
  78. 'She gets up to close the door. All the while you watch her intently; you''re not even worried anymore, just tense in anticipation of her desires.'
  79. act 'Let her have you' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-7'
  80. end
  81. if $ARGS[0] = 'A702-SexTouchEv-7':
  82. *clr & cla
  83. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Recv'
  84. gs 'stat'
  85. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  86. *nl
  87. '<font color="<<$npc_fontcolor[''A702'']>>">"Now, back to the subject of what we want..."</font>'
  88. *nl
  89. 'Without hesistation she moves on top of you, lifting your shirt to reveal your pert breasts, nipples of which already saluting her attention. She rewards them for their gesture, kissing them with subtle praise.'
  90. act 'Give more' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-8'
  91. end
  92. if $ARGS[0] = 'A702-SexTouchEv-8':
  93. *clr & cla
  94. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Give'
  95. gs 'stat'
  96. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-8' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  97. *nl
  98. '<font color="<<$npc_fontcolor[''A702'']>>">"Mmmm... There''s something of mine that you could use some attention as well ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '.."</font>'
  99. *nl
  100. 'You pick up on her instruction and move your hands to her breasts; stroking them, holding them, taking them for all their worth. It is now that you pick up on just how fired up Janina is, maybe it is more than just a game to her...'
  101. act 'Offer yourself' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-9'
  102. end
  103. if $ARGS[0] = 'A702-SexTouchEv-9':
  104. *clr & cla
  105. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
  106. gs 'stat'
  107. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-9' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  108. *nl
  109. '<font color="<<$npc_fontcolor[''A702'']>>">"Well done there ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I think someone has earned themselves a little reward!"</font>'
  110. *nl
  111. 'On uttering those words she moves down to your pussy, pulling back the measily fabric that defended it. Licking her fingertips with her brand she places them upon your vagina before letting them gently take more of you. You lay back letting your arousal dictate your responses.'
  112. act 'Be fingered' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-10'
  113. end
  114. if $ARGS[0] = 'A702-SexTouchEv-10':
  115. *clr & cla
  116. $orgasm_or = 'yes'
  117. gs 'arousal' , 'vaginal_finger' , rand(5,8)
  118. gs 'arousal', 'end'
  119. gs 'stat'
  120. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-10' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  121. *nl
  122. 'You sit back and let Jan have her way with you; her fingers going deeper as they explore your body. It is already too much as the situation has combined with the vaginal excitement to fire you quickly to your orgasm.'
  123. *nl
  124. '"Oh Jan!! I''m cumming! Do what you want with me just take me there with you!"'
  125. *nl
  126. 'You cum violently in her grasp making her very happy with herself.'
  127. *nl
  128. '<font color="<<$npc_fontcolor[''A702'']>>">"Now you''ve had your reward I think it is time I had mine!"</font>'
  129. act 'Do what she tells you' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-11'
  130. end
  131. if $ARGS[0] = 'A702-SexTouchEv-11':
  132. *clr & cla
  133. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Give'
  134. gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , 702 , rand(5,10)
  135. modVar_AF_SexProg['A702'] += 1
  136. gs 'stat'
  137. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-11' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  138. *nl
  139. 'You get yourself into position to finger Janina''s pussy, doing so with vigor in order to satisfy your eagerness to please. You suspected she was far more turned on then se was letting on and she confirms it by rising to the boil very quickly.'
  140. *nl
  141. '<font color="<<$npc_fontcolor[''A702'']>>">"Yes ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', keep going, that''s it... I am going to cum!"</font>'
  142. *nl
  143. 'And with that she does so, cumming as violently as you did but still managing the aura of control over you.'
  144. *nl
  145. '<font color="<<$npc_fontcolor[''A702'']>>">"Well, well, ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; will have to do that again some time won''t we?"</font>'
  146. *nl
  147. 'You don''t even pretend to hide your agreement and leave her to her satisfaction...'
  148. act 'Leave her be' : gt 'mod_addedflavour_SFLA_Bedr3' , 'start'
  149. end
  150. if $ARGS[0] = 'A702-SexKissEv-X1':
  151. *clr & cla
  152. gs 'stat'
  153. '<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
  154. *nl
  155. '"Jan, I have really enjoyed how our relationship has developed, especially recently, but I''m also worried, worried that maybe you are not serious about your relationship with me..."'
  156. *nl
  157. '<font color="<<$npc_fontcolor[''A702'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you have nothing to worry about; come on, let''s go to your room and chat about it."</font>'
  158. *nl
  159. 'Taking your hand, she guides you to your room for a private talk.'
  160. act 'Be taken to your room' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-1'
  161. end
  162. if $ARGS[0] = 'A702-SexKissEv-1':
  163. *clr & cla
  164. minut += rand(1,2)
  165. gs 'stat'
  166. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw2-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  167. *nl
  168. '<font color="<<$npc_fontcolor[''A702'']>>">"Come on ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', speak to me."</font>'
  169. *nl
  170. '"Well, it''s just that I want to know, are you interested in us getting closer or is it just a game; or worse, jealousy..."'
  171. *nl
  172. '<font color="<<$npc_fontcolor[''A702'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '..."</font>'
  173. act 'Listen to her' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-2'
  174. end
  175. if $ARGS[0] = 'A702-SexKissEv-2':
  176. *clr & cla
  177. gs 'stat'
  178. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw2-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  179. *nl
  180. '<font color="<<$npc_fontcolor[''A702'']>>">"... you don''t need to worry. Nothing about what we have been doing has been a game to me. Maybe I came on a bit strong before but that''s just who I am. But people are able to be more than ourselves and I certainly want to be more with you..."</font>'
  181. *nl
  182. '"Really?"'
  183. *nl
  184. '<font color="<<$npc_fontcolor[''A702'']>>">"Really, ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '..."</font>'
  185. act 'She leans towards you' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-3'
  186. end
  187. if $ARGS[0] = 'A702-SexKissEv-3':
  188. *clr & cla
  189. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
  190. gs 'stat'
  191. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw2-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  192. *nl
  193. 'While you are being taken in by the clarity of the moment, Janina kisses you. It is genuine and feels just as you wanted it to, so you greet it with kissing of your own.'
  194. act 'Get handsy' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-4'
  195. end
  196. if $ARGS[0] = 'A702-SexKissEv-4':
  197. *clr & cla
  198. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
  199. gs 'stat'
  200. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw2-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  201. *nl
  202. 'The eroticism of the moment is overtaking you prompting your hands to go hunting for pleasure of their own, finding it in Janina''s perfect form. She in turn lets her hands go hunting, being rewarded with the sensory joy of your smooth skin.'
  203. act 'Kiss more' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-5'
  204. end
  205. if $ARGS[0] = 'A702-SexKissEv-5':
  206. *clr & cla
  207. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
  208. gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , 702 , rand(10,20)
  209. modVar_AF_SexProg['A702'] += 1
  210. modVar_AF_Rand = rand(5,10)
  211. gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 702 , 'mod_addedflavour_SFLA_Bedr4' , 'Resting' , modVar_AF_Rand
  212. gs 'stat'
  213. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw2-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  214. *nl
  215. '<font color="<<$npc_fontcolor[''A702'']>>">"I hope that satisfies any fears you might have had ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '."</font>'
  216. *nl
  217. '"Definitely, and I want to satisfy them more soon..."'
  218. *nl
  219. 'She smiles at your suggestion filling you with confidence to proceed with your relationship, for now though you''ll let her rest.'
  220. act 'Return with your satisfaction' : gt 'mod_addedflavour_SFLA_Bedr4' , 'start'
  221. end
  222. if $ARGS[0] = 'A702-SexOralEv-X1':
  223. *clr & cla
  224. gs 'stat'
  225. '<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
  226. *nl
  227. 'You idle around listlessly, looking bored and bereft of interest...'
  228. *nl
  229. '<font color="<<$npc_fontcolor[''A702'']>>">"You look a bit bored ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '. I know! How about some Poker; you up for that?"</font>'
  230. *nl
  231. '"Yeah! That sounds like a brillo idea!"'
  232. *nl
  233. '<font color="<<$npc_fontcolor[''A702'']>>">"Fantastic, Strip Poker it is, follow me."</font>'
  234. act 'Wait... what?' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-1'
  235. end
  236. if $ARGS[0] = 'A702-SexOralEv-1':
  237. *clr & cla
  238. minut += rand(1,2)
  239. gs 'stat'
  240. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  241. *nl
  242. 'Before you even have a chance to question what you have just agreed to Janina has you in her bedroom, cards in hand!'
  243. *nl
  244. 'You must not be fully up to speed with things as you have run out of faux money in double quick time!'
  245. *nl
  246. '<font color="<<$npc_fontcolor[''A702'']>>">"Right, come on ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; get them clothes off, you need to get your money back!"</font>'
  247. *nl
  248. '"Wait a minute, what.... Ok..."'
  249. act 'Take off your clothes' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-2'
  250. end
  251. if $ARGS[0] = 'A702-SexOralEv-2':
  252. *clr & cla
  253. minut += rand(5,9)
  254. gs 'stat'
  255. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  256. *nl
  257. 'You start taking your clothes off until you are in just your underwear.'
  258. *nl
  259. '<font color="<<$npc_fontcolor[''A702'']>>">"Come on ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', some people have money to win..."</font>'
  260. *nl
  261. 'You meet her playful gaze as you get yourself back into the game.'
  262. act 'Play a good hand' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-3'
  263. end
  264. if $ARGS[0] = 'A702-SexOralEv-3':
  265. *clr & cla
  266. minut += rand(4,7)
  267. gs 'stat'
  268. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  269. *nl
  270. 'You manage to outplay her in the hand; masterfully playing out a rouse that got her to bet her entire pot.'
  271. *nl
  272. '"Ha! Look whose winning now! And what was that about clothes if you want all this lovely money back?"'
  273. *nl
  274. 'Jan was not quite expecting to lose but knows the rules she made, and so takes off her clothes down to her underwear as well.'
  275. *nl
  276. '<font color="<<$npc_fontcolor[''A702'']>>">"Right, new game, how about Draughts?"</font>'
  277. *nl
  278. '"Ummm... yeah OK, I suppose I''m up for that..."'
  279. *nl
  280. '<font color="<<$npc_fontcolor[''A702'']>>">"Strip Draughts it is! I''ll get the board."</font>'
  281. act 'Fall for it again...' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-4'
  282. end
  283. if $ARGS[0] = 'A702-SexOralEv-4':
  284. *clr & cla
  285. minut += rand(3,9)
  286. gs 'stat'
  287. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  288. *nl
  289. 'Soon enough the board is ready and there is two very attractive girls playing Draughts on it. It doesn''t take long before she has managed to win this game, your mind still a bit confused at the sudden change after all.'
  290. *nl
  291. '<font color="<<$npc_fontcolor[''A702'']>>">"Well, well, well; get that underwear off lady, you know the rules!"</font>'
  292. *nl
  293. 'You can''t help but feel like you have not had the upper hand since you got in the room, but acquiesce and start taking your clothes off.'
  294. act 'Take off your underwear' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-5'
  295. end
  296. if $ARGS[0] = 'A702-SexOralEv-5':
  297. *clr & cla
  298. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
  299. gs 'stat'
  300. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  301. *nl
  302. 'You soon have your underwear off, all while under Janina''s watchful eyes. You are naked but something tells this is not the end of it...'
  303. act 'Play the next game' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-6'
  304. end
  305. if $ARGS[0] = 'A702-SexOralEv-6':
  306. *clr & cla
  307. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
  308. gs 'stat'
  309. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  310. *nl
  311. 'Boom! A win of your own. You look to Jan waiting for her to follow suit and get those clothes off!'
  312. *nl
  313. 'She does so and by the time you have removed the board you are back as two naked young women, alone on a bed...'
  314. act 'Sit alongside Jan' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-7'
  315. end
  316. if $ARGS[0] = 'A702-SexOralEv-7':
  317. *clr & cla
  318. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
  319. gs 'stat'
  320. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  321. *nl
  322. '<font color="<<$npc_fontcolor[''A702'']>>">"Well ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I think you''ll agree I won that, I think its time for my prize..."</font>'
  323. *nl
  324. '"Wait a second... Did I lose that. Wait, what did I lose... Wait, what did you win?"'
  325. *nl
  326. '<font color="<<$npc_fontcolor[''A702'']>>">"My point exactly ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', and I believe there is some nipples here just waiting patiently for some attention..."</font>'
  327. *nl
  328. 'She leans back, her fingers gently orbiting her areola, a clear signal of what you need to do...'
  329. act 'Reward those breasts' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-8'
  330. end
  331. if $ARGS[0] = 'A702-SexOralEv-8':
  332. *clr & cla
  333. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Give'
  334. gs 'stat'
  335. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-8' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  336. *nl
  337. 'You bring yourself to her and immediately start licking her breasts, your tongue guiding your lips to their destination. Janina meanwhile takes it all in, a mixture of smug success and satisfaction.'
  338. *nl
  339. '<font color="<<$npc_fontcolor[''A702'']>>">"Mmmm... I''m loving every moment of this but there is something else I want that tongue to be doing."</font>'
  340. *nl
  341. 'You look up into her eyes which meet yours, holding your gaze while her hands push you down her body.'
  342. act 'Taste her vagina' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-9'
  343. end
  344. if $ARGS[0] = 'A702-SexOralEv-9':
  345. *clr & cla
  346. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Cuni_Give'
  347. gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , 702 , rand(30,50)
  348. gs 'stat'
  349. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-9' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  350. *nl
  351. 'You have been mentally preparing to take your relationship to the next level so show no hesitation in taking the plunge. After a brief moment to take in the sights you move in and start licking lustily at her mound. You show no restraint in allowing your tongue to go whereever it can reach, lapping at whatever it finds.'
  352. *nl
  353. 'It is not long before you feel her start to tense before her inevitable orgasm lands!'
  354. *nl
  355. '<font color="<<$npc_fontcolor[''A702'']>>">"Wow, that was quite something ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', it''s great when a plan comes together... talking about cumming together, I think it is someone elses turn..."</font>'
  356. *nl
  357. 'You take a moment to understand what she is driving at but you get there eventually.'
  358. act 'Let her lay you down' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-10'
  359. end
  360. if $ARGS[0] = 'A702-SexOralEv-10':
  361. *clr & cla
  362. $orgasm_or = 'yes'
  363. gs 'arousal' , 'cuni' , rand(5,8)
  364. gs 'arousal', 'end'
  365. modVar_AF_SexProg['A702'] += 1
  366. modVar_AF_Rand = rand(5,10)
  367. gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 702 , 'mod_addedflavour_SFLA_Bedr3' , 'Resting' , modVar_AF_Rand
  368. gs 'stat'
  369. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-10' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  370. *nl
  371. 'Janina has you swapped over in double quick time and before you are even in place she has her lips pressed against your vagina. The feeling is immense as normally forthright Jan is suprisingly gentle with you, teasing and pleasuring in equal measure. Still, it does not manage to slow down your arousal; you can already feel your orgasm bursting its banks!'
  372. *nl
  373. 'And it arrives with no warning, the sudden surge enough to take Janina of guard.'
  374. *nl
  375. '<font color="<<$npc_fontcolor[''A702'']>>">"Bloody hell ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', there''s no half measures when it comes to you is there! I''m already looking forward to the next time we can do this!"</font>'
  376. act 'Regain your composure' : gt 'mod_addedflavour_SFLA_Bedr3' , 'start'
  377. end
  378. if $ARGS[0] = 'A702-SexVaginalEv-X1':
  379. *clr & cla
  380. gs 'stat'
  381. '<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
  382. *nl
  383. '<font color="<<$npc_fontcolor[''A700'']>>">"Hey ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', are you OK? You are giving me a weird look..."</font>'
  384. *nl
  385. '"Oh Jan, I''m more than OK; in fact i''m hornier than I have ever been and I''m looking at you..."'
  386. *nl
  387. '<font color="<<$npc_fontcolor[''A700'']>>">"What? Really? Hey, wait, I''m supposed to be in co-"</font>'
  388. *nl
  389. '"Never mind that, get those clothes off, I want you more than ever!"'
  390. act 'Tear off Janina''s clothes' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-1'
  391. end
  392. if $ARGS[0] = 'A702-SexVaginalEv-1':
  393. *clr & cla
  394. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Give'
  395. gs 'stat'
  396. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702QW4-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  397. *nl
  398. 'You have Janina''s clothes off even before she has a chance to question this sudden role reversal, and while she is admiring her own breasts you go in for more.'
  399. act 'Remove her bra' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-2'
  400. end
  401. if $ARGS[0] = 'A702-SexVaginalEv-2':
  402. *clr & cla
  403. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Give'
  404. gs 'stat'
  405. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702QW4-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  406. *nl
  407. '<font color="<<$npc_fontcolor[''A700'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; I''ve never seen this side of you... I am yours, do with me what you will..."</font>'
  408. *nl
  409. 'And you certainly intend to, starting by pleasuring her perfect breasts.'
  410. act 'Flip her over' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-3'
  411. end
  412. if $ARGS[0] = 'A702-SexVaginalEv-3':
  413. *clr & cla
  414. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
  415. gs 'stat'
  416. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702QW4-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  417. *nl
  418. 'You grab her shoulders and move her so she is laying under you. With you both be completely naked now you move in and press your body into hers, kissing her ferociously, licking her breasts, feeling her body...'
  419. act 'Get some Pussy Action' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-4'
  420. end
  421. if $ARGS[0] = 'A702-SexVaginalEv-4':
  422. *clr & cla
  423. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
  424. gs 'stat'
  425. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702QW4-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  426. *nl
  427. 'With her still completely under your spell you rear up, interlocking your legs with hers. Then just as she is comprehending the situation your start grinding your pussy into hers; the feeling of lips gliding across lips causing your arousal to surge.'
  428. act 'Take it further' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-5'
  429. end
  430. if $ARGS[0] = 'A702-SexVaginalEv-5':
  431. *clr & cla
  432. $orgasm_or = 'yes'
  433. gs 'arousal' , 'trib' , rand(5,8)
  434. gs 'arousal', 'end'
  435. gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , 702 , rand(30,50)
  436. modVar_AF_SexProg['A702'] += 1
  437. modVar_AF_Rand = rand(15,20)
  438. gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 702 , 'mod_addedflavour_SFLA_Sitr' , 'Sleeping' , modVar_AF_Rand
  439. gs 'stat'
  440. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw4-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  441. *nl
  442. 'You grind your body harder against hers, forcing your respective orgasms to the fore. You are almost out of control; grabbing her feet and using it as a toy to excite your nipples even more. Janina is equally lost to it; herself on the precifice of a monumental orgasm.'
  443. *nl
  444. '<font color="<<$npc_fontcolor[''A702'']>>">"OH MY GOD!! ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!! I''m cumming!!! I AM CUMMING!!!!"</font>'
  445. *nl
  446. '"ME TOO!!! I am cumming hard! Oh my god!! MY GOD!!!"'
  447. *nl
  448. 'The resulting explosion of vaginal excitement culminates in a high magnitude co-operative orgasm leaving you both breathless on the sofa. You only just manage to stay conscious but Janina is gone, passed out in what is effectively a cum-coma. Once you have regained your composure you start to get everything back to normal. You decide to let Jan sleep; you do hope she will be alright!'
  449. act 'Return to normal somehow!' : gt 'mod_addedflavour_SFLA_Sitr' , 'start'
  450. end
  451. if $ARGS[0] = 'A702-ShowerEv-1':
  452. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Give'
  453. gs 'stat'
  454. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702ShowerEv1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  455. *nl
  456. 'Jan confidently walks into the Shower with you; pulling your arm around her as she does so.'
  457. *nl
  458. '<font color="<<$npc_fontcolor[''A702'']>>">"I hope you have saved some of those suds for me ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!"</font>'
  459. *nl
  460. 'You pick up on the instruction and immediately start ringing a sponge to allow a shower of bath foam to flow down her back and over her perfectly formed ass.'
  461. act 'Apply more suds' : gt 'mod_addedflavour_A702_Events' , 'A702-ShowerEv-2'
  462. end
  463. if $ARGS[0] = 'A702-ShowerEv-2':
  464. gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Give'
  465. gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 702 , 'mod_addedflavour_SFLA_BaRm' , 'Bathing' , rand(5,15)
  466. gs 'stat'
  467. '<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702ShowerEv2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
  468. *nl
  469. 'You can hear Janina purring in satisfaction as you take your hands and rub in the rich bath foam into her body, taking special care to massage her firm arse cheeks.'
  470. *nl
  471. '<font color="<<$npc_fontcolor[''A702'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', your are a expert this, I''ll have to share more of my showers with you in future!"</font>'
  472. *nl
  473. 'You smile at your success and maintain the pleasant feeling as the two of you finish up.'
  474. act 'Finish up' : gt $loc, $loc_arg
  475. end
  476. --- mod_addedflavour_A702_Events ---------------------------------