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

globals [
  max-people
  max-arrows
]

breed [ people person ]
breed [ arrows arrow ]

patches-own [
  energy
  countdown
]

to setup
  clear-all


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

  ;fetile land

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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

  ;gullies

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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


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

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

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

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



  ;River Nile

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

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

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


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

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


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

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


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


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

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

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


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

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

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

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

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

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

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

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


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

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

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

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


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

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

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

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

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


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

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

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

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

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


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

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

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


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


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

  ; sandstone cliffs


  ask patch 14 25 [set pcolor yellow]

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

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


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



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



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


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




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


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



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


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

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



  ask patch 14 25 [set energy 50]

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

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

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


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



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



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



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


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


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


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




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







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

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

to go

  if not any? turtles [ stop ]

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

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


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

 ask patches [ grow-grass ]

  tick
end 

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

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

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

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

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

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

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

to death
  if energy < 0 [ die ]
end 

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