Anyone have a good code for sliding collision?

Author

Message

Cliff Mellangard 3DEGS

Developer

18

Years of Service

User Offline

Joined: 20th Feb 2006

Location: Sweden

Posted: 22nd Feb 2013 16:06 Edited at: 22nd Feb 2013 16:07

Link

I have bin trying this to work ok in agk and no luck

Works great on walls but cant climb small stairs ok?

So i ended up with this and its no good and uses to much resources.

This can walk up and down stairs but is buggy on corners.

rem Old position
 oldx#=GetCameraX(1)
 oldy#=GetCameraY(1)
 oldz#=GetCameraZ(1)

rem Move camera
    if GetRawKeyState(38)=1 or getvirtualjoysticky(1)<0.0-0.5 then MoveCameraLocalZ(1,moveSpeed#*GFT#)
    if GetRawKeyState(40)=1 or getvirtualjoysticky(1)>0.0+0.5 then MoveCameraLocalZ(1,-moveSpeed#*GFT#)
    if GetRawKeyState(37)=1 or getvirtualjoystickx(1)<0.0-0.5 then RotateCameraLocalY(1,-turnSpeed#*GFT#)
    if GetRawKeyState(39)=1 or getvirtualjoystickx(1)>0.0+0.5 then RotateCameraLocalY(1,turnSpeed#*GFT#)

rem Gravity on camera

if ObjectRayCast( 0, GetCameraX(1), GetCameraY(1), GetCameraZ(1), GetCameraX(1), GetCameraY(1)-38.0, GetCameraZ(1))>0
    if ObjectRayCast( 0, GetCameraX(1), GetCameraY(1), GetCameraZ(1), GetCameraX(1), GetCameraY(1)-33.5, GetCameraZ(1))>0
       MoveCameraLocalY(1,-(10.0*GFT#))
    else
       MoveCameraLocalY(1,-(30.0*GFT#))
    endif
else
    MoveCameraLocalY(1,-(60.0*GFT#))
endif

rem New position
 newx#=GetCameraX(1)
 newy#=GetCameraY(1)-20.0
 newz#=GetCameraZ(1)
 `
 rem Adjust Y to match floor
 if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,12.0)>0
  newx#=GetObjectRayCastSlideX(0)
  newy#=GetObjectRayCastSlideY(0)
  newz#=GetObjectRayCastSlideZ(0)
  SetCameraPosition(1,newx#,newy#+20.0,newz#)
 endif

+ Code Snippet

rem Old position
 oldx#=GetCameraX(1)
 oldy#=GetCameraY(1)
 oldz#=GetCameraZ(1)

 rem Move camera
    if GetRawKeyState(38)=1 or getvirtualjoysticky(1)<0.0-0.5 then MoveCameraLocalZ(1,moveSpeed#*GFT#)
    if GetRawKeyState(40)=1 or getvirtualjoysticky(1)>0.0+0.5 then MoveCameraLocalZ(1,-moveSpeed#*GFT#)
    if GetRawKeyState(37)=1 or getvirtualjoystickx(1)<0.0-0.5 then RotateCameraLocalY(1,-turnSpeed#*GFT#)
    if GetRawKeyState(39)=1 or getvirtualjoystickx(1)>0.0+0.5 then RotateCameraLocalY(1,turnSpeed#*GFT#)

 rem Gravity on camera

 if ObjectRayCast( 0, GetCameraX(1), GetCameraY(1), GetCameraZ(1), GetCameraX(1), GetCameraY(1)-38.0, GetCameraZ(1))>0
    if ObjectRayCast( 0, GetCameraX(1), GetCameraY(1), GetCameraZ(1), GetCameraX(1), GetCameraY(1)-33.5, GetCameraZ(1))>0
       MoveCameraLocalY(1,-(10.0*GFT#))
    else
       MoveCameraLocalY(1,-(30.0*GFT#))
    endif
else
    MoveCameraLocalY(1,-(60.0*GFT#))
endif


 rem New position
 newx#=GetCameraX(1)
 newy#=GetCameraY(1)-20.0
 newz#=GetCameraZ(1)
 `
 rem Adjust Y to match floor
 if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,12.0)>0
  newx#=GetObjectRayCastSlideX(0)
  newy#=GetObjectRayCastSlideY(0)
  newz#=GetObjectRayCastSlideZ(0)
  SetCameraPosition(1,newx#,newy#+20.0,newz#)
 endif

I nead raycasting as i have curved corners in the map .

Android 2.3 , ZTE Skate , 480x800 , 800 mhz , Samsung Galaxy Y , 240x320 , 832 mhz , Sony ericson arc 480x854 , 1 ghz
Android 4.0 , Dmtech 3g 9738B , 1024x768 , 9.7 inches , 1.2 ghz

Back to top

Profile PM Website

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 22nd Feb 2013 16:15

Link

Here's some I was using but you might need to set up some variables / UDT's to use it:

function controlCamera()
    rem set camera angle
    cax# = getCameraAngleX(1)
    cay# = getCameraAngleY(1)
    tax# = cax#+mouse.moveY*0.5
    tay# = cay#+mouse.moveX*0.5
    if tax#>85.0 then tax# = 85.0
    if tax#<-85.0 then tax# = -85.0
    dx# = wrap180(tax#-cax#)
    dy# = wrap180(tay#-cay#)
    nax# = cax# + dx#*0.1
    nay# = cay# + dy#*0.1
    setCameraRotation(1,nax#,nay#,0)
    
    rem move camera
    cpx# = getCameraX(1)
    cpy# = getCameraY(1)
    cpz# = getCameraZ(1)
    setObjectPosition(dummy,cpx#,cpy#,cpz#)
    setObjectRotation(dummy,nax#,nay#,naz#)
    x# = (getRawKeyState(68) - getRawKeyState(65))*8.0
    z# = (getRawKeyState(87) - getRawKeyState(83))*8.0
    if abs(x#)>0.1
        mouse.camX= x#
    else
        mouse.camX = mouse.camX*0.9
    endif
    if abs(z#)>0.1
        mouse.camZ = z#
    else
        mouse.camZ = mouse.camZ*0.9
    endif
    oy# = getObjectY(dummy)
    MoveObjectLocalX(dummy, mouse.camX*0.05)
    MoveObjectLocalZ(dummy, mouse.camZ*0.05)
    nx# = getObjectX(dummy)
    ny# = oy#
    nz# = getObjectZ(dummy)
    rem apply gravity
    ny# = ny# - player1.gravity
    player1.gravity = player1.gravity + 0.025
    if player1.gravity>20 then player1.gravity = 20
        rem check for collisions
    coll = ObjectSphereSlide(0, cpx#, cpy#, cpz#, nx#, ny#, nz#, 3.0)
    if coll>0
        nx# = GetObjectRayCastSlideX(0)
        ny# = GetObjectRayCastSlideY(0)
        nz# = GetObjectRayCastSlideZ(0)
    endif
    coll = ObjectSphereSlide(0, nx#, ny#, nz#, nx#, ny#-2.0, nz#, 3.0)
    if coll>0
        ny# = GetObjectRayCastSlideY(0)+2.0
        player1.gravity = 0.0
        
        rem cause a jump
        if getRawKeyState(32)>0
            player1.gravity = -0.4
        endif
    endif
    setCameraPosition(1,nx#,ny#,nz#)
endfunction

+ Code Snippet

function controlCamera()
    rem set camera angle
    cax# = getCameraAngleX(1)
    cay# = getCameraAngleY(1)
    tax# = cax#+mouse.moveY*0.5
    tay# = cay#+mouse.moveX*0.5
    if tax#>85.0 then tax# = 85.0
    if tax#<-85.0 then tax# = -85.0
    dx# = wrap180(tax#-cax#)
    dy# = wrap180(tay#-cay#)
    nax# = cax# + dx#*0.1
    nay# = cay# + dy#*0.1
    setCameraRotation(1,nax#,nay#,0)
    
    rem move camera
    cpx# = getCameraX(1)
    cpy# = getCameraY(1)
    cpz# = getCameraZ(1)
    setObjectPosition(dummy,cpx#,cpy#,cpz#)
    setObjectRotation(dummy,nax#,nay#,naz#)
    x# = (getRawKeyState(68) - getRawKeyState(65))*8.0
    z# = (getRawKeyState(87) - getRawKeyState(83))*8.0
    if abs(x#)>0.1
        mouse.camX= x#
    else
        mouse.camX = mouse.camX*0.9
    endif
    if abs(z#)>0.1
        mouse.camZ = z#
    else
        mouse.camZ = mouse.camZ*0.9
    endif
    oy# = getObjectY(dummy)
    MoveObjectLocalX(dummy, mouse.camX*0.05)
    MoveObjectLocalZ(dummy, mouse.camZ*0.05)
    nx# = getObjectX(dummy)
    ny# = oy#
    nz# = getObjectZ(dummy)
    rem apply gravity
    ny# = ny# - player1.gravity
    player1.gravity = player1.gravity + 0.025
    if player1.gravity>20 then player1.gravity = 20
        rem check for collisions
    coll = ObjectSphereSlide(0, cpx#, cpy#, cpz#, nx#, ny#, nz#, 3.0)
    if coll>0
        nx# = GetObjectRayCastSlideX(0)
        ny# = GetObjectRayCastSlideY(0)
        nz# = GetObjectRayCastSlideZ(0)
    endif
    coll = ObjectSphereSlide(0, nx#, ny#, nz#, nx#, ny#-2.0, nz#, 3.0)
    if coll>0
        ny# = GetObjectRayCastSlideY(0)+2.0
        player1.gravity = 0.0
        
        rem cause a jump
        if getRawKeyState(32)>0
            player1.gravity = -0.4
        endif
    endif
    setCameraPosition(1,nx#,ny#,nz#)
endfunction

this.mess = abs(sin(times#))

Back to top

Profile PM Email

Cliff Mellangard 3DEGS

Developer

18

Years of Service

User Offline

Joined: 20th Feb 2006

Location: Sweden

Posted: 22nd Feb 2013 17:31

Link

Thats nice bax

How well does it perform on mobiles where the framerate could dropp down to 30-40 fps ?

This have bin the main problem so far with my samples as they play nice on higher framerates but terrible on low

I ended up with this one so far that seams to work on all framerates?

rem Old position
    oldx#=GetCameraX(1)
    oldy#=GetCameraY(1)
    oldz#=GetCameraZ(1)

rem Move camera
    if GetRawKeyState(38)=1 or getvirtualjoysticky(1)<0.0-0.5 then MoveCameraLocalZ(1,moveSpeed#*GFT#)
    if GetRawKeyState(40)=1 or getvirtualjoysticky(1)>0.0+0.5 then MoveCameraLocalZ(1,-moveSpeed#*GFT#)
    if GetRawKeyState(37)=1 or getvirtualjoystickx(1)<0.0-0.5 then RotateCameraLocalY(1,-turnSpeed#*GFT#)
    if GetRawKeyState(39)=1 or getvirtualjoystickx(1)>0.0+0.5 then RotateCameraLocalY(1,turnSpeed#*GFT#)

rem New position
    newx#=GetCameraX(1)
    newy#=GetCameraY(1)-17.0
    newz#=GetCameraZ(1)
    if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,16.0)>0
       XPos#=GetObjectRayCastSlideX(0)
       YPos#=GetObjectRayCastSlideY(0)+15.9
       ZPos#=GetObjectRayCastSlideZ(0)
       Gravity#=0.0
    else
       XPos#=GetCameraX(1)
       YPos#=GetCameraY(1)
       ZPos#=GetCameraZ(1)
       Gravity#=40.0*GFT#
    endif
    SetCameraPosition(1,XPos#,YPos#-Gravity#,ZPos#)

+ Code Snippet

rem Old position
    oldx#=GetCameraX(1)
    oldy#=GetCameraY(1)
    oldz#=GetCameraZ(1)

    rem Move camera
    if GetRawKeyState(38)=1 or getvirtualjoysticky(1)<0.0-0.5 then MoveCameraLocalZ(1,moveSpeed#*GFT#)
    if GetRawKeyState(40)=1 or getvirtualjoysticky(1)>0.0+0.5 then MoveCameraLocalZ(1,-moveSpeed#*GFT#)
    if GetRawKeyState(37)=1 or getvirtualjoystickx(1)<0.0-0.5 then RotateCameraLocalY(1,-turnSpeed#*GFT#)
    if GetRawKeyState(39)=1 or getvirtualjoystickx(1)>0.0+0.5 then RotateCameraLocalY(1,turnSpeed#*GFT#)

    rem New position
    newx#=GetCameraX(1)
    newy#=GetCameraY(1)-17.0
    newz#=GetCameraZ(1)
    if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,16.0)>0
       XPos#=GetObjectRayCastSlideX(0)
       YPos#=GetObjectRayCastSlideY(0)+15.9
       ZPos#=GetObjectRayCastSlideZ(0)
       Gravity#=0.0
    else
       XPos#=GetCameraX(1)
       YPos#=GetCameraY(1)
       ZPos#=GetCameraZ(1)
       Gravity#=40.0*GFT#
    endif
    SetCameraPosition(1,XPos#,YPos#-Gravity#,ZPos#)

I will add it to the codebase later on and this is how it looks ingame.

Android 2.3 , ZTE Skate , 480x800 , 800 mhz , Samsung Galaxy Y , 240x320 , 832 mhz , Sony ericson arc 480x854 , 1 ghz
Android 4.0 , Dmtech 3g 9738B , 1024x768 , 9.7 inches , 1.2 ghz

Back to top

Profile PM Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Anyone have a good code for sliding collision?