CodeBase - Motion and Collision

Return to the CodeBase listing

Category: Collision

Version: 1.0

0

0

Information

Uploaded: 14th Mar 2006 12:07

Modified: 1st Jan 1970 01:00

Author: thechew

Summary

A simple collision detection.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

function Move(numEn)

cu=numEn+3

ox#=Object Position x(2)

oz#=Object Position z(2)

oy#=Object Position y(2)

clone object cu,2

position object cu,ox#,oy#,oz#

if leftkey()=1

move object left cu,0.1

turn object left cu,0.1

nx#=Object Position x(cu)

nz#=Object Position z(cu)

ny#=object size y(1)*10

np# = intersect object(1,ox#,oy#,oz#,nx#,ny#,nz#)

if np#>0

move object left 2,0.1

turn object left 2,0.1

turn camera left 1,0.1

endif

endif

if rightkey()=1

move object right cu,0.1

turn object right cu,0.1

nx#=Object Position x(cu)

nz#=Object Position z(cu)

ny#=object size y(1)*10

np# = intersect object(1,ox#,oy#,oz#,nx#,ny#,nz#)

if np#>0

move object right 2,0.1

turn object right 2,0.1

turn camera right 1,0.1

endif

endif

if upkey()=1

move object cu,0.1

nx#=Object Position x(cu)

nz#=Object Position z(cu)

ny#=object size y(1)*10

np# = intersect object(1,ox#,oy#,oz#,nx#,ny#,nz#)

if np#>0

move object 2,0.1

move camera 1,0.1

endif

endif

if downkey()=1

move object cu,-0.1

nx#=Object Position x(cu)

nz#=Object Position z(cu)

ny#=object size y(1)*10

np# = intersect object(1,ox#,oy#,oz#,nx#,ny#,nz#)

if np#>0

move object 2,-0.1

move camera 1,-0.1

endif

endif

delete object cu

endfunction

Download

Please login to download

Comments

No comments yet.