Ambika's NetLogo Project

turtles-own [ message? ]

to setup
  ; this will set up the simulation
  ; clear the space
  clear-all
  ; create the number of turtles the user asks for
  create-turtles population
  [
    set message? false
    setxy random-xcor random-ycor
  ]
  ; reset the time to zero
  reset-ticks
  ; ask all of the turtles to be size 3 and white
  ; ask all of the turtles to be in a random position
  ; set the turtle shape to the animal that the user asks for
  ask turtles [
    set shape Animal
    set size 3
    set color white
  ]
  ; ask one turtle to change color to red and size to 4
  ; set its message to be true
  ask n-of 1 turtles [
    set color red
    set size 4
    set message? true
  ]
end 

to go
  ask turtles [
    right random ( 90 * one-of [1 -1] ) forward 3
    if any? other turtles-here with [ message? ] [
      set color red
      set size 4
      set message? true
    ]
  ]
  if count turtles with [ message? ] = population [ stop ]
  tick
end