turtles-own [energy] ;Each turtle has an energy variable.
breeds [raindrops flames firefighter winds] ;The four types of turtles used in this model are rain, flames, and wind.

;The make-trees button creates a number of tree turtles set by the trees slider, give them random xy positions, and
;executes this procedure.
to  make-trees
   let [:i 1
        :tree-type (pick tree-list)]
   repeat 9
      [stamp-at 0 :i :tree-type
       set :i :i + 1]
   set :i 4
   repeat 5
      [stamp-at -1 :i :tree-type
       set :i :i + 1]
   set :i 4
   repeat 3
      [stamp-at -2 :i :tree-type
       set :i :i + 1]
   stamp-at -3 4 :tree-type
   set :i 4
   repeat 5
      [stamp-at 1 :i :tree-type
       set :i :i + 1]
   set :i 4
   repeat 3
      [stamp-at 2 :i :tree-type
       set :i :i + 1]
   stamp-at 3 4 :tree-type

end

;The flame turtles are given an initial energy of 3, and move forward from their starting position in an expanding circle
;(because Starlogo gives each turtle a heading initially that faces outward from the center). As the flames reach
;tree patches, depending on the type of tree they are given a different amount of energy. The tree is then burned
;and stamped with a brown color for that tree species. This procedure is used for the first few burns, when the model
;is being set up. During the actual run, the burning is carried out by the "burn" procedure below.
to start-burn
   if breed = flames
      [setc red
      setenergy 3
      fd 1
      if pc = lime [setenergy (energy + 5) stamp 2]
      if pc = green [setenergy (energy + 4) stamp 33]
      if pc = 62 [setenergy (energy + 3) stamp 34]
      if pc = 60 [setenergy (energy + 2) stamp 20 wait .5]]
end

;Like the previous procedure, as flame turtles land on tree patches, they check the color of the patch and act differently
;accordingly. Each different tree type provides a different energy value but also causes each turtle to wait different
;amounts of time as they burn the tree. If the flame lands on an empty patch, they lose energy. If they go below -15
;energy, they die. When they are above 5 energy, they create a new flame.
to burn
   if breed = flames
      [if pc = lime [setenergy (energy + 5) stamp 2]
      if pc = green [setenergy (energy + 4) stamp 33 wait .05]
      if pc = 62 [setenergy (energy + 3) stamp 34 wait .1]
      if pc = 60 [setenergy (energy + 2) stamp 20 wait .5]
      if pc = 0 [setenergy (energy - 4)]
      if energy < -15 [die]
      if energy > 5 [setenergy (energy / 2)
                   hatch [seth random 360]]]
end


to turn-fire
   if (ycor >= int(screen-height / 2)) or
      (ycor <= int((0 - screen-height) / 2)) or
      (xcor >= int(screen-width / 2)) or
      (xcor <= int((0 - screen-width) / 2))
      [die]
end

to rain
   if breed = raindrops
   [grab one-of-turtles-here
      [if (color = blue) and
      ((color-of partner) = red)
      [setenergy-of partner ((energy-of partner) - 17)]]
   if pc = lime [setenergy-of pc (energy-of pc + 2)]
   if pc = green [setenergy-of pc (energy-of pc + 2)]
   if pc = 62 [setenergy-of pc (energy-of pc + 1)]
   if pc = 60 [setenergy-of pc (energy-of pc + 1)]]
end

to wind
   if breed = winds
      [setc 8
       seth 315
       grab one-of-turtles-here
           [if ((breed-of partner) = flames)
                   [seth-of partner 315 setenergy-of partner (energy + 5)]]]
end