Bahria university cafeteria v1

turtles-own [count-down
 birth-tick]
to
  setup
  reset-ticks
  ca

   make-student
  make-tables
  make-seats
end 

to make-student
  reset-ticks
create-turtles Student [
     setxy random-pxcor  random-pycor
   set shape "person"
    set size 1.5
    set birth-tick ticks
    set count-down waitingtime
     ]
    ask turtles [choose-gender]
end 

to choose-gender
  set color one-of [yellow blue]
end 

to make-tables
  ask patches with[pxcor >= -8 and pxcor <= -4 and pycor >= -7 and pycor <= -4] [set pcolor pink]
  ask patches with[pxcor >= -2 and pxcor <= 2 and pycor >= 4 and pycor <= 7] [set pcolor pink]
  ask patches with[pxcor >= 9 and pxcor <= 13 and pycor >= -3 and pycor <= 0] [set pcolor pink]
  ask patches with[pxcor >= -13 and pxcor <= -9 and pycor >= 10 and pycor <= 13] [set pcolor pink]
end 

to  make-seats
  ask patches with[pxcor >= -13 and pxcor <= -9 and pycor >= 15 and pycor <= 16] [set pcolor red]
  ask patches with[pxcor >= -13 and pxcor <= -9 and pycor >= 7 and pycor <= 8] [set pcolor red]
  ask patches with[pxcor >= -2 and pxcor <= 2 and pycor >= 1  and pycor <= 2] [set pcolor red]
  ask patches with[pxcor >= -2 and pxcor <= 2 and pycor >= 9  and pycor <= 10] [set pcolor red]
  ask patches with[pxcor >= -8 and pxcor <= -4 and pycor >= -10  and pycor <= -9] [set pcolor red]
  ask patches with[pxcor >= -8 and pxcor <= -4 and pycor >= -2  and pycor <= -1] [set pcolor red]
  ask patches with[pxcor >= 9 and pxcor <= 13 and pycor >= 2  and pycor <= 3] [set pcolor red]
  ask patches with[pxcor >= 9 and pxcor <= 13 and pycor >= -6  and pycor <= -5] [set pcolor red]
end 

to go
  move-student
  tick
end 

to move-student
; ask turtles[
  ;lt random 30
 ; rt random 30
 ; fd 0.1
 ; ]
;end


 ask turtles with [color = yellow ]
  [



    ifelse pcolor != red
    [continue]
    [stay]

  ]
  ask turtles with [color = blue ]
  [


    ifelse pcolor != red
    [continue]
    [stay]

  ]
end 

 To continue
  lt random 10
  rt random 10
  fd 2
end 

to separate-student
  if any? other turtles-here [
    fd 1
    separate-student
  ]
end 

to stay
  set count-down count-down - 1   ;decrement-timer
  set label count-down
  if count-down = 0
    [
      Continue
      set label ""
      reset-count-down
    ] if ticks - birth-tick > 65[ die ]
end 

to reset-count-down
  set count-down waitingtime
end