PureBasic Forum

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)