1
0

swamp.qsrc 2.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  1. # swamp
  2. $loc = 'swamp'
  3. $metka = ''
  4. $location_type = 'secluded'
  5. $menu_loc = 'swamp'
  6. $menu_arg = ''
  7. menu_off = 0
  8. new_boletus = 0
  9. new_bilberry = 0
  10. goswamp = 1
  11. gs 'gadukino_event', 'sound'
  12. gs 'stat'
  13. *clr & cla
  14. '<center><H4>Swamp</H4></center>'
  15. if month >= 4 and month <= 10:
  16. if hour >= 6 and hour < 22:
  17. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp.jpg"></center>'
  18. else
  19. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_night.jpg"></center>'
  20. end
  21. else
  22. if hour >= 8 and hour < 18:
  23. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_winter.jpg"></center>'
  24. else
  25. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_winter_night.jpg"></center>'
  26. end
  27. end
  28. *nl
  29. 'You are in the swamp area of the forest.'
  30. 'It is considered dangerous to hike in this area, unless physically fit, and should always be avoided at night.'
  31. *nl
  32. 'You can find a lot of mushrooms and berries here.'
  33. *nl
  34. 'There''s a small visible path to a clearing that leads to <a href="exec: gt ''swamp_yard'' ">the hut</a>, used by the hunters.'
  35. *nl
  36. act 'Go to the hut': gt 'swamp_yard'
  37. if hour >= 6 and hour <= 21 and month >= 6 and month <= 9:
  38. act 'Walk into the forest':minut += 30 & gt 'gadforest','4'
  39. end
  40. if hour >= 6 and hour < 21:
  41. act 'Return to the edge of the forest':hunters = 0 & minut += 150 & gt 'gadforest','1'
  42. else
  43. act 'Return to the edge of the forest':hunters = 0 & gt 'gadforest_event', 'forest_road'
  44. end
  45. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and swamp_day ! daystart:
  46. act 'Look for mushrooms and berries (0:30)':
  47. cla
  48. *clr
  49. minut += 30
  50. temp = RAND(1,2)
  51. swamp_day = daystart
  52. if goforest < 20:goforest += rand(0,1)
  53. new_boletus += rand(4,5)
  54. boletus += new_boletus
  55. new_bilberry += rand(4,5)
  56. bilberry += new_bilberry
  57. pcs_mood += 5
  58. gs 'stat'
  59. gs 'gadforest', 'clothes1'
  60. 'You spend half an hour wandering through the woods in search of mushrooms and berries and manage to find <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  61. act 'Continue': gt'swamp'
  62. end
  63. end
  64. --- swamp ---------------------------------