Free Online High Scores Service

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

deps

Here is a quick example how to read scores, if anyone is wondering:

Print "Fetching highscores..."

Local scoreserver:tstream = ReadStream("http::scores.paulleduc.com/members/your_member_name/your_table.php?password=your_password")
If Not scoreserver Then
	Print "Unable to connect to scoreserver!"
	End
EndIf

Local buffer:String

While Not Eof( scoreserver )
	buffer :+ ReadLine( scoreserver )
Wend

CloseStream( scoreserver )


Print "Parsing..."

Local score_list:tlist = CreateList()

While Len(buffer) > 0
	Local i = Instr( buffer+"<br>", "<br>" )
	
	If i Then
		score_list.addlast( buffer[..i-1] )
		buffer = buffer[i+3..]
	EndIf
Wend

Print "The scores:"

For Local score:String = EachIn score_list
	Print score
Next

To submit scores just add the &name=myname&score=myscore&country=mycountry stuff at the end of the stream address.

Edit:
Code example a bit more advanced now.

And another suggestion. A setting that limits the ammount of scores returned when fetching the list. Entries that isn't included in the list should probably still be in the table on the server. Is there a limit for how many is alowed?