Immigration Policy

breed [cops cop]
breed [immigrants immigrant]


;; negative freedom = remaining ticks in jail

immigrants-own [freedom]

to setup
 clear-all

 
 ;; sets the background to yellow

 ask patches [ set pcolor yellow 
 
   if ( pycor = -12 ) and ( pxcor <= -12 ) [ set pcolor black ]
    if ( pycor = -16 ) and ( pxcor <= -12 ) [ set pcolor black ]
     if ( pxcor = -12 ) and ( pycor <= -12 ) [ set pcolor black ]
      if ( pxcor = -16 ) and ( pycor <= -12 ) [ set pcolor black ]
      
 ]
 
 ;; sets the turtles to use the person icon

 set-default-shape cops "person"
 create-cops initial-number-cops
[
 setxy random-xcor random-ycor
 set color blue
 ]

 ;; creates the immigrant variable

 set-default-shape immigrants "person"
 create-immigrants initial-number-immigrants
[
 setxy random-xcor random-ycor
 set color red
 set freedom 1
 ]

ask immigrants [ if xcor <= -12 and ycor <= -12 
  [ set xcor 0
    set ycor 0
  ]
]

ask cops [ if xcor <= -12 and ycor <= -12 
  [ set xcor 0
    set ycor 0
  ]
]
end  

to go
  ask cops [
    move
    catch-immigrants
  ]
  check-freedom
  tick
end 

to move
  ask cops
  [ 
    let x-orig xcor
    let y-orig ycor
    
    rt random 100
    lt random 100
    fd 1
    if pcolor = black [set xcor x-orig
      set ycor y-orig]
    
  ]
  
   ask immigrants
  [ 
    let x-orig xcor
    let y-orig ycor
    
    rt random 100
    lt random 100
    fd 1
    if pcolor = black [set xcor x-orig
      set ycor y-orig]
    
  ]
end 

to check-freedom 
ask immigrants 
[
  if freedom = 0 [ 
    set xcor 100
        set ycor 100]
  if freedom < 1 [ set freedom (freedom + 1)] 

  
]
end   

to catch-immigrants
    let illegal one-of immigrants-here
    if illegal != nobody
    [ ask illegal
      [set freedom (-1 * jail-time)
        set xcor -14
        set ycor -14]
 ;;     [set color green]

 ;;    ask turtles with [color = green]

  ;;   [ pd ]

      
        ]
end