kazinosvid 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190
  1. # kazinosvid
  2. set minut += 60
  3. set kisvrand = 0
  4. set manna += 10
  5. gs 'stat'
  6. '<center><b>Cinema</b></center>'
  7. '<center><img src="images/img/kazinosvid/0.jpg"></center>'
  8. 'And you <<$telsob>> sat down at the table and began to play.'
  9. act 'Play':
  10. if $telsob = 'Alla':
  11. set alla += 1
  12. if alla >= 20:
  13. set kisvrand = rand(0, 10)
  14. if kisvrand > 0 and kisvrand < 3:gt 'kazinosvid', '1'
  15. if kisvrand > 2 and kisvrand < 5:gt 'kazinosvid', '2'
  16. if kisvrand = 0 or kisvrand > 4:gt 'kazinosvid', '3'
  17. end
  18. if alla < 20:gt 'kazinosvid', '3'
  19. end
  20. if $telsob = 'Masha':
  21. set masha += 1
  22. if masha >= 20:
  23. set kisvrand = rand(0, 10)
  24. if kisvrand > 0 and kisvrand < 3:gt 'kazinosvid', '1'
  25. if kisvrand > 2 and kisvrand < 5:gt 'kazinosvid', '2'
  26. if kisvrand = 0 or kisvrand > 4:gt 'kazinosvid', '3'
  27. end
  28. if masha < 20:gt 'kazinosvid', '3'
  29. end
  30. if $telsob = 'Katia':
  31. set kat += 1
  32. if kat >= 20:
  33. set kisvrand = rand(0, 10)
  34. if kisvrand > 0 and kisvrand < 3:gt 'kazinosvid', '1'
  35. if kisvrand > 2 and kisvrand < 5:gt 'kazinosvid', '2'
  36. if kisvrand = 0 or kisvrand > 4:gt 'kazinosvid', '3'
  37. end
  38. if kat < 20:gt 'kazinosvid', '3'
  39. end
  40. end
  41. if $ARGS[0] = '1':
  42. cla
  43. *clr
  44. '<center><img src="images/img/kazinosvid/0.jpg"></center>'
  45. 'While you play you two guys hooked and offered to play two by two in their room.'
  46. '<<$telsob>> said that she does not mind and looked questioningly at you.'
  47. act 'Refuse':gt 'kazinosvid', '3'
  48. act 'Agree':
  49. cla
  50. *clr
  51. set picrand = rand(14, 15)
  52. '<center><img src="images/img/kazinosvid/<<picrand>>.jpg"></center>'
  53. set randkazinv = rand(0, 1)
  54. set randkazinvsum = rand(100, 10000)
  55. if randkazinv = 1:
  56. set money += randkazinvsum
  57. 'You won and your share <<randkazinvsum>> rub. You and <<$telsob>> were about to leave, but the guys started to beg you to stay, "C´mon girls, to take the time can sit down, have a drink, take a closer look. Well losers are left reassurance" said one rastegnuv his pants and pulled out a member, clearly implying any consolation he waits .'
  58. set telsobnastr = rand(0, 10)
  59. if telsobnastr < 4:
  60. '"No, it´s time, reassurance to themselves." said <<$telsob>> and taking you by the hand brought back to the gym'
  61. act 'Finish':gt 'kazinosvid', '3'
  62. end
  63. if telsobnastr > 3:
  64. '"I do not mind console losers" said <<$telsob>> lustfully smiling and looking at the guy who has his fly open from sticking member.'
  65. act 'Pick up <<$telsob>> and leave.':gt 'kazinosvid', '3'
  66. act 'To console the losers':
  67. set kazsexdva = 1
  68. set guy += 2
  69. set gang += 1
  70. xgt 'sexdvanadva', 'var'
  71. end
  72. end
  73. end
  74. if randkazinv = 0:
  75. 'You lost your share and loss <<randkazinvsum>> rub.'
  76. if money < randkazinvsum:
  77. 'You have no money to pay and <<$telsob>> also have no money left to pay that, no options have to open your legs.'
  78. act 'Pay in kind':
  79. set kazsexdva = 1
  80. set guy += 2
  81. set gang += 1
  82. xgt 'sexdvanadva', 'var'
  83. end
  84. end
  85. if money >= randkazinvsum:
  86. 'Do you have enough money to pay and <<$telsob>> that also have enough money to pay, but the guys obviously hints that do not necessarily pay the money, they would gladly accept another form of payment.'
  87. if telsobnastr < 4:
  88. set money -= randkazinvsum
  89. '"No, we go, here´s your money." said <<$telsob>> and taking you by the hand brought back to the gym'
  90. act 'Finish':gt 'kazinosvid', '3'
  91. end
  92. if telsobnastr > 3:
  93. '"I do not mind to use an alternative form of payment, " said <<$telsob>> smiling lasciviously.'
  94. act 'Giving money to pick up <<$telsob>> and leave.':
  95. set money -= randkazinvsum
  96. gt 'kazinosvid', '3'
  97. end
  98. act 'Use an alternative form of payment':
  99. set kazsexdva = 1
  100. set guy += 2
  101. set gang += 1
  102. xgt 'sexdvanadva', 'var'
  103. end
  104. end
  105. end
  106. end
  107. end
  108. end
  109. if $ARGS[0] = '2':
  110. cla
  111. *clr
  112. '<center><img src="images/img/kazinosvid/0.jpg"></center>'
  113. 'While you are playing you addicted man and offered to play with him in his room.'
  114. '<<$telsob>> said that she does not mind and looked questioningly at you.'
  115. act 'Refuse':gt 'kazinosvid', '3'
  116. act 'Agree':
  117. cla
  118. *clr
  119. '<center><img src="images/img/kazinosvid/3.jpg"></center>'
  120. 'Arriving at the room you are located on the bed and began to play a few minutes later a guy offered to play on the strip. <<$telsob>> giggled "And then you do not be ashamed, but you see so far have never won, " grinned the guy, "I have nothing to be ashamed of."'
  121. act 'Refuse to pick up <<$telsob>> and leave':gt 'kazinosvid', '3'
  122. act 'Agree':
  123. cla
  124. *clr
  125. '<center><img src="images/img/kazinosvid/4.jpg"></center>'
  126. 'After a few minutes and you <<$telsob>> already removed her panties. "It does not honestly, you spetsalno first succumbed to we agreed" said <<$telsob>>, defiantly pout.'
  127. '"Good girl, the last game the two of you against me, you can even change the cards, win doing that tell fun too lose to the fullest." the guy said.'
  128. '"Playing" immediately blurted <<$telsob>>'
  129. act 'Play':
  130. cla
  131. *clr
  132. '<center><img src="images/img/kazinosvid/5.jpg"></center>'
  133. 'A minute later he was standing with his pants down, "Well girls, gambling debt - holy, the incident" he said pointing to his dildo'
  134. act 'Start':
  135. set guy += 1
  136. set picrand = 23
  137. set kazsexdva = 1
  138. gt 'podrsex', 'var'
  139. end
  140. end
  141. end
  142. end
  143. end
  144. if $ARGS[0] = '3':
  145. cla
  146. set horny = 0
  147. set minut += 90
  148. gs 'stat'
  149. 'Soon <<$telsob>> said that she had to flee and left'
  150. act 'Leave':gt 'nord'
  151. end
  152. --- kazinosvid ---------------------------------