I'm making a tool and a DLL for create compressed pack for
using with blitz, you can simply use your packed data with
some command like :
PPK_LoadTerrain(Name$,Parent=0)
PPK_LoadImage(Name$)
PPK_LoadSprite(Name$,Flags=0,Parent=0)
PPK_LoadBrush(Name$,Flags=0,U_Scale=1,V_Scale=1)
PPK_LoadTexture(Name$,Flags=1)
PPK_LoadMD2(Name$,Parent=0)
PPK_LoadMesh(Name$,Parent=0)
I'm making a little tool for create PPK files for using
with the Powerpacker.dll (with very fast decompression !)
A big adventage is that you are not obliged to modify your
path in your code ! powerpacker reconize long path+filename
you must only put PPK_ before each load media command...
for exemple a 3DS file (745 ko => 64 Ko) after compression
Example of code :
-----------------
Include "Inc_PowerPacker.bb"
Graphics3D 800,600,32,2
SetBuffer BackBuffer()
; -----------------
; PPK File init
; ------------------
Camera=CreateCamera()
PositionEntity Camera,0,0,-10
Light=CreateLight()
PositionEntity Light,10,10,-10
PPK_OpenPak("DATAS.PPK")
;Music=PPK_LoadSound("Sound.mp3")
;Image=PPK_LoadImage("Image.bmp")
Mesh=PPK_LoadMesh("Level.3DS")
PPK_ClosePack()
;PlaySound Music
While Not KeyHit(1)
RenderWorld
TurnEntity Mesh,0,1,0
;DrawImage Image,0,0
Flip
Wend
End
Try a little demo :
http://www.blitz3dfr.com/powerpacker_projet/powerpacker.zip
using with blitz, you can simply use your packed data with
some command like :
PPK_LoadTerrain(Name$,Parent=0)
PPK_LoadImage(Name$)
PPK_LoadSprite(Name$,Flags=0,Parent=0)
PPK_LoadBrush(Name$,Flags=0,U_Scale=1,V_Scale=1)
PPK_LoadTexture(Name$,Flags=1)
PPK_LoadMD2(Name$,Parent=0)
PPK_LoadMesh(Name$,Parent=0)
I'm making a little tool for create PPK files for using
with the Powerpacker.dll (with very fast decompression !)
A big adventage is that you are not obliged to modify your
path in your code ! powerpacker reconize long path+filename
you must only put PPK_ before each load media command...
for exemple a 3DS file (745 ko => 64 Ko) after compression
Example of code :
-----------------
Include "Inc_PowerPacker.bb"
Graphics3D 800,600,32,2
SetBuffer BackBuffer()
; -----------------
; PPK File init
; ------------------
Camera=CreateCamera()
PositionEntity Camera,0,0,-10
Light=CreateLight()
PositionEntity Light,10,10,-10
PPK_OpenPak("DATAS.PPK")
;Music=PPK_LoadSound("Sound.mp3")
;Image=PPK_LoadImage("Image.bmp")
Mesh=PPK_LoadMesh("Level.3DS")
PPK_ClosePack()
;PlaySound Music
While Not KeyHit(1)
RenderWorld
TurnEntity Mesh,0,1,0
;DrawImage Image,0,0
Flip
Wend
End
Try a little demo :
http://www.blitz3dfr.com/powerpacker_projet/powerpacker.zip