Pong HubNet

breed [balls ball]
breed [paddles paddle]
breed [top-clients top-client]
breed [bottom-clients bottom-client]

globals [ game-over? playing? computer-points user-points ]

paddles-own [ user? ]
top-clients-own [ user-id ]
bottom-clients-own [ user-id ]

to reset-score
  ca
  set-default-shape balls "circle"
  set-default-shape paddles "paddle"
  set computer-points 0
  set user-points 0
  create-paddles 1 [
    setxy 0 min-pycor
    set user? true
    set size 5
    set color red
  ]
  create-paddles 1 [
    setxy 0 max-pycor
    set user? false
    set size 5
    set color red
  ]
end 

to setup
  hubnet-set-client-interface "COMPUTER" []
  hubnet-reset
  ask balls [ die ]
  set game-over? false
  set playing? false
  create-balls 1 [
    setxy 0 0
    set heading (-45 + random 90) + (random 2 * 180)
    set color green
  ]
end 

to play
  set playing? true
  ifelse not game-over? [
    move-ball
    move-computer-paddle
  ]
  [
   setup
  ]
end 

to move-computer-paddle

  let target-ball one-of balls
  let my-heading 360
  let goal one-of patches with [ pycor = max-pycor ]

  ask patches with [ pycor = max-pycor ] [
    ask target-ball [
      if towards myself < my-heading [
        set my-heading towards myself
        set goal myself
      ]
    ]
  ]

  ask paddles with [ user? = false ] [
    if ( xcor < [pxcor] of goal ) [
      move-right computer-speed / 100
    ]
    if ( xcor > [pxcor] of goal ) [
      move-left computer-speed / 100
    ]
  ]
end 

to move-ball
  ask balls [
    let next-patch patch-ahead 1
    let paddle-patches nobody
    ifelse next-patch != nobody [

      ifelse ( paddle-ahead? = true ) [
        bounce
      ]
      [
        fd ball-speed / 100
      ]
    ]
    [
      if ( pycor = min-pycor ) [
        lose-game
      ]
      if ( pycor = max-pycor ) [
        win-game
      ]
      if ( pxcor = max-pxcor or pxcor = min-pxcor ) [
        bounce
      ]
    ]
  ]
end 

to lose-game
  set game-over? true
  set computer-points computer-points + 1
end 

to win-game
  set game-over? true
  set user-points user-points + 1
end 

;; this procedure checks the coordinates and makes the turtles
;; reflect according to the law that the angle of reflection is
;; equal to the angle of incidence

to bounce  ;; turtle procedure
  ; check: hitting left or right wall?
  if ( patch-ahead 1 = nobody  )
    ; if so, reflect heading around x axis
    [ set heading (- heading) ]
  ; check: hitting top or bottom wall?
  if ( paddle-ahead? )
    ; if so, reflect heading around y axis
    [ set heading (180 - heading) ]
end 

to-report paddle-ahead?
  let paddle-patches patches in-radius ([size] of one-of paddles / 2)
  ifelse ( heading > 270  or heading < 90 ) [
    set paddle-patches paddle-patches with [ pycor = [pycor] of myself + 1 ]
  ]
  [
    set paddle-patches paddle-patches with [ pycor = [pycor] of myself - 1 ]
  ]
  ifelse ( any? paddles-on paddle-patches ) [
    report true
  ]
  [
    report false
  ]
end 

to move-left [ speed ]
  if ( game-over? = false and playing? = true ) [
    set heading -90
    fd speed
  ]
end 

to move-right [ speed ]
  if ( game-over? = false and playing? = true ) [
    set heading 90
    fd 1
  ]
end