globals [luminosity]
to setup
  clear-all
  setup-patches
  setup-turtles
  ;;setup-desks
  reset-ticks
  sunlight42
  ask turtles [ set luminosity 41]
end

;; on adapte la luminosité en fonction de l'éclairage extérieur
to go
  ;;move-turtles
  go-to-desk
  switch-light
  if ticks > 100 and ticks < 200 [sunlight43]
  if ticks > 200 and ticks < 300 [sunlight44]
  if ticks > 300 and ticks < 400 [sunlight45]
  if ticks > 400 and ticks < 500 [sunlight46]
  if ticks > 500 and ticks < 600 [sunlight45]
  if ticks > 600 and ticks < 700 [sunlight44]
  if ticks > 700 and ticks < 800 [sunlight43]

  ask patches [ if [pcolor]of patch 6 14 = 42  [ set luminosity 45]]
  ask patches [ if [pcolor]of patch 6 14 = 43  [ set luminosity 46]]
  ask patches [ if [pcolor]of patch 6 14 = 44  [ set luminosity 47]]
  ask patches [ if [pcolor]of patch 6 14 = 45  [ set luminosity 48]]
  tick
end

to move-turtles
  ask turtles [ right random 360 forward 1]
  ask turtles [if pcolor = red [forward -1]]
end

to setup-turtles
  create-turtles 2
  ask turtle 0 [ setxy -7 -2 ]
  ask turtle 1 [ setxy -5 -3 ]
end

;; on allume les lumières lorsqu'une turtle passe
to switch-light
  ;;ask turtles [if pcolor = blue [set pcolor yellow]]
  ask turtles [ if [ycor] of turtle 0  > 3 [ light-on1 ] ]
  ask turtles [ if [ycor] of turtle 0  < 3 [ light-off1 ] ]

  ask turtles [ if [ycor] of turtle 0  > 1 and [ycor] of turtle 0 < 3 [ light-on2 ] ]
  ask turtles [ if [ycor] of turtle 0  < 2 or [ycor] of turtle 0 > 3 [ light-off2 ] ]

  ask turtles [ if [ycor] of turtle 0  > -1 and [ycor] of turtle 0 < 1 [ light-on3 ] ]
  ask turtles [ if [ycor] of turtle 0  < 0 or [ycor] of turtle 0 > 1 [ light-off3 ] ]

  ask turtles [ if [ycor] of turtle 0  > -3 and [ycor] of turtle 0 < -1 [ light-on4 ] ]
  ask turtles [ if [ycor] of turtle 0  < -2 or [ycor] of turtle 0 > -1 [ light-off4 ] ]

  ask turtles [ if [ycor] of turtle 0   > -5 and [ycor] of turtle 0 < -3 [ light-on5 ] ]
  ask turtles [ if [ycor] of turtle 0  < -4 or [ycor] of turtle 0 > -3 [ light-off5 ] ]

  ask turtles [ if [ycor] of turtle 0  > -7 and [ycor] of turtle 0 < -5 [ light-on6 ] ]
  ask turtles [ if [ycor] of turtle 0  < -6 or [ycor] of turtle 0 > -5 [ light-off6 ] ]

  ask turtles [ if [ycor] of turtle 0  > -9 and [ycor] of turtle 0 < -7 [ light-on7 ] ]
  ask turtles [ if [ycor] of turtle 0  < -8 or [ycor] of turtle 0 > -7 [ light-off7 ] ]

end

;aller au bureau de la tortue
to go-to-desk
  ask turtle 0 [
    if pcolor = gray [
      forward 0
    ]
    if pcolor = blue or pcolor = 40 or pcolor = 41 or pcolor = 42 or pcolor = 43 or pcolor = 44 or pcolor = 45 or pcolor = 46 or pcolor = 47 or pcolor = 48 or pcolor = 49 [
      face patch -6 3
      forward 1
    ]
  ]
end

;; /!\ ça fait peur en dessous /!\


to light-on1
  ask patch -10 5 [ set pcolor luminosity ]
  ask patch -9 5 [ set pcolor luminosity ]
  ask patch -8 5 [ set pcolor luminosity ]
  ask patch -7 5 [ set pcolor luminosity ]
  ask patch -6 5 [ set pcolor luminosity ]
  ask patch -5 5 [ set pcolor luminosity ]
  ask patch -4 5 [ set pcolor luminosity ]
  ask patch -3 5 [ set pcolor luminosity ]
  ask patch -2 5 [ set pcolor luminosity ]
  ask patch -10 4 [ set pcolor luminosity ]
  ask patch -9 4 [ set pcolor luminosity ]
  ask patch -8 4 [ set pcolor luminosity ]
  ask patch -7 4 [ set pcolor luminosity ]
  ask patch -6 4 [ set pcolor luminosity ]
  ask patch -5 4 [ set pcolor luminosity ]
  ask patch -4 4 [ set pcolor luminosity ]
  ask patch -3 4 [ set pcolor luminosity ]
  ask patch -2 4 [ set pcolor luminosity ]
end

to light-on2
  ask patch -10 3 [ set pcolor luminosity ]
  ask patch -9 3 [ set pcolor luminosity ]
  ask patch -8 3 [ set pcolor luminosity ]
  ask patch -7 3 [ set pcolor luminosity ]
  ask patch -6 3 [ set pcolor gray ]
  ask patch -5 3 [ set pcolor luminosity ]
  ask patch -4 3 [ set pcolor luminosity ]
  ask patch -3 3 [ set pcolor luminosity ]
  ask patch -2 3 [ set pcolor luminosity ]
  ask patch -10 2 [ set pcolor luminosity ]
  ask patch -9 2 [ set pcolor luminosity ]
  ask patch -8 2 [ set pcolor luminosity ]
  ask patch -7 2 [ set pcolor luminosity ]
  ask patch -6 2 [ set pcolor luminosity ]
  ask patch -5 2 [ set pcolor luminosity ]
  ask patch -4 2 [ set pcolor luminosity ]
  ask patch -3 2 [ set pcolor luminosity ]
  ask patch -2 2 [ set pcolor luminosity ]
end

to light-on3
  ask patch -10 1 [ set pcolor luminosity ]
  ask patch -9 1 [ set pcolor luminosity ]
  ask patch -8 1 [ set pcolor luminosity ]
  ask patch -7 1 [ set pcolor luminosity ]
  ask patch -6 1 [ set pcolor luminosity ]
  ask patch -5 1 [ set pcolor luminosity ]
  ask patch -4 1 [ set pcolor luminosity ]
  ask patch -3 1 [ set pcolor luminosity ]
  ask patch -2 1 [ set pcolor luminosity ]
  ask patch -10 0 [ set pcolor luminosity ]
  ask patch -9 0 [ set pcolor luminosity ]
  ask patch -8 0 [ set pcolor luminosity ]
  ask patch -7 0 [ set pcolor luminosity ]
  ask patch -6 0 [ set pcolor luminosity ]
  ask patch -5 0 [ set pcolor luminosity ]
  ask patch -4 0 [ set pcolor luminosity ]
  ask patch -3 0 [ set pcolor luminosity ]
  ask patch -2 0 [ set pcolor luminosity ]
end

to light-on4
  ask patch -10 -1 [ set pcolor luminosity ]
  ask patch -9 -1 [ set pcolor luminosity ]
  ask patch -8 -1 [ set pcolor luminosity ]
  ask patch -7 -1 [ set pcolor luminosity ]
  ask patch -6 -1 [ set pcolor luminosity ]
  ask patch -5 -1 [ set pcolor luminosity ]
  ask patch -4 -1 [ set pcolor luminosity ]
  ask patch -3 -1 [ set pcolor luminosity ]
  ask patch -2 -1 [ set pcolor luminosity ]
  ask patch -10 -2 [ set pcolor luminosity ]
  ask patch -9 -2 [ set pcolor luminosity ]
  ask patch -8 -2 [ set pcolor luminosity ]
  ask patch -7 -2 [ set pcolor luminosity ]
  ask patch -6 -2 [ set pcolor luminosity ]
  ask patch -5 -2 [ set pcolor luminosity ]
  ask patch -4 -2 [ set pcolor luminosity ]
  ask patch -3 -2 [ set pcolor luminosity ]
  ask patch -2 -2 [ set pcolor luminosity ]
end

to light-on5
  ask patch -10 -3 [ set pcolor luminosity ]
  ask patch -9 -3 [ set pcolor luminosity ]
  ask patch -8 -3 [ set pcolor luminosity ]
  ask patch -7 -3 [ set pcolor luminosity ]
  ask patch -6 -3 [ set pcolor luminosity ]
  ask patch -5 -3 [ set pcolor luminosity ]
  ask patch -4 -3 [ set pcolor luminosity ]
  ask patch -3 -3 [ set pcolor luminosity ]
  ask patch -2 -3 [ set pcolor luminosity ]
  ask patch -10 -4 [ set pcolor luminosity ]
  ask patch -9 -4 [ set pcolor luminosity ]
  ask patch -8 -4 [ set pcolor luminosity ]
  ask patch -7 -4 [ set pcolor luminosity ]
  ask patch -6 -4 [ set pcolor luminosity ]
  ask patch -5 -4 [ set pcolor luminosity ]
  ask patch -4 -4 [ set pcolor luminosity ]
  ask patch -3 -4 [ set pcolor luminosity ]
  ask patch -2 -4 [ set pcolor luminosity ]
end

to light-on6
  ask patch -10 -5 [ set pcolor luminosity ]
  ask patch -9 -5 [ set pcolor luminosity ]
  ask patch -8 -5 [ set pcolor luminosity ]
  ask patch -7 -5 [ set pcolor luminosity ]
  ask patch -6 -5 [ set pcolor luminosity ]
  ask patch -5 -5 [ set pcolor luminosity ]
  ask patch -4 -5 [ set pcolor luminosity ]
  ask patch -3 -5 [ set pcolor luminosity ]
  ask patch -2 -5 [ set pcolor luminosity ]
  ask patch -10 -6 [ set pcolor luminosity ]
  ask patch -9 -6 [ set pcolor luminosity ]
  ask patch -8 -6 [ set pcolor luminosity ]
  ask patch -7 -6 [ set pcolor luminosity ]
  ask patch -6 -6 [ set pcolor luminosity ]
  ask patch -5 -6 [ set pcolor luminosity ]
  ask patch -4 -6 [ set pcolor luminosity ]
  ask patch -3 -6 [ set pcolor luminosity ]
  ask patch -2 -6 [ set pcolor luminosity ]
end

to light-on7
  ask patch -10 -7 [ set pcolor luminosity ]
  ask patch -9 -7 [ set pcolor luminosity ]
  ask patch -8 -7 [ set pcolor luminosity ]
  ask patch -7 -7 [ set pcolor luminosity ]
  ask patch -6 -7 [ set pcolor luminosity ]
  ask patch -5 -7 [ set pcolor luminosity ]
  ask patch -4 -7 [ set pcolor luminosity ]
  ask patch -3 -7 [ set pcolor luminosity ]
  ask patch -2 -7 [ set pcolor luminosity ]
  ask patch -10 -8 [ set pcolor luminosity ]
  ask patch -9 -8 [ set pcolor luminosity ]
  ask patch -8 -8 [ set pcolor luminosity ]
  ask patch -7 -8 [ set pcolor luminosity ]
  ask patch -6 -8 [ set pcolor luminosity ]
  ask patch -5 -8 [ set pcolor luminosity ]
  ask patch -4 -8 [ set pcolor luminosity ]
  ask patch -3 -8 [ set pcolor luminosity ]
  ask patch -2 -8 [ set pcolor luminosity ]
end

to light-off7
  ask patch -10 -7 [ set pcolor blue ]
  ask patch -9 -7 [ set pcolor blue ]
  ask patch -8 -7 [ set pcolor blue ]
  ask patch -7 -7 [ set pcolor blue ]
  ask patch -6 -7 [ set pcolor blue ]
  ask patch -5 -7 [ set pcolor blue ]
  ask patch -4 -7 [ set pcolor blue ]
  ask patch -3 -7 [ set pcolor blue ]
  ask patch -2 -7 [ set pcolor blue ]
  ask patch -10 -8 [ set pcolor blue ]
  ask patch -9 -8 [ set pcolor blue ]
  ask patch -8 -8 [ set pcolor blue ]
  ask patch -7 -8 [ set pcolor blue ]
  ask patch -6 -8 [ set pcolor blue ]
  ask patch -5 -8 [ set pcolor blue ]
  ask patch -4 -8 [ set pcolor blue ]
  ask patch -3 -8 [ set pcolor blue ]
  ask patch -2 -8 [ set pcolor blue ]
end

to light-off6
  ask patch -10 -5 [ set pcolor blue ]
  ask patch -9 -5 [ set pcolor blue ]
  ask patch -8 -5 [ set pcolor blue ]
  ask patch -7 -5 [ set pcolor blue ]
  ask patch -6 -5 [ set pcolor blue ]
  ask patch -5 -5 [ set pcolor blue ]
  ask patch -4 -5 [ set pcolor blue ]
  ask patch -3 -5 [ set pcolor blue ]
  ask patch -2 -5 [ set pcolor blue ]
  ask patch -10 -6 [ set pcolor blue ]
  ask patch -9 -6 [ set pcolor blue ]
  ask patch -8 -6 [ set pcolor blue ]
  ask patch -7 -6 [ set pcolor blue ]
  ask patch -6 -6 [ set pcolor blue ]
  ask patch -5 -6 [ set pcolor blue ]
  ask patch -4 -6 [ set pcolor blue ]
  ask patch -3 -6 [ set pcolor blue ]
  ask patch -2 -6 [ set pcolor blue ]
end

to light-off5
  ask patch -10 -3 [ set pcolor blue ]
  ask patch -9 -3 [ set pcolor blue ]
  ask patch -8 -3 [ set pcolor blue ]
  ask patch -7 -3 [ set pcolor blue ]
  ask patch -6 -3 [ set pcolor blue ]
  ask patch -5 -3 [ set pcolor blue ]
  ask patch -4 -3 [ set pcolor blue ]
  ask patch -3 -3 [ set pcolor blue ]
  ask patch -2 -3 [ set pcolor blue ]
  ask patch -10 -4 [ set pcolor blue ]
  ask patch -9 -4 [ set pcolor blue ]
  ask patch -8 -4 [ set pcolor blue ]
  ask patch -7 -4 [ set pcolor blue ]
  ask patch -6 -4 [ set pcolor blue ]
  ask patch -5 -4 [ set pcolor blue ]
  ask patch -4 -4 [ set pcolor blue ]
  ask patch -3 -4 [ set pcolor blue ]
  ask patch -2 -4 [ set pcolor blue ]
end

to light-off4
  ask patch -10 -1 [ set pcolor blue ]
  ask patch -9 -1 [ set pcolor blue ]
  ask patch -8 -1 [ set pcolor blue ]
  ask patch -7 -1 [ set pcolor blue ]
  ask patch -6 -1 [ set pcolor blue ]
  ask patch -5 -1 [ set pcolor blue ]
  ask patch -4 -1 [ set pcolor blue ]
  ask patch -3 -1 [ set pcolor blue ]
  ask patch -2 -1 [ set pcolor blue ]
  ask patch -10 -2 [ set pcolor blue ]
  ask patch -9 -2 [ set pcolor blue ]
  ask patch -8 -2 [ set pcolor blue ]
  ask patch -7 -2 [ set pcolor blue ]
  ask patch -6 -2 [ set pcolor blue ]
  ask patch -5 -2 [ set pcolor blue ]
  ask patch -4 -2 [ set pcolor blue ]
  ask patch -3 -2 [ set pcolor blue ]
  ask patch -2 -2 [ set pcolor blue ]
end

to light-off3
  ask patch -10 1 [ set pcolor blue ]
  ask patch -9 1 [ set pcolor blue ]
  ask patch -8 1 [ set pcolor blue ]
  ask patch -7 1 [ set pcolor blue ]
  ask patch -6 1 [ set pcolor blue ]
  ask patch -5 1 [ set pcolor blue ]
  ask patch -4 1 [ set pcolor blue ]
  ask patch -3 1 [ set pcolor blue ]
  ask patch -2 1 [ set pcolor blue ]
  ask patch -10 0 [ set pcolor blue ]
  ask patch -9 0 [ set pcolor blue ]
  ask patch -8 0 [ set pcolor blue ]
  ask patch -7 0 [ set pcolor blue ]
  ask patch -6 0 [ set pcolor blue ]
  ask patch -5 0 [ set pcolor blue ]
  ask patch -4 0 [ set pcolor blue ]
  ask patch -3 0 [ set pcolor blue ]
  ask patch -2 0 [ set pcolor blue ]
end

to light-off2
  ask patch -10 3 [ set pcolor blue ]
  ask patch -9 3 [ set pcolor blue ]
  ask patch -8 3 [ set pcolor blue ]
  ask patch -7 3 [ set pcolor blue ]
  ask patch -6 3 [ set pcolor gray ]
  ask patch -5 3 [ set pcolor blue ]
  ask patch -4 3 [ set pcolor blue ]
  ask patch -3 3 [ set pcolor blue ]
  ask patch -2 3 [ set pcolor blue ]
  ask patch -10 2 [ set pcolor blue ]
  ask patch -9 2 [ set pcolor blue ]
  ask patch -8 2 [ set pcolor blue ]
  ask patch -7 2 [ set pcolor blue ]
  ask patch -6 2 [ set pcolor blue ]
  ask patch -5 2 [ set pcolor blue ]
  ask patch -4 2 [ set pcolor blue ]
  ask patch -3 2 [ set pcolor blue ]
  ask patch -2 2 [ set pcolor blue ]
end

to light-off1
  ask patch -10 5 [ set pcolor blue ]
  ask patch -9 5 [ set pcolor blue ]
  ask patch -8 5 [ set pcolor blue ]
  ask patch -7 5 [ set pcolor blue ]
  ask patch -6 5 [ set pcolor blue ]
  ask patch -5 5 [ set pcolor blue ]
  ask patch -4 5 [ set pcolor blue ]
  ask patch -3 5 [ set pcolor blue ]
  ask patch -2 5 [ set pcolor blue ]
  ask patch -10 4 [ set pcolor blue ]
  ask patch -9 4 [ set pcolor blue ]
  ask patch -8 4 [ set pcolor blue ]
  ask patch -7 4 [ set pcolor blue ]
  ask patch -6 4 [ set pcolor blue ]
  ask patch -5 4 [ set pcolor blue ]
  ask patch -4 4 [ set pcolor blue ]
  ask patch -3 4 [ set pcolor blue ]
  ask patch -2 4 [ set pcolor blue ]
end

;; la c'est les murs ... c'est à chier

to setup-patches
  ask patches [ set pcolor blue ]
  ask patch -6 3 [ set pcolor gray ]
  ask patch -11 5 [ set pcolor red ]
  ask patch -11 4 [ set pcolor red ]
  ask patch -11 3 [ set pcolor red ]
  ask patch -11 2 [ set pcolor red ]
  ask patch -11 1 [ set pcolor red ]
  ask patch -11 0 [ set pcolor red ]
  ask patch -11 -1 [ set pcolor red ]
  ask patch -11 -2 [ set pcolor red ]
  ask patch -11 -3 [ set pcolor red ]
  ask patch -11 -4 [ set pcolor red ]
  ask patch -11 -5 [ set pcolor red ]
  ask patch -11 -6 [ set pcolor red ]
  ask patch -11 -7 [ set pcolor red ]
  ask patch -11 -8 [ set pcolor red ]
  ask patch -11 -9 [ set pcolor red ]
  ask patch -10 -9 [ set pcolor red ]
  ask patch -9 -9 [ set pcolor red ]
  ask patch -8 -9 [ set pcolor red ]
  ask patch -7 -9 [ set pcolor red ]
  ask patch -6 -9 [ set pcolor red ]
  ask patch -5 -9 [ set pcolor red ]
  ask patch -4 -9 [ set pcolor red ]
  ask patch -3 -9 [ set pcolor red ]
  ask patch -2 -9 [ set pcolor red ]
  ask patch -1 -9 [ set pcolor red ]
  ask patch -1 -8 [ set pcolor red ]
  ask patch -1 -7 [ set pcolor red ]
  ask patch -1 -6 [ set pcolor red ]
  ask patch -1 -5 [ set pcolor red ]
  ask patch -1 -4 [ set pcolor red ]
  ask patch -1 -3 [ set pcolor red ]
  ask patch -1 -2 [ set pcolor red ]
  ask patch -1 -1 [ set pcolor red ]
  ask patch -1 0 [ set pcolor red ]
  ask patch -1 1 [ set pcolor red ]
  ask patch -1 2 [ set pcolor red ]
  ask patch -1 3 [ set pcolor red ]
  ask patch -1 4 [ set pcolor red ]
  ask patch -1 5 [ set pcolor red ]
  ask patch -1 6 [ set pcolor red ]
  ask patch -2 6 [ set pcolor red ]
  ask patch -3 6 [ set pcolor red ]
  ask patch -4 6 [ set pcolor red ]
  ask patch -5 6 [ set pcolor red ]
  ask patch -6 6 [ set pcolor red ]
  ask patch -7 6 [ set pcolor red ]
  ask patch -8 6 [ set pcolor red ]
  ask patch -9 6 [ set pcolor red ]
  ask patch -10 6 [ set pcolor red ]
  ask patch -11 6 [ set pcolor red ]
end

;; luminosité exterieur

to sunlight47
  ask patch 7 13 [ set pcolor 47 ]
  ask patch 7 14 [ set pcolor 47 ]
  ask patch 6 13 [ set pcolor 47 ]
  ask patch 6 14 [ set pcolor 47 ]
end

to sunlight46
  ask patch 7 13 [ set pcolor 46 ]
  ask patch 7 14 [ set pcolor 46 ]
  ask patch 6 13 [ set pcolor 46 ]
  ask patch 6 14 [ set pcolor 46 ]
end

to sunlight45
  ask patch 7 13 [ set pcolor 45 ]
  ask patch 7 14 [ set pcolor 45 ]
  ask patch 6 13 [ set pcolor 45 ]
  ask patch 6 14 [ set pcolor 45 ]
end

to sunlight44
  ask patch 7 13 [ set pcolor 44 ]
  ask patch 7 14 [ set pcolor 44 ]
  ask patch 6 13 [ set pcolor 44 ]
  ask patch 6 14 [ set pcolor 44 ]
end

to sunlight43
  ask patch 7 13 [ set pcolor 43 ]
  ask patch 7 14 [ set pcolor 43 ]
  ask patch 6 13 [ set pcolor 43 ]
  ask patch 6 14 [ set pcolor 43 ]
end


to sunlight42
  ask patch 7 13 [ set pcolor 42 ]
  ask patch 7 14 [ set pcolor 42 ]
  ask patch 6 13 [ set pcolor 42 ]
  ask patch 6 14 [ set pcolor 42 ]
end