1
0

bouling 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119
  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 <b>₽</b>) (1:00)':
  9. if money < 300:
  10. 'You don''t have enough money.'
  11. else
  12. money -= 300
  13. minut += 60
  14. boulvar = 0
  15. boulingnav += rand(0, 3)
  16. boulrand = rand(0, 9)
  17. dynamic $CatName, 'Bowling Competitor'
  18. dynamic $CatName, 'Bowling Competitor', '$boy1'
  19. if boulrand = 0:
  20. cla
  21. 'You see two guys and they challenge you to a game.'
  22. act 'Gamble (2000 <b>₽</b>)':boulvar = 1 & gt 'bouling', 'randwin'
  23. act 'Leave':gt 'torgcentr'
  24. elseif boulrand = 1:
  25. cla
  26. 'You meet two girls and they suggest challenging two guys to a game: Prize 5000 <b>₽</b>, lose and they have sex with you.'
  27. act 'Play':boulvar = 2 & gt 'bouling', 'randwin'
  28. act 'Leave':gt 'torgcentr'
  29. elseif boulrand > 1:
  30. cla
  31. 'You play a game.'
  32. act 'Leave':gt 'torgcentr'
  33. end
  34. end
  35. end
  36. if money >= 300:
  37. act 'Play for money (300 <b>₽</b>)':
  38. money -= 300
  39. minut += 60
  40. boulvar = 0
  41. gt 'bouling', 'randwin'
  42. end
  43. end
  44. end
  45. if $ARGS[0] = 'randwin':
  46. cla
  47. if boulingnav < 10:boulwin = rand(0, 10)
  48. if boulingnav >= 10 and boulingnav < 20:boulwin = rand(0, 12)
  49. if boulingnav >= 20 and boulingnav < 30:boulwin = rand(0, 14)
  50. if boulingnav >= 30 and boulingnav < 40:boulwin = rand(0, 16)
  51. if boulingnav >= 40 and boulingnav < 50:boulwin = rand(0, 18)
  52. if boulingnav >= 50 and boulingnav < 60:boulwin = rand(0, 20)
  53. if boulingnav >= 60 and boulingnav < 70:boulwin = rand(0, 22)
  54. if boulingnav >= 70 and boulingnav < 80:boulwin = rand(0, 24)
  55. if boulingnav >= 80 and boulingnav < 90:boulwin = rand(0, 26)
  56. if boulingnav >= 90:boulwin = rand(0, 28)
  57. if boulwin > 10 and boulvar = 0:
  58. money += 300
  59. 'You won and received 300 <b>₽</b>.'
  60. act 'Get_Away':gt 'torgcentr'
  61. elseif boulwin > 10 and boulvar = 1:
  62. money += 2000
  63. 'You won and received 2,000 <b>₽</b>.'
  64. act 'Leave':gt 'torgcentr'
  65. elseif boulwin > 10 and boulvar = 2:
  66. money += 5000
  67. 'You won and received 5,000 <b>₽</b>.'
  68. act 'Leave':gt 'torgcentr'
  69. elseif boulwin <= 10 and boulvar = 0:
  70. money -= 300
  71. 'You lost and paid 300 <b>₽</b>.'
  72. act 'Leave':gt 'torgcentr'
  73. elseif boulwin <= 10 and boulvar = 1:
  74. picrand = 14
  75. if money >= 2000:
  76. 'You lose and have to pay 2,000 <b>₽</b>.'
  77. act 'Offer sex instead':xgt 'sexdvoe', 'var'
  78. act 'Pay':
  79. money -= 2000
  80. gt 'torgcentr'
  81. end
  82. else
  83. 'You lost, but you do not have money to pay, only one thing for it.'
  84. act 'Offer sex instead':xgt 'sexdvoe', 'var'
  85. end
  86. elseif boulwin <= 10 and boulvar = 2:
  87. picrand = 11
  88. 'You lose, open those legs.'
  89. act 'Pay':gt 'sexorg', 'var'
  90. end
  91. end
  92. if $ARGS[0] = 'start':
  93. '<center><b>Bowling</b></center>'
  94. '<center><img src="images/img/centr/boul.jpg"></center>'
  95. act 'Leave':gt 'bouling'
  96. end
  97. --- bouling ---------------------------------