bahria student cafe model 2

globals [

  student_patches
  counter_patches
  table_patches1
  table_patches2
  table_patches3
  table_patches4
  table_patches5
  table_patches6
  table_patches7  ]
  breed  [ males male ]
  breed [ females female  ]
  breed [ servers server  ]

to setup
  make-counter
  make-tables
  make-students
  make-servers
end 

to make-tables
  set table_patches1 patches with [ pxcor = -8  and pycor = 10 ]
  ask table_patches1 [ set pcolor blue
  ask neighbors4 [ set pcolor red ]
  ]

  set table_patches2 patches with [ pxcor = -8  and pycor = -13 ]
  ask table_patches2 [ set pcolor blue
  ask neighbors4 [ set pcolor red ]
  ]

  set table_patches3 patches with [ pxcor = -8  and pycor = -4 ]
  ask table_patches3 [ set pcolor blue
  ask neighbors4 [ set pcolor red ]
  ]

  set table_patches4 patches with [ pxcor = 9    and pycor = 2 ]
  ask table_patches4 [ set pcolor orange
  ask neighbors4 [ set pcolor brown ]
  ]

  set table_patches4 patches with [ pxcor = 9    and pycor = -8 ]
  ask table_patches4 [ set pcolor orange
  ask neighbors4 [ set pcolor brown ]
  ]

  set table_patches5 patches with [ pxcor = 11 and pycor = -13]
   ask table_patches5 [ set pcolor orange
      ask neighbors4 [ set  pcolor brown]
  ]
       set table_patches6 patches with [ pxcor = 11 and pycor = -18]
   ask table_patches6 [ set pcolor orange
      ask neighbors4 [ set  pcolor brown]
  ]

   set table_patches7 patches with [ pxcor = 8 and pycor = -13]
   ask table_patches7 [ set pcolor blue
      ask neighbors4 [ set  pcolor red]
  ]

  set student_patches patches with [ pxcor >= -15 and pycor = 13 ]
  ask student_patches [set pcolor black ]
end 

to make-counter
  ask patch (0) (max-pycor) [
    ask patches with [ distance myself < 6 ] [
      set pcolor brown
    ]
  ]
end 

to make-students
  create-males male-students
  [
    set shape "person"
    set color blue - 2

  ]
  create-females female-students
  [
    set shape "person"
    set color pink - 2

  ]
end 

to make-servers
  create-servers number-of-servers

  [
    set shape "person"
    set color red
    set size 3
    setxy (1 + random 5) (max-pycor - 2)
    set label "server"
  ]
end 

to go
  ask turtles[
    move-to-empty-one-of table_patches1
    move-to-empty-one-of table_patches2
    move-to-empty-one-of table_patches3
    move-to-empty-one-of table_patches4
    move-to-empty-one-of table_patches5
  ]
end 

to move-to-empty-one-of [locations]
  move-to one-of neighbors4
  while [any? other turtles-here] [
    move-to one-of locations
  ]
end