bouling.qsrc 2.9 KB

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