swamp 2.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061
  1. # swamp
  2. $location_type = 'secluded'
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. gs 'gadukino_event', 'sound'
  6. cls
  7. new_boletus = 0
  8. new_bilberry = 0
  9. gs'stat'
  10. !gs'time'
  11. goswamp = 1
  12. '<center><H4>Swamp</H4></center>'
  13. if month >= 4 and month <= 10:
  14. if hour >= 6 and hour < 22:
  15. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp.jpg"></center>'
  16. else
  17. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_night.jpg"></center>'
  18. end
  19. else
  20. if hour >= 8 and hour < 18:
  21. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_winter.jpg"></center>'
  22. else
  23. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_winter_night.jpg"></center>'
  24. end
  25. end
  26. 'You''ve found the swamp area of the forest, in which it is considered dangerous to climb in the afternoon, and forbidden at night. But you can find a lot of mushrooms and berries in the woods near the swamp area.'
  27. 'There''s a small visible path to a clearing that leads to <a href="exec: gt ''swamp_yard'' ">the old hut</a>, it is probably used as a hunting lodge.'
  28. if hour >= 6 and hour <= 21 and month >= 6 and month <= 9:
  29. act 'Walk into the forest':swamp_clothes = 0 & minut += 30 & gt 'gadforest','4'
  30. end
  31. if hour >= 6 and hour < 21:
  32. act 'Return to the edge of the forest':swamp_clothes = 0 & hanters = 0 & minut += 150 & gt 'gadforest','1'
  33. else
  34. act 'Return to the edge of the forest':swamp_clothes = 0 & hanters = 0 & gt 'gadforest_event', 'forest_road'
  35. end
  36. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and swamp_day ! daystart:
  37. act 'Look for berries (0:30)':
  38. cla
  39. *clr
  40. minut += 30
  41. temp = RAND(1,2)
  42. swamp_day = daystart
  43. if goforest < 20:goforest += rand(0,1)
  44. new_bilberry += rand(4,5)
  45. bilberry += new_bilberry
  46. pcs_mood += 5
  47. gs 'stat'
  48. gs 'gadforest', 'clothes1'
  49. 'You spend half an hour wandering through the woods in search of mushrooms or berries and manage to found <<new_bilberry>> kg of berries.'
  50. act 'Further': gt'swamp'
  51. end
  52. end
  53. --- swamp ---------------------------------