Bahria University Cafe

to setup
  clear-all
  cro Male_students
  [
    set shape "person"
    setxy 13 13
    set color green
  ]
  cro Female_students
  [
    set shape "person"
    setxy -13 -13
    set color pink

  ]

   ;Seating places for students in Cafe
  ask patches[
    sprout 1 [
      set color red
      set shape "circle"
      set size 4
      setxy 13 13
      stamp
      die
    ]
  ]



  ;Seating places for students in Cafe
  ask patches[
    sprout 1 [
      set color orange
      set shape "circle"
      set size 4
      setxy -13 -13
      stamp
      die
    ]
  ]



  ;Seating places for students in Cafe

   ask patches with [pxcor = -13 and pycor > -4 and pycor < 4][
    sprout 1 [
      set color brown
      set shape "circle"
      set size 1
      stamp
      die
    ]
  ]


    ;Seating places for students in Cafe

   ask patches with [pxcor = 13 and pycor > -4 and pycor < 4][
    sprout 1 [
      set color brown
      set shape "circle"
      set size 1
      stamp
      die
    ]
  ]


  ;Seating places for students in Cafe

   ask patches with [pxcor = 6 and pycor > -4 and pycor < 4][
    sprout 1 [
      set color brown
      set shape "circle"
      set size 1
      stamp
      die
    ]
  ]


  ;Seating places for students in Cafe

   ask patches with [pxcor = -6 and pycor > -4 and pycor < 4][
    sprout 1 [
      set color brown
      set shape "circle"
      set size 1
      stamp
      die
    ]
  ]

    ;Seating places for students in Cafe

   ask patches with [pycor = -8 and pxcor > -4 and pxcor < 4][
    sprout 1 [
      set color orange
      set shape "circle"
      set size 1
      stamp
      die
    ]
  ]

    ;Seating places for students in Cafe

   ask patches with [pycor = 8 and pxcor > -4 and pxcor < 4][
    sprout 1 [
      set color orange
      set shape "circle"
      set size 1
      stamp
      die
    ]
  ]

     ;Seating places for students in Cafe

   ask patches with [pycor = -15 and pxcor > -4 and pxcor < 4][
    sprout 1 [
      set color orange
      set shape "circle"
      set size 1
      stamp
      die
    ]
  ]


     ;Seating places for students in Cafe

   ask patches with [pycor = 15 and pxcor > -4 and pxcor < 4][
    sprout 1 [
      set color orange
      set shape "circle"
      set size 1
      stamp
      die
    ]
  ]
  Setup-Food
  Setup-Food2
  Setup-Food3
  Setup-Food4
end 

to go
  ask turtles with [color = green][setxy 13 0]
  ask turtles with [color = green][setxy 13 3]
  ask turtles with [color = green][setxy 13 2]
  ask turtles with [color = green][setxy 13 1]
  ask turtles with [color = green][setxy 13 0]
  ask turtles with [color = green][setxy 13 -1]
  ask turtles with [color = green][setxy 13 -2]
  ask turtles with [color = green][setxy 13 -3]

  ask turtles with [color = pink][setxy -3 -8]
  ask turtles with [color = pink][setxy -2 -8]
  ask turtles with [color = pink][setxy -1 -8]
  ask turtles with [color = pink][setxy  0 -8]
  ask turtles with [color = pink][setxy  1 -8]
  ask turtles with [color = pink][setxy  2 -8]
end 

to square
end 

to Setup-Food

;tables for Stduents in Cafe



  ask patches with [pxcor = 12 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]
    ask patches with [pxcor = 11 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]

  ask patches with [pxcor = 10 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]

  ask patches with [pxcor = 9 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]

  ask patches with [pxcor = 8 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]

  ask patches with [pxcor = 7 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]
end 

to Setup-Food2





;Tables for students in Cafe


  ask patches with [pxcor = -12 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]
    ask patches with [pxcor = -11 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]

  ask patches with [pxcor = -10 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]

  ask patches with [pxcor = -9 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]

  ask patches with [pxcor = -8 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]

  ask patches with [pxcor = -7 and pycor > -6 and pycor < 6 ]
  [
    set pcolor green
  ]
end 

to Setup-Food3




;tables for Stduents in Cafe

   ask patches with [pycor = -14 and pxcor > -6 and pxcor < 6]
  [
    set pcolor green
  ]
   ask patches with [pycor = -13 and pxcor > -6 and pxcor < 6]
  [
    set pcolor green
  ]
  ask patches with [pycor = -12 and pxcor > -6 and pxcor < 6]
  [
    set pcolor green
  ]

  ask patches with [pycor = -11 and pxcor > -6 and pxcor < 6]
  [
    set pcolor green
  ]

  ask patches with [pycor = -10 and pxcor > -6 and pxcor < 6 ]
  [
    set pcolor green
  ]

  ask patches with [pycor = -9 and pxcor > -6 and pxcor < 6 ]
  [
    set pcolor green
  ]
end 

to Setup-Food4



;tables for Stduents in Cafe

   ask patches with [pycor = 14 and pxcor > -6 and pxcor < 6]
  [
    set pcolor green
  ]
   ask patches with [pycor = 13 and pxcor > -6 and pxcor < 6]
  [
    set pcolor green
  ]
  ask patches with [pycor = 12 and pxcor > -6 and pxcor < 6]
  [
    set pcolor green
  ]

  ask patches with [pycor = 11 and pxcor > -6 and pxcor < 6]
  [
    set pcolor green
  ]

  ask patches with [pycor = 10 and pxcor > -6 and pxcor < 6 ]
  [
    set pcolor green
  ]

  ask patches with [pycor = 9 and pxcor > -6 and pxcor < 6 ]
  [
    set pcolor green
  ]
end