Jebel Sahaba Model 2 - unequal distribution of resources in the Nile Valley - bigger world

Jebel Sahaba Model 2 - unequal distribution of resources in the Nile Valley - bigger world preview image

1 collaborator

Tags

(This model has yet to be categorized with any tags)
Visible to everyone | Changeable by the author
Model was written in NetLogo 6.1.1 • Viewed 202 times • Downloaded 18 times • Run 0 times
Download the 'Jebel Sahaba Model 2 - unequal distribution of resources in the Nile Valley - bigger world' modelDownload this modelEmbed this model

Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)


WHAT IS IT?

This model represents intergroup specific violence or primitive warfare in relation to resource competition between two prehistoric palaeolithic groups, one hunter gatherer and one (possibly) semi-settled at or around site 117 near Jebel Sahaba in Nile Valley Sudan. It is possible that both groups could have been hunter gatherers. The site is dated to apporximatley 11000 years BP. In this model, the resources are unequally distributed across the land. This model is based on the image of the site from Wendorf's drawings of the time of initial excavation of the site (Wendorf, 1968).

HOW IT WORKS

(what rules the agents use to create the overall behavior of the model)

In terms of turtles, there are two types: people (black in colour) and arrows (red in colour). People could represent a semi-sedentary group and the arrows could represent hunter gatherers. As mentioned above, both groups could have been hunter gatherers. Both groups of turtles interact with the patches (grass which represents food) and each other. The turtles ‘eat’ the grass and gain energy from that. Turtles also reproduce but only with similar type. People reproduce with people and arrows reproduce with arrows.

Grass represents the overall resources available. In this model, the resources are distributed unequally across the land hence grass or food is not available in all patches. The over all value of the patches is set as zero and only specific patches have energy values higher than zero so turtles can eat from there. This is supposed to intensify the competiton for resources amongst the two groups. The energies of different coloured patches are different. The blue patches depict River Nile's fishing resources. The energy value for these patches are set at 50. The pink patches represent the narrow strip of fertile land along the river in the valley and some gullies that spread into the sandstone cliffs nearby. The value of pink patches is set as 50 as well. The turtles can only 'eat' or consume resources from pink and blue patches.

In addition, there are yellow patches which represent the sandstone cliffs. These pathces have zero energy and are also inaccessible by the turtles. This restricts the area in which turtles can move.

One of the very important things that the turtles do is ‘eat’ each other which represents killing or warfare. Turtles cannot kill the same type of turtle. People can kill arrows and vice versa. Once all of one type of turtles are killed, a message is displayed as to who won. The killing of all of one type of turtle represents the massacre or genocide that could have taken place at Jebel Sahaba where one group of people carried out repeated attacks on another group of people and they could have eventually wiped out one group to near extinction to access their resources.

HOW TO USE IT

(how to use the model, including a description of each of the items in the Interface tab)

To use this model, the user has to press the 'set up' button followed by the 'go' button. The model goes on until one group has won. There are a range of factors that can be altered as is demonstrated by a range of slider buttons. The description of the buttons is given below.

Set-up button: Use this button to reset the model to the required conditions or factors Go button: Use this button to start the model run Initial-number-people slider: Use this slider to alter the number of people in run/experiment Initial-number-arrows: Use this slider to alter the number of arrows in the run/experiment Count people button: This button counts the number of people throughout the run/experiment. The number changes as the model runs. Count arrows button: This button counts the number of arrows throughout the run/experiment. The number changes as the model runs Show energy switch: This switch button can be turned on or off. When turned on, it shows individual energy values associated with each turtle. People-gain-from-food slider: This slider button shows the amount of energy people gain from eating food (which is the grass). It can be altered. Arrows-gain-from-food slider: This slider button shows the amount of energy arrows gain from food (which is the grass). It can be altered. Grass-regrowth-time slider: This slider button lets the user control the amount of time it takes the grass to regrow. The units are arbitrary however they are depicted as 'day' for a time reference. The time can be altered. People-reproduce slder: This slider button lets the user control the rate of reproduction for turtles shaped as people.
Arrows-reproduce slider: This slider button lets the user control the rate of reproduction for turtles shaped as arrows. The plot/graph: This plot shows the number of turtles, people and arrows, and number of patches in real time.

THINGS TO NOTICE

(suggested things for the user to notice while running the model)

Notice how different turtle populations interact with each other and which group wins. When running an experiment on Behaviour Space, notice which group wins and how many times.

Notice how the numbers of the two turtle populations and the different coloured patches (river and fertile land) fluctuate on the plot.

Also, notice where and how turtles move. Are they eating more and staying more towards the river and the fertile strip or are they moving more towards the gullies?

THINGS TO TRY

(suggested things for the user to try to do (move sliders, switches, etc.) with the model)

Try altering the values on different sliders and see what type of behaviour emerges. For example, try running the model with the value of grass regrowth time really low like 1 day and then try it with 100 days and compare the results. Does it make a difference in which population wins? How many ticks does it take for one group to kill the other one? What happens to the number of turtles for a particular population? How quickly do the numbers rise or fall?

Note: Make sure only one or at most two factors are altered in one experiment and the rest are kept constant otherwise the results might become too confusing to interpret.

EXTENDING THE MODEL

(suggested things to add or change in the Code tab to make the model more complicated, detailed, accurate, etc.)

To extend the model a range of different features can be added.

1 - Add an extra turtle in the shape of a cow to depict a moving herd of animals. This would be a movable resource that people and arrows can consume 2 - Add an extra turtle in a shape of a dot to depict another group of humans living near or interacting with Jebel Sahaba site. 3 - Create a model with equal distribution of resources where all patches have equal amounts of energies.

NETLOGO FEATURES

(interesting or unusual features of NetLogo that the model uses, particularly in the Code tab; or where workarounds were needed for missing features)

This warfare model is based on a Sheep-Wolf predatory model. In the Sheep-Wolf model, wolves can eat the sheep. In this model, both types of turtles, people and arrows, can eat each other. This means that they are killing each other. Moreover, since the Jebel Sahaba site seems to be a massacre site, so killing of all of one breed of turtles represents the massacre or genocide that could have taken place at Jebel Sahaba where one group of people carried out repeated attacks on another group of people and they could have eventually wiped out one group to near extinction to access their resources.

RELATED MODELS

(models in the NetLogo Models Library and elsewhere which are of related interest)

Sheep-Wolf Predation model

CREDITS AND REFERENCES

(a reference to the model's URL on the web if it has one, as well as any other necessary credits, citations, and links)

These sources of information were directly used to construct the model or their content directly influenced the model. Individual citations and a range of other references related to warfare, violence and conflict amongst hunter gatherers and early societies are available in the main paper.

Antoine, D. M., Zazzo, A. and Friedman, R. (2013) ‘Revisiting Jebel Sahaba: new apatite radiocarbon dates for one of the Nile valley’s earliest cemeteries’, American Journal of Physical Anthropology, 150(July), pp. 68–68. doi: 10.1002/ajpa.22247.

Crevecoeur, I. et al. (2021) ‘New insights on interpersonal violence in the Late Pleistocene based on the Nile valley cemetery of Jebel Sahaba’, Nature Scientific Reports. Nature Publishing Group UK, 11(1991), pp. 1–13.

Peterson, D. and Wrangham, R. (1997) Apes and the Origins of Human Violence: Demonic Males. 2nd edn. London: Bloomsbury Publishing Plc.

Railsback, S. F. and Volker, G. (2019) Agent-Based and Indivudual-Based Modelling: A Practical Introduction. 2nd edn. Princeton and Oxford: Princeton University Press.

Wendorf, F. (1968) ‘Site 117: A Nubian final Paleolithic graveyard near Jebel Sahaba, Sudan’, in Wendorf, F. (ed.) The Prehistory of Nubia Volume 2. 1st edn. Dallas: Southern Methodist University, p. 954 to 995.

Wilensky, U. (1997). NetLogo Wolf Sheep Predation model. http://ccl.northwestern.edu/netlogo/models/WolfSheepPredation. Center for Connected Learning and Computer-Based Modeling, Northwestern University, Evanston, IL

Wilensky, U. (1999). NetLogo. http://ccl.northwestern.edu/netlogo/. Center for Connected Learning and Computer-Based Modeling, Northwestern University, Evanston, IL.

Wrangham, R. (2020) Goodness Paradox: How evolution made us both more and less violent. 2nd edn. London: Profile Books.

Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

globals [
  max-people
  max-arrows
]

breed [ people person ]
breed [ arrows arrow ]

patches-own [
  energy
  countdown
]

to setup
  clear-all


  ask patches [ set pcolor green ]
  ask patches [set energy 0]

  ;fetile land

  ask patch -16 -25 [set pcolor pink]
  ask patch -16 -24 [set pcolor pink]
  ask patch -16 -23 [set pcolor pink]
  ask patch -16 -22 [set pcolor pink]
  ask patch -16 -21 [set pcolor pink]
  ask patch -16 -20 [set pcolor pink]
  ask patch -16 -19 [set pcolor pink]
  ask patch -16 -18 [set pcolor pink]

  ask patch -15 -25 [set pcolor pink]
  ask patch -15 -24 [set pcolor pink]
  ask patch -15 -23 [set pcolor pink]
  ask patch -15 -22 [set pcolor pink]
  ask patch -15 -21 [set pcolor pink]
  ask patch -15 -20 [set pcolor pink]
  ask patch -15 -19 [set pcolor pink]
  ask patch -15 -18 [set pcolor pink]
  ask patch -15 -17 [set pcolor pink]
  ask patch -15 -16 [set pcolor pink]


  ask patch -14 -25 [set pcolor pink]
  ask patch -14 -24 [set pcolor pink]
  ask patch -14 -23 [set pcolor pink]
  ask patch -14 -22 [set pcolor pink]
  ask patch -14 -21 [set pcolor pink]
  ask patch -14 -20 [set pcolor pink]
  ask patch -14 -19 [set pcolor pink]
  ask patch -14 -18 [set pcolor pink]
  ask patch -14 -17 [set pcolor pink]
  ask patch -14 -16 [set pcolor pink]
  ask patch -14 -15 [set pcolor pink]
  ask patch -14 -14 [set pcolor pink]

  ask patch -13 -25 [set pcolor pink]
  ask patch -13 -24 [set pcolor pink]
  ask patch -13 -23 [set pcolor pink]
  ask patch -13 -22 [set pcolor pink]
  ask patch -13 -21 [set pcolor pink]
  ask patch -13 -20 [set pcolor pink]
  ask patch -13 -19 [set pcolor pink]
  ask patch -13 -18 [set pcolor pink]
  ask patch -13 -17 [set pcolor pink]
  ask patch -13 -16 [set pcolor pink]
  ask patch -13 -15 [set pcolor pink]
  ask patch -13 -14 [set pcolor pink]
  ask patch -13 -13 [set pcolor pink]
  ask patch -13 -12 [set pcolor pink]

  ask patch -12 -25 [set pcolor pink]
  ask patch -12 -24 [set pcolor pink]
  ask patch -12 -23 [set pcolor pink]
  ask patch -12 -22 [set pcolor pink]
  ask patch -12 -21 [set pcolor pink]
  ask patch -12 -20 [set pcolor pink]
  ask patch -12 -19 [set pcolor pink]
  ask patch -12 -18 [set pcolor pink]
  ask patch -12 -17 [set pcolor pink]
  ask patch -12 -16 [set pcolor pink]
  ask patch -12 -15 [set pcolor pink]
  ask patch -12 -14 [set pcolor pink]
  ask patch -12 -13 [set pcolor pink]
  ask patch -12 -12 [set pcolor pink]
  ask patch -12 -11 [set pcolor pink]
  ask patch -12 -10 [set pcolor pink]

  ask patch -11 -25 [set pcolor pink]
  ask patch -11 -24 [set pcolor pink]
  ask patch -11 -23 [set pcolor pink]
  ask patch -11 -22 [set pcolor pink]
  ask patch -11 -21 [set pcolor pink]
  ask patch -11 -20 [set pcolor pink]
  ask patch -11 -19 [set pcolor pink]
  ask patch -11 -18 [set pcolor pink]
  ask patch -11 -17 [set pcolor pink]
  ask patch -11 -16 [set pcolor pink]
  ask patch -11 -15 [set pcolor pink]
  ask patch -11 -14 [set pcolor pink]
  ask patch -11 -13 [set pcolor pink]
  ask patch -11 -12 [set pcolor pink]
  ask patch -11 -11 [set pcolor pink]
  ask patch -11 -10 [set pcolor pink]
  ask patch -11 -9 [set pcolor pink]
  ask patch -11 -8 [set pcolor pink]

  ask patch -10 -25 [set pcolor pink]
  ask patch -10 -24 [set pcolor pink]
  ask patch -10 -23 [set pcolor pink]
  ask patch -10 -22 [set pcolor pink]
  ask patch -10 -21 [set pcolor pink]
  ask patch -10 -20 [set pcolor pink]
  ask patch -10 -19 [set pcolor pink]
  ask patch -10 -18 [set pcolor pink]
  ask patch -10 -17 [set pcolor pink]
  ask patch -10 -16 [set pcolor pink]
  ask patch -10 -15 [set pcolor pink]
  ask patch -10 -14 [set pcolor pink]
  ask patch -10 -13 [set pcolor pink]
  ask patch -10 -12 [set pcolor pink]
  ask patch -10 -11 [set pcolor pink]
  ask patch -10 -10 [set pcolor pink]
  ask patch -10 -9 [set pcolor pink]
  ask patch -10 -8 [set pcolor pink]
  ask patch -10 -7 [set pcolor pink]
  ask patch -10 -6 [set pcolor pink]

  ask patch -9 -25 [set pcolor pink]
  ask patch -9 -24 [set pcolor pink]
  ask patch -9 -23 [set pcolor pink]
  ask patch -9 -22 [set pcolor pink]
  ask patch -9 -21 [set pcolor pink]
  ask patch -9 -20 [set pcolor pink]
  ask patch -9 -19 [set pcolor pink]
  ask patch -9 -18 [set pcolor pink]
  ask patch -9 -17 [set pcolor pink]
  ask patch -9 -16 [set pcolor pink]
  ask patch -9 -15 [set pcolor pink]
  ask patch -9 -14 [set pcolor pink]
  ask patch -9 -13 [set pcolor pink]
  ask patch -9 -12 [set pcolor pink]
  ask patch -9 -11 [set pcolor pink]
  ask patch -9 -10 [set pcolor pink]
  ask patch -9 -9 [set pcolor pink]
  ask patch -9 -8 [set pcolor pink]
  ask patch -9 -7 [set pcolor pink]
  ask patch -9 -6 [set pcolor pink]
  ask patch -9 -5 [set pcolor pink]
  ask patch -9 -4 [set pcolor pink]

  ask patch -8 -25 [set pcolor pink]
  ask patch -8 -24 [set pcolor pink]
  ask patch -8 -23 [set pcolor pink]
  ask patch -8 -22 [set pcolor pink]
  ask patch -8 -21 [set pcolor pink]
  ask patch -8 -20 [set pcolor pink]
  ask patch -8 -19 [set pcolor pink]
  ask patch -8 -18 [set pcolor pink]
  ask patch -8 -17 [set pcolor pink]
  ask patch -8 -16 [set pcolor pink]
  ask patch -8 -15 [set pcolor pink]
  ask patch -8 -14 [set pcolor pink]
  ask patch -8 -13 [set pcolor pink]
  ask patch -8 -12 [set pcolor pink]
  ask patch -8 -11 [set pcolor pink]
  ask patch -8 -10 [set pcolor pink]
  ask patch -8 -9 [set pcolor pink]
  ask patch -8 -8 [set pcolor pink]
  ask patch -8 -7 [set pcolor pink]
  ask patch -8 -6 [set pcolor pink]
  ask patch -8 -5 [set pcolor pink]
  ask patch -8 -4 [set pcolor pink]
  ask patch -8 -3 [set pcolor pink]
  ask patch -8 -2 [set pcolor pink]
  ask patch -8 -1 [set pcolor pink]

  ask patch -7 -25 [set pcolor pink]
  ask patch -7 -24 [set pcolor pink]
  ask patch -7 -23 [set pcolor pink]
  ask patch -7 -22 [set pcolor pink]
  ask patch -7 -21 [set pcolor pink]
  ask patch -7 -20 [set pcolor pink]
  ask patch -7 -19 [set pcolor pink]
  ask patch -7 -18 [set pcolor pink]
  ask patch -7 -17 [set pcolor pink]
  ask patch -7 -16 [set pcolor pink]
  ask patch -7 -15 [set pcolor pink]
  ask patch -7 -14 [set pcolor pink]
  ask patch -7 -13 [set pcolor pink]
  ask patch -7 -12 [set pcolor pink]
  ask patch -7 -11 [set pcolor pink]
  ask patch -7 -10 [set pcolor pink]
  ask patch -7 -9 [set pcolor pink]
  ask patch -7 -8 [set pcolor pink]
  ask patch -7 -7 [set pcolor pink]
  ask patch -7 -6 [set pcolor pink]
  ask patch -7 -5 [set pcolor pink]
  ask patch -7 -4 [set pcolor pink]
  ask patch -7 -3 [set pcolor pink]
  ask patch -7 -2 [set pcolor pink]
  ask patch -7 -1 [ set pcolor pink]
  ask patch -7 0 [set pcolor pink]

  ask patch -6 -25 [set pcolor pink]
  ask patch -6 -24 [set pcolor pink]
  ask patch -6 -23 [set pcolor pink]
  ask patch -6 -22 [set pcolor pink]
  ask patch -6 -21 [set pcolor pink]
  ask patch -6 -20 [set pcolor pink]
  ask patch -6 -19 [set pcolor pink]
  ask patch -6 -18 [set pcolor pink]
  ask patch -6 -17 [set pcolor pink]
  ask patch -6 -16 [set pcolor pink]
  ask patch -6 -15 [set pcolor pink]
  ask patch -6 -14 [set pcolor pink]
  ask patch -6 -13 [set pcolor pink]
  ask patch -6 -12 [set pcolor pink]
  ask patch -6 -11 [set pcolor pink]
  ask patch -6 -10 [set pcolor pink]
  ask patch -6 -9 [set pcolor pink]
  ask patch -6 -8 [set pcolor pink]
  ask patch -6 -7 [set pcolor pink]
  ask patch -6 -6 [set pcolor pink]
  ask patch -6 -5 [set pcolor pink]
  ask patch -6 -4 [set pcolor pink]
  ask patch -6 -3 [set pcolor pink]
  ask patch -6 -2 [set pcolor pink]
  ask patch -6 -1 [set pcolor pink]
  ask patch -6 0 [set pcolor pink]
  ask patch -6 1 [set pcolor pink]
  ask patch -6 2 [set pcolor pink]
  ask patch -6 3 [set pcolor pink]
  ask patch -6 4 [set pcolor pink]
  ask patch -6 5 [set pcolor pink]
  ask patch -6 6 [set pcolor pink]
  ask patch -6 7 [set pcolor pink]
  ask patch -6 8 [set pcolor pink]
  ask patch -6 9 [set pcolor pink]
  ask patch -6 10 [set pcolor pink]
  ask patch -6 11 [set pcolor pink]
  ask patch -6 12 [set pcolor pink]
  ask patch -6 13 [set pcolor pink]
  ask patch -6 14 [set pcolor pink]
  ask patch -6 15 [set pcolor pink]
  ask patch -6 16 [set pcolor pink]
  ask patch -6 17 [set pcolor pink]
  ask patch -6 18 [set pcolor pink]
  ask patch -6 19 [set pcolor pink]
  ask patch -6 20 [set pcolor pink]
  ask patch -6 21 [set pcolor pink]
  ask patch -6 22 [set pcolor pink]
  ask patch -6 23 [set pcolor pink]
  ask patch -6 24 [set pcolor pink]
  ask patch -6 25 [set pcolor pink]

  ask patch -5 -25 [set pcolor pink]
  ask patch -5 -24 [set pcolor pink]
  ask patch -5 -23 [set pcolor pink]
  ask patch -5 -22 [set pcolor pink]
  ask patch -5 -21 [set pcolor pink]
  ask patch -5 -20 [set pcolor pink]
  ask patch -5 -19 [set pcolor pink]
  ask patch -5 -18 [set pcolor pink]
  ask patch -5 -17 [set pcolor pink]
  ask patch -5 -16 [set pcolor pink]
  ask patch -5 -15 [set pcolor pink]
  ask patch -5 -14 [set pcolor pink]
  ask patch -5 -13 [set pcolor pink]
  ask patch -5 -12 [set pcolor pink]
  ask patch -5 -11 [set pcolor pink]
  ask patch -5 -10 [set pcolor pink]
  ask patch -5 -9 [set pcolor pink]
  ask patch -5 -8 [set pcolor pink]
  ask patch -5 -7 [set pcolor pink]
  ask patch -5 -6 [set pcolor pink]
  ask patch -5 -5 [set pcolor pink]
  ask patch -5 -4 [set pcolor pink]
  ask patch -5 -3 [set pcolor pink]
  ask patch -5 -2 [set pcolor pink]
  ask patch -5 -1 [set pcolor pink]
  ask patch -5 0 [set pcolor pink]
  ask patch -5 1 [set pcolor pink]
  ask patch -5 2 [set pcolor pink]
  ask patch -5 3 [set pcolor pink]
  ask patch -5 4 [set pcolor pink]
  ask patch -5 5  [set pcolor pink]
  ask patch -5 6 [set pcolor pink]
  ask patch -5 7 [set pcolor pink]
  ask patch -5 8 [set pcolor pink]
  ask patch -5 9 [set pcolor pink]
  ask patch -5 10 [set pcolor pink]
  ask patch -5 11 [set pcolor pink]
  ask patch -5 12 [set pcolor pink]
  ask patch -5 13 [set pcolor pink]
  ask patch -5 14 [set pcolor pink]
  ask patch -5 15 [set pcolor pink]
  ask patch -5 16 [set pcolor pink]
  ask patch -5 17 [set pcolor pink]
  ask patch -5 18 [set pcolor pink]
  ask patch -5 19 [set pcolor pink]
  ask patch -5 20 [set pcolor pink]
  ask patch -5 21 [set pcolor pink]
  ask patch -5 22 [set pcolor pink]
  ask patch -5 23 [set pcolor pink]
  ask patch -5 24 [set pcolor pink]
  ask patch -5 25 [set pcolor pink]

  ask patch -4 -25 [set pcolor pink]
  ask patch -4 -24 [set pcolor pink]
  ask patch -4 -23 [set pcolor pink]
  ask patch -4 -22 [set pcolor pink]
  ask patch -4 -21 [set pcolor pink]
  ask patch -4 -20 [set pcolor pink]
  ask patch -4 -19 [set pcolor pink]
  ask patch -4 -18 [set pcolor pink]
  ask patch -4 -17 [set pcolor pink]
  ask patch -4 -16 [set pcolor pink]
  ask patch -4 -15 [set pcolor pink]
  ask patch -4 -14 [set pcolor pink]
  ask patch -4 -13 [set pcolor pink]
  ask patch -4 -12 [set pcolor pink]
  ask patch -4 -11 [set pcolor pink]
  ask patch -4 -10 [set pcolor pink]
  ask patch -4 -9 [set pcolor pink]
  ask patch -4 -8 [set pcolor pink]
  ask patch -4 -7 [set pcolor pink]
  ask patch -4 -6 [set pcolor pink]
  ask patch -4 -5 [set pcolor pink]
  ask patch -4 -4 [set pcolor pink]
  ask patch -4 -3 [set pcolor pink]
  ask patch -4 -2 [set pcolor pink]
  ask patch -4 -1 [set pcolor pink]
  ask patch -4 0 [set pcolor pink]
  ask patch -4 1 [set pcolor pink]
  ask patch -4 2 [set pcolor pink]
  ask patch -4 3 [set pcolor pink]
  ask patch -4 4 [set pcolor pink]
  ask patch -4 5 [set pcolor pink]
  ask patch -4 6 [set pcolor pink]
  ask patch -4 7 [set pcolor pink]
  ask patch -4 8 [set pcolor pink]
  ask patch -4 9 [set pcolor pink]
  ask patch -4 10 [set pcolor pink]
  ask patch -4 11 [set pcolor pink]
  ask patch -4 12 [set pcolor pink]
  ask patch -4 13 [set pcolor pink]
  ask patch -4 14 [set pcolor pink]
  ask patch -4 15 [set pcolor pink]
  ask patch -4 16 [set pcolor pink]
  ask patch -4 17 [set pcolor pink]
  ask patch -4 18 [set pcolor pink]
  ask patch -4 19 [set pcolor pink]
  ask patch -4 20 [set pcolor pink]
  ask patch -4 21 [set pcolor pink]
  ask patch -4 22 [set pcolor pink]
  ask patch -4 23 [set pcolor pink]
  ask patch -4 24 [set pcolor pink]
  ask patch -4 25 [set pcolor pink]

  ask patch -3 -25 [set pcolor pink]
  ask patch -3 -24 [set pcolor pink]
  ask patch -3 -23 [set pcolor pink]
  ask patch -3 -22 [set pcolor pink]
  ask patch -3 -21 [set pcolor pink]
  ask patch -3 -20 [set pcolor pink]
  ask patch -3 -19 [set pcolor pink]
  ask patch -3 -18 [set pcolor pink]
  ask patch -3 -17 [set pcolor pink]
  ask patch -3 -16 [set pcolor pink]
  ask patch -3 -15 [set pcolor pink]
  ask patch -3 -14 [set pcolor pink]
  ask patch -3 -13 [set pcolor pink]
  ask patch -3 -12 [set pcolor pink]
  ask patch -3 -11 [set pcolor pink]
  ask patch -3 -10 [set pcolor pink]
  ask patch -3 -9 [set pcolor pink]
  ask patch -3 -8 [set pcolor pink]
  ask patch -3 -7 [set pcolor pink]
  ask patch -3 -6 [set pcolor pink]
  ask patch -3 -5 [set pcolor pink]
  ask patch -3 -4 [set pcolor pink]
  ask patch -3 -3 [set pcolor pink]
  ask patch -3 -2 [set pcolor pink]
  ask patch -3 -1 [set pcolor pink]
  ask patch -3 0 [set pcolor pink]
  ask patch -3 1 [set pcolor pink]
  ask patch -3 2 [set pcolor pink]
  ask patch -3 3 [set pcolor pink]
  ask patch -3 4 [set pcolor pink]
  ask patch -3 5 [set pcolor pink]
  ask patch -3 6 [set pcolor pink]
  ask patch -3 7 [set pcolor pink]
  ask patch -3 8 [set pcolor pink]
  ask patch -3 9 [set pcolor pink]
  ask patch -3 10 [set pcolor pink]
  ask patch -3 11 [set pcolor pink]
  ask patch -3 12 [set pcolor pink]
  ask patch -3 13 [set pcolor pink]
  ask patch -3 14 [set pcolor pink]
  ask patch -3 15 [set pcolor pink]
  ask patch -3 16 [set pcolor pink]
  ask patch -3 17 [set pcolor pink]
  ask patch -3 18 [set pcolor pink]
  ask patch -3 19 [set pcolor pink]
  ask patch -3 20 [set pcolor pink]
  ask patch -3 21 [set pcolor pink]
  ask patch -3 22 [set pcolor pink]
  ask patch -3 23 [set pcolor pink]
  ask patch -3 24 [set pcolor pink]
  ask patch -3 25 [set pcolor pink]

  ask patch -2 -25 [set pcolor pink]
  ask patch -2 -24 [set pcolor pink]
  ask patch -2 -23 [set pcolor pink]
  ask patch -2 -22 [set pcolor pink]
  ask patch -2 -21 [set pcolor pink]
  ask patch -2 -20 [set pcolor pink]
  ask patch -2 -19 [set pcolor pink]
  ask patch -2 -18 [set pcolor pink]
  ask patch -2 -17 [set pcolor pink]
  ask patch -2 -16 [set pcolor pink]
  ask patch -2 -15 [set pcolor pink]
  ask patch -2 -14 [set pcolor pink]
  ask patch -2 -13 [set pcolor pink]
  ask patch -2 -12 [set pcolor pink]
  ask patch -2 -11 [set pcolor pink]
  ask patch -2 -10 [set pcolor pink]
  ask patch -2 -9 [set pcolor pink]
  ask patch -2 -8 [set pcolor pink]
  ask patch -2 -7 [set pcolor pink]
  ask patch -2 -6 [set pcolor pink]
  ask patch -2 -5 [set pcolor pink]
  ask patch -2 -4 [set pcolor pink]
  ask patch -2 -3 [set pcolor pink]
  ask patch -2 -2 [set pcolor pink]
  ask patch -2 -1 [set pcolor pink]
  ask patch -2 0 [set pcolor pink]
  ask patch -2 1 [set pcolor pink]
  ask patch -2 2 [set pcolor pink]
  ask patch -2 3 [set pcolor pink]
  ask patch -2 4 [set pcolor pink]
  ask patch -2 5 [set pcolor pink]
  ask patch -2 6 [set pcolor pink]
  ask patch -2 7 [set pcolor pink]
  ask patch -2 8 [set pcolor pink]
  ask patch -2 9 [set pcolor pink]
  ask patch -2 10 [set pcolor pink]
  ask patch -2 11 [set pcolor pink]
  ask patch -2 12 [set pcolor pink]
  ask patch -2 13 [set pcolor pink]
  ask patch -2 14 [set pcolor pink]
  ask patch -2 15 [set pcolor pink]
  ask patch -2 16 [set pcolor pink]
  ask patch -2 17 [set pcolor pink]
  ask patch -2 18 [set pcolor pink]
  ask patch -2 19 [set pcolor pink]
  ask patch -2 20 [set pcolor pink]
  ask patch -2 21 [set pcolor pink]
  ask patch -2 22 [set pcolor pink]
  ask patch -2 23 [set pcolor pink]
  ask patch -2 24 [set pcolor pink]
  ask patch -2 25 [set pcolor pink]

  ask patch -1 -25 [set pcolor pink]
  ask patch -1 -24 [set pcolor pink]
  ask patch -1 -23 [set pcolor pink]
  ask patch -1 -22 [set pcolor pink]
  ask patch -1 -21 [set pcolor pink]
  ask patch -1 -20 [set pcolor pink]
  ask patch -1 -19 [set pcolor pink]
  ask patch -1 -18 [set pcolor pink]
  ask patch -1 -17 [set pcolor pink]
  ask patch -1 -16 [set pcolor pink]
  ask patch -1 -15 [set pcolor pink]
  ask patch -1 -14 [set pcolor pink]
  ask patch -1 -13 [set pcolor pink]
  ask patch -1 -12 [set pcolor pink]
  ask patch -1 -11 [set pcolor pink]
  ask patch -1 -10 [set pcolor pink]
  ask patch -1 -9 [set pcolor pink]
  ask patch -1 -8 [set pcolor pink]
  ask patch -1 -7 [set pcolor pink]
  ask patch -1 -6 [set pcolor pink]
  ask patch -1 -5 [set pcolor pink]
  ask patch -1 -4 [set pcolor pink]
  ask patch -1 -3 [set pcolor pink]
  ask patch -1 -2 [set pcolor pink]
  ask patch -1 -1 [set pcolor pink]
  ask patch -1 0 [set pcolor pink]
  ask patch -1 1 [set pcolor pink]
  ask patch -1 2 [set pcolor pink]
  ask patch -1 3 [set pcolor pink]
  ask patch -1 4 [set pcolor pink]
  ask patch -1 5 [set pcolor pink]
  ask patch -1 6 [set pcolor pink]
  ask patch -1 7 [set pcolor pink]
  ask patch -1 8 [set pcolor pink]
  ask patch -1 9 [set pcolor pink]
  ask patch -1 10 [set pcolor pink]
  ask patch -1 11 [set pcolor pink]
  ask patch -1 12 [set pcolor pink]
  ask patch -1 13 [set pcolor pink]
  ask patch -1 14 [set pcolor pink]
  ask patch -1 15 [set pcolor pink]
  ask patch -1 16 [set pcolor pink]
  ask patch -1 17 [set pcolor pink]
  ask patch -1 18 [set pcolor pink]
  ask patch -1 19 [set pcolor pink]
  ask patch -1 20 [set pcolor pink]
  ask patch -1 21 [set pcolor pink]
  ask patch -1 22 [set pcolor pink]
  ask patch -1 23 [set pcolor pink]
  ask patch -1 24 [set pcolor pink]
  ask patch -1 25 [set pcolor pink]

  ask patch 0 -25 [set pcolor pink]
  ask patch 0 -24 [set pcolor pink]
  ask patch 0 -23 [set pcolor pink]
  ask patch 0 -22 [set pcolor pink]
  ask patch 0 -21 [set pcolor pink]
  ask patch 0 -20 [set pcolor pink]
  ask patch 0 -19 [set pcolor pink]
  ask patch 0 -18 [set pcolor pink]
  ask patch 0 -17 [set pcolor pink]
  ask patch 0 -16 [set pcolor pink]
  ask patch 0 -15 [set pcolor pink]
  ask patch 0 -14 [set pcolor pink]
  ask patch 0 -13 [set pcolor pink]
  ask patch 0 -12 [set pcolor pink]
  ask patch 0 -11 [set pcolor pink]
  ask patch 0 -10 [set pcolor pink]
  ask patch 0 -9 [set pcolor pink]
  ask patch 0 -8 [set pcolor pink]
  ask patch 0 -7 [set pcolor pink]
  ask patch 0 -6 [set pcolor pink]
  ask patch 0 -5 [set pcolor pink]
  ask patch 0 -4 [set pcolor pink]
  ask patch 0 -3 [set pcolor pink]
  ask patch 0 -2 [set pcolor pink]
  ask patch 0 -1 [set pcolor pink]
  ask patch 0 0 [set pcolor pink]
  ask patch 0 1 [set pcolor pink]
  ask patch 0 2 [set pcolor pink]
  ask patch 0 3 [set pcolor pink]
  ask patch 0 4 [set pcolor pink]
  ask patch 0 5 [set pcolor pink]
  ask patch 0 6 [set pcolor pink]
  ask patch 0 7 [set pcolor pink]
  ask patch 0 8 [set pcolor pink]
  ask patch 0 9 [set pcolor pink]
  ask patch 0 10 [set pcolor pink]
  ask patch 0 11 [set pcolor pink]
  ask patch 0 12 [set pcolor pink]
  ask patch 0 13 [set pcolor pink]
  ask patch 0 14 [set pcolor pink]
  ask patch 0 15 [set pcolor pink]
  ask patch 0 16 [set pcolor pink]
  ask patch 0 17 [set pcolor pink]
  ask patch 0 18 [set pcolor pink]
  ask patch 0 19 [set pcolor pink]
  ask patch 0 20 [set pcolor pink]
  ask patch 0 21 [set pcolor pink]
  ask patch 0 22 [set pcolor pink]
  ask patch 0 23 [set pcolor pink]
  ask patch 0 24 [set pcolor pink]
  ask patch 0 25 [set pcolor pink]

  ask patch 1 -9 [set pcolor pink]
  ask patch 1 -8 [set pcolor pink]
  ask patch 1 -7 [set pcolor pink]
  ask patch 1 -6 [set pcolor pink]
  ask patch 1 -5 [set pcolor pink]
  ask patch 1 -4 [set pcolor pink]
  ask patch 1 -3 [set pcolor pink]
  ask patch 1 -2 [set pcolor pink]
  ask patch 1 -1 [set pcolor pink]
  ask patch 1 0 [set pcolor pink]
  ask patch 1 1 [set pcolor pink]
  ask patch 1 2 [set pcolor pink]
  ask patch 1 3 [set pcolor pink]
  ask patch 1 4 [set pcolor pink]
  ask patch 1 5 [set pcolor pink]
  ask patch 1 6 [set pcolor pink]
  ask patch 1 7 [set pcolor pink]
  ask patch 1 8 [set pcolor pink]
  ask patch 1 9 [set pcolor pink]
  ask patch 1 10 [set pcolor pink]
  ask patch 1 11 [set pcolor pink]
  ask patch 1 12 [set pcolor pink]
  ask patch 1 13 [set pcolor pink]
  ask patch 1 14 [set pcolor pink]
  ask patch 1 15 [set pcolor pink]
  ask patch 1 16 [set pcolor pink]
  ask patch 1 17 [set pcolor pink]
  ask patch 1 18 [set pcolor pink]
  ask patch 1 19 [set pcolor pink]
  ask patch 1 20 [set pcolor pink]
  ask patch 1 21 [set pcolor pink]
  ask patch 1 22 [set pcolor pink]
  ask patch 1 23 [set pcolor pink]
  ask patch 1 24 [set pcolor pink]
  ask patch 1 25 [set pcolor pink]

  ask patch 2 -7 [set pcolor pink]
  ask patch 2 -6 [set pcolor pink]
  ask patch 2 -5 [set pcolor pink]
  ask patch 2 -4 [set pcolor pink]
  ask patch 2 -3 [set pcolor pink]
  ask patch 2 -2 [set pcolor pink]
  ask patch 2 -1 [set pcolor pink]
  ask patch 2 0 [set pcolor pink]
  ask patch 2 1 [set pcolor pink]
  ask patch 2 2 [set pcolor pink]
  ask patch 2 3 [set pcolor pink]
  ask patch 2 4 [set pcolor pink]
  ask patch 2 5 [set pcolor pink]
  ask patch 2 6 [set pcolor pink]
  ask patch 2 7 [set pcolor pink]
  ask patch 2 8 [set pcolor pink]
  ask patch 2 9 [set pcolor pink]
  ask patch 2 10 [set pcolor pink]
  ask patch 2 11 [set pcolor pink]
  ask patch 2 12 [set pcolor pink]
  ask patch 2 13 [set pcolor pink]
  ask patch 2 14 [set pcolor pink]
  ask patch 2 15 [set pcolor pink]
  ask patch 2 16 [set pcolor pink]
  ask patch 2 17 [set pcolor pink]
  ask patch 2 18 [set pcolor pink]
  ask patch 2 19 [set pcolor pink]
  ask patch 2 20 [set pcolor pink]
  ask patch 2 21 [set pcolor pink]
  ask patch 2 22 [set pcolor pink]
  ask patch 2 23 [set pcolor pink]
  ask patch 2 24 [set pcolor pink]
  ask patch 2 25 [set pcolor pink]

  ask patch 3 -4 [set pcolor pink]
  ask patch 3 -3 [set pcolor pink]
  ask patch 3 -2 [set pcolor pink]
  ask patch 3 -1 [set pcolor pink]
  ask patch 3 0 [set pcolor pink]
  ask patch 3 1 [set pcolor pink]
  ask patch 3 2 [set pcolor pink]
  ask patch 3 3 [set pcolor pink]
  ask patch 3 4 [set pcolor pink]
  ask patch 3 5 [set pcolor pink]
  ask patch 3 6 [set pcolor pink]
  ask patch 3 7 [set pcolor pink]
  ask patch 3 8 [set pcolor pink]
  ask patch 3 9 [set pcolor pink]
  ask patch 3 10 [set pcolor pink]
  ask patch 3 11 [set pcolor pink]
  ask patch 3 12 [set pcolor pink]
  ask patch 3 13 [set pcolor pink]
  ask patch 3 14 [set pcolor pink]
  ask patch 3 15 [set pcolor pink]
  ask patch 3 16 [set pcolor pink]
  ask patch 3 17 [set pcolor pink]
  ask patch 3 18 [set pcolor pink]
  ask patch 3 19 [set pcolor pink]
  ask patch 3 20 [set pcolor pink]
  ask patch 3 21 [set pcolor pink]
  ask patch 3 22 [set pcolor pink]
  ask patch 3 23 [set pcolor pink]
  ask patch 3 24 [set pcolor pink]
  ask patch 3 25 [set pcolor pink]

  ask patch 4 -2 [set pcolor pink]
  ask patch 4 -1 [set pcolor pink]
  ask patch 4 0 [set pcolor pink]
  ask patch 4 1 [set pcolor pink]
  ask patch 4 2 [set pcolor pink]
  ask patch 4 3 [set pcolor pink]
  ask patch 4 4 [set pcolor pink]
  ask patch 4 5 [set pcolor pink]
  ask patch 4 6 [set pcolor pink]
  ask patch 4 7 [set pcolor pink]
  ask patch 4 8 [set pcolor pink]
  ask patch 4 9 [set pcolor pink]
  ask patch 4 10 [set pcolor pink]
  ask patch 4 11 [set pcolor pink]
  ask patch 4 12 [set pcolor pink]
  ask patch 4 13 [set pcolor pink]
  ask patch 4 14 [set pcolor pink]
  ask patch 4 15 [set pcolor pink]
  ask patch 4 16 [set pcolor pink]
  ask patch 4 17 [set pcolor pink]
  ask patch 4 18 [set pcolor pink]
  ask patch 4 19 [set pcolor pink]
  ask patch 4 20 [set pcolor pink]
  ask patch 4 21 [set pcolor pink]
  ask patch 4 22 [set pcolor pink]
  ask patch 4 23 [set pcolor pink]
  ask patch 4 24 [set pcolor pink]
  ask patch 4 25 [set pcolor pink]

  ask patch 5 0 [set pcolor pink]
  ask patch 5 1 [set pcolor pink]
  ask patch 5 2 [ set pcolor pink]
  ask patch 5 3 [set pcolor pink]
  ask patch 5 4 [set pcolor pink]
  ask patch 5 5 [set pcolor pink]
  ask patch 5 4 [set pcolor pink]
  ask patch 5 5 [set pcolor pink]
  ask patch 5 6 [set pcolor pink]
  ask patch 5 7 [set pcolor pink]
  ask patch 5 8 [set pcolor pink]
  ask patch 5 9 [set pcolor pink]
  ask patch 5 10 [set pcolor pink]
  ask patch 5 11 [set pcolor pink]
  ask patch 5 12 [set pcolor pink]
  ask patch 5 13 [set pcolor pink]
  ask patch 5 14 [set pcolor pink]
  ask patch 5 15 [set pcolor pink]
  ask patch 5 16 [set pcolor pink]
  ask patch 5 17 [set pcolor pink]
  ask patch 5 18 [set pcolor pink]
  ask patch 5 19 [set pcolor pink]
  ask patch 5 20 [set pcolor pink]
  ask patch 5 21 [set pcolor pink]
  ask patch 5 22 [set pcolor pink]
  ask patch 5 23 [set pcolor pink]
  ask patch 5 24 [set pcolor pink]
  ask patch 5 25 [set pcolor pink]


  ask patch -16 -25 [ set energy 50 ]
  ask patch -16 -24 [ set energy 50 ]
  ask patch -16 -23 [ set energy 50 ]
  ask patch -16 -22 [ set energy 50 ]
  ask patch -16 -21 [ set energy 50 ]
  ask patch -16 -20 [ set energy 50 ]
  ask patch -16 -19 [ set energy 50 ]
  ask patch -16 -18 [ set energy 50 ]

  ask patch -15 -25 [ set energy 50 ]
  ask patch -15 -24 [ set energy 50 ]
  ask patch -15 -23 [ set energy 50 ]
  ask patch -15 -22 [ set energy 50 ]
  ask patch -15 -21 [ set energy 50 ]
  ask patch -15 -20 [ set energy 50 ]
  ask patch -15 -19 [ set energy 50 ]
  ask patch -15 -18 [ set energy 50 ]
  ask patch -15 -17 [ set energy 50 ]
  ask patch -15 -16 [ set energy 50 ]

  ask patch -14 -25 [ set energy 50 ]
  ask patch -14 -24 [ set energy 50 ]
  ask patch -14 -23 [ set energy 50 ]
  ask patch -14 -22 [ set energy 50 ]
  ask patch -14 -21 [ set energy 50 ]
  ask patch -14 -20 [ set energy 50 ]
  ask patch -14 -19 [ set energy 50 ]
  ask patch -14 -18 [ set energy 50 ]
  ask patch -14 -17 [ set energy 50 ]
  ask patch -14 -16 [ set energy 50 ]
  ask patch -14 -15 [ set energy 50 ]
  ask patch -14 -14 [ set energy 50 ]

  ask patch -13 -25 [ set energy 50 ]
  ask patch -13 -24 [ set energy 50 ]
  ask patch -13 -23 [ set energy 50 ]
  ask patch -13 -22 [ set energy 50 ]
  ask patch -13 -21 [ set energy 50 ]
  ask patch -13 -20 [ set energy 50 ]
  ask patch -13 -19 [ set energy 50 ]
  ask patch -13 -18 [ set energy 50 ]
  ask patch -13 -17 [ set energy 50 ]
  ask patch -13 -16 [ set energy 50 ]
  ask patch -13 -15 [ set energy 50 ]
  ask patch -13 -14 [ set energy 50 ]
  ask patch -13 -13 [ set energy 50 ]
  ask patch -13 -12 [ set energy 50 ]

  ask patch -12 -25 [ set energy 50 ]
  ask patch -12 -24 [ set energy 50 ]
  ask patch -12 -23 [ set energy 50 ]
  ask patch -12 -22 [ set energy 50 ]
  ask patch -12 -21 [ set energy 50 ]
  ask patch -12 -20 [ set energy 50 ]
  ask patch -12 -19 [ set energy 50 ]
  ask patch -12 -18 [ set energy 50 ]
  ask patch -12 -17 [ set energy 50 ]
  ask patch -12 -16 [ set energy 50 ]
  ask patch -12 -15 [ set energy 50 ]
  ask patch -12 -14 [ set energy 50 ]
  ask patch -12 -13 [ set energy 50 ]
  ask patch -12 -12 [ set energy 50 ]
  ask patch -12 -11 [ set energy 50 ]
  ask patch -12 -10 [ set energy 50 ]

  ask patch -11 -25 [ set energy 50 ]
  ask patch -11 -24 [ set energy 50 ]
  ask patch -11 -23 [ set energy 50 ]
  ask patch -11 -22 [ set energy 50 ]
  ask patch -11 -21 [ set energy 50 ]
  ask patch -11 -20 [ set energy 50 ]
  ask patch -11 -19 [ set energy 50 ]
  ask patch -11 -18 [ set energy 50 ]
  ask patch -11 -17 [ set energy 50 ]
  ask patch -11 -16 [ set energy 50 ]
  ask patch -11 -15 [ set energy 50 ]
  ask patch -11 -14 [ set energy 50 ]
  ask patch -11 -13 [ set energy 50 ]
  ask patch -11 -12 [ set energy 50 ]
  ask patch -11 -11 [ set energy 50 ]
  ask patch -11 -10 [ set energy 50 ]
  ask patch -11 -9 [ set energy 50 ]
  ask patch -11 -8 [ set energy 50 ]

  ask patch -10 -25 [ set energy 50 ]
  ask patch -10 -24 [ set energy 50 ]
  ask patch -10 -23 [ set energy 50 ]
  ask patch -10 -22 [ set energy 50 ]
  ask patch -10 -21 [ set energy 50 ]
  ask patch -10 -20 [ set energy 50 ]
  ask patch -10 -19 [ set energy 50 ]
  ask patch -10 -18 [ set energy 50 ]
  ask patch -10 -17 [ set energy 50 ]
  ask patch -10 -16 [ set energy 50 ]
  ask patch -10 -15 [ set energy 50 ]
  ask patch -10 -14 [ set energy 50 ]
  ask patch -10 -13 [ set energy 50 ]
  ask patch -10 -12 [ set energy 50 ]
  ask patch -10 -11 [ set energy 50 ]
  ask patch -10 -10 [ set energy 50 ]
  ask patch -10 -9 [ set energy 50 ]
  ask patch -10 -8 [ set energy 50 ]
  ask patch -10 -7 [ set energy 50 ]
  ask patch -10 -6 [ set energy 50 ]

  ask patch -9 -25 [ set energy 50 ]
  ask patch -9 -24 [ set energy 50 ]
  ask patch -9 -23 [ set energy 50 ]
  ask patch -9 -22 [ set energy 50 ]
  ask patch -9 -21 [ set energy 50 ]
  ask patch -9 -20 [ set energy 50 ]
  ask patch -9 -19 [ set energy 50 ]
  ask patch -9 -18 [ set energy 50 ]
  ask patch -9 -17 [ set energy 50 ]
  ask patch -9 -16 [ set energy 50 ]
  ask patch -9 -15 [ set energy 50 ]
  ask patch -9 -14 [ set energy 50 ]
  ask patch -9 -13 [ set energy 50 ]
  ask patch -9 -12 [ set energy 50 ]
  ask patch -9 -11 [ set energy 50 ]
  ask patch -9 -10 [ set energy 50 ]
  ask patch -9 -9 [ set energy 50 ]
  ask patch -9 -8 [ set energy 50 ]
  ask patch -9 -7 [ set energy 50 ]
  ask patch -9 -6 [ set energy 50 ]
  ask patch -9 -5 [ set energy 50 ]
  ask patch -9 -4 [ set energy 50 ]

  ask patch -8 -25 [ set energy 50 ]
  ask patch -8 -24 [ set energy 50 ]
  ask patch -8 -23 [ set energy 50 ]
  ask patch -8 -22 [ set energy 50 ]
  ask patch -8 -21 [ set energy 50 ]
  ask patch -8 -20 [ set energy 50 ]
  ask patch -8 -19 [ set energy 50 ]
  ask patch -8 -18 [ set energy 50 ]
  ask patch -8 -17 [ set energy 50 ]
  ask patch -8 -16 [ set energy 50 ]
  ask patch -8 -15 [ set energy 50 ]
  ask patch -8 -14 [ set energy 50 ]
  ask patch -8 -13 [ set energy 50 ]
  ask patch -8 -12 [ set energy 50 ]
  ask patch -8 -11 [ set energy 50 ]
  ask patch -8 -10 [ set energy 50 ]
  ask patch -8 -9 [ set energy 50 ]
  ask patch -8 -8 [ set energy 50 ]
  ask patch -8 -7 [ set energy 50 ]
  ask patch -8 -6 [ set energy 50 ]
  ask patch -8 -5 [ set energy 50 ]
  ask patch -8 -4 [ set energy 50 ]
  ask patch -8 -3 [ set energy 50 ]
  ask patch -8 -2 [ set energy 50 ]
  ask patch -8 -1 [ set energy 50 ]

  ask patch -7 -25 [ set energy 50 ]
  ask patch -7 -24 [ set energy 50 ]
  ask patch -7 -23 [ set energy 50 ]
  ask patch -7 -22 [ set energy 50 ]
  ask patch -7 -21 [ set energy 50 ]
  ask patch -7 -20 [ set energy 50 ]
  ask patch -7 -19 [ set energy 50 ]
  ask patch -7 -18 [ set energy 50 ]
  ask patch -7 -17 [ set energy 50 ]
  ask patch -7 -16 [ set energy 50 ]
  ask patch -7 -15 [ set energy 50 ]
  ask patch -7 -14 [ set energy 50 ]
  ask patch -7 -13 [ set energy 50 ]
  ask patch -7 -12 [ set energy 50 ]
  ask patch -7 -11 [ set energy 50 ]
  ask patch -7 -10 [ set energy 50 ]
  ask patch -7 -9 [ set energy 50 ]
  ask patch -7 -8 [ set energy 50 ]
  ask patch -7 -7 [ set energy 50 ]
  ask patch -7 -6 [ set energy 50 ]
  ask patch -7 -5 [ set energy 50 ]
  ask patch -7 -4 [ set energy 50 ]
  ask patch -7 -3 [ set energy 50 ]
  ask patch -7 -2 [ set energy 50 ]
  ask patch -7 -1 [ set energy 50 ]
  ask patch -7 0 [ set energy 50 ]

  ask patch -6 -25 [ set energy 50 ]
  ask patch -6 -24 [ set energy 50 ]
  ask patch -6 -23 [ set energy 50 ]
  ask patch -6 -22 [ set energy 50 ]
  ask patch -6 -21 [ set energy 50 ]
  ask patch -6 -20 [ set energy 50 ]
  ask patch -6 -19 [ set energy 50 ]
  ask patch -6 -18 [ set energy 50 ]
  ask patch -6 -17 [ set energy 50 ]
  ask patch -6 -16 [ set energy 50 ]
  ask patch -6 -15 [ set energy 50 ]
  ask patch -6 -14 [ set energy 50 ]
  ask patch -6 -13 [ set energy 50 ]
  ask patch -6 -12 [ set energy 50 ]
  ask patch -6 -11 [ set energy 50 ]
  ask patch -6 -10 [ set energy 50 ]
  ask patch -6 -9 [ set energy 50 ]
  ask patch -6 -8 [ set energy 50 ]
  ask patch -6 -7 [ set energy 50 ]
  ask patch -6 -6 [ set energy 50 ]
  ask patch -6 -5 [ set energy 50 ]
  ask patch -6 -4 [ set energy 50 ]
  ask patch -6 -3 [ set energy 50 ]
  ask patch -6 -2 [ set energy 50 ]
  ask patch -6 -1 [ set energy 50 ]
  ask patch -6 0 [ set energy 50 ]
  ask patch -6 1 [ set energy 50 ]
  ask patch -6 2 [ set energy 50 ]
  ask patch -6 3 [ set energy 50 ]
  ask patch -6 4 [ set energy 50 ]
  ask patch -6 5 [ set energy 50 ]
  ask patch -6 6 [ set energy 50 ]
  ask patch -6 7 [ set energy 50 ]
  ask patch -6 8 [ set energy 50 ]
  ask patch -6 9 [ set energy 50 ]
  ask patch -6 10 [ set energy 50 ]
  ask patch -6 11 [ set energy 50 ]
  ask patch -6 12 [ set energy 50 ]
  ask patch -6 13 [ set energy 50 ]
  ask patch -6 14 [ set energy 50 ]
  ask patch -6 15 [ set energy 50 ]
  ask patch -6 16 [ set energy 50 ]
  ask patch -6 17 [ set energy 50 ]
  ask patch -6 18 [ set energy 50 ]
  ask patch -6 19 [ set energy 50 ]
  ask patch -6 20 [ set energy 50 ]
  ask patch -6 21 [ set energy 50 ]
  ask patch -6 22 [ set energy 50 ]
  ask patch -6 23 [ set energy 50 ]
  ask patch -6 24 [ set energy 50 ]
  ask patch -6 25 [ set energy 50 ]

  ask patch -5 -25 [ set energy 50 ]
  ask patch -5 -24 [ set energy 50 ]
  ask patch -5 -23 [ set energy 50 ]
  ask patch -5 -22 [ set energy 50 ]
  ask patch -5 -21 [ set energy 50 ]
  ask patch -5 -20 [ set energy 50 ]
  ask patch -5 -19 [ set energy 50 ]
  ask patch -5 -18 [ set energy 50 ]
  ask patch -5 -17 [ set energy 50 ]
  ask patch -5 -16 [ set energy 50 ]
  ask patch -5 -15 [ set energy 50 ]
  ask patch -5 -14 [ set energy 50 ]
  ask patch -5 -13 [ set energy 50 ]
  ask patch -5 -12 [ set energy 50 ]
  ask patch -5 -11 [ set energy 50 ]
  ask patch -5 -10 [ set energy 50 ]
  ask patch -5 -9 [ set energy 50 ]
  ask patch -5 -8 [ set energy 50 ]
  ask patch -5 -7 [ set energy 50 ]
  ask patch -5 -6 [ set energy 50 ]
  ask patch -5 -5 [ set energy 50 ]
  ask patch -5 -4 [ set energy 50 ]
  ask patch -5 -3 [ set energy 50 ]
  ask patch -5 -2 [ set energy 50 ]
  ask patch -5 -1 [ set energy 50 ]
  ask patch -5 0 [ set energy 50 ]
  ask patch -5 1 [ set energy 50 ]
  ask patch -5 2 [ set energy 50 ]
  ask patch -5 3 [ set energy 50 ]
  ask patch -5 4 [ set energy 50 ]
  ask patch -5 5 [ set energy 50 ]
  ask patch -5 6 [ set energy 50 ]
  ask patch -5 7 [ set energy 50 ]
  ask patch -5 8 [ set energy 50 ]
  ask patch -5 9 [ set energy 50 ]
  ask patch -5 10 [ set energy 50 ]
  ask patch -5 11 [ set energy 50 ]
  ask patch -5 12 [ set energy 50 ]
  ask patch -5 13 [ set energy 50 ]
  ask patch -5 14 [ set energy 50 ]
  ask patch -5 15 [ set energy 50 ]
  ask patch -5 16 [ set energy 50 ]
  ask patch -5 17 [ set energy 50 ]
  ask patch -5 18 [ set energy 50 ]
  ask patch -5 19 [ set energy 50 ]
  ask patch -5 20 [ set energy 50 ]
  ask patch -5 21 [ set energy 50 ]
  ask patch -5 22 [ set energy 50 ]
  ask patch -5 23 [ set energy 50 ]
  ask patch -5 24 [ set energy 50 ]
  ask patch -5 25 [ set energy 50 ]

  ask patch -4 -25 [ set energy 50 ]
  ask patch -4 -24 [ set energy 50 ]
  ask patch -4 -23 [ set energy 50 ]
  ask patch -4 -22 [ set energy 50 ]
  ask patch -4 -21 [ set energy 50 ]
  ask patch -4 -20 [ set energy 50 ]
  ask patch -4 -19 [ set energy 50 ]
  ask patch -4 -18 [ set energy 50 ]
  ask patch -4 -17 [ set energy 50 ]
  ask patch -4 -16 [ set energy 50 ]
  ask patch -4 -15 [ set energy 50 ]
  ask patch -4 -14 [ set energy 50 ]
  ask patch -4 -13 [ set energy 50 ]
  ask patch -4 -12 [ set energy 50 ]
  ask patch -4 -11 [ set energy 50 ]
  ask patch -4 -10 [ set energy 50 ]
  ask patch -4 -9 [ set energy 50 ]
  ask patch -4 -8 [ set energy 50 ]
  ask patch -4 -7 [ set energy 50 ]
  ask patch -4 -6 [ set energy 50 ]
  ask patch -4 -5 [ set energy 50 ]
  ask patch -4 -4 [ set energy 50 ]
  ask patch -4 -3 [ set energy 50 ]
  ask patch -4 -2 [ set energy 50 ]
  ask patch -4 -1 [ set energy 50 ]
  ask patch -4 0 [ set energy 50 ]
  ask patch -4 1 [ set energy 50 ]
  ask patch -4 2 [ set energy 50 ]
  ask patch -4 3 [ set energy 50 ]
  ask patch -4 4 [ set energy 50 ]
  ask patch -4 5 [ set energy 50 ]
  ask patch -4 6 [ set energy 50 ]
  ask patch -4 7 [ set energy 50 ]
  ask patch -4 8 [ set energy 50 ]
  ask patch -4 9 [ set energy 50 ]
  ask patch -4 10 [ set energy 50 ]
  ask patch -4 11 [ set energy 50 ]
  ask patch -4 12 [ set energy 50 ]
  ask patch -4 13 [ set energy 50 ]
  ask patch -4 14 [ set energy 50 ]
  ask patch -4 15 [ set energy 50 ]
  ask patch -4 16 [ set energy 50 ]
  ask patch -4 17 [ set energy 50 ]
  ask patch -4 18 [ set energy 50 ]
  ask patch -4 19 [ set energy 50 ]
  ask patch -4 20 [ set energy 50 ]
  ask patch -4 21 [ set energy 50 ]
  ask patch -4 22 [ set energy 50 ]
  ask patch -4 23 [ set energy 50 ]
  ask patch -4 24 [ set energy 50 ]
  ask patch -4 25 [ set energy 50 ]

  ask patch -3 -25 [ set energy 50 ]
  ask patch -3 -24 [ set energy 50 ]
  ask patch -3 -23 [ set energy 50 ]
  ask patch -3 -22 [ set energy 50 ]
  ask patch -3 -21 [ set energy 50 ]
  ask patch -3 -20 [ set energy 50 ]
  ask patch -3 -19 [ set energy 50 ]
  ask patch -3 -18 [ set energy 50 ]
  ask patch -3 -17 [ set energy 50 ]
  ask patch -3 -16 [ set energy 50 ]
  ask patch -3 -15 [ set energy 50 ]
  ask patch -3 -14 [ set energy 50 ]
  ask patch -3 -13 [ set energy 50 ]
  ask patch -3 -12 [ set energy 50 ]
  ask patch -3 -11 [ set energy 50 ]
  ask patch -3 -10 [ set energy 50 ]
  ask patch -3 -9 [ set energy 50 ]
  ask patch -3 -8 [ set energy 50 ]
  ask patch -3 -7 [ set energy 50 ]
  ask patch -3 -6 [ set energy 50 ]
  ask patch -3 -5 [ set energy 50 ]
  ask patch -3 -4 [ set energy 50 ]
  ask patch -3 -3 [ set energy 50 ]
  ask patch -3 -2 [ set energy 50 ]
  ask patch -3 -1 [ set energy 50 ]
  ask patch -3 0 [ set energy 50 ]
  ask patch -3 1 [ set energy 50 ]
  ask patch -3 2 [ set energy 50 ]
  ask patch -3 3 [ set energy 50 ]
  ask patch -3 4 [ set energy 50 ]
  ask patch -3 5 [ set energy 50 ]
  ask patch -3 6 [ set energy 50 ]
  ask patch -3 7 [ set energy 50 ]
  ask patch -3 8 [ set energy 50 ]
  ask patch -3 9 [ set energy 50 ]
  ask patch -3 10 [ set energy 50 ]
  ask patch -3 11 [ set energy 50 ]
  ask patch -3 12 [ set energy 50 ]
  ask patch -3 13 [ set energy 50 ]
  ask patch -3 14 [ set energy 50 ]
  ask patch -3 15 [ set energy 50 ]
  ask patch -3 16 [ set energy 50 ]
  ask patch -3 17 [ set energy 50 ]
  ask patch -3 18 [ set energy 50 ]
  ask patch -3 19 [ set energy 50 ]
  ask patch -3 20 [ set energy 50 ]
  ask patch -3 21 [ set energy 50 ]
  ask patch -3 22 [ set energy 50 ]
  ask patch -3 23 [ set energy 50 ]
  ask patch -3 24 [ set energy 50 ]
  ask patch -3 25 [ set energy 50 ]

  ask patch -2 -25 [ set energy 50 ]
  ask patch -2 -24 [ set energy 50 ]
  ask patch -2 -23 [ set energy 50 ]
  ask patch -2 -22 [ set energy 50 ]
  ask patch -2 -21 [ set energy 50 ]
  ask patch -2 -20 [ set energy 50 ]
  ask patch -2 -21 [ set energy 50 ]
  ask patch -2 -20 [ set energy 50 ]
  ask patch -2 -19 [ set energy 50 ]
  ask patch -2 -18 [ set energy 50 ]
  ask patch -2 -17 [ set energy 50 ]
  ask patch -2 -16 [ set energy 50 ]
  ask patch -2 -15 [ set energy 50 ]
  ask patch -2 -14 [ set energy 50 ]
  ask patch -2 -13 [ set energy 50 ]
  ask patch -2 -12 [ set energy 50 ]
  ask patch -2 -11 [ set energy 50 ]
  ask patch -2 -10 [ set energy 50 ]
  ask patch -2 -9 [ set energy 50 ]
  ask patch -2 -8 [ set energy 50 ]
  ask patch -2 -7 [ set energy 50 ]
  ask patch -2 -6 [ set energy 50 ]
  ask patch -2 -5 [ set energy 50 ]
  ask patch -2 -4 [ set energy 50 ]
  ask patch -2 -3 [ set energy 50 ]
  ask patch -2 -2 [ set energy 50 ]
  ask patch -2 -1 [ set energy 50 ]
  ask patch -2 0 [ set energy 50 ]
  ask patch -2 1 [ set energy 50 ]
  ask patch -2 2 [ set energy 50 ]
  ask patch -2 3 [ set energy 50 ]
  ask patch -2 4 [ set energy 50 ]
  ask patch -2 5 [ set energy 50 ]
  ask patch -2 6 [ set energy 50 ]
  ask patch -2 7 [ set energy 50 ]
  ask patch -2 8 [ set energy 50 ]
  ask patch -2 9 [ set energy 50 ]
  ask patch -2 10 [ set energy 50 ]
  ask patch -2 11 [ set energy 50 ]
  ask patch -2 12 [ set energy 50 ]
  ask patch -2 13 [ set energy 50 ]
  ask patch -2 14 [ set energy 50 ]
  ask patch -2 15 [ set energy 50 ]
  ask patch -2 16 [ set energy 50 ]
  ask patch -2 17 [ set energy 50 ]
  ask patch -2 18 [ set energy 50 ]
  ask patch -2 19 [ set energy 50 ]
  ask patch -2 20 [ set energy 50 ]
  ask patch -2 21 [ set energy 50 ]
  ask patch -2 22 [ set energy 50 ]
  ask patch -2 23 [ set energy 50 ]
  ask patch -2 24 [ set energy 50 ]
  ask patch -2 25 [ set energy 50 ]

  ask patch -1 -25 [ set energy 50 ]
  ask patch -1 -24 [ set energy 50 ]
  ask patch -1 -23 [ set energy 50 ]
  ask patch -1 -22 [ set energy 50 ]
  ask patch -1 -21 [ set energy 50 ]
  ask patch -1 -20 [ set energy 50 ]
  ask patch -1 -19 [ set energy 50 ]
  ask patch -1 -18 [ set energy 50 ]
  ask patch -1 -17 [ set energy 50 ]
  ask patch -1 -16 [ set energy 50 ]
  ask patch -1 -15 [ set energy 50 ]
  ask patch -1 -14 [ set energy 50 ]
  ask patch -1 -13 [ set energy 50 ]
  ask patch -1 -12 [ set energy 50 ]
  ask patch -1 -11 [ set energy 50 ]
  ask patch -1 -10 [ set energy 50 ]
  ask patch -1 -9 [ set energy 50 ]
  ask patch -1 -8 [ set energy 50 ]
  ask patch -1 -7 [ set energy 50 ]
  ask patch -1 -6 [ set energy 50 ]
  ask patch -1 -5 [ set energy 50 ]
  ask patch -1 -4 [ set energy 50 ]
  ask patch -1 -3 [ set energy 50 ]
  ask patch -1 -2 [ set energy 50 ]
  ask patch -1 -1 [ set energy 50 ]
  ask patch -1 1 [ set energy 50 ]
  ask patch -1 0 [ set energy 50 ]
  ask patch -1 2 [ set energy 50 ]
  ask patch -1 3 [ set energy 50 ]
  ask patch -1 4 [ set energy 50 ]
  ask patch -1 5 [ set energy 50 ]
  ask patch -1 6 [ set energy 50 ]
  ask patch -1 7 [ set energy 50 ]
  ask patch -1 8 [ set energy 50 ]
  ask patch -1 9 [ set energy 50 ]
  ask patch -1 10 [ set energy 50 ]
  ask patch -1 11 [ set energy 50 ]
  ask patch -1 12 [ set energy 50 ]
  ask patch -1 13 [ set energy 50 ]
  ask patch -1 12 [ set energy 50 ]
  ask patch -1 13 [ set energy 50 ]
  ask patch -1 14 [ set energy 50 ]
  ask patch -1 15 [ set energy 50 ]
  ask patch -1 16 [ set energy 50 ]
  ask patch -1 17 [ set energy 50 ]
  ask patch -1 18 [ set energy 50 ]
  ask patch -1 19 [ set energy 50 ]
  ask patch -1 20 [ set energy 50 ]
  ask patch -1 21 [ set energy 50 ]
  ask patch -1 22 [ set energy 50 ]
  ask patch -1 23 [ set energy 50 ]
  ask patch -1 24 [ set energy 50 ]
  ask patch -1 25 [ set energy 50 ]

  ask patch 0 -25 [ set energy 50 ]
  ask patch 0 -24 [ set energy 50 ]
  ask patch 0 -23 [ set energy 50 ]
  ask patch 0 -22 [ set energy 50 ]
  ask patch 0 -21 [ set energy 50 ]
  ask patch 0 -20 [ set energy 50 ]
  ask patch 0 -19 [ set energy 50 ]
  ask patch 0 -18 [ set energy 50 ]
  ask patch 0 -17 [ set energy 50 ]
  ask patch 0 -16 [ set energy 50 ]
  ask patch 0 -15 [ set energy 50 ]
  ask patch 0 -14 [ set energy 50 ]
  ask patch 0 -13 [ set energy 50 ]
  ask patch 0 -12 [ set energy 50 ]
  ask patch 0 -11 [ set energy 50 ]
  ask patch 0 -10 [ set energy 50 ]
  ask patch 0 -9 [ set energy 50 ]
  ask patch 0 -8 [ set energy 50 ]
  ask patch 0 -7 [ set energy 50 ]
  ask patch 0 -6 [ set energy 50 ]
  ask patch 0 -5 [ set energy 50 ]
  ask patch 0 -4 [ set energy 50 ]
  ask patch 0 -3 [ set energy 50 ]
  ask patch 0 -2[ set energy 50 ]
  ask patch 0 -1[ set energy 50 ]
  ask patch 0 0 [ set energy 50 ]
  ask patch 0 1 [ set energy 50 ]
  ask patch 0 2 [ set energy 50 ]
  ask patch 0 3 [ set energy 50 ]
  ask patch 0 4 [ set energy 50 ]
  ask patch 0 5 [ set energy 50 ]
  ask patch 0 6 [ set energy 50 ]
  ask patch 0 7 [ set energy 50 ]
  ask patch 0 8 [ set energy 50 ]
  ask patch 0 9 [set energy 50 ]
  ask patch 0 10 [ set energy 50 ]
  ask patch 0 11 [ set energy 50 ]
  ask patch 0 12 [ set energy 50 ]
  ask patch 0 13 [ set energy 50 ]
  ask patch 0 12 [ set energy 50 ]
  ask patch 0 13 [ set energy 50 ]
  ask patch 0 14 [ set energy 50 ]
  ask patch 0 15 [ set energy 50 ]
  ask patch 0 16 [ set energy 50 ]
  ask patch 0 17 [ set energy 50 ]
  ask patch 0 18 [ set energy 50 ]
  ask patch 0 19 [ set energy 50 ]
  ask patch 0 20 [ set energy 50 ]
  ask patch 0 21 [ set energy 50 ]
  ask patch 0 22 [ set energy 50 ]
  ask patch 0 23 [ set energy 50 ]
  ask patch 0 24 [ set energy 50 ]
  ask patch 0 25 [ set energy 50 ]


  ask patch 1 -7 [ set energy 50 ]
  ask patch 1 -8 [ set energy 50 ]
  ask patch 1 -6 [ set energy 50 ]
  ask patch 1 -5 [ set energy 50 ]
  ask patch 1 -4 [ set energy 50 ]
  ask patch 1 -3 [ set energy 50 ]
  ask patch 1 -2 [ set energy 50 ]
  ask patch 1 -1 [ set energy 50 ]
  ask patch 1 0 [ set energy 50 ]
  ask patch 1 1 [ set energy 50 ]
  ask patch 1 2 [ set energy 50 ]
  ask patch 1 3 [ set energy 50 ]
  ask patch 1 4 [ set energy 50 ]
  ask patch 1 5 [ set energy 50 ]
  ask patch 1 6 [ set energy 50 ]
  ask patch 1 7 [ set energy 50 ]
  ask patch 1 8 [ set energy 50 ]
  ask patch 1 9 [ set energy 50 ]
  ask patch 1 10 [ set energy 50 ]
  ask patch 1 11 [ set energy 50 ]
  ask patch 1 12 [ set energy 50 ]
  ask patch 1 13 [ set energy 50 ]
  ask patch 1 14 [ set energy 50 ]
  ask patch 1 15 [ set energy 50 ]
  ask patch 1 16 [ set energy 50 ]

  ask patch 2 -7 [ set energy 50 ]
  ask patch 2 -6 [ set energy 50 ]
  ask patch 2 -5 [ set energy 50 ]
  ask patch 2 -4 [ set energy 50 ]
  ask patch 2 -3 [ set energy 50 ]
  ask patch 2 -2 [ set energy 50 ]
  ask patch 2 -1 [ set energy 50 ]
  ask patch 2 0 [ set energy 50 ]
  ask patch 2 1 [ set energy 50 ]
  ask patch 2 2 [ set energy 50 ]
  ask patch 2 3 [ set energy 50 ]
  ask patch 2 4 [ set energy 50 ]
  ask patch 2 5 [ set energy 50 ]
  ask patch 2 6 [ set energy 50 ]
  ask patch 2 7 [ set energy 50 ]
  ask patch 2 8 [ set energy 50 ]
  ask patch 2 9 [ set energy 50 ]
  ask patch 2 10 [ set energy 50 ]
  ask patch 2 11 [ set energy 50 ]
  ask patch 2 12 [ set energy 50 ]
  ask patch 2 13 [ set energy 50 ]
  ask patch 2 14 [ set energy 50 ]
  ask patch 2 15 [ set energy 50 ]
  ask patch 2 16 [ set energy 50 ]

  ask patch 3 -4 [ set energy 50 ]
  ask patch 3 -3 [ set energy 50 ]
  ask patch 3 -2 [ set energy 50 ]
  ask patch 3 -1 [ set energy 50 ]
  ask patch 3 0 [ set energy 50 ]
  ask patch 3 1 [ set energy 50 ]
  ask patch 3 2 [ set energy 50 ]
  ask patch 3 3 [ set energy 50 ]
  ask patch 3 4 [ set energy 50 ]
  ask patch 3 5 [ set energy 50 ]
  ask patch 3 6 [ set energy 50 ]
  ask patch 3 7 [ set energy 50 ]
  ask patch 3 8 [ set energy 50 ]
  ask patch 3 9 [ set energy 50 ]
  ask patch 3 10 [ set energy 50 ]
  ask patch 3 11 [ set energy 50 ]
  ask patch 3 12 [ set energy 50 ]
  ask patch 3 13 [ set energy 50 ]
  ask patch 3 14 [ set energy 50 ]
  ask patch 3 15 [ set energy 50 ]
  ask patch 3 16 [ set energy 50 ]

  ask patch 4 -2 [ set energy 50 ]
  ask patch 4 -1 [ set energy 50 ]
  ask patch 4 0 [ set energy 50 ]
  ask patch 4 1 [ set energy 50 ]
  ask patch 4 2 [ set energy 50 ]
  ask patch 4 3 [ set energy 50 ]
  ask patch 4 4 [ set energy 50 ]
  ask patch 4 5 [ set energy 50 ]
  ask patch 4 6 [ set energy 50 ]
  ask patch 4 7 [ set energy 50 ]
  ask patch 4 8 [ set energy 50 ]
  ask patch 4 9 [ set energy 50 ]
  ask patch 4 10 [ set energy 50 ]
  ask patch 4 11 [ set energy 50 ]
  ask patch 4 12 [ set energy 50 ]
  ask patch 4 13 [ set energy 50 ]
  ask patch 4 14 [ set energy 50 ]
  ask patch 4 15 [ set energy 50 ]
  ask patch 4 16 [ set energy 50 ]

  ask patch 5 3 [ set energy 50 ]
  ask patch 5 4 [ set energy 50 ]
  ask patch 5 5 [ set energy 50 ]
  ask patch 5 6 [ set energy 50 ]
  ask patch 5 7 [ set energy 50 ]
  ask patch 5 8 [ set energy 50 ]
  ask patch 5 9 [ set energy 50 ]
  ask patch 5 10 [ set energy 50 ]
  ask patch 5 11 [ set energy 50 ]
  ask patch 5 12 [ set energy 50 ]
  ask patch 5 13 [ set energy 50 ]
  ask patch 5 14 [ set energy 50 ]
  ask patch 5 15 [ set energy 50 ]
  ask patch 5 16 [ set energy 50 ]

  ;gullies

  ask patch 1 -21 [set pcolor pink]
  ask patch 1 -19 [set pcolor pink]
  ask patch 1 -17 [set pcolor pink]
  ask patch 1 -16 [set pcolor pink]
  ask patch 1 -13 [set pcolor pink]

  ask patch 2 -20 [set pcolor pink]
  ask patch 2 -17 [set pcolor pink]
  ask patch 2 -16 [set pcolor pink]
  ask patch 2 -13 [set pcolor pink]
  ask patch 2 -12 [set pcolor pink]

  ask patch 3 -25 [set pcolor pink]
  ask patch 3 -21 [set pcolor pink]
  ask patch 3 -19 [set pcolor pink]
  ask patch 3 -17 [set pcolor pink]
  ask patch 3 -16 [set pcolor pink]
  ask patch 3 -12 [set pcolor pink]
  ask patch 3 -11 [set pcolor pink]
  ask patch 3 -7 [set pcolor pink]

  ask patch 4 -25 [set pcolor pink]
  ask patch 4 -24 [set pcolor pink]
  ask patch 4 -22 [set pcolor pink]
  ask patch 4 -18 [set pcolor pink]
  ask patch 4 -17 [set pcolor pink]
  ask patch 4 -16 [set pcolor pink]
  ask patch 4 -11 [set pcolor pink]
  ask patch 4 -10 [set pcolor pink]
  ask patch 4 -8 [set pcolor pink]

  ask patch 5 -24 [set pcolor pink]
  ask patch 5 -23 [set pcolor pink]
  ask patch 5 -17 [set pcolor pink]
  ask patch 5 -16 [set pcolor pink]
  ask patch 5 -10 [set pcolor pink]
  ask patch 5 -9 [set pcolor pink]
  ask patch 5 -1 [set pcolor pink]

  ask patch 6 -23 [set pcolor pink]
  ask patch 6 -22 [set pcolor pink]
  ask patch 6 -17 [set pcolor pink]
  ask patch 6 -16 [set pcolor pink]
  ask patch 6 -11 [set pcolor pink]
  ask patch 6 -10 [set pcolor pink]
  ask patch 6 -9 [set pcolor pink]
  ask patch 6 -8 [set pcolor pink]
  ask patch 6 -2 [set pcolor pink]
  ask patch 6 1 [set pcolor pink]
  ask patch 6 2 [set pcolor pink]
  ask patch 6 4 [set pcolor pink]
  ask patch 6 5 [set pcolor pink]
  ask patch 6 6 [set pcolor pink]
  ask patch 6 12 [set pcolor pink]
  ask patch 6 14 [set pcolor pink]
  ask patch 6 15 [set pcolor pink]
  ask patch 6 18 [set pcolor pink]
  ask patch 6 24 [set pcolor pink]
  ask patch 6 25 [set pcolor pink]

  ask patch 7 -22 [set pcolor pink]
  ask patch 7 -21 [set pcolor pink]
  ask patch 7 -17 [set pcolor pink]
  ask patch 7 -16 [set pcolor pink]
  ask patch 7 -15 [set pcolor pink]
  ask patch 7 -12 [set pcolor pink]
  ask patch 7 -11 [set pcolor pink]
  ask patch 7 -8 [set pcolor pink]
  ask patch 7 -7 [set pcolor pink]
  ask patch 7 -3 [set pcolor pink]
  ask patch 7 1 [set pcolor pink]
  ask patch 7 2 [set pcolor pink]
  ask patch 7 5 [set pcolor pink]
  ask patch 7 6 [set pcolor pink]
  ask patch 7 11 [set pcolor pink]
  ask patch 7 14 [set pcolor pink]
  ask patch 7 15 [set pcolor pink]
  ask patch 7 18 [set pcolor pink]
  ask patch 7 19 [set pcolor pink]
  ask patch 7 23 [set pcolor pink]
  ask patch 7 24 [set pcolor pink]

  ask patch 8 -22 [set pcolor pink]
  ask patch 8 -21 [set pcolor pink]
  ask patch 8 -20 [set pcolor pink]
  ask patch 8 -17 [set pcolor pink]
  ask patch 8 -16 [set pcolor pink]
  ask patch 8 -14 [set pcolor pink]
  ask patch 8 -13 [set pcolor pink]
  ask patch 8 -12 [set pcolor pink]
  ask patch 8 -7 [set pcolor pink]
  ask patch 8 -6 [set pcolor pink]
  ask patch 8 -4 [set pcolor pink]
  ask patch 8 1 [set pcolor pink]
  ask patch 8 2 [set pcolor pink]
  ask patch 8 4 [set pcolor pink]
  ask patch 8 6 [set pcolor pink]
  ask patch 8 7 [set pcolor pink]
  ask patch 8 10 [set pcolor pink]
  ask patch 8 14 [set pcolor pink]
  ask patch 8 15 [set pcolor pink]
  ask patch 8 17 [set pcolor pink]
  ask patch 8 20 [set pcolor pink]
  ask patch 8 22 [set pcolor pink]
  ask patch 8 23 [set pcolor pink]

  ask patch 9 -23 [set pcolor pink]
  ask patch 9 -20 [set pcolor pink]
  ask patch 9 -19 [set pcolor pink]
  ask patch 9 -17 [set pcolor pink]
  ask patch 9 -16 [set pcolor pink]
  ask patch 9 -14 [set pcolor pink]
  ask patch 9 -13 [set pcolor pink]
  ask patch 9 -5 [set pcolor pink]
  ask patch 9 -6 [set pcolor pink]
  ask patch 9 1 [set pcolor pink]
  ask patch 9 2 [set pcolor pink]
  ask patch 9 3 [set pcolor pink]
  ask patch 9 7 [set pcolor pink]
  ask patch 9 8 [set pcolor pink]
  ask patch 9 9 [set pcolor pink]
  ask patch 9 14 [set pcolor pink]
  ask patch 9 15 [set pcolor pink]
  ask patch 9 16 [set pcolor pink]
  ask patch 9 20 [set pcolor pink]
  ask patch 9 21 [set pcolor pink]
  ask patch 9 22 [set pcolor pink]

  ask patch 10 -24 [set pcolor pink]
  ask patch 10 -19 [set pcolor pink]
  ask patch 10 -18 [set pcolor pink]
  ask patch 10 -17 [set pcolor pink]
  ask patch 10 -16 [set pcolor pink]
  ask patch 10 -15 [set pcolor pink]
  ask patch 10 -14 [set pcolor pink]
  ask patch 10 -12 [set pcolor pink]
  ask patch 10 -7 [set pcolor pink]
  ask patch 10 -6 [set pcolor pink]
  ask patch 10 -5 [set pcolor pink]
  ask patch 10 -4 [set pcolor pink]
  ask patch 10 1 [set pcolor pink]
  ask patch 10 2 [set pcolor pink]
  ask patch 10 7 [set pcolor pink]
  ask patch 10 8 [set pcolor pink]
  ask patch 10 9 [set pcolor pink]
  ask patch 10 14 [set pcolor pink]
  ask patch 10 15 [set pcolor pink]
  ask patch 10 20 [set pcolor pink]
  ask patch 10 21 [set pcolor pink]
  ask patch 10 22 [set pcolor pink]

  ask patch 11 -25 [set pcolor pink]
  ask patch 11 -18 [set pcolor pink]
  ask patch 11 -17 [set pcolor pink]
  ask patch 11 -16 [set pcolor pink]
  ask patch 11 -15 [set pcolor pink]
  ask patch 11 -11 [set pcolor pink]
  ask patch 11 -8 [set pcolor pink]
  ask patch 11 -7 [set pcolor pink]
  ask patch 11 -4 [set pcolor pink]
  ask patch 11 -3 [set pcolor pink]
  ask patch 11 1 [set pcolor pink]
  ask patch 11 2 [set pcolor pink]
  ask patch 11 6 [set pcolor pink]
  ask patch 11 7 [set pcolor pink]
  ask patch 11 9 [set pcolor pink]
  ask patch 11 10 [set pcolor pink]
  ask patch 11 14 [set pcolor pink]
  ask patch 11 15 [set pcolor pink]
  ask patch 11 19 [set pcolor pink]
  ask patch 11 20 [set pcolor pink]
  ask patch 11 23 [set pcolor pink]

  ask patch 12 -25 [set pcolor pink]
  ask patch 12 -24 [set pcolor pink]
  ask patch 12 -17 [set pcolor pink]
  ask patch 12 -16 [set pcolor pink]
  ask patch 12 -10 [set pcolor pink]
  ask patch 12 -9 [set pcolor pink]
  ask patch 12 -8 [set pcolor pink]
  ask patch 12 -3 [set pcolor pink]
  ask patch 12 -2 [set pcolor pink]
  ask patch 12 0 [set pcolor pink]
  ask patch 12 1 [set pcolor pink]
  ask patch 12 2 [set pcolor pink]
  ask patch 12 5 [set pcolor pink]
  ask patch 12 6 [set pcolor pink]
  ask patch 12 10 [set pcolor pink]
  ask patch 12 11 [set pcolor pink]
  ask patch 12 13 [set pcolor pink]
  ask patch 12 14 [set pcolor pink]
  ask patch 12 15 [set pcolor pink]
  ask patch 12 18 [set pcolor pink]
  ask patch 12 19 [set pcolor pink]
  ask patch 12 24 [set pcolor pink]

  ask patch 13 -24 [set pcolor pink]
  ask patch 13 -23 [set pcolor pink]
  ask patch 13 -18 [set pcolor pink]
  ask patch 13 -17 [set pcolor pink]
  ask patch 13 -16 [set pcolor pink]
  ask patch 13 -15 [set pcolor pink]
  ask patch 13 -10 [set pcolor pink]
  ask patch 13 -9 [set pcolor pink]
  ask patch 13 -2 [set pcolor pink]
  ask patch 13 -1 [set pcolor pink]
  ask patch 13 1 [set pcolor pink]
  ask patch 13 2 [set pcolor pink]
  ask patch 13 4 [set pcolor pink]
  ask patch 13 5 [set pcolor pink]
  ask patch 13 11 [set pcolor pink]
  ask patch 13 12 [set pcolor pink]
  ask patch 13 14 [set pcolor pink]
  ask patch 13 15 [set pcolor pink]
  ask patch 13 17 [set pcolor pink]
  ask patch 13 18 [set pcolor pink]
  ask patch 13 25 [set pcolor pink]

  ask patch 14 -23 [set pcolor pink]
  ask patch 14 -22 [set pcolor pink]
  ask patch 14 -19 [set pcolor pink]
  ask patch 14 -18 [set pcolor pink]
  ask patch 14 -15 [set pcolor pink]
  ask patch 14 -14 [set pcolor pink]
  ask patch 14 -11 [set pcolor pink]
  ask patch 14 -10 [set pcolor pink]
  ask patch 14 -8 [set pcolor pink]
  ask patch 14 -2 [set pcolor pink]
  ask patch 14 -1 [set pcolor pink]
  ask patch 14 0 [set pcolor pink]
  ask patch 14 1 [set pcolor pink]
  ask patch 14 2 [set pcolor pink]
  ask patch 14 3 [set pcolor pink]
  ask patch 14 4 [set pcolor pink]
  ask patch 14 11 [set pcolor pink]
  ask patch 14 12 [set pcolor pink]
  ask patch 14 13 [set pcolor pink]
  ask patch 14 14 [set pcolor pink]
  ask patch 14 15 [set pcolor pink]
  ask patch 14 16 [set pcolor pink]
  ask patch 14 17 [set pcolor pink]
  ask patch 14 19 [set pcolor pink]
  ask patch 14 24 [set pcolor pink]

  ask patch 15 -22 [set pcolor pink]
  ask patch 15 -21 [set pcolor pink]
  ask patch 15 -20 [set pcolor pink]
  ask patch 15 -19 [set pcolor pink]
  ask patch 15 -14 [set pcolor pink]
  ask patch 15 -13 [set pcolor pink]
  ask patch 15 -12 [set pcolor pink]
  ask patch 15 -11 [set pcolor pink]
  ask patch 15 -7 [set pcolor pink]
  ask patch 15 -3 [set pcolor pink]
  ask patch 15 0 [set pcolor pink]
  ask patch 15 1 [set pcolor pink]
  ask patch 15 2 [set pcolor pink]
  ask patch 15 3 [set pcolor pink]
  ask patch 15 10 [set pcolor pink]
  ask patch 15 13 [set pcolor pink]
  ask patch 15 14 [set pcolor pink]
  ask patch 15 15 [set pcolor pink]
  ask patch 15 16 [set pcolor pink]
  ask patch 15 20 [set pcolor pink]
  ask patch 15 23 [set pcolor pink]


  ask patch 16 -21 [set pcolor pink]
  ask patch 16 -20 [set pcolor pink]
  ask patch 16 -19 [set pcolor pink]
  ask patch 16 -13 [set pcolor pink]
  ask patch 16 -12 [set pcolor pink]
  ask patch 16 -11 [set pcolor pink]
  ask patch 16 -10 [set pcolor pink]
  ask patch 16 -6 [set pcolor pink]
  ask patch 16 -4 [set pcolor pink]
  ask patch 16 1 [set pcolor pink]
  ask patch 16 2 [set pcolor pink]
  ask patch 16 3 [set pcolor pink]
  ask patch 16 9 [set pcolor pink]
  ask patch 16 14 [set pcolor pink]
  ask patch 16 15 [set pcolor pink]
  ask patch 16 16 [set pcolor pink]
  ask patch 16 21 [set pcolor pink]
  ask patch 16 22 [set pcolor pink]

  ask patch 17 -22 [set pcolor pink]
  ask patch 17 -18 [set pcolor pink]
  ask patch 17 -14 [set pcolor pink]
  ask patch 17 -9 [set pcolor pink]
  ask patch 17 -5 [set pcolor pink]
  ask patch 17 -4 [set pcolor pink]
  ask patch 17 0 [set pcolor pink]
  ask patch 17 4 [set pcolor pink]
  ask patch 17 8 [set pcolor pink]
  ask patch 17 17 [set pcolor pink]
  ask patch 17 21 [set pcolor pink]
  ask patch 17 22 [set pcolor pink]

  ask patch 18 -25 [set pcolor pink]
  ask patch 18 -23 [set pcolor pink]
  ask patch 18 -17 [set pcolor pink]
  ask patch 18 -15 [set pcolor pink]
  ask patch 18 -8 [set pcolor pink]
  ask patch 18 -6 [set pcolor pink]
  ask patch 18 -3 [set pcolor pink]
  ask patch 18 -1 [set pcolor pink]
  ask patch 18 5 [set pcolor pink]
  ask patch 18 7 [set pcolor pink]
  ask patch 18 18 [set pcolor pink]
  ask patch 18 20 [set pcolor pink]
  ask patch 18 23 [set pcolor pink]

  ask patch 19 -24 [set pcolor pink]
  ask patch 19 -16 [set pcolor pink]
  ask patch 19 -7 [set pcolor pink]
  ask patch 19 -2 [set pcolor pink]
  ask patch 19 6 [set pcolor pink]
  ask patch 19 19 [set pcolor pink]

  ask patch 1 -21 [set energy 50]
  ask patch 1 -19 [set energy 50]
  ask patch 1 -17 [set energy 50]
  ask patch 1 -16 [set energy 50]
  ask patch 1 -13 [set energy 50]

  ask patch 2 -20 [set energy 50]
  ask patch 2 -17 [set energy 50]
  ask patch 2 -16 [set energy 50]
  ask patch 2 -13 [set energy 50]
  ask patch 2 -12 [set energy 50]

  ask patch 3 -25 [set energy 50]
  ask patch 3 -21 [set energy 50]
  ask patch 3 -19 [set energy 50]
  ask patch 3 -17 [set energy 50]
  ask patch 3 -16 [set energy 50]
  ask patch 3 -12 [set energy 50]
  ask patch 3 -11 [set energy 50]
  ask patch 3 -7 [set energy 50]

  ask patch 4 -25 [set energy 50]
  ask patch 4 -24 [set energy 50]
  ask patch 4 -22 [set energy 50]
  ask patch 4 -18 [set energy 50]
  ask patch 4 -17 [set energy 50]
  ask patch 4 -16 [set energy 50]
  ask patch 4 -11 [set energy 50]
  ask patch 4 -10 [set energy 50]
  ask patch 4 -8 [set energy 50]

  ask patch 5 -24 [set energy 50]
  ask patch 5 -23 [set energy 50]
  ask patch 5 -17 [set energy 50]
  ask patch 5 -16 [set energy 50]
  ask patch 5 -10 [set energy 50]
  ask patch 5 -9 [set energy 50]
  ask patch 5 -1 [set energy 50]


  ask patch 6 -23 [set energy 50]
  ask patch 6 -22 [set energy 50]
  ask patch 6 -17 [set energy 50]
  ask patch 6 -16 [set energy 50]
  ask patch 6 -11 [set energy 50]
  ask patch 6 -10 [set energy 50]
  ask patch 6 -9 [set energy 50]
  ask patch 6 -8 [set energy 50]
  ask patch 6 -2 [set energy 50]
  ask patch 6 1 [set energy 50]
  ask patch 6 2 [set energy 50]
  ask patch 6 4 [set energy 50]
  ask patch 6 5 [set energy 50]
  ask patch 6 6 [set energy 50]
  ask patch 6 12 [set energy 50]
  ask patch 6 14 [set energy 50]
  ask patch 6 15 [set energy 50]
  ask patch 6 18 [set energy 50]
  ask patch 6 24 [set energy 50]
  ask patch 6 25 [set energy 50]

  ask patch 7 -22 [set energy 50]
  ask patch 7 -21 [set energy 50]
  ask patch 7 -17 [set energy 50]
  ask patch 7 -16 [set energy 50]
  ask patch 7 -15 [set energy 50]
  ask patch 7 -12 [set energy 50]
  ask patch 7 -11 [set energy 50]
  ask patch 7 -8 [set energy 50]
  ask patch 7 -7 [set energy 50]
  ask patch 7 -3 [set energy 50]
  ask patch 7 1 [set energy 50]
  ask patch 7 2 [set energy 50]
  ask patch 7 5 [set energy 50]
  ask patch 7 6 [set energy 50]
  ask patch 7 11 [set energy 50]
  ask patch 7 14 [set energy 50]
  ask patch 7 15 [set energy 50]
  ask patch 7 18 [set energy 50]
  ask patch 7 19 [set energy 50]
  ask patch 7 23 [set energy 50]
  ask patch 7 24 [set energy 50]

  ask patch 8 -22 [set energy 50]
  ask patch 8 -21 [set energy 50]
  ask patch 8 -20 [set energy 50]
  ask patch 8 -17 [set energy 50]
  ask patch 8 -16 [set energy 50]
  ask patch 8 -14 [set energy 50]
  ask patch 8 -13 [set energy 50]
  ask patch 8 -12 [set energy 50]
  ask patch 8 -7 [set energy 50]
  ask patch 8 -6 [set energy 50]
  ask patch 8 -4 [set energy 50]
  ask patch 8 1 [set energy 50]
  ask patch 8 2 [set energy 50]
  ask patch 8 4 [set energy 50]
  ask patch 8 6 [set energy 50]
  ask patch 8 7 [set energy 50]
  ask patch 8 10 [set energy 50]
  ask patch 8 14 [set energy 50]
  ask patch 8 15 [set energy 50]
  ask patch 8 17 [set energy 50]
  ask patch 8 20 [set energy 50]
  ask patch 8 22 [set energy 50]
  ask patch 8 23 [set energy 50]

  ask patch 9 -23 [set energy 50]
  ask patch 9 -20 [set energy 50]
  ask patch 9 -19 [set energy 50]
  ask patch 9 -17 [set energy 50]
  ask patch 9 -16 [set energy 50]
  ask patch 9 -14 [set energy 50]
  ask patch 9 -13 [set energy 50]
  ask patch 9 -5 [set energy 50]
  ask patch 9 -6 [set energy 50]
  ask patch 9 1 [set energy 50]
  ask patch 9 2 [set energy 50]
  ask patch 9 3 [set energy 50]
  ask patch 9 7 [set energy 50]
  ask patch 9 8 [set energy 50]
  ask patch 9 9 [set energy 50]
  ask patch 9 14 [set energy 50]
  ask patch 9 15 [set energy 50]
  ask patch 9 16 [set energy 50]
  ask patch 9 20 [set energy 50]
  ask patch 9 21 [set energy 50]
  ask patch 9 22 [set energy 50]

  ask patch 10 -24 [set energy 50]
  ask patch 10 -19 [set energy 50]
  ask patch 10 -18 [set energy 50]
  ask patch 10 -17 [set energy 50]
  ask patch 10 -16 [set energy 50]
  ask patch 10 -15 [set energy 50]
  ask patch 10 -14 [set energy 50]
  ask patch 10 -12 [set energy 50]
  ask patch 10 -7 [set energy 50]
  ask patch 10 -6 [set energy 50]
  ask patch 10 -5 [set energy 50]
  ask patch 10 -4 [set energy 50]
  ask patch 10 1 [set energy 50]
  ask patch 10 2 [set energy 50]
  ask patch 10 7 [set energy 50]
  ask patch 10 8 [set energy 50]
  ask patch 10 9 [set energy 50]
  ask patch 10 14 [set energy 50]
  ask patch 10 15 [set energy 50]
  ask patch 10 20 [set energy 50]
  ask patch 10 21 [set energy 50]
  ask patch 10 22 [set energy 50]

  ask patch 11 -25 [set energy 50]
  ask patch 11 -18 [set energy 50]
  ask patch 11 -17 [set energy 50]
  ask patch 11 -16 [set energy 50]
  ask patch 11 -15 [set energy 50]
  ask patch 11 -11 [set energy 50]
  ask patch 11 -8 [set energy 50]
  ask patch 11 -7 [set energy 50]
  ask patch 11 -4 [set energy 50]
  ask patch 11 -3 [set energy 50]
  ask patch 11 1 [set energy 50]
  ask patch 11 2 [set energy 50]
  ask patch 11 6 [set energy 50]
  ask patch 11 7 [set energy 50]
  ask patch 11 9 [set energy 50]
  ask patch 11 10 [set energy 50]
  ask patch 11 14 [set energy 50]
  ask patch 11 15 [set energy 50]
  ask patch 11 19 [set energy 50]
  ask patch 11 20 [set energy 50]
  ask patch 11 23 [set energy 50]

  ask patch 12 -25 [set energy 50]
  ask patch 12 -24 [set energy 50]
  ask patch 12 -17 [set energy 50]
  ask patch 12 -16 [set energy 50]
  ask patch 12 -10 [set energy 50]
  ask patch 12 -9 [set energy 50]
  ask patch 12 -8 [set energy 50]
  ask patch 12 -3 [set energy 50]
  ask patch 12 -2 [set energy 50]
  ask patch 12 0 [set energy 50]
  ask patch 12 1 [set energy 50]
  ask patch 12 2 [set energy 50]
  ask patch 12 5 [set energy 50]
  ask patch 12 6 [set energy 50]
  ask patch 12 10 [set energy 50]
  ask patch 12 11 [set energy 50]
  ask patch 12 13 [set energy 50]
  ask patch 12 14 [set energy 50]
  ask patch 12 15 [set energy 50]
  ask patch 12 18 [set energy 50]
  ask patch 12 19 [set energy 50]
  ask patch 12 24 [set energy 50]

  ask patch 13 -24 [set energy 50]
  ask patch 13 -23 [set energy 50]
  ask patch 13 -18 [set energy 50]
  ask patch 13 -17 [set energy 50]
  ask patch 13 -16 [set energy 50]
  ask patch 13 -15 [set energy 50]
  ask patch 13 -10 [set energy 50]
  ask patch 13 -9 [set energy 50]
  ask patch 13 -2 [set energy 50]
  ask patch 13 -1 [set energy 50]
  ask patch 13 1 [set energy 50]
  ask patch 13 2 [set energy 50]
  ask patch 13 4 [set energy 50]
  ask patch 13 5 [set energy 50]
  ask patch 13 11 [set energy 50]
  ask patch 13 12 [set energy 50]
  ask patch 13 14 [set energy 50]
  ask patch 13 15 [set energy 50]
  ask patch 13 17 [set energy 50]
  ask patch 13 18 [set energy 50]
  ask patch 13 25 [set energy 50]

  ask patch 14 -23 [set energy 50]
  ask patch 14 -22 [set energy 50]
  ask patch 14 -19 [set energy 50]
  ask patch 14 -18 [set energy 50]
  ask patch 14 -15 [set energy 50]
  ask patch 14 -14 [set energy 50]
  ask patch 14 -11 [set energy 50]
  ask patch 14 -10 [set energy 50]
  ask patch 14 -8 [set energy 50]
  ask patch 14 -2 [set energy 50]
  ask patch 14 -1 [set energy 50]
  ask patch 14 0 [set energy 50]
  ask patch 14 1 [set energy 50]
  ask patch 14 2 [set energy 50]
  ask patch 14 3 [set energy 50]
  ask patch 14 4 [set energy 50]
  ask patch 14 11 [set energy 50]
  ask patch 14 12 [set energy 50]
  ask patch 14 13 [set energy 50]
  ask patch 14 14 [set energy 50]
  ask patch 14 15 [set energy 50]
  ask patch 14 16 [set energy 50]
  ask patch 14 17 [set energy 50]
  ask patch 14 19 [set energy 50]
  ask patch 14 24 [set energy 50]

  ask patch 15 -22 [set energy 50]
  ask patch 15 -21 [set energy 50]
  ask patch 15 -20 [set energy 50]
  ask patch 15 -19 [set energy 50]
  ask patch 15 -14 [set energy 50]
  ask patch 15 -13 [set energy 50]
  ask patch 15 -12 [set energy 50]
  ask patch 15 -11 [set energy 50]
  ask patch 15 -7 [set energy 50]
  ask patch 15 -3 [set energy 50]
  ask patch 15 0 [set energy 50]
  ask patch 15 1 [set energy 50]
  ask patch 15 2 [set energy 50]
  ask patch 15 3 [set energy 50]
  ask patch 15 10 [set energy 50]
  ask patch 15 13 [set energy 50]
  ask patch 15 14 [set energy 50]
  ask patch 15 15 [set energy 50]
  ask patch 15 16 [set energy 50]
  ask patch 15 20 [set energy 50]
  ask patch 15 23 [set energy 50]


  ask patch 16 -21 [set energy 50]
  ask patch 16 -20 [set energy 50]
  ask patch 16 -19 [set energy 50]
  ask patch 16 -13 [set energy 50]
  ask patch 16 -12 [set energy 50]
  ask patch 16 -11 [set energy 50]
  ask patch 16 -10 [set energy 50]
  ask patch 16 -6 [set energy 50]
  ask patch 16 -4 [set energy 50]
  ask patch 16 1 [set energy 50]
  ask patch 16 2 [set energy 50]
  ask patch 16 3 [set energy 50]
  ask patch 16 9 [set energy 50]
  ask patch 16 14 [set energy 50]
  ask patch 16 15 [set energy 50]
  ask patch 16 16 [set energy 50]
  ask patch 16 21 [set energy 50]
  ask patch 16 22 [set energy 50]

  ask patch 17 -22 [set energy 50]
  ask patch 17 -18 [set energy 50]
  ask patch 17 -14 [set energy 50]
  ask patch 17 -9 [set energy 50]
  ask patch 17 -5 [set energy 50]
  ask patch 17 -4 [set energy 50]
  ask patch 17 0 [set energy 50]
  ask patch 17 4 [set energy 50]
  ask patch 17 8 [set energy 50]
  ask patch 17 17 [set energy 50]
  ask patch 17 21 [set energy 50]
  ask patch 17 22 [set energy 50]

  ask patch 18 -25 [set energy 50]
  ask patch 18 -23 [set energy 50]
  ask patch 18 -17 [set energy 50]
  ask patch 18 -15 [set energy 50]
  ask patch 18 -8 [set energy 50]
  ask patch 18 -6 [set energy 50]
  ask patch 18 -3 [set energy 50]
  ask patch 18 -1 [set energy 50]
  ask patch 18 5 [set energy 50]
  ask patch 18 7 [set energy 50]
  ask patch 18 18 [set energy 50]
  ask patch 18 20 [set energy 50]
  ask patch 18 23 [set energy 50]

  ask patch 19 -24 [set energy 50]
  ask patch 19 -16 [set energy 50]
  ask patch 19 -7 [set energy 50]
  ask patch 19 -2 [set energy 50]
  ask patch 19 6 [set energy 50]
  ask patch 19 19 [set energy 50]



  ;River Nile

  ask patch -25 -25 [set pcolor cyan]
  ask patch -25 -24 [set pcolor cyan]
  ask patch -25 -23 [set pcolor cyan]
  ask patch -25 -22 [set pcolor cyan]
  ask patch -25 -21 [set pcolor cyan]
  ask patch -25 -20 [set pcolor cyan]
  ask patch -25 -19 [set pcolor cyan]
  ask patch -25 -18 [set pcolor cyan]
  ask patch -25 -17 [set pcolor cyan]
  ask patch -25 -16 [set pcolor cyan]
  ask patch -25 -15 [set pcolor cyan]

  ask patch -24 -25 [set pcolor cyan]
  ask patch -24 -24 [set pcolor cyan]
  ask patch -24 -23 [set pcolor cyan]
  ask patch -24 -22 [set pcolor cyan]
  ask patch -24 -21 [set pcolor cyan]
  ask patch -24 -20 [set pcolor cyan]
  ask patch -24 -19 [set pcolor cyan]
  ask patch -24 -18 [set pcolor cyan]
  ask patch -24 -17 [set pcolor cyan]
  ask patch -24 -16 [set pcolor cyan]
  ask patch -24 -15 [set pcolor cyan]
  ask patch -24 -14 [set pcolor cyan]
  ask patch -24 -13 [set pcolor cyan]
  ask patch -24 -12 [set pcolor cyan]
  ask patch -24 -11 [set pcolor cyan]
  ask patch -24 -10 [set pcolor cyan]

  ask patch -23 -25 [set pcolor cyan]
  ask patch -23 -24 [set pcolor cyan]
  ask patch -23 -23 [set pcolor cyan]
  ask patch -23 -22 [set pcolor cyan]
  ask patch -23 -21 [set pcolor cyan]
  ask patch -23 -20 [set pcolor cyan]
  ask patch -23 -19 [set pcolor cyan]
  ask patch -23 -18 [set pcolor cyan]
  ask patch -23 -17 [set pcolor cyan]
  ask patch -23 -16 [set pcolor cyan]
  ask patch -23 -15 [set pcolor cyan]
  ask patch -23 -14 [set pcolor cyan]
  ask patch -23 -13 [set pcolor cyan]
  ask patch -23 -12 [set pcolor cyan]
  ask patch -23 -11 [set pcolor cyan]
  ask patch -23 -10 [set pcolor cyan]
  ask patch -23 -9 [set pcolor cyan]
  ask patch -23 -8 [set pcolor cyan]
  ask patch -23 -7 [set pcolor cyan]
  ask patch -23 -6 [set pcolor cyan]
  ask patch -23 -5 [set pcolor cyan]


  ask patch -22 -25 [set pcolor cyan]
  ask patch -22 -24 [set pcolor cyan]
  ask patch -22 -23 [set pcolor cyan]
  ask patch -22 -22 [set pcolor cyan]
  ask patch -22 -21 [set pcolor cyan]
  ask patch -22 -20 [set pcolor cyan]
  ask patch -22 -19 [set pcolor cyan]
  ask patch -22 -18 [set pcolor cyan]
  ask patch -22 -17 [set pcolor cyan]
  ask patch -22 -16 [set pcolor cyan]
  ask patch -22 -15 [set pcolor cyan]
  ask patch -22 -14 [set pcolor cyan]
  ask patch -22 -13 [set pcolor cyan]
  ask patch -22 -12 [set pcolor cyan]
  ask patch -22 -11 [set pcolor cyan]
  ask patch -22 -10 [set pcolor cyan]
  ask patch -22 -9 [set pcolor cyan]
  ask patch -22 -8 [set pcolor cyan]
  ask patch -22 -7 [set pcolor cyan]
  ask patch -22 -6 [set pcolor cyan]
  ask patch -22 -5 [set pcolor cyan]
  ask patch -22 -4 [set pcolor cyan]
  ask patch -22 -3 [set pcolor cyan]
  ask patch -22 -2 [set pcolor cyan]
  ask patch -22 -1 [set pcolor cyan]
  ask patch -22 0 [set pcolor cyan]

  ask patch -21 -25 [set pcolor cyan]
  ask patch -21 -24 [set pcolor cyan]
  ask patch -21 -23 [set pcolor cyan]
  ask patch -21 -22 [set pcolor cyan]
  ask patch -21 -21 [set pcolor cyan]
  ask patch -21 -20 [set pcolor cyan]
  ask patch -21 -19 [set pcolor cyan]
  ask patch -21 -18 [set pcolor cyan]
  ask patch -21 -17 [set pcolor cyan]
  ask patch -21 -16 [set pcolor cyan]
  ask patch -21 -15 [set pcolor cyan]
  ask patch -21 -14 [set pcolor cyan]
  ask patch -21 -13 [set pcolor cyan]
  ask patch -21 -12 [set pcolor cyan]
  ask patch -21 -11 [set pcolor cyan]
  ask patch -21 -10 [set pcolor cyan]
  ask patch -21 -9 [set pcolor cyan]
  ask patch -21 -8 [set pcolor cyan]
  ask patch -21 -7 [set pcolor cyan]
  ask patch -21 -6 [set pcolor cyan]
  ask patch -21 -5 [set pcolor cyan]
  ask patch -21 -4 [set pcolor cyan]
  ask patch -21 -3 [set pcolor cyan]
  ask patch -21 -2 [set pcolor cyan]
  ask patch -21 -1 [set pcolor cyan]
  ask patch -21 0 [set pcolor cyan]
  ask patch -21 1 [set pcolor cyan]
  ask patch -21 2 [set pcolor cyan]
  ask patch -21 3 [set pcolor cyan]
  ask patch -21 4 [set pcolor cyan]
  ask patch -21 5 [set pcolor cyan]
  ask patch -21 6 [set pcolor cyan]
  ask patch -21 7 [set pcolor cyan]
  ask patch -21 8 [set pcolor cyan]
  ask patch -21 9 [set pcolor cyan]
  ask patch -21 10 [set pcolor cyan]
  ask patch -21 11 [set pcolor cyan]
  ask patch -21 12 [set pcolor cyan]
  ask patch -21 13 [set pcolor cyan]
  ask patch -21 14 [set pcolor cyan]
  ask patch -21 15 [set pcolor cyan]
  ask patch -21 16 [set pcolor cyan]
  ask patch -21 17 [set pcolor cyan]
  ask patch -21 18 [set pcolor cyan]
  ask patch -21 19 [set pcolor cyan]
  ask patch -21 20 [set pcolor cyan]
  ask patch -21 21 [set pcolor cyan]
  ask patch -21 22 [set pcolor cyan]
  ask patch -21 23 [set pcolor cyan]
  ask patch -21 24 [set pcolor cyan]
  ask patch -21 25 [set pcolor cyan]


  ask patch -20 -25 [set pcolor cyan]
  ask patch -20 -24 [set pcolor cyan]
  ask patch -20 -23 [set pcolor cyan]
  ask patch -20 -22 [set pcolor cyan]
  ask patch -20 -21 [set pcolor cyan]
  ask patch -20 -20 [set pcolor cyan]
  ask patch -20 -19 [set pcolor cyan]
  ask patch -20 -18 [set pcolor cyan]
  ask patch -20 -17 [set pcolor cyan]
  ask patch -20 -16 [set pcolor cyan]
  ask patch -20 -15 [set pcolor cyan]
  ask patch -20 -14 [set pcolor cyan]
  ask patch -20 -13 [set pcolor cyan]
  ask patch -20 -12 [set pcolor cyan]
  ask patch -20 -11 [set pcolor cyan]
  ask patch -20 -10 [set pcolor cyan]
  ask patch -20 -9 [set pcolor cyan]
  ask patch -20 -8 [set pcolor cyan]
  ask patch -20 -7 [set pcolor cyan]
  ask patch -20 -6 [set pcolor cyan]
  ask patch -20 -5 [set pcolor cyan]
  ask patch -20 -4 [set pcolor cyan]
  ask patch -20 -3 [set pcolor cyan]
  ask patch -20 -2 [set pcolor cyan]
  ask patch -20 -1 [set pcolor cyan]
  ask patch -20 0 [set pcolor cyan]
  ask patch -20 1 [set pcolor cyan]
  ask patch -20 2 [set pcolor cyan]
  ask patch -20 3 [set pcolor cyan]
  ask patch -20 4 [set pcolor cyan]
  ask patch -20 5 [set pcolor cyan]
  ask patch -20 6 [set pcolor cyan]
  ask patch -20 7 [set pcolor cyan]
  ask patch -20 8 [set pcolor cyan]
  ask patch -20 9 [set pcolor cyan]
  ask patch -20 10 [set pcolor cyan]
  ask patch -20 11 [set pcolor cyan]
  ask patch -20 12 [set pcolor cyan]
  ask patch -20 13 [set pcolor cyan]
  ask patch -20 14 [set pcolor cyan]
  ask patch -20 15 [set pcolor cyan]
  ask patch -20 16 [set pcolor cyan]
  ask patch -20 17 [set pcolor cyan]
  ask patch -20 18 [set pcolor cyan]
  ask patch -20 19 [set pcolor cyan]
  ask patch -20 20 [set pcolor cyan]
  ask patch -20 21 [set pcolor cyan]
  ask patch -20 22 [set pcolor cyan]
  ask patch -20 23 [set pcolor cyan]
  ask patch -20 24 [set pcolor cyan]
  ask patch -20 25 [set pcolor cyan]

  ask patch -19 -25 [set pcolor cyan]
  ask patch -19 -24 [set pcolor cyan]
  ask patch -19 -23 [set pcolor cyan]
  ask patch -19 -22 [set pcolor cyan]
  ask patch -19 -21 [set pcolor cyan]
  ask patch -19 -20 [set pcolor cyan]
  ask patch -19 -19 [set pcolor cyan]
  ask patch -19 -18 [set pcolor cyan]
  ask patch -19 -17 [set pcolor cyan]
  ask patch -19 -16 [set pcolor cyan]
  ask patch -19 -15 [set pcolor cyan]
  ask patch -19 -14 [set pcolor cyan]
  ask patch -19 -13 [set pcolor cyan]
  ask patch -19 -12 [set pcolor cyan]
  ask patch -19 -11 [set pcolor cyan]
  ask patch -19 -10 [set pcolor cyan]
  ask patch -19 -9 [set pcolor cyan]
  ask patch -19 -8 [set pcolor cyan]
  ask patch -19 -7 [set pcolor cyan]
  ask patch -19 -6 [set pcolor cyan]
  ask patch -19 -5 [set pcolor cyan]
  ask patch -19 -4 [set pcolor cyan]
  ask patch -19 -3 [set pcolor cyan]
  ask patch -19 -2 [set pcolor cyan]
  ask patch -19 -1 [set pcolor cyan]
  ask patch -19 0 [set pcolor cyan]
  ask patch -19 1 [set pcolor cyan]
  ask patch -19 2 [set pcolor cyan]
  ask patch -19 3 [set pcolor cyan]
  ask patch -19 4 [set pcolor cyan]
  ask patch -19 5 [set pcolor cyan]
  ask patch -19 6 [set pcolor cyan]
  ask patch -19 7 [set pcolor cyan]
  ask patch -19 8 [set pcolor cyan]
  ask patch -19 9 [set pcolor cyan]
  ask patch -19 10 [set pcolor cyan]
  ask patch -19 11 [set pcolor cyan]
  ask patch -19 12 [set pcolor cyan]
  ask patch -19 13 [set pcolor cyan]
  ask patch -19 14 [set pcolor cyan]
  ask patch -19 15 [set pcolor cyan]
  ask patch -19 16 [set pcolor cyan]
  ask patch -19 17 [set pcolor cyan]
  ask patch -19 18 [set pcolor cyan]
  ask patch -19 19 [set pcolor cyan]
  ask patch -19 20 [set pcolor cyan]
  ask patch -19 21 [set pcolor cyan]
  ask patch -19 22 [set pcolor cyan]
  ask patch -19 23 [set pcolor cyan]
  ask patch -19 24 [set pcolor cyan]
  ask patch -19 25 [set pcolor cyan]


  ask patch -18 -25 [set pcolor cyan]
  ask patch -18 -24 [set pcolor cyan]
  ask patch -18 -23 [set pcolor cyan]
  ask patch -18 -22 [set pcolor cyan]
  ask patch -18 -21 [set pcolor cyan]
  ask patch -18 -20 [set pcolor cyan]
  ask patch -18 -19 [set pcolor cyan]
  ask patch -18 -18 [set pcolor cyan]
  ask patch -18 -17 [set pcolor cyan]
  ask patch -18 -16 [set pcolor cyan]
  ask patch -18 -15 [set pcolor cyan]
  ask patch -18 -14 [set pcolor cyan]
  ask patch -18 -13 [set pcolor cyan]
  ask patch -18 -12 [set pcolor cyan]
  ask patch -18 -11 [set pcolor cyan]
  ask patch -18 -10 [set pcolor cyan]
  ask patch -18 -9 [set pcolor cyan]
  ask patch -18 -8 [set pcolor cyan]
  ask patch -18 -7 [set pcolor cyan]
  ask patch -18 -6 [set pcolor cyan]
  ask patch -18 -5 [set pcolor cyan]
  ask patch -18 -4 [set pcolor cyan]
  ask patch -18 -3 [set pcolor cyan]
  ask patch -18 -2 [set pcolor cyan]
  ask patch -18 -1 [set pcolor cyan]
  ask patch -18 0 [set pcolor cyan]
  ask patch -18 1 [set pcolor cyan]
  ask patch -18 2 [set pcolor cyan]
  ask patch -18 3 [set pcolor cyan]
  ask patch -18 4 [set pcolor cyan]
  ask patch -18 5 [set pcolor cyan]
  ask patch -18 6 [set pcolor cyan]
  ask patch -18 7 [set pcolor cyan]
  ask patch -18 8 [set pcolor cyan]
  ask patch -18 9 [set pcolor cyan]
  ask patch -18 10 [set pcolor cyan]
  ask patch -18 11 [set pcolor cyan]
  ask patch -18 12 [set pcolor cyan]
  ask patch -18 13 [set pcolor cyan]
  ask patch -18 14 [set pcolor cyan]
  ask patch -18 15 [set pcolor cyan]
  ask patch -18 16 [set pcolor cyan]
  ask patch -18 17 [set pcolor cyan]
  ask patch -18 18 [set pcolor cyan]
  ask patch -18 19 [set pcolor cyan]
  ask patch -18 20 [set pcolor cyan]
  ask patch -18 21 [set pcolor cyan]
  ask patch -18 22 [set pcolor cyan]
  ask patch -18 23 [set pcolor cyan]
  ask patch -18 24 [set pcolor cyan]
  ask patch -18 25 [set pcolor cyan]


  ask patch -17 -25 [set pcolor cyan]
  ask patch -17 -24 [set pcolor cyan]
  ask patch -17 -23 [set pcolor cyan]
  ask patch -17 -22 [set pcolor cyan]
  ask patch -17 -21 [set pcolor cyan]
  ask patch -17 -20 [set pcolor cyan]
  ask patch -17 -19 [set pcolor cyan]
  ask patch -17 -18 [set pcolor cyan]
  ask patch -17 -17 [set pcolor cyan]
  ask patch -17 -16 [set pcolor cyan]
  ask patch -17 -15 [set pcolor cyan]
  ask patch -17 -14 [set pcolor cyan]
  ask patch -17 -13 [set pcolor cyan]
  ask patch -17 -12 [set pcolor cyan]
  ask patch -17 -11 [set pcolor cyan]
  ask patch -17 -10 [set pcolor cyan]
  ask patch -17 -9 [set pcolor cyan]
  ask patch -17 -8 [set pcolor cyan]
  ask patch -17 -7 [set pcolor cyan]
  ask patch -17 -6 [set pcolor cyan]
  ask patch -17 -5 [set pcolor cyan]
  ask patch -17 -4 [set pcolor cyan]
  ask patch -17 -3 [set pcolor cyan]
  ask patch -17 -2 [set pcolor cyan]
  ask patch -17 -1 [set pcolor cyan]
  ask patch -17 0 [set pcolor cyan]
  ask patch -17 1 [set pcolor cyan]
  ask patch -17 2 [set pcolor cyan]
  ask patch -17 3 [set pcolor cyan]
  ask patch -17 4 [set pcolor cyan]
  ask patch -17 5 [set pcolor cyan]
  ask patch -17 6 [set pcolor cyan]
  ask patch -17 7 [set pcolor cyan]
  ask patch -17 8 [set pcolor cyan]
  ask patch -17 9 [set pcolor cyan]
  ask patch -17 10 [set pcolor cyan]
  ask patch -17 11 [set pcolor cyan]
  ask patch -17 12 [set pcolor cyan]
  ask patch -17 13 [set pcolor cyan]
  ask patch -17 14 [set pcolor cyan]
  ask patch -17 15 [set pcolor cyan]
  ask patch -17 16 [set pcolor cyan]
  ask patch -17 17 [set pcolor cyan]
  ask patch -17 18 [set pcolor cyan]
  ask patch -17 19 [set pcolor cyan]
  ask patch -17 20 [set pcolor cyan]
  ask patch -17 21 [set pcolor cyan]
  ask patch -17 22 [set pcolor cyan]
  ask patch -17 23 [set pcolor cyan]
  ask patch -17 24 [set pcolor cyan]
  ask patch -17 25 [set pcolor cyan]

  ask patch -16 -17 [set pcolor cyan]
  ask patch -16 -16 [set pcolor cyan]
  ask patch -16 -15 [set pcolor cyan]
  ask patch -16 -14 [set pcolor cyan]
  ask patch -16 -13 [set pcolor cyan]
  ask patch -16 -12 [set pcolor cyan]
  ask patch -16 -11 [set pcolor cyan]
  ask patch -16 -10 [set pcolor cyan]
  ask patch -16 -9 [set pcolor cyan]
  ask patch -16 -8 [set pcolor cyan]
  ask patch -16 -7 [set pcolor cyan]
  ask patch -16 -6 [set pcolor cyan]
  ask patch -16 -5 [set pcolor cyan]
  ask patch -16 -4 [set pcolor cyan]
  ask patch -16 -3 [set pcolor cyan]
  ask patch -16 -2 [set pcolor cyan]
  ask patch -16 -1 [set pcolor cyan]
  ask patch -16 0 [set pcolor cyan]
  ask patch -16 1 [set pcolor cyan]
  ask patch -16 2 [set pcolor cyan]
  ask patch -16 3 [set pcolor cyan]
  ask patch -16 4 [set pcolor cyan]
  ask patch -16 5 [set pcolor cyan]
  ask patch -16 6 [set pcolor cyan]
  ask patch -16 7 [set pcolor cyan]
  ask patch -16 8 [set pcolor cyan]
  ask patch -16 9 [set pcolor cyan]
  ask patch -16 10 [set pcolor cyan]
  ask patch -16 11 [set pcolor cyan]
  ask patch -16 12 [set pcolor cyan]
  ask patch -16 13 [set pcolor cyan]
  ask patch -16 14 [set pcolor cyan]
  ask patch -16 15 [set pcolor cyan]
  ask patch -16 16 [set pcolor cyan]
  ask patch -16 17 [set pcolor cyan]
  ask patch -16 18 [set pcolor cyan]
  ask patch -16 19 [set pcolor cyan]
  ask patch -16 20 [set pcolor cyan]
  ask patch -16 21 [set pcolor cyan]
  ask patch -16 22 [set pcolor cyan]
  ask patch -16 23 [set pcolor cyan]
  ask patch -16 24 [set pcolor cyan]
  ask patch -16 25 [set pcolor cyan]

  ask patch -15 -15 [set pcolor cyan]
  ask patch -15 -14 [set pcolor cyan]
  ask patch -15 -13 [set pcolor cyan]
  ask patch -15 -12 [set pcolor cyan]
  ask patch -15 -11 [set pcolor cyan]
  ask patch -15 -10 [set pcolor cyan]
  ask patch -15 -9 [set pcolor cyan]
  ask patch -15 -8 [set pcolor cyan]
  ask patch -15 -7 [set pcolor cyan]
  ask patch -15 -6 [set pcolor cyan]
  ask patch -15 -5 [set pcolor cyan]
  ask patch -15 -4 [set pcolor cyan]
  ask patch -15 -3 [set pcolor cyan]
  ask patch -15 -2 [set pcolor cyan]
  ask patch -15 -1 [set pcolor cyan]
  ask patch -15 0 [set pcolor cyan]
  ask patch -15 1 [set pcolor cyan]
  ask patch -15 2 [set pcolor cyan]
  ask patch -15 3 [set pcolor cyan]
  ask patch -15 4 [set pcolor cyan]
  ask patch -15 5 [set pcolor cyan]
  ask patch -15 6 [set pcolor cyan]
  ask patch -15 7 [set pcolor cyan]
  ask patch -15 8 [set pcolor cyan]
  ask patch -15 9 [set pcolor cyan]
  ask patch -15 10 [set pcolor cyan]
  ask patch -15 11 [set pcolor cyan]
  ask patch -15 12 [set pcolor cyan]
  ask patch -15 13 [set pcolor cyan]
  ask patch -15 14 [set pcolor cyan]
  ask patch -15 15 [set pcolor cyan]
  ask patch -15 16 [set pcolor cyan]
  ask patch -15 17 [set pcolor cyan]
  ask patch -15 18 [set pcolor cyan]
  ask patch -15 19 [set pcolor cyan]
  ask patch -15 20 [set pcolor cyan]
  ask patch -15 21 [set pcolor cyan]
  ask patch -15 22 [set pcolor cyan]
  ask patch -15 23 [set pcolor cyan]
  ask patch -15 24 [set pcolor cyan]
  ask patch -15 25 [set pcolor cyan]


  ask patch -14 -13 [set pcolor cyan]
  ask patch -14 -12 [set pcolor cyan]
  ask patch -14 -11 [set pcolor cyan]
  ask patch -14 -10 [set pcolor cyan]
  ask patch -14 -9 [set pcolor cyan]
  ask patch -14 -8 [set pcolor cyan]
  ask patch -14 -7 [set pcolor cyan]
  ask patch -14 -6 [set pcolor cyan]
  ask patch -14 -5 [set pcolor cyan]
  ask patch -14 -4 [set pcolor cyan]
  ask patch -14 -3 [set pcolor cyan]
  ask patch -14 -2 [set pcolor cyan]
  ask patch -14 -1 [set pcolor cyan]
  ask patch -14 0 [set pcolor cyan]
  ask patch -14 1 [set pcolor cyan]
  ask patch -14 2 [set pcolor cyan]
  ask patch -14 3 [set pcolor cyan]
  ask patch -14 4 [set pcolor cyan]
  ask patch -14 5 [set pcolor cyan]
  ask patch -14 6 [set pcolor cyan]
  ask patch -14 7 [set pcolor cyan]
  ask patch -14 8 [set pcolor cyan]
  ask patch -14 9 [set pcolor cyan]
  ask patch -14 10 [set pcolor cyan]
  ask patch -14 11 [set pcolor cyan]
  ask patch -14 12 [set pcolor cyan]
  ask patch -14 13 [set pcolor cyan]
  ask patch -14 14 [set pcolor cyan]
  ask patch -14 15 [set pcolor cyan]
  ask patch -14 16 [set pcolor cyan]
  ask patch -14 17 [set pcolor cyan]
  ask patch -14 18 [set pcolor cyan]
  ask patch -14 19 [set pcolor cyan]
  ask patch -14 20 [set pcolor cyan]
  ask patch -14 21 [set pcolor cyan]
  ask patch -14 22 [set pcolor cyan]
  ask patch -14 23 [set pcolor cyan]
  ask patch -14 24 [set pcolor cyan]
  ask patch -14 25 [set pcolor cyan]

  ask patch -13 -11 [set pcolor cyan]
  ask patch -13 -10 [set pcolor cyan]
  ask patch -13 -9 [set pcolor cyan]
  ask patch -13 -8 [set pcolor cyan]
  ask patch -13 -7 [set pcolor cyan]
  ask patch -13 -6 [set pcolor cyan]
  ask patch -13 -5 [set pcolor cyan]
  ask patch -13 -4 [set pcolor cyan]
  ask patch -13 -3 [set pcolor cyan]
  ask patch -13 -2 [set pcolor cyan]
  ask patch -13 -1 [set pcolor cyan]
  ask patch -13 0 [set pcolor cyan]
  ask patch -13 1 [set pcolor cyan]
  ask patch -13 2 [set pcolor cyan]
  ask patch -13 3 [set pcolor cyan]
  ask patch -13 4 [set pcolor cyan]
  ask patch -13 5 [set pcolor cyan]
  ask patch -13 6 [set pcolor cyan]
  ask patch -13 7 [set pcolor cyan]
  ask patch -13 8 [set pcolor cyan]
  ask patch -13 9 [set pcolor cyan]
  ask patch -13 10 [set pcolor cyan]
  ask patch -13 11 [set pcolor cyan]
  ask patch -13 12 [set pcolor cyan]
  ask patch -13 13 [set pcolor cyan]
  ask patch -13 14 [set pcolor cyan]
  ask patch -13 15 [set pcolor cyan]
  ask patch -13 16 [set pcolor cyan]
  ask patch -13 17 [set pcolor cyan]
  ask patch -13 18 [set pcolor cyan]
  ask patch -13 19 [set pcolor cyan]
  ask patch -13 20 [set pcolor cyan]
  ask patch -13 21 [set pcolor cyan]
  ask patch -13 22 [set pcolor cyan]
  ask patch -13 23 [set pcolor cyan]
  ask patch -13 24 [set pcolor cyan]
  ask patch -13 25 [set pcolor cyan]

  ask patch -12 -9 [set pcolor cyan]
  ask patch -12 -8 [set pcolor cyan]
  ask patch -12 -7 [set pcolor cyan]
  ask patch -12 -6 [set pcolor cyan]
  ask patch -12 -5 [set pcolor cyan]
  ask patch -12 -4 [set pcolor cyan]
  ask patch -12 -3 [set pcolor cyan]
  ask patch -12 -2 [set pcolor cyan]
  ask patch -12 -1 [set pcolor cyan]
  ask patch -12 0 [set pcolor cyan]
  ask patch -12 1 [set pcolor cyan]
  ask patch -12 2 [set pcolor cyan]
  ask patch -12 3 [set pcolor cyan]
  ask patch -12 4 [set pcolor cyan]
  ask patch -12 5 [set pcolor cyan]
  ask patch -12 6 [set pcolor cyan]
  ask patch -12 7 [set pcolor cyan]
  ask patch -12 8 [set pcolor cyan]
  ask patch -12 9 [set pcolor cyan]
  ask patch -12 10 [set pcolor cyan]
  ask patch -12 11 [set pcolor cyan]
  ask patch -12 12 [set pcolor cyan]
  ask patch -12 13 [set pcolor cyan]
  ask patch -12 14 [set pcolor cyan]
  ask patch -12 15 [set pcolor cyan]
  ask patch -12 16 [set pcolor cyan]
  ask patch -12 17 [set pcolor cyan]
  ask patch -12 18 [set pcolor cyan]
  ask patch -12 19 [set pcolor cyan]
  ask patch -12 20 [set pcolor cyan]
  ask patch -12 21 [set pcolor cyan]
  ask patch -12 22 [set pcolor cyan]
  ask patch -12 23 [set pcolor cyan]
  ask patch -12 24 [set pcolor cyan]
  ask patch -12 25 [set pcolor cyan]

  ask patch -11 -7 [set pcolor cyan]
  ask patch -11 -6 [set pcolor cyan]
  ask patch -11 -5 [set pcolor cyan]
  ask patch -11 -4 [set pcolor cyan]
  ask patch -11 -3 [set pcolor cyan]
  ask patch -11 -2 [set pcolor cyan]
  ask patch -11 -1 [set pcolor cyan]
  ask patch -11 0 [set pcolor cyan]
  ask patch -11 1 [set pcolor cyan]
  ask patch -11 2 [set pcolor cyan]
  ask patch -11 3 [set pcolor cyan]
  ask patch -11 4 [set pcolor cyan]
  ask patch -11 5 [set pcolor cyan]
  ask patch -11 6 [set pcolor cyan]
  ask patch -11 7 [set pcolor cyan]
  ask patch -11 8 [set pcolor cyan]
  ask patch -11 9 [set pcolor cyan]
  ask patch -11 10 [set pcolor cyan]
  ask patch -11 11 [set pcolor cyan]
  ask patch -11 12 [set pcolor cyan]
  ask patch -11 13 [set pcolor cyan]
  ask patch -11 12 [set pcolor cyan]
  ask patch -11 13 [set pcolor cyan]
  ask patch -11 14 [set pcolor cyan]
  ask patch -11 15 [set pcolor cyan]
  ask patch -11 16 [set pcolor cyan]
  ask patch -11 17 [set pcolor cyan]
  ask patch -11 18 [set pcolor cyan]
  ask patch -11 19 [set pcolor cyan]
  ask patch -11 20 [set pcolor cyan]
  ask patch -11 21 [set pcolor cyan]
  ask patch -11 22 [set pcolor cyan]
  ask patch -11 23 [set pcolor cyan]
  ask patch -11 24 [set pcolor cyan]
  ask patch -11 25 [set pcolor cyan]

  ask patch -10 -5 [set pcolor cyan]
  ask patch -10 -4 [set pcolor cyan]
  ask patch -10 -3 [set pcolor cyan]
  ask patch -10 -2 [set pcolor cyan]
  ask patch -10 -1 [set pcolor cyan]
  ask patch -10 0 [set pcolor cyan]
  ask patch -10 1 [set pcolor cyan]
  ask patch -10 2 [set pcolor cyan]
  ask patch -10 3 [set pcolor cyan]
  ask patch -10 4 [set pcolor cyan]
  ask patch -10 5 [set pcolor cyan]
  ask patch -10 6 [set pcolor cyan]
  ask patch -10 7 [set pcolor cyan]
  ask patch -10 8 [set pcolor cyan]
  ask patch -10 9 [set pcolor cyan]
  ask patch -10 10 [set pcolor cyan]
  ask patch -10 11 [set pcolor cyan]
  ask patch -10 12 [set pcolor cyan]
  ask patch -10 13 [set pcolor cyan]
  ask patch -10 14 [set pcolor cyan]
  ask patch -10 15 [set pcolor cyan]
  ask patch -10 16 [set pcolor cyan]
  ask patch -10 17 [set pcolor cyan]
  ask patch -10 18 [set pcolor cyan]
  ask patch -10 19 [set pcolor cyan]
  ask patch -10 20 [set pcolor cyan]
  ask patch -10 21 [set pcolor cyan]
  ask patch -10 22 [set pcolor cyan]
  ask patch -10 23 [set pcolor cyan]
  ask patch -10 24 [set pcolor cyan]
  ask patch -10 25 [set pcolor cyan]

  ask patch -9 -3 [set pcolor cyan]
  ask patch -9 -2 [set pcolor cyan]
  ask patch -9 -1 [set pcolor cyan]
  ask patch -9 0 [set pcolor cyan]
  ask patch -9 1 [set pcolor cyan]
  ask patch -9 2 [set pcolor cyan]
  ask patch -9 3 [set pcolor cyan]
  ask patch -9 4 [set pcolor cyan]
  ask patch -9 5 [set pcolor cyan]
  ask patch -9 6 [set pcolor cyan]
  ask patch -9 7 [set pcolor cyan]
  ask patch -9 8 [set pcolor cyan]
  ask patch -9 9 [set pcolor cyan]
  ask patch -9 10 [set pcolor cyan]
  ask patch -9 11 [set pcolor cyan]
  ask patch -9 12 [set pcolor cyan]
  ask patch -9 13 [set pcolor cyan]
  ask patch -9 14 [set pcolor cyan]
  ask patch -9 15 [set pcolor cyan]
  ask patch -9 16 [set pcolor cyan]
  ask patch -9 17 [set pcolor cyan]
  ask patch -9 18 [set pcolor cyan]
  ask patch -9 19 [set pcolor cyan]
  ask patch -9 20 [set pcolor cyan]
  ask patch -9 21 [set pcolor cyan]
  ask patch -9 22 [set pcolor cyan]
  ask patch -9 23 [set pcolor cyan]
  ask patch -9 24 [set pcolor cyan]
  ask patch -9 25 [set pcolor cyan]

  ask patch -8 0 [set pcolor cyan]
  ask patch -8 1 [set pcolor cyan]
  ask patch -8 2 [set pcolor cyan]
  ask patch -8 3 [set pcolor cyan]
  ask patch -8 4 [set pcolor cyan]
  ask patch -8 5 [set pcolor cyan]
  ask patch -8 6 [set pcolor cyan]
  ask patch -8 7 [set pcolor cyan]
  ask patch -8 8 [set pcolor cyan]
  ask patch -8 9 [set pcolor cyan]
  ask patch -8 10 [set pcolor cyan]
  ask patch -8 11 [set pcolor cyan]
  ask patch -8 12 [set pcolor cyan]
  ask patch -8 13 [set pcolor cyan]
  ask patch -8 14 [set pcolor cyan]
  ask patch -8 15 [set pcolor cyan]
  ask patch -8 16 [set pcolor cyan]
  ask patch -8 17 [set pcolor cyan]
  ask patch -8 18 [set pcolor cyan]
  ask patch -8 19 [set pcolor cyan]
  ask patch -8 20 [set pcolor cyan]
  ask patch -8 21 [set pcolor cyan]
  ask patch -8 22 [set pcolor cyan]
  ask patch -8 23 [set pcolor cyan]
  ask patch -8 24 [set pcolor cyan]
  ask patch -8 25 [set pcolor cyan]

  ask patch -7 1 [set pcolor cyan]
  ask patch -7 2 [set pcolor cyan]
  ask patch -7 3 [set pcolor cyan]
  ask patch -7 4 [set pcolor cyan]
  ask patch -7 5 [set pcolor cyan]
  ask patch -7 6 [set pcolor cyan]
  ask patch -7 7 [set pcolor cyan]
  ask patch -7 8 [set pcolor cyan]
  ask patch -7 9 [set pcolor cyan]
  ask patch -7 10 [set pcolor cyan]
  ask patch -7 11 [set pcolor cyan]
  ask patch -7 12 [set pcolor cyan]
  ask patch -7 13 [set pcolor cyan]
  ask patch -7 14 [set pcolor cyan]
  ask patch -7 15 [set pcolor cyan]
  ask patch -7 16 [set pcolor cyan]
  ask patch -7 17 [set pcolor cyan]
  ask patch -7 18 [set pcolor cyan]
  ask patch -7 19 [set pcolor cyan]
  ask patch -7 20 [set pcolor cyan]
  ask patch -7 21 [set pcolor cyan]
  ask patch -7 22 [set pcolor cyan]
  ask patch -7 23 [set pcolor cyan]
  ask patch -7 24 [set pcolor cyan]
  ask patch -7 25 [set pcolor cyan]


  ask patch -25 -25 [set energy 50]
  ask patch -25 -24 [set energy 50]
  ask patch -25 -23 [set energy 50]
  ask patch -25 -22 [set energy 50]
  ask patch -25 -21 [set energy 50]
  ask patch -25 -20 [set energy 50]
  ask patch -25 -19 [set energy 50]
  ask patch -25 -18 [set energy 50]
  ask patch -25 -17 [set energy 50]
  ask patch -25 -16 [set energy 50]
  ask patch -25 -15 [set energy 50]

  ask patch -24 -25 [set energy 50]
  ask patch -24 -24 [set energy 50]
  ask patch -24 -23 [set energy 50]
  ask patch -24 -22 [set energy 50]
  ask patch -24 -21 [set energy 50]
  ask patch -24 -20 [set energy 50]
  ask patch -24 -19 [set energy 50]
  ask patch -24 -18 [set energy 50]
  ask patch -24 -17 [set energy 50]
  ask patch -24 -16 [set energy 50]
  ask patch -24 -15 [set energy 50]
  ask patch -24 -14 [set energy 50]
  ask patch -24 -13 [set energy 50]
  ask patch -24 -12 [set energy 50]
  ask patch -24 -11 [set energy 50]
  ask patch -24 -10 [set energy 50]

  ask patch -23 -25 [set energy 50]
  ask patch -23 -24 [set energy 50]
  ask patch -23 -23 [set energy 50]
  ask patch -23 -22 [set energy 50]
  ask patch -23 -21 [set energy 50]
  ask patch -23 -20 [set energy 50]
  ask patch -23 -19 [set energy 50]
  ask patch -23 -17 [set energy 50]
  ask patch -23 -16 [set energy 50]
  ask patch -23 -15 [set energy 50]
  ask patch -23 -14 [set energy 50]
  ask patch -23 -13 [set energy 50]
  ask patch -23 -12 [set energy 50]
  ask patch -23 -11 [set energy 50]
  ask patch -23 -10 [set energy 50]
  ask patch -23 -9 [set energy 50]
  ask patch -23 -8 [set energy 50]
  ask patch -23 -7 [set energy 50]
  ask patch -23 -6 [set energy 50]
  ask patch -23 -5 [set energy 50]

  ask patch -22 -25 [set energy 50]
  ask patch -22 -24 [set energy 50]
  ask patch -22 -23 [set energy 50]
  ask patch -22 -22 [set energy 50]
  ask patch -22 -21 [set energy 50]
  ask patch -22 -20 [set energy 50]
  ask patch -22 -19 [set energy 50]
  ask patch -22 -18 [set energy 50]
  ask patch -22 -17 [set energy 50]
  ask patch -22 -16 [set energy 50]
  ask patch -22 -15 [set energy 50]
  ask patch -22 -14 [set energy 50]
  ask patch -22 -13 [set energy 50]
  ask patch -22 -12 [set energy 50]
  ask patch -22 -11 [set energy 50]
  ask patch -22 -10 [set energy 50]
  ask patch -22 -9 [set energy 50]
  ask patch -22 -8 [set energy 50]
  ask patch -22 -7 [set energy 50]
  ask patch -22 -6 [set energy 50]
  ask patch -22 -5 [set energy 50]
  ask patch -22 -4 [set energy 50]
  ask patch -22 -3 [set energy 50]
  ask patch -22 -2 [set energy 50]
  ask patch -22 -1 [set energy 50]
  ask patch -22 0 [set energy 50]


  ask patch -21 -25 [set energy 50]
  ask patch -21 -24 [set energy 50]
  ask patch -21 -23 [set energy 50]
  ask patch -21 -22 [set energy 50]
  ask patch -21 -21 [set energy 50]
  ask patch -21 -20 [set energy 50]
  ask patch -21 -19 [set energy 50]
  ask patch -21 -18 [set energy 50]
  ask patch -21 -17 [set energy 50]
  ask patch -21 -16 [set energy 50]
  ask patch -21 -15 [set energy 50]
  ask patch -21 -14 [set energy 50]
  ask patch -21 -13 [set energy 50]
  ask patch -21 -12 [set energy 50]
  ask patch -21 -11 [set energy 50]
  ask patch -21 -10 [set energy 50]
  ask patch -21 -9 [set energy 50]
  ask patch -21 -8 [set energy 50]
  ask patch -21 -7 [set energy 50]
  ask patch -21 -6 [set energy 50]
  ask patch -21 -5 [set energy 50]
  ask patch -21 -4 [set energy 50]
  ask patch -21 -3 [set energy 50]
  ask patch -21 -2 [set energy 50]
  ask patch -21 -1 [set energy 50]
  ask patch -21 0 [set energy 50]
  ask patch -21 1 [set energy 50]
  ask patch -21 2 [set energy 50]
  ask patch -21 3 [set energy 50]
  ask patch -21 4 [set energy 50]
  ask patch -21 5 [set energy 50]
  ask patch -21 6 [set energy 50]
  ask patch -21 7 [set energy 50]
  ask patch -21 8 [set energy 50]
  ask patch -21 9 [set energy 50]
  ask patch -21 10 [set energy 50]
  ask patch -21 11 [set energy 50]
  ask patch -21 12 [set energy 50]
  ask patch -21 13 [set energy 50]
  ask patch -21 14 [set energy 50]
  ask patch -21 15 [set energy 50]
  ask patch -21 16 [set energy 50]
  ask patch -21 17 [set energy 50]
  ask patch -21 18 [set energy 50]
  ask patch -21 19 [set energy 50]
  ask patch -21 20 [set energy 50]
  ask patch -21 21 [set energy 50]
  ask patch -21 22 [set energy 50]
  ask patch -21 23 [set energy 50]
  ask patch -21 24 [set energy 50]
  ask patch -21 25 [set energy 50]

  ask patch -20 -25 [set energy 50]
  ask patch -20 -24 [set energy 50]
  ask patch -20 -23 [set energy 50]
  ask patch -20 -22 [set energy 50]
  ask patch -20 -21 [set energy 50]
  ask patch -20 -20 [set energy 50]
  ask patch -20 -19 [set energy 50]
  ask patch -20 -18 [set energy 50]
  ask patch -20 -17 [set energy 50]
  ask patch -20 -16 [set energy 50]
  ask patch -20 -15 [set energy 50]
  ask patch -20 -14 [set energy 50]
  ask patch -20 -13 [set energy 50]
  ask patch -20 -12 [set energy 50]
  ask patch -20 -11 [set energy 50]
  ask patch -20 -10 [set energy 50]
  ask patch -20 -9 [set energy 50]
  ask patch -20 -8 [set energy 50]
  ask patch -20 -7 [set energy 50]
  ask patch -20 -6 [set energy 50]
  ask patch -20 -5 [set energy 50]
  ask patch -20 -4 [set energy 50]
  ask patch -20 -3 [set energy 50]
  ask patch -20 -2 [set energy 50]
  ask patch -20 -1 [set energy 50]
  ask patch -20 0 [set energy 50]
  ask patch -20 1 [set energy 50]
  ask patch -20 2 [set energy 50]
  ask patch -20 3 [set energy 50]
  ask patch -20 4 [set energy 50]
  ask patch -20 5 [set energy 50]
  ask patch -20 6 [set energy 50]
  ask patch -20 7 [set energy 50]
  ask patch -20 8 [set energy 50]
  ask patch -20 9 [set energy 50]
  ask patch -20 10 [set energy 50]
  ask patch -20 11 [set energy 50]
  ask patch -20 12 [set energy 50]
  ask patch -20 13 [set energy 50]
  ask patch -20 14 [set energy 50]
  ask patch -20 15 [set energy 50]
  ask patch -20 16 [set energy 50]
  ask patch -20 17 [set energy 50]
  ask patch -20 18 [set energy 50]
  ask patch -20 19 [set energy 50]
  ask patch -20 20 [set energy 50]
  ask patch -20 21 [set energy 50]
  ask patch -20 22 [set energy 50]
  ask patch -20 23 [set energy 50]
  ask patch -20 24 [set energy 50]
  ask patch -20 25 [set energy 50]

  ask patch -19 -25 [set energy 50]
  ask patch -19 -24 [set energy 50]
  ask patch -19 -23 [set energy 50]
  ask patch -19 -22 [set energy 50]
  ask patch -19 -21 [set energy 50]
  ask patch -19 -20 [set energy 50]
  ask patch -19 -19 [set energy 50]
  ask patch -19 -18 [set energy 50]
  ask patch -19 -17 [set energy 50]
  ask patch -19 -16 [set energy 50]
  ask patch -19 -15 [set energy 50]
  ask patch -19 -14 [set energy 50]
  ask patch -19 -13 [set energy 50]
  ask patch -19 -12 [set energy 50]
  ask patch -19 -11 [set energy 50]
  ask patch -19 -10 [set energy 50]
  ask patch -19 -9 [set energy 50]
  ask patch -19 -7 [set energy 50]
  ask patch -19 -6 [set energy 50]
  ask patch -19 -5 [set energy 50]
  ask patch -19 -4 [set energy 50]
  ask patch -19 -3 [set energy 50]
  ask patch -19 -2 [set energy 50]
  ask patch -19 -1 [set energy 50]
  ask patch -19 0 [set energy 50]
  ask patch -19 1 [set energy 50]
  ask patch -19 2 [set energy 50]
  ask patch -19 3 [set energy 50]
  ask patch -19 4 [set energy 50]
  ask patch -19 5 [set energy 50]
  ask patch -19 6 [set energy 50]
  ask patch -19 7 [set energy 50]
  ask patch -19 8 [set energy 50]
  ask patch -19 9 [set energy 50]
  ask patch -19 10 [set energy 50]
  ask patch -19 11 [set energy 50]
  ask patch -19 12 [set energy 50]
  ask patch -19 13 [set energy 50]
  ask patch -19 14 [set energy 50]
  ask patch -19 15 [set energy 50]
  ask patch -19 16 [set energy 50]
  ask patch -19 17 [set energy 50]
  ask patch -19 19 [set energy 50]
  ask patch -19 20 [set energy 50]
  ask patch -19 21 [set energy 50]
  ask patch -19 22 [set energy 50]
  ask patch -19 23 [set energy 50]
  ask patch -19 24 [set energy 50]
  ask patch -19 25 [set energy 50]

  ask patch -18 -25 [set energy 50]
  ask patch -18 -24 [set energy 50]
  ask patch -18 -23 [set energy 50]
  ask patch -18 -24 [set energy 50]
  ask patch -18 -23 [set energy 50]
  ask patch -18 -22 [set energy 50]
  ask patch -18 -21 [set energy 50]
  ask patch -18 -20 [set energy 50]
  ask patch -18 -19 [set energy 50]
  ask patch -18 -18 [set energy 50]
  ask patch -18 -17 [set energy 50]
  ask patch -18 -16 [set energy 50]
  ask patch -18 -15 [set energy 50]
  ask patch -18 -14 [set energy 50]
  ask patch -18 -13 [set energy 50]
  ask patch -18 -12 [set energy 50]
  ask patch -18 -13 [set energy 50]
  ask patch -18 -14 [set energy 50]
  ask patch -18 -13 [set energy 50]
  ask patch -18 -12 [set energy 50]
  ask patch -18 -11 [set energy 50]
  ask patch -18 -10 [set energy 50]
  ask patch -18 -9 [set energy 50]
  ask patch -18 -8 [set energy 50]
  ask patch -18 -7 [set energy 50]
  ask patch -18 -6 [set energy 50]
  ask patch -18 -5 [set energy 50]
  ask patch -18 -4 [set energy 50]
  ask patch -18 -3 [set energy 50]
  ask patch -18 -2 [set energy 50]
  ask patch -18 -1 [set energy 50]
  ask patch -18 0 [set energy 50]
  ask patch -18 2 [set energy 50]
  ask patch -18 3 [set energy 50]
  ask patch -18 4 [set energy 50]
  ask patch -18 5 [set energy 50]
  ask patch -18 6 [set energy 50]
  ask patch -18 7 [set energy 50]
  ask patch -18 8 [set energy 50]
  ask patch -18 9 [set energy 50]
  ask patch -18 10 [set energy 50]
  ask patch -18 11 [set energy 50]
  ask patch -18 12 [set energy 50]
  ask patch -18 13 [set energy 50]
  ask patch -18 14 [set energy 50]
  ask patch -18 15 [set energy 50]
  ask patch -18 16 [set energy 50]
  ask patch -18 17 [set energy 50]
  ask patch -18 18 [set energy 50]
  ask patch -18 19 [set energy 50]
  ask patch -18 20 [set energy 50]
  ask patch -18 21 [set energy 50]
  ask patch -18 22 [set energy 50]
  ask patch -18 23 [set energy 50]
  ask patch -18 24 [set energy 50]
  ask patch -18 25 [set energy 50]

  ask patch -17 -25 [set energy 50]
  ask patch -17 -24 [set energy 50]
  ask patch -17 -23 [set energy 50]
  ask patch -17 -22 [set energy 50]
  ask patch -17 -21 [set energy 50]
  ask patch -17 -20 [set energy 50]
  ask patch -17 -19 [set energy 50]
  ask patch -17 -18 [set energy 50]
  ask patch -17 -17 [set energy 50]
  ask patch -17 -16 [set energy 50]
  ask patch -17 -15 [set energy 50]
  ask patch -17 -14 [set energy 50]
  ask patch -17 -13 [set energy 50]
  ask patch -17 -12 [set energy 50]
  ask patch -17 -11 [set energy 50]
  ask patch -17 -10 [set energy 50]
  ask patch -17 -9 [set energy 50]
  ask patch -17 -8 [set energy 50]
  ask patch -17 -7 [set energy 50]
  ask patch -17 -6 [set energy 50]
  ask patch -17 -5 [set energy 50]
  ask patch -17 -4 [set energy 50]
  ask patch -17 -3 [set energy 50]
  ask patch -17 -2 [set energy 50]
  ask patch -17 -1 [set energy 50]
  ask patch -17 0 [set energy 50]
  ask patch -17 1 [set energy 50]
  ask patch -17 2 [set energy 50]
  ask patch -17 3 [set energy 50]
  ask patch -17 4 [set energy 50]
  ask patch -17 5 [set energy 50]
  ask patch -17 6 [set energy 50]
  ask patch -17 7 [set energy 50]
  ask patch -17 8 [set energy 50]
  ask patch -17 9 [set energy 50]
  ask patch -17 10 [set energy 50]
  ask patch -17 11 [set energy 50]
  ask patch -17 12 [set energy 50]
  ask patch -17 13 [set energy 50]
  ask patch -17 14 [set energy 50]
  ask patch -17 15 [set energy 50]
  ask patch -17 16 [set energy 50]
  ask patch -17 17 [set energy 50]
  ask patch -17 18 [set energy 50]
  ask patch -17 19 [set energy 50]
  ask patch -17 20 [set energy 50]
  ask patch -17 21 [set energy 50]
  ask patch -17 22 [set energy 50]
  ask patch -17 23 [set energy 50]
  ask patch -17 24 [set energy 50]
  ask patch -17 25 [set energy 50]


  ask patch -16 -17 [set energy 50]
  ask patch -16 -16 [set energy 50]
  ask patch -16 -15 [set energy 50]
  ask patch -16 -14 [set energy 50]
  ask patch -16 -13 [set energy 50]
  ask patch -16 -12 [set energy 50]
  ask patch -16 -11 [set energy 50]
  ask patch -16 -10 [set energy 50]
  ask patch -16 -9 [set energy 50]
  ask patch -16 -8 [set energy 50]
  ask patch -16 -7 [set energy 50]
  ask patch -16 -6 [set energy 50]
  ask patch -16 -5 [set energy 50]
  ask patch -16 -4 [set energy 50]
  ask patch -16 -3 [set energy 50]
  ask patch -16 -2 [set energy 50]
  ask patch -16 -1 [set energy 50]
  ask patch -16 0 [set energy 50]
  ask patch -16 1 [set energy 50]
  ask patch -16 2 [set energy 50]
  ask patch -16 3 [set energy 50]
  ask patch -16 4 [set energy 50]
  ask patch -16 5 [set energy 50]
  ask patch -16 6 [set energy 50]
  ask patch -16 7 [set energy 50]
  ask patch -16 8 [set energy 50]
  ask patch -16 9 [set energy 50]
  ask patch -16 10 [set energy 50]
  ask patch -16 11 [set energy 50]
  ask patch -16 12 [set energy 50]
  ask patch -16 13 [set energy 50]
  ask patch -16 14 [set energy 50]
  ask patch -16 15 [set energy 50]
  ask patch -16 16 [set energy 50]
  ask patch -16 17 [set energy 50]
  ask patch -16 18 [set energy 50]
  ask patch -16 19 [set energy 50]
  ask patch -16 20 [set energy 50]
  ask patch -16 21 [set energy 50]
  ask patch -16 22 [set energy 50]
  ask patch -16 23 [set energy 50]
  ask patch -16 24 [set energy 50]
  ask patch -16 25 [set energy 50]

  ask patch -15 -15 [set energy 50]
  ask patch -15 -14 [set energy 50]
  ask patch -15 -13 [set energy 50]
  ask patch -15 -12 [set energy 50]
  ask patch -15 -11 [set energy 50]
  ask patch -15 -10 [set energy 50]
  ask patch -15 -9 [set energy 50]
  ask patch -15 -8 [set energy 50]
  ask patch -15 -7 [set energy 50]
  ask patch -15 -6 [set energy 50]
  ask patch -15 -5 [set energy 50]
  ask patch -15 -4 [set energy 50]
  ask patch -15 -3 [set energy 50]
  ask patch -15 -2 [set energy 50]
  ask patch -15 -1 [set energy 50]
  ask patch -15 0 [set energy 50]
  ask patch -15 1 [set energy 50]
  ask patch -15 2 [set energy 50]
  ask patch -15 3 [set energy 50]
  ask patch -15 4 [set energy 50]
  ask patch -15 5 [set energy 50]
  ask patch -15 6 [set energy 50]
  ask patch -15 7 [set energy 50]
  ask patch -15 8 [set energy 50]
  ask patch -15 9 [set energy 50]
  ask patch -15 10 [set energy 50]
  ask patch -15 11 [set energy 50]
  ask patch -15 12 [set energy 50]
  ask patch -15 13 [set energy 50]
  ask patch -15 14 [set energy 50]
  ask patch -15 15 [set energy 50]
  ask patch -15 16 [set energy 50]
  ask patch -15 17 [set energy 50]
  ask patch -15 18 [set energy 50]
  ask patch -15 19 [set energy 50]
  ask patch -15 20 [set energy 50]
  ask patch -15 21 [set energy 50]
  ask patch -15 22 [set energy 50]
  ask patch -15 23 [set energy 50]
  ask patch -15 24 [set energy 50]
  ask patch -15 25 [set energy 50]

  ask patch -14 -13 [set energy 50]
  ask patch -14 -12 [set energy 50]
  ask patch -14 -11 [set energy 50]
  ask patch -14 -10 [set energy 50]
  ask patch -14 -9 [set energy 50]
  ask patch -14 -8 [set energy 50]
  ask patch -14 -7 [set energy 50]
  ask patch -14 -6 [set energy 50]
  ask patch -14 -5 [set energy 50]
  ask patch -14 -4 [set energy 50]
  ask patch -14 -3 [set energy 50]
  ask patch -14 -2 [set energy 50]
  ask patch -14 -1 [set energy 50]
  ask patch -14 0 [set energy 50]
  ask patch -14 1 [set energy 50]
  ask patch -14 2 [set energy 50]
  ask patch -14 3 [set energy 50]
  ask patch -14 4 [set energy 50]
  ask patch -14 5 [set energy 50]
  ask patch -14 6 [set energy 50]
  ask patch -14 7 [set energy 50]
  ask patch -14 8 [set energy 50]
  ask patch -14 9 [set energy 50]
  ask patch -14 10 [set energy 50]
  ask patch -14 11 [set energy 50]
  ask patch -14 12 [set energy 50]
  ask patch -14 13 [set energy 50]
  ask patch -14 14 [set energy 50]
  ask patch -14 15 [set energy 50]
  ask patch -14 16 [set energy 50]
  ask patch -14 17 [set energy 50]
  ask patch -14 18 [set energy 50]
  ask patch -14 19 [set energy 50]
  ask patch -14 20 [set energy 50]
  ask patch -14 21 [set energy 50]
  ask patch -14 22 [set energy 50]
  ask patch -14 23 [set energy 50]
  ask patch -14 24 [set energy 50]
  ask patch -14 25 [set energy 50]

  ask patch -13 -11 [set energy 50]
  ask patch -13 -10 [set energy 50]
  ask patch -13 -9 [set energy 50]
  ask patch -13 -8 [set energy 50]
  ask patch -13 -7 [set energy 50]
  ask patch -13 -6 [set energy 50]
  ask patch -13 -5 [set energy 50]
  ask patch -13 -4 [set energy 50]
  ask patch -13 -3 [set energy 50]
  ask patch -13 -2 [set energy 50]
  ask patch -13 -1 [set energy 50]
  ask patch -13 0 [set energy 50]
  ask patch -13 1 [set energy 50]
  ask patch -13 2 [set energy 50]
  ask patch -13 3 [set energy 50]
  ask patch -13 4 [set energy 50]
  ask patch -13 5 [set energy 50]
  ask patch -13 7 [set energy 50]
  ask patch -13 8 [set energy 50]
  ask patch -13 9 [set energy 50]
  ask patch -13 10 [set energy 50]
  ask patch -13 11 [set energy 50]
  ask patch -13 12 [set energy 50]
  ask patch -13 13 [set energy 50]
  ask patch -13 14 [set energy 50]
  ask patch -13 15 [set energy 50]
  ask patch -13 16 [set energy 50]
  ask patch -13 17 [set energy 50]
  ask patch -13 18 [set energy 50]
  ask patch -13 19 [set energy 50]
  ask patch -13 20 [set energy 50]
  ask patch -13 21 [set energy 50]
  ask patch -13 22 [set energy 50]
  ask patch -13 23 [set energy 50]
  ask patch -13 24 [set energy 50]
  ask patch -13 25 [set energy 50]

  ask patch -12 -9 [set energy 50]
  ask patch -12 -8 [set energy 50]
  ask patch -12 -7 [set energy 50]
  ask patch -12 -6 [set energy 50]
  ask patch -12 -5 [set energy 50]
  ask patch -12 -4 [set energy 50]
  ask patch -12 -3 [set energy 50]
  ask patch -12 -2 [set energy 50]
  ask patch -12 -1 [set energy 50]
  ask patch -12 0 [set energy 50]
  ask patch -12 1 [set energy 50]
  ask patch -12 2 [set energy 50]
  ask patch -12 3 [set energy 50]
  ask patch -12 4 [set energy 50]
  ask patch -12 5 [set energy 50]
  ask patch -12 6 [set energy 50]
  ask patch -12 7 [set energy 50]
  ask patch -12 8 [set energy 50]
  ask patch -12 9 [set energy 50]
  ask patch -12 10 [set energy 50]
  ask patch -12 11 [set energy 50]
  ask patch -12 12 [set energy 50]
  ask patch -12 13 [set energy 50]
  ask patch -12 14 [set energy 50]
  ask patch -12 15 [set energy 50]
  ask patch -12 16 [set energy 50]
  ask patch -12 17 [set energy 50]
  ask patch -12 18 [set energy 50]
  ask patch -12 19 [set energy 50]
  ask patch -12 20 [set energy 50]
  ask patch -12 21 [set energy 50]
  ask patch -12 22 [set energy 50]
  ask patch -12 23 [set energy 50]
  ask patch -12 24 [set energy 50]
  ask patch -12 25 [set energy 50]


  ask patch -11 -7 [set energy 50]
  ask patch -11 -6 [set energy 50]
  ask patch -11 -5 [set energy 50]
  ask patch -11 -4 [set energy 50]
  ask patch -11 -3 [set energy 50]
  ask patch -11 -2 [set energy 50]
  ask patch -11 -1 [set energy 50]
  ask patch -11 0 [set energy 50]
  ask patch -11 1 [set energy 50]
  ask patch -11 2 [set energy 50]
  ask patch -11 3 [set energy 50]
  ask patch -11 4 [set energy 50]
  ask patch -11 5 [set energy 50]
  ask patch -11 6 [set energy 50]
  ask patch -11 7 [set energy 50]
  ask patch -11 8 [set energy 50]
  ask patch -11 9 [set energy 50]
  ask patch -11 10 [set energy 50]
  ask patch -11 11 [set energy 50]
  ask patch -11 12 [set energy 50]
  ask patch -11 13 [set energy 50]
  ask patch -11 14 [set energy 50]
  ask patch -11 15 [set energy 50]
  ask patch -11 16 [set energy 50]
  ask patch -11 17 [set energy 50]
  ask patch -11 18 [set energy 50]
  ask patch -11 19 [set energy 50]
  ask patch -11 20 [set energy 50]
  ask patch -11 21 [set energy 50]
  ask patch -11 22 [set energy 50]
  ask patch -11 23 [set energy 50]
  ask patch -11 24 [set energy 50]
  ask patch -11 25 [set energy 50]

  ask patch -10 -5 [set energy 50]
  ask patch -10 -4 [set energy 50]
  ask patch -10 -3 [set energy 50]
  ask patch -10 -2 [set energy 50]
  ask patch -10 -1 [set energy 50]
  ask patch -10 0 [set energy 50]
  ask patch -10 1 [set energy 50]
  ask patch -10 2 [set energy 50]
  ask patch -10 3 [set energy 50]
  ask patch -10 4 [set energy 50]
  ask patch -10 5 [set energy 50]
  ask patch -10 6 [set energy 50]
  ask patch -10 7 [set energy 50]
  ask patch -10 8 [set energy 50]
  ask patch -10 9 [set energy 50]
  ask patch -10 10 [set energy 50]
  ask patch -10 11 [set energy 50]
  ask patch -10 12 [set energy 50]
  ask patch -10 13 [set energy 50]
  ask patch -10 14 [set energy 50]
  ask patch -10 15 [set energy 50]
  ask patch -10 16 [set energy 50]
  ask patch -10 17 [set energy 50]
  ask patch -10 18 [set energy 50]
  ask patch -10 19 [set energy 50]
  ask patch -10 20 [set energy 50]
  ask patch -10 21 [set energy 50]
  ask patch -10 22 [set energy 50]
  ask patch -10 23 [set energy 50]
  ask patch -10 24 [set energy 50]
  ask patch -10 25 [set energy 50]

  ask patch -9 -3 [set energy 50]
  ask patch -9 -2 [set energy 50]
  ask patch -9 -1 [set energy 50]
  ask patch -9 0 [set energy 50]
  ask patch -9 1 [set energy 50]
  ask patch -9 2 [set energy 50]
  ask patch -9 3 [set energy 50]
  ask patch -9 4 [set energy 50]
  ask patch -9 5 [set energy 50]
  ask patch -9 6 [set energy 50]
  ask patch -9 7 [set energy 50]
  ask patch -9 8 [set energy 50]
  ask patch -9 10 [set energy 50]
  ask patch -9 11 [set energy 50]
  ask patch -9 12 [set energy 50]
  ask patch -9 13 [set energy 50]
  ask patch -9 14 [set energy 50]
  ask patch -9 15 [set energy 50]
  ask patch -9 16 [set energy 50]
  ask patch -9 17 [set energy 50]
  ask patch -9 18 [set energy 50]
  ask patch -9 19 [set energy 50]
  ask patch -9 20 [set energy 50]
  ask patch -9 21 [set energy 50]
  ask patch -9 22 [set energy 50]
  ask patch -9 23 [set energy 50]
  ask patch -9 24 [set energy 50]
  ask patch -9 25 [set energy 50]


  ask patch -8 0 [set energy 50]
  ask patch -8 1 [set energy 50]
  ask patch -8 2 [set energy 50]
  ask patch -8 3 [set energy 50]
  ask patch -8 4 [set energy 50]
  ask patch -8 5 [set energy 50]
  ask patch -8 6 [set energy 50]
  ask patch -8 7 [set energy 50]
  ask patch -8 8 [set energy 50]
  ask patch -8 9 [set energy 50]
  ask patch -8 10 [set energy 50]
  ask patch -8 11 [set energy 50]
  ask patch -8 12 [set energy 50]
  ask patch -8 13 [set energy 50]
  ask patch -8 14 [set energy 50]
  ask patch -8 15 [set energy 50]
  ask patch -8 16 [set energy 50]
  ask patch -8 17 [set energy 50]
  ask patch -8 18 [set energy 50]
  ask patch -8 19 [set energy 50]
  ask patch -8 20 [set energy 50]
  ask patch -8 21 [set energy 50]
  ask patch -8 22 [set energy 50]
  ask patch -8 23 [set energy 50]
  ask patch -8 24 [set energy 50]
  ask patch -8 25 [set energy 50]


  ask patch -7 1 [set energy 50]
  ask patch -7 2 [set energy 50]
  ask patch -7 3 [set energy 50]
  ask patch -7 4 [set energy 50]
  ask patch -7 5 [set energy 50]
  ask patch -7 6 [set energy 50]
  ask patch -7 7 [set energy 50]
  ask patch -7 8 [set energy 50]
  ask patch -7 9 [set energy 50]
  ask patch -7 10 [set energy 50]
  ask patch -7 11 [set energy 50]
  ask patch -7 12 [set energy 50]
  ask patch -7 13 [set energy 50]
  ask patch -7 14 [set energy 50]
  ask patch -7 15 [set energy 50]
  ask patch -7 16 [set energy 50]
  ask patch -7 17 [set energy 50]
  ask patch -7 18 [set energy 50]
  ask patch -7 19 [set energy 50]
  ask patch -7 20 [set energy 50]
  ask patch -7 21 [set energy 50]
  ask patch -7 22 [set energy 50]
  ask patch -7 23 [set energy 50]
  ask patch -7 24 [set energy 50]
  ask patch -7 25 [set energy 50]

  ; sandstone cliffs


  ask patch 14 25 [set pcolor yellow]

  ask patch 15 11 [set pcolor yellow]
  ask patch 15 12 [set pcolor yellow]
  ask patch 15 24 [set pcolor yellow]
  ask patch 15 25 [set pcolor yellow]

  ask patch 16 10 [set pcolor yellow]
  ask patch 16 11 [set pcolor yellow]
  ask patch 16 12 [set pcolor yellow]
  ask patch 16 13 [set pcolor yellow]
  ask patch 16 23 [set pcolor yellow]
  ask patch 16 24 [set pcolor yellow]
  ask patch 16 25 [set pcolor yellow]


  ask patch 17 -21 [set pcolor yellow]
  ask patch 17 -20 [set pcolor yellow]
  ask patch 17 -19 [set pcolor yellow]
  ask patch 17 -13 [set pcolor yellow]
  ask patch 17 -12 [set pcolor yellow]
  ask patch 17 -11 [set pcolor yellow]
  ask patch 17 -10 [set pcolor yellow]
  ask patch 17 1 [set pcolor yellow]
  ask patch 17 2 [set pcolor yellow]
  ask patch 17 3 [set pcolor yellow]
  ask patch 17 9 [set pcolor yellow]
  ask patch 17 10 [set pcolor yellow]
  ask patch 17 11 [set pcolor yellow]
  ask patch 17 12 [set pcolor yellow]
  ask patch 17 13 [set pcolor yellow]
  ask patch 17 14 [set pcolor yellow]
  ask patch 17 15 [set pcolor yellow]
  ask patch 17 16 [set pcolor yellow]
  ask patch 17 23 [set pcolor yellow]
  ask patch 17 24 [set pcolor yellow]
  ask patch 17 25 [set pcolor yellow]



  ask patch 18 -22 [set pcolor yellow]
  ask patch 18 -21 [set pcolor yellow]
  ask patch 18 -20 [set pcolor yellow]
  ask patch 18 -19 [set pcolor yellow]
  ask patch 18 -18 [set pcolor yellow]
  ask patch 18 -14 [set pcolor yellow]
  ask patch 18 -13 [set pcolor yellow]
  ask patch 18 -12 [set pcolor yellow]
  ask patch 18 -11 [set pcolor yellow]
  ask patch 18 -10 [set pcolor yellow]
  ask patch 18 -9 [set pcolor yellow]
  ask patch 18 -5 [set pcolor yellow]
  ask patch 18 -4 [set pcolor yellow]
  ask patch 18 0 [set pcolor yellow]
  ask patch 18 1 [set pcolor yellow]
  ask patch 18 2 [set pcolor yellow]
  ask patch 18 3 [set pcolor yellow]
  ask patch 18 4 [set pcolor yellow]
  ask patch 18 8 [set pcolor yellow]
  ask patch 18 9 [set pcolor yellow]
  ask patch 18 10 [set pcolor yellow]
  ask patch 18 11 [set pcolor yellow]
  ask patch 18 12 [set pcolor yellow]
  ask patch 18 13 [set pcolor yellow]
  ask patch 18 14 [set pcolor yellow]
  ask patch 18 15 [set pcolor yellow]
  ask patch 18 16 [set pcolor yellow]
  ask patch 18 17 [set pcolor yellow]
  ask patch 18 21 [set pcolor yellow]
  ask patch 18 22 [set pcolor yellow]
  ask patch 18 24 [set pcolor yellow]
  ask patch 18 25 [set pcolor yellow]



  ask patch 19 -25 [set pcolor yellow]
  ask patch 19 -23 [set pcolor yellow]
  ask patch 19 -22 [set pcolor yellow]
  ask patch 19 -21 [set pcolor yellow]
  ask patch 19 -20 [set pcolor yellow]
  ask patch 19 -19 [set pcolor yellow]
  ask patch 19 -18 [set pcolor yellow]
  ask patch 19 -17 [set pcolor yellow]
  ask patch 19 -15 [set pcolor yellow]
  ask patch 19 -14 [set pcolor yellow]
  ask patch 19 -13 [set pcolor yellow]
  ask patch 19 -12 [set pcolor yellow]
  ask patch 19 -11 [set pcolor yellow]
  ask patch 19 -10 [set pcolor yellow]
  ask patch 19 -9 [set pcolor yellow]
  ask patch 19 -8 [set pcolor yellow]
  ask patch 19 -6 [set pcolor yellow]
  ask patch 19 -5 [set pcolor yellow]
  ask patch 19 -4 [set pcolor yellow]
  ask patch 19 -3 [set pcolor yellow]
  ask patch 19 -1 [set pcolor yellow]
  ask patch 19 0 [set pcolor yellow]
  ask patch 19 1 [set pcolor yellow]
  ask patch 19 2 [set pcolor yellow]
  ask patch 19 3 [set pcolor yellow]
  ask patch 19 4 [set pcolor yellow]
  ask patch 19 5 [set pcolor yellow]
  ask patch 19 7 [set pcolor yellow]
  ask patch 19 8 [set pcolor yellow]
  ask patch 19 9 [set pcolor yellow]
  ask patch 19 10 [set pcolor yellow]
  ask patch 19 11 [set pcolor yellow]
  ask patch 19 12 [set pcolor yellow]
  ask patch 19 13 [set pcolor yellow]
  ask patch 19 14 [set pcolor yellow]
  ask patch 19 15 [set pcolor yellow]
  ask patch 19 16 [set pcolor yellow]
  ask patch 19 17 [set pcolor yellow]
  ask patch 19 18 [set pcolor yellow]
  ask patch 19 25 [set pcolor yellow]
  ask patch 19 24 [set pcolor yellow]
  ask patch 19 23 [set pcolor yellow]
  ask patch 19 22 [set pcolor yellow]
  ask patch 19 21 [set pcolor yellow]
  ask patch 19 20 [set pcolor yellow]


  ask patch 20 -25 [set pcolor yellow]
  ask patch 20 -24 [set pcolor yellow]
  ask patch 20 -23 [set pcolor yellow]
  ask patch 20 -22 [set pcolor yellow]
  ask patch 20 -21 [set pcolor yellow]
  ask patch 20 -20 [set pcolor yellow]
  ask patch 20 -19 [set pcolor yellow]
  ask patch 20 -18 [set pcolor yellow]
  ask patch 20 -17 [set pcolor yellow]
  ask patch 20 -16 [set pcolor yellow]
  ask patch 20 -15 [set pcolor yellow]
  ask patch 20 -14 [set pcolor yellow]
  ask patch 20 -13 [set pcolor yellow]
  ask patch 20 -12 [set pcolor yellow]
  ask patch 20 -11 [set pcolor yellow]
  ask patch 20 -10 [set pcolor yellow]
  ask patch 20 -9 [set pcolor yellow]
  ask patch 20 -8 [set pcolor yellow]
  ask patch 20 -7 [set pcolor yellow]
  ask patch 20 -6 [set pcolor yellow]
  ask patch 20 -5 [set pcolor yellow]
  ask patch 20 -4 [set pcolor yellow]
  ask patch 20 -3 [set pcolor yellow]
  ask patch 20 -2 [set pcolor yellow]
  ask patch 20 -1 [set pcolor yellow]
  ask patch 20 0 [set pcolor yellow]
  ask patch 20 1 [set pcolor yellow]
  ask patch 20 2 [set pcolor yellow]
  ask patch 20 3 [set pcolor yellow]
  ask patch 20 4 [set pcolor yellow]
  ask patch 20 5 [set pcolor yellow]
  ask patch 20 6 [set pcolor yellow]
  ask patch 20 7 [set pcolor yellow]
  ask patch 20 8 [set pcolor yellow]
  ask patch 20 9 [set pcolor yellow]
  ask patch 20 10 [set pcolor yellow]
  ask patch 20 11 [set pcolor yellow]
  ask patch 20 12 [set pcolor yellow]
  ask patch 20 13 [set pcolor yellow]
  ask patch 20 14 [set pcolor yellow]
  ask patch 20 15 [set pcolor yellow]
  ask patch 20 16 [set pcolor yellow]
  ask patch 20 17 [set pcolor yellow]
  ask patch 20 18 [set pcolor yellow]
  ask patch 20 19 [set pcolor yellow]
  ask patch 20 20 [set pcolor yellow]
  ask patch 20 21 [set pcolor yellow]
  ask patch 20 22 [set pcolor yellow]
  ask patch 20 23 [set pcolor yellow]
  ask patch 20 24 [set pcolor yellow]
  ask patch 20 25 [set pcolor yellow]




  ask patch 21 -25 [set pcolor yellow]
  ask patch 21 -24 [set pcolor yellow]
  ask patch 21 -23 [set pcolor yellow]
  ask patch 21 -22 [set pcolor yellow]
  ask patch 21 -21 [set pcolor yellow]
  ask patch 21 -20 [set pcolor yellow]
  ask patch 21 -19 [set pcolor yellow]
  ask patch 21 -18 [set pcolor yellow]
  ask patch 21 -17 [set pcolor yellow]
  ask patch 21 -16 [set pcolor yellow]
  ask patch 21 -15 [set pcolor yellow]
  ask patch 21 -14 [set pcolor yellow]
  ask patch 21 -13 [set pcolor yellow]
  ask patch 21 -12 [set pcolor yellow]
  ask patch 21 -11 [set pcolor yellow]
  ask patch 21 -10 [set pcolor yellow]
  ask patch 21 -9 [set pcolor yellow]
  ask patch 21 -8 [set pcolor yellow]
  ask patch 21 -7 [set pcolor yellow]
  ask patch 21 -6 [set pcolor yellow]
  ask patch 21 -5 [set pcolor yellow]
  ask patch 21 -4 [set pcolor yellow]
  ask patch 21 -3 [set pcolor yellow]
  ask patch 21 -2 [set pcolor yellow]
  ask patch 21 -1 [set pcolor yellow]
  ask patch 21 0 [set pcolor yellow]
  ask patch 21 1 [set pcolor yellow]
  ask patch 21 2 [set pcolor yellow]
  ask patch 21 3 [set pcolor yellow]
  ask patch 21 4 [set pcolor yellow]
  ask patch 21 5 [set pcolor yellow]
  ask patch 21 6 [set pcolor yellow]
  ask patch 21 7 [set pcolor yellow]
  ask patch 21 8 [set pcolor yellow]
  ask patch 21 9 [set pcolor yellow]
  ask patch 21 10 [set pcolor yellow]
  ask patch 21 11 [set pcolor yellow]
  ask patch 21 12 [set pcolor yellow]
  ask patch 21 13 [set pcolor yellow]
  ask patch 21 14 [set pcolor yellow]
  ask patch 21 15 [set pcolor yellow]
  ask patch 21 16 [set pcolor yellow]
  ask patch 21 17 [set pcolor yellow]
  ask patch 21 18 [set pcolor yellow]
  ask patch 21 19 [set pcolor yellow]
  ask patch 21 20 [set pcolor yellow]
  ask patch 21 21 [set pcolor yellow]
  ask patch 21 22 [set pcolor yellow]
  ask patch 21 23 [set pcolor yellow]
  ask patch 21 24 [set pcolor yellow]
  ask patch 21 25 [set pcolor yellow]


  ask patch 22 -25 [set pcolor yellow]
  ask patch 22 -24 [set pcolor yellow]
  ask patch 22 -23 [set pcolor yellow]
  ask patch 22 -22 [set pcolor yellow]
  ask patch 22 -21 [set pcolor yellow]
  ask patch 22 -20 [set pcolor yellow]
  ask patch 22 -19 [set pcolor yellow]
  ask patch 22 -18 [set pcolor yellow]
  ask patch 22 -17 [set pcolor yellow]
  ask patch 22 -16 [set pcolor yellow]
  ask patch 22 -15 [set pcolor yellow]
  ask patch 22 -14 [set pcolor yellow]
  ask patch 22 -13 [set pcolor yellow]
  ask patch 22 -12 [set pcolor yellow]
  ask patch 22 -11 [set pcolor yellow]
  ask patch 22 -10 [set pcolor yellow]
  ask patch 22 -9 [set pcolor yellow]
  ask patch 22 -8 [set pcolor yellow]
  ask patch 22 -7 [set pcolor yellow]
  ask patch 22 -6 [set pcolor yellow]
  ask patch 22 -5 [set pcolor yellow]
  ask patch 22 -4 [set pcolor yellow]
  ask patch 22 -3 [set pcolor yellow]
  ask patch 22 -2 [set pcolor yellow]
  ask patch 22 -1 [set pcolor yellow]
  ask patch 22 0 [set pcolor yellow]
  ask patch 22 1 [set pcolor yellow]
  ask patch 22 2 [set pcolor yellow]
  ask patch 22 3 [set pcolor yellow]
  ask patch 22 4 [set pcolor yellow]
  ask patch 22 5 [set pcolor yellow]
  ask patch 22 6 [set pcolor yellow]
  ask patch 22 7 [set pcolor yellow]
  ask patch 22 8 [set pcolor yellow]
  ask patch 22 9 [set pcolor yellow]
  ask patch 22 10 [set pcolor yellow]
  ask patch 22 11 [set pcolor yellow]
  ask patch 22 12 [set pcolor yellow]
  ask patch 22 13 [set pcolor yellow]
  ask patch 22 14 [set pcolor yellow]
  ask patch 22 15 [set pcolor yellow]
  ask patch 22 16 [set pcolor yellow]
  ask patch 22 17 [set pcolor yellow]
  ask patch 22 18 [set pcolor yellow]
  ask patch 22 19 [set pcolor yellow]
  ask patch 22 20 [set pcolor yellow]
  ask patch 22 21 [set pcolor yellow]
  ask patch 22 22 [set pcolor yellow]
  ask patch 22 23 [set pcolor yellow]
  ask patch 22 24 [set pcolor yellow]
  ask patch 22 25 [set pcolor yellow]



  ask patch 23 -25 [set pcolor yellow]
  ask patch 23 -24 [set pcolor yellow]
  ask patch 23 -23 [set pcolor yellow]
  ask patch 23 -22 [set pcolor yellow]
  ask patch 23 -21 [set pcolor yellow]
  ask patch 23 -20 [set pcolor yellow]
  ask patch 23 -19 [set pcolor yellow]
  ask patch 23 -18 [set pcolor yellow]
  ask patch 23 -17 [set pcolor yellow]
  ask patch 23 -16 [set pcolor yellow]
  ask patch 23 -15 [set pcolor yellow]
  ask patch 23 -14 [set pcolor yellow]
  ask patch 23 -13 [set pcolor yellow]
  ask patch 23 -12 [set pcolor yellow]
  ask patch 23 -11 [set pcolor yellow]
  ask patch 23 -10 [set pcolor yellow]
  ask patch 23 -9 [set pcolor yellow]
  ask patch 23 -8 [set pcolor yellow]
  ask patch 23 -7 [set pcolor yellow]
  ask patch 23 -6 [set pcolor yellow]
  ask patch 23 -5 [set pcolor yellow]
  ask patch 23 -4 [set pcolor yellow]
  ask patch 23 -3 [set pcolor yellow]
  ask patch 23 -2 [set pcolor yellow]
  ask patch 23 -1 [set pcolor yellow]
  ask patch 23 0 [set pcolor yellow]
  ask patch 23 1 [set pcolor yellow]
  ask patch 23 2 [set pcolor yellow]
  ask patch 23 3 [set pcolor yellow]
  ask patch 23 4 [set pcolor yellow]
  ask patch 23 5 [set pcolor yellow]
  ask patch 23 6 [set pcolor yellow]
  ask patch 23 7 [set pcolor yellow]
  ask patch 23 8 [set pcolor yellow]
  ask patch 23 9 [set pcolor yellow]
  ask patch 23 10 [set pcolor yellow]
  ask patch 23 11 [set pcolor yellow]
  ask patch 23 12 [set pcolor yellow]
  ask patch 23 13 [set pcolor yellow]
  ask patch 23 14 [set pcolor yellow]
  ask patch 23 15 [set pcolor yellow]
  ask patch 23 16 [set pcolor yellow]
  ask patch 23 17 [set pcolor yellow]
  ask patch 23 18 [set pcolor yellow]
  ask patch 23 19 [set pcolor yellow]
  ask patch 23 20 [set pcolor yellow]
  ask patch 23 21 [set pcolor yellow]
  ask patch 23 22 [set pcolor yellow]
  ask patch 23 23 [set pcolor yellow]
  ask patch 23 24 [set pcolor yellow]
  ask patch 23 25 [set pcolor yellow]


  ask patch 24 -25 [set pcolor yellow]
  ask patch 24 -24 [set pcolor yellow]
  ask patch 24 -23 [set pcolor yellow]
  ask patch 24 -22 [set pcolor yellow]
  ask patch 24 -21 [set pcolor yellow]
  ask patch 24 -20 [set pcolor yellow]
  ask patch 24 -19 [set pcolor yellow]
  ask patch 24 -18 [set pcolor yellow]
  ask patch 24 -17 [set pcolor yellow]
  ask patch 24 -16 [set pcolor yellow]
  ask patch 24 -15 [set pcolor yellow]
  ask patch 24 -14 [set pcolor yellow]
  ask patch 24 -13 [set pcolor yellow]
  ask patch 24 -12 [set pcolor yellow]
  ask patch 24 -11 [set pcolor yellow]
  ask patch 24 -10 [set pcolor yellow]
  ask patch 24 -9 [set pcolor yellow]
  ask patch 24 -8 [set pcolor yellow]
  ask patch 24 -7 [set pcolor yellow]
  ask patch 24 -6 [set pcolor yellow]
  ask patch 24 -5 [set pcolor yellow]
  ask patch 24 -4 [set pcolor yellow]
  ask patch 24 -3 [set pcolor yellow]
  ask patch 24 -2 [set pcolor yellow]
  ask patch 24 -1 [set pcolor yellow]
  ask patch 24 0 [set pcolor yellow]
  ask patch 24 1 [set pcolor yellow]
  ask patch 24 2 [set pcolor yellow]
  ask patch 24 3 [set pcolor yellow]
  ask patch 24 4 [set pcolor yellow]
  ask patch 24 5 [set pcolor yellow]
  ask patch 24 6 [set pcolor yellow]
  ask patch 24 7 [set pcolor yellow]
  ask patch 24 8 [set pcolor yellow]
  ask patch 24 9 [set pcolor yellow]
  ask patch 24 10 [set pcolor yellow]
  ask patch 24 11 [set pcolor yellow]
  ask patch 24 12 [set pcolor yellow]
  ask patch 24 13 [set pcolor yellow]
  ask patch 24 14 [set pcolor yellow]
  ask patch 24 15 [set pcolor yellow]
  ask patch 24 16 [set pcolor yellow]
  ask patch 24 17 [set pcolor yellow]
  ask patch 24 18 [set pcolor yellow]
  ask patch 24 19 [set pcolor yellow]
  ask patch 24 20 [set pcolor yellow]
  ask patch 24 21 [set pcolor yellow]
  ask patch 24 22 [set pcolor yellow]
  ask patch 24 23 [set pcolor yellow]
  ask patch 24 24 [set pcolor yellow]
  ask patch 24 25 [set pcolor yellow]

  ask patch 25 -25 [set pcolor yellow]
  ask patch 25 -24 [set pcolor yellow]
  ask patch 25 -23 [set pcolor yellow]
  ask patch 25 -22 [set pcolor yellow]
  ask patch 25 -21 [set pcolor yellow]
  ask patch 25 -20 [set pcolor yellow]
  ask patch 25 -19 [set pcolor yellow]
  ask patch 25 -18 [set pcolor yellow]
  ask patch 25 -17 [set pcolor yellow]
  ask patch 25 -16 [set pcolor yellow]
  ask patch 25 -15 [set pcolor yellow]
  ask patch 25 -14 [set pcolor yellow]
  ask patch 25 -13 [set pcolor yellow]
  ask patch 25 -12 [set pcolor yellow]
  ask patch 25 -11 [set pcolor yellow]
  ask patch 25 -10 [set pcolor yellow]
  ask patch 25 -9 [set pcolor yellow]
  ask patch 25 -8 [set pcolor yellow]
  ask patch 25 -7 [set pcolor yellow]
  ask patch 25 -6 [set pcolor yellow]
  ask patch 25 -5 [set pcolor yellow]
  ask patch 25 -4 [set pcolor yellow]
  ask patch 25 -3 [set pcolor yellow]
  ask patch 25 -2 [set pcolor yellow]
  ask patch 25 -1 [set pcolor yellow]
  ask patch 25 0 [set pcolor yellow]
  ask patch 25 1 [set pcolor yellow]
  ask patch 25 2 [set pcolor yellow]
  ask patch 25 3 [set pcolor yellow]
  ask patch 25 4 [set pcolor yellow]
  ask patch 25 5 [set pcolor yellow]
  ask patch 25 6 [set pcolor yellow]
  ask patch 25 7 [set pcolor yellow]
  ask patch 25 8 [set pcolor yellow]
  ask patch 25 9 [set pcolor yellow]
  ask patch 25 10 [set pcolor yellow]
  ask patch 25 11 [set pcolor yellow]
  ask patch 25 12 [set pcolor yellow]
  ask patch 25 13 [set pcolor yellow]
  ask patch 25 14 [set pcolor yellow]
  ask patch 25 15 [set pcolor yellow]
  ask patch 25 16 [set pcolor yellow]
  ask patch 25 17 [set pcolor yellow]
  ask patch 25 18 [set pcolor yellow]
  ask patch 25 19 [set pcolor yellow]
  ask patch 25 20 [set pcolor yellow]
  ask patch 25 21 [set pcolor yellow]
  ask patch 25 22 [set pcolor yellow]
  ask patch 25 23 [set pcolor yellow]
  ask patch 25 24 [set pcolor yellow]
  ask patch 25 25 [set pcolor yellow]



  ask patch 14 25 [set energy 50]

  ask patch 15 11 [set energy 50]
  ask patch 15 12 [set energy 50]
  ask patch 15 24 [set energy 50]
  ask patch 15 25 [set energy 50]

  ask patch 16 10 [set energy 50]
  ask patch 16 11 [set energy 50]
  ask patch 16 12 [set energy 50]
  ask patch 16 13 [set energy 50]
  ask patch 16 23 [set energy 50]
  ask patch 16 24 [set energy 50]
  ask patch 16 25 [set energy 50]

  ask patch 17 -21 [set energy 50]
  ask patch 17 -20 [set energy 50]
  ask patch 17 -19 [set energy 50]
  ask patch 17 -13 [set energy 50]
  ask patch 17 -12 [set energy 50]
  ask patch 17 -11 [set energy 50]
  ask patch 17 -10 [set energy 50]
  ask patch 17 1 [set energy 50]
  ask patch 17 2 [set energy 50]
  ask patch 17 3 [set energy 50]
  ask patch 17 9 [set energy 50]
  ask patch 17 10 [set energy 50]
  ask patch 17 11 [set energy 50]
  ask patch 17 12 [set energy 50]
  ask patch 17 13 [set energy 50]
  ask patch 17 14 [set energy 50]
  ask patch 17 15 [set energy 50]
  ask patch 17 16 [set energy 50]
  ask patch 17 23 [set energy 50]
  ask patch 17 24 [set energy 50]
  ask patch 17 25 [set energy 50]


  ask patch 18 -22 [set energy 50]
  ask patch 18 -21 [set energy 50]
  ask patch 18 -20 [set energy 50]
  ask patch 18 -19 [set energy 50]
  ask patch 18 -18 [set energy 50]
  ask patch 18 -14 [set energy 50]
  ask patch 18 -13 [set energy 50]
  ask patch 18 -12 [set energy 50]
  ask patch 18 -11 [set energy 50]
  ask patch 18 -10 [set energy 50]
  ask patch 18 -9 [set energy 50]
  ask patch 18 -5 [set energy 50]
  ask patch 18 -4 [set energy 50]
  ask patch 18 0 [set energy 50]
  ask patch 18 1 [set energy 50]
  ask patch 18 2 [set energy 50]
  ask patch 18 3 [set energy 50]
  ask patch 18 4 [set energy 50]
  ask patch 18 8 [set energy 50]
  ask patch 18 9 [set energy 50]
  ask patch 18 10 [set energy 50]
  ask patch 18 11 [set energy 50]
  ask patch 18 12 [set energy 50]
  ask patch 18 13 [set energy 50]
  ask patch 18 14 [set energy 50]
  ask patch 18 15 [set energy 50]
  ask patch 18 16 [set energy 50]
  ask patch 18 17 [set energy 50]
  ask patch 18 21 [set energy 50]
  ask patch 18 22 [set energy 50]
  ask patch 18 24 [set energy 50]
  ask patch 18 25 [set energy 50]



  ask patch 19 -25 [set energy 50]
  ask patch 19 -23 [set energy 50]
  ask patch 19 -22 [set energy 50]
  ask patch 19 -21 [set energy 50]
  ask patch 19 -20 [set energy 50]
  ask patch 19 -19 [set energy 50]
  ask patch 19 -18 [set energy 50]
  ask patch 19 -17 [set energy 50]
  ask patch 19 -15 [set energy 50]
  ask patch 19 -14 [set energy 50]
  ask patch 19 -13 [set energy 50]
  ask patch 19 -12 [set energy 50]
  ask patch 19 -11 [set energy 50]
  ask patch 19 -10 [set energy 50]
  ask patch 19 -9 [set energy 50]
  ask patch 19 -8 [set energy 50]
  ask patch 19 -6 [set energy 50]
  ask patch 19 -5 [set energy 50]
  ask patch 19 -4 [set energy 50]
  ask patch 19 -3 [set energy 50]
  ask patch 19 -1 [set energy 50]
  ask patch 19 0 [set energy 50]
  ask patch 19 1 [set energy 50]
  ask patch 19 2 [set energy 50]
  ask patch 19 3 [set energy 50]
  ask patch 19 4 [set energy 50]
  ask patch 19 5 [set energy 50]
  ask patch 19 7 [set energy 50]
  ask patch 19 8 [set energy 50]
  ask patch 19 9 [set energy 50]
  ask patch 19 10 [set energy 50]
  ask patch 19 11 [set energy 50]
  ask patch 19 12 [set energy 50]
  ask patch 19 13 [set energy 50]
  ask patch 19 14 [set energy 50]
  ask patch 19 15 [set energy 50]
  ask patch 19 16 [set energy 50]
  ask patch 19 17 [set energy 50]
  ask patch 19 18 [set energy 50]
  ask patch 19 25 [set energy 50]
  ask patch 19 24 [set energy 50]
  ask patch 19 23 [set energy 50]
  ask patch 19 22 [set energy 50]
  ask patch 19 21 [set energy 50]
  ask patch 19 20 [set energy 50]



  ask patch 20 -25 [set energy 50]
  ask patch 20 -24 [set energy 50]
  ask patch 20 -23 [set energy 50]
  ask patch 20 -22 [set energy 50]
  ask patch 20 -21 [set energy 50]
  ask patch 20 -20 [set energy 50]
  ask patch 20 -19 [set energy 50]
  ask patch 20 -18 [set energy 50]
  ask patch 20 -19 [set energy 50]
  ask patch 20 -18 [set energy 50]
  ask patch 20 -17 [set energy 50]
  ask patch 20 -16 [set energy 50]
  ask patch 20 -15 [set energy 50]
  ask patch 20 -14 [set energy 50]
  ask patch 20 -13 [set energy 50]
  ask patch 20 -12 [set energy 50]
  ask patch 20 -11 [set energy 50]
  ask patch 20 -10 [set energy 50]
  ask patch 20 -9 [set energy 50]
  ask patch 20 -8 [set energy 50]
  ask patch 20 -7 [set energy 50]
  ask patch 20 -6 [set energy 50]
  ask patch 20 -5 [set energy 50]
  ask patch 20 -4 [set energy 50]
  ask patch 20 -3 [set energy 50]
  ask patch 20 -2 [set energy 50]
  ask patch 20 -1 [set energy 50]
  ask patch 20 0 [set energy 50]
  ask patch 20 1 [set energy 50]
  ask patch 20 2 [set energy 50]
  ask patch 20 3 [set energy 50]
  ask patch 20 4 [set energy 50]
  ask patch 20 5 [set energy 50]
  ask patch 20 6 [set energy 50]
  ask patch 20 7 [set energy 50]
  ask patch 20 8 [set energy 50]
  ask patch 20 9 [set energy 50]
  ask patch 20 10 [set energy 50]
  ask patch 20 11 [set energy 50]
  ask patch 20 12 [set energy 50]
  ask patch 20 13 [set energy 50]
  ask patch 20 14 [set energy 50]
  ask patch 20 15 [set energy 50]
  ask patch 20 16 [set energy 50]
  ask patch 20 17 [set energy 50]
  ask patch 20 18 [set energy 50]
  ask patch 20 19 [set energy 50]
  ask patch 20 20 [set energy 50]
  ask patch 20 21 [set energy 50]
  ask patch 20 22 [set energy 50]
  ask patch 20 23 [set energy 50]
  ask patch 20 24 [set energy 50]
  ask patch 20 25 [set energy 50]



  ask patch 21 -25 [set energy 50]
  ask patch 21 -24 [set energy 50]
  ask patch 21 -23 [set energy 50]
  ask patch 21 -22 [set energy 50]
  ask patch 21 -21 [set energy 50]
  ask patch 21 -20 [set energy 50]
  ask patch 21 -19 [set energy 50]
  ask patch 21 -18 [set energy 50]
  ask patch 21 -17 [set energy 50]
  ask patch 21 -16 [set energy 50]
  ask patch 21 -15 [set energy 50]
  ask patch 21 -14 [set energy 50]
  ask patch 21 -13 [set energy 50]
  ask patch 21 -12 [set energy 50]
  ask patch 21 -11 [set energy 50]
  ask patch 21 -10 [set energy 50]
  ask patch 21 -9 [set energy 50]
  ask patch 21 -8 [set energy 50]
  ask patch 21 -7 [set energy 50]
  ask patch 21 -6 [set energy 50]
  ask patch 21 -5 [set energy 50]
  ask patch 21 -4 [set energy 50]
  ask patch 21 -3 [set energy 50]
  ask patch 21 -2 [set energy 50]
  ask patch 21 -1 [set energy 50]
  ask patch 21 0 [set energy 50]
  ask patch 21 1 [set energy 50]
  ask patch 21 2 [set energy 50]
  ask patch 21 3 [set energy 50]
  ask patch 21 4 [set energy 50]
  ask patch 21 5 [set energy 50]
  ask patch 21 6 [set energy 50]
  ask patch 21 7 [set energy 50]
  ask patch 21 8 [set energy 50]
  ask patch 21 9 [set energy 50]
  ask patch 21 10 [set energy 50]
  ask patch 21 11 [set energy 50]
  ask patch 21 12 [set energy 50]
  ask patch 21 13 [set energy 50]
  ask patch 21 14 [set energy 50]
  ask patch 21 15 [set energy 50]
  ask patch 21 16 [set energy 50]
  ask patch 21 17 [set energy 50]
  ask patch 21 18 [set energy 50]
  ask patch 21 19 [set energy 50]
  ask patch 21 20 [set energy 50]
  ask patch 21 21 [set energy 50]
  ask patch 21 22 [set energy 50]
  ask patch 21 23 [set energy 50]
  ask patch 21 24 [set energy 50]
  ask patch 21 25 [set energy 50]


  ask patch 22 -25 [set energy 50]
  ask patch 22 -24 [set energy 50]
  ask patch 22 -23 [set energy 50]
  ask patch 22 -22 [set energy 50]
  ask patch 22 -21 [set energy 50]
  ask patch 22 -20 [set energy 50]
  ask patch 22 -19 [set energy 50]
  ask patch 22 -18 [set energy 50]
  ask patch 22 -17 [set energy 50]
  ask patch 22 -16 [set energy 50]
  ask patch 22 -15 [set energy 50]
  ask patch 22 -14 [set energy 50]
  ask patch 22 -13 [set energy 50]
  ask patch 22 -12 [set energy 50]
  ask patch 22 -11 [set energy 50]
  ask patch 22 -10 [set energy 50]
  ask patch 22 -9 [set energy 50]
  ask patch 22 -8 [set energy 50]
  ask patch 22 -7 [set energy 50]
  ask patch 22 -6 [set energy 50]
  ask patch 22 -5 [set energy 50]
  ask patch 22 -4 [set energy 50]
  ask patch 22 -3 [set energy 50]
  ask patch 22 -2 [set energy 50]
  ask patch 22 -1 [set energy 50]
  ask patch 22 0 [set energy 50]
  ask patch 22 1 [set energy 50]
  ask patch 22 2 [set energy 50]
  ask patch 22 3 [set energy 50]
  ask patch 22 4 [set energy 50]
  ask patch 22 5 [set energy 50]
  ask patch 22 6 [set energy 50]
  ask patch 22 7 [set energy 50]
  ask patch 22 8 [set energy 50]
  ask patch 22 9 [set energy 50]
  ask patch 22 10 [set energy 50]
  ask patch 22 11 [set energy 50]
  ask patch 22 12 [set energy 50]
  ask patch 22 13 [set energy 50]
  ask patch 22 14 [set energy 50]
  ask patch 22 15 [set energy 50]
  ask patch 22 16 [set energy 50]
  ask patch 22 17 [set energy 50]
  ask patch 22 18 [set energy 50]
  ask patch 22 19 [set energy 50]
  ask patch 22 20 [set energy 50]
  ask patch 22 21 [set energy 50]
  ask patch 22 22 [set energy 50]
  ask patch 22 23 [set energy 50]
  ask patch 22 24 [set energy 50]
  ask patch 22 25 [set energy 50]


  ask patch 23 -25 [set energy 50]
  ask patch 23 -24 [set energy 50]
  ask patch 23 -23 [set energy 50]
  ask patch 23 -22 [set energy 50]
  ask patch 23 -21 [set energy 50]
  ask patch 23 -20 [set energy 50]
  ask patch 23 -19 [set energy 50]
  ask patch 23 -18 [set energy 50]
  ask patch 23 -17 [set energy 50]
  ask patch 23 -16 [set energy 50]
  ask patch 23 -15 [set energy 50]
  ask patch 23 -14 [set energy 50]
  ask patch 23 -13 [set energy 50]
  ask patch 23 -12 [set energy 50]
  ask patch 23 -11 [set energy 50]
  ask patch 23 -10 [set energy 50]
  ask patch 23 -9 [set energy 50]
  ask patch 23 -8 [set energy 50]
  ask patch 23 -7 [set energy 50]
  ask patch 23 -6 [set energy 50]
  ask patch 23 -5 [set energy 50]
  ask patch 23 -4 [set energy 50]
  ask patch 23 -3 [set energy 50]
  ask patch 23 -2 [set energy 50]
  ask patch 23 -1 [set energy 50]
  ask patch 23 0 [set energy 50]
  ask patch 23 1 [set energy 50]
  ask patch 23 2 [set energy 50]
  ask patch 23 3 [set energy 50]
  ask patch 23 4 [set energy 50]
  ask patch 23 5 [set energy 50]
  ask patch 23 6 [set energy 50]
  ask patch 23 7 [set energy 50]
  ask patch 23 8 [set energy 50]
  ask patch 23 9 [set energy 50]
  ask patch 23 10 [set energy 50]
  ask patch 23 11 [set energy 50]
  ask patch 23 12 [set energy 50]
  ask patch 23 13 [set energy 50]
  ask patch 23 14 [set energy 50]
  ask patch 23 15 [set energy 50]
  ask patch 23 16 [set energy 50]
  ask patch 23 17 [set energy 50]
  ask patch 23 18 [set energy 50]
  ask patch 23 19 [set energy 50]
  ask patch 23 20 [set energy 50]
  ask patch 23 21 [set energy 50]
  ask patch 23 22 [set energy 50]
  ask patch 23 23 [set energy 50]
  ask patch 23 24 [set energy 50]
  ask patch 23 25 [set energy 50]


  ask patch 24 -25 [set energy 50]
  ask patch 24 -24 [set energy 50]
  ask patch 24 -23 [set energy 50]
  ask patch 24 -22 [set energy 50]
  ask patch 24 -21 [set energy 50]
  ask patch 24 -20 [set energy 50]
  ask patch 24 -19 [set energy 50]
  ask patch 24 -18 [set energy 50]
  ask patch 24 -17 [set energy 50]
  ask patch 24 -16 [set energy 50]
  ask patch 24 -15 [set energy 50]
  ask patch 24 -14 [set energy 50]
  ask patch 24 -13 [set energy 50]
  ask patch 24 -12 [set energy 50]
  ask patch 24 -11 [set energy 50]
  ask patch 24 -10 [set energy 50]
  ask patch 24 -9 [set energy 50]
  ask patch 24 -8 [set energy 50]
  ask patch 24 -7 [set energy 50]
  ask patch 24 -6 [set energy 50]
  ask patch 24 -5 [set energy 50]
  ask patch 24 -4 [set energy 50]
  ask patch 24 -3 [set energy 50]
  ask patch 24 -2 [set energy 50]
  ask patch 24 -1 [set energy 50]
  ask patch 24 0 [set energy 50]
  ask patch 24 1 [set energy 50]
  ask patch 24 2 [set energy 50]
  ask patch 24 3 [set energy 50]
  ask patch 24 4 [set energy 50]
  ask patch 24 5 [set energy 50]
  ask patch 24 6 [set energy 50]
  ask patch 24 7 [set energy 50]
  ask patch 24 8 [set energy 50]
  ask patch 24 9 [set energy 50]
  ask patch 24 10 [set energy 50]
  ask patch 24 11 [set energy 50]
  ask patch 24 12 [set energy 50]
  ask patch 24 13 [set energy 50]
  ask patch 24 14 [set energy 50]
  ask patch 24 15 [set energy 50]
  ask patch 24 16 [set energy 50]
  ask patch 24 17 [set energy 50]
  ask patch 24 18 [set energy 50]
  ask patch 24 19 [set energy 50]
  ask patch 24 20 [set energy 50]
  ask patch 24 21 [set energy 50]
  ask patch 24 22 [set energy 50]
  ask patch 24 23 [set energy 50]
  ask patch 24 24 [set energy 50]
  ask patch 24 25 [set energy 50]




  ask patch 25 -25 [set energy 50]
  ask patch 25 -24 [set energy 50]
  ask patch 25 -23 [set energy 50]
  ask patch 25 -22 [set energy 50]
  ask patch 25 -21 [set energy 50]
  ask patch 25 -20 [set energy 50]
  ask patch 25 -19 [set energy 50]
  ask patch 25 -18 [set energy 50]
  ask patch 25 -17 [set energy 50]
  ask patch 25 -16 [set energy 50]
  ask patch 25 -15 [set energy 50]
  ask patch 25 -14 [set energy 50]
  ask patch 25 -13 [set energy 50]
  ask patch 25 -12 [set energy 50]
  ask patch 25 -11 [set energy 50]
  ask patch 25 -10 [set energy 50]
  ask patch 25 -9 [set energy 50]
  ask patch 25 -8 [set energy 50]
  ask patch 25 -7 [set energy 50]
  ask patch 25 -6 [set energy 50]
  ask patch 25 -5 [set energy 50]
  ask patch 25 -4 [set energy 50]
  ask patch 25 -3 [set energy 50]
  ask patch 25 -2 [set energy 50]
  ask patch 25 -1 [set energy 50]
  ask patch 25 0 [set energy 50]
  ask patch 25 1 [set energy 50]
  ask patch 25 2 [set energy 50]
  ask patch 25 3 [set energy 50]
  ask patch 25 4 [set energy 50]
  ask patch 25 5 [set energy 50]
  ask patch 25 6 [set energy 50]
  ask patch 25 7 [set energy 50]
  ask patch 25 8 [set energy 50]
  ask patch 25 9 [set energy 50]
  ask patch 25 10 [set energy 50]
  ask patch 25 11 [set energy 50]
  ask patch 25 12 [set energy 50]
  ask patch 25 13 [set energy 50]
  ask patch 25 14 [set energy 50]
  ask patch 25 15 [set energy 50]
  ask patch 25 16 [set energy 50]
  ask patch 25 17 [set energy 50]
  ask patch 25 18 [set energy 50]
  ask patch 25 19 [set energy 50]
  ask patch 25 20 [set energy 50]
  ask patch 25 21 [set energy 50]
  ask patch 25 22 [set energy 50]
  ask patch 25 23 [set energy 50]
  ask patch 25 24 [set energy 50]
  ask patch 25 25 [set energy 50]







  create-people initial-number-people
  [
  set shape "person"
  set color black
  set size 1.5
  set energy random (2 * people-gain-from-food)
  setxy random-xcor random-ycor
  ]

  create-arrows initial-number-arrows
  [
    set shape "arrow"
    set color red
    set size 1.5
    set energy random (2 * arrows-gain-from-food)
    setxy random-xcor random-ycor
  ]
  reset-ticks
end 

to go

  if not any? turtles [ stop ]

  if not any? arrows and count people > max-people [ user-message "Agriculturalists won" stop ]
  if not any? people and count arrows > max-people [ user-message "Hunter gatherers won" stop ]

  ask people [
    move
    set energy energy - 1
      eat-grass
      eat-arrows
      death
      reproduce-people
  ]


  ask arrows [
    move
    set energy energy - 1
     eat-grass
     eat-people
     death
     reproduce-arrows
  ]

 ask patches [ grow-grass ]

  tick
end 

to move
  rt random 50
  left random 50
  fd 1
  if pcolor = yellow [fd -3]
end 

to eat-grass
  if pcolor = pink [
    set pcolor brown
    set energy energy + people-gain-from-food
    set energy energy + arrows-gain-from-food
  ]

 if pcolor = cyan [
    set pcolor brown
    set energy energy + people-gain-from-food
    set energy energy + arrows-gain-from-food
  ]
  ifelse show-energy?
  [ set label energy ]
  [set label "" ]
end 

to reproduce-people  ;
  if random-float 100 < people-reproduce [
    set energy (energy / 2)
    hatch 1 [ rt random-float 360 fd 1 ]
  ]
end 

to reproduce-arrows
  if random-float 100 < arrows-reproduce [
    set energy (energy / 2)
    hatch 1 [ rt random-float 360 fd 1 ]
  ]
end 

to eat-people
  let prey one-of people-here
  if prey != nobody  [
    ask prey [ die ]
    set energy energy + arrows-gain-from-food
  ]
end 

to eat-arrows
  let prey one-of arrows-here
  if prey != nobody [
    ask prey [ die ]
    set energy energy + people-gain-from-food
  ]
end 

to death
  if energy < 0 [ die ]
end 

to grow-grass
  if pcolor = brown [
    ifelse countdown <= 0
      [ set pcolor green
        set countdown grass-regrowth-time ]
      [ set countdown countdown - 1 ]
  ]
end 

There is only one version of this model, created about 4 years ago by Durr-e-Maknoon Tariq.

Attached files

File Type Description Last updated
Jebel Sahaba Model 2 - unequal distribution of resources in the Nile Valley - bigger world.png preview Preview for 'Jebel Sahaba Model 2 - unequal distribution of resources in the Nile Valley - bigger world' about 4 years ago, by Durr-e-Maknoon Tariq Download

This model does not have any ancestors.

This model does not have any descendants.