Car Physics! - GameCreators Forum

Author

Message

The ARRAYinator

19

Years of Service

User Offline

Joined: 13th Aug 2005

Location:

Posted: 19th Dec 2005 21:28 Edited at: 19th Dec 2005 21:30

Link

here is a little program that I wrote in a few minutes.It makes a pretty decent car affect that can be changed to simulate pretty much any kind of vehicle.let me know of any suggestions if you have any.

+ Code Snippet

sync on
sync rate 0

make object box 1,20,10,40
make matrix 1,9000,9000,35,35


speed#=0
friction#=0.12
wradius#=0.2
WindR#=0.6
accel#=1.2
brake#=0.4
tang#=9
maxspeed#=45

do

angy#= object angle y(1)
px#=object position x(1)
py#=object position y(1)
pz#=object position z(1)

wind#=rnd(windR#)

if upkey()=1 and speed#<maxspeed# then speed#=speed#+accel#
if downkey()=1 then speed#=speed#-brake#
if leftkey()=1 then turn object left 1,cos(speed#*wradius#)*cos(tang#)*cos(accel#)*(speed#*wradius#*friction#)
if rightkey()=1 then turn object right 1,cos(speed#*wradius#)*cos(tang#)*cos(accel#)*(speed#*wradius#*friction#)

move object 1,(speed#*friction#)-wind#

if speed#<0.1 then speed#=0.0

if upkey()=0 and speed#>1 then speed#=speed#-0.25

position camera 500,280,500
point camera px#,py#,pz#


sync
loop

Back to top

Profile PM Website

Milkman

18

Years of Service

User Offline

Joined: 30th Nov 2005

Location: United States

Posted: 20th Dec 2005 01:34

Link

Yes, I have a suggestion: try giving credit to the people who deserve it. Your code was obviously right from Zotoaster's tutorial on physics, only slightly changed:
http://forum.thegamecreators.com/?m=forum_view&t=67238&b=6
You could have at least mentioned his name in your post...

"Genius is 1% inspiration and 99% perspiration"

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 20th Dec 2005 10:40

Link

I wrote this code 1year ago:

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

`*** race damo ***
sync on

`make player
make object box 1,10,7.5,20
position object 1,500,3.75,500

`make tile texture
ink rgb(0,100,0),0
box 0,0,50,50
for x=1 to 50
	ink rgb(0,100+rnd(155),0),0
	dot rnd(50),rnd(50)
next x
get image 1,0,0,50,50

`make and texture matrix
make matrix 1,1000,1000,50,50
prepare matrix texture 1,1,1,1

`values
traction#=0.95
radius#=100.5
pi#=3.141

do

`player data
	posx#=object position x(1)
	posz#=object position z(1)
	angley#=object angle y(1)

`controls
	if upkey()=1 and speed#<15 then inc speed#
	if downkey()=1 then speed#=speed#*0.85

`physics
	speed#=speed#*traction#
	posx#=newxvalue(posx#,angley#,speed#)
	posz#=newzvalue(posz#,angley#,speed#)

`turning the car
	if leftkey()=1
		yrotate object 1,wrapvalue(angley#-(180*speed#/(pi#*radius#)))
	endif
	if rightkey()=1
		yrotate object 1,wrapvalue(angley#+(180*speed#/(pi#*radius#)))
	endif

`stop car at minimum speed
	if speed#<0.5 then speed#=0.0

`camera position
	position camera 500,280,500
	point camera posx#,0,posz#

`update player
	position object 1,posx#,3.75,posz#

sync
loop

+ Code Snippet

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

`*** race damo ***
sync on

`make player
make object box 1,10,7.5,20
position object 1,500,3.75,500

`make tile texture
ink rgb(0,100,0),0
box 0,0,50,50
for x=1 to 50
	ink rgb(0,100+rnd(155),0),0
	dot rnd(50),rnd(50)
next x
get image 1,0,0,50,50

`make and texture matrix
make matrix 1,1000,1000,50,50
prepare matrix texture 1,1,1,1

`values
traction#=0.95
radius#=100.5
pi#=3.141

do

	`player data
	posx#=object position x(1)
	posz#=object position z(1)
	angley#=object angle y(1)

	`controls
	if upkey()=1 and speed#<15 then inc speed#
	if downkey()=1 then speed#=speed#*0.85

	`physics
	speed#=speed#*traction#
	posx#=newxvalue(posx#,angley#,speed#)
	posz#=newzvalue(posz#,angley#,speed#)

	`turning the car
	if leftkey()=1
		yrotate object 1,wrapvalue(angley#-(180*speed#/(pi#*radius#)))
	endif
	if rightkey()=1
		yrotate object 1,wrapvalue(angley#+(180*speed#/(pi#*radius#)))
	endif

	`stop car at minimum speed
	if speed#<0.5 then speed#=0.0

	`camera position
	position camera 500,280,500
	point camera posx#,0,posz#

	`update player
	position object 1,posx#,3.75,posz#

	sync
loop

A couple of months ago, I found this link:
http://home.planet.nl/~monstrous/tutcar.html

I gave it to Zotoaster, which is now digging in it:
http://forum.thegamecreators.com/?m=forum_view&t=67238&b=6

[edit] sorry, same link..

Back to top

Profile PM Email

flashing snall

19

Years of Service

User Offline

Joined: 8th Oct 2005

Location: Boston

Posted: 20th Dec 2005 13:07

Link

woa... im new, so this is still amazing

dont assume cause ull make an ass out of you and me!

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 20th Dec 2005 17:44

Link

Why does everyone take my stuff without asking/crediting recently

Anyway, I dont really mind this time because that code was for people to use and learn from, so good job understanding it and applying it to your own stuff man

Back to top

Profile PM Email

Darkbasic MADPSP

19

Years of Service

User Offline

Joined: 15th Jun 2005

Location: Uk

Posted: 20th Dec 2005 18:38

Link

zotoaster it's not like it's the whole ccode or anything he edited it and made it smaller

Experienced DB http://www.greatgames3d.com (work in progress site)

Back to top

Profile PM Website

The ARRAYinator

19

Years of Service

User Offline

Joined: 13th Aug 2005

Location:

Posted: 20th Dec 2005 18:57

Link

Actually I honestly wrote this from scratch.I looked at your post after I posted this zotoaster and yours works in quite a different way.Considering you used proper formulas and I made it the way I thought looked right when running the program.But I do like the fact that my code can somewhat be close to the quality of yours as you guys make it sound

. but in no way would I steal or mod code

.how is this code like zotoasters at all anyway?I have different formulas variables and all of that stuff.Anyway I did not mod your code at all Zotoaster and if I did I would of included your name in the post.

Back to top

Profile PM Website

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 20th Dec 2005 19:43

Link

I c your point...

BTW, sorry if I sounded like you're code is rubbish. I have this stupid habit to come to the point immediately, which can sometimes sound offensive.

Anyway, this code is good. Probably more readable than Zotoasters and easier the understand.
(No offence Zotoaster, but when you're not familiar with the formula's, it's pretty difficult to understand).

Back to top

Profile PM Email

The ARRAYinator

19

Years of Service

User Offline

Joined: 13th Aug 2005

Location:

Posted: 20th Dec 2005 20:12 Edited at: 20th Dec 2005 20:13

Link

here is a small update.now you can move backwards with the control key.

+ Code Snippet

sync on
sync rate 0

make object box 1,20,10,40
make matrix 1,9000,9000,35,35


speed#=0
friction#=0.12
wradius#=0.2
WindR#=0.6
accel#=1.2
brake#=0.4
tang#=9
maxspeed#=45
Raccel#=0.2

do

angy#= object angle y(1)
px#=object position x(1)
py#=object position y(1)
pz#=object position z(1)

wind#=rnd(windR#)

if upkey()=1 and speed#<maxspeed# then speed#=speed#+accel#
if downkey()=1 then speed#=speed#-brake#
if leftkey()=1 then turn object left 1,cos(speed#*wradius#)*cos(tang#)*cos(accel#)*(speed#*wradius#*friction#)
if rightkey()=1 then turn object right 1,cos(speed#*wradius#)*cos(tang#)*cos(accel#)*(speed#*wradius#*friction#)
if controlkey()=1 and speed#>-20 then speed#=speed#-Raccel#

if controlkey()=0 and speed#<-1 then speed#=speed#+0.001

move object 1,(speed#*friction#)-wind#

if speed#<0.1 and controlkey()=0 then speed#=0.0

if upkey()=0 and controlkey()=0 and speed#>1 then speed#=speed#-0.25

position camera 500,280,500
point camera px#,py#,pz#


sync
loop

Back to top

Profile PM Website

Sorry your browser is not supported!

Code Snippets / Car Physics!