billiard 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136
  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. 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 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. 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, bet 1000':gt 'billiard', 'randwin'
  33. if DOM > 20 and strapon = 1:
  34. act 'Play on your ass, fuck me 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 billiard.'
  43. act 'Leave':gt 'billiard'
  44. end
  45. end
  46. end
  47. if money >= 300:
  48. act 'Play for money (300 rubles)':
  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 rubles.'
  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 a strap, and looked at the guy, "Well stand stoop, today you''re my bitch"'
  77. 'The guy dropped his pants and got cancer, you fucked his threesome.'
  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 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"'
  83. 'You fucked 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 rubles.'
  88. act 'Get_Away':gt 'billiard'
  89. elseif billwin <= 10 and billvar = 0:
  90. money -= 1000
  91. 'You lost and paid 1,000 rubles.'
  92. act 'Leave':gt 'billiard'
  93. elseif billwin <= 10 and billvar = 1:
  94. 'You lose, will push the legs.'
  95. picrand = 16
  96. act 'Pay':xgt 'sex', 'var'
  97. elseif billwin <= 10 and billvar = 2:
  98. 'You lose, will push the legs.'
  99. act 'Pay':gt 'paysex', 'var'
  100. elseif billwin <= 10 and billvar = 3:
  101. money -= 300
  102. 'You lost and paid 300 rubles.'
  103. act 'Leave':gt 'billiard'
  104. end
  105. end
  106. if $ARGS[0] = 'start':
  107. '<center><b>Pool</b></center>'
  108. '<center><img src="images/img/centr/bil.jpg"></center>'
  109. act 'Leave':gt 'billiard'
  110. end
  111. --- billiard ---------------------------------