Highscore

Er der nogen der ved hvad fejlen er i denne kode?
Det er et spil der går takt i takt, altså det fortsætter ikke til man dør, men slutter når man ikke vil spille mere. Derfor checker den om man har slået rekorden hver gang turen er ovre.

DETTE ER IKKE HELE KODEN, MEN KUN ET LILLE UDPLUK AF DEN!!!
I dette udpluk checker den første om navnet i forvejen findes på highscoren. Hvis den ikke gør checker den (her i udplukket) om ens point (txtPlayer1HaveCash.Text) er større end første pladsens point. Hvis den er rykker den alle spillernes navne og point ned, så nummer 10 bliver slettet. Også indsætter den spillerens navn og point i nummer 1!

Hvis spillerens navn findes på listen (her i udplukket som spilleren der ligger nummer 10) og at hans point er højre end tidligere, vil den checke (her i udplukket) om de point han lige har fået er større end spiller nummer et point. Hvis den er vil den gemme de antal point spilleren har fået (Movedscore = Int(txtPlayer1HaveCash.Text) ) og (Movedname = Name10)). Også vil den ellers rykke derned af og tilsidst, når alt er rykket en ned, indsætte spillerens data som nummer 1.

Jeg har kigget det igennem tusinde gange, men kan ikke finde nogen fejl.
Jeg kunne ikke indsætte hele koden så jeg har skrevet det mest relevante, hvis jeg skulle skrive det hele ville det fylde 20 gange så meget, nogen lunde. På Forhånd Tak!

Dim Movedscore
Dim Movedname

Dim Name1
Dim score1
Dim Name2
Dim score2
Dim Name3
Dim score3
Dim Name4
Dim score4
Dim Name5
Dim score5
Dim Name6
Dim score6
Dim Name7
Dim score7
Dim Name8
Dim score8
Dim Name9
Dim score9
Dim Name10
Dim score10

Name1 = GetSetting("Random", "HighScore", "Name1")
Name2 = GetSetting("Random", "HighScore", "Name2")
Name3 = GetSetting("Random", "HighScore", "Name3")
Name4 = GetSetting("Random", "HighScore", "Name4")
Name5 = GetSetting("Random", "HighScore", "Name5")
Name6 = GetSetting("Random", "HighScore", "Name6")
Name7 = GetSetting("Random", "HighScore", "Name7")
Name8 = GetSetting("Random", "HighScore", "Name8")
Name9 = GetSetting("Random", "HighScore", "Name9")
Name10 = GetSetting("Random", "HighScore", "Name10")

score1 = GetSetting("Random", "HighScore", "Score1")
score2 = GetSetting("Random", "HighScore", "Score2")
score3 = GetSetting("Random", "HighScore", "Score3")
score4 = GetSetting("Random", "HighScore", "Score4")
score5 = GetSetting("Random", "HighScore", "Score5")
score6 = GetSetting("Random", "HighScore", "Score6")
score7 = GetSetting("Random", "HighScore", "Score7")
score8 = GetSetting("Random", "HighScore", "Score8")
score9 = GetSetting("Random", "HighScore", "Score9")
score10 = GetSetting("Random", "HighScore", "Score10")

If Not lblPlayer1.Caption = Name1 And Not lblPlayer1.Caption = Name2 And Not lblPlayer1.Caption = Name3 And Not lblPlayer1.Caption = Name4 And Not lblPlayer1.Caption = Name5 And Not lblPlayer1.Caption = Name6 And Not lblPlayer1.Caption = Name7 And Not lblPlayer1.Caption = Name8 And Not lblPlayer1.Caption = Name9 And Not lblPlayer1.Caption = Name10 Then
    If Int(txtPlayer1HaveCash.Text) > Int(score1) Then
        SaveSetting "Random", "HighScore", "Name10", Name9
        SaveSetting "Random", "HighScore", "Name9", Name8
        SaveSetting "Random", "HighScore", "Name8", Name7
        SaveSetting "Random", "HighScore", "Name7", Name6
        SaveSetting "Random", "HighScore", "Name6", Name5
        SaveSetting "Random", "HighScore", "Name5", Name4
        SaveSetting "Random", "HighScore", "Name4", Name3
        SaveSetting "Random", "HighScore", "Name3", Name2
        SaveSetting "Random", "HighScore", "Name2", Name1
        SaveSetting "Random", "HighScore", "Name1", lblPlayer1.Caption
        
        SaveSetting "Random", "HighScore", "Score10", score9
        SaveSetting "Random", "HighScore", "Score9", score8
        SaveSetting "Random", "HighScore", "Score8", score7
        SaveSetting "Random", "HighScore", "Score7", score6
        SaveSetting "Random", "HighScore", "Score6", score5
        SaveSetting "Random", "HighScore", "Score5", score4
        SaveSetting "Random", "HighScore", "Score4", score3
        SaveSetting "Random", "HighScore", "Score3", score2
        SaveSetting "Random", "HighScore", "Score2", score1
        SaveSetting "Random", "HighScore", "Score1", Int(txtPlayer1HaveCash.Text)
    end if
else
    If lblPlayer1.Caption = Name10 Then
        If Int(txtPlayer1HaveCash.Text) > score10 Then
            SaveSetting "Random", "HighScore", "score10", Int(txtPlayer1HaveCash.Text)
            If Int(score10) > Int(score1) Then
                Movedscore = Int(txtPlayer1HaveCash.Text)
                Movedname = Name10
                SaveSetting "Random", "HighScore", "name10", Name9
                SaveSetting "Random", "HighScore", "score10", score9
                SaveSetting "Random", "HighScore", "name9", Name8
                SaveSetting "Random", "HighScore", "score9", score8
                SaveSetting "Random", "HighScore", "name8", Name7
                SaveSetting "Random", "HighScore", "score8", score7
                SaveSetting "Random", "HighScore", "name7", Name6
                SaveSetting "Random", "HighScore", "score7", score6
                SaveSetting "Random", "HighScore", "name6", Name5
                SaveSetting "Random", "HighScore", "score6", score5
                SaveSetting "Random", "HighScore", "name5", Name4
                SaveSetting "Random", "HighScore", "score5", score4
                SaveSetting "Random", "HighScore", "name4", Name3
                SaveSetting "Random", "HighScore", "score4", score3
                SaveSetting "Random", "HighScore", "name3", Name2
                SaveSetting "Random", "HighScore", "score3", score2
                SaveSetting "Random", "HighScore", "name2", Name1
                SaveSetting "Random", "HighScore", "score2", score1
                SaveSetting "Random", "HighScore", "name1", Movedname
                SaveSetting "Random", "HighScore", "score1", Int(Movedscore)
            end if
        end if
    end if
end if