Move Towards Target Example

breed [people person]
people-own [target]

breed [houses house]

to setup
  clear-all
  set-default-shape houses "house"

  ;; CREATE-ORDERED- distributes the houses evenly
  create-ordered-houses number-of-houses
    [ fd max-pxcor ]

  create-people number-of-people [
    setxy random-xcor random-ycor
    set target one-of houses
    face target
  ]
  reset-ticks
end 

to go
  ask people [
    ;; if at target, choose a new random target
    if distance target = 0
      [ set target one-of houses
        face target ]
    ;; move towards target.  once the distance is less than 1,
    ;; use move-to to land exactly on the target.
    ifelse distance target < 1
      [ move-to target ]
      [ fd 1 ]
  ]
  tick
end 


; Public Domain:
; To the extent possible under law, Uri Wilensky has waived all
; copyright and related or neighboring rights to this model.