Sorry your browser is not supported!

   rem position object 10,xpos#,py#+3,zpos#
   xrotate object 30,wrapvalue(object angle x(Pta)+object angle x(Ptu))
   yrotate object 30,wrapvalue(object angle y(Pta)+object angle y(Ptu))
   zrotate object 30,wrapvalue(object angle z(Pta)+object angle z(Ptu))
   rem set object to object orientation 10,30
   rem move object 10,4
	position object 10,object position x(Ppv),object position y(Ppv),object position z(Ppv)
	set object to object orientation 10,30 : move object up 10, 2.7
	set object to object orientation 10,30 : move object 10, 4.3

landize=5000
x#=landsize
z#=landsize

gosub Init
gosub Variables
gosub LoadAll
gosub LoadScene
gosub LoadPlayer
for x= 4 to 7
 make object cube x,5
next x

do
   gosub Player
   gosub Scenery
   gosub Info
sync
loop




Player:
`   gosub MovePlayer
   gosub TiltPlayer
   gosub TurretPlayer
   gosub BulletsPlayer
return
MovePlayer:
   if leftkey()=1 then lf=1 else lf=0
   if rightkey()=1 then rt=1 else rt=0
   if upkey()=1 then fw=1 else fw=0
   if downkey()=1 then bw=1 else bw=0

   if fw=1
      spd#=spd#+1
   endif
   if bw=1
      spd#=spd#-1
   endif
   if lf=1 and spd#<>0
      pay#=wrapvalue(pay#-spd#)
   endif
   if rt=1 and spd#<>0
      pay#=wrapvalue(pay#+spd#)
   endif

   if spd#>0 then spd#=spd#-0.040
   if spd#<0 then spd#=spd#+0.040
   if spd#>0.24 then spd#=0.24
   if spd#<-0.24 then spd#=-0.24

   move object Ppv,spd#
   yrotate object Ppv,pay#
   yrotate object Pta,pay#
return
TiltPlayer:
 rem Control tank
 if upkey()=1 and s#<0.4 then s#=s#+0.2
 if downkey()=1 and s#>-0.4 then s#=s#-0.2
 if leftkey()=1 then s#=s#+0.01 : a#=wrapvalue(a#-2)
 if rightkey()=1 then s#=s#+0.01 : a#=wrapvalue(a#+2)

 rem Calculate tank data
 oldx#=x#
 oldz#=z#
 x#=newxvalue(x#,a#,s#)
 z#=newzvalue(z#,a#,s#)

 s#=s#/1.2

 landsize=5000
 shx#=shx#+(x#-oldx#)
 shz#=shz#+(z#-oldz#)
 mx#=(x#-landsize)-shx# : mz#=(z#-landsize)-shz#

 rem Calculate four X+Z coordinates for each corner
 foot#=50
 ta#=wrapvalue(a#-35)
 frontleftx#=newxvalue(x#,ta#,foot#) : frontleftz#=newzvalue(z#,ta#,foot#)
 ta#=wrapvalue(a#+35)
 frontrightx#=newxvalue(x#,ta#,foot#) : frontrightz#=newzvalue(z#,ta#,foot#)
 ta#=wrapvalue(a#+215)
 backleftx#=newxvalue(x#,ta#,foot#) : backleftz#=newzvalue(z#,ta#,foot#)
 ta#=wrapvalue(a#+145)
 backrightx#=newxvalue(x#,ta#,foot#) : backrightz#=newzvalue(z#,ta#,foot#)

 rem Calculate degree of tilting from corner heights
 frontlefth#=get ground height(1,frontleftx#-mx#,frontleftz#-mz#)
 frontrighth#=get ground height(1,frontrightx#-mx#,frontrightz#-mz#)
 backlefth#=get ground height(1,backleftx#-mx#,backleftz#-mz#)
 backrighth#=get ground height(1,backrightx#-mx#,backrightz#-mz#)
 across#=((frontrighth#-frontlefth#)+(backrighth#-backlefth#))/2.0
 length#=((backlefth#-frontlefth#)+(backrighth#-frontrighth#))/2.0

rem just to show where frontleft,frontright etc are
position object 4,frontleftx#,frontlefth#,frontleftz#
position object 5,frontrightx#,frontrighth#,frontrightz#
position object 6,backleftx#,backlefth#,backleftz#
position object 7,backrightx#,backrighth#,backrightz#

 rem Update tank model
 h#=get ground height(1,x#-mx#,z#-mz#)
 trackh#=(frontlefth#+frontrighth#+backlefth#+backrighth#)/4.0
 if trackh#>h# then h#=trackh#
 position object Ppv,x#,h#,z#
 position object Pta,x#,h#,z#
 yrotate object Ppv,a#
 rotate object Pta,wrapvalue(length#/4.0),a#,wrapvalue(across#/4.0)

 x#=object position x(Ppv)
 z#=object position z(Ppv)

return
TurretPlayer:
   Chase_Cam_Turret(Pta,16.0,10.0)
   if inkey$()="t" then ptay#=curveangle(ptay#,wrapvalue(ptay#-2.5),10)
   if inkey$()="y" then ptay#=curveangle(ptay#,wrapvalue(ptay#+2.5),10)
   yrotate object Ptu,ptay#
   ptay#=object angle y(Ptu)
   pay#=object angle y(Pta)
return
BulletsPlayer:
   if spacekey()=1 and object visible(bullet)=0
      show object bullet
      lx#=object position x(Pta)
      ly#=limb position y(Ptu,lmb)
      lz#=object position z(Pta)
      lax#=limb direction x(Ptu,lmb)
      lay#=limb direction y(Ptu,lmb)
      laz#=limb direction z(Ptu,lmb)
      rotate object bullet,lax#,lay#,laz#
      position object bullet,lx#,ly#,lz#
      move object bullet,-4
      tt=0
   endif
   if object visible(bullet)=1
      move object bullet,-2
      tt=tt+1
      set cursor 0,300
      print tt
      if tt>25:hide object bullet:tt=0:endif
   endif
return
Scenery:
   position object sky,px#,0,pz#
   turn object right sky,0.1
   xp#=cos(135)*60
   zp#=sin(135)*60
   position object Sun,px#+xp#,46,pz#+zp#
return

Info:
   text 0,0,"FPS: " + str$(screen fps())
   text 0,18,"Speed: " + str$(spd#)
   text 0,18*2,"Polys: " + str$(statistic(1))
   text 0,18*3,"TankRotX: " + str$(object angle x(Pta))
   text 0,18*4,"TankRotY: " + str$(object angle y(Pta))
   text 0,18*5,"TankRotZ: " + str$(object angle z(Pta))
   text 0,18*6,"PlayerX: " + str$(object position x(Pta))
   text 0,18*7,"PlayerY: " + str$(object position y(Pta))
   text 0,18*8,"PlayerZ: " + str$(object position z(Pta))
   text 0,18*9,"BulletX: " + str$(object position x(10))
   text 0,18*10,"BulletY: " + str$(object position y(10))
   text 0,18*11,"BulletZ: " + str$(object position z(10))
   text 0,18*13,"SunX: " + str$(object position x(Sun))
   text 0,18*14,"SunY: " + str$(object position y(Sun))
   text 0,18*15,"SunZ: " + str$(object position z(Sun))
   text 0,18*17,"vx2: " + str$(vx2)
   text 0,18*18,"vy2: " + str$(vy2)
return
















Init:
set emulation off
randomize timer()
for a=1 to 100
    a=rnd(99999999)
next a
sync on
sync rate 40
set display mode 640,480,16
hide mouse
autocam off
return

Variables:
`Player Tank
`Player Turret
Pta=11
Ptu=22
`Player's pivot
Ppv=1
`Skysphere
Sky=100
`Sun dummy
Sun=105
`Bulletnumber (for testing)
bullet=10

LF1=150
LF2=151
LF3=152
LF4=153
LF5=154

Ptex1=1
Ptex2=2
Ptex3=3
GroundTex=10
Skytex=100

dim CamRot1#(0)
return

LoadAll:
load image "textures\warrior.bmp",Ptex1
load image "textures\warrior2.bmp",Ptex2
load image "textures\grass08.bmp",GroundTex,1
load image "textures\005ciel.jpg",skytex
`load image "d:\downloads\clouds2.jpg",skytex
return

LoadPlayer:
load object "models\tank.3ds",Pta
load object "models\turret.3ds",Ptu

glue object to limb Ptu,Pta,0
texture object Pta,Ptex1
texture object Ptu,Ptex1
scale object Pta,50,50,50
`scale object Ptu,10,10,10
yrotate object Pta,180
`yrotate object Ptu,180
fix object pivot Pta
`fix object pivot Ptu
position object Pta,500,0,500

make object cube Ppv,0.01

position object Ppv,500,get ground height(1,500,500),500
px#=object position x(Ppv)
py#=object position y(Ppv)
pz#=object position z(Ppv)
position camera px#,py#,pz#

make object sphere bullet,0.5
make object cube 30,1
make object cube 40,2
hide object bullet

make mesh from object 1,40
for a=0 to 999
   if limb exist(Ptu,a)=0
      exit
   endif
next a
add limb Ptu,a,1
lmb=a
offset limb Ptu,lmb,0,9,-14
hide object 30
hide limb Ptu,lmb

return

LoadScene:

make matrix 1,5000,5000,64,64
set matrix texture 1,1,1
prepare matrix texture 1,GroundTex,1,1
randomize matrix 1,10
SmoothMatrix(1,32,32)

f=160
fogcolor=rgb(f,f,f)
fog on
fog color fogcolor
fog distance 600-100
set camera range 1,600

make object sphere Sky,600
scale object sky,-100,-50,-100
position object sky,500,0,500
texture object Sky,Skytex
zrotate object sky,180
fix object pivot sky
scale object texture sky,2,2
set object sky,1,1,1,1,0,1,0

make light 1
set directional light 1,-1,-1,-1
set ambient light 50

backdrop off
fade object Sky,50
return



















function chase_cam_turret(id,camDist#,camHeight#)

   `work out the angle of the object being chased
   yAng#=curveangle(wrapvalue(object angle y(id) + object angle y(id+11)+180),yAng#,10)

   `grab the objects current position
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)

   `other variables
   `camDist=12
   `camHeight=5

   remstart
   `work out new position
   xCamPos#=curvevalue(newxvalue(xPos#,yAng#,camDist),xCamPos#,10)
   zCamPos#=curvevalue(newzvalue(zPos#,yAng#,camDist),zCamPos#,10)
   remend
   xCamPos#=newxvalue(xPos#,yAng#,camDist#)
   zCamPos#=newzvalue(zPos#,yAng#,camDist#)

   xCamPos#=curvevalue(xCamPos#,camera position x(),8)
   yCamPos#=curvevalue(yCamPos#,camera position y(),8)
   zCamPos#=curvevalue(zCamPos#,camera position z(),8)
   `work out camera height
   yCamPos#=get ground height(1,xCamPos#,zCamPos#)+camHeight#
   if yCamPos# < yPos#+camHeight# then yCamPos#=yPos#+camHeight#

   `update camera position
   position camera xCamPos#,yCamPos#,zCamPos#
   point camera xPos#,yPos#+camHeight#,zPos#

endfunction

`---------
`chase cam
`---------
function chase_cam_die(id,camDist#,camHeight#)

   CamRot1#(0)=CamRot1#(0)+1

   `work out the angle of the object being chased
   yAng#=curveangle(wrapvalue(object angle y(id)+object angle y(id+11)+CamRot1#(0)),yAng#,10)

   `grab the objects current position
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)

   `other variables
   `camDist=15
   `camHeight=10

   `work out new position
   xCamPos#=newxvalue(xPos#,yAng#,camDist)
   zCamPos#=newzvalue(zPos#,yAng#,camDist)

   xCamPos#=curvevalue(xCamPos#,object position x(id),8)
   yCamPos#=curvevalue(yCamPos#,object position y(id),8)
   zCamPos#=curvevalue(zCamPos#,object position z(id),8)

   `work out camera height
   yCamPos#=get ground height(1,xCamPos#,zCamPos#)+camHeight
   if yCamPos# < yPos#+camHeight then yCamPos#=yPos#+camHeight

   `update camera position
   position camera xCamPos#,yCamPos#,zCamPos#
   point camera xPos#,yPos#+camheight,zPos#
   move camera 0-camDist
   point camera xPos#,yPos#,zPos#

endfunction


function SmoothMatrix(n,tx,ty)
   for z=1 to ty-1
      for x=1 to tx-1
         rem get matrix height
         h8#=get matrix height(n,x,z-1)
         h4#=get matrix height(n,x-1,z)
         h#=get matrix height(n,x,z)
         h2#=get matrix height(n,x,z)

         rem X angle by using heights
         x1#=(x-1)*25.0 : y1#=h#
         x2#=(x+0)*25.0 : y2#=h4#
         dx#=x2#-x1#
         dy#=y2#-y1#
         ax#=atanfull(dx#,dy#)
         ax#=wrapvalue(90-ax#)

         rem X angle by using heights
         z1#=(z-1)*25.0 : y1#=h2#
         z2#=(z+0)*25.0 : y2#=h8#
         dz#=z2#-z1#
         dy#=y2#-y1#
         az#=atanfull(dz#,dy#)
         az#=wrapvalue(90-az#)

         rem create normal
         nx#=sin(ax#)
         ny#=cos(ax#)
         nz#=sin(az#)

         rem smooth the matrix
         set matrix normal n,x,z,nx#,ny#,nz#
      next x
   next z
endfunction

`Coded by Phaelax ([email protected])
`http://www.angelfire.com/80s/phaelax/

brightness = 128

for x=1 to 16
   for y=1 to 16
      c = rnd(128)+brightness
      dot x,y,rgb(c,c,c)
   next y
next x
get image 1, 1,1,16,16

autocam off
hide mouse
sync on
backdrop on
color backdrop 0

REM VARIABLES
grav#=1.5

REM SETUP MATRIX

make matrix 1,1000,1000,50,100
prepare matrix texture 1,1,1,1

for z=0 to 99
   for x=0 to 49
      height#=50.0-(sin((x*12))*50)
      height#=height#+(50.0-(sin((z*12))*50))
      height#=height#/2.0
      set matrix height 1,x,z,height#
   next x
next z
update matrix 1


rem Use matrix normals to make it smooth
for z=1 to 99
   for x=1 to 49

      rem Get matrix heights
      h8#=get matrix height(1,x,z-1)
      h4#=get matrix height(1,x-1,z)
      h#=get matrix height(1,x,z)
      h2#=get matrix height(1,x,z)

      rem Calculate projected angle X using heights
      x1#=(x-1)*25.0 : y1#=h#
      x2#=(x+0)*25.0 : y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)

      rem Calculate projected angle Z using heights
      z1#=(z-1)*25.0 : y1#=h2#
      z2#=(z+0)*25.0 : y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)

      rem Make normal from projected angle
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)

      rem Setting matrix normal for smoothness
      set matrix normal 1,x,z,nx#,ny#,nz#

   next x
next z
update matrix 1




REM MAKE AND SETUP OBJECTS
rem board
make object cube 1,1
scale object 1, 500,100,1500
color object 1, 120

rem temp spheres
make object sphere 2, 2
color object 2, rgb(0,200,0)
make object sphere 3,2
color object 3, rgb(0,200,0)
make object sphere 4,2
color object 4, rgb(200,0,0)
make object sphere 5, 2
color object 5, rgb(200,0,0)
rem dummy object
make object cone  6, 5
hide limb 6,0
make object cone  8, 5
hide limb 8,0


rem character
`load object "l-punk-static.x", 7
`load object "m-raptor-static.x", 7
`yrotate object 7, 270
`fix object pivot 7
`scale object 7, 1500,1500,1500

make object cube 7, 100
scale object 7, 3,20,3

`hide object 9
glue object to limb 1,6,0
glue object to limb 7,8,0



px=0
pz=0
for obj=0 to 100 step 5
  p1x=-5
  p1y=0
  p1z=5
  p2x=5
  p2y=0
  p2z=50

  make object triangle 10+obj,px,0,pz,px,5,pz,opx,5,opz
  make object triangle 11+obj,opx,0,opz,opx,5,opz,px,0,pz
next obj

obj=0
spd#=1

rem fog
`fog on
`fog color rgb(20,20,20)
`fog distance 1200

speed#=18

REM ======================== MAIN LOOP ========================
DO


rem Control player with arrow keys
`if ground=1
  if upkey()=1 or joystick up()=1 then  x#=newxvalue(x#,a#,speed#) : z#=newzvalue(z#,a#,speed#)

    if leftkey()=1 or joystick left()=1 then a#=wrapvalue(a#-5.0)
    if rightkey()=1 or joystick right()=1 then  a#=wrapvalue(a#+5.0)
  `endif
`endif

rem configure smooth moving
dx#=curvevalue(x#,dx#, 15.0)
dz#=curvevalue(z#,dz#, 15.0)
da#=curveangle(a#, da#, 10.0)


rem switch lines for gravity
`dec y#, grav#
y#=0

if y# < get ground height(1,dx#,dz#)
  y#=get ground height(1,dx#,dz#)
  ground=1
else
  ground=0
endif

rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),100)
cz#=newzvalue(z#,wrapvalue(a#+180),100)
cy#=get ground height(1,cx#,cz#)+50.0
position camera dx#,y#+100,dz#-100

rem Point camera at object
point camera dx#,y#+5,dz#


if ground=1
rem find the ground height at each corner of the snowboard
temp_angle#=curveangle(a#, da#-20, 10.0)
  front_left_x#=newxvalue(dx#,wrapvalue(temp_angle#),7.5)
  front_left_z#=newzvalue(dz#,wrapvalue(temp_angle#),7.5)
  front_left_height#=get ground height(1,front_left_x#,front_left_z#)
temp_angle#=curveangle(a#, da#+20, 10.0)
  front_right_x#=newxvalue(dx#,wrapvalue(temp_angle#),7.5)
  front_right_z#=newzvalue(dz#,wrapvalue(temp_angle#),7.5)
  front_right_height#=get ground height(1,front_right_x#,front_right_z#)
temp_angle#=curveangle(a#, da#+20, 10.0)+180
  rear_left_x#=newxvalue(dx#,wrapvalue(temp_angle#),7.5)
  rear_left_z#=newzvalue(dz#,wrapvalue(temp_angle#),7.5)
  rear_left_height#=get ground height(1,rear_left_x#,rear_left_z#)
temp_angle#=curveangle(a#, da#-20, 10.0)+180
  rear_right_x#=newxvalue(dx#,wrapvalue(temp_angle#),7.5)
  rear_right_z#=newzvalue(dz#,wrapvalue(temp_angle#),7.5)
  rear_right_height#=get ground height(1,rear_right_x#,rear_right_z#)
rem calculate the amount to angle-tilt snowboard
length#=((rear_left_height#-front_left_height#)+(rear_right_height#-front_right_height#))/0.6
width#=((front_right_height#-front_left_height#)+(rear_right_height#-rear_left_height#))/0.2
endif
`if front_right_height# > rear_right_height# then z#=newzvalue(z#,a#,-1.0)
`if front_right_height# < rear_right_height# then z#=newzvalue(z#,a#,1.0)

rem update object
`position object 9,dx#,y#,dz#
position object 6,dx#,y#,dz#
yrotate object 6,da#
position object 8,dx#,y#,dz#
yrotate object 8,da#

rotate object 1,wrapvalue(length#),0,wrapvalue(width#)
rotate object 7,wrapvalue(length#),0,wrapvalue(width#)

if dx#>1000 or dx#<0 or dz#>1000 or dz#<0
  dx#=500:dz#=500
  x#=500:z#=500
endif

rem control sliding due to angle of slope
opx#=dx#
opz#=dz#
tx#=opx#+7.5
tz#=opz#+7.5
tx2#=opx#-7.5
tz2#=opz#-7.5
opy1#=get ground height(1,tx#,opz#)
opy2#=get ground height(1,tx2#,opz#)
opy3#=get ground height(1,opx#,tz#)
opy4#=get ground height(1,opx#,tz2#)
`sx#=abs(opy1#-opy2#)*0.286
`sz#=abs(opy3#-opy4#)*0.286
sx#=abs(opy1#-opy2#)*0.4
sz#=abs(opy3#-opy4#)*0.4
if opy1#>opy2# then dec x#, sx#
if opy1#<opy2# then inc x#, sx#
if opy3#>opy4# then dec z#, sz#
if opy3#<opy4# then inc z#, sz#






rem misc text


set cursor 0,0
print object position x(6)
print object position y(6)
print object position z(6)


set cursor 1,70
print str$(width#)
set cursor 1,80
print str$(length#)


gosub updatetrails


sync
LOOP



REM Creates the neat looking blue trail following behind character
updatetrails:

delete object 10+obj
delete object 11+obj

p1x#=object position x(6)-2.5+sin(rnd(360))*0.25
p1y#=y#
p1z#=object position z(6)+sin(rnd(360))*0.25
p2x#=object position x(6)+2.5+sin(rnd(360))*0.25
p2y#=y#
p2z#=object position z(6)+sin(rnd(360))*0.25




make object triangle 10+obj,p1x#,p1y#,p1z#,p2x#,p2y#,p2z#,op2x#,op2y#,op2z#
make object triangle 11+obj,op1x#,op1y#,op1z#,op2x#,op2y#,op2z#,p1x#,p1y#,p1z#

color object 10+obj,rgb(0,255,255)
color object 11+obj,rgb(0,255,255)
set object 10+obj,1,1,0
set object 11+obj,1,1,0
ghost object on 10+obj
ghost object on 11+obj


`Fade the trails

fade=0

for n=obj+10 to 100 step 5
color object 10+n,rgb((spd#/10.00)*fade,0,fade)
color object 11+n,rgb((spd#/10.00)*fade,0,fade)
inc fade,10 : if fade>255 then fade=255
next n

for n=0 to obj step 5
color object 10+n,rgb((spd#/10.00)*fade,0,fade)
color object 11+n,rgb((spd#/10.00)*fade,0,fade)
inc fade,10 : if fade>255 then fade=255
next n


inc obj,5
if obj>100 then obj=0

`Record last emitter positions
op1x#=p1x#
op1y#=p1y#
op1z#=p1z#
op2x#=p2x#
op2y#=p2y#
op2z#=p2z#
return

function fire_stuff()
y(3) :tank.zpost =  object position z(3)
if in.space= 1 and object visible(10)=0
   Position Object 10,tank.xpos,tank.ypos,tank.zpos
   Position Object 50,tank.xpos,tank.ypos,tank.zpos
   set object to object orientation 10,3
   set object to object orientation 50,3
   move object 50,70
   stop object 50
   move object 10,70
   show object 10
   pfireon = 1
endif
if object visible(10)=1
  Move Object 10,1
  Rotate Object 10,Wrapvalue(Object Angle X(10)-0.2),Object Angle Y(10),Object Angle Z(10)
  If bullet_life() = 1 then hide object 10
Endif
endfunction

landize=5000
x#=landsize
z#=landsize

gosub Init
gosub Variables
gosub LoadAll
gosub LoadScene
gosub LoadPlayer
for x= 4 to 7
 make object cube x,5
next x

do
   gosub Player
   gosub Scenery
   gosub Info
sync
loop




Player:
`   gosub MovePlayer
   gosub TiltPlayer
   gosub TurretPlayer
   gosub BulletsPlayer
return
MovePlayer:
   if leftkey()=1 then lf=1 else lf=0
   if rightkey()=1 then rt=1 else rt=0
   if upkey()=1 then fw=1 else fw=0
   if downkey()=1 then bw=1 else bw=0

   if fw=1
      spd#=spd#+1
   endif
   if bw=1
      spd#=spd#-1
   endif
   if lf=1 and spd#<>0
      pay#=wrapvalue(pay#-spd#)
   endif
   if rt=1 and spd#<>0
      pay#=wrapvalue(pay#+spd#)
   endif

   if spd#>0 then spd#=spd#-0.040
   if spd#<0 then spd#=spd#+0.040
   if spd#>0.24 then spd#=0.24
   if spd#<-0.24 then spd#=-0.24

   move object Ppv,spd#
   yrotate object Ppv,pay#
   yrotate object Pta,pay#
return
TiltPlayer:
 rem Control tank
 if upkey()=1 and s#<0.4 then s#=s#+0.2
 if downkey()=1 and s#>-0.4 then s#=s#-0.2
 if leftkey()=1 then s#=s#+0.01 : a#=wrapvalue(a#-2)
 if rightkey()=1 then s#=s#+0.01 : a#=wrapvalue(a#+2)

 rem Calculate tank data
 oldx#=x#
 oldz#=z#
 x#=newxvalue(x#,a#,s#)
 z#=newzvalue(z#,a#,s#)

 s#=s#/1.2

 landsize=5000
 shx#=shx#+(x#-oldx#)
 shz#=shz#+(z#-oldz#)
 mx#=(x#-landsize)-shx# : mz#=(z#-landsize)-shz#

 rem Calculate four X+Z coordinates for each corner
 foot#=50
 ta#=wrapvalue(a#-35)
 frontleftx#=newxvalue(x#,ta#,foot#) : frontleftz#=newzvalue(z#,ta#,foot#)
 ta#=wrapvalue(a#+35)
 frontrightx#=newxvalue(x#,ta#,foot#) : frontrightz#=newzvalue(z#,ta#,foot#)
 ta#=wrapvalue(a#+215)
 backleftx#=newxvalue(x#,ta#,foot#) : backleftz#=newzvalue(z#,ta#,foot#)
 ta#=wrapvalue(a#+145)
 backrightx#=newxvalue(x#,ta#,foot#) : backrightz#=newzvalue(z#,ta#,foot#)

 rem Calculate degree of tilting from corner heights
 frontlefth#=get ground height(1,frontleftx#-mx#,frontleftz#-mz#)
 frontrighth#=get ground height(1,frontrightx#-mx#,frontrightz#-mz#)
 backlefth#=get ground height(1,backleftx#-mx#,backleftz#-mz#)
 backrighth#=get ground height(1,backrightx#-mx#,backrightz#-mz#)
 across#=((frontrighth#-frontlefth#)+(backrighth#-backlefth#))/2.0
 length#=((backlefth#-frontlefth#)+(backrighth#-frontrighth#))/2.0

rem just to show where frontleft,frontright etc are
position object 4,frontleftx#,frontlefth#,frontleftz#
position object 5,frontrightx#,frontrighth#,frontrightz#
position object 6,backleftx#,backlefth#,backleftz#
position object 7,backrightx#,backrighth#,backrightz#

 rem Update tank model
 h#=get ground height(1,x#-mx#,z#-mz#)
 trackh#=(frontlefth#+frontrighth#+backlefth#+backrighth#)/4.0
 if trackh#>h# then h#=trackh#
 position object Ppv,x#,h#,z#
 position object Pta,x#,h#,z#
 yrotate object Ppv,a#
 rotate object Pta,wrapvalue(length#/4.0),a#,wrapvalue(across#/4.0)

 x#=object position x(Ppv)
 z#=object position z(Ppv)

return
TurretPlayer:
   Chase_Cam_Turret(Pta,16.0,10.0)
   if inkey$()="t" then ptay#=curveangle(ptay#,wrapvalue(ptay#-2.5),10)
   if inkey$()="y" then ptay#=curveangle(ptay#,wrapvalue(ptay#+2.5),10)
   yrotate object Ptu,ptay#
   ptay#=object angle y(Ptu)
   pay#=object angle y(Pta)
return
BulletsPlayer:
   if spacekey()=1 and object visible(bullet)=0
      show object bullet
      lx#=object position x(Pta)
      ly#=limb position y(Ptu,lmb)
      lz#=object position z(Pta)
      lax#=limb direction x(Ptu,lmb)
      lay#=limb direction y(Ptu,lmb)
      laz#=limb direction z(Ptu,lmb)
      rotate object bullet,lax#,lay#,laz#
      position object bullet,lx#,ly#,lz#
      move object bullet,-4
      tt=0
   endif
   if object visible(bullet)=1
      move object bullet,-2
      tt=tt+1
      set cursor 0,300
      print tt
      if tt>25:hide object bullet:tt=0:endif
   endif
return
Scenery:
   position object sky,px#,0,pz#
   turn object right sky,0.1
   xp#=cos(135)*60
   zp#=sin(135)*60
   position object Sun,px#+xp#,46,pz#+zp#
return

Info:
   text 0,0,"FPS: " + str$(screen fps())
   text 0,18,"Speed: " + str$(spd#)
   text 0,18*2,"Polys: " + str$(statistic(1))
   text 0,18*3,"TankRotX: " + str$(object angle x(Pta))
   text 0,18*4,"TankRotY: " + str$(object angle y(Pta))
   text 0,18*5,"TankRotZ: " + str$(object angle z(Pta))
   text 0,18*6,"PlayerX: " + str$(object position x(Pta))
   text 0,18*7,"PlayerY: " + str$(object position y(Pta))
   text 0,18*8,"PlayerZ: " + str$(object position z(Pta))
   text 0,18*9,"BulletX: " + str$(object position x(10))
   text 0,18*10,"BulletY: " + str$(object position y(10))
   text 0,18*11,"BulletZ: " + str$(object position z(10))
   text 0,18*13,"SunX: " + str$(object position x(Sun))
   text 0,18*14,"SunY: " + str$(object position y(Sun))
   text 0,18*15,"SunZ: " + str$(object position z(Sun))
   text 0,18*17,"vx2: " + str$(vx2)
   text 0,18*18,"vy2: " + str$(vy2)
return
















Init:
set emulation off
randomize timer()
for a=1 to 100
    a=rnd(99999999)
next a
sync on
sync rate 40
set display mode 640,480,16
hide mouse
autocam off
return

Variables:
`Player Tank
`Player Turret
Pta=11
Ptu=22
`Player's pivot
Ppv=1
`Skysphere
Sky=100
`Sun dummy
Sun=105
`Bulletnumber (for testing)
bullet=10

LF1=150
LF2=151
LF3=152
LF4=153
LF5=154

Ptex1=1
Ptex2=2
Ptex3=3
GroundTex=10
Skytex=100

dim CamRot1#(0)
return

LoadAll:
load image "textures\warrior.bmp",Ptex1
load image "textures\warrior2.bmp",Ptex2
load image "textures\grass08.bmp",GroundTex,1
load image "textures\005ciel.jpg",skytex
`load image "d:\downloads\clouds2.jpg",skytex
return

LoadPlayer:
load object "models\tank.3ds",Pta
load object "models\turret.3ds",Ptu

glue object to limb Ptu,Pta,0
texture object Pta,Ptex1
texture object Ptu,Ptex1
scale object Pta,50,50,50
`scale object Ptu,10,10,10
yrotate object Pta,180
`yrotate object Ptu,180
fix object pivot Pta
`fix object pivot Ptu
position object Pta,500,0,500

make object cube Ppv,0.01

position object Ppv,500,get ground height(1,500,500),500
px#=object position x(Ppv)
py#=object position y(Ppv)
pz#=object position z(Ppv)
position camera px#,py#,pz#

make object sphere bullet,0.5
make object cube 30,1
make object cube 40,2
hide object bullet

make mesh from object 1,40
for a=0 to 999
   if limb exist(Ptu,a)=0
      exit
   endif
next a
add limb Ptu,a,1
lmb=a
offset limb Ptu,lmb,0,9,-14
hide object 30
hide limb Ptu,lmb

return

LoadScene:

make matrix 1,5000,5000,64,64
set matrix texture 1,1,1
prepare matrix texture 1,GroundTex,1,1
randomize matrix 1,10
SmoothMatrix(1,32,32)

f=160
fogcolor=rgb(f,f,f)
fog on
fog color fogcolor
fog distance 600-100
set camera range 1,600

make object sphere Sky,600
scale object sky,-100,-50,-100
position object sky,500,0,500
texture object Sky,Skytex
zrotate object sky,180
fix object pivot sky
scale object texture sky,2,2
set object sky,1,1,1,1,0,1,0

make light 1
set directional light 1,-1,-1,-1
set ambient light 50

backdrop off
fade object Sky,50
return



















function chase_cam_turret(id,camDist#,camHeight#)

   `work out the angle of the object being chased
   yAng#=curveangle(wrapvalue(object angle y(id) + object angle y(id+11)+180),yAng#,10)

   `grab the objects current position
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)

   `other variables
   `camDist=12
   `camHeight=5

   remstart
   `work out new position
   xCamPos#=curvevalue(newxvalue(xPos#,yAng#,camDist),xCamPos#,10)
   zCamPos#=curvevalue(newzvalue(zPos#,yAng#,camDist),zCamPos#,10)
   remend
   xCamPos#=newxvalue(xPos#,yAng#,camDist#)
   zCamPos#=newzvalue(zPos#,yAng#,camDist#)

   xCamPos#=curvevalue(xCamPos#,camera position x(),8)
   yCamPos#=curvevalue(yCamPos#,camera position y(),8)
   zCamPos#=curvevalue(zCamPos#,camera position z(),8)
   `work out camera height
   yCamPos#=get ground height(1,xCamPos#,zCamPos#)+camHeight#
   if yCamPos# < yPos#+camHeight# then yCamPos#=yPos#+camHeight#

   `update camera position
   position camera xCamPos#,yCamPos#,zCamPos#
   point camera xPos#,yPos#+camHeight#,zPos#

endfunction

`---------
`chase cam
`---------
function chase_cam_die(id,camDist#,camHeight#)

   CamRot1#(0)=CamRot1#(0)+1

   `work out the angle of the object being chased
   yAng#=curveangle(wrapvalue(object angle y(id)+object angle y(id+11)+CamRot1#(0)),yAng#,10)

   `grab the objects current position
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)

   `other variables
   `camDist=15
   `camHeight=10

   `work out new position
   xCamPos#=newxvalue(xPos#,yAng#,camDist)
   zCamPos#=newzvalue(zPos#,yAng#,camDist)

   xCamPos#=curvevalue(xCamPos#,object position x(id),8)
   yCamPos#=curvevalue(yCamPos#,object position y(id),8)
   zCamPos#=curvevalue(zCamPos#,object position z(id),8)

   `work out camera height
   yCamPos#=get ground height(1,xCamPos#,zCamPos#)+camHeight
   if yCamPos# < yPos#+camHeight then yCamPos#=yPos#+camHeight

   `update camera position
   position camera xCamPos#,yCamPos#,zCamPos#
   point camera xPos#,yPos#+camheight,zPos#
   move camera 0-camDist
   point camera xPos#,yPos#,zPos#

endfunction


function SmoothMatrix(n,tx,ty)
   for z=1 to ty-1
      for x=1 to tx-1
         rem get matrix height
         h8#=get matrix height(n,x,z-1)
         h4#=get matrix height(n,x-1,z)
         h#=get matrix height(n,x,z)
         h2#=get matrix height(n,x,z)

         rem X angle by using heights
         x1#=(x-1)*25.0 : y1#=h#
         x2#=(x+0)*25.0 : y2#=h4#
         dx#=x2#-x1#
         dy#=y2#-y1#
         ax#=atanfull(dx#,dy#)
         ax#=wrapvalue(90-ax#)

         rem X angle by using heights
         z1#=(z-1)*25.0 : y1#=h2#
         z2#=(z+0)*25.0 : y2#=h8#
         dz#=z2#-z1#
         dy#=y2#-y1#
         az#=atanfull(dz#,dy#)
         az#=wrapvalue(90-az#)

         rem create normal
         nx#=sin(ax#)
         ny#=cos(ax#)
         nz#=sin(az#)

         rem smooth the matrix
         set matrix normal n,x,z,nx#,ny#,nz#
      next x
   next z
endfunction

rem Setup environment
hide mouse
sync rate 40
autocam off
sync on


load image "textures/grass08.bmp",1
rem Make landscape
landsize=5000
set camera range 10,landsize*2
make matrix 1,landsize*2,landsize*2,25,25
prepare matrix texture 1,1,4,4
randomize matrix 1,200
update matrix 1

rem Load and place objects

rem Create a tilt object (to handle "independent" X & Z axis rotation)
make object cone 1,5
hide limb 1,0

rem Load tank model
`load image "textures/warrior.bmp",2
load object "..\tank\irontank\attack.x",2
`"..\tank\models\tank.3ds",2:`
`texture object 2,2
`scale object 2,1000,1000,1000
yrotate object 2,270
fix object pivot 2
hide limb 2,6:` camera position
hide limb 2,4:` bottom of barrel
offset limb 2,5,0,0,-8:` put flash at end of barrel
hide limb 2,5:`          and hide it
rem make bullet
bullet=3
make object sphere bullet,20
hide object bullet
rem Glue tank to tilt-object
glue object to limb 2,1,0
rem make sky
load image "textures/005ciel.jpg",100
sky=100
make object sphere sky,-10000
texture object sky,100

rem Set game variables
x#=landsize
z#=landsize
cx#=landsize
cy#=2000
cz#=landsize-2000
bulletdead=1
rem just to show where frontleft,frontright etc are
for x= 4 to 7
 make object cube x,5
next x
```````````````````````````````````````````````````

do

 rem Control tank
 if upkey()=1 and s#<10.0 then s#=s#+4.0
 if downkey()=1 and s#>-10.0 then s#=s#-4.0
 if leftkey()=1 then s#=s#+0.1 : a#=wrapvalue(a#-5)
 if rightkey()=1 then s#=s#+0.1 : a#=wrapvalue(a#+5)

 rem Calculate tank data
 oldx#=x#
 oldz#=z#
 x#=newxvalue(x#,a#,s#)
 z#=newzvalue(z#,a#,s#)

 s#=s#/1.2

 shx#=shx#+(x#-oldx#)
 shz#=shz#+(z#-oldz#)
 mx#=(x#-landsize)-shx# : mz#=(z#-landsize)-shz#

 rem Calculate four X+Z coordinates for each corner
 foot#=105
 ta#=wrapvalue(a#-35)
 frontleftx#=newxvalue(x#,ta#,foot#) : frontleftz#=newzvalue(z#,ta#,foot#)
 ta#=wrapvalue(a#+35)
 frontrightx#=newxvalue(x#,ta#,foot#) : frontrightz#=newzvalue(z#,ta#,foot#)
 ta#=wrapvalue(a#+215)
 backleftx#=newxvalue(x#,ta#,foot#) : backleftz#=newzvalue(z#,ta#,foot#)
 ta#=wrapvalue(a#+145)
 backrightx#=newxvalue(x#,ta#,foot#) : backrightz#=newzvalue(z#,ta#,foot#)



 rem Calculate degree of tilting from corner heights
 frontlefth#=get ground height(1,frontleftx#-mx#,frontleftz#-mz#)
 frontrighth#=get ground height(1,frontrightx#-mx#,frontrightz#-mz#)
 backlefth#=get ground height(1,backleftx#-mx#,backleftz#-mz#)
 backrighth#=get ground height(1,backrightx#-mx#,backrightz#-mz#)
 across#=((frontrighth#-frontlefth#)+(backrighth#-backlefth#))/2.0
 length#=((backlefth#-frontlefth#)+(backrighth#-frontrighth#))/2.0


position object 4,frontleftx#,frontlefth#,frontleftz#
position object 5,frontrightx#,frontrighth#,frontrightz#
position object 6,backleftx#,backlefth#,backleftz#
position object 7,backrightx#,backrighth#,backrightz#

 rem Update tank model
 h#=get ground height(1,x#-mx#,z#-mz#)
 trackh#=(frontlefth#+frontrighth#+backlefth#+backrighth#)/4.0
 if trackh#>h# then h#=trackh#
 position object 1,x#,h#,z#
 yrotate object 1,a#
 rotate object 2,wrapvalue(length#/4.0),0,wrapvalue(across#/4.0)

 tankangy#=object angle y(1)
 ptay#=limb angle y(2,2)

if keystate(21)=1 and barrelangx#<45.0
 inc barrelangx#,0.2
  rotate limb 2,3,wrapvalue(barrelangx#),0.0,0.0
endif

if keystate(48)=1 and barrelangx#>0.0
 dec barrelangx#,0.2
  rotate limb 2,3,wrapvalue(barrelangx#),0.0,0.0
endif

 if keystate(34)=1 then ptay#=curveangle(ptay#,wrapvalue(ptay#-2.5),10)
 if keystate(35)=1 then ptay#=curveangle(ptay#,wrapvalue(ptay#+2.5),10)
 rotate limb 2,2,0.0,ptay#,0.0

  rem get bullets start position, at bottom of barrel
   bullx#=limb position x(2,4)
   bully#=limb position y(2,4)
   bullz#=limb position z(2,4)


if spacekey()=1 and fired=0
 fired=1
  position object bullet,bullx#,bully#,bullz#
`   point object bullet,limb position x(2,5),limb position y(2,5),limb position z(2,5):`point bullet at end of barrel
   limbturret=1
   objturret=2
   obj=1
   rotate object bullet,object angle x(obj)+limb angle x(objturret,limbturret),object angle y(1)+limb angle y(objturret,limbturret),object angle z(obj)+limb angle z(objturret,limbturret):`point bullet at end of barrel
    bulletdead=0
     grav#=0.0
      limtim=5
       limscal=200
        scale limb 2,5,limscal,limscal,limscal
endif

if fired=1 and bulletdead=0
 show object bullet
  move object bullet,50.0
   inc grav#,0.2
    position object bullet,object position x(bullet),object position y(bullet)-grav#,object position z(bullet)
endif

if limtim>0
 show limb 2,5
  dec limtim,1
   if limscal>10 then dec limscal,40
    scale limb 2,5,limscal,limscal,limscal
else
 hide limb 2,5
endif

bx#=object position x(bullet):by#=object position y(bullet):bz#=object position z(bullet)

if by#<= get ground height(1,bx#,bz#) then bulletdead=1

if spacekey()=0 and bulletdead=1 then fired=0

 rem Smooth control camera
 camlimx#=limb position x(2,6)
 camlimy#=limb position y(2,6)
 camlimz#=limb position z(2,6)
 cx#=curvevalue(camlimx#,cx#,50.0)
 cy#=curvevalue(camlimy#,cy#,50.0)
 cz#=curvevalue(camlimz#,cz#,50.0)

 position camera cx#,cy#,cz#
 point camera x#,get ground height(1,x#-mx#,z#-mz#)+100,z#

position object sky,x#,object position y(1),z#


 rem Update screen
 sync

rem End loop
loop

 rem Smooth control camera
 camlimx#=limb position x(2,6)
 camlimy#=limb position y(2,6)
 camlimz#=limb position z(2,6)
 cx#=curvevalue(camlimx#,cx#,10.0)
 cy#=curvevalue(camlimy#,cy#,10.0)
 cz#=curvevalue(camlimz#,cz#,10.0)