Online High Score Table

Blitz3D Forums/Blitz3D Beginners Area/Online High Score Table

Yan
 #1
Try something like this...
name$ = Input("Enter name : ")

send$ = "|" + Rand(1000) + "|" + name$ + "|" + Rand(10)
send$ = Replace(send$, " ", "_")
Print send$

tcp = OpenTCPStream("alloidgames.com", 80)

If tcp Then
	WriteLine tcp, "GET /raingamehs.php?info=" + send$ + " HTTP/1.0"
	WriteLine tcp, "HOST: alloidgames.com"
	WriteLine tcp, ""
EndIf

CloseTCPStream tcp
Bear in mind that this is extremely insecure.