Dim HCNames$(11)
Dim HCPoints(11)

Function loadHC() ;lädt einen Highscore
   Local LineIn= ReadFile("res\txts\Highscore.txt")
   For i=0 To 9
      HCNames(i)=ReadString(LineIn)
      HCPoints(i)=ReadInt(LineIn)
   Next
   CloseFile(LineIn)
End Function

Function saveHC() ;speichert einen Highscore ab
   Local LineOut=WriteFile("res\txts\Highscore.txt")
   For i=0 To 9
      WriteString(LineOut,HCNames(i))
      WriteInt(LineOut,HCPoints(i))
   Next
   CloseFile(LineOut)
End Function

Function NewScore(newPoints,geordnetNach$) ;erstellt einen neuen eintrag und fügt ihn ein.   |    HCPoints=Wert den Sie in den Highscore speichern Wollen       ;geordnetNach "klein" oder "groß"
   Local name=Input("Name: ")
   If geordnetNach$="groß" Then
      For i=0 To 9
         If HCPoints(9-i)<newPoints Then
            HCPoints(10-i)=HCPoints(9-i)
            HCNames(10-i)=HCNames(9-i)
            HCPoints(9-i)=newPoints
            HCNames(9-i)=name
            Print "test"
         EndIf
      Next
   EndIf
   If geordnetNach$="klein" Then
      Print "klein"
      For i=0 To 9
         If HCPoints(9-i)>newPoints Or HCNames(9-i)=""Then
            HCPoints(10-i)=HCPoints(9-i)
            HCNames(10-i)=HCNames(9-i)
            HCPoints(9-i)=newPoints
            HCNames(9-i)=name
         EndIf
      Next
   EndIf
End Function

Function getScore(place) ;gibt die Punkte eines bestimmten Platzes zurück
   Return HCPoints(place-1)
End Function

Function getName(place)   ;gibt den Namen eines Bestimmten Platzes zurück
   Return HCNames(place-1)
End Function

Graphics 800,600,32,2

Include "Highscore Tutorial.bb"
test1()
test2()
FlushKeys
WaitKey()
End
Function test1()
   For i=1 To 5
      tmp=Input("points: ")
      NewScore(tmp,"klein")
   Next
   saveHC()
End Function

Function test2()
   LoadHC()
   For i=1 To 10
      Print getName(i)+":  "getScore(i)
   Next
End Function

;Print getName(i)+":  "getScore(i)
Print getName(i)+":  " + getScore(i)