Highscore

[Ghost]

hi
Ich binn noch neueinsteiger und habe mal eine dumme Frage .
Kann man mit Purebasic eine Higscore Liste anlegen?

[Kaeru Gaman]

Ja.

[Ghost]

Und wie?

[STARGÅTE]

Und wie?

tia dann muss ich erst eine gegenfrage stellen ^^

Weißt du schon wie man Dateien schreibt CreateFile() usw. ?

[Alves]

@ Stargate


Kann man eine Highscore mit einem Textdokument erstellen?
So mit OpenFile(), Dann ReadFile()...?[/url]

[Ghost]

@ STARGÅTE
leider net. (beschäftige mich erstmal 3-4 wochen mit PB)

[Kiffi]

> (beschäftige mich erstmal 3-4 wochen mit PB)

verwendest Du die 3.94 Demo-Version?

Grüße ... Kiffi

[Ghost]

Nein. Zeuerst ja, hab mir aber dann "PureBasic Game Programers Edition"geholt (leider find ich keine Versions Zahl)

[STARGÅTE]

So hier mal ganz schnell eine Procedure, etwas dumm aber es geht

Code: Alles auswählen

Procedure HighScore(Datei$, Punkte, Name$)
 OpenFile(1, Datei$)
 CreateFile(2, "_"+Datei$)
  Repeat
   UseFile(1)
    String$ = ReadString()
    HS_Punkte = Val(Trim(Mid(String$, 1, 10)))
   UseFile(2)
    If HS_Punkte < Punkte And Eingetragen = 0:
     WriteStringN(Str(Punkte)+Space(10-Len(Str(Punkte)))+Name$)
     Eingetragen = 1
    EndIf
    WriteStringN(String$)
  Until String$ = ""
 CloseFile(2)
 CloseFile(1)
 CopyFile("_"+Datei$, Datei$)
 DeleteFile("_"+Datei$)
EndProcedure

HighScore("HS.txt", 23, "Test 1")
HighScore("HS.txt", 4, "martin")
HighScore("HS.txt", 124, "Stargate")
HighScore("HS.txt", 1, "LOL")
HighScore("HS.txt", 2341, "baum")

wenns geht dann ist in der Datei HS.txt eine schicke geordnete HighScore liste

Wenns Fragen gibt einfach Fragen

[Ghost]

Ok klappt danke