billsvid.qsrc 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297
  1. # billsvid
  2. if $ARGS[0] = '':
  3. menu_off = 1
  4. $location_type = 'event'
  5. minut += 60
  6. bilrand = 0
  7. pcs_mood += 10
  8. bilsvidukiy = 0
  9. bilsvidkiy = 0
  10. gs 'stat'
  11. '<center><b>Pool</b></center>'
  12. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/0.jpg"></center>'
  13. 'You and <<$telsob>> rent a booth'
  14. act 'Play':
  15. if $telsob = 'Alla':
  16. alla += 1
  17. if alla >= 20:
  18. bilrand = rand(0, 10)
  19. if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
  20. if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
  21. if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
  22. elseif alla < 20:
  23. gt 'billsvid', '3'
  24. end
  25. elseif $telsob = 'Masha':
  26. masha += 1
  27. if masha >= 20:
  28. bilrand = rand(0, 10)
  29. if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
  30. if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
  31. if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
  32. elseif masha < 20:
  33. gt 'billsvid', '3'
  34. end
  35. elseif $telsob = 'Kate':
  36. npc_rel['A219'] += 1
  37. if npc_rel['A219'] >= 20:
  38. bilrand = rand(0, 10)
  39. if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
  40. if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
  41. if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
  42. else
  43. gt 'billsvid', '3'
  44. end
  45. elseif $telsob = $loverdesc[lover_number]:
  46. !! date with girlfriend
  47. loverrelation[lover_number] += 1
  48. if loverrelation[lover_number] >= 20:
  49. bilrand = rand(0, 10)
  50. if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
  51. if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
  52. if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
  53. else
  54. gt 'billsvid', '3'
  55. end
  56. end
  57. end
  58. end
  59. if $ARGS[0] = '1':
  60. *clr & cla
  61. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/1.jpg"></center>'
  62. 'When you once again leaned over the table to play a shot, <<$telsob>> leans over and slips her hands on your hips, then upwards to cup your breasts.'
  63. gs 'arousal', 'foreplay', 5, 'lesbian'
  64. gs 'stat'
  65. gs 'willpower', 'cuni', 'resist'
  66. if will_cost <= pcs_willpwr:
  67. act 'Not now <<$telsob>> (<<will_cost>> Willpower)':
  68. gs 'willpower', 'cuni', 'resist'
  69. gs 'willpower', 'pay', 'resist'
  70. gs 'stat'
  71. gt 'billsvid', '3'
  72. end
  73. else
  74. act 'Not now <<$telsob>> (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  75. end
  76. act 'Kiss her':
  77. *clr & cla
  78. lesbian += 1
  79. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/2.jpg"></center>'
  80. 'You turn around and kiss her, in response <<$telsob>> quickly takes off her clothes, helps you strip and throws you against the table, you jump on it, and continue to kiss.'
  81. gs 'arousal', 'kiss', 5, 'lesbian'
  82. gs 'stat'
  83. act 'Lick her':gt 'billsvid', '10'
  84. gs 'willpower', 'cuni', 'force'
  85. if will_cost <= pcs_willpwr:
  86. act 'Get licked (<<will_cost>> Willpower)':
  87. gs 'willpower', 'cuni', 'force'
  88. gs 'willpower', 'pay', 'force'
  89. gs 'stat'
  90. gt 'billsvid', '11'
  91. end
  92. else
  93. act 'Get licked (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  94. end
  95. end
  96. end
  97. if $ARGS[0] = '10':
  98. *clr & cla
  99. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/4.jpg"></center>'
  100. 'She leans over the table and squatting yourself behind her, you press your lips to her pussy. You kiss her and caress with your tongue until she came.'
  101. gs 'arousal', 'cuni_give', 5, 'lesbian'
  102. gs 'stat'
  103. gs 'willpower', 'cuni', 'force'
  104. if will_cost <= pcs_willpwr:
  105. act 'Get licked (<<will_cost>> Willpower)':
  106. gs 'willpower', 'cuni', 'force'
  107. gs 'willpower', 'pay', 'force'
  108. gs 'stat'
  109. gt 'billsvid', '11'
  110. end
  111. else
  112. act 'Get licked (<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. if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
  115. if bilsvidukiy = 0:act 'Ask her to play with a cue':gt 'billsvid', '13'
  116. end
  117. if $ARGS[0] = '11':
  118. *clr & cla
  119. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/3.jpg"></center>'
  120. 'You stand in front of the table, legs spread, and <<$telsob>> dropping to her knees in front of you begins to kiss your pussy, but her tongue does not bring you to the desired state.'
  121. gs 'arousal', 'cuni', 5, 'lesbian'
  122. gs 'stat'
  123. act 'Lick her':gt 'billsvid', '10'
  124. if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
  125. if bilsvidukiy = 0:
  126. gs 'willpower', 'sex', 'force'
  127. if will_cost <= pcs_willpwr:
  128. act 'Ask her to play with a cue (<<will_cost>> Willpower)':
  129. gs 'willpower', 'sex', 'force'
  130. gs 'willpower', 'pay', 'force'
  131. gs 'stat'
  132. gt 'billsvid', '13'
  133. end
  134. else
  135. act 'Ask her to play with a cue (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  136. end
  137. end
  138. end
  139. if $ARGS[0] = '12':
  140. *clr & cla
  141. bilsvidkiy = 1
  142. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/6.jpg"></center>'
  143. '<<$telsob>> climbs on the table and spreads her legs wide. Picking up the cue you deside to try and pot the pink in the middle pocket. <<$telsob>> diligently responds your movements and rhythm. A few minutes later collapsing on the table in a shuddering orgasm.'
  144. gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian'
  145. gs 'stat'
  146. if bilsvidukiy = 0:
  147. gs 'willpower', 'sex', 'force'
  148. if will_cost <= pcs_willpwr:
  149. act 'Ask her to play with a cue (<<will_cost>> Willpower)':
  150. gs 'willpower', 'sex', 'force'
  151. gs 'willpower', 'pay', 'force'
  152. gs 'stat'
  153. gt 'billsvid', '13'
  154. end
  155. else
  156. act 'Ask her to play with a cue (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  157. end
  158. end
  159. act 'Finish':gt 'billsvid', '3'
  160. end
  161. if $ARGS[0] = '13':
  162. *clr & cla
  163. pcs_vag += 1
  164. bilsvidukiy = 1
  165. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/5.jpg"></center>'
  166. 'You sit on the edge of the table, throwing one leg on the table. "How''s my cueing action?" <<$telsob>> jokes as she dramatically uses her tongue to moisten her cue, before quickly inserting it into you pussy. You squeal in surprise. She diligently fucks you with the cue, turning it in different directions, you''re massaging your clitoris with a finger. After a few minutes pleasant sensations spread through your body and you float into a world of orgasm.'
  167. $orgasm_or = 'yes'
  168. gs 'arousal', 'vaginal_dildo', 5, 'lesbian'
  169. gs 'stat'
  170. if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
  171. act 'Finish':gt 'billsvid', '3'
  172. end
  173. if $ARGS[0] = '2':
  174. *clr & cla
  175. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/10.jpg"></center>'
  176. 'During the game <<$telsob>> is constantly trying to put her arms around you, she wraps her hand around your hips, then casually touchs your chest.'
  177. gs 'arousal', 'foreplay', 5, 'lesbian'
  178. gs 'stat'
  179. gs 'willpower', 'cuni', 'resist'
  180. if will_cost <= pcs_willpwr:
  181. act 'Continue to play <<$telsob>> (<<will_cost>> Willpower)':
  182. gs 'willpower', 'cuni', 'resist'
  183. gs 'willpower', 'pay', 'resist'
  184. gs 'stat'
  185. gt 'billsvid', '3'
  186. end
  187. else
  188. act 'Continue to play <<$telsob>> (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  189. end
  190. act 'Kiss her':
  191. *clr & cla
  192. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/11.jpg"></center>'
  193. 'When <<$telsob>> once again put her hand on your stomach, you move closer to her and kiss. Her hand immediately slipped under your clothes and massages your breast.'
  194. gs 'arousal', 'kiss', 5, 'lesbian'
  195. gs 'stat'
  196. act 'Proceed':
  197. *clr & cla
  198. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/12.jpg"></center>'
  199. '<<$telsob>> knelt down and taking off your clothes starts to kiss you down toward your crotch, until her tongue is under your pussy.'
  200. gs 'arousal', 'foreplay', 5, 'lesbian'
  201. gs 'stat'
  202. act 'Lick her':
  203. *clr & cla
  204. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/13.jpg"></center>'
  205. 'Lifting her knee onto the table you kneel below her, pull her panties aside and begin to kiss her pussy, caress it with your tongue and suck it between your lips.'
  206. gs 'arousal', 'cuni_give', 5, 'lesbian'
  207. gs 'stat'
  208. act 'Proceed':
  209. *clr & cla
  210. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/14.jpg"></center>'
  211. 'turning to face you, you help her onto the table and spreading her legs continue to caress her pussy with your tongue until she cums.'
  212. gs 'arousal', 'cuni_give', 5, 'lesbian'
  213. gs 'stat'
  214. act 'Your turn':
  215. *clr & cla
  216. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/15.jpg"></center>'
  217. 'When <<$telsob>> has finished, you climb on the table and position your pussy right in front of her face, <<$telsob>> immediately begins to caress you with her lips, and parting you with her fingers she tries to thrust her tongue even deeper.'
  218. gs 'arousal', 'cuni', 5, 'lesbian'
  219. gs 'stat'
  220. act 'Lick her':
  221. *clr & cla
  222. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/16.jpg"></center>'
  223. 'You turn around so that your face is above her pussy, and start licking her. In a few minutes you feel as her body shake and <<$telsob>> groans strongly pressing against your pussy, and then you are shrouded in pleasant waves of orgasm.'
  224. $orgasm_or = 'yes'
  225. gs 'arousal', 'cuni', 5, 'lesbian'
  226. gs 'stat'
  227. act 'Finish':gt 'billsvid', '3'
  228. end
  229. end
  230. end
  231. end
  232. end
  233. end
  234. end
  235. if $ARGS[0] = '3':
  236. cla
  237. minut += 60
  238. gs 'arousal', 'end'
  239. gs 'stat'
  240. if $telsob = $loverdesc[lover_number]:
  241. 'When you have finished playing, <<$telsob>> looks at you and waits for your next move.'
  242. act 'Say goodbye': gt 'torgcentr'
  243. act 'Invite her to your home': gt 'lezbsex', 'startloverhome'
  244. else
  245. 'When you have finished playing, <<$telsob>> says that she needs to run and leaves.'
  246. act 'Leave': gt 'torgcentr'
  247. end
  248. end
  249. --- billsvid ---------------------------------