Seite 1 von 2
Highscore
Verfasst: 27.04.2006 20:10
von Ghost
hi
Ich binn noch neueinsteiger und habe mal eine dumme Frage
.
Kann man mit Purebasic eine Higscore Liste anlegen?
Verfasst: 27.04.2006 20:13
von Kaeru Gaman
Ja.
Verfasst: 27.04.2006 20:16
von Ghost
Und wie?
Verfasst: 27.04.2006 20:40
von STARGÅTE
Ghost hat geschrieben:Und wie?
tia dann muss ich erst eine gegenfrage stellen ^^
Weißt du schon wie man Dateien schreibt CreateFile() usw. ?
Verfasst: 27.04.2006 20:48
von Alves
@ Stargate
Kann man eine Highscore mit einem Textdokument erstellen?
So mit OpenFile(), Dann ReadFile()...?[/url]
Verfasst: 27.04.2006 20:52
von Ghost
@ STARGÅTE
leider net. (beschäftige mich erstmal 3-4 wochen mit PB)
Verfasst: 27.04.2006 20:54
von Kiffi
> (beschäftige mich erstmal 3-4 wochen mit PB)
verwendest Du die 3.94 Demo-Version?
Grüße ... Kiffi
Verfasst: 27.04.2006 20:58
von Ghost
Nein. Zeuerst ja, hab mir aber dann "PureBasic Game Programers Edition"geholt (leider find ich keine Versions Zahl)
Verfasst: 27.04.2006 20:59
von 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
Verfasst: 27.04.2006 21:23
von Ghost
Ok klappt danke