Powerpacker

Powerpacker by Filax

http://www.blitz3dfr.com

About

PowerPacker 1.0 By P.Agnisola (C) 2004

What is powerpacker ?

With powerpacker create easily crypted with RSA and compressed big file for your blitz apps ! You can merge PPK file in your executable
file for distribute your apps and media in one file.

Licence ?

You can use powerpacker for personal or commercial projects :)

But ! you should not distribute the full code or a partial
section of Inc_PowerPacker.bb code without our permission !

Interface :

PPK Blitz commands :

PPK_OpenPak(Name$,RSAKey$,OutDir$)
Use this command to init pack file, the optional OutDir parameter can be used for define the ouput path for decrunch files
(by default the windows TEMP directory is used).The RSAKey define en encryption key used (you can use anything you like).

PPK_ClosePack()
Use this command to close PPK file.

PPK_ExtractFile(Name$)
Use this command to only extract a file. if you want to read this file use for example :

PPK_ExtractFile("MyTexte.txt")
MyFile=ReadFile(PPK_ExtractDirectory$+"MyTexte.txt")

PPK_LoadSound(Name$)
Use this command to load a sound file from PPK, example :

MySound=PPK_LoadSound("MySound.mp3')

PPK_Load3DSound(Name$)
Use this command to load a sound 3D file from PPK, example :

MySound=PPK_Load3DSound("MySound.mp3')

PPK_PlayMusic(Name$)
Use this command to play a music file from PPK, example :

MyMusic=PPK_PlayMusic("MySound.mp3')

PPK_LoadTerrain(Name$,Parent=0)
Use this command to create a terrain from PPK, example :

MyTerrain=PPK_LoadTerrain("MyTerrain.bmp")

PPK_LoadImage(Name$)
Use this command to load an image file from PPK, example :

MyImage=PPK_LoadImage("Bitmap.bmp')

PPK_LoadSprite(Name$,Flags=0,Parent=0)
Use this command to load a sprite file from PPK, example :

MySprite=PPK_LoadSprite("Sprite.bmp')

PPK_LoadBrush(Name$,Flags=0,U_Scale=1,V_Scale=1)
Use this command to load a brush file from PPK, example :

MyBrush=PPK_LoadBrush("Bitmap.bmp',1+2)

PPK_LoadTexture(Name$,Flags=1)
Use this command to load a texture file from PPK, example :

MyTexture=PPK_LoadTexture("Bitmap.bmp',2+512+256)

PPK_LoadMD2(Name$,Parent=0)
Use this command to load a MD2 model file from PPK, example :

MyModel=PPK_LoadMD2("Model.md2',MyPivot)

PPK_LoadMesh(Name$,Parent=0)
Use this command to load a 3DS,B3D,X file from PPK (model textures are extracted), example :

MyModel=PPK_LoadMesh("Model.b3d',MyWorld)

PPK_LoadAnimMesh(Name$,Parent=0)
Use this command to load a 3DS,B3D,X animated file from PPK (model textures are extracted), example :

MyModel=PPK_LoadAnimMesh("Model.b3d',MyWorld)

Example of code :

Include "Inc_PowerPacker.bb"

Graphics3D 800,600,32,2
SetBuffer BackBuffer()

; -----------------
; PPK File init
; ------------------

Light=CreateLight()
PositionEntity Light,10,10,-10

Camera=CreateCamera()
PositionEntity Camera,0,0,-10

PPK_OpenPak("DATAS.PPK")
;Music=PPK_LoadSound("Sound.mp3")
;Image=PPK_LoadImage("Image.bmp")
;Mesh=PPK_LoadMesh("Mesh.3ds")
PPK_ClosePack()

;PlaySound Music

While Not KeyHit(1)
RenderWorld

;TurnEntity Mesh,0,1,0
;DrawImage Image,0,0
Flip
Wend

End

Try powerpacker :
http://www.blitz3dfr.com/portal_joomla/index.php?option=com_content&task=view&id=19&Itemid=44

Web site :
http://www.blitz3dfr.com/sharewares/powerpacker/powerpacker.zip

To register powerpacker (price 12 EUROS) :
http://www.shareit.com/product.html?productid=210917&languageid=1