76 lines
1.3 KiB
Plaintext
76 lines
1.3 KiB
Plaintext
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 |