UseBriefLZPacker()
CompilerIf #PB_Compiler_IsMainFile 
  
  Global NewList File.s()
  
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\SpriteSheetx192.png"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\LoopzFont.png"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\LoopzFont.dat"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\MonoFont.png"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\MonoFont.dat"
  AddElement(File()):File()=GetCurrentDirectory()+"Modules\Loopz03V2.mod"
  AddElement(File()):File()=GetCurrentDirectory()+"Modules\Loopz01.mod"
  AddElement(File()):File()=GetCurrentDirectory()+"Modules\Loopz02.mod"
  AddElement(File()):File()=GetCurrentDirectory()+"Modules\LoopzGameOver01.mod"
  AddElement(File()):File()=GetCurrentDirectory()+"Modules\LoopzGameOver03.mod"
  AddElement(File()):File()=GetCurrentDirectory()+"Modules\LoopzHighScore01V2.mod"
  AddElement(File()):File()=GetCurrentDirectory()+"Modules\Loopz10.mod"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-bonus-earned-in-video-game-2058.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-explainer-video-game-alert-sweep-236.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-extra-bonus-in-a-video-game-2045.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-video-game-retro-click-237.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-fast-small-sweep-transition-166.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-fairy-magic-sparkle-871.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\mixkit-erupting-volcano-lava-2442.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\My-Dead-Snd-Effect.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\Metal-hammer.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\322897-rhodesmas-connected-01.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\Woosh 06.wav"; moogy73_woosh-medium-short-01.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\Goutte 05.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\434897-thebuilder15-collapse.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\446112-justinvoke-freeze.wav"
  AddElement(File()):File()=GetCurrentDirectory()+"Datas\jukebox.wav"
   AddElement(File()):File()=GetCurrentDirectory()+"Datas\Goutte 03.wav"
  
  #DebugPackageVerbose=#True
  CompilerIf #DebugPackageVerbose=#True
    Debug "Create Package";
  CompilerEndIf
  If CreatePack(0, "Datas.pck") 
    ForEach File()
      CompilerIf #DebugPackageVerbose=#True
        Debug "Add "+GetFilePart(File())
      CompilerEndIf
      If FileSize(File())
        AddPackFile(0, File(), GetFilePart(File()))
      Else
        MessageRequester("No find File",File())
        End
      EndIf
    Next
    ClosePack(0)
    CompilerIf #DebugPackageVerbose=#True
      Debug "Finish"
    CompilerEndIf
  Else
    MessageRequester("Package Error","Can't Create Package")
    
  EndIf 
  End
CompilerEndIf 

Procedure ReadDataPackage(PackFile.s,FileName.S)
  Protected *Mem
  If FileSize(PackFile) And OpenPack(0,PackFile)
    ExaminePack(0)
    While NextPackEntry(0)
      If PackEntryName(0)=FileName
        *Mem=AllocateMemory(PackEntrySize(0))
        CompilerIf #DebugPackageVerbose=#True
          Debug "UnPack "+PackEntryName(0)+" size:"+Str(PackEntrySize(0))
        CompilerEndIf
        If UncompressPackMemory(0, *Mem, PackEntrySize(0))<>-1
          ProcedureReturn *Mem
        Else
          MessageRequester("Data Pack Error","Can't uncompress File "+FileName+" From "+PackFile)
          End
        EndIf
      EndIf 
    Wend
    MessageRequester("Data Pack Error","Can't Find File "+FileName+" From "+PackFile)
    End
  Else
    MessageRequester("Data Pack Error","Can't Load File "+FileName+" From "+PackFile)
    End
  EndIf
EndProcedure

Procedure.i CatchSpriteFromPackage(Sprite.i,FileName.s,PackFile.s="Datas.pck")
  Protected *Mem
  Protected Result.i
  *Mem=ReadDataPackage(PackFile,FileName)
  Result=CatchSprite(Sprite,*Mem,#PB_Sprite_AlphaBlending)
  FreeMemory(*Mem)
  ProcedureReturn Result
EndProcedure

Procedure.i CatchMusicFromPackage(Music.i,FileName.s,PackFile.s="Datas.pck")
  Protected *Mem
  Protected Result.i
  *Mem=ReadDataPackage(PackFile,FileName)
  Result=CatchMusic(Music,*Mem,MemorySize(*Mem))
  FreeMemory(*Mem)
  ProcedureReturn Result
EndProcedure

Procedure.i CatchSoundFromPackage(Snd.i,FileName.s,PackFile.s="Datas.pck")
  Protected *Mem
  Protected Result.i
  *Mem=ReadDataPackage(PackFile,FileName)
  If *Mem>0
    Result=CatchSound(Snd,*Mem,MemorySize(*Mem))
    FreeMemory(*Mem)
    ProcedureReturn Result
  Else
    MessageRequester("Error","Can't Load Pack "+PackFile+" File name "+FileName)
    End
  EndIf
EndProcedure

; IDE Options = PureBasic 6.00 Beta 9 (Windows - x64)
; CursorPosition = 32
; Folding = --
; EnableXP