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,91 @@
+
+
+Procedure WriteDataPackage(List File.s(),FileName.s="Data.pck")
+  Protected Size.i,Adr.i
+  If CreateFile(0, FileName)
+    WriteLong(0,ListSize(File()))
+    Adr=ListSize(File())*4*2+4
+    ;WriteCatalogue
+    Debug "Catalogue"
+    ForEach File()
+      Size=FileSize(File())
+      If Size<0:
+        Debug "Error File :"+File()
+        CloseFile(0)
+        End
+      EndIf 
+      WriteLong(0,Adr)
+      Debug Str(ListIndex(File()))+") Adr="+Str(Adr)+" Size="+Str(Size)
+      WriteLong(0,Size)
+      Adr=Adr+Size
+    Next
+    ;WriteFile
+    ForEach File()
+      Size=FileSize(File())
+      Debug Str(ListIndex(File()))+":"+Str(Loc(0))
+      If ReadFile(1, File())
+        *Mem=AllocateMemory(Size)
+        ReadData(1,*Mem,Size)
+        CloseFile(1)
+        WriteData(0,*Mem,Size)
+        FreeMemory(*Mem)
+        
+      EndIf 
+      
+    Next
+    
+    CloseFile(0)
+  Else
+    Debug "ERRO"
+  EndIf   
+EndProcedure
+
+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/LoopzHighScore01.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"
+
+  
+WriteDataPackage(File())
+
+Procedure.i ReadDataPackage(FileName.s,FileNumber.l)
+  Protected NbFile.l,Adr.i,Size.i, *Mem
+  If OpenFile(0,Filename)
+    NbFile=ReadLong(0)
+    Adr=4+FileNumber*4*2
+    FileSeek(0, Adr)
+    Adr=ReadLong(0)
+    Size=ReadLong(0)
+    Debug Str(FileNumber)+") Adr="+Str(Adr)+" Size="+Str(Size)
+    *Mem=AllocateMemory(Size)
+    FileSeek(0,Adr)
+    ReadData(0,*Mem,Size)
+    CloseFile(0)
+    ProcedureReturn *Mem
+  EndIf 
+EndProcedure
+
+ReadDataPackage("Data.pck",3)
+; IDE Options = PureBasic 6.00 Beta 6 (Windows - x64)
+; CursorPosition = 63
+; FirstLine = 18
+; Folding = -
+; EnableXP