Was doing SO well on smooth movement, but now I'm stumped :(

Author

Message

Qqite

16

Years of Service

User Offline

Joined: 28th Feb 2010

Location: Florida, U.S.

Posted: 28th Dec 2010 08:14

Link

I was on a roll, but now I'm having a problem of the player forcing himself through walls. I am working on making a smooth movement system. I am using SC collision and the variables plrSpeedR# for right movement (negative for left movement) and plrSpeedF# for forward speed (negative for backwards movement).

My problems are that the player can force through walls and that the left and right movement is terribly wrong, even though everything seems to be set up correctly :\

Notice: this is the beginning on my move player function (yes I have variables on global xD) and is NOT RUNNABLE by itself. Souly for reading. If you want a full test I can provide full download.

rem collision for the person
   oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

rem move the player
if falling = 0
   if keystate(17)=1 then inc plrSpeedF#, 0.1
   if keystate(31)=1 then dec plrSpeedF#, 0.1
   if keystate(17)=0 and keystate(31)=0
       if plrSpeedF# > 0
        dec plrSpeedF#, 0.1
        if plrSpeedF# < 0 then plrSpeedF# = 0
       endif
       if PlrSpeedF# < 0
        inc plrSpeedF#, 0.1
        if plrSpeedF# > 0 then plrSpeedF# = 0
       endif
   endif

if keystate(32)=1 then inc plrSpeedR#, 0.1
   if keystate(30)=1 then dec plrSpeedR#, 0.1
   if keystate(32)=0 and keystate(30)=0
       if plrSpeedR# > 0
        dec plrSpeedR#, 0.1
        if plrSpeedR# < 0 then plrSpeedR# = 0
       endif
       if PlrSpeedR# < 0
        inc plrSpeedR#, 0.1
        if plrSpeedR# > 0 then plrSpeedR# = 0
       endif
   endif   
   
   
   if plrSpeedF# > 2 then plrSpeedF# = 2
   if plrSpeedF# < -2 then plrSpeedF# = -2
   if plrSpeedR# > 2 then plrSpeedF# = 2
   if plrSpeedR# < -2 then plrSpeedF# = -2
   
   
else
       if plrSpeedF# > 0
        dec plrSpeedF#, 0.1
        if plrSpeedF# < 0 then plrSpeedF# = 0
       endif
       if PlrSpeedF# < 0
        inc plrSpeedF#, 0.1
        if plrSpeedF# > 0 then plrSpeedF# = 0
       endif
       
       if plrSpeedR# > 0
        dec plrSpeedR#, 0.1
        if plrSpeedR# < 0 then plrSpeedR# = 0
       endif
       if PlrSpeedR# < 0
        inc plrSpeedR#, 0.1
        if plrSpeedR# > 0 then plrSpeedR# = 0
       endif
       
   if plrSpeedF# > 5 then plrSpeedF# = 2
   if plrSpeedF# < -5 then plrSpeedF# = -2
   if plrSpeedR# > 5 then plrSpeedF# = 2
   if plrSpeedR# < -5 then plrSpeedF# = -2
endif

move object right 2, plrSpeedR#
move object 2, plrSpeedF#

position object 2, object position x(2), object position y(2)-1, object position z(2)
 
   x# = object position x(2)
   y# = object position y(2)
   z# = object position z(2)

collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,y#,z#,30,0)

if collide>0
    if sc_getCollisionNormalY() > 0.3
      x# = sc_getCollisionSlideX()
      y# = sc_getCollisionSlideY()
      z# = sc_getCollisionSlideZ()     
      playerYColl# = y# - sc_getStaticCollisionY()
      falling = 0 
    endif
   else
      falling = 1
   endif
   
position object 2,x#,y#,z#

+ Code Snippet

rem collision for the person
   oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

rem move the player
if falling = 0
   if keystate(17)=1 then inc plrSpeedF#, 0.1
   if keystate(31)=1 then dec plrSpeedF#, 0.1
   if keystate(17)=0 and keystate(31)=0
       if plrSpeedF# > 0
        dec plrSpeedF#, 0.1
        if plrSpeedF# < 0 then plrSpeedF# = 0
       endif
       if PlrSpeedF# < 0
        inc plrSpeedF#, 0.1
        if plrSpeedF# > 0 then plrSpeedF# = 0
       endif
   endif

   
    
   if keystate(32)=1 then inc plrSpeedR#, 0.1
   if keystate(30)=1 then dec plrSpeedR#, 0.1
   if keystate(32)=0 and keystate(30)=0
       if plrSpeedR# > 0
        dec plrSpeedR#, 0.1
        if plrSpeedR# < 0 then plrSpeedR# = 0
       endif
       if PlrSpeedR# < 0
        inc plrSpeedR#, 0.1
        if plrSpeedR# > 0 then plrSpeedR# = 0
       endif
   endif   
   
   
   if plrSpeedF# > 2 then plrSpeedF# = 2
   if plrSpeedF# < -2 then plrSpeedF# = -2
   if plrSpeedR# > 2 then plrSpeedF# = 2
   if plrSpeedR# < -2 then plrSpeedF# = -2
   
   
else
       if plrSpeedF# > 0
        dec plrSpeedF#, 0.1
        if plrSpeedF# < 0 then plrSpeedF# = 0
       endif
       if PlrSpeedF# < 0
        inc plrSpeedF#, 0.1
        if plrSpeedF# > 0 then plrSpeedF# = 0
       endif
       
       if plrSpeedR# > 0
        dec plrSpeedR#, 0.1
        if plrSpeedR# < 0 then plrSpeedR# = 0
       endif
       if PlrSpeedR# < 0
        inc plrSpeedR#, 0.1
        if plrSpeedR# > 0 then plrSpeedR# = 0
       endif
       
   if plrSpeedF# > 5 then plrSpeedF# = 2
   if plrSpeedF# < -5 then plrSpeedF# = -2
   if plrSpeedR# > 5 then plrSpeedF# = 2
   if plrSpeedR# < -5 then plrSpeedF# = -2
endif

move object right 2, plrSpeedR#
move object 2, plrSpeedF#       
          
   

   position object 2, object position x(2), object position y(2)-1, object position z(2)
 
   x# = object position x(2)
   y# = object position y(2)
   z# = object position z(2)

   collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,y#,z#,30,0)

   if collide>0
    if sc_getCollisionNormalY() > 0.3
      x# = sc_getCollisionSlideX()
      y# = sc_getCollisionSlideY()
      z# = sc_getCollisionSlideZ()     
      playerYColl# = y# - sc_getStaticCollisionY()
      falling = 0 
    endif
   else
      falling = 1
   endif
   
position object 2,x#,y#,z#

Ventures of the worlds around us are only limited by imagination.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 28th Dec 2010 09:13

Link

This bit is wrong, you aren't resetting plrSpeedR#

+ Code Snippet

   if plrSpeedF# > 2 then plrSpeedF# = 2
   if plrSpeedF# < -2 then plrSpeedF# = -2
   if plrSpeedR# > 2 then plrSpeed[b]F[/b]# = 2
   if plrSpeedR# < -2 then plrSpeed[b]F[/b]# = -2

change it to this:

+ Code Snippet

   if plrSpeedF# > 2 then plrSpeedF# = 2
   if plrSpeedF# < -2 then plrSpeedF# = -2
   if plrSpeedR# > 2 then plrSpeed[b]R[/b]# = 2
   if plrSpeedR# < -2 then plrSpeed[b]R[/b]# = -2

try adding in code again:

+ Code Snippet

   oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

before this line:

+ Code Snippet

   position object 2, object position x(2), object position y(2)-1, object position z(2)

and take this line out:

+ Code Snippet

playerYColl# = y# - sc_getStaticCollisionY()

Re-written:

rem collision for the person
   oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

rem move the player
if falling = 0
   if keystate(17)=1 then inc plrSpeedF#, 0.1
   if keystate(31)=1 then dec plrSpeedF#, 0.1
   if keystate(17)=0 and keystate(31)=0
       if plrSpeedF# > 0
        dec plrSpeedF#, 0.1
        if plrSpeedF# < 0 then plrSpeedF# = 0
       endif
       if PlrSpeedF# < 0
        inc plrSpeedF#, 0.1
        if plrSpeedF# > 0 then plrSpeedF# = 0
       endif
   endif

if keystate(32)=1 then inc plrSpeedR#, 0.1
   if keystate(30)=1 then dec plrSpeedR#, 0.1
   if keystate(32)=0 and keystate(30)=0
       if plrSpeedR# > 0
        dec plrSpeedR#, 0.1
        if plrSpeedR# < 0 then plrSpeedR# = 0
       endif
       if PlrSpeedR# < 0
        inc plrSpeedR#, 0.1
        if plrSpeedR# > 0 then plrSpeedR# = 0
       endif
   endif   
   
   
   if plrSpeedF# > 2 then plrSpeedF# = 2
   if plrSpeedF# < -2 then plrSpeedF# = -2
   if plrSpeedR# > 2 then plrSpeedF# = 2
   if plrSpeedR# < -2 then plrSpeedF# = -2
   
   
else
       if plrSpeedF# > 0
        dec plrSpeedF#, 0.1
        if plrSpeedF# < 0 then plrSpeedF# = 0
       endif
       if PlrSpeedF# < 0
        inc plrSpeedF#, 0.1
        if plrSpeedF# > 0 then plrSpeedF# = 0
       endif
       
       if plrSpeedR# > 0
        dec plrSpeedR#, 0.1
        if plrSpeedR# < 0 then plrSpeedR# = 0
       endif
       if PlrSpeedR# < 0
        inc plrSpeedR#, 0.1
        if plrSpeedR# > 0 then plrSpeedR# = 0
       endif
       
   if plrSpeedF# > 5 then plrSpeedF# = 2
   if plrSpeedF# < -5 then plrSpeedF# = -2
   if plrSpeedR# > 5 then plrSpeedR# = 2
   if plrSpeedR# < -5 then plrSpeedR# = -2
endif

move object right 2, plrSpeedR#
move object 2, plrSpeedF#       
          
   oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

position object 2, object position x(2), object position y(2)-1, object position z(2)
 
   x# = object position x(2)
   y# = object position y(2)
   z# = object position z(2)

collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,y#,z#,30,0)

if collide>0
    if sc_getCollisionNormalY() > 0.3
      x# = sc_getCollisionSlideX()
      y# = sc_getCollisionSlideY()
      z# = sc_getCollisionSlideZ()     
      `playerYColl# = y# - sc_getStaticCollisionY()
      falling = 0 
    endif
   else
      falling = 1
   endif
   
position object 2,x#,y#,z#

+ Code Snippet

rem collision for the person
   oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

rem move the player
if falling = 0
   if keystate(17)=1 then inc plrSpeedF#, 0.1
   if keystate(31)=1 then dec plrSpeedF#, 0.1
   if keystate(17)=0 and keystate(31)=0
       if plrSpeedF# > 0
        dec plrSpeedF#, 0.1
        if plrSpeedF# < 0 then plrSpeedF# = 0
       endif
       if PlrSpeedF# < 0
        inc plrSpeedF#, 0.1
        if plrSpeedF# > 0 then plrSpeedF# = 0
       endif
   endif

   
    
   if keystate(32)=1 then inc plrSpeedR#, 0.1
   if keystate(30)=1 then dec plrSpeedR#, 0.1
   if keystate(32)=0 and keystate(30)=0
       if plrSpeedR# > 0
        dec plrSpeedR#, 0.1
        if plrSpeedR# < 0 then plrSpeedR# = 0
       endif
       if PlrSpeedR# < 0
        inc plrSpeedR#, 0.1
        if plrSpeedR# > 0 then plrSpeedR# = 0
       endif
   endif   
   
   
   if plrSpeedF# > 2 then plrSpeedF# = 2
   if plrSpeedF# < -2 then plrSpeedF# = -2
   if plrSpeedR# > 2 then plrSpeedF# = 2
   if plrSpeedR# < -2 then plrSpeedF# = -2
   
   
else
       if plrSpeedF# > 0
        dec plrSpeedF#, 0.1
        if plrSpeedF# < 0 then plrSpeedF# = 0
       endif
       if PlrSpeedF# < 0
        inc plrSpeedF#, 0.1
        if plrSpeedF# > 0 then plrSpeedF# = 0
       endif
       
       if plrSpeedR# > 0
        dec plrSpeedR#, 0.1
        if plrSpeedR# < 0 then plrSpeedR# = 0
       endif
       if PlrSpeedR# < 0
        inc plrSpeedR#, 0.1
        if plrSpeedR# > 0 then plrSpeedR# = 0
       endif
       
   if plrSpeedF# > 5 then plrSpeedF# = 2
   if plrSpeedF# < -5 then plrSpeedF# = -2
   if plrSpeedR# > 5 then plrSpeedR# = 2
   if plrSpeedR# < -5 then plrSpeedR# = -2
endif

move object right 2, plrSpeedR#
move object 2, plrSpeedF#       
          
   oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)   

   position object 2, object position x(2), object position y(2)-1, object position z(2)
 
   x# = object position x(2)
   y# = object position y(2)
   z# = object position z(2)

   collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,y#,z#,30,0)

   if collide>0
    if sc_getCollisionNormalY() > 0.3
      x# = sc_getCollisionSlideX()
      y# = sc_getCollisionSlideY()
      z# = sc_getCollisionSlideZ()     
      `playerYColl# = y# - sc_getStaticCollisionY()
      falling = 0 
    endif
   else
      falling = 1
   endif
   
position object 2,x#,y#,z#

Hope that helps!

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Was doing SO well on smooth movement, but now I'm stumped :(