1
0

bouling 3.0 KB

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