Ralph
New Member
Posts: 5
|
Post by Ralph on Mar 23, 2005 16:36:27 GMT
New to Sprite Candy I have to find out how things are programmed. Maybe someone that is into it already can provide some hints...
What I am doing is:
I have a Function that changes the Highscore Array into a txt$ to pass to HUD_CreateText(..)
Have added "SCORE" to LEFT CENTER and RIGHT at all places I found.
Because I want to have the Numbers right aligned and same charwidth (Rank, (optional) Games Played and Scores) and the Names left aligned after Rank number with normal charwidth.
Spaces if part of Numbers same width as the numbers otherwise normal.
; ------------------------------------------------------------------------
; Globals for Highscorelist
; ------------------------------------------------------------------------
Global MaxHighscore=100
Global HighScore_maxlinewidth,HighscoreCount
Dim HighscoreNames$(100)
Dim HighscoreGames%(100)
Dim HighscoreResults%(100)
Dim Highscore_linewidth(100) ;for TextObj linewidth creation
; ------------------------------------------------------------------------
; PUBLIC FUNCTION: CREATE HIGHSCORELIST TEXTSTRING
; ------------------------------------------------------------------------
Function HUD_HighscoreCreateTxt$(width%, RankChars=4, GamesChars=4, ScoreChars=8)
Local i%, Flag%
For i=MaxHighscore To 1 Step -1
HighscoreCount=i
If HighscoreResults(i)<>0 Then Exit
Next
HighScore_maxlinewidth=width
For i=0 To HighscoreCount
Highscore_linewidth(i)=width%
Next
txt$="Highscores:"+Chr$(13)
For i=1 To HighscoreCount
Flag=0
If HighScoreResults(i)=HighScoreResults(i-1) Then Flag=1
If Flag=0
txt$=txt$+Right$(String$(" ",RankChars)+Str$(i),RankChars)
Else
txt$=txt$+String$(" ",RankChars)
EndIf
If GamesChars=0
txt$=txt$+"~ "+HighScoreNames$(i)+"§"+Chr$(ScoreChars)+Right$(String$(" ",ScoreChars)+Str$(HighScoreResults(i)),ScoreChars)+" "+Chr$(13)
Else
txt$=txt$+"~ "+HighScoreNames$(i)+"§"+Chr$(ScoreChars+GamesChars)+Right$(String$(" ",GamesChars)+Str$(HighScoreGames(i)),GamesChars)+Right$(String$(" ",ScoreChars)+Str$(HighScoreResults(i)),ScoreChars)+" "+Chr$(13)
EndIf
Next
Return txt$
End Function
And this is then worked out in SC_RenderVertices()
Well ... better continue to find what I'm doing wrong ...
Bye
[edit] Maybe I should explain what ~ and § are for.
~ is changed by SC_RenderVertices to a dot ( . ) This way Players can use . in their name for Initials - otherwise you would have to check that after the name input and disallow.
§ passes how many chars are left in the line - so x can be adjusted in SC_RenderVertices ... right margin minus count * NumMaxwidth ...
|
|
Ralph
New Member
Posts: 5
|
Post by Ralph on Mar 23, 2005 16:45:59 GMT
Here's the Function that manages adding of a new Highscore @ Xpressive If you find it useful, you can add this and the above modified or as is As soon as I have the changes in the other functions working I put them in here as well... ; ------------------------------------------------------------------------
; PUBLIC FUNCTION: ADD NEW SCORE TO HIGHSCORE LIST
; ------------------------------------------------------------------------
Function HUD_HighscoreAdd(Name$,Score,BestScore=False)
Local i%, SortAnyway, HR%, HN$, HG%
SortAnyway=0
If BestScore=True
For i=1 To MaxHighscore
If Name$=HighscoreNames$(i)
If Score>HighscoreResults(i) Then HighscoreResults(i)=Score
HighscoreGames(i)=HighscoreGames(i)+1
SortAnyway=1
BestScore=False
Exit
EndIf
If HighscoreNames$(i)="" Then
HighscoreNames$(i)=Name$
HighscoreGames(i)=1
HighscoreResults(i)=Score
SortAnyway=1
BestScore=False
Exit
EndIf
Next
EndIf
If BestScore=False
For i=MaxHighscore To 1 Step -1
HighscoreCount=i
If HighscoreResults(i)<>0 Then Exit
Next
If SortAnyway=0
If HighscoreResults(HighscoreCount)<>0
HighScoreCount=HighScoreCount+1:If HighScoreCount>MaxHighscore Then HighScoreCount=MaxHighscore
EndIf
If Score <= HighscoreResults(HighscoreCount) Then Return
HighscoreResults(HighscoreCount)=Score
HighscoreNames$(HighscoreCount)=Name$
EndIf
If HighscoreCount>1
For i=HighscoreCount To 2 Step -1
If HighscoreResults(i) > HighscoreResults(i-1)
HR%=HighscoreResults(i-1) : HighscoreResults(i-1) = HighscoreResults(i) : HighscoreResults(i) = HR%
HN$=HighscoreNames$(i-1) : HighscoreNames$(i-1) = HighscoreNames$(i) : HighscoreNames$(i) = HN$
HG%=HighscoreGames(i-1) : HighscoreGames(i-1) = HighscoreGames(i) : HighscoreGames(i) = HG%
EndIf
Next
EndIf
EndIf
End FunctionExplanation: BestScore Some Highscorelists are rather boring. first 100 ranks is Fredy X and no others have chances to get into the list BestScore collects only the Best score each Player (Name) has reached. So its a highscore list of each Players Highscores... Edit: Fixed some bugs - seems as if that's the final version now This is the Pgrogram I tested with: Graphics3D 1024, 768, 0, 2
; INCLUDE SPRITE CANDY
Include "../sprite candy.bb"
; ------------------------------------------------------------------------
; MAIN LOOP
; ------------------------------------------------------------------------
MaxHighScore=50
RankingBestScore=True ;Change this for alternative Ranking mode
While Not KeyDown(1)
If KeyHit(57)
Read Name$
If Name$="-" Then Restore Nomine : Read Name$
HUD_HighscoreAdd(Name$,Rand(400,400000),RankingBestScore)
; txt$ = HUD_HighscoreCreateTxt()
Cls
Locate 0,0
For i=1 To HighscoreCount
If RankingBestScore=True
Print Right$(" "+Str$(i),2)+" "+HighscoreNames$(i)+String$(" ",40-Len(HighscoreNames$(i)))+Right$(" "+Str$(HighscoreGames(i)),3)+Right$(" "+Str$(HighscoreResults(i)),8)
Else
Print Right$(" "+Str$(i),2)+" "+HighscoreNames$(i)+String$(" ",40-Len(HighscoreNames$(i)))+Right$(" "+Str$(HighscoreResults(i)),8)
EndIf
Next
EndIf
Wend
End
.Nomine
Data "Ozzy Osbourne"
Data "Anna Netrebko"
Data "Olga Lirk"
Data "[Funny Nick]L33ch3r is drunk"
Data "R.G.R."
Data "Lothar Matthaeus"
Data "Candy Sprite"
Data "Beaker the Seeker"
Data "x-pressive"
Data "Skydat"
Data "Ferdinand Porsche"
Data "Douglas Hall"
Data "-"And now that's working; continuing to get it into Scrolltext of Sprite Candy  |
|
Ralph
New Member
Posts: 5
|
Post by Ralph on Mar 23, 2005 20:24:45 GMT
2005/03/23 21:10
Closely before giving up and do my own thing...
chr$(13) in the above code is wrong anyway. Putting linebreaks | before each following line and using § without any parameter just to advise the engine that from now the rest is to be printed right aligned fails because the code does so unpredictable things weather its wrapped or linebreaked or less lines used as the window should have or just used or what ever...
|
|
|
|
Post by Xpressive on Mar 24, 2005 8:37:38 GMT
Unfortunately, I can't get your code to work (it freezes). Did you have a look at the Blasteroids code included with Sprite Candy? It also shows how to create a highscore list (see 'include - title screen.bb', line 130 and below).
Here's a simplified version of it:
Dim scores%(10) ; HOLD THE SCORES
Dim names$ (10) ; HOLD THE NAMES
For i% = 1 To 10 ; FILL WITH DEFAULT SCORES AND NAMES
scores(i) = 110000 - (i*10000)
names$(i) = "JOHN DOE"
Next
; MAKE THREE COLUMNS: RANK NUMBER, SCORE AND NAME:
y% = (GraphicsHeight() / 2) - 4*25
x% = GraphicsWidth () / 2
For i% = 1 To 10
Tmp% = HUD_CreateText (Layer1, x-150,y, i+".","RIGHT",0, "","")
Tmp% = HUD_CreateText (Layer1, x-50,y, scores(i),"RIGHT",0, "","")
HUD_FX_Wave Tmp, 20,.3, 0,0, 0,(i-1)*250 ; ANIMATE
Tmp% = HUD_CreateText (Layer1, x-25,y, names$(i),"LEFT",0, "","")
HUD_FX_Wave Tmp, 20,.3, 0,0, 0,(i-1)*250 ; ANIMATE
y = y + 25
Next
This will create three columns of text: one with the rank numbers (right aligned), the scores (right aligned) and the names (left aligned). Note, that a seperate text object is used for every entry - it's much easier to handle than writing ALL entries into a single text object.
If you want all your scores to have the same length, simply use this:
Dim scores$(10)
For i% = 1 To 10
While Len( scores$(i) ) < 6
scores$(i) = "0" + scores$(i)
Wend
Next
I will add a code archive to the web site and post a high score example there. Should be done today or tomorrow.
|
|
|
|
Post by Xpressive on Mar 24, 2005 9:42:06 GMT
Have a look at the new code archive section added to the Sprite Candy website. You'll find a simple highscore sample there that may help you.
|
|
