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

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 84 times • Downloaded 11 times • Run 0 times
Download the 'Jebel Sahaba Model 2 - unequal distribution of resources in the Nile Valley' modelDownload this modelEmbed this model

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


Info tab cannot be displayed because of an encoding error

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 almost 3 years ago Corrections made Download this version
Durr-e-Maknoon Tariq almost 3 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' almost 3 years ago, by Durr-e-Maknoon Tariq Download

This model does not have any ancestors.

This model does not have any descendants.