If it can't be done, maybe you can add a password protected zip reading, eg
Code: Select all
Add3DArchive("MyData.zip", #PB_3DArchive_Zip,"my_password")

Code: Select all
Add3DArchive("MyData.zip", #PB_3DArchive_Zip,"my_password")
Code: Select all
InitEngine3D()
InitSprite()
UseJPEGImageDecoder()
OpenWindow(0, 0, 0, 800, 600, "BlitzTest")
OpenWindowedScreen(WindowID(0), 0, 0, 800, 600)
Procedure.i CatchTexture(Index.i)
Protected tx.i, im.i
Select Index
Case 0
im = CatchImage(#PB_Any, ?TheImage)
Case 1
;
EndSelect
tx = CreateTexture(#PB_Any, ImageWidth(im), ImageHeight(im))
StartDrawing(TextureOutput(tx))
DrawImage(ImageID(im),0,0)
StopDrawing()
ProcedureReturn tx
EndProcedure
Debug CatchTexture(0)
End
DataSection
TheImage:
IncludeBinary "G:\atlantis.jpg"
EndDataSection