Enumeration
  #Snd_PutPiece
  #Snd_CanTPutPiece
  #Snd_DoALoop
  #Snd_GetBonus
  #Snd_GetBonus2
  #Snd_DeletePiece
  #Snd_GetJewel
  #Snd_EarthQuake
  #Snd_DeadBonus
  #Snd_MetalHammer
  #Snd_WaterDrop
  #Snd_Woosh
  #Snd_Collapse
  #Snd_Freeze
  #Snd_Jukebox
  #Snd_End
EndEnumeration

Enumeration
  #Music_Intro
  #Music_GameA
  #Music_GameB
  #Music_Missed
  #Music_GameOver
  #Music_HighScore
  #Music_Credits
  #Music_End
EndEnumeration




Procedure StartMusic(Mus.l,Reset.b=#True)
  If Mus<>Game\CurrentMusic 
    Protected n.l
    For n=0 To #Music_End
       If IsMusic(n):StopMusic(n):EndIf 
    Next
  If IsMusic(Mus)
    Game\CurrentMusic=Mus

    
    If Reset=#True
      SetMusicPosition(Mus,0)
    EndIf
    ;TODO remove ";"
    If Game\VolumeMusic>0
      PlayMusic(Mus)
    Else
      Debug "NO MUS"
    EndIf 
  EndIf   
EndIf 

EndProcedure

Procedure CheckMusic()
 If Game\CurrentMusic=#Music_Missed
    
    If Game\Mode=#Mode_Game_Run And GetMusicPosition(#Music_Missed)=0 And GetMusicRow(#Music_Missed)>=16
      ;Debug"######################"
      StopMusic(#Music_Missed)
     
       If Game\ScoreData\Difficulty<2
        StartMusic(#Music_GameA,#False)
      Else
        StartMusic(#Music_GameB,#False)
      EndIf 
    EndIf 
  EndIf   
EndProcedure
; IDE Options = PureBasic 6.00 LTS (Windows - x64)
; CursorPosition = 50
; Folding = -
; EnableXP