101_billiard 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155
  1. # billiard
  2. $sexloc = $CURLOC
  3. cla
  4. *clr
  5. gs 'stat'
  6. '<center><b>Pool</b></center>'
  7. '<center><img src="images/img/centr/bil.jpg"></center>'
  8. 'Quite a large billiard room, there are plenty of tables in the hall, but there are tables in individual cubicles.'
  9. act 'Leave':gt 'torgcentr'
  10. if hour >= 8 and hour <= 20:
  11. if money >= 250:
  12. act 'Play 250 rubles (1:00)':
  13. set money -= 250
  14. set billiardnav += rand(0, 3)
  15. set minut += 60
  16. set billrand = rand(0, 5)
  17. set billvar = 0
  18. if billrand = 0:
  19. cla
  20. 'It suits you and the guy offers to play with him'
  21. if money >= 1000:act 'Gamble, bet 1000':gt 'billiard', 'randwin'
  22. if DOM > 20 and strapon = 1:
  23. act 'Play on your ass, fuck me lose':
  24. set billvar = 1
  25. gt 'billiard', 'randwin'
  26. end
  27. end
  28. act 'Leave':gt 'billiard'
  29. end
  30. if billrand = 1:
  31. cla
  32. 'It suits you and offer a couple of guys to play with them'
  33. if money >= 1000:act 'Gamble, bet 1000':gt 'billiard', 'randwin'
  34. if DOM > 20 and strapon = 1:
  35. act 'Play on your ass, fuck me lose':
  36. set billvar = 2
  37. gt 'billiard', 'randwin'
  38. end
  39. end
  40. act 'Leave':gt 'billiard'
  41. end
  42. if billrand > 1:
  43. cla
  44. 'You played billiards'
  45. act 'Leave':gt 'billiard'
  46. end
  47. end
  48. end
  49. if money >= 300:
  50. act 'Play for money':
  51. set money -= 300
  52. set minut += 60
  53. set billvar = 3
  54. gt 'billiard', 'randwin'
  55. end
  56. end
  57. end
  58. if $ARGS[0] = 'randwin':
  59. cla
  60. if billiardnav < 10:set billwin = rand(0, 10)
  61. if billiardnav >= 10 and billiardnav < 20:set billwin = rand(0, 12)
  62. if billiardnav >= 20 and billiardnav < 30:set billwin = rand(0, 14)
  63. if billiardnav >= 30 and billiardnav < 40:set billwin = rand(0, 16)
  64. if billiardnav >= 40 and billiardnav < 50:set billwin = rand(0, 18)
  65. if billiardnav >= 50 and billiardnav < 60:set billwin = rand(0, 20)
  66. if billiardnav >= 60 and billiardnav < 70:set billwin = rand(0, 22)
  67. if billiardnav >= 70 and billiardnav < 80:set billwin = rand(0, 24)
  68. if billiardnav >= 80 and billiardnav < 90:set billwin = rand(0, 26)
  69. if billiardnav >= 90:set billwin = rand(0, 28)
  70. if billwin > 10 and billvar = 0:
  71. set money += 1000
  72. 'You won and received 1000 rubles.'
  73. act 'Leave':gt 'billiard'
  74. end
  75. if billwin > 10 and billvar = 1:
  76. *clr
  77. set DOM += 5
  78. '<center><img src="images/img/centr/strapon.jpg"></center>'
  79. 'You win, put a strap, and looked at the guy, "Well stand stoop, today you´re my bitch"'
  80. 'The guy dropped his pants and got cancer, you fucked his threesome.'
  81. act 'Leave':gt 'billiard'
  82. end
  83. if billwin > 10 and billvar = 2:
  84. set DOM += 8
  85. '<center><img src="images/img/centr/strapon.jpg"></center>'
  86. 'You won dressed strap, and looked at the guys:"Come on girls panties descend and rise at all, I now this whole harem going to fuck"'
  87. 'You fucked them all in turn.'
  88. act 'Leave':gt 'billiard'
  89. end
  90. if billwin <= 10 and billvar = 0:
  91. set money -= 1000
  92. 'You lost and paid 1000 rubles.'
  93. act 'Leave':gt 'billiard'
  94. end
  95. if billwin <= 10 and billvar = 1:
  96. 'You lose, will push the legs.'
  97. set picrand = 16
  98. act 'Pay':xgt 'sex', 'var'
  99. end
  100. if billwin <= 10 and billvar = 2:
  101. 'You lose, will push the legs.'
  102. act 'Pay':gt 'paysex', 'var'
  103. end
  104. if billwin > 10 and billvar = 3:
  105. set money += 300
  106. 'You won and got 300 rubles.'
  107. act 'Leave':gt 'billiard'
  108. end
  109. if billwin <= 10 and billvar = 3:
  110. !set money -= 300
  111. 'You lost and paid 300 rubles.'
  112. act 'Leave':gt 'billiard'
  113. end
  114. end
  115. if $ARGS[0] = 'start':
  116. '<center><b>Pool</b></center>'
  117. '<center><img src="images/img/centr/bil.jpg"></center>'
  118. act 'Leave':gt 'billiard'
  119. end
  120. --- billiard ---------------------------------