I've found it by accident actually, and it works under pb natively!
Here's the code!
Code: Select all
If InitSprite() And InitSprite3D() And InitKeyboard()
OpenScreen(800,600,32,"bmp transparency!")
For a=0 To 20
LoadSprite(a+1,GetCurrentDirectory()+"gfx\p"+RSet(Str(a+1),4,"0")+".bmp",#PB_Sprite_Texture | #PB_Sprite_AlphaBlending)
CreateSprite3D(a+1,a+1)
Next
a=0
Repeat
ClearScreen(back)
;ClearScreen(0)
Start3D()
DisplaySprite3D(a+1,200,200,255)
Stop3D()
FlipBuffers(2)
ExamineKeyboard()
If KeyboardReleased(#PB_Key_All)
End
EndIf
If ElapsedMilliseconds() - last > 50
last=ElapsedMilliseconds()
a+1
If a>=20
a=2
back=RGB(Random(255),Random(255),Random(255))
EndIf
EndIf
ForEver
EndIfFile: 138kb->battle.zip





