Initial commit

2025-07-17 20:36:20 +02:00
commit 069402c4ec
37 changed files with 7849 additions and 0 deletions
--- a/Package.pb
+++ b/Package.pb
@@ -0,0 +1,123 @@
+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