sportShop 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175
  1. # sportShop
  2. if $ARGS[0] = 'start':
  3. $location_type = 'public_indoors'
  4. cla
  5. clr
  6. *clr
  7. minut += 5
  8. gs 'stat'
  9. if night_mode = 1:
  10. fcolor = rgb(255, 255, 255)
  11. bcolor = rgb(0, 0, 0)
  12. lcolor = rgb(106, 90, 205)
  13. else
  14. fcolor = rgb(0, 0, 0)
  15. bcolor = rgb(255, 255, 255)
  16. lcolor = rgb(106, 90, 205)
  17. end
  18. '<center><b><font color="maroon">Sporting goods store</font></b></center>'
  19. '<center><img src="images/locations/city/citycenter/mall/sportshop/sportshop.jpg"></center>'
  20. act 'Leave':
  21. cla
  22. minut += 5
  23. gt 'torgcentr'
  24. end
  25. act 'View sports clothes':
  26. cla
  27. minut += 5
  28. gt 'sportshop', 'clo'
  29. end
  30. act 'View swimwear':
  31. cla
  32. minut += 5
  33. gt 'sportshop', 'swim'
  34. end
  35. if skak = 0 and money >= 500:
  36. act 'Buy skipping rope (500 <b>₽</b>)':
  37. cla
  38. minut += 5
  39. money -= 500
  40. skak = 1
  41. act 'Pick up a package':gt 'sportshop', 'start'
  42. end
  43. end
  44. if obruch = 0 and money >= 1500:
  45. act 'Buy hoop (1,500 <b>₽</b>)':
  46. cla
  47. minut += 5
  48. money -= 1500
  49. obruch = 1
  50. act 'Pick up a package':gt 'sportshop', 'start'
  51. end
  52. end
  53. if bookYog = 0 and money >= 1500:
  54. act 'Buy benefits of yoga (1,500 <b>₽</b>)':
  55. cla
  56. minut += 5
  57. money -= 1500
  58. bookYog = 1
  59. act 'Pick up a package':gt 'sportshop', 'start'
  60. end
  61. end
  62. end
  63. if $ARGS[0] = 'clo':
  64. $metka = $ARGS[0]
  65. $loc = $CURLOC
  66. cls
  67. gs'stat'
  68. if night_mode = 1:
  69. fcolor = rgb(255, 255, 255)
  70. bcolor = rgb(0, 0, 0)
  71. lcolor = rgb(106, 90, 205)
  72. else
  73. fcolor = rgb(0, 0, 0)
  74. bcolor = rgb(255, 255, 255)
  75. lcolor = rgb(106, 90, 205)
  76. end
  77. '<center><b><font color="maroon">Sports clothing.</font></b></center>'
  78. 'Prices vary and stock is updated daily, sportswear is dimensionless.'
  79. act 'Return':
  80. cla
  81. minut += 5
  82. gt 'sportshop', 'start'
  83. end
  84. if Clothingstock > 16:
  85. i = 1
  86. elseif Clothingstock > 8:
  87. i = 2
  88. else
  89. i = 3
  90. end
  91. :loopexercise
  92. if exercise[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sportshop'', ''exercise''"><img src="images/pc/clothing/7exercise/<<i>>.jpg" height="250" /></a>'
  93. i += 3
  94. if i <= 37:jump 'loopexercise'
  95. end
  96. if $ARGS[0] = 'swim':
  97. $metka = $ARGS[0]
  98. $loc = $CURLOC
  99. cls
  100. gs'stat'
  101. if night_mode = 1:
  102. fcolor = rgb(255, 255, 255)
  103. bcolor = rgb(0, 0, 0)
  104. lcolor = rgb(106, 90, 205)
  105. else
  106. fcolor = rgb(0, 0, 0)
  107. bcolor = rgb(255, 255, 255)
  108. lcolor = rgb(106, 90, 205)
  109. end
  110. '<center><b><font color="maroon">Swimwear.</font></b></center>'
  111. 'Swimwear costs 1,000 <b>₽</b>.'
  112. act 'Return':
  113. cla
  114. minut += 5
  115. gt 'sportshop', 'start'
  116. end
  117. !4 is in he supermarket, so skipped
  118. if Clothingstock > 18:
  119. i = 1
  120. elseif Clothingstock > 12:
  121. i = 2
  122. elseif Clothingstock > 6:
  123. i = 3
  124. else
  125. i = 8
  126. end
  127. :loopswim
  128. if swimwear[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sportshop'', ''swim1''"><img src="images/pc/clothing/12swimwear/<<i>>.jpg" height="250" /></a>'
  129. i += 4
  130. if i <= 65:jump 'loopswim'
  131. end
  132. if $ARGS[0] = 'exercise':
  133. cla
  134. if exercise[i] ! 0:
  135. msg 'You already own these clothes.'
  136. gt 'sportshop', 'clo'
  137. end
  138. gt 'clothing', 'view_clothing_item', 'shop', 'exercise',i, 4000
  139. end
  140. if $ARGS[0] = 'swim1':
  141. cla
  142. if swimwear[i] ! 0:
  143. msg 'You already own these clothes.'
  144. gt 'sportshop', 'swim'
  145. end
  146. gt 'clothing', 'view_clothing_item', 'shop', 'swimwear',i, 4000
  147. end
  148. --- sportShop ---------------------------------