TheGameCreators - CodeBase - very simple sliding collision- Dark Basic and Dark Basic Pro

Return to the CodeBase listing

Category: Collision

Version: 1.0

Information

Uploaded: 18th Aug 2004 06:57

Modified: 1st Jan 1970 01:00

Author: Seppuku Arts

Summary

A simple box sliding collision using DBCand DBP

Full Description

remeber if you want to make a scaled box collision, you need to halve the numbers of x,y,z of the object x,y,z in the collision box command eg. an object of 100,200,300 the collision box would be -50,-100,-150,50,100,150,0<br /> <br /> The Screenshot is from my new game called ronin using this collision

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`this code was made by Seppuku Geijutsu

`first we need the basic commands

cls

hide mouse

`next we need a player

make object cube 1,100

`the dimensions are 100x100x100 for any one who doesn't know

`lets make a collision box for it

make object collision box 1,-50,-50,-50,50,50,50,0

`the flag number is 0 because we don't need a collision flag

now lets make something for it to collide with and give it a box

make object box 2,300,200,500

make object collision box 2,-150,-100,-250,150,100,250,0

`we need to but it somewhere sensible

position object 2,500,0,500

`right thats the object sorted now for the do/loop commands

`well this needs to be here

`first we need to make a basic camera, its up to you to come up with your own camera if you don't like this one

x# = object position x(1)

y# = object position y(1)

z# = object position z(1)

position cmaera x#,y#+50,z#-50

point camera x#,y#,z#

`lets store the object position

oldposx#=object position x(1)

oldposy#=object position y(1)

oldposz#=object position z(1)

`now for the movement

if upkey()=1 then move object 1,20

if leftkey()=1 then turn object left 1,5

if rightkey()=1 then turn object right 1,5

`now for the collision

`first get the object position.....again

posx#=object position x(1)

posz#=object position z(1)

posy#=object position y(1)

`now for the collision detection

position object 1,posx#,posy#,posz#

if object collision(1,3)>0

dec posx#,get object collision x()

dec posy#,get object collision y()

dec posz#,get object collision z()

endif

`finally update the object position

position object 1,posx#,posy#,posz#

`a voila your simple collision

`remember not to forget you loop command

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Seppuku Arts
CodeBase Entries:	4

CodeBase - very simple sliding collision- Dark Basic and Dark Basic Pro