1
0

bouling.qsrc 3.1 KB

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