billiard 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142
  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 main hall, but there are some tables in individual cubicles.'
  9. act 'Leave':gt 'torgcentr'
  10. if hour >= 8 and hour <= 20:
  11. if money >= 250:
  12. act 'Play (250 <b>₽</b>) (1:00)':
  13. money -= 250
  14. minut += 60
  15. billvar = 0
  16. billiardnav += rand(0, 3)
  17. billrand = rand(0, 5)
  18. if billrand = 0:
  19. cla
  20. 'It suits you and a guy offers to play with you'
  21. if money >= 1000:act 'Gamble (1000 <b>₽</b>)':gt 'billiard', 'randwin'
  22. if DOM > 20 and strapon = 1:
  23. act 'Play for his ass, sex if you lose':
  24. billvar = 1
  25. gt 'billiard', 'randwin'
  26. end
  27. end
  28. act 'Leave':gt 'billiard'
  29. elseif billrand = 1:
  30. cla
  31. 'It suits you and offer a couple of guys to play with them'
  32. if money >= 1000:act 'Gamble (1000 <b>₽</b>)':gt 'billiard', 'randwin'
  33. if DOM > 20 and strapon = 1:
  34. act 'Play for his ass, sex if you lose':
  35. billvar = 2
  36. gt 'billiard', 'randwin'
  37. end
  38. end
  39. act 'Leave':gt 'billiard'
  40. elseif billrand > 1:
  41. cla
  42. 'You played billiards.'
  43. act 'Leave':gt 'billiard'
  44. end
  45. end
  46. end
  47. if money >= 300:
  48. act 'Play for money (300 <b>₽</b>)':
  49. money -= 300
  50. minut += 60
  51. billvar = 3
  52. gt 'billiard', 'randwin'
  53. end
  54. end
  55. end
  56. if $ARGS[0] = 'randwin':
  57. cla
  58. if billiardnav < 10:billwin = rand(0, 10)
  59. if billiardnav >= 10 and billiardnav < 20:billwin = rand(0, 12)
  60. if billiardnav >= 20 and billiardnav < 30:billwin = rand(0, 14)
  61. if billiardnav >= 30 and billiardnav < 40:billwin = rand(0, 16)
  62. if billiardnav >= 40 and billiardnav < 50:billwin = rand(0, 18)
  63. if billiardnav >= 50 and billiardnav < 60:billwin = rand(0, 20)
  64. if billiardnav >= 60 and billiardnav < 70:billwin = rand(0, 22)
  65. if billiardnav >= 70 and billiardnav < 80:billwin = rand(0, 24)
  66. if billiardnav >= 80 and billiardnav < 90:billwin = rand(0, 26)
  67. if billiardnav >= 90:billwin = rand(0, 28)
  68. if billwin > 10 and billvar = 0:
  69. money += 1000
  70. 'You won and received 1,000 <b>₽</b>.'
  71. act 'Leave':gt 'billiard'
  72. elseif billwin > 10 and billvar = 1:
  73. *clr
  74. DOM += 5
  75. '<center><img src="images/img/centr/strapon.jpg"></center>'
  76. 'You win, put your strapon, and look at the guy, "Well bend over, today you''re my bitch."'
  77. 'The guy drops his pants and bends over, you peg that butt.'
  78. act 'Leave':gt 'billiard'
  79. elseif billwin > 10 and billvar = 2:
  80. DOM += 8
  81. '<center><img src="images/img/centr/strapon.jpg"></center>'
  82. 'You win, put your strapon, and look at the guys, "Come on girls panties down and asses up, now I''m going to fuck this whole harem."'
  83. 'You fuck them all in turn.'
  84. act 'Leave':gt 'billiard'
  85. elseif billwin > 10 and billvar = 3:
  86. money += 300
  87. 'You won and received 300 <b>₽</b>.'
  88. act 'Get_Away':gt 'billiard'
  89. elseif billwin <= 10 and billvar = 0:
  90. money -= 1000
  91. 'You lost and paid 1,000 <b>₽</b>.'
  92. act 'Leave':gt 'billiard'
  93. elseif billwin <= 10 and billvar = 1:
  94. 'You lose, open those legs.'
  95. picrand = 16
  96. act 'Pay':xgt 'sex', 'var'
  97. elseif billwin <= 10 and billvar = 2:
  98. 'You lose, open those legs.'
  99. dynamic $clrboy
  100. dynamic $CatName, 'Billiard player'
  101. dynamic $CatName, 'Billiard player', '$boy1'
  102. dynamic $CatName, 'Billiard player', '$boy2'
  103. $boy[1] = $boy1
  104. $boy[2] = $boy2
  105. act 'Pay':gt 'paysex', 'var'
  106. elseif billwin <= 10 and billvar = 3:
  107. money -= 300
  108. 'You lost and paid 300 <b>₽</b>.'
  109. act 'Leave':gt 'billiard'
  110. end
  111. end
  112. if $ARGS[0] = 'start':
  113. '<center><b>Pool</b></center>'
  114. '<center><img src="images/img/centr/bil.jpg"></center>'
  115. act 'Leave':gt 'billiard'
  116. end
  117. --- billiard ---------------------------------