kazinosvid.qsrc 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230
  1. # kazinosvid
  2. if $ARGS[0] = '':
  3. menu_off = 1
  4. $location_type = 'event'
  5. minut += 60
  6. kisvrand = 0
  7. pcs_mood += 10
  8. gs 'stat'
  9. '<center><b>Cinema</b></center>'
  10. '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cards/0.jpg"></center>'
  11. 'You sit down with <<$telsob>> to have some drinks, and play some cards.'
  12. act 'Play':
  13. if $telsob = 'Alla':
  14. alla += 1
  15. if alla >= 20:
  16. kisvrand = rand(0, 8)
  17. if kisvrand < 2:
  18. gt 'kazinosvid', '1'
  19. elseif kisvrand < 4:
  20. gt 'kazinosvid', '2'
  21. else
  22. gt 'kazinosvid', '3'
  23. end
  24. else
  25. gt 'kazinosvid', '3'
  26. end
  27. elseif $telsob = 'Masha':
  28. masha += 1
  29. if masha >= 20:
  30. kisvrand = rand(0, 8)
  31. if kisvrand < 2:
  32. gt 'kazinosvid', '1'
  33. elseif kisvrand < 4:
  34. gt 'kazinosvid', '2'
  35. else
  36. gt 'kazinosvid', '3'
  37. end
  38. else
  39. gt 'kazinosvid', '3'
  40. end
  41. elseif $telsob = 'Kate':
  42. npc_rel['A219'] += 1
  43. if npc_rel['A219'] >= 20:
  44. kisvrand = rand(0, 8)
  45. if kisvrand < 2:
  46. gt 'kazinosvid', '1'
  47. elseif kisvrand < 4:
  48. gt 'kazinosvid', '2'
  49. else
  50. gt 'kazinosvid', '3'
  51. end
  52. else
  53. gt 'kazinosvid', '3'
  54. end
  55. elseif $telsob = $loverdesc[lover_number]:
  56. !! date with girlfriend
  57. loverrelation[lover_number] += 1
  58. if loverrelation[lover_number] >= 20:
  59. kisvrand = rand(0, 8)
  60. if kisvrand > 0 and kisvrand < 3:gt 'kazinosvid', '1'
  61. if kisvrand > 2 and kisvrand < 5:gt 'kazinosvid', '2'
  62. if kisvrand = 0 or kisvrand > 4:gt 'kazinosvid', '3'
  63. else
  64. gt 'kazinosvid', '3'
  65. end
  66. end
  67. end
  68. end
  69. if $ARGS[0] = '1':
  70. *clr & cla
  71. '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cards/0.jpg"></center>'
  72. 'While playing with <<$telsob>>, two guys walk up your table.'
  73. '"Would you lovely ladies care to join us in our room for a game of cards," one man offers.'
  74. '<<$telsob>> says she does''t mind, and looks at you for an answer.'
  75. act 'Refuse':gt 'kazinosvid', '3'
  76. act 'Agree':
  77. *clr & cla
  78. picrand = rand(14, 15)
  79. '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cards/<<picrand>>.jpg"></center>'
  80. randkazinv = rand(0, 1)
  81. randkazinvsum = rand(100, 10000)
  82. if randkazinv = 1:
  83. money += randkazinvsum
  84. 'These guys didn''t stand a chance. You won <<randkazinvsum>> rubles. As you and <<$telsob>> are about to leave, the guys beg you stay: "Come on girls, you can''t just take our money and run. Sit down have another drink. We have entertainments other than cards to offer."<br>From the bulge is his pants, It''s pretty clear what kind of entertainment he has in mind.'
  85. telsobnastr = rand(0, 10)
  86. if telsobnastr < 4:
  87. 'No, it''s time we were on our way," says <<$telsob>>. She takes you by the hand, and leads you out of the room.'
  88. act 'Finish':gt 'kazinosvid', '3'
  89. else
  90. '"I wouldn''t mind consoling the losers," says <<$telsob>>, with a lustful look in her eye. One of the men starts to unbutton his fly.'
  91. act 'Take <<$telsob>> and leave.':gt 'kazinosvid', '3'
  92. act 'Console the losers':
  93. kazsexdva = 1
  94. guy += 2
  95. gang += 1
  96. xgt 'sexdvanadva', 'var'
  97. end
  98. end
  99. else
  100. 'Those guys were better card players than they looked. You lost <<randkazinvsum>> rubles to them.'
  101. if money < randkazinvsum:
  102. 'You and <<$telsob>> don''t even have enough money to pay them. It looks like you have no choice other than spreading your legs for them.'
  103. act 'Pay them':
  104. kazsexdva = 1
  105. guy += 2
  106. gang += 1
  107. xgt 'sexdvanadva', 'var'
  108. end
  109. else
  110. 'You have enough money to pay them, but the guys are obviously hinting that they would rather take another form of payment from you.'
  111. if telsobnastr < 4:
  112. money -= randkazinvsum
  113. '"Here''s your money, we are leaving," says <<$telsob>>. She takes you by the hand, and leads you out of the room.'
  114. act 'Finish':gt 'kazinosvid', '3'
  115. else
  116. '"I wouldn''t mind an alternative payment plan," says <<$telsob>>, smiling lasciviously.'
  117. act 'Give them the money, and leave with <<$telsob>>.':
  118. money -= randkazinvsum
  119. gt 'kazinosvid', '3'
  120. end
  121. gs 'willpower', 'misc', 'self', 'hard'
  122. if will_cost <= pcs_willpwr:
  123. act 'Use an alternative form of payment (<<will_cost>> Willpower)':
  124. kazsexdva = 1
  125. guy += 2
  126. gang += 1
  127. gs 'willpower', 'pay', 'self'
  128. gs 'stat'
  129. xgt 'sexdvanadva', 'var'
  130. end
  131. else
  132. act 'Use an alternative form of payment (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  133. end
  134. end
  135. end
  136. end
  137. end
  138. end
  139. if $ARGS[0] = '2':
  140. *clr & cla
  141. '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cards/0.jpg"></center>'
  142. 'While you are playing with <<$telsob>>, you attract the attention of a man.'
  143. '"Would you lovely ladies like to join me in my room for a private game?" he asks.'
  144. '<<$telsob>> says she does''t mind, and looks at you for an answer.'
  145. act 'Refuse':gt 'kazinosvid', '3'
  146. act 'Agree':
  147. *clr & cla
  148. '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cards/3.jpg"></center>'
  149. 'After arriving in his room, everyone sits on the bed and begins to play cards.'
  150. 'A few minutes later the man says: "Let''s up the stakes. I''m willing to gamble with my clothing if you ladies are."'
  151. '<<$telsob>> giggled, "You may end up naked and ashamed, <<$pcs_nickname>> and I haven''t lost a hand yet."'
  152. '"I have nothing to be ashamed of," the man grins.'
  153. gs 'willpower', 'misc', 'self', 'medium'
  154. if will_cost <= pcs_willpwr:
  155. act 'Take <<$telsob>> and leave (<<will_cost>> Willpower)':
  156. gs 'willpower', 'pay', 'self'
  157. gs 'stat'
  158. gt 'kazinosvid', '3'
  159. end
  160. else
  161. act 'Take <<$telsob>> and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  162. end
  163. act 'Play strip poker':
  164. *clr & cla
  165. '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cards/4.jpg"></center>'
  166. 'It''s not until you and <<$telsob>> are down to your panties that you think this guy might have been sandbagging. He still has all his clothes!'
  167. '<<$telsob>> pouts, "I know we agreed, but you have to cheating."'
  168. 'The man replies: "Be a good girl and get those panties off. For the next round I''ll even let you change cards, either way I feel like I''ve already won."'
  169. '"Fine," <<$telsob>> says, with an exaggerated sigh. "<<$pcs_nickname>> help me remove my panties."'
  170. act 'Keep playing':
  171. *clr & cla
  172. '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cards/5.jpg"></center>'
  173. 'Minutes later, You are both naked, and he is standing in front of you with his pants down. It must''ve been the wine that lead you to this predicament.'
  174. '"Well ladies, it looks you''re all out of clothes. There is only one thing you have left to offer as payment," he says, while slowly stroking himself.'
  175. act 'Go for it':
  176. guy += 1
  177. picrand = 23
  178. kazsexdva = 1
  179. gt 'podrsex', 'suck'
  180. end
  181. end
  182. end
  183. end
  184. end
  185. if $ARGS[0] = '3':
  186. *clr & cla
  187. pcs_horny = 10
  188. minut += 90
  189. gs 'stat'
  190. '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cards/0.jpg"></center>'
  191. if $telsob = $loverdesc[lover_number]:
  192. 'After your fun, <<$telsob>> looks at you and waits for your next move.'
  193. act 'Say goodbye': gt 'nord'
  194. act 'Invite her to your home': gt 'lezbsex', 'startloverhome'
  195. else
  196. 'After your fun, <<$telsob>> says she has to go. She leaves you with a little kiss on the cheek.'
  197. act 'Leave':gt 'nord'
  198. end
  199. end
  200. --- kazinosvid ---------------------------------