1
0

bouling.qsrc 3.2 KB

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