// Project Example: SeekMusic()
// Created: 2015-01-20

//NOTE: For this example to work you will need to copy 'music.mp3'
//to the media folder at the location where you are running this example.
//The file can be found in your [AGK Install Directory]/Projects/Basic/Examples/Sound/PlayingMusic/media/

Setvirtualresolution(640,480)

//Check for required files in media folder
fileok=GetFileExists("music.mp3")
If fileok<>1
    Repeat
        Print ("music.mp3 needs to be in your media folder")
        Sync()
    Until Timer()>5
EndIF

If fileok=1

    AddVirtualButton(1,200,240,80)
    SetVirtualButtonText(1,"Rewind"+Chr(10)+"Start")
    AddVirtualButton(2,400,240,80)
    SetVirtualButtonText(2,"Skip"+Chr(10)+"Fwd")
    AddVirtualButton(3,600,440,80)
    SetVirtualButtonText(3,"Quit")
    
    Id=LoadMusic("music.mp3")
    PlayMusic(Id)
    Repeat
	Print("Current Music Position: "+Str(GetMusicPosition(),1)+" Seconds")
        If GetVirtualButtonPressed(1)
			//Seek back to 0 seconds, absolute (the beginning)
            SeekMusic(0,0)
        EndIf
        If GetVirtualButtonPressed(2)
			//Seek forward 10 seconds, relative (skip forward)
            SeekMusic(10,1)
        EndIf
        Sync()
    Until GetVirtualButtonPressed(3)
    
    DeleteMusic(Id)
    Print ("Music Deleted")
    Sync()
    Sleep(2000)
    
EndIf
End