Re: I would like Sinbad to stop sliding on the floor:)
Posted: Sun Jul 19, 2020 10:31 am
Hello. Thank you for your help and remarks. I will continue my learning of OGRE3D and do many tests with PureBasic 
On a small note..
Remember PB uses Bullet physics..It doesn't react well to large objects.
You have to think tiny...I've modified your first example (shrunk it considerably) so that
the physics are more to its liking. Massive values is not a good thing.
Hint: Large objects should have values (mass) of ex. 1, while small objects should
have considerably lesser mass. You can use larger mass than '1' but bullet physics
enjoys small values and small objects.
Here's your example - shrunken in size. The default earth-gravity works now.
Code: Select all
EnableExplicit
Global window, ww, wh, event, camera, Material, Mesh, Entity, Sound, Node
Global Player, PlayerSpeed.f, CurrentAnimation.s
CompilerIf Subsystem("OpenGL") = #False
MessageRequester("Error", "Please set the Library subsystem to OpenGL from IDE : Compiler... Compiler Options")
End
CompilerEndIf
InitEngine3D(#PB_Engine3D_DebugLog)
InitKeyboard()
InitSprite()
; Window & Screen 3D
window = OpenWindow(#PB_Any, 0, 0, 0, 0, "", #PB_Window_BorderLess | #PB_Window_Maximize)
ww = WindowWidth (window, #PB_Window_InnerCoordinate)
wh = WindowHeight(window, #PB_Window_InnerCoordinate)
OpenWindowedScreen(WindowID(window), 0, 0, ww, wh)
Add3DArchive(#PB_Compiler_Home+"Examples\3D\Data\", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home+"Examples\3D\Data\Textures", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home+"Examples\3D\Data\Packs\Sinbad.zip", #PB_3DArchive_Zip)
Parse3DScripts()
; Light
CreateLight(#PB_Any,RGB(255, 218, 185), 500, 1000, 1000)
WorldShadows(#PB_Shadow_Additive)
; Camera
camera = CreateCamera(#PB_Any, 0, 0, 100, 100)
MoveCamera(camera, 0, 0.5, 3)
CameraLookAt(camera, 0, 0, 0)
; Entity
Mesh = CreatePlane(#PB_Any, 10, 10, 1, 1, 5, 5)
Material = CreateMaterial(#PB_Any, TextureID(LoadTexture(#PB_Any, "MRAMOR6X6.jpg")))
Entity = CreateEntity(#PB_Any, MeshID(Mesh), MaterialID(Material))
CreateEntityBody(Entity, #PB_Entity_StaticBody, 1, 0, 1)
Mesh = CreateCube(#PB_Any, 0.2)
Material = CreateMaterial(#PB_Any, TextureID(LoadTexture(#PB_Any, "Caisse.png")))
Entity = CreateEntity(#PB_Any, MeshID(Mesh), MaterialID(Material), -3, 0.1, 0)
CreateEntityBody(Entity, #PB_Entity_StaticBody, 1, 0, 1)
Entity = CopyEntity(Entity, -1)
MoveEntity(Entity, 3, 0.1, 0)
Mesh = LoadMesh(#PB_Any, "sinbad.mesh")
Player = CreateEntity(-1, MeshID(Mesh), #PB_Material_None, 0, 2, 0)
ScaleEntity(Player, 0.1, 0.1, 0.1)
CreateEntityBody(Player, #PB_Entity_ConvexHullBody, 0.02, 1, 1)
EntityAngularFactor(Player, 0, 1, 0)
RotateEntity(Player, 0, 180, 0)
; Sound
Sound = LoadSound3D(#PB_Any, "Siren.ogg")
Node = CreateNode(#PB_Any, -3, 0, 0)
AttachNodeObject(Node, SoundID3D(Sound))
SoundRange3D(Sound, 0.1, 1)
PlaySound3D(Sound, #PB_Sound3D_Loop)
Sound = LoadSound3D(#PB_Any, "Roar.ogg")
Node = CreateNode(#PB_Any, 3, 0, 0)
AttachNodeObject(Node, SoundID3D(Sound))
SoundRange3D(Sound, 0.1, 1)
PlaySound3D(Sound, #PB_Sound3D_Loop)
; Render
While #True
event = WindowEvent()
ExamineKeyboard()
If event = #PB_Event_CloseWindow Or KeyboardPushed(#PB_Key_Escape)
Break
EndIf
If KeyboardPushed (#PB_Key_Up)
PlayerSpeed = 2
CurrentAnimation = "RunBase"
ElseIf KeyboardPushed (#PB_Key_Down)
PlayerSpeed = -2
CurrentAnimation = "RunBase"
Else
CurrentAnimation = "IdleTop"
PlayerSpeed = 0
EndIf
If KeyboardPushed (#PB_Key_Left)
RotateEntity(Player, 0, 3, 0, #PB_Relative)
CurrentAnimation = "RunBase"
ElseIf KeyboardPushed (#PB_Key_Right)
RotateEntity(Player, 0, -3, 0, #PB_Relative)
CurrentAnimation = "RunBase"
EndIf
If PlayerSpeed
DisableEntityBody(Player, #False) ; Wake up entity (BugWare)
MoveEntity(Player, 0, 0, PlayerSpeed, #PB_Absolute|#PB_Local)
EndIf
;Play animation
If EntityAnimationStatus(Player, CurrentAnimation) = #PB_EntityAnimation_Stopped
StartEntityAnimation(Player, CurrentAnimation)
EndIf
CameraFollow(Camera, EntityID(Player), 180, EntityY(Player) + 1, 3, 0.5, 0.5, #True)
;SoundListenerLocate(CameraX(Camera), CameraY(Camera), CameraZ(Camera)) - better to use the object
SoundListenerLocate(EntityX(Player), EntityY(player), EntityZ(Player))
RenderWorld()
FlipBuffers()
Wend
