saving profiles, saving score, list of profiles, how do I do it?

Author

Message

mr_fan

19

Years of Service

User Offline

Joined: 18th Mar 2005

Location: look... behind you.

Posted: 20th Nov 2005 05:59

Link

how do do somthing like in halo, where your state of health, ammo, and progress is saved? and how you can choose diferent profiles, where the state of the player, is diferent? as well as high scores? I am using dark basic professional. any tutorials, or examples would be useful. I have no expierience in saving data or any of that though, I could never realy figure it out.

I figured one of theses days I need to though.

rvb Church: "hey, look, his armor its, red."
rvb Tucker: "well that'l explain how he got past our defences."
rvb Caboose : "Actuley he came through the back."

Back to top

Profile PM

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 20th Nov 2005 13:28

Link

Use you can save values to a file like this:

+ Code Snippet

myVar=10
open to write 1,"c:/myVar.txt"
write string 1,str$(myVar)
close file 1

It really simple. I first use the OPEN TO WRITE filenumber, filename$ command to open a file to write data to. Next, when the file is opened, I use the WRITE STRING filenumber, string$ to write the value to the file(the STR$(value) converts a numeric value to string). You might think: ,, Why use WRITE STRING when it's a numeric value he's saving?". Again, really simple. It's so I can write comments to the things I'm saving in the file. But that's not important right now.
Next I close the file by using the CLOSE FILE filenumber command. Now. if you run this code, then you should be able to find a text-document on your C:\. If you open the file, it should say "10", because that's the value we stored earlier. If you want to acces the file again, and now read the value from it, you simply do like this:

+ Code Snippet

open to read 1, "C:\myVar.txt"
read string 1, myVar$
close file 1
myVar=val(myVar$)
print myVar
wait key

First I open the spesific file by using the OPEN TO READ command, and then I read the string we saved before(READ STRING filenumber, string$). Then close the file. Now we have the value stored in the string myVar$, but we want it to be an integer number. For that, we use the VAL(string$) command to convert the value to numeric, and then we store it in the myVar-variable using the assignment operator(=). After that, I simply print the value on the screen.

Of course you can store multiple values in one file, and if you're unsure about how to do this, just ask

I can't be fired... Slaves are SOLD!

Back to top

Profile PM Email

mr_fan

19

Years of Service

User Offline

Joined: 18th Mar 2005

Location: look... behind you.

Posted: 20th Nov 2005 17:49

Link

ah, so... that first part, would be for whenever I kill a monster, and that second part would be for viewing the high scores, right? somthing like:

+ Code Snippet

if mousex()>151 and mousex()< 310 and mousey()<340 and mousey()> 240
play sound 1
if mouseclick()=1
 open to read 1, "C:\Program Files\Dark Basic Software\Dark Basic Professional\Projects\fag studios 1\high scores.txt"
read string 1, myVar$
close file 1
myVar=val(myVar$)
print myVar
wait key
endif

right? but, for the first part, wouldn't that print 10 over and over, every time I kill a monster?

rvb Church: "hey, look, his armor its, red."
rvb Tucker: "well that'l explain how he got past our defences."
rvb Caboose : "Actuley he came through the back."

Back to top

Profile PM

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 20th Nov 2005 17:54

Link

Yeah, you have to use the OPEN TO WRITE and write a new value if you want it to change. But wouldn't it be easier just to store the score in a variable throughout the entire level, and then print the highscore to the player, and save it in a file?

I can't be fired... Slaves are SOLD!

Back to top

Profile PM Email

mr_fan

19

Years of Service

User Offline

Joined: 18th Mar 2005

Location: look... behind you.

Posted: 20th Nov 2005 19:11 Edited at: 20th Nov 2005 19:20

Link

what do you mean? if you could post a tutorial on how to make a high scores with the names of the profile who made the score, and in order of scorem, that would be great, somthing like
bob......1205
amy......324
shan......12
what I am trying to do is make a butten and when you click it, the high scores appear. and when you click it again, it disapears. I'm sorry if I sound like a noob, I'm just not that good with these things.

rvb Church: "hey, look, his armor its, red."
rvb Tucker: "well that'l explain how he got past our defences."
rvb Caboose : "Actuley he came through the back."

Back to top

Profile PM

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 20th Nov 2005 21:08

Link

Here, I've made a simple example. This program asks the user for input, and then writes the value to a file. Next time you open the program, it will show you the variables that was saved to the file last time the program was run. Then you will be able to change the values from within the program, and see how it works. The source is commented.

`First we check if the Highcoref-file exist.
if file exist("C:\Highscores.txt")
`\\\\

`If the file exist, then we open it up, and read the content.
   open to read 1,"C:/Highscores.txt"
      read string 1, player1$
      read string 1,score1$
      read string 1,player2$
      read string 1,score2$
   close file 1`don't forget to close the file after use!
   `\\\\

`Then we asign the new values to the two variables(remember the val()-converter?).
   score1=val(score1$)`convert strings to numbers, and asign them to "score1" and "score2"
   score2=val(score2$)
   `\\\\

else

`if the file doesn't exist...

`Declare two new variables with some names.
   player1$="Bob"
   player2$="James"
`\\\\

`Ask the user for some values, and asign those values to the two "score"-vaiables.
   input "Enter a value  ", score1
   input "Enter another value  ",score2
`\\\\

`Now we open the highscores-file, and write the new values.
   open to write 1,"C:/Highscores.txt"
      write string 1,player1$
      write string 1,str$(score1)
      write string 1,player2$
      write string 1,str$(score2)
   close file 1
endif
`\\\\

`Then print the values for the user to examine
print player1$;" scored ";score1
print player2$;" scored ";score2
`\\\\

wait key

`Ask the user whether he wants to change the values.
input "Do you want to change the scores?(y/n)", change$
`\\\\

`If he answers "y", then ask him for new values, and write them into the file.
if lower$(change$)="y"
   input "Enter a value  ", score1
   input "Enter another value  ",score2

delete file "C:/Highscores.txt"`We overwrite the old file

open to write 1,"C:/Highscores.txt"
      write string 1,player1$
      write string 1,str$(score1)
      write string 1,player2$
      write string 1,str$(score2)
   close file 1
endif
`\\\\

+ Code Snippet

`First we check if the Highcoref-file exist.
if file exist("C:\Highscores.txt")
`\\\\

`If the file exist, then we open it up, and read the content.
   open to read 1,"C:/Highscores.txt"
      read string 1, player1$
      read string 1,score1$
      read string 1,player2$
      read string 1,score2$
   close file 1`don't forget to close the file after use!
   `\\\\



   `Then we asign the new values to the two variables(remember the val()-converter?).
   score1=val(score1$)`convert strings to numbers, and asign them to "score1" and "score2"
   score2=val(score2$)
   `\\\\


else

`if the file doesn't exist...


`Declare two new variables with some names.
   player1$="Bob"
   player2$="James"
`\\\\


`Ask the user for some values, and asign those values to the two "score"-vaiables.
   input "Enter a value  ", score1
   input "Enter another value  ",score2
`\\\\


`Now we open the highscores-file, and write the new values.
   open to write 1,"C:/Highscores.txt"
      write string 1,player1$
      write string 1,str$(score1)
      write string 1,player2$
      write string 1,str$(score2)
   close file 1
endif
`\\\\


`Then print the values for the user to examine
print player1$;" scored ";score1
print player2$;" scored ";score2
`\\\\

wait key


`Ask the user whether he wants to change the values.
input "Do you want to change the scores?(y/n)", change$
`\\\\


`If he answers "y", then ask him for new values, and write them into the file.
if lower$(change$)="y"
   input "Enter a value  ", score1
   input "Enter another value  ",score2

   delete file "C:/Highscores.txt"`We overwrite the old file

   open to write 1,"C:/Highscores.txt"
      write string 1,player1$
      write string 1,str$(score1)
      write string 1,player2$
      write string 1,str$(score2)
   close file 1
endif
`\\\\

I can't be fired... Slaves are SOLD!

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / saving profiles, saving score, list of profiles, how do I do it?