TheGameCreators - CodeBase - move and collision cars

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 14th Oct 2007 03:35

Modified: 1st Jan 1970 01:00

Author: best_game

Summary

move 50 cars and collision to wall

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

color backdrop rgb(255,255,255):sync on:color backdrop rgb(255,255,255)

create bitmap 1,640,480

set camera range 1,10000

///////Number Car

n=50

//////

ink 0,0

dim obj(n)

SET TEXT SIZE 14

SET TEXT TO BOLD

cls rgb(255,255,255)

for i=1 to n

obj(i)=i

make object box obj(i),20,20,100

loop object obj(i),152,194

position object obj(i),rnd(500),0,rnd(500)

text 5,5,"car"+str$(i)

get image i,0,0,40,64

texture object obj(i),i

`save image "car"+str$(i)+".jpg",i

sync

next i

make object box 1000,6000,50,100

make object box 1001,6000,50,100

make object box 1002,100,50,6000

make object box 1003,100,50,6000

make object plain 2000,10000,10000

xrotate object 2000,90

position object 1000,0,0,-2500

position object 1001,0,0,2500

position object 1002,-2500,0,0

position object 1003,2500,0,0

color backdrop rgb(0,0,0)

position camera -200,2000,-200

point camera 0,0,0

i=1

m=1

delete bitmap 1

x#=object position x(obj(1))

y#=object position y(obj(1))

z#=object position z(obj(1))

time#=time#+1

if time#=100

time#=0

m=m+1

if m>n then m=n

endif

SET OBJECT COLLISION ON 1000

SET OBJECT COLLISION ON 1001

SET OBJECT COLLISION ON 1002

SET OBJECT COLLISION ON 1003

for i=1 to m

SET OBJECT COLLISION ON obj(i)

move object obj(i),2

turn object left obj(i),rnd(5)

turn object right obj(i),rnd(5)

if OBJECT COLLISION(obj(i),1000)=1 or OBJECT COLLISION(obj(i),1001)=1 or OBJECT COLLISION(obj(i),1002)=1 or OBJECT COLLISION(obj(i),1003)=1

turn object right obj(i),6

endif

if OBJECT COLLISION(obj(i),obj(i-1))=1

turn object right obj(i),3

endif

next i

if upkey()=1 then move camera 10

if downkey()=1 then move camera -10

text 10,10,str$(time#)

text 10,20,str$(i)

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	best_game
CodeBase Entries:	1

CodeBase - move and collision cars

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments