Help with my sliding collision code

Author

Message

Twu Kai

18

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 2nd Apr 2006 17:27

Link

I'm using DBPro, and I've made a fairly simple sliding collision code.
It's a bit flickery, as in, when I go onto a point of an object, it jumps to another side, how can I improve my code?

The function:

function slidingcollision(obj,obj2,xstart,xend,zstart,zend)
if object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=>object position x(obj) and object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) then position object obj,xstart-1,object position y(obj),object position z(obj)
if object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) and object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) then position object obj,xend+1,object position y(obj),object position z(obj)

if object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) and object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) then position object obj,object position x(obj),object position y(obj),zstart-1
if object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=<object position z(obj) and object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) then position object obj,object position x(obj),object position y(obj),zend+1
endfunction

+ Code Snippet

function slidingcollision(obj,obj2,xstart,xend,zstart,zend)
if object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=>object position x(obj) and object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) then position object obj,xstart-1,object position y(obj),object position z(obj)
if object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) and object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) then position object obj,xend+1,object position y(obj),object position z(obj)

if object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) and object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) then position object obj,object position x(obj),object position y(obj),zstart-1
if object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=<object position z(obj) and object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) then position object obj,object position x(obj),object position y(obj),zend+1
endfunction

And an example:

hide mouse
make object sphere 1,50
make object cube 2,50
position object 1,100,25,100
position object 2,0,25,0
make matrix 1,1000,1000,20,20
do
set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),100,150,1,9
if upkey()=1 then move object 1, 0.08
if downkey()=1 then move object 1, -0.08
if leftkey()=1 then move object left 1, 0.08
if rightkey()=1 then move object right 1, 0.08
slidingcollision(1,2,-25,25,-25,25)
cy#=wrapvalue(cy#+mousemovex()*0.08)
acy#=curveangle(cy#,acy#,1)
yrotate object 1,acy#
cx#=wrapvalue(cx#+mousemovey()*0.03)
acx#=curveangle(cx#,acx#,1)
xrotate camera acx#
loop

function slidingcollision(obj,obj2,xstart,xend,zstart,zend)
if object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=>object position x(obj) and object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) then position object obj,xstart-1,object position y(obj),object position z(obj)
if object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) and object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) then position object obj,xend+1,object position y(obj),object position z(obj)

if object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) and object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) then position object obj,object position x(obj),object position y(obj),zstart-1
if object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=<object position z(obj) and object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) then position object obj,object position x(obj),object position y(obj),zend+1
endfunction

+ Code Snippet

hide mouse
make object sphere 1,50
make object cube 2,50
position object 1,100,25,100
position object 2,0,25,0
make matrix 1,1000,1000,20,20
do
set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),100,150,1,9
if upkey()=1 then move object 1, 0.08
if downkey()=1 then move object 1, -0.08
if leftkey()=1 then move object left 1, 0.08
if rightkey()=1 then move object right 1, 0.08
slidingcollision(1,2,-25,25,-25,25)
cy#=wrapvalue(cy#+mousemovex()*0.08)
acy#=curveangle(cy#,acy#,1)
yrotate object 1,acy#
cx#=wrapvalue(cx#+mousemovey()*0.03)
acx#=curveangle(cx#,acx#,1)
xrotate camera acx#
loop

function slidingcollision(obj,obj2,xstart,xend,zstart,zend)
if object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=>object position x(obj) and object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) then position object obj,xstart-1,object position y(obj),object position z(obj)
if object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) and object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) then position object obj,xend+1,object position y(obj),object position z(obj)

if object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=>object position z(obj) and object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) then position object obj,object position x(obj),object position y(obj),zstart-1
if object position z(obj)=>zstart and object position z(obj)=<zend and object position z(obj2)=<object position z(obj) and object position x(obj)=>xstart and object position x(obj)=<xend and object position x(obj2)=<object position x(obj) then position object obj,object position x(obj),object position y(obj),zend+1
endfunction

Help would be nice!

I came, I saw, I programmed!

Back to top

Profile PM

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 2nd Apr 2006 21:10

Link

Umm...Is this supposed to happen?

FunkyStickmen: Battle of the Races (1%)

Back to top

Profile PM Email

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 3rd Apr 2006 01:27

Link

I'm sorry I ended up not using any of your previous function. I think it is an improvement but it isn't perfect.

hide mouse
make object sphere 1,50
make object cube 2,50
position object 1,100,25,100
position object 2,0,25,0
make matrix 1,1000,1000,20,20
do
set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),100,50,1,9
point camera object position x(1),object position y(1),object position z(1)
move object 1,(upkey()-downkey())*0.08
move object right 1,(rightkey()-leftkey())*0.08
cy#=wrapvalue(cy#+mousemovex()*0.08)
acy#=curveangle(cy#,acy#,1)
yrotate object 1,acy#
slidingcollision(1,2,25)
loop

function slidingcollision(obj1,obj2,radius)
distx1#=intersect object(obj2,object position x(obj1),object position y(obj1),object position z(obj1),object position x(obj1)+radius,object position y(obj1),object position z(obj1))
distx2#=intersect object(obj2,object position x(obj1),object position y(obj1),object position z(obj1),object position x(obj1)-radius,object position y(obj1),object position z(obj1))
distz1#=intersect object(obj2,object position x(obj1),object position y(obj1),object position z(obj1),object position x(obj1),object position y(obj1),object position z(obj1)+radius)
distz2#=intersect object(obj2,object position x(obj1),object position y(obj1),object position z(obj1),object position x(obj1),object position y(obj1),object position z(obj1)-radius)
if distx1#>0 then x1#=radius-distx1#
if distx2#>0 then x2#=radius-distx2#
if distz1#>0 then z1#=radius-distz1#
if distz2#>0 then z2#=radius-distz2#
position object obj1,object position x(obj1)-x1#+x2#,object position y(obj1),object position z(obj1)-z1#+z2#
endfunction

+ Code Snippet

hide mouse
make object sphere 1,50
make object cube 2,50
position object 1,100,25,100
position object 2,0,25,0
make matrix 1,1000,1000,20,20
do
set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),100,50,1,9
point camera object position x(1),object position y(1),object position z(1)
move object 1,(upkey()-downkey())*0.08
move object right 1,(rightkey()-leftkey())*0.08
cy#=wrapvalue(cy#+mousemovex()*0.08)
acy#=curveangle(cy#,acy#,1)
yrotate object 1,acy#
slidingcollision(1,2,25)
loop

function slidingcollision(obj1,obj2,radius)
distx1#=intersect object(obj2,object position x(obj1),object position y(obj1),object position z(obj1),object position x(obj1)+radius,object position y(obj1),object position z(obj1))
distx2#=intersect object(obj2,object position x(obj1),object position y(obj1),object position z(obj1),object position x(obj1)-radius,object position y(obj1),object position z(obj1))
distz1#=intersect object(obj2,object position x(obj1),object position y(obj1),object position z(obj1),object position x(obj1),object position y(obj1),object position z(obj1)+radius)
distz2#=intersect object(obj2,object position x(obj1),object position y(obj1),object position z(obj1),object position x(obj1),object position y(obj1),object position z(obj1)-radius)
if distx1#>0 then x1#=radius-distx1#
if distx2#>0 then x2#=radius-distx2#
if distz1#>0 then z1#=radius-distz1#
if distz2#>0 then z2#=radius-distz2#
position object obj1,object position x(obj1)-x1#+x2#,object position y(obj1),object position z(obj1)-z1#+z2#
endfunction

Insanity is just a state of mind

Back to top

Profile PM Website

monotonic

18

Years of Service

User Offline

Joined: 24th Mar 2006

Location: Nottinghamshire, England

Posted: 3rd Apr 2006 15:42

Link

Download newton (physics plugin) and use that, it is good, and its free!!!

Who is general failure, and why is he reading my c: drive?

Back to top

Profile PM

Twu Kai

18

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 3rd Apr 2006 18:54 Edited at: 3rd Apr 2006 18:55

Link

@Image All
It uses the center point of each object, you can change where it stops with the x and y start and ends to make it look better.

@Daemon
Wow, thank you very much! I'll put you in the credits of any future games using that function!

@monotonic
I might do... It's quite fun to make your own sliding collision functions though!

@everyone
Thanks!

I came, I saw, I programmed!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Help with my sliding collision code