Sorry your browser is not supported!

global file$ as string = "hiscore.dat"

// this part of code is in my initilize part of the program
// i use this to see if the hiscore file exists if not
// this part creates a "fake" code file for you to beat
if GetFileExists(file$) = 0
	fileID = OpenToWrite(file$,0)
	fakescore = 1000
	for FakeIT = 1 to 10
		WriteString (FileID, "Jeffrey")
		writeString (FileID, str(FakeScore))
		dec Fakescore, 100
	next FakeIt
	closefile(fileID)
endif

// between here there is some code for my game
// when you do certain things you get score
// in this purpose lets assume that we have made a highscore

function CheckHighScore()
// open up the file and put all the scores inside the dat file
// into a dimension (i already made it a type and dimed it in my
// code!
FileN = OpenToRead (file$)
    for GetHS = 1 to 10
	hscore[GetHS].name$ = readstring(FileN)
        hscore[GetHS].score = val(readstring(FileN))
    next GetHS
closefile(FileN)

for CheckScore = 1 to 10
    // start checking of the current score is higher than in the
    // dim.
    if hscore[CheckScore].score < score
        for New = 9 to CheckStore step -1
   // if it is we need to put 9 in 10, 8 in 9, 7 in 8, ...
	    hscore[new + 1].score = hscore[new].score
            hscore[new + 1].name$ = hscore[new].name$
	next new
    retry:
        while gettextinputcompleted() = false
        starttextinput()
        sync()
        endwhile
        IName$ = GetTextInput()
        IName$ = left(IName$, 14)
// get the name from the user and cut down to length of 14
        hscore[CheckScore].name$ = IName$
        hscore[CheckScore].score = score
    goto WritePart
// put it in the dim and go to the write part of this function
    endif
next CheckScore

WritePart:
FileW = OpenToWrite (file$, 0)
// write all to the file and done
for WriteIt = 1 to 10
	WriteString(FileW, hscore[WriteIt].name$)
	WriteString(FileW, str(hscore[WriteIt].score))
next WriteIt
Closefile(FileW)
endfunction

Jeffrey 1000 Jeffrey 900 Jeffrey 800 Jeffrey 700 Jeffrey 600 Jeffrey 500 Jeffrey 400 Jeffrey 300 Jeffrey 200 Jeffrey 100 

function HighScore_Check()
    User_Position = 0
	for t = 1 to 5
        if Player.Score > HighScoreNR [ t ]
           User_Position = t
           exit
        endif
    next t
endfunction

function HighScore_Setup()
     if User_Position = 0 then goto exit_HS_Setup
     temp = 5
     for b = User_Position to 5
         HighScoreNR [ temp ] = HighScoreNR [ temp - 1 ]
         HighScoreNAME$ [ temp ] = HighScoreNAME$ [ temp - 1 ]
         dec temp
     next b

     HighScoreNR [ User_Position ]= Player.Score
     HighScoreNAME$ [ User_Position ] = UserName$
     Input_State = 0
     HighScore_Write()
     exit_HS_Setup:
endfunction

Initiate_HighScore_Table:
    global UserName$=""
    global Input_State=0
    global User_Position = 0
    global HG_1
    global HG_2
    global HG_3
    global HG_4
    global HG_5

    global dim HighScoreNR [ 5 ]
    global dim HighScoreNAME$ [ 5 ]
    score = 1600
    for t = 1 to 5
       HighScoreNR [ t ] = score
       score = score - 200
    next t
    HighScoreNAME$ [ 1 ] = "CLIFF"
    HighScoreNAME$ [ 2 ] = "STINA"
    HighScoreNAME$ [ 3 ] = "ANN"
    HighScoreNAME$ [ 4 ] = "STOFFE"
    HighScoreNAME$ [ 5 ] = "CLAES"
    HighScore_Read()
return

function HighScore_Check()
    User_Position = 0
	for t = 1 to 5
        if Player.Score > HighScoreNR [ t ]
           User_Position = t
           exit
        endif
    next t
endfunction

function HighScore_Get_Name()
    if User_Position = 0 then goto exit_HS_get_name
    if Input_State = 0
       Input_State = 1
       StartTextInput ( )
    endif

    if GetTextInputCompleted ( ) = 1
       UserName$ = GetTextInput ( )
    endif
    exit_HS_get_name:
endfunction

function HighScore_Setup()
     if User_Position = 0 then goto exit_HS_Setup
     temp = 5
     for b = User_Position to 5
         HighScoreNR [ temp ] = HighScoreNR [ temp - 1 ]
         HighScoreNAME$ [ temp ] = HighScoreNAME$ [ temp - 1 ]
         dec temp
     next b

     HighScoreNR [ User_Position ]= Player.Score
     HighScoreNAME$ [ User_Position ] = UserName$
     Input_State = 0
     HighScore_Write()
     exit_HS_Setup:
endfunction

function HighScore_Show( Task )
     temp = HG_1-1
     for t =1 to 5
        SetTextVisible ( temp + t , task )
        SetTextString (temp + t ,Str(t) + " . "+ HighScoreNAME$ [ t ] + " . "+Str(HighScoreNR [ t ]))
     next t
endfunction

function HighScore_Write()
     OpenToWrite ( 1, "BoinkaDroid.Score", 0 )
     for t = 1 to 5
        WriteInteger ( 1,HighScoreNR [ t ])
        WriteString ( 1,HighScoreNAME$ [ t ])
     next t
     CloseFile ( 1 )
endfunction

function HighScore_Read()
     if GetFileExists( "BoinkaDroid.Score" )=1
        OpenToRead ( 1, "BoinkaDroid.Score" )
        for t = 1 to 5
           HighScoreNR [ t ] = ReadInteger ( 1 )
           HighScoreNAME$ [ t ] = ReadString ( 1 )
        next t
        CloseFile ( 1 )
     endif
endfunction

function HighScore_FileIO(state,Name$)
     if GetFileExists( Name$ )=0 and state=0 then goto skipReadHS
     if state = 1
        OpenToWrite ( 1, Name$, 0 )
     else
        OpenToRead ( 1, Name$ )
     endif
     for t = 1 to 5
        if state = 1
           WriteInteger ( 1,HighScoreNR [ t ])
           WriteString ( 1,HighScoreNAME$ [ t ])
        else
           HighScoreNR [ t ] = ReadInteger ( 1 )
           HighScoreNAME$ [ t ] = ReadString ( 1 )
        endif
     next t
     CloseFile ( 1 )
     skipReadHS:
endfunction

Function wotsit
  If this = that Then Goto somewhere
  (blah)

  somewhere:
EndFunction

Function wotsit
  If this = that Then ExitFunction
  (blah)
EndFunction

Function Data_LoadHighScores()
    FileState = GetFileExists("HighScore.dat")

    Select FileState

        Case 0: `Does not exist
            // Uh - Oh! We'll need to make the highscores and save them first.
            // This sets the highest score currently on the list.
            Score = MaxHighScores * 750

            For i = 1 to MaxHighScores
                HighScore[i].Name = "System"
                HighScore[i].Score = Score

                // Decrease the value, so that the score below this will be slightly easier to overtake.
                Score = Score - 700
            Next i

            // Save the scores for future reference.
            Data_SaveHighScores()
        EndCase

        Case 1: `Does Exist
            // Open the file, and read the data from it.
            TempFile = OpenToRead("HighScore.dat")

            For i = 1 to MaxHighScores
                HighScore[i].Name = ReadLine(TempFile)
                HighScore[i].Score = ReadInteger(TempFile)
            Next i
            CloseFile(TempFile)
        EndCase
    EndSelect
EndFunction

Function Data_SaveHighScores()
    // Open the file and save the data to it.
    TempFile = OpenToWrite("HighScore.dat", 0)
    For i = 1 to MaxHighScores
        WriteLine(TempFile, HighScore[i].Name)
        WriteInteger(TempFile, HighScore[i].Score)
    Next i
    CloseFile(TempFile)
EndFunction