TheGameCreators - CodeBase - Collision against multiple objects v2.0

Return to the CodeBase listing

Category: Collision

Version: 2.0

Information

Uploaded: 6th Mar 2006 11:10

Modified: 1st Jan 1970 01:00

Author: Image All

Summary

Accurate rotation added to version 1.0

Full Description

Version 2.0 of CodeBase entry "Collision against multiple objects" is a bit more advanced, but a lot more realistic. In this version, the dummy objects actually rotate when they are pressed at any of the corners.<br /> <br /> W to move forward<br /> S to move backward<br /> Mouse to look

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on : sync rate 60 : hide mouse

autocam off

center text screen width()/2,screen height()/2,"Loading.."

sync : sync

make object cube 1,5

make object cube 2,5

make object cube 3,5

make object cube 4,5

position object 1,-7.25,0,7.25

position object 2,7.25,0,7.25

position object 3,-7.25,0,-7.25

position object 4,7.25,0,-7.25

set object collision to boxes 1

set object collision to boxes 2

set object collision to boxes 3

set object collision to boxes 4

make object cube 5,5

position object 5,0,0,0

color object 5,rgb(0,200,0)

set object collision to boxes 5

global Plrx#=0.0

global Plrz#=0.0

global Plra#=0.0

if keystate(17)=1 then inc Plrx#,sin(Plra#)*0.2 : inc Plrz#,cos(Plra#)*0.2

if keystate(31)=1 then dec Plrx#,sin(Plra#)*0.2 : dec Plrz#,cos(Plra#)*0.2

Plra# = wrapvalue(Plra#+(mousemovex()*0.2))

for i=1 to 4

if object collision(i,0)<>0 then CollideObjects(object collision(i,0),i)

next i

position object 5,Plrx#,0,Plrz#

rotate object 5,0,Plra#,0

position camera (Plrx#-(sin(Plra#)*15)),10,(Plrz#-(cos(Plra#)*15))

point camera Plrx#,0,Plrz#

sync

loop

function CollideObjects(Pl,Df)

Dfx#=object position x(Df)

Dfz#=object position z(Df)

Dfsx#=object size x(Df)/2

Dfsz#=object size z(Df)/2

Dfya#=object angle y(Df)

leftx#=Dfx#+sin(wrapvalue(Dfya#-90))*Dfsx#

leftz#=Dfz#+cos(wrapvalue(Dfya#-90))*Dfsz#

topx#=Dfx#+sin(Dfya#)*Dfsx#

topz#=Dfz#+cos(Dfya#)*Dfsz#

rightx#=Dfx#+sin(wrapvalue(Dfya#+90))*Dfsx#

rightz#=Dfz#+cos(wrapvalue(Dfya#+90))*Dfsz#

bottomx#=Dfx#-sin(Dfya#)*Dfsx#

bottomz#=Dfz#-cos(Dfya#)*Dfsz#

topleftx#=leftx#+sin(Dfya#)*Dfsz#

topleftz#=leftz#+cos(Dfya#)*Dfsz#

toprightx#=topx#+sin(wrapvalue(Dfya#+90))*Dfsx#

toprightz#=topz#+cos(wrapvalue(Dfya#+90))*Dfsx#

botmrightx#=rightx#-sin(Dfya#)*Dfsz#

botmrightz#=rightz#-cos(Dfya#)*Dfsz#

botmleftx#=leftx#-sin(Dfya#)*Dfsz#

botmleftz#=leftz#-cos(Dfya#)*Dfsz#

leftfront#=intersect object(Pl,topleftx#,0,topleftz#,leftx#,0,leftz#)

leftback#=intersect object(Pl,botmleftx#,0,botmleftz#,leftx#,0,leftz#)

topleft#=intersect object(Pl,topleftx#,0,topleftz#,topx#,0,topz#)

topright#=intersect object(Pl,toprightx#,0,toprightz#,topx#,0,topz#)

rightfront#=intersect object(Pl,toprightx#,0,toprightz#,rightx#,0,rightz#)

rightback#=intersect object(Pl,botmrightx#,0,botmrightz#,rightx#,0,rightz#)

bottomleft#=intersect object(Pl,botmleftx#,0,botmleftz#,bottomx#,0,bottomz#)

bottomright#=intersect object(Pl,botmrightx#,0,botmrightz#,bottomx#,0,bottomz#)

if leftfront# > 0 then move object right Df,0.2 : yrotate object Df,wrapvalue(Dfya#+(Dfsz#-leftfront#))

if leftback# > 0 then move object right Df,0.2 : yrotate object Df,wrapvalue(Dfya#-(Dfsz#-leftback#))

if topleft# > 0 then move object Df,-0.2 : yrotate object Df,wrapvalue(Dfya#-(Dfsx#-topleft#))

if topright# > 0 then move object Df,-0.2 : yrotate object Df,wrapvalue(Dfya#+(Dfsx#-topright#))

if rightfront# > 0 then move object left Df,0.2 : yrotate object Df,wrapvalue(Dfya#-(Dfsz#-rightfront#))

if rightback# > 0 then move object left Df,0.2 : yrotate object Df,wrapvalue(Dfya#+(Dfsz#-rightback#))

if bottomleft# > 0 then move object Df,0.2 : yrotate object Df,wrapvalue(Dfya#+(Dfsx#-bottomleft#))

if bottomright# > 0 then move object Df,0.2 : yrotate object Df,wrapvalue(Dfya#-(Dfsx#-bottomright#))

CodeBase - Collision against multiple objects v2.0

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Image All
CodeBase Entries:	4