Information, influence and decision model

turtles-own [information]  ;;Information is just the distance of a turtle from other turtles

to setup
  clear-all
  reset-ticks
  create-turtles num-turtle [
    setxy random-xcor random-ycor
    set heading one-of [0 180]
    set information random-float 10
    ifelse heading = 0 [set color red][set color blue]
  ]
end 

to move
  ask turtles [
    forward 0.05
    change-direction
  ]

  tick
end 

to change-direction
  let current-turtle self
  ask current-turtle [
    ifelse count turtles with [distance current-turtle <= [information] of current-turtle and heading = 0] >
    count turtles with [distance current-turtle <= [information] of current-turtle and heading = 180] [
      set heading 0
      set color red]
    [set heading 180
      set color blue]
  ]
end 

to plot-turtles
  plot count turtles with [heading = 0]
end 

to news
  ask n-of (random count turtles) turtles [
    ifelse heading = 0 [
      set heading 180][set heading 0]
  ]
end