How do I make a top 10 high score table using arrays?

Author

Message

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 24th May 2010 07:48

Link

I tried to do what was talked about in this tutorial: http://forum.thegamecreators.com/?m=forum_view&t=96084&b=7.

But every time I try to enter the table, it will end the program.

Where do I place the commands to create arrays and how do I make the table work so one of the ten high scores will be replaced with a larger value?

The way I had it set up for a test allowed you to press the 1 key to increase the score. I wanted to test a #1 high score that would beat all of the presets in the table.

Here's the code (64 lines; may be confusing):

Score=0
One:
DO
I$=INKEY$()
IF I$="1" then SCORE=SCORE+2000
PRINT SCORE
 IF UPKEY()=1 THEN GOSUB Two
LOOP
Two:
CLS
do
GOSUB Table
LOOP
Table:
Do
DIM HighScore(9)
 DIM Name$(9)
 HighScore(0)=1990: Name$(0)="Bob1"
 HighScore(1)=1991: Name$(1)="Bob2"
 HighScore(2)=1992: Name$(2)="Bob3"
 HighScore(3)=1993: Name$(3)="Bob4"
 HighScore(4)=1994: Name$(4)="Bob5"
 HighScore(5)=1995: Name$(5)="Bob6"
 HighScore(6)=1996: Name$(6)="Bob7"
 HighScore(7)=1997: Name$(7)="Bob8"
 HighScore(8)=1998: Name$(8)="Bob9"
 HighScore(9)=1999: Name$(9)="BobX"
 Open to Write 1,"test.txt"
 For N=1 To 10
   Write String 1,Str$(HighScore(N))
 Next N
 For N=1 To 10
   Write String 1,Name$(N)
 Next N
 Close File 1
 GOSUB Three
 LOOP
Three:
DO
Open to read 1,"test.txt"
For N=1 To 10
  Read String 1,T$: HighScore(N)=Val(T$)
Next N
For N=1 To 10
  Read String 1,T$: Name$(N)=T$
Next N
INPUT "Enter your name: ",NewName$
 IF Score>HighScore(0)
  HighScore(0)=Score
  NewName$=Name$(0)
 ENDIF
SET CURSOR 100,100: PRINT Name$(0): SET CURSOR 500,100: PRINT HighScore(0)
SET CURSOR 100,120: PRINT Name$(1): SET CURSOR 500,120: PRINT HighScore(1)
SET CURSOR 100,140: PRINT Name$(2): SET CURSOR 500,140: PRINT HighScore(2)
SET CURSOR 100,160: PRINT Name$(3): SET CURSOR 500,160: PRINT HighScore(3)
SET CURSOR 100,180: PRINT Name$(4): SET CURSOR 500,180: PRINT HighScore(4)
SET CURSOR 100,200: PRINT Name$(5): SET CURSOR 500,200: PRINT HighScore(5)
SET CURSOR 100,220: PRINT Name$(6): SET CURSOR 500,220: PRINT HighScore(6)
SET CURSOR 100,240: PRINT Name$(7): SET CURSOR 500,240: PRINT HighScore(7)
SET CURSOR 100,260: PRINT Name$(8): SET CURSOR 500,260: PRINT HighScore(8)
SET CURSOR 100,280: PRINT Name$(9): SET CURSOR 500,280: PRINT HighScore(9)
wait key
GOSUB One
LOOP

+ Code Snippet

Score=0
One:
DO
I$=INKEY$()
IF I$="1" then SCORE=SCORE+2000
PRINT SCORE
 IF UPKEY()=1 THEN GOSUB Two
LOOP
Two:
CLS
do
GOSUB Table
LOOP
Table:
Do
DIM HighScore(9)
 DIM Name$(9)
 HighScore(0)=1990: Name$(0)="Bob1"
 HighScore(1)=1991: Name$(1)="Bob2"
 HighScore(2)=1992: Name$(2)="Bob3"
 HighScore(3)=1993: Name$(3)="Bob4"
 HighScore(4)=1994: Name$(4)="Bob5"
 HighScore(5)=1995: Name$(5)="Bob6"
 HighScore(6)=1996: Name$(6)="Bob7"
 HighScore(7)=1997: Name$(7)="Bob8"
 HighScore(8)=1998: Name$(8)="Bob9"
 HighScore(9)=1999: Name$(9)="BobX"
 Open to Write 1,"test.txt"
 For N=1 To 10
   Write String 1,Str$(HighScore(N))
 Next N
 For N=1 To 10
   Write String 1,Name$(N)
 Next N
 Close File 1
 GOSUB Three
 LOOP
Three:
DO
Open to read 1,"test.txt"
For N=1 To 10
  Read String 1,T$: HighScore(N)=Val(T$)
Next N
For N=1 To 10
  Read String 1,T$: Name$(N)=T$
Next N
INPUT "Enter your name: ",NewName$
 IF Score>HighScore(0)
  HighScore(0)=Score
  NewName$=Name$(0)
 ENDIF
SET CURSOR 100,100: PRINT Name$(0): SET CURSOR 500,100: PRINT HighScore(0)
SET CURSOR 100,120: PRINT Name$(1): SET CURSOR 500,120: PRINT HighScore(1)
SET CURSOR 100,140: PRINT Name$(2): SET CURSOR 500,140: PRINT HighScore(2)
SET CURSOR 100,160: PRINT Name$(3): SET CURSOR 500,160: PRINT HighScore(3)
SET CURSOR 100,180: PRINT Name$(4): SET CURSOR 500,180: PRINT HighScore(4)
SET CURSOR 100,200: PRINT Name$(5): SET CURSOR 500,200: PRINT HighScore(5)
SET CURSOR 100,220: PRINT Name$(6): SET CURSOR 500,220: PRINT HighScore(6)
SET CURSOR 100,240: PRINT Name$(7): SET CURSOR 500,240: PRINT HighScore(7)
SET CURSOR 100,260: PRINT Name$(8): SET CURSOR 500,260: PRINT HighScore(8)
SET CURSOR 100,280: PRINT Name$(9): SET CURSOR 500,280: PRINT HighScore(9)
wait key
GOSUB One
LOOP

If anyone could help me on this, it would be greatly appreciated! Thanks!

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 24th May 2010 19:31

Link

I started to just write a couple of subroutines to give you what you needed, but I ended up writing a lot more than I planned.

Anyway, you can increase the score by 2000 by pressing '1'. The current score is shown at the top of the screen. If you want to simulate a 'game over', just press 'A' to update the high scores. Press 'S' to save the file. On startup, it looks for the High Score file and loads it. If it doesn't see it, it loads the default top ten into the arrays.

Score = 0
DIM HighScore(9)
DIM Name$(9)
global ScrWid : ScrWid = screen width() : global ScrHgt : ScrHgt = screen height()
if file exist("test.txt") = 0
  gosub SetupHighScores
else
  gosub LoadHighScores
endif
KeyDelay = timer() + 100
repeat
  gosub ShowHighScores
  gosub GetInput
  ink rgb(255,255,255),0 : ` white
  center text 100,10,"SCORE: " + str$(score)
  text 100,ScrHgt - 120,"Press '1' to increase score by 2000."
  text 100,ScrHgt - 100,"Press 'S' to save the HighScores."
  text 100,ScrHgt - 80,"Press 'A' to add the HighScore to the table."
  text 100,ScrHgt - 60,"Press [Spacebar] to quit."
until spacekey() = 1
end

GetInput:
` gets a keypress from the user
  if scancode() > 0 and timer() > KeyDelay : ` slow it down so it doesn't update too fast
    I$ = upper$(INKEY$()) : ` use Upper$() to make sure the input is always uppercase
    select i$
      case "1"
        inc SCORE,2000
      endcase
      case "S"
        cls
        ink rgb(0,0,255),0
        center text ScrWid * .5,ScrHgt * .5,"Saving file....."
        sync
        gosub SaveHighScores
        wait 1200
        cls
        center text ScrWid * .5,ScrHgt * .5,"High Score table saved."
        sync
        wait 1500
      endcase
      case "A"
        gosub OverWriteHighScores
     endcase
    endselect
    KeyDelay = timer() + 100 : ` update the key delay
  endif
return

ShowHighScores:
cls : ` clear the screen
ink rgb(255,255,0),0 : ` yellow
for s = 0 to 9 : ` print out the different names and high scores
  text 100,(s * 20) + 50,Name$(s)
  text 200,(s * 20) + 50,str$(HighScore(s))
next s
return

SaveHighScores:
` check to see if there is an existing file - if so, delete it
  if file exist("test.txt") = 1 then delete file "test.txt"
  Open to Write 1,"test.txt"
  For N = 0 To 9
    Write word 1,HighScore(N)
    Write String 1,Name$(N)
  Next N
  Close File 1
return

LoadHighScores:
if file exist("test.txt") = 1
  open to read 1,"test.txt"
  for n = 0 to 9
    read word 1,HighScore(n)
    read string 1,Name$(n)
  next n
  close file 1
endif
return

OverwriteHighScores:
  cls
  ink rgb(255,255,255),0
  center text ScrWid * .5,ScrHgt * .5,"Updating high score table."
  sync
  wait 1200
  pos = -1
  for hs = 9 to 0 step -1
    if score > HighScore(hs) then pos = hs
  next hs
  if pos >= 0 and pos < 9
  ` move the HighScores that are lower than score down by one
    for hs = 8 to pos step -1
      Name$(hs + 1) = Name$(hs)
      HighScore(hs + 1) = HighScore(hs)
    next hs
  endif
  if pos = 9 then HighScore(9) = score
  if pos >= 0
    text 10,ScrHgt - 200,"Congratulations! Your score is one of the top ten!" : sync
    set cursor 10,ScrHgt - 180
    INPUT "Enter your name: ",Name$(pos)
    HighScore(pos) = score
  endif
return

SetupHighScores:
` gets here if there is no saved file and puts values into the arrays
  restore HighScoreData
  for s = 0 to 9
    read HighScore(s),Name$(s)
  next s
return

HighScoreData:
` score, name$
data 1990,"Bob1",1991,"Bob2",1992,"Bob3",1993,"Bob4",1994,"Bob5"
data 1995,"Bob6",1996,"Bob7",1997,"Bob8",1998,"Bob9",1999,"Bobx"

+ Code Snippet


Score = 0
DIM HighScore(9)
DIM Name$(9)
global ScrWid : ScrWid = screen width() : global ScrHgt : ScrHgt = screen height()
if file exist("test.txt") = 0
  gosub SetupHighScores
else
  gosub LoadHighScores
endif
KeyDelay = timer() + 100
repeat
  gosub ShowHighScores
  gosub GetInput
  ink rgb(255,255,255),0 : ` white
  center text 100,10,"SCORE: " + str$(score)
  text 100,ScrHgt - 120,"Press '1' to increase score by 2000."
  text 100,ScrHgt - 100,"Press 'S' to save the HighScores."
  text 100,ScrHgt - 80,"Press 'A' to add the HighScore to the table."
  text 100,ScrHgt - 60,"Press [Spacebar] to quit."
until spacekey() = 1
end



GetInput:
` gets a keypress from the user
  if scancode() > 0 and timer() > KeyDelay : ` slow it down so it doesn't update too fast
    I$ = upper$(INKEY$()) : ` use Upper$() to make sure the input is always uppercase
    select i$
      case "1"
        inc SCORE,2000
      endcase
      case "S"
        cls
        ink rgb(0,0,255),0
        center text ScrWid * .5,ScrHgt * .5,"Saving file....."
        sync
        gosub SaveHighScores
        wait 1200
        cls
        center text ScrWid * .5,ScrHgt * .5,"High Score table saved."
        sync
        wait 1500
      endcase
      case "A"
        gosub OverWriteHighScores
     endcase
    endselect
    KeyDelay = timer() + 100 : ` update the key delay
  endif
return


ShowHighScores:
cls : ` clear the screen
ink rgb(255,255,0),0 : ` yellow
for s = 0 to 9 : ` print out the different names and high scores
  text 100,(s * 20) + 50,Name$(s)
  text 200,(s * 20) + 50,str$(HighScore(s))
next s
return


SaveHighScores:
` check to see if there is an existing file - if so, delete it
  if file exist("test.txt") = 1 then delete file "test.txt"
  Open to Write 1,"test.txt"
  For N = 0 To 9
    Write word 1,HighScore(N)
    Write String 1,Name$(N)
  Next N
  Close File 1
return

LoadHighScores:
if file exist("test.txt") = 1
  open to read 1,"test.txt"
  for n = 0 to 9
    read word 1,HighScore(n)
    read string 1,Name$(n)
  next n
  close file 1
endif
return


OverwriteHighScores:
  cls
  ink rgb(255,255,255),0
  center text ScrWid * .5,ScrHgt * .5,"Updating high score table."
  sync
  wait 1200
  pos = -1
  for hs = 9 to 0 step -1
    if score > HighScore(hs) then pos = hs
  next hs
  if pos >= 0 and pos < 9
  ` move the HighScores that are lower than score down by one
    for hs = 8 to pos step -1
      Name$(hs + 1) = Name$(hs)
      HighScore(hs + 1) = HighScore(hs)
    next hs
  endif
  if pos = 9 then HighScore(9) = score
  if pos >= 0
    text 10,ScrHgt - 200,"Congratulations! Your score is one of the top ten!" : sync
    set cursor 10,ScrHgt - 180
    INPUT "Enter your name: ",Name$(pos)
    HighScore(pos) = score
  endif
return



SetupHighScores:
` gets here if there is no saved file and puts values into the arrays
  restore HighScoreData
  for s = 0 to 9
    read HighScore(s),Name$(s)
  next s
return

HighScoreData:
` score, name$
data 1990,"Bob1",1991,"Bob2",1992,"Bob3",1993,"Bob4",1994,"Bob5"
data 1995,"Bob6",1996,"Bob7",1997,"Bob8",1998,"Bob9",1999,"Bobx"

I tried to put in comments as needed. I hope this is helpful.

LB

Back to top

Profile PM Email

Lucas Tiridath

AGK Developer

16

Years of Service

User Offline

Joined: 28th Sep 2008

Location: Kings Langley, UK

Posted: 24th May 2010 19:33 Edited at: 24th May 2010 19:36

Link

Hi. Right I've had a look at your code and from what your trying to achieve, there seem to be two errors in your code. Firstly, your program closes because you are trying to access cell 10 in the HighScore array despite having declared the elements as 0-9. Thus by changing your for loops to:

+ Code Snippet

for N = 0 to 9

the first issue is solved.

Secondly, there is the issue that having got the input of the name for the new highscore, you have got the assignment the wrong way around so you don't get the new name but by changing line 50 to:

+ Code Snippet

Name$(0)=NewName$

The name will appear at the top of your list.

Now obviously, there are a number of other problems such as the fact that having got a new highscore, you don't then move everything else down so you actually lose the highest score off the file. However as you are creating this as an example of file handling, I'm guessing that isn't a problem.

The good news is, the errors you got were nothing to do with the file handling. That worked just fine. I've given you your complete code listing with the two corrections I mentioned below:

Score=0
One:
DO
   I$=INKEY$()
   IF I$="1" then SCORE=SCORE+2000
   PRINT SCORE
   IF UPKEY()=1 THEN GOSUB Two
LOOP
Two:
CLS
do
   GOSUB Table
LOOP
Table:
Do
   DIM HighScore(9)
   DIM Name$(9)
   HighScore(0)=1990: Name$(0)="Bob1"
   HighScore(1)=1991: Name$(1)="Bob2"
   HighScore(2)=1992: Name$(2)="Bob3"
   HighScore(3)=1993: Name$(3)="Bob4"
   HighScore(4)=1994: Name$(4)="Bob5"
   HighScore(5)=1995: Name$(5)="Bob6"
   HighScore(6)=1996: Name$(6)="Bob7"
   HighScore(7)=1997: Name$(7)="Bob8"
   HighScore(8)=1998: Name$(8)="Bob9"
   HighScore(9)=1999: Name$(9)="BobX"
   Open to Write 1,"test.txt"
   For N=0 To 9
      Write String 1,Str$(HighScore(N))
   Next N
   For N=0 To 9
      Write String 1,Name$(N)
   Next N
   Close File 1
   GOSUB Three
LOOP
Three:
DO
   Open to read 1,"test.txt"
   For N=0 To 9
     Read String 1,T$: HighScore(N)=Val(T$)
   Next N
   For N=0 To 0
     Read String 1,T$: Name$(N)=T$
   Next N
   INPUT "Enter your name: ",NewName$
   IF Score>HighScore(0)
      HighScore(0)=Score
      Name$(0)=NewName$
   ENDIF
   SET CURSOR 100,100: PRINT Name$(0): SET CURSOR 500,100: PRINT HighScore(0)
   SET CURSOR 100,120: PRINT Name$(1): SET CURSOR 500,120: PRINT HighScore(1)
   SET CURSOR 100,140: PRINT Name$(2): SET CURSOR 500,140: PRINT HighScore(2)
   SET CURSOR 100,160: PRINT Name$(3): SET CURSOR 500,160: PRINT HighScore(3)
   SET CURSOR 100,180: PRINT Name$(4): SET CURSOR 500,180: PRINT HighScore(4)
   SET CURSOR 100,200: PRINT Name$(5): SET CURSOR 500,200: PRINT HighScore(5)
   SET CURSOR 100,220: PRINT Name$(6): SET CURSOR 500,220: PRINT HighScore(6)
   SET CURSOR 100,240: PRINT Name$(7): SET CURSOR 500,240: PRINT HighScore(7)
   SET CURSOR 100,260: PRINT Name$(8): SET CURSOR 500,260: PRINT HighScore(8)
   SET CURSOR 100,280: PRINT Name$(9): SET CURSOR 500,280: PRINT HighScore(9)
   wait key
   GOSUB One
LOOP

+ Code Snippet

Score=0
One:
DO
   I$=INKEY$()
   IF I$="1" then SCORE=SCORE+2000
   PRINT SCORE
   IF UPKEY()=1 THEN GOSUB Two
LOOP
Two:
CLS
do
   GOSUB Table
LOOP
Table:
Do
   DIM HighScore(9)
   DIM Name$(9)
   HighScore(0)=1990: Name$(0)="Bob1"
   HighScore(1)=1991: Name$(1)="Bob2"
   HighScore(2)=1992: Name$(2)="Bob3"
   HighScore(3)=1993: Name$(3)="Bob4"
   HighScore(4)=1994: Name$(4)="Bob5"
   HighScore(5)=1995: Name$(5)="Bob6"
   HighScore(6)=1996: Name$(6)="Bob7"
   HighScore(7)=1997: Name$(7)="Bob8"
   HighScore(8)=1998: Name$(8)="Bob9"
   HighScore(9)=1999: Name$(9)="BobX"
   Open to Write 1,"test.txt"
   For N=0 To 9
      Write String 1,Str$(HighScore(N))
   Next N
   For N=0 To 9
      Write String 1,Name$(N)
   Next N
   Close File 1
   GOSUB Three
LOOP
Three:
DO
   Open to read 1,"test.txt"
   For N=0 To 9
     Read String 1,T$: HighScore(N)=Val(T$)
   Next N
   For N=0 To 0
     Read String 1,T$: Name$(N)=T$
   Next N
   INPUT "Enter your name: ",NewName$
   IF Score>HighScore(0)
      HighScore(0)=Score
      Name$(0)=NewName$
   ENDIF
   SET CURSOR 100,100: PRINT Name$(0): SET CURSOR 500,100: PRINT HighScore(0)
   SET CURSOR 100,120: PRINT Name$(1): SET CURSOR 500,120: PRINT HighScore(1)
   SET CURSOR 100,140: PRINT Name$(2): SET CURSOR 500,140: PRINT HighScore(2)
   SET CURSOR 100,160: PRINT Name$(3): SET CURSOR 500,160: PRINT HighScore(3)
   SET CURSOR 100,180: PRINT Name$(4): SET CURSOR 500,180: PRINT HighScore(4)
   SET CURSOR 100,200: PRINT Name$(5): SET CURSOR 500,200: PRINT HighScore(5)
   SET CURSOR 100,220: PRINT Name$(6): SET CURSOR 500,220: PRINT HighScore(6)
   SET CURSOR 100,240: PRINT Name$(7): SET CURSOR 500,240: PRINT HighScore(7)
   SET CURSOR 100,260: PRINT Name$(8): SET CURSOR 500,260: PRINT HighScore(8)
   SET CURSOR 100,280: PRINT Name$(9): SET CURSOR 500,280: PRINT HighScore(9)
   wait key
   GOSUB One
LOOP

Perhaps try to use less gosubs in future... They are nearly as bad as gotos...

Anyhow I hope this is helpful.

EDIT: You beat me to it LBFN. Anyhow your example is much nicer than mine so go with that.

Back to top

Profile PM Email Website

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 24th May 2010 19:34

Link

http://forum.thegamecreators.com/?m=forum_view&t=169546&b=6
You can check this out.You need to download and install 2 plugins but it`s worth.

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 24th May 2010 23:57 Edited at: 25th May 2010 04:27

Link

Thanks for the code, LBFN! Lucas, I appreciate your corrections and you posting my revised code.

Luskos, I looked at the article and I'll try out that method. Thanks.

EDIT: Actually, LSBN, I just tried out the code and it won't open on my computer. It will appear for a second and then end program. Any suggestions? I tried removing the SYNCs and Line 4, but that didn't work either. Any idea how to fix it?

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 25th May 2010 06:35

Link

Quote: "EDIT: Actually, LSBN, I just tried out the code and it won't open on my computer. It will appear for a second and then end program. Any suggestions? I tried removing the SYNCs and Line 4, but that didn't work either. Any idea how to fix it? "

The sync's shouldn't have anything to do with it appearing and then going away quickly (I guess I am too used to programming using sync manually). You will need line 4, it sets the values for the ScrWid and ScrHgt variables, which are used in the program.

The code is designed to exit if the SPACEBAR is pressed. If your spacebar is sticking, that could be the problem. Also, are you sure you copied all of the code? Sometimes you can miss some of it.

If those aren't it, you could try inserting a delay in the code to show that it has reached a certain point. Like this:

+ Code Snippet

repeat
  text 100,100,"okay after Loading/Setting up the high scores."
  text 100,120,"click the left mouse button to continue."
until mouseclick() = 1

You insert this code right after the loading / setting up of the high score table and run the program. If that's okay, then you delete it and move on to the main loop and rem everything out but one gosub call. Keep doing this for each subroutine until you find out which subroutine is giving you the problem.

Back to top

Profile PM Email

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 25th May 2010 07:50

Link

My mistake...your name is LBFN. I apologize for mistyping it; I didn't check above that time.

I pasted that code to the end of every subroutine (right before RETURN) and even at the beginning of subroutine SetupHighScores.

The program is opened, then closed right away. I don't know why that's happening. I attached a video of the complete code and what happens when I try to run the program.

Attachments

Login to view attachments

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 25th May 2010 13:36

Link

While it apear do you see anything or just black screen?

If this is the case try saving it as project close dbpro and when you start it close the newly opened untitled.dba document open your project and compile it.I allways close the untitled.dba document created because any code i load wont run because dbpro try to compile from the empty one.Even when i copy paste in it, it continue to do that because it load it from the tmp or bak file.I`m pretty sure it`s tmp.

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 25th May 2010 14:45

Link

It's just a black screen, but saving the source as a project file and then re-opening it didn't seem to work.

That's a good pointer, though, luskos. I'll keep that in mind.

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 25th May 2010 21:29

Link

Your nick is buged dude!Or the thread or the forum itself.Out in the Newcomers corner it doesn`t show your last post as last but mine.
By the way which version of dbpro you are using?Update to last one, it may be the issue.Sometimes it is really.Obsolete versions won`t run the code properly, even not producing errors sometimes.

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 26th May 2010 00:35 Edited at: 26th May 2010 00:36

Link

It's just because I'm a new member. They have to approve my posts first, so that must be why the forum is doing that.

Anyway, I have the latest version - 1.074 or 7.4. I just cleared temporary files and it still doesn't seem to work. Thanks to LFBN's code, I determined that it goes to subroutine SetupHighScores and ends during the restoring of the data.

Here's where I narrowed down the problem. It ends right after the Repeat-Until Mouse Click code:

+ Code Snippet

SetupHighScores:
` gets here if there is no saved file and puts values into the arrays
  restore HighScoreData
repeat
  text 100,100,"okay after Loading/Setting up the high scores."
  text 100,120,"click the left mouse button to continue."
until mouseclick() = 1
  for s = 0 to 9
    read HighScore(s),Name$(s)
  next s
return

EDIT: This is the first post that didn't have to be checked. My nickname should appear on the Newcomer's Corner now.

Back to top

Profile PM

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 26th May 2010 02:10

Link

Luskos, I downloaded the BMP Font Editor and Matrix1 plugins and I'm going to try them out and let you know how that high score table works for me once I have some free time.

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 26th May 2010 10:11 Edited at: 26th May 2010 10:12

Link

Ok, mate i hope it suit you best.Actually you can exclude the plugins but you need to port the snippet in plain db code.I can do it when i have free time for this and update the thread.

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 26th May 2010 16:40

Link

Quote: "Here's where I narrowed down the problem. It ends right after the Repeat-Until Mouse Click code:"

Do you have the following code in the program?

+ Code Snippet

HighScoreData:
` score, name$
data 1990,"Bob1",1991,"Bob2",1992,"Bob3",1993,"Bob4",1994,"Bob5"
data 1995,"Bob6",1996,"Bob7",1997,"Bob8",1998,"Bob9",1999,"Bobx"

Back to top

Profile PM Email

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 27th May 2010 00:49

Link

Yes, it's at the end of the code you gave me. Should I move that code higher in the program? Maybe it didn't read the data yet.

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 27th May 2010 10:48

Link

And you tryied my code snippet?You can check it really faster, download 2 plugins, install them and run the code.It have comments so you don`t get lost in the code!

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 27th May 2010 11:11

Link

Thanks, I tried it. After I changed the directories, it just loaded a blank screen. The only Matrix1 plugin I didn't install was part 7 (I think it was the one with logarithms). I think maybe it just has a problem with arrays...? Is there a plugin I can use to make an array using a different command, by any chance?

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 27th May 2010 12:38

Link

Quote: "Yes, it's at the end of the code you gave me. Should I move that code higher in the program? Maybe it didn't read the data yet. "

Moving it higher in the code will not solve the problem. Have you tried remming out the 'gosub SetupHighScores' command to see if it will run? It will have all 0's in the high score table, but if this subroutine is indeed the problem, it should run okay.

I'm running out of ideas for why it won't work on your computer. I have run it several times with no problem. I have double-checked the code and see nothing that would cause it to do what is happening to you. Apparently, others have run the code and it works okay.

Back to top

Profile PM Email

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 27th May 2010 19:32

Link

Do the code worked for you?What directories you changed?The only thing that requires to be placed somewhere is the font image which must be in the same folder where you compile the code.

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 28th May 2010 01:58

Link

@LBFN I REMmed out the GOSUB line and even the subroutine itself. It must be a problem with my computer. I'll check the disk for errors.

@luskos I set the path of the font image to the same folder the source code is in, in case it tries to default to the TEMP folder. So I changed it to just "font.bmp". Now it seems to have a problem with the BMP Font Plugin. When I try to run the code, an error pops up saying "Runtime Error 504 - Cannot grab image due to an illegal area at line 7 (the line which reads, "make bmp font 999,font").

My computer runs on Windows Vista, by the way. Would you happen to know if the BMP Font Plugin is compatible with Vista?

Back to top

Profile PM

Sasuke

18

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 28th May 2010 02:24

Link

Quote: "@LBFN I REMmed out the GOSUB line and even the subroutine itself. It must be a problem with my computer. I'll check the disk for errors."

What code is this cause I'd like to have a look at it.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 28th May 2010 09:34

Link

Here you go, Sasuke. This should be the original code that LBFN posted for me to use.

Score = 0
DIM HighScore(9)
DIM Name$(9)
global ScrWid : ScrWid = screen width() : global ScrHgt : ScrHgt = screen height()
if file exist("test.txt") = 0
  gosub SetupHighScores
else
  gosub LoadHighScores
endif
KeyDelay = timer() + 100
repeat
  gosub ShowHighScores
  gosub GetInput
  ink rgb(255,255,255),0 : ` white
  center text 100,10,"SCORE: " + str$(score)
  text 100,ScrHgt - 120,"Press '1' to increase score by 2000."
  text 100,ScrHgt - 100,"Press 'S' to save the HighScores."
  text 100,ScrHgt - 80,"Press 'A' to add the HighScore to the table."
  text 100,ScrHgt - 60,"Press [Spacebar] to quit."
until spacekey() = 1
end

GetInput:
` gets a keypress from the user
  if scancode() > 0 and timer() > KeyDelay : ` slow it down so it doesn't update too fast
    I$ = upper$(INKEY$()) : ` use Upper$() to make sure the input is always uppercase
    select i$
      case "1"
        inc SCORE,2000
      endcase
      case "S"
        cls
        ink rgb(0,0,255),0
        center text ScrWid * .5,ScrHgt * .5,"Saving file....."
        sync
        gosub SaveHighScores
        wait 1200
        cls
        center text ScrWid * .5,ScrHgt * .5,"High Score table saved."
        sync
        wait 1500
      endcase
      case "A"
        gosub OverWriteHighScores
     endcase
    endselect
    KeyDelay = timer() + 100 : ` update the key delay
  endif
return

ShowHighScores:
cls : ` clear the screen
ink rgb(255,255,0),0 : ` yellow
for s = 0 to 9 : ` print out the different names and high scores
  text 100,(s * 20) + 50,Name$(s)
  text 200,(s * 20) + 50,str$(HighScore(s))
next s
return

SaveHighScores:
` check to see if there is an existing file - if so, delete it
  if file exist("test.txt") = 1 then delete file "test.txt"
  Open to Write 1,"test.txt"
  For N = 0 To 9
    Write word 1,HighScore(N)
    Write String 1,Name$(N)
  Next N
  Close File 1
return

LoadHighScores:
repeat
  text 100,100,"okay after Loading/Setting up the high scores."
  text 100,120,"click the left mouse button to continue."
until mouseclick() = 1
if file exist("test.txt") = 1
  open to read 1,"test.txt"
  for n = 0 to 9
    read word 1,HighScore(n)
    read string 1,Name$(n)
  next n
  close file 1
endif
repeat
  text 100,100,"okay after Loading/Setting up the high scores."
  text 100,120,"click the left mouse button to continue."
until mouseclick() = 1

return

OverwriteHighScores:
  cls
  ink rgb(255,255,255),0
  center text ScrWid * .5,ScrHgt * .5,"Updating high score table."
  sync
  wait 1200
  pos = -1
  for hs = 9 to 0 step -1
    if score > HighScore(hs) then pos = hs
  next hs
  if pos >= 0 and pos < 9
  ` move the HighScores that are lower than score down by one
    for hs = 8 to pos step -1
      Name$(hs + 1) = Name$(hs)
      HighScore(hs + 1) = HighScore(hs)
    next hs
  endif
  if pos = 9 then HighScore(9) = score
  if pos >= 0
    text 10,ScrHgt - 200,"Congratulations! Your score is one of the top ten!" : sync
    set cursor 10,ScrHgt - 180
    INPUT "Enter your name: ",Name$(pos)
    HighScore(pos) = score
  endif
return

SetupHighScores:
` gets here if there is no saved file and puts values into the arrays
  restore HighScoreData
repeat
  text 100,100,"okay after Loading/Setting up the high scores."
  text 100,120,"click the left mouse button to continue."
until mouseclick() = 1
  for s = 0 to 9
    read HighScore(s),Name$(s)
  next s
return

HighScoreData:
` score, name$
data 1990,"Bob1",1991,"Bob2",1992,"Bob3",1993,"Bob4",1994,"Bob5"
data 1995,"Bob6",1996,"Bob7",1997,"Bob8",1998,"Bob9",1999,"Bobx"

+ Code Snippet

Score = 0
DIM HighScore(9)
DIM Name$(9)
global ScrWid : ScrWid = screen width() : global ScrHgt : ScrHgt = screen height()
if file exist("test.txt") = 0
  gosub SetupHighScores
else
  gosub LoadHighScores
endif
KeyDelay = timer() + 100
repeat
  gosub ShowHighScores
  gosub GetInput
  ink rgb(255,255,255),0 : ` white
  center text 100,10,"SCORE: " + str$(score)
  text 100,ScrHgt - 120,"Press '1' to increase score by 2000."
  text 100,ScrHgt - 100,"Press 'S' to save the HighScores."
  text 100,ScrHgt - 80,"Press 'A' to add the HighScore to the table."
  text 100,ScrHgt - 60,"Press [Spacebar] to quit."
until spacekey() = 1
end



GetInput:
` gets a keypress from the user
  if scancode() > 0 and timer() > KeyDelay : ` slow it down so it doesn't update too fast
    I$ = upper$(INKEY$()) : ` use Upper$() to make sure the input is always uppercase
    select i$
      case "1"
        inc SCORE,2000
      endcase
      case "S"
        cls
        ink rgb(0,0,255),0
        center text ScrWid * .5,ScrHgt * .5,"Saving file....."
        sync
        gosub SaveHighScores
        wait 1200
        cls
        center text ScrWid * .5,ScrHgt * .5,"High Score table saved."
        sync
        wait 1500
      endcase
      case "A"
        gosub OverWriteHighScores
     endcase
    endselect
    KeyDelay = timer() + 100 : ` update the key delay
  endif
return


ShowHighScores:
cls : ` clear the screen
ink rgb(255,255,0),0 : ` yellow
for s = 0 to 9 : ` print out the different names and high scores
  text 100,(s * 20) + 50,Name$(s)
  text 200,(s * 20) + 50,str$(HighScore(s))
next s
return


SaveHighScores:
` check to see if there is an existing file - if so, delete it
  if file exist("test.txt") = 1 then delete file "test.txt"
  Open to Write 1,"test.txt"
  For N = 0 To 9
    Write word 1,HighScore(N)
    Write String 1,Name$(N)
  Next N
  Close File 1
return

LoadHighScores:
repeat
  text 100,100,"okay after Loading/Setting up the high scores."
  text 100,120,"click the left mouse button to continue."
until mouseclick() = 1
if file exist("test.txt") = 1
  open to read 1,"test.txt"
  for n = 0 to 9
    read word 1,HighScore(n)
    read string 1,Name$(n)
  next n
  close file 1
endif
repeat
  text 100,100,"okay after Loading/Setting up the high scores."
  text 100,120,"click the left mouse button to continue."
until mouseclick() = 1

return


OverwriteHighScores:
  cls
  ink rgb(255,255,255),0
  center text ScrWid * .5,ScrHgt * .5,"Updating high score table."
  sync
  wait 1200
  pos = -1
  for hs = 9 to 0 step -1
    if score > HighScore(hs) then pos = hs
  next hs
  if pos >= 0 and pos < 9
  ` move the HighScores that are lower than score down by one
    for hs = 8 to pos step -1
      Name$(hs + 1) = Name$(hs)
      HighScore(hs + 1) = HighScore(hs)
    next hs
  endif
  if pos = 9 then HighScore(9) = score
  if pos >= 0
    text 10,ScrHgt - 200,"Congratulations! Your score is one of the top ten!" : sync
    set cursor 10,ScrHgt - 180
    INPUT "Enter your name: ",Name$(pos)
    HighScore(pos) = score
  endif
return



SetupHighScores:
` gets here if there is no saved file and puts values into the arrays
  restore HighScoreData
repeat
  text 100,100,"okay after Loading/Setting up the high scores."
  text 100,120,"click the left mouse button to continue."
until mouseclick() = 1
  for s = 0 to 9
    read HighScore(s),Name$(s)
  next s
return

HighScoreData:
` score, name$
data 1990,"Bob1",1991,"Bob2",1992,"Bob3",1993,"Bob4",1994,"Bob5"
data 1995,"Bob6",1996,"Bob7",1997,"Bob8",1998,"Bob9",1999,"Bobx"

Back to top

Profile PM

Sasuke

18

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 28th May 2010 14:36

Link

Cheers, seems to work fine for me I'm afraid. This is really strange, I wonder what the issue could be. The only thing I can think of is copying and pasting the code to the IDE corrupted it. Though usually it wouldn't run at all and you'd get a alphanumerical error. So that's out. Have you tried other code snippets and see if they've worked?

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 29th May 2010 18:28

Link

I rewrited the code snippet for you, now you can choose from using dbpro native text,d3d cloggy function or bmp plugin font!Just read the comments where you need to unrem them, it`s currently working with cloggy`s plugin.

Cheers!

sync on : sync rate 0
`backdrop on
rem UNREM THIS LINE FOR BMP FONT USING
`Font Used to Draw the Highscore Table
`font=1000
`load image "font.bmp",999
`make bmp font 999,font
`REM

`REM UNREM THIS LINE FOR USING Cloggy`s D3D FUNCTION 
`d3d_init
`d3d_font 1,"Arial",8,0,0,1

`Highscore type containing the player name and the points which he have.
type highscore
	name$ as string
	points as integer
endtype

`Constant max_board as pointer to how many places the highscore board have.We put in mind that we`ll use 0 in arrays too.
`0 to 9 are 10 positions
#CONSTANT max_board = 9

`Highscore arrays to hold highsocres and to draw them in real time.
dim highscores(max_board) as highscore
dim bmp_listing$(max_board) as string

`Variable to reverse datafile writing of highscore.dat for the first time so the higher value is the first.
pos_offset = max_board

`Writing of highscore.dat if it does not exists.
FileID = find free datafile()
if file exist ("highscore.dat") = 0
	open datafile to write FileID,"highscore.dat"
	for write = 0 to max_board
		highscores(pos_offset-write).name$ = "anarhist"
		write datafile string FileID,highscores(pos_offset-write).name$
		highscores(pos_offset-write).points = (pos_offset-write)*10
		write datafile integer FileID,highscores(pos_offset-write).points
	next write
	close datafile FileID	
endif

`If highscore.dat exists, we read it.
if file exist ("highscore.dat") = 1
	open datafile to read FileId,"highscore.dat"
	for reading = 0 to max_board
		highscores(reading).name$ = datafile string$ (FileID)
		highscores(reading).points = datafile integer (FileID)
	next reading
	close datafile FileID
endif

do
	
cls

text 0,0,"fps: "+str$(screen fps())
text 0,20,"name: "+ name$
text 0,40,"points: "+str$(points)
text 0,60,"temp: "+str$(temp)

if mouseclick() = 1 and MouseFlag = 0
	MouseFlag = 1
endif

if mouseclick() = 0 and MouseFlag = 1
	MouseFlag = 0
endif

`When conditions are met the highscore board is drawn to screen.
if MouseFlag = 1
	for listing = 0 to max_board
		if listing <> max_board 
			bmp_listing$(listing) = str$(listing+1)+".  "+highscores(listing).name$ +"   "+str$(highscores(listing).points)
		else
			bmp_listing$(listing) = str$(listing+1)+". "+highscores(listing).name$ +"   "+str$(highscores(listing).points)
		endif
		REM UNREM THIS LINE FOR BMP FONT USING
		`btext font,bmp_listing$(listing),200,50+(15*listing),10,1
			
		`REM UNREM THIS LINE FOR USING Cloggy`s D3D FUNCTION 	
		`d3d_starttext
		`	d3d_text 1,200,50+(15*listing),0,bmp_listing$(listing)
		`d3d_endtext
		
		REM UNREM THIS LINE FOR DBPRO TEXT
		`	text 200,50+(15*listing),bmp_listing$(listing)
	next listing
endif
	
`When conditions are met the player`s result is checked against the highscores, then if it`s better than
`other result his name and points are writen at position where matched.
if keystate(57)=1 and SpaceFlag = 0
	SpaceFlag = 1
	SpacePressed = 1
	`Next 2 lines are not needed in real game, just for speed tesing.
	name$ = "luskos"
	points = rnd(1000)
	if points > highscores(max_board).points
		highscores(max_board).name$ = name$
		highscores(max_board).points = points
		sort array highscores(),-2
		open datafile to write FileID,"highscore.dat"
		for write = 0 to max_board
			write datafile string FileID,highscores(write).name$
			write datafile integer FileID,highscores(write).points
		next write
		close datafile FileID
	endif 	
endif

if keystate(57)=1 and space_pressed = 0
	SpaceFlag = 0
endif

if keystate(57) = 0
	SpacePressed = 0
endif

sync
loop

+ Code Snippet

sync on : sync rate 0
`backdrop on
rem UNREM THIS LINE FOR BMP FONT USING
`Font Used to Draw the Highscore Table
`font=1000
`load image "font.bmp",999
`make bmp font 999,font
`REM

`REM UNREM THIS LINE FOR USING Cloggy`s D3D FUNCTION 
`d3d_init
`d3d_font 1,"Arial",8,0,0,1

`Highscore type containing the player name and the points which he have.
type highscore
	name$ as string
	points as integer
endtype

`Constant max_board as pointer to how many places the highscore board have.We put in mind that we`ll use 0 in arrays too.
`0 to 9 are 10 positions
#CONSTANT max_board = 9

`Highscore arrays to hold highsocres and to draw them in real time.
dim highscores(max_board) as highscore
dim bmp_listing$(max_board) as string

`Variable to reverse datafile writing of highscore.dat for the first time so the higher value is the first.
pos_offset = max_board

`Writing of highscore.dat if it does not exists.
FileID = find free datafile()
if file exist ("highscore.dat") = 0
	open datafile to write FileID,"highscore.dat"
	for write = 0 to max_board
		highscores(pos_offset-write).name$ = "anarhist"
		write datafile string FileID,highscores(pos_offset-write).name$
		highscores(pos_offset-write).points = (pos_offset-write)*10
		write datafile integer FileID,highscores(pos_offset-write).points
	next write
	close datafile FileID	
endif

`If highscore.dat exists, we read it.
if file exist ("highscore.dat") = 1
	open datafile to read FileId,"highscore.dat"
	for reading = 0 to max_board
		highscores(reading).name$ = datafile string$ (FileID)
		highscores(reading).points = datafile integer (FileID)
	next reading
	close datafile FileID
endif

do
	
cls

text 0,0,"fps: "+str$(screen fps())
text 0,20,"name: "+ name$
text 0,40,"points: "+str$(points)
text 0,60,"temp: "+str$(temp)

if mouseclick() = 1 and MouseFlag = 0
	MouseFlag = 1
endif

if mouseclick() = 0 and MouseFlag = 1
	MouseFlag = 0
endif

`When conditions are met the highscore board is drawn to screen.
if MouseFlag = 1
	for listing = 0 to max_board
		if listing <> max_board 
			bmp_listing$(listing) = str$(listing+1)+".  "+highscores(listing).name$ +"   "+str$(highscores(listing).points)
		else
			bmp_listing$(listing) = str$(listing+1)+". "+highscores(listing).name$ +"   "+str$(highscores(listing).points)
		endif
		REM UNREM THIS LINE FOR BMP FONT USING
		`btext font,bmp_listing$(listing),200,50+(15*listing),10,1
			
		`REM UNREM THIS LINE FOR USING Cloggy`s D3D FUNCTION 	
		`d3d_starttext
		`	d3d_text 1,200,50+(15*listing),0,bmp_listing$(listing)
		`d3d_endtext
		
		REM UNREM THIS LINE FOR DBPRO TEXT
		`	text 200,50+(15*listing),bmp_listing$(listing)
	next listing
endif
	
`When conditions are met the player`s result is checked against the highscores, then if it`s better than
`other result his name and points are writen at position where matched.
if keystate(57)=1 and SpaceFlag = 0
	SpaceFlag = 1
	SpacePressed = 1
	`Next 2 lines are not needed in real game, just for speed tesing.
	name$ = "luskos"
	points = rnd(1000)
	if points > highscores(max_board).points
		highscores(max_board).name$ = name$
		highscores(max_board).points = points
		sort array highscores(),-2
		open datafile to write FileID,"highscore.dat"
		for write = 0 to max_board
			write datafile string FileID,highscores(write).name$
			write datafile integer FileID,highscores(write).points
		next write
		close datafile FileID
	endif 	
endif

if keystate(57)=1 and space_pressed = 0
	SpaceFlag = 0
endif

if keystate(57) = 0
	SpacePressed = 0
endif

	sync
loop

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 30th May 2010 12:50

Link

Thanks for the codes!

I'll try them out when I have more time and let you know if they work for me.

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 30th May 2010 15:20

Link

I think there was something wrong in the last post try this instead:

sync on : sync rate 0
backdrop on
rem UNREM THIS LINE FOR BMP FONT USING
`Font Used to Draw the Highscore Table
`font=1000
`load image "font.bmp",999
`make bmp font 999,font
`REM

`REM UNREM THIS LINE FOR USING Cloggy`s D3D FUNCTION 
d3d_init
d3d_font 1,"Arial",8,0,0,1

`Highscore type containing the player name and the points which he have.
type highscore
	name$ as string
	points as integer
endtype

`Constant max_board as pointer to how many places the highscore board have.We put in mind that we`ll use 0 in arrays too.
`0 to 9 are 10 positions
#CONSTANT max_board = 9

`Highscore arrays to hold highsocres and to draw them in real time.
dim highscores(max_board) as highscore
dim listing$(max_board) as string

`Variable to reverse datafile writing of highscore.dat for the first time so the higher value is the first.
pos_offset = max_board

`Writing of highscore.dat if it does not exists.
FileID = find free datafile()
if file exist ("highscore.dat") = 0
	open datafile to write FileID,"highscore.dat"
	for write = 0 to max_board
		highscores(pos_offset-write).name$ = "anarhist"
		write datafile string FileID,highscores(pos_offset-write).name$
		highscores(pos_offset-write).points = (pos_offset-write)*10
		write datafile integer FileID,highscores(pos_offset-write).points
	next write
	close datafile FileID	
endif

`If highscore.dat exists, we read it.
if file exist ("highscore.dat") = 1
	open datafile to read FileId,"highscore.dat"
	for reading = 0 to max_board
		highscores(reading).name$ = datafile string$ (FileID)
		highscores(reading).points = datafile integer (FileID)
	next reading
	close datafile FileID
endif

do
	
`cls

text 0,0,"fps: "+str$(screen fps())
text 0,20,"name: "+ name$
text 0,40,"points: "+str$(points)
text 0,60,"temp: "+str$(temp)

if mouseclick() = 1 and MouseFlag = 0
	MouseFlag = 1
endif

if mouseclick() = 0 and MouseFlag = 1
	MouseFlag = 0
endif

`When conditions are met the highscore board is drawn to screen.
if MouseFlag = 1
	for listing = 0 to max_board
		if listing <> max_board 
			listing$(listing) = str$(listing+1)+".  "+highscores(listing).name$ +"   "+str$(highscores(listing).points)
		else
			listing$(listing) = str$(listing+1)+". "+highscores(listing).name$ +"   "+str$(highscores(listing).points)
		endif
		REM UNREM THIS LINE FOR BMP FONT USING
		`btext font,bmp_listing$(listing),200,50+(15*listing),10,1
			
		`REM UNREM THIS LINE FOR USING Cloggy`s D3D FUNCTION 	
		d3d_starttext
			d3d_text 1,200,50+(15*listing),0,listing$(listing)
		d3d_endtext
		
		REM UNREM THIS LINE FOR DBPRO TEXT
		`	text 200,50+(15*listing),bmp_listing$(listing)
	next listing
endif
	
`When conditions are met the player`s result is checked against the highscores, then if it`s better than
`other result his name and points are writen at position where matched.
if keystate(57)=1 and SpaceFlag = 0
	SpaceFlag = 1
	SpacePressed = 1
	`Next 2 lines are not needed in real game, just for speed tesing.
	name$ = "luskos"
	points = rnd(1000)
	if points > highscores(max_board).points
		highscores(max_board).name$ = name$
		highscores(max_board).points = points
		sort array highscores(),-2
		open datafile to write FileID,"highscore.dat"
		for write = 0 to max_board
			write datafile string FileID,highscores(write).name$
			write datafile integer FileID,highscores(write).points
		next write
		close datafile FileID
	endif 	
endif

if keystate(57)=1 and SpacePressed = 0
	SpaceFlag = 0
endif

if keystate(57) = 0
	SpacePressed = 0
endif

sync
loop

+ Code Snippet

sync on : sync rate 0
backdrop on
rem UNREM THIS LINE FOR BMP FONT USING
`Font Used to Draw the Highscore Table
`font=1000
`load image "font.bmp",999
`make bmp font 999,font
`REM

`REM UNREM THIS LINE FOR USING Cloggy`s D3D FUNCTION 
d3d_init
d3d_font 1,"Arial",8,0,0,1

`Highscore type containing the player name and the points which he have.
type highscore
	name$ as string
	points as integer
endtype

`Constant max_board as pointer to how many places the highscore board have.We put in mind that we`ll use 0 in arrays too.
`0 to 9 are 10 positions
#CONSTANT max_board = 9

`Highscore arrays to hold highsocres and to draw them in real time.
dim highscores(max_board) as highscore
dim listing$(max_board) as string

`Variable to reverse datafile writing of highscore.dat for the first time so the higher value is the first.
pos_offset = max_board

`Writing of highscore.dat if it does not exists.
FileID = find free datafile()
if file exist ("highscore.dat") = 0
	open datafile to write FileID,"highscore.dat"
	for write = 0 to max_board
		highscores(pos_offset-write).name$ = "anarhist"
		write datafile string FileID,highscores(pos_offset-write).name$
		highscores(pos_offset-write).points = (pos_offset-write)*10
		write datafile integer FileID,highscores(pos_offset-write).points
	next write
	close datafile FileID	
endif

`If highscore.dat exists, we read it.
if file exist ("highscore.dat") = 1
	open datafile to read FileId,"highscore.dat"
	for reading = 0 to max_board
		highscores(reading).name$ = datafile string$ (FileID)
		highscores(reading).points = datafile integer (FileID)
	next reading
	close datafile FileID
endif

do
	
`cls

text 0,0,"fps: "+str$(screen fps())
text 0,20,"name: "+ name$
text 0,40,"points: "+str$(points)
text 0,60,"temp: "+str$(temp)

if mouseclick() = 1 and MouseFlag = 0
	MouseFlag = 1
endif

if mouseclick() = 0 and MouseFlag = 1
	MouseFlag = 0
endif

`When conditions are met the highscore board is drawn to screen.
if MouseFlag = 1
	for listing = 0 to max_board
		if listing <> max_board 
			listing$(listing) = str$(listing+1)+".  "+highscores(listing).name$ +"   "+str$(highscores(listing).points)
		else
			listing$(listing) = str$(listing+1)+". "+highscores(listing).name$ +"   "+str$(highscores(listing).points)
		endif
		REM UNREM THIS LINE FOR BMP FONT USING
		`btext font,bmp_listing$(listing),200,50+(15*listing),10,1
			
		`REM UNREM THIS LINE FOR USING Cloggy`s D3D FUNCTION 	
		d3d_starttext
			d3d_text 1,200,50+(15*listing),0,listing$(listing)
		d3d_endtext
		
		REM UNREM THIS LINE FOR DBPRO TEXT
		`	text 200,50+(15*listing),bmp_listing$(listing)
	next listing
endif
	
`When conditions are met the player`s result is checked against the highscores, then if it`s better than
`other result his name and points are writen at position where matched.
if keystate(57)=1 and SpaceFlag = 0
	SpaceFlag = 1
	SpacePressed = 1
	`Next 2 lines are not needed in real game, just for speed tesing.
	name$ = "luskos"
	points = rnd(1000)
	if points > highscores(max_board).points
		highscores(max_board).name$ = name$
		highscores(max_board).points = points
		sort array highscores(),-2
		open datafile to write FileID,"highscore.dat"
		for write = 0 to max_board
			write datafile string FileID,highscores(write).name$
			write datafile integer FileID,highscores(write).points
		next write
		close datafile FileID
	endif 	
endif

if keystate(57)=1 and SpacePressed = 0
	SpaceFlag = 0
endif

if keystate(57) = 0
	SpacePressed = 0
endif

	sync
loop

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Programmer2000

14

Years of Service

User Offline

Joined: 19th May 2010

Playing:

Posted: 2nd Jun 2010 09:55

Link

Thanks for all the codes and help, everyone!

I just fixed the errors on the disk and reinstalled DBPro and the update. All of your codes work fine now.

Thanks again!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / How do I make a top 10 high score table using arrays?

Attachments