billiard 3.9 KB

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