123 lines
4.8 KiB
Plaintext
123 lines
4.8 KiB
Plaintext
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 |