Highscore board test

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|332\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Concept/Design -> Highscore board test
Wed, 20 Aug 2008, 23:56
Jayenkai	Encryption seems safe enough.. Scoreboard test is further down.. -=-=- ''Load, Next List!''
Thu, 21 Aug 2008, 00:09
JL235	So is this highscore board going to be langauge neutral or is it aimed only at BB?
Thu, 21 Aug 2008, 00:14
Jayenkai	Scramble, send.. If you can scramble it, and you can send it, you can use it.. -=-=- ''Load, Next List!''
Thu, 21 Aug 2008, 02:11
Jayenkai	OK, here's a test of the scoreboard functions. Graphics 800,600,32,2 SetBuffer BackBuffer() ; Setup the table parameters Global HighscoreTable_GameID=1 ; Which Highscore table we're using. Global HighscoreTable_Password$="testgame" ;<--The password defined in it's admin page. ;If the table doesn't exist, nothing's returned. ;If the password's slightly wrong, scrambled gubbins is returned... Probably best not to do that! ;If the password's way off, there's a 99% chance that nothing'll happen! ;) ; The player Global MyName$="Mr Testo" Global MyHighscore=1000 ; The player's User Number ;Give the player a nice new user number Global MyUserNum=GetNewUser() ;<-- note, this number should be >0 ;If there's one saved, use that instead.. If FileType("save.dat") Then quicky=ReadFile("save.dat"):MyUserNum=ReadInt(quicky):CloseFile quicky ;And save it for later use. quicky=WriteFile("save.dat"):WriteInt quicky,MyUserNum:CloseFile quicky ;You should save the usernum in the highscore file, for safekeeping. ;You'll probably also want to use the Encrypt$+Decrypt$ functions to keep your saved highscores a little safer. ; How to submit the highscore Returned_Table$=SubmitHighscores$(MyName$+"\|"+MyUserNum+"\|"+MyHighscore) ; ie, really f'ing easily.. ; Display the table For n=0 To 9 ; Just split the returned data using the \|'s Text 10,(n+1)20,Left(SplitText$(Returned_Table$,"\|",(n2)+1,0),16) ; First is player name Text 200,(n+1)20,SplitText$(Returned_Table$,"\|",(n2)+2,0) ; Second is their score Next Flip WaitKey End Function SplitText$(in$,Split$,e,alsospace=1) ;Splits text... Local out$="" Local start=1 Local nomore=0 Local shift Local size in$=Trim(in$) e=e-1 For shift=1 To e If Instr(in$,Split$,start)+1<=nstart Then nomore=1 If Instr(in$,Split$,start)+1>nstart Then nstart=Instr(in$,Split$,start)+1 If AlsoSpace=1 Then If Instr(in$," ",start)+1<nstart And Instr(in$," ",start)>0 Then nstart=Instr(in$," ",start)+1 start=nstart Next size=(Instr(in$,Split$,start))-start If AlsoSpace=1 Then If (Instr(in$," ",start))-start<size And Instr(in$," ",start)>0 Then size=(Instr(in$," ",start))-start out$=Mid$(in$,start,size) If nomore=1 Then out$="-+-" Return out$ End Function Function GetNewUser() ; This should give you a nice big random number. ; The chances of 2 people getting the same number are ... ... slim.. ish! ; Same usernumbers overwrite each other on the scoreboard. Local out SeedRnd MilliSecs()100 out=MilliSecs out=out+Rand(37171650) Local time$=CurrentTime() time$=Replace(time$,":","") out=out+Int(time$) time$=Left$(CurrentDate(),2)+Right$(CurrentDate(),4) out=out-Int(time$) If out=0 Then out=Rand(37171650) Return Abs(out) End Function Function SubmitHighscores$(txt$) ;Submits a nicely formatted highscore string to the site, and returns a similarly nicely formatted highscore table! ;Wootsocks! Local send$="" Local temp$,out$ ;Open a channel to Socoder.net Local quicky = OpenTCPStream("www.socoder.net",80):If Not quicky Then Return "N/A" send$=encrypt$(txt$,HighscoreTable_Password$) ; Encrypt everything. send$="GET https://www.socoder.net/soscoreme.php?gameid="+HighscoreTable_GameID+"&info="+send$+" HTTP/1.0" ; Send it off. WriteLine(quicky,send$) WriteLine(quicky,Chr$(10)) ; Get the reply Repeat:temp$=ReadLine$(quicky):Until temp$="" ; Apache sends 1 line of "" before it starts the actual return data.. Repeat:out$=temp$:temp$=ReadLine$(quicky):Until temp$="" ; And, of course, there's always a "" at the end.. ; Close the channel CloseTCPStream quicky ;Done ; The returned highscore table is also encrypted, so we decrypt it before returning.. If out$<>"" Then Return decrypt$(out$,HighscoreTable_Password$) End Function Function Encrypt$(txt$,Pass$) ; Takes txt$ - ABC and Pass$ - 123 ; ; Plucks ascii value of one of the letters of Pass, and moves ABC that much.. ; ie, Moves to BCA ; adds the ascii value of the chrs of 123 to the ascii value of BCA ; ; = TVR Local tout$="" Local out$="" Local move Local n Local v ;Wrap output by x chrs. move=(Asc(Mid$(pass$,(Len(txt$) Mod Len(pass$))+1 ,1)) Mod Len(txt$)) For n=1 To Len(txt$) newpos=(((n-1)+move) Mod Len(txt$))+1 tout$=tout$+Mid$(txt$,newpos,1) Next ;Add ascii of pass$ to ascii of txt$ For n=1 To Len(txt$) v=Asc(Mid$(tout$,n,1))-32 v=(v+ (Asc(Mid$(pass$,(n Mod Len(pass$))+1,1 ))-32) ) Mod 95 out$=out$+Chr$(v+32) Next out$=Replace$(out$,"&",Chr$(129)) out$=Replace$(out$,"?",Chr$(130)) out$=Replace$(out$,"+",Chr$(131)) out$=Replace$(out$,"\",Chr$(132)) out$=Replace$(out$,":",Chr$(133)) out$=Replace$(out$,"/",Chr$(134)) out$=Replace$(out$,"#",Chr$(135)) out$=Replace$(out$,"'",Chr$(136)) out$=Replace$(out$,Chr$(34),Chr$(137)) out$=Replace$(out$,Chr$(32),Chr$(138)) out$=Replace$(out$,"<",Chr$(139)) out$=Replace$(out$,">",Chr$(140)) out$=Replace$(out$,"%",Chr$(141)) Return out$ End Function Function Decrypt$(txt$,Pass$) ; Undoes what Encrypt did! txt$=Replace$(txt$,Chr$(129),"&") txt$=Replace$(txt$,Chr$(130),"?") txt$=Replace$(txt$,Chr$(131),"+") txt$=Replace$(txt$,Chr$(132),"\") txt$=Replace$(txt$,Chr$(133),":") txt$=Replace$(txt$,Chr$(134),"/") txt$=Replace$(txt$,Chr$(135),"#") txt$=Replace$(txt$,Chr$(136),"'") txt$=Replace$(txt$,Chr$(137),Chr$(34)) txt$=Replace$(txt$,Chr$(138),Chr$(32)) txt$=Replace$(txt$,Chr$(139),"<") txt$=Replace$(txt$,Chr$(140),">") txt$=Replace$(txt$,Chr$(141),"%") Local tout$="" Local out$="" Local move Local n Local v ;Subtract ascii of pass$ to ascii of txt$ For n=1 To Len(txt$) v=Asc(Mid$(txt$,n,1))-32 v=((v+95) - (Asc(Mid$(pass$,(n Mod Len(pass$))+1,1 ))-32) ) Mod 95 tout$=tout$+Chr$(v+32) Next ;Unwrap output by x chrs. move=(Asc(Mid$(pass$,(Len(txt$) Mod Len(pass$))+1 ,1)) Mod Len(txt$)) For n=1 To Len(txt$) newpos=((((n+Len(txt$))-1)-move) Mod Len(txt$))+1 out$=out$+Mid$(tout$,newpos,1) Next Return out$ End Function --v Give it a whirl. Let me know if something doesn't work/otherwise. I've not yet gotten around to doing an Admin thing, so you can't yet create your own highscore boards.. But, at least the above is working. Once the admin page is up, I should be able to get further features up and running, like multiple-score tables, >10 highscores, etc.. woot! * As in, you could not only have a simple highscore, but also keep the level the player got up to, the time their game lasted, and things like that.. That way, not only will the table look a little more detailed, but you can hopefully tell if anyone's cheating, too! -=-=- ''Load, Next List!''
Fri, 22 Aug 2008, 00:43
shroom_monk	Worked for me when I submitted a score of 9999, but when I modified it to submit a string (just putting the string into the line that sticks it all together), it reads that I have a score of 0, but that score is at the bottom of the list a) replacing my highscore, and b) at the bottom of the list with 0, but if it's 0 then it shouldn't be there at all (I think). -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Fri, 22 Aug 2008, 00:55
Jayenkai	Yeah, it's currently a bit dodgy when it gets unexpected, unformatted data.. That's on the todo list, along with that admin page. (Which is slowly but surely getting there.) What string did you put in? Oh, and it's at the bottom because it's a lower score! When you submitted a score with the same usernumber, it deleted your last score (9999), leaving a blank slot at the bottom of the scoreboard. This looks a bit weird, but ingame it should only ever occur when a player inexplicably gets a newer lower highscore than the last!! If that happens in your game, your code is wrong!! Can't blame me for that! -=-=- ''Load, Next List!''
Fri, 22 Aug 2008, 01:26
shroom_monk	"thecakeisalie"
Fri, 22 Aug 2008, 01:30
Jayenkai	ok I'll have a play with that, see what's happening to it. .. It's probably depressed. -=-=- ''Load, Next List!''
Fri, 22 Aug 2008, 07:26
Jayenkai	OK, a couple of little test games. 1. Spider, from WW 150. 2. Space Loops, from WW 164. Both should (should!) work as expected. If there are any issues, let me know what they are, and how you made 'em! Other than that, there's a Scoreboards link over on the bottom of the 3rd menu clump thing.. You may begin!!! (Dum-dum-durrr!) -=-=- ''Load, Next List!''