HubNet Shell model

breed [ students student ]

students-own [ user-id ]

to setup
  clear-all
  hubnet-reset
  reset-ticks
end 

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

to listen-clients 
  while [ hubnet-message-waiting? ]
  [
   hubnet-fetch-message
   
   ifelse ( hubnet-enter-message? ) 
   [ ;it's an enter message
     create-new-student-turtle
   ]
   [
     ifelse (hubnet-exit-message?)
     [ ;it's an exit message
       ask students with [ user-id = hubnet-message-source ][ die ]
     ]
     [
       ;it's not either an enter or exit message...
       ;just show what it is...
       show ( word "Message from " hubnet-message-source " with tag = " hubnet-message-tag " and contents " hubnet-message )
       output-print ( word "Message from " hubnet-message-source " with tag = " hubnet-message-tag " and contents " hubnet-message )
     ]
   ]
  ]
end 

to create-new-student-turtle
  create-students 1
  [
   setxy random-xcor random-ycor 
   set user-id hubnet-message-source
  ]
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