Code:
RX.u=1024:RY.u=768
InitEngine3D()
InitSprite():InitKeyboard():InitMouse()
OpenWindow(0,0,0,RX,RY,"tip",#PB_Window_BorderLess|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),0,0,RX,RY,0,0,0,#PB_Screen_WaitSynchronization)
Add3DArchive(#PB_Compiler_Home + "examples/3d/Data/Textures", #PB_3DArchive_FileSystem)
Parse3DScripts()
luz.i=CreateLight(#PB_Any,$EEEEEE,4,4,2,#PB_Light_Point)
camara.i=CreateCamera(#PB_Any,0,0,100,100)
MoveCamera(camara.i,0,0,3,#PB_Absolute)
Global bolamaterial.i=CreateMaterial(#PB_Any,TextureID(LoadTexture(#PB_Any,"soil_wall.jpg")))
Global bolamalla.i=CreateSphere(#PB_Any,0.05,25,10)
Global bola.i=CreateEntity(#PB_Any,MeshID(bolamalla.i),MaterialID(bolamaterial.i),-1,0,0)
WorldGravity(0.0)
CreateEntityBody(bola,#PB_Entity_SphereBody,1.0,0.1,0.1):SetEntityAttribute(bola,#PB_Entity_LinearSleeping,0.0):SetEntityAttribute(bola,#PB_Entity_AngularSleeping,0.0)
Repeat
WindowEvent()
ExamineKeyboard()
If KeyboardReleased(#PB_Key_F3)
EntityVelocity(bola,0,0,0)
MoveEntity(bola,-1,0,0,#PB_Absolute)
RotateEntity(bola,0.0,0.0,0.0,#PB_Absolute)
ElseIf KeyboardReleased(#PB_Key_F5)
ApplyEntityImpulse(bola.i,0.16,0,0,0,0,0)
EndIf
RenderWorld()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
Run it and push F5 repeatedly and then F3, then again F5 repeteadly...
Program crashes and quits, with and without debugger.
With PB5.46LTS no problem at all.