// Project: load save top 10 scores 
// Created: 24-05-19

SetErrorMode(2)
//SetVSync(1)

width# = GetMaxDeviceWidth()
height# = GetMaxDeviceHeight()
SetWindowSize(width#,height#,1)
SetSyncRate(30,0)
SetDisplayAspect(-1.0)
SetScissor(0,0,0,0)
UseNewDefaultFonts(1)
SetPrintSize(3)
SetSkyboxVisible(1)
SetSkyBoxHorizonColor(0,0,0)

//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  top 10 hi scores setup, load and first save
//  C:/users/[name]/AppData/Local/AGKApps/YOUR GAME NAME/media/save.dat << you can delete save file here to reset scores
type scores
    name$ as string
    data as integer
endtype
global dim scored[10] as scores
global dim slider[10] as scores

if GetFileExists("save.dat")
    ThisFile = OpenToRead("save.dat")
    ThisSave$ = ReadLine(ThisFile)
else
    ThisSave$ = "missing"
endIf

if ThisSave$ <> "missing"
    Total = CountStringTokens(ThisSave$, "|") //total sets of paired data in string
    for x = 1 to Total
        ThisStat$ = GetStringToken(ThisSave$, "|", x) //divide the paired info (name$:data) and assign
        scored[x].name$ = GetStringToken(ThisStat$,":", 1)
        scored[x].data = VAL(GetStringToken(ThisStat$,":", 2))
	next x
else                 // if missing then save default hi score file
    for x=1 to 10
        scored[x].name$ = "ando"
	    scored[x].data = (11-x)*1000
	next x
	//create respective pairs of data (name:score)
	    first$=scored[1].name$+":"+str(scored[1].data)
	    second$=scored[2].name$+":"+str(scored[2].data)
	    third$=scored[3].name$+":"+str(scored[3].data)
	    fourth$=scored[4].name$+":"+str(scored[4].data)
	    fifth$=scored[5].name$+":"+str(scored[5].data)
	    sixth$=scored[6].name$+":"+str(scored[6].data)
	    seventh$=scored[7].name$+":"+str(scored[7].data)
	    eighth$=scored[8].name$+":"+str(scored[8].data)
	    nineth$=scored[9].name$+":"+str(scored[9].data)
	    tenth$=scored[10].name$+":"+str(scored[10].data)
	    
	    //combine individual data sets separated by pipes |
	    SaveString$ = first$ + "|" + second$ + "|" + third$ + "|" + fourth$ + "|" + fifth$ + "|" + sixth$ + "|" + seventh$ + "|" + eighth$ + "|" + nineth$ + "|" + tenth$ 
	     
	    ThisFile = OpenToWrite("save.dat")
	        WriteLine(ThisFile,SaveString$) //can use WriteString() to make "unreadable"
	    CloseFile(ThisFile)
endif

//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

entername=LoadSound("please enter your name.wav")









// xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx title screen loop

start:

repeat
	
	
	for x=1 to 10
        print("  "+str(x)+"   "+scored[x].name$+" "+str(scored[x].data))
    next x
    
    for i=1 to 5
        print(" ")
    next i
    
    print("")
    print("")
    print("      TITLE SCREEN GOES HERE")
    print("")
    print("")
    print(" spacebar to continue")
    print(" escape to quit")
    
    sync()
	if GetrawKeyPressed(27) then end  //  Escape key quits program
until GetRawKeyPressed(32)            //  spacebar to continue









// keep this if you want the save name voice
playname=0

// keep and use these 2 variables
score=0
gameover=0

do
    
    print(" Top 10 Score Rank "+str(slot))
    print(" SCORE  "+str(score))
    print("")
    print("")
    print("")
    print(" hold Z key to simulate increasing score")
    print(" press X key to simulate gameover")
    if getrawkeystate(90) then score=score+random(50,100) // Z key
    if getrawkeystate(88) then gameover=1                 // X key
    
    
    
    
    
    //  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  prepare and save
    
    for x=9 to 1 step -1
        if score < scored[10].data then slot=11
        if score > scored[x+1].data
            if score < scored[x].data
                slot=x+1
            endif
        endif
        if score > scored[1].data then slot=1
    next x
    
    if gameover=1
        if slot < 11
            for x=9 to 1 step -1
                slider[x+1].name$=scored[x].name$
                slider[x+1].data=scored[x].data
            next x
	        StartTextInput()
	        text$ = ""
	        playname=1
	        repeat
	            if not GetSoundInstancePlaying(inst)
	                if playname=1
	                    inst=playsound(entername,70,0)
	                    playname=2
	                endif
	            endif
	            text$ = GetTextInput ( )
	            if text$="" then text$="HAHA"
	            sync()
	        until getrawkeypressed(13)
        endif
        gameover=2
    endif
    
    if gameover=2
        for x=10 to 1 step -1
            if x>slot
                scored[x].name$=slider[x].name$
                scored[x].data=slider[x].data
            endif
            if x=slot
                scored[x].name$=text$
                scored[x].data=score
            endif
        next x
        gameover=3
    endif
    
    if gameover=3
	    //create respective pairs of data (name:score)
	    first$=scored[1].name$+":"+str(scored[1].data)
	    second$=scored[2].name$+":"+str(scored[2].data)
	    third$=scored[3].name$+":"+str(scored[3].data)
	    fourth$=scored[4].name$+":"+str(scored[4].data)
	    fifth$=scored[5].name$+":"+str(scored[5].data)
	    sixth$=scored[6].name$+":"+str(scored[6].data)
	    seventh$=scored[7].name$+":"+str(scored[7].data)
	    eighth$=scored[8].name$+":"+str(scored[8].data)
	    nineth$=scored[9].name$+":"+str(scored[9].data)
	    tenth$=scored[10].name$+":"+str(scored[10].data)
	    
	    //combine individual data sets separated by pipes |
	    SaveString$ = first$ + "|" + second$ + "|" + third$ + "|" + fourth$ + "|" + fifth$ + "|" + sixth$ + "|" + seventh$ + "|" + eighth$ + "|" + nineth$ + "|" + tenth$ 
	     
	    ThisFile = OpenToWrite("save.dat")
	        WriteLine(ThisFile,SaveString$) //can use WriteString() to make "unreadable"
	    CloseFile(ThisFile)
        gameover=4
    endif
    
    sync()
    if GetrawKeyPressed(27) or gameover=4 then goto start  //  Escape key
loop