105_bouling 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134
  1. # bouling
  2. $sexloc = $CURLOC
  3. gs 'stat'
  4. '<center><b>Bowling</b></center>'
  5. '<center><img src="images/img/centr/boul.jpg"></center>'
  6. act 'Leave':gt 'torgcentr'
  7. if hour >= 8 and hour <= 20:
  8. act 'Play 300 rubles (1:00)':
  9. if money < 300:'You have no money'
  10. if money >= 300:
  11. set money -= 300
  12. set boulingnav += rand(0, 3)
  13. set minut += 60
  14. set boulrand = rand(0, 9)
  15. set boulvar = 0
  16. if boulrand = 0:
  17. cla
  18. 'To suit you two guys and offer to play with them'
  19. act 'Gamble, bet 2000':set boulvar = 1 & gt 'bouling', 'randwin'
  20. act 'Leave':gt 'torgcentr'
  21. end
  22. if boulrand = 1:
  23. cla
  24. 'To suit you two girls and offer to play with them against two guys prize 5000, at a loss of sex.'
  25. act 'Play':set boulvar = 2 & gt 'bouling', 'randwin'
  26. act 'Leave':gt 'torgcentr'
  27. end
  28. if boulrand > 1:
  29. cla
  30. 'You played billiards'
  31. act 'Leave':gt 'torgcentr'
  32. end
  33. end
  34. end
  35. if money >= 300:
  36. act 'Play for money':
  37. set money -= 300
  38. set minut += 60
  39. set boulvar = 0
  40. gt 'bouling', 'randwin'
  41. end
  42. end
  43. end
  44. if $ARGS[0] = 'randwin':
  45. cla
  46. if boulingnav < 10:set boulwin = rand(0, 10)
  47. if boulingnav >= 10 and boulingnav < 20:set boulwin = rand(0, 12)
  48. if boulingnav >= 20 and boulingnav < 30:set boulwin = rand(0, 14)
  49. if boulingnav >= 30 and boulingnav < 40:set boulwin = rand(0, 16)
  50. if boulingnav >= 40 and boulingnav < 50:set boulwin = rand(0, 18)
  51. if boulingnav >= 50 and boulingnav < 60:set boulwin = rand(0, 20)
  52. if boulingnav >= 60 and boulingnav < 70:set boulwin = rand(0, 22)
  53. if boulingnav >= 70 and boulingnav < 80:set boulwin = rand(0, 24)
  54. if boulingnav >= 80 and boulingnav < 90:set boulwin = rand(0, 26)
  55. if boulingnav >= 90:set boulwin = rand(0, 28)
  56. if boulwin > 10 and boulvar = 1:
  57. set money += 2000
  58. 'You won and received 2000 rubles.'
  59. act 'Leave':gt 'torgcentr'
  60. end
  61. if boulwin > 10 and boulvar = 2:
  62. set money += 5000
  63. 'You won and received 5000 rubles.'
  64. act 'Leave':gt 'torgcentr'
  65. end
  66. if boulwin <= 10 and boulvar = 1:
  67. set picrand = 14
  68. if money >= 2000:
  69. 'You lose and have to pay 2000 rubles.'
  70. act 'Offer in-kind':xgt 'sexdvoe', 'var'
  71. act 'Pay':
  72. set money -= 2000
  73. gt 'torgcentr'
  74. end
  75. end
  76. if money < 2000:
  77. 'You lost, but you do not have money to pay, only one payment method.'
  78. act 'In kind':xgt 'sexdvoe', 'var'
  79. end
  80. end
  81. if boulwin <= 10 and boulvar = 2:
  82. set picrand = 11
  83. 'You lose, will push the legs.'
  84. act 'Pay':gt 'sexorg', 'var'
  85. end
  86. if boulwin > 10 and boulvar = 0:
  87. set money += 300
  88. 'You won and got 300 rubles.'
  89. act 'Leave':gt 'torgcentr'
  90. end
  91. if boulwin <= 10 and boulvar = 0:
  92. !set money -= 300
  93. 'You lost and paid 300 rubles.'
  94. act 'Leave':gt 'torgcentr'
  95. end
  96. end
  97. if $ARGS[0] = 'start':
  98. '<center><b>Bowling</b></center>'
  99. '<center><img src="images/img/centr/boul.jpg"></center>'
  100. act 'Leave':gt 'bouling'
  101. end
  102. --- bouling ---------------------------------