ABM showing behavior when people align with others

to setup
  setworld
  maketurtles
end 

to setworld
  ca
  ask patches
  [
    set pcolor white
  ]
end 

to maketurtles
  create-turtles num
  [
    setxy random-pxcor random-pycor
    set shape "bug"
  ]
end 

to go
  ask turtles
  [
    rt random 30
    lt random 30
    fd speed
    let temp turtles in-radius 3
    if any? temp
    [
      let r random 100
      if r < align
      [
        ifelse not heading-or-facing?
        [
          face one-of temp
        ]
        [
          let h [heading] of one-of temp
          set heading h
        ]
      ]
    ]
  ]
  ;ask turtles in-radius 3
  ;[
   ; face self
  ;]
end