Sorry your browser is not supported!

Rem Project: Up or Down
Rem Created By: Trevor Somerville

remstart
   For those of you who would like to take this farther i suggest
   Having the cone directly infront of the camera by using the
   angle of the camera for better more exact results.
   (If results are more accurate you can use them for
   gravity so you slide down hills while standing)
remend

Rem ***** Main Source File *****

rem Standard Setup Code
sync on : color backdrop 0 : backdrop on
set text font "arial" : set text size 30
set text to normal : set text transparent

set camera range 1, 10000

`You can change the program easily to use a .X or terrain lanscape or anything else
`the function reads the object or camera(in this example its camera) height not ground height
make matrix 1, 1000, 1000, 10, 10
randomize matrix 1, 100
update matrix 1

do

   `Makes camera, tell it to move with arrowkeys and position it to matrix height
   control camera using arrowkeys 0, 1, 1
   position camera camera position x(), get ground height(1, camera position x(), camera position z()) + 10, camera position z()

   UpDownCheck( 1, 2, 0 )

   sync

loop

function UpDownCheck( ObjectNumOne, ObjectNumTwo, CamNum )

   `create the first cone
   if object exist(ObjectNumOne) = 0
   make object cone ObjectNumOne, 10
   endif
   `tell the cone to look at camera and move with it
   point object ObjectNumOne, camera position x(CamNum), camera position y(CamNum), camera position z(CamNum)
   position object ObjectNumOne, camera position x(CamNum), camera position y(CamNum), camera position z(CamNum)

   `make second cone
   if object exist(ObjectNumTwo) = 0
   make object cone ObjectNumTwo, 10
   endif
   `tell it to look at camera and have it sit it infront of camera
   point object ObjectNumTwo, camera position x(CamNum), camera position y(CamNum), camera position z(CamNum)
   position object ObjectNumTwo, camera position x(CamNum) + 10, camera position y(CamNum), camera position z(CamNum) + 10

   `screen data
   set cursor 1, 1
   if object angle x(ObjectNumOne)>object angle x(ObjectNumTwo) then print "You are going down:P"
   if object angle x(ObjectNumOne)<object angle x(ObjectNumTwo) then print "You are going up ^^"
   if object angle x(ObjectNumOne)=object angle x(ObjectNumTwo) then print "flat land____"
   print "object 1 angle = " ; object angle x(ObjectNumOne)
   print "object 2 angle = " ; object angle x(ObjectNumTwo)
   print "camera Height = " ; camera position y(CamNum)

endFunction

function camera_ground( cameranumber, speed, turn_speed, matrix_number)
control camera using arrowkeys cameranumber,speed,turn_speed
position camera camera position x(), get ground height(matrix_number, camera position x(), camera position z()) + 10, camera position z()
endfunction

`Normal settings
sync on
sync rate 60
hide mouse

`Matrix
make matrix 2,2000,2000,20,20
randomize matrix 2,200
update matrix 2

`the loop
Do

`Here we use the function. The first number you see is the camera number, and the two next
`numbers you see is the camera speed and turn speed. Then the last number is wich matrix
`We wanna get the ground height on.
camera_ground( 0, 3, 3, 2)


sync
loop


`The function.
function camera_ground( cameranumber, speed, turn_speed, matrix_number)
control camera using arrowkeys cameranumber,speed,turn_speed
position camera camera position x(), get ground height(matrix_number, camera position x(), camera position z()) + 10, camera position z()
endfunction

function up_down(matrix)
currentY=get ground height(matrix,camera position x(),camera position z())
forewardY=get ground height(matrix,newxvalue(camera position x(),camera angle y(),1),newzvalue(camera position z(),camera angle y(),1))
slope=forewardY-currentY
endfunction slope