1
0

bouling.qsrc 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139
  1. # bouling
  2. if $ARGS[0] = 'start' or $ARGS[0] = '':
  3. $sexloc = 'bouling'
  4. *clr & cla
  5. $loc = 'bouling'
  6. $loc_arg = '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. killvar 'boulrand'
  32. 'You see two guys and they challenge you to a game.'
  33. act 'Gamble (2000 <b>₽</b>)':boulvar = 1 & gt 'bouling', 'randwin'
  34. gs 'willpower', 'sex', 'resist', 'hard'
  35. if will_cost <= pcs_willpwr:
  36. act 'Refuse and play a normal game (<<will_cost>> Willpower)':
  37. gs 'willpower', 'sex', 'resist', 'hard'
  38. gs 'willpower', 'pay', 'resist'
  39. gs 'stat'
  40. gt 'bouling', 'randwin'
  41. end
  42. else
  43. act 'Refuse and play a normal game (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  44. end
  45. elseif boulrand = 1:
  46. killvar 'boulrand'
  47. 'You meet two girls and they suggest challenging two guys to a game: Prize 5000 <b>₽</b>, lose and they have sex with you.'
  48. act 'Play':boulvar = 2 & gt 'bouling', 'randwin'
  49. gs 'willpower', 'sex', 'resist', 'hard'
  50. if will_cost <= pcs_willpwr:
  51. act 'Refuse and play a normal game (<<will_cost>> Willpower)':
  52. gs 'willpower', 'sex', 'resist', 'hard'
  53. gs 'willpower', 'pay', 'resist'
  54. gs 'stat'
  55. gt 'bouling', 'randwin'
  56. end
  57. else
  58. act 'Refuse and play a normal game (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  59. end
  60. elseif boulrand > 1:
  61. killvar 'boulrand'
  62. gt 'bouling', 'randwin'
  63. end
  64. end
  65. end
  66. end
  67. if $ARGS[0] = 'randwin':
  68. cla
  69. if boulingnav < 10:boulwin = rand(0, 10)
  70. if boulingnav >= 10 and boulingnav < 20:boulwin = rand(0, 12)
  71. if boulingnav >= 20 and boulingnav < 30:boulwin = rand(0, 14)
  72. if boulingnav >= 30 and boulingnav < 40:boulwin = rand(0, 16)
  73. if boulingnav >= 40 and boulingnav < 50:boulwin = rand(0, 18)
  74. if boulingnav >= 50 and boulingnav < 60:boulwin = rand(0, 20)
  75. if boulingnav >= 60 and boulingnav < 70:boulwin = rand(0, 22)
  76. if boulingnav >= 70 and boulingnav < 80:boulwin = rand(0, 24)
  77. if boulingnav >= 80 and boulingnav < 90:boulwin = rand(0, 26)
  78. if boulingnav >= 90:boulwin = rand(0, 28)
  79. if boulwin > 10 and boulvar = 0:
  80. money += 300
  81. 'You won and received 300 <b>₽</b>.'
  82. act 'Leave': gt 'bouling'
  83. elseif boulwin > 10 and boulvar = 1:
  84. money += 2000
  85. 'You won and received 2,000 <b>₽</b>.'
  86. act 'Leave': gt 'bouling'
  87. elseif boulwin > 10 and boulvar = 2:
  88. money += 5000
  89. 'You won and received 5,000 <b>₽</b>.'
  90. act 'Leave': gt 'bouling'
  91. elseif boulwin <= 10 and boulvar = 0:
  92. money -= 300
  93. 'You lost and paid 300 <b>₽</b>.'
  94. act 'Leave': gt 'bouling'
  95. elseif boulwin <= 10 and boulvar = 1:
  96. picrand = 14
  97. if money >= 2000:
  98. 'You lose and have to pay 2,000 <b>₽</b>.'
  99. gs 'willpower', 'sex', 'self', 'hard'
  100. if will_cost <= pcs_willpwr:
  101. act 'Offer sex instead (<<will_cost>> Willpower)':
  102. gs 'willpower', 'sex', 'self', 'hard'
  103. gs 'willpower', 'pay', 'self'
  104. gs 'stat'
  105. xgt 'sexdvoe', 'var'
  106. end
  107. else
  108. act 'Offer sex instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  109. end
  110. act 'Pay': money -= 2000 & gt 'bouling'
  111. else
  112. 'You lost, but you do not have money to pay, only one thing for it.'
  113. act 'Offer sex instead':xgt 'sexdvoe', 'var'
  114. end
  115. elseif boulwin <= 10 and boulvar = 2:
  116. picrand = 11
  117. 'You lose, open those legs.'
  118. act 'Pay':gt 'sexorg', 'var'
  119. end
  120. killvar 'boulwin'
  121. end
  122. --- bouling ---------------------------------