Initial commit

Sound.pbi

@@ -0,0 +1,76 @@
+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