TheGameCreators - CodeBase - object physics, by Sindore

Return to the CodeBase listing

Category: Math / Physics

Version: 1.0

Information

Uploaded: 21st Jan 2008 16:15

Modified: 1st Jan 1970 01:00

Author: sindore

Summary

you'll need dark physics. just something I throe together, box's spheres, jumping object, messed up gravity, etc

Full Description

you'll need dark physics. nothing special, just something I throe together, box's spheres, jumping object, messed up gravity, etc, I hope it helps if you do anything to change it let me know.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`*****************************

`*** made by Sindore MCN *****

`*****************************

`*** object physics **********

`*****************************

`*** have fun with this ******

`*** use it however you like *

`*****************************

`*** set up sync ***

sync on : sync rate 100

cls

`*** colour backdrop black ***

backdrop on

color backdrop rgb(0,0,0)

`*** start physics ***

phy start

`*** floor ***

`make object plain 1000,100,100

make object cube 1000,1

scale object 1000,100000,30,100000

`xrotate object 1000,90

`fix object pivot 1000

color object 1000,rgb(0,0,0)

position object 1000,0,-10,0

phy make rigid body static box 1000

`*** random sized cubes ***

for c = 1 to 100

`*** random size and position generater ***

randomize rnd(100000000)

r# = rnd(200.0)+20.0

make object cube c,1

scale object c,r#,r#,r#

position object c,rnd(25)-rnd(25),rnd(8)-rnd(8),rnd(25)-rnd(25)

color object c,rgb(rnd(225),rnd(225),rnd(225))

phy make rigid body dynamic box c

next c

`*** random sized spheres ***

for c = 101 to 200

`*** random size and position generater ***

randomize rnd(100000000)

r# = rnd(200.0)+20.0

make object sphere c,1

scale object c,r#,r#,r#

position object c,rnd(25)-rnd(25),9+rnd(3),rnd(25)-rnd(25)

color object c,rgb(rnd(225),rnd(225),rnd(225))

phy make rigid body dynamic sphere c

next c

`***  ***

for c = 201 to 300

make object sphere c,10

color object c,rgb(c-100,c-100,c-100)

bl = rnd(3)+1

if bl = 1 then inc x : dec z

if bl = 2 then dec x : inc z

if bl = 3 then inc x : inc z

if bl = 4 then dec x : dec z

position object c,6*x,-12,6*z

phy make rigid body static sphere c

next c

`*** start of the loop ***

`*** on/off swich for phyics updates ***

if scancode()= 2 and on = 0 then on = 1

if scancode()= 2 and off = 1 then on = 0

`this is the swich reset

inc offon

if offon = 100 then off = 0 : offon = 0

`this is for contant physics updates, unlike jump update

if on= 1

phy update

inc onoff

if onoff = 100 then off = 1 : onoff = 0

endif

`*** jump update phyics ***

if spacekey()=1 then phy update

`*** fun boxs ***

`this can be used to make the boxes jump around

if scancode()=3 and fbon = 0 then fbon = 1

if scancode()=3 and fboff = 1 then fbon = 0

`this is the swich reset

inc offbox

if offbox = 100 then fboff = 0 : offbox = 0

`this is the jump code

if fbon = 1

phy set rigid body angular momentum rnd(99)+1,rnd(360)-rnd(360),rnd(360)-rnd(360),rnd(360)-rnd(360)

color object rnd(99)+1,rgb(rnd(225),rnd(225),rnd(225))

inc fb

if fb = 100 then fboff = 1 : fb = 0

endif

`*** gravity messer, play with it ***

if G# <= -5.8 then gs = 0

if G# >= 5.8 then gs = 1

if gs = 0 then G# = G# + 0.1

if gs = 1 then G# = G# - 0.1

if scancode()=4 then phy set gravity G#,G#,G#

if scancode()=0 then phy set gravity 0,-9.8,0

`*** position physics object button ***

if returnkey()=1 and retimer = 0 then ret=1

`*** timer for positioning ***

if ret = 1 then ti = 1

if ti = 1 then inc retimer

if retimer = 500 then ti = 0 : retimer = 0

`*** position physics object ***

if ret = 1

`this code is to reset the object position so that you can reuse the simulation over and over

for c = 1 to 100

`*** random position generater ***

randomize rnd(100000000)

`position object c,rnd(10)-rnd(10),rnd(8)-rnd(8),rnd(10)-rnd(10)

phy set rigid body position c,rnd(25)-rnd(25),rnd(8)-rnd(8),rnd(25)-rnd(25)

`phy set rigid body rotation c,0.0,0.0,0.0

next c

for c = 101 to 200

`*** random position generater ***

randomize rnd(100000000)

`position object c,rnd(12)-rnd(12),9+rnd(3),rnd(12)-rnd(12)

phy set rigid body position c,rnd(25)-rnd(25),9+rnd(3),rnd(25)-rnd(25)

`phy set rigid body rotation c,0.0,0.0,0.0

next c

ret = 0

phy update

endif

`*** camera control ***

`this bit is not 100% my codeing, so if most of this camera control is yours and your pisseed im sorry, but you should not

`put code that you dont wont other users to pinch. have fun with this

if mouseclick()=1 then move camera 0.5

if mouseclick()=2 then move camera -0.5

yrotate camera camera angle y() + mousemovex()*0.3/2

xrotate camera camera angle x() + mousemovey()*0.3/2

if wrapvalue(camera angle x(0))>100 and wrapvalue(camera angle x(0))<120 then xrotate camera 0,100

if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

set cursor 0,0 : print "use the mouse to look around, and mouse keys to move camera"

set cursor 0,20 : print "press 1 to switch on/off physics"

set cursor 0,40 : print "press 2 to activate jiggle box, press 3 to mess with physics gravity"

set cursor 0,60 : print "press return key to reset object position, press space key to step physics"

set cursor 0,80 : print "Gravaty levels : ";G#

`*** update sync, end loop ***

sync

loop

`*** end physics ***

phy end

Download

Please login to download

Comments

No comments yet.

Author Name:	sindore
CodeBase Entries:	3

CodeBase - object physics, by Sindore

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments