Main sections
NETCREATEPLAYER
id% = NETCREATEPLAYER(name$)
Creates a player that gets announced to the network server. The network services use "players" for communicating with the server and with other clients.
In the case of an error, 0 is returned.
The NET... commands give network functionality to GLBasic programs using the TCP protocol. TCP has the advantage over other protocols that sending and receiving of network messages is ensured.
NOTE : This command requires that you have purchased either GLBasic Premium or the GLBasic NET add-on.
FUNCTION ReadHighScores: names$[], scores[], username$, thescore
LOCAL ct, i, str$, proxy$, port
str$ = "highscores/listgame.php"
str$ = str$ + "?game=mygame"
str$ = str$ + "&name="+username$
str$ = str$ + "&score="+thescore
str$ = str$ + "&secret=mycode"
PRINT ".: WebGet scores :.", 0, 0
SHOWSCREEN
INIOPEN "config.ini"
proxy$ = INIGET$("server", "proxy")
port = INIGET$("server", "port")
KILLFILE "scores.ini"
IF port=0 OR proxy$="NO_DATA"
NETWEBGET("www.glbasic.com", "/"+str$, 80, "scores.ini")
ELSE
NETWEBGET(proxy$, "http://www.glbasic.com/" + str$, port, "scores.ini")
ENDIF
INIOPEN "scores.ini"
ct = INIGET$("scores", "count")
DIM names$[ct]
DIM scores[ct]
FOR i=1 TO ct
names$[i-1] = INIGET$("scores", "n"+i)
scores[i-1] = INIGET$("scores", "s"+i)
NEXT
ENDFUNCTION