1
0

bouling.qsrc 4.2 KB

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