TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Matrix

Version: 1.0

Information

Uploaded: 12th Dec 2004 11:48

Modified: 1st Jan 1970 01:00

Author: bibz1st

Summary

do you find angling your car or tank on a matrix hill difficult then read on

Full Description

I have seen a few posts on the forums about problems tilting to matrix so here is my contribution.<br /> the actual tilting code comes from the tank demo, with a few adjustments and comments added and a few liberties taken.<br /> the arrow keys direct the model, the return key and shift key increase/decrease the "foot" distance.Hope you can understand it, I dont claim to be an expert but with a bit of twiddling I got it working.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

tilt to matrix by bibz1st (rob) 2004

set display mode 800,600,16

hide mouse

autocam off

sync rate 60

sync on

rem will be using the ESCAPE key to delete everything (see further down code)

disable escapekey

rem create a texture for the matrix

cls rgb(0,100,20)

inkcolor#=rgb(255,255,255)

for n=1 to 50 step 10

line n,0,n,50

line 0,n,50,n

next n

get image 1,0,0,50,50

rem make our matrix

landsize=5000

make matrix 1,landsize*2,landsize*2,25,25

prepare matrix texture 1,1,1,1

rem undulate it

randomize matrix 1,200

rem make our undulations take effect

update matrix 1

rem Create a tilt object (will be hidden)

make object cone 1,10

hide limb 1,0

rem make model

make object box 2,30,10,50

color object 2,RGB(0,128,0)

fix object pivot 2

rem Glue model to tilt-object

glue object to limb 2,1,0

rem make four feet for visual aids

for x= 3 to 6

make object cube x,20

next x

rem convert the landsize figure into shorthand for ease of use within the code

x#=landsize

z#=landsize

rem main loop

oldx#=x#

oldz#=z#

x#=newxvalue(x#,a#,s#)

z#=newzvalue(z#,a#,s#)

s#=s#/1.2

rem Control direction of model

if upkey()=1 and s#<10.0 then inc s#,1.0

if downkey()=1 and s#>-10.0 then dec s#,1.0

if leftkey()=1 then dec a#,0.5

if rightkey()=1 then inc a#,0.5

rem Calculate four X+Z coordinates for each corner

rem these keys are just to show different effect as foot# gets larger/smaller

if returnkey()=1 and foot#<500.0 then inc foot#,10.0

if shiftkey()=1 and foot#>20.0 then dec foot#,10.0

ta#=wrapvalue(a#-45)

frontleftx#=newxvalue(x#,ta#,foot#) : frontleftz#=newzvalue(z#,ta#,foot#)

ta#=wrapvalue(a#+45)

frontrightx#=newxvalue(x#,ta#,foot#) : frontrightz#=newzvalue(z#,ta#,foot#)

ta#=wrapvalue(a#+225)

backleftx#=newxvalue(x#,ta#,foot#) : backleftz#=newzvalue(z#,ta#,foot#)

ta#=wrapvalue(a#+135)

backrightx#=newxvalue(x#,ta#,foot#) : backrightz#=newzvalue(z#,ta#,foot#)

rem Calculate degree of tilting from corner heights

frontlefth#=get ground height(1,frontleftx#,frontleftz#)

frontrighth#=get ground height(1,frontrightx#,frontrightz#)

backlefth#=get ground height(1,backleftx#,backleftz#)

backrighth#=get ground height(1,backrightx#,backrightz#)

across#=((frontrighth#-frontlefth#)+(backrighth#-backlefth#))/2.0

length#=((backlefth#-frontlefth#)+(backrighth#-frontrighth#))/2.0

rem Update position and rotation

h#=get ground height(1,x#,z#)

trackh#=(frontlefth#+frontrighth#+backlefth#+backrighth#)/4.0

if trackh#>h# then h#=trackh#

position object 1,x#,h#+object size y(2)*2,z#

yrotate object 1,wrapvalue(a#)

rotate object 2,wrapvalue(length#/4.0),0,wrapvalue(across#/4.0)

rem objects 3,4,5 and 6 are just visual aids and can be deleted safely

position object 3,frontleftx#,get ground height(1,frontleftx#,frontleftz#),frontleftz#

position object 4,frontrightx#,get ground height(1,frontrightx#,frontrightz#),frontrightz#

position object 5,backleftx#,get ground height(1,backleftx#,backleftz#),backleftz#

position object 6,backrightx#,get ground height(1,backrightx#,backrightz#),backrightz#

rem smooth third person camera

cx#=newxvalue(x#,a#,-500)

cz#=newzvalue(z#,a#,-500)

cy#=get ground height(1,cx#,cz#)+200

camx#=curvevalue(cx#,camx#,20.0)

camy#=curvevalue(cy#,camy#,50.0)

camz#=curvevalue(cz#,camz#,20.0)

position camera camx#,camy#,camz#

pointx#=newxvalue(x#,a#,100)

pointz#=newzvalue(z#,a#,100)

point camera pointx#,h#,pointz#

rem this is where we use the ESCAPE key, it will delete everything before ending

if scancode()=1 then gosub endprog

sync

loop

endprog:

for x=1 to 100

if object exist(x) then delete object x

if sound exist(x) then delete sound x

if matrix exist(x) then delete matrix x

next x

end

return

Download

Please login to download

Comments

No comments yet.

CodeBase - tilt to matrix