91 lines
3.2 KiB
Plaintext
91 lines
3.2 KiB
Plaintext
|
|
|
|
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 |