bouling 2.7 KB

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