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

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

1 collaborator

Add Collaborator

Close

Tags

(This model has yet to be categorized with any tags)
Add New Tag

Close

Visible to everyone | Changeable by the author
Model was written in NetLogo 6.1.1 • Viewed 214 times • Downloaded 23 times • Run 0 times
Download the 'Jebel Sahaba Model 2 - unequal distribution of resources in the Nile Valley' modelDownload this model • Embed 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 approximately 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 at 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 competition 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 is 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 patches 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 completely 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 slider: 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 the 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 - Alternate the dimensions of the world to create a bigger world 4 - 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 Wolf-Sheep predatory model. In the Wolf-Sheep 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 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 completely to access their resources.

RELATED MODELS

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

The links to related models are given below. They are found on NetLogo Modeling Commons:

Control - Abundance of resources in Prehistoric Nile Valley - 1 group scenario: http://modelingcommons.org/browse/one_model/6785#model_tabs_browse_info

Jebel Sahaba Model 1 - equal resource distribution: http://modelingcommons.org/browse/one_model/6783#model_tabs_browse_info

Jebel Sahaba Model 1 - equal resource distribution + cows: http://modelingcommons.org/browse/one_model/6786#model_tabs_browse_info

Jebel Sahaba Model 2 - unequal distribution of resources in the Nile Valley - bigger world: http://modelingcommons.org/browse/one_model/6782#model_tabs_browse_info

Jebel Sahaba Model 3 - equal resource distribution 3 group scenario: http://modelingcommons.org/browse/one_model/6788#model_tabs_browse_info

Users can also look at the Wolf-Sheep predation model in the Netlogo Models Library

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]

  ask patch -7 -16 [set pcolor pink]
  ask patch -7 -15 [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 -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 -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 -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 -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 -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 1 [set pcolor pink]
  ask patch -1 0 [set pcolor pink]
  ask patch 4 -2 [set pcolor pink]
  ask patch 4 -1 [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 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 1 -9 [set pcolor pink]
  ask patch 1 -7 [set pcolor pink]
  ask patch 1 -8 [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 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 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 0 [set pcolor pink]
  ask patch 0 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 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 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 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 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 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 -7 -16 [ set energy 50 ]
  ask patch -7 -15 [ 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 -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 -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 -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 -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 -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 4 -2 [ set energy 50 ]
  ask patch 4 -1 [ 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 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 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 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 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 0 [ set energy 50 ]
  ask patch 0 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 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 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 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 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 ]

  ;; gullies

  ask patch -1 -16 [set pcolor pink]
  ask patch 0 -16 [set pcolor pink]
  ask patch 0 -14 [set pcolor pink]
  ask patch 1 -16 [set pcolor pink]
  ask patch 1 -14 [set pcolor pink]
  ask patch 1 -10 [set pcolor pink]
  ask patch 2 -16 [set pcolor pink]
  ask patch 2 -14 [set pcolor pink]
  ask patch 2 -11 [set pcolor pink]
  ask patch 2 -10 [set pcolor pink]
  ask patch 3 -16 [set pcolor pink]
  ask patch 3 -14 [set pcolor pink]
  ask patch 3 -12 [set pcolor pink]
  ask patch 3 -11 [set pcolor pink]
  ask patch 3 -9 [set pcolor pink]
  ask patch 3 -6 [set pcolor pink]
  ask patch 4 -16 [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 -8 [set pcolor pink]
  ask patch 4 -6 [set pcolor pink]
  ask patch 4 -3 [set pcolor pink]
  ask patch 5 -16 [set pcolor pink]
  ask patch 5 -14 [set pcolor pink]
  ask patch 5 -13 [set pcolor pink]
  ask patch 5 -11 [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 -3 [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 -11 [set pcolor pink]
  ask patch 6 -8 [set pcolor pink]
  ask patch 6 -6 [set pcolor pink]
  ask patch 6 -3 [set pcolor pink]
  ask patch 6 0 [set pcolor pink]
  ask patch 6 3 [set pcolor pink]
  ask patch 6 6 [set pcolor pink]
  ask patch 6 10 [set pcolor pink]
  ask patch 6 14 [set pcolor pink]
  ask patch 7 -16 [set pcolor pink]
  ask patch 7 -15 [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 -6 [set pcolor pink]
  ask patch 7 -5 [set pcolor pink]
  ask patch 7 -3 [set pcolor pink]
  ask patch 7 0 [set pcolor pink]
  ask patch 7 3 [set pcolor pink]
  ask patch 7 5 [set pcolor pink]
  ask patch 7 6 [set pcolor pink]
  ask patch 7 7 [set pcolor pink]
  ask patch 7 10 [set pcolor pink]
  ask patch 7 13 [set pcolor pink]
  ask patch 7 14 [set pcolor pink]
  ask patch 8 -16 [set pcolor pink]
  ask patch 8 -14 [set pcolor pink]
  ask patch 8 -11 [set pcolor pink]
  ask patch 8 -8 [set pcolor pink]
  ask patch 8 -7 [set pcolor pink]
  ask patch 8 -4 [set pcolor pink]
  ask patch 8 -3 [set pcolor pink]
  ask patch 8 0 [set pcolor pink]
  ask patch 8 3 [set pcolor pink]
  ask patch 8 4 [set pcolor pink]
  ask patch 8 5 [set pcolor pink]
  ask patch 8 8 [set pcolor pink]
  ask patch 8 10 [set pcolor pink]
  ask patch 8 12 [set pcolor pink]
  ask patch 8 13 [set pcolor pink]
  ask patch 8 15 [set pcolor pink]
  ask patch 9 -13 [set pcolor pink]
  ask patch 9 -11 [set pcolor pink]
  ask patch 9 -9 [set pcolor pink]
  ask patch 9 -8 [set pcolor pink]
  ask patch 9 -3 [set pcolor pink]
  ask patch 9 0 [set pcolor pink]
  ask patch 9 3 [set pcolor pink]
  ask patch 9 4 [set pcolor pink]
  ask patch 9 5 [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 10 [set pcolor pink]
  ask patch 9 11 [set pcolor pink]
  ask patch 9 12 [set pcolor pink]
  ask patch 9 16 [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 -2 [set pcolor pink]
  ask patch 10 0 [set pcolor pink]
  ask patch 10 2 [set pcolor pink]
  ask patch 10 3 [set pcolor pink]
  ask patch 10 5 [set pcolor pink]
  ask patch 10 6 [set pcolor pink]
  ask patch 10 7 [set pcolor pink]
  ask patch 10 10 [set pcolor pink]
  ask patch 10 11 [set pcolor pink]
  ask patch 11 -11 [set pcolor pink]
  ask patch 11 -10 [set pcolor pink]
  ask patch 11 0 [set pcolor pink]
  ask patch 11 -1 [set pcolor pink]
  ask patch 11 1 [set pcolor pink]
  ask patch 11 2 [set pcolor pink]
  ask patch 11 5 [set pcolor pink]
  ask patch 11 6 [set pcolor pink]
  ask patch 12 0 [set pcolor pink]
  ask patch 12 1 [set pcolor pink]

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

  ;; sandstone cliffs

  ask patch 16 16 [set pcolor yellow]
  ask patch 16 15 [set pcolor yellow]
  ask patch 16 14 [set pcolor yellow]
  ask patch 16 13 [set pcolor yellow]
  ask patch 16 12 [set pcolor yellow]
  ask patch 16 11 [set pcolor yellow]
  ask patch 16 10 [set pcolor yellow]
  ask patch 16 9 [set pcolor yellow]
  ask patch 16 8 [set pcolor yellow]
  ask patch 16 7 [set pcolor yellow]
  ask patch 16 6 [set pcolor yellow]
  ask patch 16 5 [set pcolor yellow]
  ask patch 16 4 [set pcolor yellow]
  ask patch 16 3 [set pcolor yellow]
  ask patch 16 2 [set pcolor yellow]
  ask patch 16 1 [set pcolor yellow]
  ask patch 16 0 [set pcolor yellow]
  ask patch 16 -1 [set pcolor yellow]
  ask patch 16 -2 [set pcolor yellow]
  ask patch 16 -3 [set pcolor yellow]
  ask patch 16 -4 [set pcolor yellow]
  ask patch 16 -5 [set pcolor yellow]
  ask patch 16 -6 [set pcolor yellow]
  ask patch 16 -7 [set pcolor yellow]
  ask patch 16 -8 [set pcolor yellow]
  ask patch 16 -9 [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 -14 [set pcolor yellow]
  ask patch 16 -15 [set pcolor yellow]
  ask patch 16 -16 [set pcolor yellow]
  ask patch 15 16 [set pcolor yellow]
  ask patch 15 15 [set pcolor yellow]
  ask patch 15 14 [set pcolor yellow]
  ask patch 15 13 [set pcolor yellow]
  ask patch 15 12 [set pcolor yellow]
  ask patch 15 11 [set pcolor yellow]
  ask patch 15 10 [set pcolor yellow]
  ask patch 15 9 [set pcolor yellow]
  ask patch 15 8 [set pcolor yellow]
  ask patch 15 7 [set pcolor yellow]
  ask patch 15 6 [set pcolor yellow]
  ask patch 15 5 [set pcolor yellow]
  ask patch 15 4 [set pcolor yellow]
  ask patch 15 3 [set pcolor yellow]
  ask patch 15 2 [set pcolor yellow]
  ask patch 15 1 [set pcolor yellow]
  ask patch 15 0 [set pcolor yellow]
  ask patch 15 -1 [set pcolor yellow]
  ask patch 15 -2 [set pcolor yellow]
  ask patch 15 -3 [set pcolor yellow]
  ask patch 15 -4 [set pcolor yellow]
  ask patch 15 -5 [set pcolor yellow]
  ask patch 15 -6 [set pcolor yellow]
  ask patch 15 -7 [set pcolor yellow]
  ask patch 15 -8 [set pcolor yellow]
  ask patch 15 -9 [set pcolor yellow]
  ask patch 15 -10 [set pcolor yellow]
  ask patch 15 -11 [set pcolor yellow]
  ask patch 15 -12 [set pcolor yellow]
  ask patch 15 -13 [set pcolor yellow]
  ask patch 15 -14 [set pcolor yellow]
  ask patch 15 -15 [set pcolor yellow]
  ask patch 15 -16 [set pcolor yellow]
  ask patch 14 16 [set pcolor yellow]
  ask patch 14 15 [set pcolor yellow]
  ask patch 14 14 [set pcolor yellow]
  ask patch 14 13 [set pcolor yellow]
  ask patch 14 12 [set pcolor yellow]
  ask patch 14 11 [set pcolor yellow]
  ask patch 14 10 [set pcolor yellow]
  ask patch 14 9 [set pcolor yellow]
  ask patch 14 8 [set pcolor yellow]
  ask patch 14 7 [set pcolor yellow]
  ask patch 14 6 [set pcolor yellow]
  ask patch 14 5 [set pcolor yellow]
  ask patch 14 4 [set pcolor yellow]
  ask patch 14 3 [set pcolor yellow]
  ask patch 14 2 [set pcolor yellow]
  ask patch 14 1 [set pcolor yellow]
  ask patch 14 0 [set pcolor yellow]
  ask patch 14 -1 [set pcolor yellow]
  ask patch 14 -2 [set pcolor yellow]
  ask patch 14 -3 [set pcolor yellow]
  ask patch 14 -4 [set pcolor yellow]
  ask patch 14 -5 [set pcolor yellow]
  ask patch 14 -6 [set pcolor yellow]
  ask patch 14 -7 [set pcolor yellow]
  ask patch 14 -8 [set pcolor yellow]
  ask patch 14 -9 [set pcolor yellow]
  ask patch 14 -10 [set pcolor yellow]
  ask patch 14 -11 [set pcolor yellow]
  ask patch 14 -12 [set pcolor yellow]
  ask patch 14 -13 [set pcolor yellow]
  ask patch 14 -14 [set pcolor yellow]
  ask patch 14 -15 [set pcolor yellow]
  ask patch 14 -16 [set pcolor yellow]
  ask patch 13 16 [set pcolor yellow]
  ask patch 13 15 [set pcolor yellow]
  ask patch 13 14 [set pcolor yellow]
  ask patch 13 13 [set pcolor yellow]
  ask patch 13 12 [set pcolor yellow]
  ask patch 13 11 [set pcolor yellow]
  ask patch 13 10 [set pcolor yellow]
  ask patch 13 9 [set pcolor yellow]
  ask patch 13 8 [set pcolor yellow]
  ask patch 13 7 [set pcolor yellow]
  ask patch 13 6 [set pcolor yellow]
  ask patch 13 5 [set pcolor yellow]
  ask patch 13 4 [set pcolor yellow]
  ask patch 13 3 [set pcolor yellow]
  ask patch 13 2 [set pcolor yellow]
  ask patch 13 1 [set pcolor yellow]
  ask patch 13 0 [set pcolor yellow]
  ask patch 13 -1 [set pcolor yellow]
  ask patch 13 -2 [set pcolor yellow]
  ask patch 13 -3 [set pcolor yellow]
  ask patch 13 -4 [set pcolor yellow]
  ask patch 13 -5 [set pcolor yellow]
  ask patch 13 -6 [set pcolor yellow]
  ask patch 13 -7 [set pcolor yellow]
  ask patch 13 -8 [set pcolor yellow]
  ask patch 13 -9 [set pcolor yellow]
  ask patch 13 -10 [set pcolor yellow]
  ask patch 13 -11 [set pcolor yellow]
  ask patch 13 -12 [set pcolor yellow]
  ask patch 13 -13 [set pcolor yellow]
  ask patch 13 -14 [set pcolor yellow]
  ask patch 13 -15 [set pcolor yellow]
  ask patch 13 -16 [set pcolor yellow]
  ask patch 12 16 [set pcolor yellow]
  ask patch 12 15 [set pcolor yellow]
  ask patch 12 14 [set pcolor yellow]
  ask patch 12 13 [set pcolor yellow]
  ask patch 12 12 [set pcolor yellow]
  ask patch 12 11 [set pcolor yellow]
  ask patch 12 10 [set pcolor yellow]
  ask patch 12 9 [set pcolor yellow]
  ask patch 12 8 [set pcolor yellow]
  ask patch 12 7 [set pcolor yellow]
  ask patch 12 6 [set pcolor yellow]
  ask patch 12 5 [set pcolor yellow]
  ask patch 12 6 [set pcolor yellow]
  ask patch 12 5 [set pcolor yellow]
  ask patch 12 4 [set pcolor yellow]
  ask patch 12 3 [set pcolor yellow]
  ask patch 12 2 [set pcolor yellow]
  ask patch 12 -1 [set pcolor yellow]
  ask patch 12 -2 [set pcolor yellow]
  ask patch 12 -3 [set pcolor yellow]
  ask patch 12 -4 [set pcolor yellow]
  ask patch 12 -5 [set pcolor yellow]
  ask patch 12 -6 [set pcolor yellow]
  ask patch 12 -7 [set pcolor yellow]
  ask patch 12 -8 [set pcolor yellow]
  ask patch 12 -9 [set pcolor yellow]
  ask patch 12 -10 [set pcolor yellow]
  ask patch 12 -11 [set pcolor yellow]
  ask patch 12 -12 [set pcolor yellow]
  ask patch 12 -13 [set pcolor yellow]
  ask patch 12 -14 [set pcolor yellow]
  ask patch 12 -15 [set pcolor yellow]
  ask patch 12 -16 [set pcolor yellow]
  ask patch 11 16 [set pcolor yellow]
  ask patch 11 15 [set pcolor yellow]
  ask patch 11 14 [set pcolor yellow]
  ask patch 11 13 [set pcolor yellow]
  ask patch 11 12 [set pcolor yellow]
  ask patch 11 11 [set pcolor yellow]
  ask patch 11 10 [set pcolor yellow]
  ask patch 11 9 [set pcolor yellow]
  ask patch 11 8 [set pcolor yellow]
  ask patch 11 7 [set pcolor yellow]
  ask patch 11 4 [set pcolor yellow]
  ask patch 11 3 [set pcolor yellow]
  ask patch 11 -2 [set pcolor yellow]
  ask patch 11 -3 [set pcolor yellow]
  ask patch 11 -4 [set pcolor yellow]
  ask patch 11 -5 [set pcolor yellow]
  ask patch 11 -6 [set pcolor yellow]
  ask patch 11 -7 [set pcolor yellow]
  ask patch 11 -8 [set pcolor yellow]
  ask patch 11 -9 [set pcolor yellow]
  ask patch 11 -12 [set pcolor yellow]
  ask patch 11 -13 [set pcolor yellow]
  ask patch 11 -14 [set pcolor yellow]
  ask patch 11 -15 [set pcolor yellow]
  ask patch 11 -16 [set pcolor yellow]
  ask patch 10 16 [set pcolor yellow]
  ask patch 10 15 [set pcolor yellow]
  ask patch 10 14 [set pcolor yellow]
  ask patch 10 13 [set pcolor yellow]
  ask patch 10 12 [set pcolor yellow]
  ask patch 10 9 [set pcolor yellow]
  ask patch 10 8 [set pcolor yellow]
  ask patch 10 4 [set pcolor yellow]
  ask patch 10 -3 [set pcolor yellow]
  ask patch 10 -4 [set pcolor yellow]
  ask patch 10 -5 [set pcolor yellow]
  ask patch 10 -6 [set pcolor yellow]
  ask patch 10 -7 [set pcolor yellow]
  ask patch 10 -8 [set pcolor yellow]
  ask patch 10 -13 [set pcolor yellow]
  ask patch 10 -14 [set pcolor yellow]
  ask patch 10 -15 [set pcolor yellow]
  ask patch 10 -16 [set pcolor yellow]
  ask patch 9 15 [set pcolor yellow]
  ask patch 9 14 [set pcolor yellow]
  ask patch 9 13 [set pcolor yellow]
  ask patch 9 -4 [set pcolor yellow]
  ask patch 9 -5 [set pcolor yellow]
  ask patch 9 -6 [set pcolor yellow]
  ask patch 9 -7 [set pcolor yellow]
  ask patch 9 -14 [set pcolor yellow]
  ask patch 9 -15 [set pcolor yellow]
  ask patch 9 -16 [set pcolor yellow]
  ask patch 8 14 [set pcolor yellow]
  ask patch 8 -5 [set pcolor yellow]
  ask patch 8 -6 [set pcolor yellow]
  ask patch 8 -15 [set pcolor yellow]



  ;; River Nile

  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 -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 -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 -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 -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 -11 16 [set pcolor cyan]
  ask patch -11 15 [set pcolor cyan]
  ask patch -11 14 [set pcolor cyan]
  ask patch -11 13 [set pcolor cyan]
  ask patch -11 12 [set pcolor cyan]
  ask patch -11 11 [set pcolor cyan]
  ask patch -11 10 [set pcolor cyan]
  ask patch -11 9 [set pcolor cyan]
  ask patch -11 8 [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 -14 [set pcolor cyan]
  ask patch -11 -15 [set pcolor cyan]
  ask patch -11 -16 [set pcolor cyan]
  ask patch -10 16 [set pcolor cyan]
  ask patch -10 15 [set pcolor cyan]
  ask patch -10 14 [set pcolor cyan]
  ask patch -10 13 [set pcolor cyan]
  ask patch -10 12 [set pcolor cyan]
  ask patch -10 11 [set pcolor cyan]
  ask patch -10 10 [set pcolor cyan]
  ask patch -10 9 [set pcolor cyan]
  ask patch -10 8 [set pcolor cyan]
  ask patch -10 7 [set pcolor cyan]
  ask patch -10 6 [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 -9 16 [set pcolor cyan]
  ask patch -9 15 [set pcolor cyan]
  ask patch -9 14 [set pcolor cyan]
  ask patch -9 13 [set pcolor cyan]
  ask patch -9 12 [set pcolor cyan]
  ask patch -9 11 [set pcolor cyan]
  ask patch -9 10 [set pcolor cyan]
  ask patch -9 9 [set pcolor cyan]
  ask patch -9 8 [set pcolor cyan]
  ask patch -9 7 [set pcolor cyan]
  ask patch -9 6 [set pcolor cyan]
  ask patch -9 5 [set pcolor cyan]
  ask patch -9 4 [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 -8 16 [set pcolor cyan]
  ask patch -8 15 [set pcolor cyan]
  ask patch -8 14 [set pcolor cyan]
  ask patch -8 13 [set pcolor cyan]
  ask patch -8 12 [set pcolor cyan]
  ask patch -8 11 [set pcolor cyan]
  ask patch -8 10 [set pcolor cyan]
  ask patch -8 9 [set pcolor cyan]
  ask patch -8 8 [set pcolor cyan]
  ask patch -8 7 [set pcolor cyan]
  ask patch -8 6 [set pcolor cyan]
  ask patch -8 5 [set pcolor cyan]
  ask patch -8 4 [set pcolor cyan]
  ask patch -8 3 [set pcolor cyan]
  ask patch -8 2 [set pcolor cyan]
  ask patch -8 1 [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 -7 16 [set pcolor cyan]
  ask patch -7 15 [set pcolor cyan]
  ask patch -7 14 [set pcolor cyan]
  ask patch -7 13 [set pcolor cyan]
  ask patch -7 12 [set pcolor cyan]
  ask patch -7 11 [set pcolor cyan]
  ask patch -7 10 [set pcolor cyan]
  ask patch -7 9 [set pcolor cyan]
  ask patch -7 8 [set pcolor cyan]
  ask patch -7 7 [set pcolor cyan]
  ask patch -7 6 [set pcolor cyan]
  ask patch -7 5 [set pcolor cyan]
  ask patch -7 4 [set pcolor cyan]
  ask patch -7 3 [set pcolor cyan]
  ask patch -7 2 [set pcolor cyan]
  ask patch -7 1 [set pcolor cyan]
  ask patch -7 0 [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 -6 16 [set pcolor cyan]
  ask patch -6 15 [set pcolor cyan]
  ask patch -6 14 [set pcolor cyan]
  ask patch -6 13 [set pcolor cyan]
  ask patch -6 12 [set pcolor cyan]
  ask patch -6 11 [set pcolor cyan]
  ask patch -6 10 [set pcolor cyan]
  ask patch -6 9 [set pcolor cyan]
  ask patch -6 8 [set pcolor cyan]
  ask patch -6 7 [set pcolor cyan]
  ask patch -6 6 [set pcolor cyan]
  ask patch -6 5 [set pcolor cyan]
  ask patch -6 4 [set pcolor cyan]
  ask patch -6 3 [set pcolor cyan]
  ask patch -6 2 [set pcolor cyan]
  ask patch -6 1 [set pcolor cyan]
  ask patch -6 0 [set pcolor cyan]
  ask patch -6 -1 [set pcolor cyan]
  ask patch -6 -2 [set pcolor cyan]
  ask patch -6 -3 [set pcolor cyan]
  ask patch -6 -4 [set pcolor cyan]
  ask patch -6 -5 [set pcolor cyan]
  ask patch -6 -6 [set pcolor cyan]
  ask patch -6 -7 [set pcolor cyan]
  ask patch -6 -8 [set pcolor cyan]
  ask patch -6 -9 [set pcolor cyan]
  ask patch -6 -10 [set pcolor cyan]
  ask patch -6 -11 [set pcolor cyan]
  ask patch -5 16 [set pcolor cyan]
  ask patch -5 15 [set pcolor cyan]
  ask patch -5 14 [set pcolor cyan]
  ask patch -5 13 [set pcolor cyan]
  ask patch -5 12 [set pcolor cyan]
  ask patch -5 11 [set pcolor cyan]
  ask patch -5 10 [set pcolor cyan]
  ask patch -5 9 [set pcolor cyan]
  ask patch -5 8 [set pcolor cyan]
  ask patch -5 7 [set pcolor cyan]
  ask patch -5 6 [set pcolor cyan]
  ask patch -5 5 [set pcolor cyan]
  ask patch -5 4 [set pcolor cyan]
  ask patch -5 3 [set pcolor cyan]
  ask patch -5 2 [set pcolor cyan]
  ask patch -5 1 [set pcolor cyan]
  ask patch -5 0 [set pcolor cyan]
  ask patch -5 -1 [set pcolor cyan]
  ask patch -5 -2 [set pcolor cyan]
  ask patch -5 -3 [set pcolor cyan]
  ask patch -5 -4 [set pcolor cyan]
  ask patch -5 -5 [set pcolor cyan]
  ask patch -5 -6 [set pcolor cyan]
  ask patch -5 -7 [set pcolor cyan]
  ask patch -5 -8 [set pcolor cyan]
  ask patch -4 16 [set pcolor cyan]
  ask patch -4 15 [set pcolor cyan]
  ask patch -4 14 [set pcolor cyan]
  ask patch -4 13 [set pcolor cyan]
  ask patch -4 12 [set pcolor cyan]
  ask patch -4 11 [set pcolor cyan]
  ask patch -4 10 [set pcolor cyan]
  ask patch -4 9 [set pcolor cyan]
  ask patch -4 8 [set pcolor cyan]
  ask patch -4 7 [set pcolor cyan]
  ask patch -4 6 [set pcolor cyan]
  ask patch -4 5 [set pcolor cyan]
  ask patch -4 4 [set pcolor cyan]
  ask patch -4 3 [set pcolor cyan]
  ask patch -4 2 [set pcolor cyan]
  ask patch -4 1 [set pcolor cyan]
  ask patch -4 0 [set pcolor cyan]
  ask patch -4 -1 [set pcolor cyan]
  ask patch -4 -2 [set pcolor cyan]
  ask patch -4 -3 [set pcolor cyan]
  ask patch -4 -4 [set pcolor cyan]
  ask patch -4 -5 [set pcolor cyan]
  ask patch -3 16 [set pcolor cyan]
  ask patch -3 15 [set pcolor cyan]
  ask patch -3 14 [set pcolor cyan]
  ask patch -3 13 [set pcolor cyan]
  ask patch -3 12 [set pcolor cyan]
  ask patch -3 11 [set pcolor cyan]
  ask patch -3 10 [set pcolor cyan]
  ask patch -3 9 [set pcolor cyan]
  ask patch -3 8 [set pcolor cyan]
  ask patch -3 7 [set pcolor cyan]
  ask patch -3 6 [set pcolor cyan]
  ask patch -3 5 [set pcolor cyan]
  ask patch -3 4 [set pcolor cyan]
  ask patch -3 3 [set pcolor cyan]
  ask patch -3 2 [set pcolor cyan]
  ask patch -3 1 [set pcolor cyan]
  ask patch -3 0 [set pcolor cyan]
  ask patch -3 -1 [set pcolor cyan]
  ask patch -3 -2 [set pcolor cyan]
  ask patch -3 -3 [set pcolor cyan]
  ask patch -3 -4 [set pcolor cyan]
  ask patch -2 16 [set pcolor cyan]
  ask patch -2 15 [set pcolor cyan]
  ask patch -2 14 [set pcolor cyan]
  ask patch -2 13 [set pcolor cyan]
  ask patch -2 12 [set pcolor cyan]
  ask patch -2 11 [set pcolor cyan]
  ask patch -2 10 [set pcolor cyan]
  ask patch -2 9 [set pcolor cyan]
  ask patch -2 8 [set pcolor cyan]
  ask patch -2 7 [set pcolor cyan]
  ask patch -2 6 [set pcolor cyan]
  ask patch -2 5 [set pcolor cyan]
  ask patch -2 4 [set pcolor cyan]
  ask patch -2 3 [set pcolor cyan]
  ask patch -2 2 [set pcolor cyan]
  ask patch -2 1 [set pcolor cyan]
  ask patch -2 0 [set pcolor cyan]
  ask patch -2 -1 [set pcolor cyan]
  ask patch -1 16 [set pcolor cyan]
  ask patch -1 15 [set pcolor cyan]
  ask patch -1 14 [set pcolor cyan]
  ask patch -1 13 [set pcolor cyan]
  ask patch -1 12 [set pcolor cyan]
  ask patch -1 11 [set pcolor cyan]
  ask patch -1 10 [set pcolor cyan]
  ask patch -1 9 [set pcolor cyan]
  ask patch -1 8 [set pcolor cyan]
  ask patch -1 7 [set pcolor cyan]
  ask patch -1 6 [set pcolor cyan]
  ask patch -1 5 [set pcolor cyan]
  ask patch -1 4 [set pcolor cyan]
  ask patch -1 3 [set pcolor cyan]
  ask patch -1 2 [set pcolor cyan]


  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 -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 -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 -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 -6 [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 -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 -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 -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 -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 -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 -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 -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 -9 [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 -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 -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 -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 -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 -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 -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 -7 [set energy 50]
  ask patch -5 -8 [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 -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 -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 -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]











  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 -2]
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 are 2 versions of this model.

Uploaded by When Description Download
Durr-e-Maknoon Tariq about 4 years ago Corrections made Download this version
Durr-e-Maknoon Tariq about 4 years ago Initial upload Download this version

Attached files

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

This model does not have any ancestors.

This model does not have any descendants.