Intelligent Footballists

breed [players player]
breed [balls ball]
players-own [rival spaces movable?]
globals [ target speed]

to setup
  ca
  resize-world -40 40 -10 10
  ask patches [ set pcolor green ]
  create-balls 1 [ set color white set shape "circle"]
  create-players 2 [ set color red set rival one-of other players set shape "person" set size 3]
  ask player 1 [ setxy 30 0      set movable? false       set spaces patches with [pxcor = 30] ]
  ask player 2 [ setxy -30 0     set movable? false        set spaces patches with [pxcor = -30] ]
  ask ball 0 [ move-to [patch-here] of one-of players ]
  set speed shoot-speed
  set target "nobody"
  reset-ticks
end 

to go



  ask players [

             if any? balls-on patch-here [

                                          set-target
                                          ask balls [face target ]
                                          set movable? false
                                          ask rival [ set movable? true face target]

                                                                                    ]

                                                                                      ]
  ask players with [ movable? ]  [ if patch-here != target [ fd 1]]


  ask balls [ if patch-here != target [fd 1]        ]

  tick
end 

to set-target
  set target one-of [spaces] of rival
end