bahriaa uni Cafeteria3

globals [
  student_patches
  counter_patches
  table_patches1
  table_patches2
  table_patches3
  table_patches4
  table_patches5
  tablem-x tablem-y
  tablef-x tablef-y
  female
  male
  ]
breed [persons person]
breed [waiters waiter]
persons-own[ time_to_leave]

to setup
  clear-all
  setup-tabels
  make-student
  make-waiters
  reset-ticks
end 

to make-student
 create-persons n--students
  [
    choose-sex                   ;; become a man or a woman
    set size 1.5
    setxy 16 0.5
    set shape "person"
    set time_to_leave random 2
  ]
end 

to choose-sex  ;; turtle procedure
  set color one-of [pink blue]
end 

to go
  ask persons[
 lt random 30
  rt random 30
  fd 0.1
    setxy random-pxcor random-pycor
 ask persons with [color = blue and xcor >= tablem-x + 5 and ycor >= tablem-y + 5]
  [ stop
     fd 0]

  ask persons with [color = pink and xcor >= tablef-x + 5 and ycor >= tablef-y + 5 ]
  [ stop fd 0]
  ]
  tick
end 

to  setup-tables

    ask patch -13 66
   [
     set pcolor yellow
   ]
end 

to setup-tabels
  ask patches [ set pcolor white ]


  set table_patches1 patches with [ pxcor = 11  and pycor = -8 ]
  ask table_patches1 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]

   set table_patches4 patches with [ pxcor = -1    and pycor = -13]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]

  set table_patches4 patches with [ pxcor = 7    and pycor = -8 ]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]

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


   set table_patches4 patches with [ pxcor = -5    and pycor = -13]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]

  set table_patches4 patches with [ pxcor = -5    and pycor = -13]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]
   set table_patches4 patches with [ pxcor = -3    and pycor = -13]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]


   set table_patches4 patches with [ pxcor = -13    and pycor = 0]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]

  set table_patches4 patches with [ pxcor = -11    and pycor = -0]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]
   set table_patches4 patches with [ pxcor = -9    and pycor = 0]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]

   set table_patches4 patches with [ pxcor = 2    and pycor = 1]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]

  set table_patches4 patches with [ pxcor = 5   and pycor = 1]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]
   set table_patches4 patches with [ pxcor = -9    and pycor = 0]
  ask table_patches4 [ set pcolor pink
  ask neighbors4 [ set pcolor pink ]
  ]
  set counter_patches patches with [ pxcor >= -10 and pycor > 5  ]
  ask counter_patches [
    set pcolor yellow
  ]

  set student_patches patches with [ pxcor >= -10 and pycor = 5 ]
  ask student_patches [set pcolor green ]
end 

to make-waiters
   create-persons waiterz
  [
    set size 1.8
    setxy random 16 30
    set shape "person"
    set color white
  ]
end