Sorry your browser is not supported!

speed#=0
make object cube 1,1
do
if upkey()=1 then speed#=speed#+0.001
if upkey()=0 then speed#=speed#-0.001
if speed#=>0 then move object 1,speed#
if downkey()=1 then speed#=speed#-0.01
if speed#=>0.5 then speed#=0.5
if speed#=<0 then speed#=0
if leftkey()=1 then turn object left 1,0.5
if rightkey()=1 then turn object right 1,0.5
loop

sync on
sync rate 60

speed#=0
make object cube 1,1
do
if upkey()=1 then speed#=speed#+0.001
if upkey()=0 then speed#=speed#-0.001
if speed#=>0 then move object 1,speed#
if downkey()=1 then speed#=speed#-0.01
if speed#=>0.5 then speed#=0.5
if speed#=<0 then speed#=0
if leftkey()=1 then turn object left 1,0.5
if rightkey()=1 then turn object right 1,0.5
sync
loop

`~~ by green7, feb.18.2007 ~~

load dll "user32.dll",1
  ScrnW=call dll(1,"GetSystemMetrics",0)
  ScrnH=call dll(1,"GetSystemMetrics",1)
delete dll 1

set display mode ScrnW,ScrnH,32,0

hide mouse

sync on
  sync rate 60

color backdrop rgb(1,1,1)

autocam off

`----------------------------------------------------------------------------------------------------------------------------

make object box 1,10,5,17
  position object 1,0,7,0
  color object 1, RGB(150,75,0)
  set shadow shading on 1,-1,500,1

make object cube 2,9
  color object 2, RGB(50,50,50)
  scale object 2,30,100,100
  position object 2,-6.5,-3,-6
  glue object to limb 2,1,0
  set shadow shading on 2,-1,500,1

make object cube 3,9
  color object 3, RGB(50,50,50)
  scale object 3,30,100,100
  position object 3,6.5,-4,-6
  glue object to limb 3,1,0
  set shadow shading on 3,-1,500,1

make object cube 4,7
  color object 4, RGB(50,50,50)
  scale object 4,30,100,100
  position object 4,-6,-4,8
  glue object to limb 4,1,0
  set shadow shading on 4,-1,500,1

make object cube 5,7
  color object 5, RGB(50,50,50)
  scale object 5,30,100,100
  position object 5,6,-3,8
  glue object to limb 5,1,0
  set shadow shading on 5,-1,500,1

make object sphere 6,6
  color object 6, RGB(255,200,170)
  position object 6,0,5,-5
  glue object to limb 6,1,0
  set shadow shading on 6,-1,500,1


make object box 50,200,1,200
  color object 50, RGB(0,150,50)

set ambient light 40
   color ambient light rgb(70,70,100)
`----------------------------------------------------------------------------------------------------------------------------
color light 0,rgb(255,250,200)

`----------------------------------------------------------------------------------------------------------------------------

speed#=0
camangley#=0
`----------------------------------------------------------------------------------------------------------------------------

DO

position light 0,100,100,100

`set a 0 instead of "camangley#" if you do not like to turn the cam with the car
Camera(0,1,camangley#,100,150,5,0)


if upkey()=1 and speed#=>0 then speed#=speed#+0.03
if upkey()=1 and speed#<0 then speed#=speed#+0.04

if upkey()=0 and downkey()=0 and speed#>0 then speed#=speed#-0.0075
if upkey()=0 and downkey()=0 and speed#<0 then speed#=speed#+0.0075

if downkey()=1 and speed#=<0 then speed#=speed#-0.03
if downkey()=1 and speed#>0 then speed#=speed#-0.04

if speed#=>0.25 then move object 1,speed#-0.25
if speed#=<-0.25 then move object 1,speed#+0.25

if speed#=>2.5 then speed#=2.5
if speed#=<-1.5 then speed#=-1.5

if leftkey()=1 and speed#>0.25
  turn object left 1,speed#*1.2
  yrotate object 4, speed#*7*-1
  yrotate object 5, speed#*7*-1
  camangley#=wrapvalue(camangley#-speed#*1.20)
endif

if rightkey()=1 and speed#>0.5
  turn object right 1,speed#*1.2
  yrotate object 4, speed#*7
  yrotate object 5, speed#*7
  camangley#=wrapvalue(camangley#+speed#*1.20)
endif

if leftkey()=1 and speed#<-0.5
 turn object left 1,speed#*-1.2
  yrotate object 4, speed#*7*-1
  yrotate object 5, speed#*7*-1
  camangley#=wrapvalue(camangley#+speed#*1.20)
endif

if rightkey()=1 and speed#<-0.25
  turn object right 1,speed#*-1.2
  yrotate object 4, speed#*7
  yrotate object 5, speed#*7
  camangley#=wrapvalue(camangley#-speed#*1.20)
endif

if leftkey()=0 and rightkey()=0
  yrotate object 4, 0
  yrotate object 5, 0

endif

for wheels = 2 to 5
 if speed#>0.3 and downkey()=0 then xrotate object wheels,object angle x (wheels)+speed#*4
 if speed#<-0.3 and upkey()=0 then xrotate object wheels,object angle x (wheels)+speed#*4
next wheels

text 10,20,"SPEED: "+Str$(speed#)

sync
LOOP

`---------------------------------------------------------------------------------------------------------------------------

function Camera(camera,target,camangley#,distcam#,heightcam#,smoothcam,collcam)

set camera to follow (camera), object position x(target), object position y(target), object position z(target),camangley#,distcam#,heightcam#,smoothcam,collcam

`--- cam angle ---
camanglex#=CAMERA ANGLE x(camera)
if camanglex#<60 then xROTATE CAMERA 60

endfunction

`---------------------------------------------------------------------------------------------------------------------------

`~~ by green7, feb.18.2007 ~~

load dll "user32.dll",1
  ScrnW=call dll(1,"GetSystemMetrics",0)
  ScrnH=call dll(1,"GetSystemMetrics",1)
delete dll 1

Load DLL "Kernel32.dll",3
set display mode ScrnW,ScrnH,32,0

hide mouse

sync on
  sync rate 60

color backdrop rgb(1,1,1)

autocam off

`----------------------------------------------------------------------------------------------------------------------------

make object box 1,10,5,17
  position object 1,0,7,0
  color object 1, RGB(150,75,0)
  set shadow shading on 1,-1,500,1

make object cube 2,9
  color object 2, RGB(50,50,50)
  scale object 2,30,100,100
  position object 2,-6.5,-3,-6
  glue object to limb 2,1,0
  set shadow shading on 2,-1,500,1

make object cube 3,9
  color object 3, RGB(50,50,50)
  scale object 3,30,100,100
  position object 3,6.5,-4,-6
  glue object to limb 3,1,0
  set shadow shading on 3,-1,500,1

make object cube 4,7
  color object 4, RGB(50,50,50)
  scale object 4,30,100,100
  position object 4,-6,-4,8
  glue object to limb 4,1,0
  set shadow shading on 4,-1,500,1

make object cube 5,7
  color object 5, RGB(50,50,50)
  scale object 5,30,100,100
  position object 5,6,-3,8
  glue object to limb 5,1,0
  set shadow shading on 5,-1,500,1

make object sphere 6,6
  color object 6, RGB(255,200,170)
  position object 6,0,5,-5
  glue object to limb 6,1,0
  set shadow shading on 6,-1,500,1


make object box 50,200,1,200
  color object 50, RGB(0,150,50)

set ambient light 40
   color ambient light rgb(70,70,100)
`----------------------------------------------------------------------------------------------------------------------------
color light 0,rgb(255,250,200)

`----------------------------------------------------------------------------------------------------------------------------

speed#=0
camangley#=0
`----------------------------------------------------------------------------------------------------------------------------

DO

if bob<=0 then bob=3 : CALL DLL 3,"Beep",int(abs(speed#*200)),20
dec bob,1

position light 0,100,100,100

`set a 0 instead of "camangley#" if you do not like to turn the cam with the car
Camera(0,1,camangley#,100,150,5,0)


if upkey()=1 and speed#=>0 then speed#=speed#+0.03
if upkey()=1 and speed#<0 then speed#=speed#+0.04

if upkey()=0 and downkey()=0 and speed#>0 then speed#=speed#-0.0075
if upkey()=0 and downkey()=0 and speed#<0 then speed#=speed#+0.0075

if downkey()=1 and speed#=<0 then speed#=speed#-0.03
if downkey()=1 and speed#>0 then speed#=speed#-0.04

if speed#=>0.25 then move object 1,speed#-0.25
if speed#=<-0.25 then move object 1,speed#+0.25

if speed#=>2.5 then speed#=2.5
if speed#=<-1.5 then speed#=-1.5

if leftkey()=1 and speed#>0.25
  turn object left 1,speed#*1.2
  yrotate object 4, speed#*7*-1
  yrotate object 5, speed#*7*-1
  camangley#=wrapvalue(camangley#-speed#*1.20)
endif

if rightkey()=1 and speed#>0.5
  turn object right 1,speed#*1.2
  yrotate object 4, speed#*7
  yrotate object 5, speed#*7
  camangley#=wrapvalue(camangley#+speed#*1.20)
endif

if leftkey()=1 and speed#<-0.5
 turn object left 1,speed#*-1.2
  yrotate object 4, speed#*7*-1
  yrotate object 5, speed#*7*-1
  camangley#=wrapvalue(camangley#+speed#*1.20)
endif

if rightkey()=1 and speed#<-0.25
  turn object right 1,speed#*-1.2
  yrotate object 4, speed#*7
  yrotate object 5, speed#*7
  camangley#=wrapvalue(camangley#-speed#*1.20)
endif

if leftkey()=0 and rightkey()=0
  yrotate object 4, 0
  yrotate object 5, 0

endif

for wheels = 2 to 5
 if speed#>0.3 and downkey()=0 then xrotate object wheels,object angle x (wheels)+speed#*4
 if speed#<-0.3 and upkey()=0 then xrotate object wheels,object angle x (wheels)+speed#*4
next wheels

text 10,20,"SPEED: "+Str$(speed#)

sync
LOOP

`---------------------------------------------------------------------------------------------------------------------------

function Camera(camera,target,camangley#,distcam#,heightcam#,smoothcam,collcam)

set camera to follow (camera), object position x(target), object position y(target), object position z(target),camangley#,distcam#,heightcam#,smoothcam,collcam

`--- cam angle ---
camanglex#=CAMERA ANGLE x(camera)
if camanglex#<60 then xROTATE CAMERA 60

endfunction

`---------------------------------------------------------------------------------------------------------------------------

`AJUSTE DE UN TANQUE CON EL TERRENO :EJEMPLO 2
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(230,95,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1

make matrix 1,10000.0,10000.0,25,25
prepare matrix texture 1,1,1,1
randomize matrix 1,350.0
rem set matrix height 1,12,12,700.0
update matrix 1
set ambient light 20

`CREAMOS LOS OBJETOS CHIVATOS, Y AL OBJETO BLINDADO
make object sphere 1,10
make object sphere 4,10
make object sphere 5,10
`------------------------------------------------------
`---OBJETO BLINDADO CON UNOS CUANTOS LIMBS-------------
make object box 2,50,5,80:color object 2,rgb(50,100,100)
make object box 3,40,20,50
make mesh from object 1,3 :delete object 3
add limb 2,1,1 :add limb 2,2,1
scale limb 2,2,10,10,120 :offset limb 2,2,0,22,30:offset limb 2,1,0,10,0
color limb 2,2,rgb(0,0,200):color limb 2,1,rgb(0,50,170)

x#=500
z#=500
sync on
do
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)
if leftkey()=1 then a#=wrapvalue(a#-1)
if rightkey()=1 then a#=wrapvalue(a#+1)

`calculamos la coordenadas "Y" de los dos chivatos
yb#=get ground height(1,object position x(1),object position z(1))
yb2#=get ground height(1,object position x(5),object position z(5))
yb3#=get ground height(1,object position x(4),object position z(4))

`calculamos la coordenada "y" del coche
y#=get ground height(1,x#,z#)
`pocisionamos a los objetos
position object 1,x#,yb#+40,z#
position object 2,x#,y#+30,z#
position object 5,x#,yb2#,z#
position object 4,x#,yb3#,z#

`rotamos a los objetos
yrotate object 1,a#
yrotate object 2,a#
yrotate object 5,a#
yrotate object 4,a#


`desplazamos al objeto chivato que lleva el blindado, para calcular la inclinacion
move object 1,80
`desplazamos al segundo chivato, que comprobara los alaveos
move object left 5,30
move object right 4,30

`hacemos que el blindado apunte a las coordenadas del chivato
`solo con esto, hemos conseguido, el efecto que se buscaba
point object 2,object position x(1),object position y(1),object position z(1)

`hacemos que el blindado, se alavee hacia la izquierda, la algura del blindado
`menos la atura del chivato..... TACHANNN
roll object left 2,y#-yb2#
roll object right 2,y#-yb3#
`Posiciona la cámara por detrás del objeto
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#+200,cz#

`enfoca la cámara al objeto
point camera x#,y#,z#
sync
loop

dist# = 5.0
ang# = (180.0 * speed#) / (3.141592654 * dist#)
if leftkey() > 0 then yrotate object car, wrapvalue(object angle y(car) - ang#)
if rightkey() > 0 then yrotate object car, wrapvalue(object angle y(car) + ang#)

function Arc(Speed#,Dist#)
if dist#=0 then dist#=5
ang# = (180.0 * speed#) / (3.141592654 * dist#)
endfunction

function PlaceOnGround(object,ground)

X#=object position x(object)
Z#=object position z(object)
Y#=object position y(object)

ObjectSizeY=object size y(object)
intersection#=intersect object(ground,X#,Y#+ObjectSizeY,Z#,X#,Y#-100000,Z#)

if intersection#=0
    objectheight#=0
   else
   objectheight#= ObjectSizeY+Y#-intersection#
endif

position object object,X#, curvevalue(objectheight#,Y#,2),Z#

endfunction

function tilt(id,ground)

   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)
   yAng#=object angle y(id)

   distVal#=1.2

  `work out the positions of the front, back, left and right of the vehicle
   ang#=yAng#      : frontX#=newxvalue(xPos#,ang#,(distVal#)*-1)  : frontZ#=newzvalue(zPos#,ang#,(distVal#)*-1)
   ang#=yAng#+180  : backX#=newxvalue(xPos#,ang#,(distVal#)*-1)   : backZ#=newzvalue(zPos#,ang#,(distVal#)*-1)
   ang#=yAng#-90   : leftX#=newxvalue(xPos#,ang#,distVal#)   : leftZ#=newzvalue(zPos#,ang#,distVal#)
   ang#=yAng#+90   : rightX#=newxvalue(xPos#,ang#,distVal#)  : rightZ#=newzvalue(zPos#,ang#,distVal#)

  `work out the different heights
   frontHeight#=intersect object(ground,frontX#,yPos#,frontZ#,frontX#,yPos#-100000,frontZ#)
   backHeight#=intersect object(ground,backX#,yPos#,backZ#,backX#,yPos#-100000,backZ#)
   leftHeight#=intersect object(ground,leftX#,yPos#,leftZ#,leftX#,yPos#-100000,leftZ#)
   rightHeight#=intersect object(ground,rightX#,yPos#,rightZ#,rightX#,yPos#-100000,rightZ#)

  `work out tilt values
   xAng#=curveangle((backHeight#-frontHeight#)*30,object angle x(id-3),7)
   zAng#=curveangle((leftHeight#-rightHeight#)*30,object angle z(id-3),7)

   rotate object id-3,xAng#,0,zAng#

endfunction

sync on : sync rate 60
speed#=0
make object cube 1,1
do
if upkey()=1 then speed#=speed#+0.001
if upkey()=0 then speed#=speed#-0.001
if speed#=>0 then move object 1,speed#
if downkey()=1 and speed#<0.4 then speed#=speed#-0.01
if speed#=>0.5 then speed#=0.5
if speed#=<0 then speed#=0
if leftkey()=1 then turn object left 1,0.5
if rightkey()=1 then turn object right 1,0.5
`my added code
if downkey()=1 and leftkey()=1 and speed#=>0.4
turn object left 1,speed#
endif
if downkey()=1 and rightkey()=1 and speed#=>0.4
turn object right 1,speed#
endif
`end of my added code(duh)
sync
loop

remstart

this is a re-engineering of a code snippet by chafari
see: http://forum.thegamecreators.com/?m=forum_view&t=101199&b=6

The principle uses three dummy objects based on the location of a vehicle
These objects were originally snapped to the ground, and the vehicle
was rotated based on the height of these dummy spheres.  I am hoping to
eliminate the objects and only use test points, as well as allow the test
points to "bounce", allowing for the car to jump, and not be stuck to the
ground

remend


`Make ground texture
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(230,95,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1

make matrix 1,10000,10000,25,25
prepare matrix texture 1,1,1,1
randomize matrix 1,350.0
update matrix 1

CarID = 1

make object box CarID, 40,20,50

a# = 0         `Angle of car
x# = 5000      `Location X
Z# = 5000      `Location Z
bm1# = 0       `Movement of ball 1
bm2# = 0       `...2          ie, a (-) value indicates movement downward
bm3# = 0       `...3
by1# = get ground height(1,newxvalue(object position x(CarID),a# + 0, 35), newzvalue(object position z(CarID),a# + 0, 35))
by2# = get ground height(1,newxvalue(object position x(CarID),a# + 90, 35), newzvalue(object position z(CarID),a# + 90, 35))
by3# = get ground height(1,newxvalue(object position x(CarID),a# + 270, 35), newzvalue(object position z(CarID),a# + 270, 35))

remstart          B1
                 _____
                |this |
                | is  |
                |the  |
                |_car_|
          B3                B2            remend



speed# = 2

sync on:sync rate 60
do


Gosub _User_IN
Gosub _Physics
Gosub _Camera


Sync
Loop

_User_In:

if leftkey() = 1 then dec A#, 0.5
if rightkey() = 1 then inc A#, 0.5

if upkey() = 1 then move object carID, 10

Return

_Physics:
   x# = object position x(CarID)
   z# = object position z(carID)
   Rotate object CarID,0,a#,0
   old1# = by1#
   old2# = by2#
   old3# = by3#
   by1# = get ground height(1,newxvalue(object position x(CarID),a# + 0, 35), newzvalue(object position z(CarID),a# + 0, 35))
   by2# = get ground height(1,newxvalue(object position x(CarID),a# + 90, 35), newzvalue(object position z(CarID),a# + 90, 35))
   by3# = get ground height(1,newxvalue(object position x(CarID),a# + 270, 35), newzvalue(object position z(CarID),a# + 270, 35))

   y# = get ground height(1,X#,Z#)
   Position object CarID, x#,y#,z#
   point object carID,newxvalue(object position x(CarID),a# + 0, 35), by1#, newzvalue(object position z(CarID),a# + 0, 35)
   roll object left CarID,y#-by3#
   roll object right CarID,y#-by2#


move object up carID, 10
Return

_Camera:
remstart
      Position camera object position x(carID), object position y(carID), object position z(carID)
      set camera to object orientation carID
      pitch camera down 40
      move camera -120
remend
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#+200,cz#

`enfoca la cámara al objeto
point camera x#,y#,z#
Return

remstart

this is a re-engineering of a code snippet by chafari
see: http://forum.thegamecreators.com/?m=forum_view&t=101199&b=6

The priciple uses three dummy objects based on the location of a vehichle
These objects were origionally snapped to the ground, and the vehichle
was rotated based on the height of these dummy spheres.  I am hoping to
eliminate the objects and only use test points, as well as allow the test
points to "bounce", allowing for the car to jump, and not be stuck to the
ground

remend


`Make ground texture
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(230,95,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1

make matrix 1,10000,10000,25,25
prepare matrix texture 1,1,1,1
randomize matrix 1,350.0
update matrix 1

CarID = 1

make object box CarID, 40,20,50

a# = 0         `Angle of car
x# = 5000      `Location X
Z# = 5000      `Location Z
bm1# = 0       `Movement of ball 1
bm2# = 0       `...2          ie, a (-) value indicates movement downward
bm3# = 0       `...3
by1# = get ground height(1,newxvalue(object position x(CarID),a# + 0, 35), newzvalue(object position z(CarID),a# + 0, 35))
by2# = get ground height(1,newxvalue(object position x(CarID),a# + 90, 35), newzvalue(object position z(CarID),a# + 90, 35))
by3# = get ground height(1,newxvalue(object position x(CarID),a# + 270, 35), newzvalue(object position z(CarID),a# + 270, 35))

remstart          B1
                 _____
                |this |
                | is  |
                |the  |
                |_car_|
          B3                B2            remend



speed# = 2
grav1# = 0
grav2# = 0
grav3# = 0
gravAcc# = 0.25
sync on:sync rate 60
do


GOSub _UserIn
Gosub _Physics
Gosub _Camera


Sync
Loop

_UserIn:


   if leftkey() = 1 then dec A#, 1.3
   if rightkey() = 1 then inc A#, 1.3
   if upkey() = 1 and speed# < 10 then inc speed#, 0.3
   if downkey() = 1 and speed# > -4 then dec speed#, 0.3

   if upkey() = 0 and downkey() = 0
      if speed# > 0 then dec speed#, 0.1
      if speed# < 0 then inc speed#, 0.1
   EndIF



Return

_Physics:

   Rotate object CarID,0,a#,0
   old1# = by1#
   old2# = by2#
   old3# = by3#
   by1# = get ground height(1,newxvalue(object position x(CarID),a# + 0, 35), newzvalue(object position z(CarID),a# + 0, 35))
   by2# = get ground height(1,newxvalue(object position x(CarID),a# + 90, 35), newzvalue(object position z(CarID),a# + 90, 35))
   by3# = get ground height(1,newxvalue(object position x(CarID),a# + 270, 35), newzvalue(object position z(CarID),a# + 270, 35))

   if by1# < old1# - grav1# then by1# = old1# - grav1#: inc grav1#, GravAcc#
   if by2# < old1# - grav2# then by2# = old1# - grav2#: inc grav2#, GravAcc#
   if by3# < old1# - grav3# then by3# = old1# - grav3#: inc grav3#, GravAcc#

   y# = ( by1# + by2# + by3#) / 3
   Position object CarID, x#,y#,z#

`MOVEMENT MUST GO HERE!!!!!!  -don't ask me why...

   pitch# = y# - by1#
   move object carID, speed# + (pitch# * 0.46)


   point object carID,newxvalue(object position x(CarID),a# + 0, 35), by1#, newzvalue(object position z(CarID),a# + 0, 35)
   roll object left CarID,y#-by3#
   roll object right CarID,y#-by2#
   x# = object position x(CarID)
   z# = object position z(carID)

move object up carID, 10
Return

_Camera:
remstart
      Position camera object position x(carID), object position y(carID), object position z(carID)
      set camera to object orientation carID
      pitch camera down 40
      move camera -120
remend
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#+200,cz#

`enfoca la cámara al objeto
point camera x#,y#,z#
Return