Sorry your browser is not supported!

`*********Matrix******************

MAKE MATRIX 1,5000,5000,4,4
LOAD IMAGE "Textures/4x4Tex.bmp", 20
PREPARE MATRIX TEXTURE 1, 20, 2, 2
SET MATRIX TILE 1, 2, 2, 4
randomize matrix 1,250

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

Data 340.0, 230.2.0, 280.2.0, 329.0, 319.0, 356.6.0, 279.4.0, 342.0, 258.0, 383.0, 217.2.0, 80.0, 0.0
Dat
Data 0.0, 225.0, 408.0, 596.6.0, 587.2.0, 580.0, 641.4.0, 492.0, 472.6.0, 456.4.0, 677.0, 550.8.0, 612.0

Gosub Setup
Do
  Gosub ReadMouse
  sync
  Ink RGB(55,55,55),0
  Text 5,1,"Flying Over Never Ending Matrix - By TDK_Man (August 2005)"
Loop

Setup:
  Set Display Mode 800,600,16
  Hide Mouse
  Sync On
  Backdrop On
  Color Backdrop RGB(200,200,255)
  Randomize Timer()
  TilesX=50: TilesZ=50: Tilesize#=2048.0: MatZPos#=0.0
  Create Bitmap 1,128,128
  CLS RGB(0,50,0)
  For T=1 To 5000
    M=Rnd(150)+50
    Ink Rgb(0,M,0),0
    Dot Rnd(128),Rnd(128)
  Next T
  Get Image 1,0,0,127,127
  Delete Bitmap 1
  MatWidth#=TilesX*Tilesize#: MatHeight#=TilesZ*Tilesize#
  MatCentreX#=MatWidth#/2.0: MatCentreZ#=MatHeight#/2.0
  Make Matrix 1,MatWidth#,MatHeight#,TilesX,TilesZ
  PREPARE MATRIX TEXTURE 1,1,1,1
  Randomize Matrix 1,5000
  Gosub Smooth
  For N = 1 To 20
    X=Rnd(TilesX-2)+1: Z=Rnd(TilesZ-2)+1
    Set Matrix Height 1,x,z,10000
    Set Matrix Height 1,x-1,z-1,6000
    Set Matrix Height 1,x+1,z+1,7000
    Set Matrix Height 1,x+1,z-1,8000
    Set Matrix Height 1,x-1,z+1,9000
  Next N
  For N = 0 To TilesX
    Set Matrix Height 1,N,0,Get Matrix Height(1,N,TilesZ)
  Next N
  For N=1 To 10
    Gosub Smooth
  Next N
  Gosub Normalise
  Fog Distance 50000
  FOG COLOR RGB(200,200,255)
  Fog On
  Set Camera Range 100.0, 1000000.0
  Position Camera MatCentreX#, 2500.0, MatCentreZ#
  Rotate Camera 0.0,0.0,0.0
Return

ReadMouse:
  CX#=CAMERA ANGLE X(): CY#=CAMERA ANGLE Y(): CZ#=CAMERA ANGLE Z()
  CX#=Wrapvalue(CX# + mousemovey() )
  CY#=Wrapvalue(CY# + mousemovex() )
  Rotate Camera CX#,CY#,CZ#
  If MatZPos# > (0-Tilesize#)
    Dec MatZPos#,256.0
  Else
    MatZPos# = -256.0
    SHIFT MATRIX Up 1
    MatZPos# = 0.0
  Endif
  Position Matrix 1, 0.0, 0.0, MatZPos#
Return

Normalise:
  Rem By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
  For z=1 to TilesZ
    For x=1 to TilesX
      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)
      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#)
      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#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal 1,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix 1
Return

Rem **************************************************
Rem                  Smooth Matrix
Rem **************************************************
Smooth:
  Rem Averages matrix heights to remove jagged edges
  For Z=0 to TilesZ
    For X=0 to TilesX
      P0#=Get Matrix Height(1,X,Z):     Rem Current point height
      Rem Get 4 adjoining points heights (if they exist)
      If Z-1 > 0
        P1#=Get Matrix Height(1,X,Z-1)
      Else
        P1#=Get Matrix Height(1,X,TilesZ)
      Endif
      If X+1 < TilesX
        P2#=Get Matrix Height(1,X+1,Z)
      Else
        P2#=Get Matrix Height(1,0,Z)
      Endif
      If Z+1 < TilesZ
        P3#=Get Matrix Height(1,X,Z+1)
      Else
        P3#=Get Matrix Height(1,X,0)
      Endif
      If X-1 > 0
        P4#=Get Matrix Height(1,X-1,Z)
      Else
        P4#=Get Matrix Height(1,TilesX,Z)
      Endif
      Average#=(P0#+P1#+P2#+P3#+P4#)/5: Rem Av height of other points
      Set Matrix Height 1,x,z,Average#
    Next x
  Next z
Return

*********Movement Contorls******************
Set camera to follow Object position X(1),Object position Y(1),Object position Z(1),Object angle Y(1),500,100,5,0
If upkey()=1 then Xrotate object 1,Wrapvalue(Object angle X(1)+1)
If downkey()=1 then Xrotate object 1,Wrapvalue(Object angle X(1)-1)
if Upkey()=0
If Downkey()=0
NewX#=Curveangle(0,Object angle X(1),100)
Xrotate object 1,NewX#
endif
endif

`*******Auto Move Take away if then statment**********
if keystate (17)=1 then move object 1,20
`**************************

If rightkey()=1 then Yrotate object 1,wrapvalue(Object Angle Y(1)+2)
If leftkey()=1 then Yrotate object 1,wrapvalue(Object Angle Y(1)-2)
set cursor 0,0
Print Scancode()
`************************************************
Sync
Loop
End: `*** End Of Main Program ***

ReadMouse:
  CX#=CAMERA ANGLE X(): CY#=CAMERA ANGLE Y(): CZ#=CAMERA ANGLE Z()
  CX#=Wrapvalue(CX# + mousemovey() )
  CY#=Wrapvalue(CY# + mousemovex() )
  Rotate Camera CX#,CY#,CZ#
  If MatZPos# > (0-Tilesize#)
    Dec MatZPos#,256.0
  Else
    MatZPos# = -256.0
    SHIFT MATRIX Up 1
    MatZPos# = 0.0
  Endif
  Position Matrix 1, 0.0, 0.0, MatZPos#
Return

Success=LoadMatrix("Canyon",1)

`Project: Jet Fighter
`Created: 29/08/2005 22:37:50
`****************************
`***** Main Source File *****
`Created by Adam Bevan

`*********************************
`Wait 2000
Set Display Mode 800, 600, 32
`*********************************


`Myscreen:
`Hide Mouse
`Load animation "MyScreen.avi",1
`p=0
`play:
`If animation playing (1)=0
`Play animation 1
`inc p
`endif
`if p>3
`if animation playing (1)=0 then end
`endif
`if P<3 then goto play else delete animation 1
`wait 2000
`gosub menu



Menu:
Set Text Opaque
Load Image "Images/Menu.BMP",1
Paste Image 1,0,0
show mouse
position mouse 400,300
Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()

  If Mx>251 And My>180 And Mx<593 And My<235 And Mc=1
    Gosub NewGame
    Text 0,0,"New Game"
    Repeat
    Until MouseClick()=0
  Endif

  If Mx>239 And My>284 And Mx<603 And My<342 And Mc=1
    Rem LoadGame Button Code Goes Here
    Text 0,0,"Load Game"
    Repeat
    Until MouseClick()=0
  Endif

  If Mx>245 And My>392 And Mx<591 And My<454 And Mc=1
    Rem Help Button Code Goes Here
    Text 0,0,"Help"
    Repeat
    Until MouseClick()=0
  Endif

  If Mx>350 And My>481 And Mx<489 And My<548 And Mc=1
    End
    Text 0,0,"Quit"
    Repeat
    Until MouseClick()=0
  Endif

  If Mx>203 And My>87 And Mx<220 And My<99 And Mc=1
    Rem Cheat Button Code Goes Here
    Text 0,0,"Cheat"
    Repeat
    Until MouseClick()=0
  Endif

Loop
End

NewGame:
Position Mouse 400,300
Backdrop on : `color backdrop rgb (25,25,25)
Hide Mouse
Sync on
Sync Rate 50

`**********Load Objects***********
load object "Objects/Harrier_GR7.X",1
load object "objects/Left_Missile1.x",2
load object "objects/Left_Missile2.x",3
load object "objects/Right_Missile1.x",4
load object "objects/Right_Missile2.x",5

`load object "Objects/Alien_Laser.X",
Position Object 1, 100, 300, 3000
Rotate object 1, 0,90,0

Glue Object to limb 2, 1, 1
Glue Object to limb 3, 1, 1
Glue Object to limb 4, 1, 1
Glue Object to limb 5, 1, 1

position object 2,0,-12,0:position object 3,0,-12,0:position object 4,0,-12,0:position object 5,0,-12,0

`*********************Matrix***************************
#include "LoadMatrix.dba"
Dim BigMatrix(600,600,1)
Dim StartLoc_X(1): Dim StartLoc_Z(1):Dim Info(2)
Dim TArrayX(1): Dim TArrayZ(1): Dim FKey(10,1)
Dim ColData(100): Dim ZoneData(100): Dim Tiles(500,500)
Dim OverTexture$(100): Dim OverName$(20): Dim ReplaceTex(100)
Dim MOffsetX(25): Dim MOffsetY(25)
Dim MWire(20): Dim MGhost(20): Dim Lock(20)
Dim MatX#(20): Dim MatY#(20): Dim MatZ#(20)
Dim MatWidth#(20): Dim MatHeight#(20)
Dim TilesX(20): Dim TilesZ(20)
Dim MatHi#(20): Dim MatLo#(20)

Success=LoadMatrix("Canyon",1)
If Success=1
  Set Camera Range 1.0, 20000.0
  CamposX#=(FKey(1,0)*Info(0))-(Info(0)/2): Rem X Position of HotSpot 1 * Tile Size = X pixel position for camera
  CamposZ#=(FKey(1,1)*Info(1))-(Info(1)/2): Rem Z Position of HotSpot 1 * Tile Size = Z pixel position for camera
  gh#=Get Ground Height(1,CamposX#,CamposZ#)
  CamposY#=gh#+10.0:           Rem Height (Y) position of camera
  Position Camera CamposX#, CamposY#, CamposZ#
  CamViewX#=CamposX#: CamViewY#=CamposY#: CamViewZ#=CamposZ#
  Point Camera CamposX#, CamposY#, CamViewZ#
  Sync
  Speed#=0.0: Rem Start Speed
  fog on
  fog color 25
Endif
`**************************End Matrix***********************************

`**************Main Loop*****************

Missile_Count=30
MachineGun_Count=500
M=Missile_Count
G=MachineGun_Count

Do
 Print "Missiles"
 Print M
 Print "Cannon"
 Print G

Print Scancode()
`*********Movement Contorls******************
Set camera to follow Object position X(1),Object position Y(1),Object position Z(1),Object angle Y(1),500,100,5,0
 If upkey()=1 then Xrotate object 1,Wrapvalue(Object angle X(1)+1)
  If downkey()=1 then Xrotate object 1,Wrapvalue(Object angle X(1)-1)
  If Upkey()=0
  If Downkey()=0
  NewX#=Curveangle(0,Object angle X(1),100)
  Xrotate object 1,NewX#
  endif
 endif

`*******Auto Move**********
 if keystate (17)=1 then move object 1,20
`**************************
  If rightkey()=1 then Yrotate object 1,wrapvalue(Object Angle y(1)+2)
  If leftkey()=1 then Yrotate object 1,wrapvalue(Object Angle y(1)-2)
  If Rightkey()=0
  If Leftkey()=0
  NewX#=Curveangle(0,Object angle X(1),100)
  Xrotate object 1,NewX#
  endif
 endif
`************************************************

`****Missile**********
If Keystate(157)=1
`for b=50 to 100
`hide object 2
`clone object 2,b
`next b
 If M>=1
 Dec M
 Endif
Endif

`********************
`*******Cannon*******
If Keystate(54)=1
 If G>=1
 Dec G
 endif
endif
`*******************


 `If Spacekey()=1
 `x = 200
 `while object exist(2)
 `Inc x
 `endwhile
 `clone object x,2
 `position object where ever it needs to start at
 `point the object at the crosshair (hidden little cube)
 `hide the limb until you are ready to fire a new missile

 `When you want to move all the missiles that are fired towards where they need to go
 `For x = 200 to 300 `(im guessing you wont make over 100 missiles at one time)
 `if object exist(2) `(remember we started at 200 so we are checking if there is that missile and going up just incase they created more)
 `move object x,2 `move the missile forward
 `endif
 `next x `move through all the objects that could be missles and chcek if one exists. If it does move that one forward
`Endif

sync:Loop