When moving, the speed can change unpredictably. 3d FPS

Everything related to 3D programming
Post Reply
siesit
User
User
Posts: 22
Joined: Fri Aug 21, 2009 8:40 am
Location: rus
Contact:
Contact siesit

When moving, the speed can change unpredictably. 3d FPS

Post by siesit »

I'm trying to do something but I get unstable results.

In this example, the NPC's speed changes dramatically depending on where the camera is pointing.
When moving, the speed can change unpredictably.

How to solve this correctly?

Code: Select all

;- CONST

Global scale=20*10

;Camera 
Global.i camR     = 1000          ;Camera range

Global GUI, room_ok

#PlayerSpeed = 60
#CameraSpeed = 0.8
#window = 2
#kam_0 = 1

#plane = 0
#planent = 0
#cam_type = 2  ;main -2,  - 1
#Light=3

init=0

Global ScreenWidth, ScreenHeight

Structure s_Key
      Up.i
      Down.i
      Left.i
      Right.i
      Jump.i
EndStructure

Structure s_Entity
      EntityBody.i
      BodyOffsetY.f
      elapsedTime.f
      rot_x.f
      rot_y.f
      rot_z.f
      
      Fov.f
      Key.s_Key
      MainNode.i
      CameraNode.i
      HandNode.i
      ForwardNode.i
      StrafeNode.i
      LampNode.i
      hidelamp.i
      HideMenu.i
EndStructure
Global main_Entity.s_Entity

Macro GetNodePosition(Position, Node)
  Position\x = NodeX(Node)
  Position\y = NodeY(Node)
  Position\z = NodeZ(Node)
EndMacro

Macro SubVector3(V, V1, V2)
  V\x = V1\x - V2\x
  V\y = V1\y - V2\y
  V\z = V1\z - V2\z
EndMacro

;-Declare
Declare HandleEntity(*Entity.s_Entity)
Declare OnGround(*Entity.s_Entity)

Define Robot.s_Entity
Global prefix$ = "main"
Global Scroll_stor, Scroll_inv

;;;;;;;;;;;;;;;;

Global global_x.l = 24;256-200
Global global_y.l = 12;32-10
Global global_z.l = 24;256-200


Global flash_on = 0

Declare g_start(type)

Structure game
      state_base_lamp.l
      wrds_id.l
      cur_save_ver.l
      item_up.l
      inv.l
      room_id.l
      inventory.s
      th_light.l
      sg.l
      flashlight.l
EndStructure

Global game.game

;- INIT
InitEngine3D();#PB_Engine3D_EnableCG)
InitSprite()
InitKeyboard()
InitMouse()


If #window=1
      OpenWindow(#window, 0, 0, 1280, 1024, "FPS-Test", #PB_Window_ScreenCentered)
      OpenWindowedScreen(WindowID(#window), 10, 10, 1280-20, 1024-20, 1, 10, 10, #PB_Screen_SmartSynchronization)
EndIf

If #window=2
      OpenScreen(1280, 1024, 32, "test", #PB_Screen_SmartSynchronization)
      AntialiasingMode(#PB_AntialiasingMode_x6)

      SetFrameRate(60)
EndIf

Add3DArchive(#PB_Compiler_Home + "Examples/3D/Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home + "Examples/3D/Data/Scripts", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home + "examples/3d/Data/Models", #PB_3DArchive_FileSystem)
;Add3DArchive("D:\~3D\m2", #PB_3DArchive_FileSystem)

Parse3DScripts()

Enumeration mesh 100 Step 10
      #mesh_baseblock
EndEnumeration

Global FPS, block$, index_cur.l
Global light2



;> LoadMesh

;Robot Body
LoadMesh(0, "robot.mesh")
TransformMesh(0, 0, 0, 0, 1, 1, 1, 0, -90, 0)

LoadMesh(1, "AKM.mesh")
LoadMesh(2, "ninja.mesh")
; TransformMesh(2, 0, 0, 0, 1, 1, 1, 0, 90, 0)

LoadTexture(0, "Dirt.jpg")

;- Material
CreateMaterial(1, LoadTexture(1,"viseur-jeux.png"))
MaterialBlendingMode(1, #PB_Material_AlphaBlend)

CreateMaterial(4, LoadTexture(4, "Dirt.jpg"))
CreateMaterial(5, LoadTexture(5, "t1.jpg"))
CreateMaterial(6, LoadTexture(6, "r2skin.jpg"))
CreateMaterial(7, LoadTexture(7, "RustySteel.jpg"))

;LoadMesh(#mesh_baseblock, "Barrel.mesh");
LoadMesh(#mesh_baseblock, "chassis.mesh");
TransformMesh(#mesh_baseblock, 0, 0, 0, 10, 10, 10, 0, 0, 0)

;CreateCube(#mesh_baseblock, 180)
;TransformMesh(#mesh_baseblock, -100, 10, -100,  1.1, 1.1, 0.1,  90, 0, 0)

BuildMeshShadowVolume(#mesh_baseblock)
NormalizeMesh(#mesh_baseblock) 

;<



Procedure Create_static(sg, mesh, Material, x, y, z, body=1, pick_mask=1, ent_grp=1, ent_mask=1, vis_mask=2);, scale=1, rot_x=0, rot_y=0, rot_z=0

ent = CreateEntity(#PB_Any, mesh, Material, x, y, z, pick_mask, vis_mask)
If ent
      ;EntityRenderMode(ent, #PB_Shadow_None)   
      EntityRenderMode(ent, #PB_Entity_CastShadow)  
      
      SetRenderQueue(EntityID(ent), 50 , 1000)
      
      If body
            CreateEntityBody(ent, #PB_Entity_StaticBody);, 0, 0.8, 1
            SetEntityCollisionFilter(ent, ent_grp, ent_mask)
      EndIf
      
      If vis_mask=2
            AddStaticGeometryEntity(sg, EntityID(ent), x, y, z, 1, 1, 1)
            HideEntity(ent, 1)
      EndIf
EndIf

ProcedureReturn ent
EndProcedure

Procedure StaticGeometry()
Define rf_x, rf_y, rf_z, r_x, r_y, r_z, f, ok, inn, x, z, y
Define.i ent, sg
Define rx, ry, rz, rrx, rry, rrz, inner_room, light_lamp, room$


sg = CreateStaticGeometry(#PB_Any, global_x*scale, global_y*scale, global_z*scale, 0)
Debug "Static " + sg
  
create_static(sg, MeshID(0), MaterialID(4), -1*scale, 0*scale, -1*scale)
create_static(sg, MeshID(0), MaterialID(4), (global_x+1)*scale, 0*scale, -1*scale)
create_static(sg, MeshID(0), MaterialID(4), -1*scale, 0*scale, (global_z+1)*scale)
create_static(sg, MeshID(0), MaterialID(4), (global_x+1)*scale, 0*scale, (global_z+1)*scale)


create_static(sg, MeshID(0), MaterialID(4), -1*scale, (global_y+1)*scale, -1*scale)
create_static(sg, MeshID(0), MaterialID(4), (global_x+1)*scale, (global_y+1)*scale, -1*scale)
create_static(sg, MeshID(0), MaterialID(4), -1*scale, (global_y+1)*scale, (global_z+1)*scale)
create_static(sg, MeshID(0), MaterialID(4), (global_x+1)*scale, (global_y+1)*scale, (global_z+1)*scale)


For u = 0 To 12
For i = 0 To 12
create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (-1+i)*scale, (0)*scale, (-1+u)*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (global_x+1+i)*scale, (global_y+1)*scale, -1*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (-1+i)*scale, (global_y+1)*scale, (global_z+1)*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (global_x+1+i)*scale, (global_y+1)*scale, (global_z+1)*scale)
cnt+1
Next
Next

For t = 0 To 60-40
For u = 0 To 12
For i = 0 To 12


create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (-22+i)*scale, (t)*scale/8, (-12+u)*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (global_x+1+i)*scale, (global_y+1)*scale, -1*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (-1+i)*scale, (global_y+1)*scale, (global_z+1)*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (global_x+1+i)*scale, (global_y+1)*scale, (global_z+1)*scale)
cnt+1
Next
Next
Next

Debug cnt
; ProcedureReturn sg

ProcedureReturn sg
EndProcedure

Procedure game_start()
Define.i ground, t, i

;- config
game\state_base_lamp=1
;game\state_base_lamp=3


game\sg=StaticGeometry()
Debug game\sg
BuildStaticGeometry(game\sg)
Debug "SG==="

      PosMain_x = 0*scale
      PosMain_y = 5*scale
      PosMain_z = 0*scale

     
      MoveEntity(main_Entity\EntityBody, PosMain_x, PosMain_y, PosMain_z, #PB_Absolute)
      SoundListenerLocate(PosMain_x, PosMain_y, PosMain_z)
      MoveNode(main_Entity\MainNode, PosMain_x, PosMain_y - main_Entity\BodyOffsetY, PosMain_z, #PB_Absolute)
      
      Debug main_Entity\EntityBody
      Debug EntityX(main_Entity\EntityBody)
      Debug EntityY(main_Entity\EntityBody)
      Debug EntityZ(main_Entity\EntityBody)
      
      main_Entity\rot_x = Rot_x
      main_Entity\rot_y = Rot_y
      main_Entity\rot_z = Rot_z

      RotateEntity(main_Entity\EntityBody, 0, main_Entity\Rot_y, 0, #PB_Absolute)
      RotateNode(main_Entity\CameraNode, main_Entity\Rot_x, 0, 0, #PB_Absolute)
      RotateNode(main_Entity\HandNode, main_Entity\Rot_x, 0, 0, #PB_Absolute)
      RotateNode(main_Entity\MainNode, 0, EntityYaw(main_Entity\EntityBody), 0)

EndProcedure

;- -----------------------------------------------------------------------

global_x.l = 12;256-200
global_y.l = 3;32-10
global_z.l = 12;256-200
flash_on = 1
prefix$ = "main_0"

EnableExplicit

;- START
Define.f KeyX, KeyY, MouseX, MouseY
Define nx.f, nz.f, Boost.f = 2.2, Yaw.f, Pitch.f, zaehler
Define.i ground, t, i
Define.b firster = #True

Define Mesh_plane, ent_plane, Mesh_robot, ent_robot, light1, Light.l

Mesh_plane=CreatePlane(#PB_Any, global_x*scale*2, global_z*scale*2, scale, scale, 20, 20)
ground = GetScriptMaterial(#PB_Any, "Scene/GroundBlend")
;TransformMesh(Mesh_plane, 256*10, -10, 256*10, 1, 1, 1, 0, 0, 0)
ent_plane=CreateEntity(#PB_Any, MeshID(Mesh_plane), MaterialID(ground), 0, -1.5, 0)
EntityRenderMode(ent_plane, 0)      
CreateEntityBody(ent_plane, #PB_Entity_StaticBody)

;- GAME

;WorldShadows(#PB_Shadow_Modulative, #PB_Default, RGB(205, 205, 205), 128)

AmbientColor(RGB(22, 14, 35))
Fog(RGB(126, 58, 1), 2048+5, 1*scale, 28*scale)

; WorldDebug(#PB_World_DebugBody)
; WorldDebug(#PB_World_DebugEntity)

EnableWorldCollisions(1) 
EnableWorldPhysics(1)
WorldGravity(-90.806)

AntialiasingMode(#PB_AntialiasingMode_x6)

light2 = CreateLight(#PB_Any ,RGB(255*0.4, 255*0.4,255*0.4), (1*scale), (1*scale), (1*scale), #PB_Light_Spot)
SetLightColor(light2, #PB_Light_SpecularColor, RGB(128, 50, 50))
LightAttenuation(light2, 8050, 0.9)
SpotLightRange(light2, 1, 60, 1)

Global lamp_y = -35
Global lamp_x = 15
Global lamp_z = 0
Global lamp_i = 0
Global lamp_o = 70
Global lamp_f.f = 1

Define onflore = 15

CreateEntity(0, MeshID(0), #PB_Material_None, 5*scale-100+30, 3*scale+50, 5*scale-100)
SetEntityAttribute(0,#PB_Entity_LinearSleeping,0)
SetEntityAttribute(0,#PB_Entity_AngularSleeping, 0.0)
ScaleEntity(0, 0.8, 0.8, 0.8)    
HideEntity(0, 1)

;- Gun
CreateEntity(1, MeshID(1), MaterialID(6))
ScaleEntity(1, 0.05, 0.05, 0.05)
RotateEntity(1, 90, -85, 0)

;- Body
CreateEntityBody(0, #PB_Entity_CapsuleBody, 60.00, 0.0001, 1)
; EntityAngularFactor(0, 0, 0, 0)

;-Billboard
CreateBillboardGroup(0, MaterialID(1), 0.05, 0.05, 0, 0, 13)
AddBillboard(0, 0, 0, 0)

With main_Entity
      \Fov = 70

      \rot_x = 0
      \rot_y = 0
      \rot_z = 0

      \EntityBody = 0
      \BodyOffsetY = 15
      If #cam_type = 2
            \Key\Down  = #PB_Key_S ;Down
            \Key\Left  = #PB_Key_A ;Left
            \Key\Right = #PB_Key_D;Right
            \Key\Up    = #PB_Key_W;Up
            \Key\Jump  = #PB_Key_Space
      ElseIf #cam_type = 1 
            \Key\Down  = #PB_Key_Down
            \Key\Left  = #PB_Key_Left
            \Key\Right = #PB_Key_Right
            \Key\Up    = #PB_Key_Up
            \Key\Jump  = #PB_Key_Space
      EndIf
      
      \MainNode   = CreateNode(#PB_Any) ; Entity position
      \ForwardNode= CreateNode(#PB_Any,  0,  0, -3) ; Direction normalized
      \StrafeNode = CreateNode(#PB_Any, -1,  0,  0) ; Direction normalized
      \LampNode = CreateNode(#PB_Any, 0,  50,  10) ; 

;       \LampNode = CreateNode(#PB_Any, 0,  50,  10) ; 
      \HandNode   = CreateNode(#PB_Any,  6, 43,  -8) ; Hand position

      \CameraNode = CreateNode(#PB_Any,  0, 50,  -10) ; Camera position 40

      \HideMenu = 1
      
      AttachNodeObject(\MainNode  , NodeID(\CameraNode))
      AttachNodeObject(\MainNode  , NodeID(\HandNode))
      AttachNodeObject(\MainNode  , NodeID(\ForwardNode))
      AttachNodeObject(\MainNode  , NodeID(\StrafeNode))
      AttachNodeObject(\MainNode  , NodeID(\LampNode))

      AttachNodeObject(\HandNode  , EntityID(1))

      AttachNodeObject(\CameraNode, BillboardGroupID(0))
      
      RotateNode(\HandNode, 5, 0, 0, #PB_Relative)
      MoveBillboardGroup(0, 0, 0, -15)
      MoveEntity(1, 0.1, -0.1, 0.01)

; RotateEntity(\EntityBody, 0, 90, 0, #PB_Absolute)

EndWith

  
;- Camera float
If #cam_type = 1  
      ;-Camera
      CreateCamera(#kam_0, 0, 0, 100, 100, 2)
      ; MoveCamera(#kam_0, -50, 50, -50, #PB_Absolute)
      MoveCamera(#kam_0, 0*scale, 5*scale, 5*scale, #PB_Absolute)
      
      
      CameraLookAt(#kam_0, 20*scale, 0, 20*scale)
      CameraBackColor(#kam_0, RGB(0 , 0, 0))
      CameraRange(#kam_0, 0, camR*1000)
EndIf

;- Camera main
If #cam_type = 2   
      CreateCamera(0, 0, 0, 100, 100)
      CameraRange(0, 0.08, 2000)
      ; RotateCamera(0, 0, 0, 0)
      
      AttachNodeObject(main_Entity\CameraNode, CameraID(0))
      CameraLookAt(0, NodeX(main_Entity\ForwardNode) * 100, NodeY(main_Entity\CameraNode), NodeZ(main_Entity\ForwardNode) * 100)
EndIf

Define set_empty
Define Input$, Event
Define.i Quit
Define close_gui, Gadget, click_els, els, move

;- GAME START
game_start()

Repeat
;     Debug "--------------------------------------------"
    Debug "Tris: " + Engine3DStatus(#PB_Engine3D_NbRenderedTriangles)
    Debug "Batches: " + Engine3DStatus(#PB_Engine3D_NbRenderedBatches)
    Debug "FPS: " + Engine3DStatus(#PB_Engine3D_CurrentFPS)
;     Debug "Min FPS: " + Engine3DStatus(#PB_Engine3D_MinimumFPS)
;     

      If #window=1
            Repeat
            Until WindowEvent() = 0
      EndIf

      If GUI=0
            HandleEntity(@main_Entity)
      EndIf

      Define.f TimeSinceLastFrame
      TimeSinceLastFrame = RenderWorld()
      main_Entity\elapsedTime = TimeSinceLastFrame



      FlipBuffers()

Until KeyboardPushed(#PB_Key_Escape) Or Quit = 1

Procedure OnGround(*Entity.s_Entity)

Protected nx, nz, ny
Protected ent, ent1, ent2, ent3, ent4

nx=NodeX(*Entity\MainNode)
ny=NodeY(*Entity\MainNode)
nz=NodeZ(*Entity\MainNode)

; Debug nx


;Debug *Entity\BodyOffsetY
;   ProcedureReturn RayCollide(nx,  ny-*Entity\BodyOffsetY, nz, nx+10, ny-*Entity\BodyOffsetY-10,  nz)

ent=RayCollide(nx, ny-*Entity\BodyOffsetY, nz, nx, ny-*Entity\BodyOffsetY-15,  nz)
; CreateLine3D(#PB_Any, nx, ny-*Entity\BodyOffsetY, nz, $FFFF, nx, ny-*Entity\BodyOffsetY-15,  nz, $FFFF)
If ent=-1
      ent1=RayCollide(nx-2, ny-*Entity\BodyOffsetY, nz-2, nx+10, ny-*Entity\BodyOffsetY-10,  nz+10)
;       CreateLine3D(#PB_Any, nx-2, ny-*Entity\BodyOffsetY, nz-2, $FFFF, nx+10, ny-*Entity\BodyOffsetY-10,  nz+10, $FFFF)
      If ent1=-1
            ent2=RayCollide(nx-2, ny-*Entity\BodyOffsetY, nz+2, nx+10, ny-*Entity\BodyOffsetY-10,  nz-10)
;             CreateLine3D(#PB_Any, nx-2, ny-*Entity\BodyOffsetY, nz+2, $FFFF, nx+10, ny-*Entity\BodyOffsetY-10,  nz-10, $FFFF)
            If ent2=-1
                  ent3=RayCollide(nx+2, ny-*Entity\BodyOffsetY, nz-2, nx-10, ny-*Entity\BodyOffsetY-10,  nz+10)
;                   CreateLine3D(#PB_Any, nx+2, ny-*Entity\BodyOffsetY, nz-2, $FFFF, nx-10, ny-*Entity\BodyOffsetY-10,  nz+10, $FFFF)
                  If ent3=-1
                        ent4=RayCollide(nx+2, ny-*Entity\BodyOffsetY, nz+2, nx-10, ny-*Entity\BodyOffsetY-10,  nz-10)
;                         CreateLine3D(#PB_Any, nx+2, ny-*Entity\BodyOffsetY, nz+2, $FFFF, nx-10, ny-*Entity\BodyOffsetY-10,  nz-10, $FFFF)
                  EndIf
            EndIf
      EndIf
EndIf

If ent
ProcedureReturn ent
ElseIf ent1
ProcedureReturn ent1
ElseIf ent2
ProcedureReturn ent2
ElseIf ent3
ProcedureReturn ent3
ElseIf ent4
ProcedureReturn ent4
EndIf
EndProcedure

Procedure OnWall(*Entity.s_Entity, fx, fz)
Protected ent1, ent2, grp1, grp2, ent3, ent4, grp3, grp4, x, z, nx, nz, ny

If IsNode(*Entity\MainNode)

nx=NodeX(*Entity\MainNode)
ny=NodeY(*Entity\MainNode)
nz=NodeZ(*Entity\MainNode)
x=nx+10*fx
z=nz+10*fz

; CreateLine3D(#PB_Any, NodeX(*Entity\MainNode)+3, NodeY(*Entity\MainNode)+38, nz, $FFFF, NodeX(*Entity\MainNode)-3, NodeY(*Entity\MainNode)+38,  nz, $FFFF)
; CreateLine3D(#PB_Any, NodeX(*Entity\MainNode), NodeY(*Entity\MainNode)+38, nz+3, $FFFF, NodeX(*Entity\MainNode), NodeY(*Entity\MainNode)+38,  nz-3, $FFFF)

CreateLine3D(#PB_Any, nx, ny+38, nz, $FFFF, x, ny+38, z, $FFFF)

ent1=RayCollide(nx+3, ny+38, nz, nx-3, ny+38,  nz)
; Debug ent1
ent2=RayCollide(nx, ny+38, nz+3, nx, ny+38,  nz-3)
; Debug ent2
ent3=RayCollide(nx-3, ny+38, nz, nx+3, ny+38,  nz)
; Debug ent3
ent4=RayCollide(nx, ny+38, nz-3, nx, ny+38,  nz+3)
; Debug ent4

If ent1 And IsEntity(ent1)
grp1=GetEntityCollisionGroup(ent1)
EndIf
If ent2 And IsEntity(ent2)
grp2=GetEntityCollisionGroup(ent2)
EndIf
If ent3 And IsEntity(ent3)
grp3=GetEntityCollisionGroup(ent3)
EndIf
If ent4 And IsEntity(ent4)
grp4=GetEntityCollisionGroup(ent4)
EndIf
; Debug grp1
; Debug grp2
; Debug grp3
; Debug grp4


If grp1=5
ProcedureReturn ent1
ElseIf grp2=5
ProcedureReturn ent2
ElseIf grp3=5
ProcedureReturn ent3
ElseIf grp4=5
ProcedureReturn ent4
EndIf

EndIf
;  ProcedureReturn 
EndProcedure

Global jcnt=0

Procedure HandleEntity(*Entity.s_Entity)
Protected.Vector3 Forward, Strafe, PosMain, PosDir, PosStrafe, PosLamp
Protected.f Speed.f, Speed2.f
Protected x, y, bx, by, bz, Ground
Protected.f MouseX, MouseY
Static Jump.f, Speedjmp.f, MemJump.i, Rot.Vector3, Trans.Vector3, Clic

Protected room.Vector3, PosEnt.Vector3
Protected PlayerSpeed, PlayerSpeedS, OnWall
Protected nx, ny, nz, ent, stor

  
With *Entity
      GetNodePosition(PosMain, \MainNode)
      GetNodePosition(PosDir, \ForwardNode)
      GetNodePosition(PosStrafe, \StrafeNode)

      GetNodePosition(PosLamp, \LampNode)

      SubVector3(Forward, PosDir, PosMain)
      SubVector3(Strafe, PosStrafe, PosMain)
   
; Debug PosMain\x

      bx=Round(PosMain\x / scale, #PB_Round_Up)
      by=Round(PosMain\y / scale, #PB_Round_Up)-1
      bz=Round(PosMain\z / scale, #PB_Round_Up)

;*TimeSinceLastFrame*#PlayerSpeed

      ;\elapsedTime = 2.6

      Speed = 260 * 2.3 ;* \elapsedTime;#PlayerSpeed * \elapsedTime
      Speed2 = Speed * 0.8;back
      Speedjmp = Speed * 0.8
  
     
      If ExamineMouse()
            MouseX = -(MouseDeltaX()/3000) * \Fov * 5.8;\elapsedTime
            MouseY = -(MouseDeltaY()/3000) * \Fov * 5.8;\elapsedTime
            \rot_y + MouseX
            \rot_x + MouseY
            \rot_z = 0

; Debug NodePitch(\CameraNode)
; Debug NodeRoll(\CameraNode)

;             If NodePitch(\CameraNode) < 80 And MouseY > 0
;                   Rot\x + MouseY
;             ElseIf NodePitch(\CameraNode) > -80 And MouseY < 0
;                   Rot\x + MouseY
;             EndIf
      EndIf

      If ExamineKeyboard()

            Ground=OnGround(*Entity)

            If KeyboardPushed(#PB_Key_LeftShift)
                  Speed = Speed * 2.5
            EndIf
      
            If KeyboardPushed(\Key\Jump); And OnGround(*Entity)>-1 ;KeyboardReleased
                  If Ground>-1; Or OnWall(*Entity, Forward\x, Forward\z)   ; And MemJump=0    
                        Jump = Speedjmp ;* \elapsedTime
                        MemJump = 1
                  EndIf
            EndIf

            If Ground>-1 And MemJump = 0
                  Jump = 0
                  jcnt = 0
;Debug "jcnt = 0"
            Else
      
                  If MemJump
                        Jump + 140;Speedjmp
                        If Jump > 1160
                              MemJump = 0
                              Jump = 1160
                        EndIf
;Debug "Jump + "
                  Else
;Debug "Jump - "
                        If Jump > -350
                              Jump - 320; * \elapsedTime
                              If Jump < -350
                                    Jump - 350
                              EndIf
                        EndIf
                  EndIf
            EndIf
;Debug Jump

;                   If Jump > -800
;                         jcnt + 1
;                         Jump - (20 * jcnt); * \elapsedTime
;                   EndIf


            Trans\x = 0; * 0.80
            Trans\y = Jump
            Trans\z = 0;* 0.80




            If KeyboardPushed(\Key\Up)
                  Trans\x = Forward\x * Speed
                  Trans\z = Forward\z * Speed
            ElseIf KeyboardPushed(\Key\Down)
                  Trans\x = Forward\x * -Speed2
                  Trans\z = Forward\z * -Speed2
            EndIf
            
            If KeyboardPushed(\Key\Left)
                  Trans\x = Strafe\x * Speed
                  Trans\z = Strafe\z * Speed
            ElseIf KeyboardPushed(\Key\Right)
                  Trans\x = Strafe\x * -Speed
                  Trans\z = Strafe\z * -Speed
            EndIf

;            DisableEntityBody(\EntityBody, #False) ; Wake up entity (BugWare)

            EntityVelocity(\EntityBody,Trans\x,Trans\y,Trans\z)
            ;MoveEntity(\EntityBody, Trans\x, Trans\y, Trans\z)






            If \hidelamp=0
                  If game\flashlight Or flash_on
                        ;MoveLight(Light2, PosLamp\x+lamp_x, PosLamp\y+lamp_y, PosLamp\z+lamp_z, #PB_Absolute)
                        ; CreateLine3D(#PB_Any, PosLamp\x, PosLamp\y+40, PosLamp\z, $FFFF, PosLamp\x, PosLamp\y+41, PosLamp\z, $FFFF)
                        If #cam_type = 2   
      
                              LightAttenuation(light2, 8050, 1)
                              SpotLightRange(light2, 0, lamp_o, 1)
                              ; 
                              ; LightAttenuation(light2, 1550, 1)
                              ; SpotLightRange(light2, 1, 360, 1)
      
                              LightDirection(Light2, CameraDirectionX(0), CameraDirectionY(0), CameraDirectionZ(0))
                        EndIf
                  Else
                        \hidelamp=1
                        HideLight(Light2, \hidelamp)
                  EndIf
            EndIf



            If KeyboardReleased(#PB_Key_Back)
                  If \hidemenu=0
                        \hidemenu=1
                  Else
                        \hidemenu=0
                  EndIf
            EndIf

            If KeyboardReleased(#PB_Key_L)
                  If \hidelamp=0
                        \hidelamp=1
                  Else
                        \hidelamp=0
                  EndIf
                  HideLight(Light2, \hidelamp)
            EndIf



      EndIf
          
      If #cam_type = 2   
            CameraFOV(0, \Fov)
      EndIf      
      
      RotateEntity(\EntityBody, 0, \Rot_y, 0, #PB_Absolute)

      RotateNode(\CameraNode, \Rot_x, 0, 0, #PB_Absolute)
      RotateNode(\HandNode, \Rot_x, 0, 0, #PB_Absolute)
      
      SoundListenerLocate(EntityX(\EntityBody), EntityY(\EntityBody) - \BodyOffsetY, EntityZ(\EntityBody))

      MoveNode(\MainNode, EntityX(\EntityBody), EntityY(\EntityBody) - \BodyOffsetY, EntityZ(\EntityBody), #PB_Absolute)
      RotateNode(\MainNode, 0, EntityYaw(\EntityBody), 0)

      If game\flashlight Or flash_on
            MoveLight(Light2, PosLamp\x+0, PosLamp\y+0, PosLamp\z+0, #PB_Absolute)
      EndIf

      If \HideMenu

      EndIf

; NodeFixedYawAxis(\MainNode, #True, 0.2, 0, 0.2)
; Debug EntityYaw(\EntityBody)
; Debug EntityPitch(\EntityBody)
; Debug CameraYaw(\CameraNode)


EndWith
EndProcedure
site created by purebasic work-flow-Initiative
Top
User avatar
minimy
Enthusiast
Enthusiast
Posts: 695
Joined: Mon Jul 08, 2013 8:43 pm
Location: off world

Re: When moving, the speed can change unpredictably. 3d FPS

Post by minimy »

Helloo siesit i try to run your code but crash... and you need new screen 16/9 :wink:
I try with 6.02 and 6.21

I think you need use ElapsedMilliseconds() to control the time.
some thing like:

Code: Select all

If ElapsedMilliseconds() > time
  ;all my stuf...
  time= ElapsedMilliseconds() + 20 ;50 fps
EndIf
If translation=Error: reply="Sorry, Im Spanish": Endif
Top
siesit
User
User
Posts: 22
Joined: Fri Aug 21, 2009 8:40 am
Location: rus
Contact:
Contact siesit

Re: When moving, the speed can change unpredictably. 3d FPS

Post by siesit »

Hello/
I am using PureBasic 6.21 x86 (win 10)
and you need new screen 16/9
- This is not an option, but I have 2 monitors. 8)
ElapsedMilliseconds()
...
I am really at a dead end :(
site created by purebasic work-flow-Initiative
Top
miso
Enthusiast
Enthusiast
Posts: 493
Joined: Sat Oct 21, 2023 4:06 pm
Location: Hungary

Re: When moving, the speed can change unpredictably. 3d FPS

Post by miso »

I tested this. On this machine it crashed, as the screen doesnot support the resolution. I copied to another machine, there was no slowdown. ( As it was too strong to be affected ) Your map looks like some kind of stress test. I belive its not the tris, but the batches that makes an fps drop while you look toward a specific direction (containing entities). That change in the fps makes slowdowns and speedups. Vsync (smartsync) removes the tearing on screen, but waiting for syncronisation holds on your main loop. Removing it makes screen tearing come back, but you can have more control over the speed. (syncing movements to elapsed milliseconds.)
Top
miso
Enthusiast
Enthusiast
Posts: 493
Joined: Sat Oct 21, 2023 4:06 pm
Location: Hungary

Re: When moving, the speed can change unpredictably. 3d FPS

Post by miso »

In your procedure "Create_Static", you create a separate entity for every single static geometry. It's OK and needed for the collision (I guess later you will use a collision entity here instead of a full geometry), but static geometry rendering loses its purpose. Use 1 car or robot entity for the static (non moving) entities to gain the benefits of the static geometry render feature. (I hope I was clear, I'm not native in english.) (That way the number of batches will be 10 times less, and you will gain a lot of speed.)
Top
siesit
User
User
Posts: 22
Joined: Fri Aug 21, 2009 8:40 am
Location: rus
Contact:
Contact siesit

Re: When moving, the speed can change unpredictably. 3d FPS

Post by siesit »

Thank you very much for the advice. In fact, I will have to rethink a lot.
( As it was too strong to be affected ) Your map looks like some kind of stress test. I belive its not the tris, but the batches that makes an fps drop while you look toward a specific direction (containing entities)
I really have no idea how to make a collision entity without full geometry.
I thought that for collisions I would have to use an additional mesh without material
Use 1 car or robot entity for the static (non moving) entities to gain the benefits of the static geometry render feature.
There will be a large number of duplicate entities in this project, that's why the demo looks like this.
and I really do create a new entity every time, is there any way to do without this?
(syncing movements to elapsed milliseconds.)
Now I'm even more confused and everything I try now only makes the situation worse.
site created by purebasic work-flow-Initiative
Top
miso
Enthusiast
Enthusiast
Posts: 493
Joined: Sat Oct 21, 2023 4:06 pm
Location: Hungary

Re: When moving, the speed can change unpredictably. 3d FPS

Post by miso »

For collision, you can use a lowpoly mesh, like box, or something with fewer vertices. You might create those and hide them and add to the static collision scene. As for now, you can use the same mesh as you did until this, as it was not the collision system that made the slowdowns, but the batches. If you have 1 entity for the cars for example. Use that 1 car to add the entity to the static geometry scene. It will use 1 mesh data then, so the static geometry renderer will use that data only for all instances of the mesh when drawing. That reduces the number of batches. Or dont use static meshes, but make a couple of big meshes that contains more than one car. (Its faster to render 10k vertices once, than 1k vertices 10 times.) The number of used textures in an entity also counts. This is not PB related, this will also happen in unity for example. I'm in the mood, so I might create a comparison example.
Top
User avatar
minimy
Enthusiast
Enthusiast
Posts: 695
Joined: Mon Jul 08, 2013 8:43 pm
Location: off world

Re: When moving, the speed can change unpredictably. 3d FPS

Post by minimy »

Hello, i think miso speak about this:

Code: Select all

CreateEntityBody(0,#PB_Entity_BoxBody,1,0.2,0.2, 0, 4,4,4)
When use entitybody for collision you can use a box like this with size of 4x4x4
Then you save a lot of vertex in the detection.
If translation=Error: reply="Sorry, Im Spanish": Endif
Top
miso
Enthusiast
Enthusiast
Posts: 493
Joined: Sat Oct 21, 2023 4:06 pm
Location: Hungary

Re: When moving, the speed can change unpredictably. 3d FPS

Post by miso »

No. I mean staticbody, but with a different, lower polycount mesh. (not for drawing, but for collision.) And a "hipoly" single entity for the ogre staticgeometry instances.
Top
miso
Enthusiast
Enthusiast
Posts: 493
Joined: Sat Oct 21, 2023 4:06 pm
Location: Hungary

Re: When moving, the speed can change unpredictably. 3d FPS

Post by miso »

I also can render more tris and batches without using the static geometry system, the problem (slowdown) also can lie in the fact, that the entitites are crowded in sides in an unbalanced way.
Top
siesit
User
User
Posts: 22
Joined: Fri Aug 21, 2009 8:40 am
Location: rus
Contact:
Contact siesit

Re: When moving, the speed can change unpredictably. 3d FPS

Post by siesit »

miso wrote: Sun Sep 14, 2025 2:40 pm And a "hipoly" single entity for the ogre staticgeometry instances.
and how can I use a single instance of a mesh to render it multiple times?

In the project the distribution of objects will be uneven, so in the example I placed them in this way.

here I improved the demo a bit:

Code: Select all

OpenScreen(ScreenWidth(), ScreenHeight(), 32, "test", #PB_Screen_NoSynchronization)
and remade the rendering loop

Code: Select all

      time = ElapsedMilliseconds()
      HandleEntity(@main_Entity)
      time = ElapsedMilliseconds() - time

      If timer(16);-time
     
            LastFrame = RenderWorld()
            main_Entity\elapsedTime = TimeSinceLastFrame

            menu()
            DisplayTransparentSprite(0,8,8)

            FlipBuffers()
      Else
            Delay(1)
      EndIf
but nothing much has changed
full example:

Code: Select all

;- CONST

Global scale=20*10

#PlayerSpeed = 60
#CameraSpeed = 0.8
#window = 2
#kam_0 = 1

#plane = 0
#planent = 0
#cam_type = 2  ;main -2,  - 1
#Light=3

init=0

Global ScreenWidth, ScreenHeight

Structure s_Key
      Up.i
      Down.i
      Left.i
      Right.i
      Jump.i
EndStructure

Structure s_Entity
      EntityBody.i
      BodyOffsetY.f
      elapsedTime.f
      rot_x.f
      rot_y.f
      rot_z.f
      
      Fov.f
      Key.s_Key
      MainNode.i
      CameraNode.i
      HandNode.i
      ForwardNode.i
      StrafeNode.i
      LampNode.i
      hidelamp.i
      HideMenu.i
EndStructure
Global main_Entity.s_Entity

Macro GetNodePosition(Position, Node)
  Position\x = NodeX(Node)
  Position\y = NodeY(Node)
  Position\z = NodeZ(Node)
EndMacro

Macro SubVector3(V, V1, V2)
  V\x = V1\x - V2\x
  V\y = V1\y - V2\y
  V\z = V1\z - V2\z
EndMacro

;-Declare
Declare HandleEntity(*Entity.s_Entity)
Declare OnGround(*Entity.s_Entity)

Define Robot.s_Entity
Global prefix$ = "main"
Global Scroll_stor, Scroll_inv

;;;;;;;;;;;;;;;;

Global global_x.l = 24;256-200
Global global_y.l = 12;32-10
Global global_z.l = 24;256-200

Global flash_on = 0

Declare g_start(type)

Structure game
      state_base_lamp.l
      wrds_id.l
      cur_save_ver.l
      item_up.l
      inv.l
      room_id.l
      inventory.s
      th_light.l
      sg.l
      flashlight.l
EndStructure

Global game.game

;- INIT
InitEngine3D();#PB_Engine3D_EnableCG)
InitSprite()
InitKeyboard()
InitMouse()


If #window=1
      OpenWindow(#window, 0, 0, 1280, 1024, "FPS-Test", #PB_Window_ScreenCentered)
      OpenWindowedScreen(WindowID(#window), 10, 10, 1280-20, 1024-20, 1, 10, 10, #PB_Screen_WaitSynchronization)
EndIf

If #window=2
      OpenScreen(DesktopWidth(0), DesktopHeight(0), 32, "test", #PB_Screen_NoSynchronization)
      ;AntialiasingMode(#PB_AntialiasingMode_x6)

      AntialiasingMode(#PB_AntialiasingMode_x6)
      MaterialFilteringMode(#PB_Default,#PB_Material_Trilinear,16)

      SetFrameRate(60)
EndIf

Add3DArchive(#PB_Compiler_Home + "Examples/3D/Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home + "Examples/3D/Data/Scripts", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home + "examples/3d/Data/Models", #PB_3DArchive_FileSystem)
;Add3DArchive("D:\~3D\m2", #PB_3DArchive_FileSystem)

Parse3DScripts()

Enumeration mesh 100 Step 10
      #mesh_baseblock
EndEnumeration

Global FPS, block$, index_cur.l
Global light2

LoadFont(0,"arial",10)


;> LoadMesh

;Robot Body
LoadMesh(0, "robot.mesh")
TransformMesh(0, 0, 0, 0, 1, 1, 1, 0, -90, 0)

LoadMesh(1, "AKM.mesh")
LoadMesh(2, "ninja.mesh")
; TransformMesh(2, 0, 0, 0, 1, 1, 1, 0, 90, 0)

LoadTexture(0, "Dirt.jpg")

;- Material
CreateMaterial(1, LoadTexture(1,"viseur-jeux.png"))
MaterialBlendingMode(1, #PB_Material_AlphaBlend)

CreateMaterial(4, LoadTexture(4, "Dirt.jpg"))
CreateMaterial(5, LoadTexture(5, "t1.jpg"))
CreateMaterial(6, LoadTexture(6, "r2skin.jpg"))
CreateMaterial(7, LoadTexture(7, "RustySteel.jpg"))

;LoadMesh(#mesh_baseblock, "Barrel.mesh");
LoadMesh(#mesh_baseblock, "chassis.mesh");
TransformMesh(#mesh_baseblock, 0, 0, 0, 10, 10, 10, 0, 0, 0)

;CreateCube(#mesh_baseblock, 180)
;TransformMesh(#mesh_baseblock, -100, 10, -100,  1.1, 1.1, 0.1,  90, 0, 0)

BuildMeshShadowVolume(#mesh_baseblock)
NormalizeMesh(#mesh_baseblock) 

;<


Procedure menu()
Protected p=4
Macro DT(t1, etat=-1)
      DrawText(8,p,t1)
;     If etat=0:DrawText(140,p,"OFF"):ElseIf etat=1:DrawText(140,p,"ON"):EndIf
      p+17
EndMacro


CreateSprite(0,180,380,#PB_Sprite_AlphaBlending)
StartDrawing(SpriteOutput(0))
DrawingMode(#PB_2DDrawing_AllChannels)
DrawingFont(FontID(0))
Box(0,0,180,380,$22ffffff)
DrawingMode(#PB_2DDrawing_AllChannels|#PB_2DDrawing_Outlined)
Box(0,0,180,380,$44ffffff)
BackColor($22ffffff)
FrontColor($ffffffff)

; PushListPosition(_wrd())
; SelectElement(_wrd(), index_cur)
; r_x=_wrd()\x
; r_y=_wrd()\y
; r_z=_wrd()\z
; 
; sti=_wrd()\wrd_struc

dt(block$)

dt("Triangles:"+Str(Engine3DStatus(#PB_Engine3D_NbRenderedTriangles)))
dt("Batches:"+Str(Engine3DStatus(#PB_Engine3D_NbRenderedBatches)))
dt("CurrentFPS:"+Str(Engine3DStatus(#PB_Engine3D_CurrentFPS)))

dt("")

dt("WSAD + Mouse")
dt("")
dt("FPS "+Str(FPS),0)
dt("[Esc] = Quit")
StopDrawing()
EndProcedure

Procedure Create_static(sg, mesh, Material, x, y, z, body=1, pick_mask=1, ent_grp=1, ent_mask=1, vis_mask=2);, scale=1, rot_x=0, rot_y=0, rot_z=0

ent = CreateEntity(#PB_Any, mesh, Material, x, y, z, pick_mask, vis_mask)
If ent
      ;EntityRenderMode(ent, #PB_Shadow_None)   
      EntityRenderMode(ent, #PB_Entity_CastShadow)  
      
      SetRenderQueue(EntityID(ent), 50 , 1000)
      
      If body
            CreateEntityBody(ent, #PB_Entity_StaticBody);, 0, 0.8, 1
            SetEntityCollisionFilter(ent, ent_grp, ent_mask)
      EndIf
      




      If vis_mask=2
            AddStaticGeometryEntity(sg, EntityID(ent), x, y, z, 1, 1, 1)
            HideEntity(ent, 1)
      EndIf
EndIf

ProcedureReturn ent
EndProcedure

Procedure StaticGeometry()
Define rf_x, rf_y, rf_z, r_x, r_y, r_z, f, ok, inn, x, z, y
Define.i ent, sg
Define rx, ry, rz, rrx, rry, rrz, inner_room, light_lamp, room$


sg = CreateStaticGeometry(#PB_Any, global_x*scale, global_y*scale, global_z*scale, 0)
Debug "Static " + sg
  
create_static(sg, MeshID(0), MaterialID(4), -1*scale, 0*scale, -1*scale)
create_static(sg, MeshID(0), MaterialID(4), (global_x+1)*scale, 0*scale, -1*scale)
create_static(sg, MeshID(0), MaterialID(4), -1*scale, 0*scale, (global_z+1)*scale)
create_static(sg, MeshID(0), MaterialID(4), (global_x+1)*scale, 0*scale, (global_z+1)*scale)


create_static(sg, MeshID(0), MaterialID(4), -1*scale, (global_y+1)*scale, -1*scale)
create_static(sg, MeshID(0), MaterialID(4), (global_x+1)*scale, (global_y+1)*scale, -1*scale)
create_static(sg, MeshID(0), MaterialID(4), -1*scale, (global_y+1)*scale, (global_z+1)*scale)
create_static(sg, MeshID(0), MaterialID(4), (global_x+1)*scale, (global_y+1)*scale, (global_z+1)*scale)


For u = 0 To 12
For i = 0 To 12
create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (-1+i)*scale, (0)*scale, (-1+u)*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (global_x+1+i)*scale, (global_y+1)*scale, -1*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (-1+i)*scale, (global_y+1)*scale, (global_z+1)*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (global_x+1+i)*scale, (global_y+1)*scale, (global_z+1)*scale)
cnt+1
Next
Next

For t = 0 To 60-40
For u = 0 To 12
For i = 0 To 12


create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (-22+i)*scale, (t)*scale/8, (-12+u)*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (global_x+1+i)*scale, (global_y+1)*scale, -1*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (-1+i)*scale, (global_y+1)*scale, (global_z+1)*scale)
; create_static(sg, MeshID(#mesh_baseblock), MaterialID(4), (global_x+1+i)*scale, (global_y+1)*scale, (global_z+1)*scale)
cnt+1
Next
Next
Next

Debug cnt
; ProcedureReturn sg

ProcedureReturn sg
EndProcedure

Procedure game_start()
Define.i ground, t, i

;- config
game\state_base_lamp=1
;game\state_base_lamp=3


game\sg=StaticGeometry()
Debug game\sg
BuildStaticGeometry(game\sg)
Debug "SG==="

      PosMain_x = 0*scale
      PosMain_y = 5*scale
      PosMain_z = 0*scale

     
      MoveEntity(main_Entity\EntityBody, PosMain_x, PosMain_y, PosMain_z, #PB_Absolute)
      SoundListenerLocate(PosMain_x, PosMain_y, PosMain_z)
      MoveNode(main_Entity\MainNode, PosMain_x, PosMain_y - main_Entity\BodyOffsetY, PosMain_z, #PB_Absolute)
      
      Debug main_Entity\EntityBody
      Debug EntityX(main_Entity\EntityBody)
      Debug EntityY(main_Entity\EntityBody)
      Debug EntityZ(main_Entity\EntityBody)
      
      main_Entity\rot_x = Rot_x
      main_Entity\rot_y = Rot_y
      main_Entity\rot_z = Rot_z

      RotateEntity(main_Entity\EntityBody, 0, main_Entity\Rot_y, 0, #PB_Absolute)
      RotateNode(main_Entity\CameraNode, main_Entity\Rot_x, 0, 0, #PB_Absolute)
      RotateNode(main_Entity\HandNode, main_Entity\Rot_x, 0, 0, #PB_Absolute)
      RotateNode(main_Entity\MainNode, 0, EntityYaw(main_Entity\EntityBody), 0)

EndProcedure

;- -----------------------------------------------------------------------

global_x.l = 12;256-200
global_y.l = 3;32-10
global_z.l = 12;256-200
flash_on = 1
prefix$ = "main_0"

EnableExplicit

;- START
Define.f KeyX, KeyY, MouseX, MouseY
Define nx.f, nz.f, Boost.f = 2.2, Yaw.f, Pitch.f, zaehler
Define.i ground, t, i
Define.b firster = #True

Define Mesh_plane, ent_plane, Mesh_robot, ent_robot, light1, Light.l

Mesh_plane=CreatePlane(#PB_Any, global_x*scale*2, global_z*scale*2, scale, scale, 20, 20)
ground = GetScriptMaterial(#PB_Any, "Scene/GroundBlend")
;TransformMesh(Mesh_plane, 256*10, -10, 256*10, 1, 1, 1, 0, 0, 0)
ent_plane=CreateEntity(#PB_Any, MeshID(Mesh_plane), MaterialID(ground), 0, -1.5, 0)
EntityRenderMode(ent_plane, 0)      
CreateEntityBody(ent_plane, #PB_Entity_StaticBody)

;- GAME

;WorldShadows(#PB_Shadow_Modulative, #PB_Default, RGB(205, 205, 205), 128)

AmbientColor(RGB(22, 14, 35))
Fog(RGB(126, 58, 1), 2048+5, 1*scale, 28*scale)

; WorldDebug(#PB_World_DebugBody)
; WorldDebug(#PB_World_DebugEntity)

EnableWorldCollisions(1) 
EnableWorldPhysics(1)
WorldGravity(-90.806)

AntialiasingMode(#PB_AntialiasingMode_x6)

light2 = CreateLight(#PB_Any ,RGB(255*0.4, 255*0.4,255*0.4), (1*scale), (1*scale), (1*scale), #PB_Light_Spot)
SetLightColor(light2, #PB_Light_SpecularColor, RGB(128, 50, 50))
LightAttenuation(light2, 8050, 0.9)
SpotLightRange(light2, 1, 60, 1)

Global lamp_y = -35
Global lamp_x = 15
Global lamp_z = 0
Global lamp_i = 0
Global lamp_o = 70
Global lamp_f.f = 1

Define onflore = 15

CreateEntity(0, MeshID(0), #PB_Material_None, 5*scale-100+30, 3*scale+50, 5*scale-100)
SetEntityAttribute(0,#PB_Entity_LinearSleeping,0)
SetEntityAttribute(0,#PB_Entity_AngularSleeping, 0.0)
ScaleEntity(0, 0.8, 0.8, 0.8)    
HideEntity(0, 1)

;- Gun
CreateEntity(1, MeshID(1), MaterialID(6))
ScaleEntity(1, 0.05, 0.05, 0.05)
RotateEntity(1, 90, -85, 0)

;- Body
CreateEntityBody(0, #PB_Entity_CapsuleBody, 60.00, 0.0001, 1)
; EntityAngularFactor(0, 0, 0, 0)

;-Billboard
CreateBillboardGroup(0, MaterialID(1), 0.05, 0.05, 0, 0, 13)
AddBillboard(0, 0, 0, 0)

With main_Entity
      \Fov = 70

      \rot_x = 0
      \rot_y = 0
      \rot_z = 0

      \EntityBody = 0
      \BodyOffsetY = 15
      If #cam_type = 2
            \Key\Down  = #PB_Key_S ;Down
            \Key\Left  = #PB_Key_A ;Left
            \Key\Right = #PB_Key_D;Right
            \Key\Up    = #PB_Key_W;Up
            \Key\Jump  = #PB_Key_Space
      ElseIf #cam_type = 1 
            \Key\Down  = #PB_Key_Down
            \Key\Left  = #PB_Key_Left
            \Key\Right = #PB_Key_Right
            \Key\Up    = #PB_Key_Up
            \Key\Jump  = #PB_Key_Space
      EndIf
      
      \MainNode   = CreateNode(#PB_Any) ; Entity position
      \ForwardNode= CreateNode(#PB_Any,  0,  0, -3) ; Direction normalized
      \StrafeNode = CreateNode(#PB_Any, -1,  0,  0) ; Direction normalized
      \LampNode = CreateNode(#PB_Any, 0,  50,  10) ; 

;       \LampNode = CreateNode(#PB_Any, 0,  50,  10) ; 
      \HandNode   = CreateNode(#PB_Any,  6, 43,  -8) ; Hand position

      \CameraNode = CreateNode(#PB_Any,  0, 50,  -10) ; Camera position 40

      \HideMenu = 1
      
      AttachNodeObject(\MainNode  , NodeID(\CameraNode))
      AttachNodeObject(\MainNode  , NodeID(\HandNode))
      AttachNodeObject(\MainNode  , NodeID(\ForwardNode))
      AttachNodeObject(\MainNode  , NodeID(\StrafeNode))
      AttachNodeObject(\MainNode  , NodeID(\LampNode))

      AttachNodeObject(\HandNode  , EntityID(1))

      AttachNodeObject(\CameraNode, BillboardGroupID(0))
      
      RotateNode(\HandNode, 5, 0, 0, #PB_Relative)
      MoveBillboardGroup(0, 0, 0, -15)
      MoveEntity(1, 0.1, -0.1, 0.01)

; RotateEntity(\EntityBody, 0, 90, 0, #PB_Absolute)

EndWith

Procedure.i Timer(deltatime.i); from miso
  Static.i LastTick
  If ElapsedMilliseconds()-LastTick>deltatime.i
    LastTick=ElapsedMilliseconds()
    ProcedureReturn(#True)
  EndIf
  ProcedureReturn(#False)
EndProcedure

  
;- Camera float
If #cam_type = 1  
      ;-Camera
      CreateCamera(#kam_0, 0, 0, 100, 100, 2)
      ; MoveCamera(#kam_0, -50, 50, -50, #PB_Absolute)
      MoveCamera(#kam_0, 0*scale, 5*scale, 5*scale, #PB_Absolute)
      
      
      CameraLookAt(#kam_0, 20*scale, 0, 20*scale)
      CameraBackColor(#kam_0, RGB(0 , 0, 0))
      CameraRange(#kam_0, 0, camR*1000)
EndIf

;- Camera main
If #cam_type = 2   
      CreateCamera(0, 0, 0, 100, 100)
      CameraRange(0, 0.08, 2000)
      ; RotateCamera(0, 0, 0, 0)
      
      AttachNodeObject(main_Entity\CameraNode, CameraID(0))
      CameraLookAt(0, NodeX(main_Entity\ForwardNode) * 100, NodeY(main_Entity\CameraNode), NodeZ(main_Entity\ForwardNode) * 100)
EndIf

Define set_empty
Define Input$, Event
Define.i Quit
Define.f TimeSinceLastFrame, LastFrame
Define close_gui, Gadget, click_els, els, move, time

;- GAME START
game_start()

Repeat
; ;     Debug "--------------------------------------------"
;     Debug "Tris: " + Engine3DStatus(#PB_Engine3D_NbRenderedTriangles)
; Debug "Batches: " + Engine3DStatus(#PB_Engine3D_NbRenderedBatches)
; Debug "FPS: " + Engine3DStatus(#PB_Engine3D_CurrentFPS)
; ;     Debug "Min FPS: " + Engine3DStatus(#PB_Engine3D_MinimumFPS)
; ;     

      If #window=1
            Repeat
            Until WindowEvent() = 0
      EndIf

      time = ElapsedMilliseconds()
      HandleEntity(@main_Entity)
      time = ElapsedMilliseconds() - time

      If timer(16);-time
     
            LastFrame = RenderWorld()
            main_Entity\elapsedTime = TimeSinceLastFrame

            menu()
            DisplayTransparentSprite(0,8,8)

            FlipBuffers()
      Else
            Delay(1)
      EndIf

Until KeyboardPushed(#PB_Key_Escape) Or Quit = 1;

Procedure OnGround(*Entity.s_Entity)

Protected nx, nz, ny
Protected ent, ent1, ent2, ent3, ent4

nx=NodeX(*Entity\MainNode)
ny=NodeY(*Entity\MainNode)
nz=NodeZ(*Entity\MainNode)

; Debug nx


;Debug *Entity\BodyOffsetY
;   ProcedureReturn RayCollide(nx,  ny-*Entity\BodyOffsetY, nz, nx+10, ny-*Entity\BodyOffsetY-10,  nz)

ent=RayCollide(nx, ny-*Entity\BodyOffsetY, nz, nx, ny-*Entity\BodyOffsetY-15,  nz)
; CreateLine3D(#PB_Any, nx, ny-*Entity\BodyOffsetY, nz, $FFFF, nx, ny-*Entity\BodyOffsetY-15,  nz, $FFFF)
If ent=-1
      ent1=RayCollide(nx-2, ny-*Entity\BodyOffsetY, nz-2, nx+10, ny-*Entity\BodyOffsetY-10,  nz+10)
;       CreateLine3D(#PB_Any, nx-2, ny-*Entity\BodyOffsetY, nz-2, $FFFF, nx+10, ny-*Entity\BodyOffsetY-10,  nz+10, $FFFF)
      If ent1=-1
            ent2=RayCollide(nx-2, ny-*Entity\BodyOffsetY, nz+2, nx+10, ny-*Entity\BodyOffsetY-10,  nz-10)
;             CreateLine3D(#PB_Any, nx-2, ny-*Entity\BodyOffsetY, nz+2, $FFFF, nx+10, ny-*Entity\BodyOffsetY-10,  nz-10, $FFFF)
            If ent2=-1
                  ent3=RayCollide(nx+2, ny-*Entity\BodyOffsetY, nz-2, nx-10, ny-*Entity\BodyOffsetY-10,  nz+10)
;                   CreateLine3D(#PB_Any, nx+2, ny-*Entity\BodyOffsetY, nz-2, $FFFF, nx-10, ny-*Entity\BodyOffsetY-10,  nz+10, $FFFF)
                  If ent3=-1
                        ent4=RayCollide(nx+2, ny-*Entity\BodyOffsetY, nz+2, nx-10, ny-*Entity\BodyOffsetY-10,  nz-10)
;                         CreateLine3D(#PB_Any, nx+2, ny-*Entity\BodyOffsetY, nz+2, $FFFF, nx-10, ny-*Entity\BodyOffsetY-10,  nz-10, $FFFF)
                  EndIf
            EndIf
      EndIf
EndIf

If ent
ProcedureReturn ent
ElseIf ent1
ProcedureReturn ent1
ElseIf ent2
ProcedureReturn ent2
ElseIf ent3
ProcedureReturn ent3
ElseIf ent4
ProcedureReturn ent4
EndIf
EndProcedure

Procedure OnWall(*Entity.s_Entity, fx, fz)
Protected ent1, ent2, grp1, grp2, ent3, ent4, grp3, grp4, x, z, nx, nz, ny

If IsNode(*Entity\MainNode)

nx=NodeX(*Entity\MainNode)
ny=NodeY(*Entity\MainNode)
nz=NodeZ(*Entity\MainNode)
x=nx+10*fx
z=nz+10*fz

; CreateLine3D(#PB_Any, NodeX(*Entity\MainNode)+3, NodeY(*Entity\MainNode)+38, nz, $FFFF, NodeX(*Entity\MainNode)-3, NodeY(*Entity\MainNode)+38,  nz, $FFFF)
; CreateLine3D(#PB_Any, NodeX(*Entity\MainNode), NodeY(*Entity\MainNode)+38, nz+3, $FFFF, NodeX(*Entity\MainNode), NodeY(*Entity\MainNode)+38,  nz-3, $FFFF)

CreateLine3D(#PB_Any, nx, ny+38, nz, $FFFF, x, ny+38, z, $FFFF)

ent1=RayCollide(nx+3, ny+38, nz, nx-3, ny+38,  nz)
; Debug ent1
ent2=RayCollide(nx, ny+38, nz+3, nx, ny+38,  nz-3)
; Debug ent2
ent3=RayCollide(nx-3, ny+38, nz, nx+3, ny+38,  nz)
; Debug ent3
ent4=RayCollide(nx, ny+38, nz-3, nx, ny+38,  nz+3)
; Debug ent4

If ent1 And IsEntity(ent1)
grp1=GetEntityCollisionGroup(ent1)
EndIf
If ent2 And IsEntity(ent2)
grp2=GetEntityCollisionGroup(ent2)
EndIf
If ent3 And IsEntity(ent3)
grp3=GetEntityCollisionGroup(ent3)
EndIf
If ent4 And IsEntity(ent4)
grp4=GetEntityCollisionGroup(ent4)
EndIf
; Debug grp1
; Debug grp2
; Debug grp3
; Debug grp4


If grp1=5
ProcedureReturn ent1
ElseIf grp2=5
ProcedureReturn ent2
ElseIf grp3=5
ProcedureReturn ent3
ElseIf grp4=5
ProcedureReturn ent4
EndIf

EndIf
;  ProcedureReturn 
EndProcedure

Global jcnt=0

Procedure HandleEntity(*Entity.s_Entity)
Protected.Vector3 Forward, Strafe, PosMain, PosDir, PosStrafe, PosLamp
Protected.f Speed.f, Speed2.f
Protected x, y, bx, by, bz, Ground
Protected.f MouseX, MouseY
Static Jump.f, Speedjmp.f, MemJump.i, Rot.Vector3, Trans.Vector3, Clic

Protected room.Vector3, PosEnt.Vector3
Protected PlayerSpeed, PlayerSpeedS, OnWall
Protected nx, ny, nz, ent, stor

  
With *Entity
      GetNodePosition(PosMain, \MainNode)
      GetNodePosition(PosDir, \ForwardNode)
      GetNodePosition(PosStrafe, \StrafeNode)

      GetNodePosition(PosLamp, \LampNode)

      SubVector3(Forward, PosDir, PosMain)
      SubVector3(Strafe, PosStrafe, PosMain)
   
; Debug PosMain\x

      bx=Round(PosMain\x / scale, #PB_Round_Up)
      by=Round(PosMain\y / scale, #PB_Round_Up)-1
      bz=Round(PosMain\z / scale, #PB_Round_Up)

;*TimeSinceLastFrame*#PlayerSpeed

      ;\elapsedTime = 2.6

      Speed = 260 * 2.3 * 0.06 ;* \elapsedTime;#PlayerSpeed * \elapsedTime
      Speed2 = Speed * 0.8;back
      Speedjmp = Speed * 0.8
  
     
      If ExamineMouse()
            MouseX = -(MouseDeltaX()/3000) * \Fov * 5.8;\elapsedTime
            MouseY = -(MouseDeltaY()/3000) * \Fov * 5.8;\elapsedTime
            \rot_y + MouseX
            \rot_x + MouseY
            \rot_z = 0
      EndIf

      If ExamineKeyboard()

            Ground=OnGround(*Entity)

            If KeyboardPushed(#PB_Key_LeftShift)
                  Speed = Speed * 2.5
            EndIf
      
            If KeyboardPushed(\Key\Jump); And OnGround(*Entity)>-1 ;KeyboardReleased
                  If Ground>-1; Or OnWall(*Entity, Forward\x, Forward\z)   ; And MemJump=0    
                        Jump = Speedjmp ;* \elapsedTime
                        MemJump = 1
                  EndIf
            EndIf

            If Ground>-1 And MemJump = 0
                  Jump = 0
                  jcnt = 0
;Debug "jcnt = 0"
            Else
      
                  If MemJump
                        Jump + 140;Speedjmp
                        If Jump > 1160
                              MemJump = 0
                              Jump = 1160
                        EndIf
;Debug "Jump + "
                  Else
;Debug "Jump - "
                        If Jump > -350
                              Jump - 320; * \elapsedTime
                              If Jump < -350
                                    Jump - 350
                              EndIf
                        EndIf
                  EndIf
            EndIf
;Debug Jump

;                   If Jump > -800
;                         jcnt + 1
;                         Jump - (20 * jcnt); * \elapsedTime
;                   EndIf


            Trans\x = 0; * 0.80
            Trans\y = Jump
            Trans\z = 0;* 0.80




            If KeyboardPushed(\Key\Up)
                  Trans\x = Forward\x * Speed
                  Trans\z = Forward\z * Speed
            ElseIf KeyboardPushed(\Key\Down)
                  Trans\x = Forward\x * -Speed2
                  Trans\z = Forward\z * -Speed2
            EndIf
            
            If KeyboardPushed(\Key\Left)
                  Trans\x = Strafe\x * Speed
                  Trans\z = Strafe\z * Speed
            ElseIf KeyboardPushed(\Key\Right)
                  Trans\x = Strafe\x * -Speed
                  Trans\z = Strafe\z * -Speed
            EndIf

;            DisableEntityBody(\EntityBody, #False) ; Wake up entity (BugWare)

            EntityVelocity(\EntityBody,Trans\x,Trans\y,Trans\z)
            ;MoveEntity(\EntityBody, Trans\x, Trans\y, Trans\z)






            If \hidelamp=0
                  If game\flashlight Or flash_on
                        ;MoveLight(Light2, PosLamp\x+lamp_x, PosLamp\y+lamp_y, PosLamp\z+lamp_z, #PB_Absolute)
                        ; CreateLine3D(#PB_Any, PosLamp\x, PosLamp\y+40, PosLamp\z, $FFFF, PosLamp\x, PosLamp\y+41, PosLamp\z, $FFFF)
                        If #cam_type = 2   
      
                              LightAttenuation(light2, 8050, 1)
                              SpotLightRange(light2, 0, lamp_o, 1)
                              ; 
                              ; LightAttenuation(light2, 1550, 1)
                              ; SpotLightRange(light2, 1, 360, 1)
      
                              LightDirection(Light2, CameraDirectionX(0), CameraDirectionY(0), CameraDirectionZ(0))
                        EndIf
                  Else
                        \hidelamp=1
                        HideLight(Light2, \hidelamp)
                  EndIf
            EndIf



            If KeyboardReleased(#PB_Key_Back)
                  If \hidemenu=0
                        \hidemenu=1
                  Else
                        \hidemenu=0
                  EndIf
            EndIf

            If KeyboardReleased(#PB_Key_L)
                  If \hidelamp=0
                        \hidelamp=1
                  Else
                        \hidelamp=0
                  EndIf
                  HideLight(Light2, \hidelamp)
            EndIf



      EndIf
          
      If #cam_type = 2   
            CameraFOV(0, \Fov)
      EndIf      
      
      RotateEntity(\EntityBody, 0, \Rot_y, 0, #PB_Absolute)

      RotateNode(\CameraNode, \Rot_x, 0, 0, #PB_Absolute)
      RotateNode(\HandNode, \Rot_x, 0, 0, #PB_Absolute)
      
      SoundListenerLocate(EntityX(\EntityBody), EntityY(\EntityBody) - \BodyOffsetY, EntityZ(\EntityBody))

      MoveNode(\MainNode, EntityX(\EntityBody), EntityY(\EntityBody) - \BodyOffsetY, EntityZ(\EntityBody), #PB_Absolute)
      RotateNode(\MainNode, 0, EntityYaw(\EntityBody), 0)

      If game\flashlight Or flash_on
            MoveLight(Light2, PosLamp\x+0, PosLamp\y+0, PosLamp\z+0, #PB_Absolute)
      EndIf

      If \HideMenu

      EndIf

; NodeFixedYawAxis(\MainNode, #True, 0.2, 0, 0.2)
; Debug EntityYaw(\EntityBody)
; Debug EntityPitch(\EntityBody)
; Debug CameraYaw(\CameraNode)


EndWith
EndProcedure
Last edited by siesit on Mon Sep 15, 2025 5:50 pm, edited 1 time in total.
site created by purebasic work-flow-Initiative
Top
miso
Enthusiast
Enthusiast
Posts: 493
Joined: Sat Oct 21, 2023 4:06 pm
Location: Hungary

Re: When moving, the speed can change unpredictably. 3d FPS

Post by miso »

I'm halfway done with my stresstest with collision and reduced batches. You will be pleased. I will send it to you tonight.
Top
miso
Enthusiast
Enthusiast
Posts: 493
Joined: Sat Oct 21, 2023 4:06 pm
Location: Hungary

Re: When moving, the speed can change unpredictably. 3d FPS

Post by miso »

Maybe this was a bit early. I'm working on a game framework, but I'm not at 3d part yet. Created a quick prototype stresstest, coded on a good machine, and everything looked fine. I was daring to apply Pf_Shadokos shadows to the scene. After I finished, I copied to my low end machine, and it was terrible. (I had to reduce the amount of props greatly to achieve better results, but the slowdowns are real) (Though they disappear after a while, I have a couple of guesses what might cause it.) Wheatever, heres the result.

Everything interesting is in the main.pb file. Prototype, so not nice code. You can control the amount of props via the constants at the beginning.
If you are letterboxed, change the virtualscreen(1366,768) to your resolution.

https://nextcloud.cloudns.ph/index.php/ ... 6r7H296roe
Top
miso
Enthusiast
Enthusiast
Posts: 493
Joined: Sat Oct 21, 2023 4:06 pm
Location: Hungary

Re: When moving, the speed can change unpredictably. 3d FPS

Post by miso »

So, I made further tests. I figured, that the static geometry does not inherit visibilitymask of the parent entity, so it was rendered twice. I made a new version, removed the rendertexture camera.

Also figured out, that the physics engine is the one that causes the slowdown. I think it can't keep up with the collision events, but it is just a guess.
Maybe if a couple of big collision entities were made instead of the lot of small ones would help.

Tried to make a couple of workarounds. It happened to be better, if I choose a big fix number for the physics step like renderworld(100), and I do not change this. I can adjust the movements with elapsed time. (This new example uses fix speed adjusted to renderworld(100)) Slowdowns almost completely disappeared that way.

Number of props adjusted to my lowend machine, but you can increase those. On my other machine I can render a complete city with this with shadows.

https://nextcloud.cloudns.ph/index.php/ ... tFF7xKtnf3
Last edited by miso on Wed Sep 17, 2025 4:16 pm, edited 2 times in total.
Top
siesit
User
User
Posts: 22
Joined: Fri Aug 21, 2009 8:40 am
Location: rus
Contact:
Contact siesit

Re: When moving, the speed can change unpredictably. 3d FPS

Post by siesit »

Thank you very much, very informative example.
I have already successfully applied some things. But I haven't figured it out completely yet.

I'm really carried away now. :-)
In my example I keep getting contradictory data.
Sometimes the same code gives different performance after launch.
site created by purebasic work-flow-Initiative
Top
Post Reply

Return to “3D Programming”