1
0

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. 'The forest, the swamp in which it is dangerous to climb in the afternoon, not that night. But in the woods near the swamp you can find a lot of mushrooms and berries.'
  27. 'A little way visible dry <a href="exec: gt ''swamp_yard'' ">glade</a> the old hut, it is probably a hunting Lodge.'
  28. if hour >= 6 and hour <= 21 and month >= 6 and month <= 9:
  29. act 'To enter 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 'Looking for berries':
  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 within half an hour of wandering through the woods in search of mushrooms or berries and found <<new_bilberry>> kg of berries.'
  50. act 'Further': gt'swamp'
  51. end
  52. end
  53. --- swamp ---------------------------------