Turrets Multiplayer

breed [ students student ]
breed [ bullets bullet ]

students-own [ user-id bullet-cluster? bullet-cluster-size ]
bullets-own [ forward-velocity ]

globals [ R_login_ID ]

to setup
  clear-all
  hubnet-reset
  reset-ticks
  set R_login_ID 0
end 

to reset
  ask bullets[ die ]
  reset-ticks
  set R_login_ID 0
end 

to go
  every .1
  [
    listen-clients
    update-bullet-phyxs
    tick
  ]
end 

to listen-clients 
  while [ hubnet-message-waiting? ]
  [
   hubnet-fetch-message
   
   ifelse ( hubnet-enter-message? ) 
   [ ;Game Entity Enter Handler
     create-new-student-turtle
   ]
   [
     ifelse (hubnet-exit-message?)
     [ ;Game Entity Exit Handler
       ask students with [ user-id = hubnet-message-source ][ die ]
       if(R_login_ID > 0)
       [
       set R_login_ID R_login_ID - 1
       ]
     ]
     [
       ;Main Game Input Handler
       if(hubnet-message-tag = "Turn-CounterClockwise")
       [
         rotate_turtle_left hubnet-message-source
       ]
       
       if(hubnet-message-tag = "Turn-Clockwise")
       [
         rotate_turtle_right hubnet-message-source
       ]
       
       if(hubnet-message-tag = "Bullet-Clustering?")
       [
         ask students with [ user-id = hubnet-message-source ]
         [
           set bullet-cluster? hubnet-message
         ]
       ]
       
       if(hubnet-message-tag = "Bullet-Clust-Size")
       [
         ask students with [ user-id = hubnet-message-source ]
         [
           set bullet-cluster-size hubnet-message
         ]
       ]
       
       if(hubnet-message-tag = "Shoot")
       [
         ask students with [ user-id = hubnet-message-source ]
         [
           shoot-bullet-start
         ]
       ]
       
     ]
   ]
  ]
end 

to create-new-student-turtle
  
  set R_login_ID R_login_ID + 1
  
  if(R_login_ID = 1)
  [
  create-students 1
  [
    set shape "turretbarrel"
    set color red
    setxy 27 -8
    set heading 360
    set size 5
    set user-id hubnet-message-source
    hubnet-send-watch user-id self
  ]
  ]
  
  if(R_login_ID = 2)
  [
  create-students 1
  [
    set shape "turretbarrel"
    set color sky
    setxy -27 -8
    set heading 180
    set size 5
    set user-id hubnet-message-source
    hubnet-send-watch user-id self
  ]
  ]
end 

to send-data-to [ a-user a-widget a-value ]
  show a-user
  show count students with [ user-id = a-user ]
  ask students with [ user-id = a-user ]
  [
    hubnet-send user-id a-widget a-value
  ]
end 

to rotate_turtle_left [ R_Message_Source ]

  ask students with [ user-id = R_Message_Source ]
  [
    lt 5
  ]
end 

to rotate_turtle_right [ R_Message_Source ]

  ask students with [ user-id = R_Message_Source ]
  [
    rt 5
  ]
end 

to shoot-bullet-start
  
  ifelse ( bullet-cluster? = false )
  [
    hatch 1
    [
      set breed bullets
      set shape "dot"
      set color white
      set size 1
      set forward-velocity 300
    ]   
  ]
  [
    hatch bullet-cluster-size
    [
      set breed bullets
      set shape "dot"
      set color white
      set size 1
      set forward-velocity 300
    ]
  ]
end 

to update-bullet-phyxs
  
  every .01
  [
    ask-concurrent bullets
    [
      fd forward-velocity / 100
    ]
  ]
end