
Code : Tout sélectionner
InitEngine3D()
InitSprite()
InitKeyboard()
Add3DArchive("", #PB_3DArchive_FileSystem)
OpenScreen(800,600, 32, "Test")
CreateCamera(0, 0, 0, 100, 100)
CameraLocate(0,0,0,100)
CreateParticleEmitter(0, 1, 1, 1, #PB_Particle_Point)
Repeat
ExamineKeyboard()
ClearScreen(0, 0, 0)
RenderWorld()
FlipBuffers()
Until KeyboardReleased(#PB_Key_Escape)
FreeParticleEmitter(0)
Repeat
ExamineKeyboard()
ClearScreen(0, 0, 0)
RenderWorld()
FlipBuffers()
Until KeyboardReleased(#PB_Key_Escape)