Sorry your browser is not supported!

rem Load stone floor bitmap into image
LOAD BITMAP "GRASS15.bmp",1
GET IMAGE 1,0,0,128,128
DELETE BITMAP 1

rem Activate manual syncronization and hide mouse
SYNC ON : HIDE MOUSE

rem Make a 3D landscape
MAKE MATRIX 1,10000.0,10000.0,25,25

rem Load and Loop Music
Load Music "At the Gates.mid",1
Play Music 1
Loop Music 1

rem Texture landscape
PREPARE MATRIX TEXTURE 1,1,1,1

rem Randomise landscape
RANDOMIZE MATRIX 1,300.0

rem Activate and distance fogging
FOG ON
FOG COLOR 0
FOG DISTANCE 5000

rem Begin loop
DO

rem Control camera turret
IF UPKEY()=1 THEN MOVE CAMERA +3.0
IF DOWNKEY()=1 THEN MOVE CAMERA -3.0
IF LEFTKEY()=1 THEN angle#=angle#-3.0
IF RIGHTKEY()=1 THEN angle#=angle#+3.0
If Shiftkey()=1 and upkey()=1 then move camera +7.0
If Shiftkey()=1 and downkey()=1 then move camera -7.0

rem Ensure angle stays within range
angle#=wrapvalue(angle#)

rem Update camera
YROTATE CAMERA angle#

rem Refresh screen
SYNC

rem End loop
LOOP

sync on : sync rate 0
hide mouse : autocam off

make matrix 1, 1000, 1000, 20, 20
SET MATRIX HEIGHT 1, 10, 10, 50
SET MATRIX HEIGHT 1, 9, 9, 50
SET MATRIX HEIGHT 1, 10, 9, 50
SET MATRIX HEIGHT 1, 9, 10, 50
update matrix 1

position matrix 1, -500,0,-500

do
	control camera using arrowkeys 0, 1, .5
	position camera camera position x(), get ground height(1,camera position x()+500,camera position z()+500)+5, camera position z()
	sync
loop

rem Load stone floor bitmap into image
LOAD BITMAP "GRASS15.bmp",1
GET IMAGE 1,0,0,128,128
DELETE BITMAP 1

rem Activate manual syncronization and hide mouse
SYNC ON
Sync Rate 60
HIDE MOUSE
AUTOCAM OFF

rem Load and Place Trees
For T= 11 TO 51
Load Object "Tree2.x",T
Scale Object T,50000,50000,50000
Position Object T,RND(20000),400,RND(20000)
Next T

rem Make a 3D landscape
MAKE MATRIX 1,10000.0,10000.0,25,25

rem Load and Loop Music
Load Music "Final.mid",1
Play Music 1
Loop Music 1

rem Set Distance and Color of Fog
Fog On
Fog Color 0
Fog Distance 3000

rem Texture landscape
PREPARE MATRIX TEXTURE 1,1,1,1

`Create Character
Load Object "Walk.x",10

rem Begin loop
DO

Rem Store Object angle Y in aY#
   aY# = Object angle Y(10)

   Rem Control input for camera
   If Upkey()=1 then Move object 10,10
   If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5)
   If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5)

   Rem get player object position and store in X# and Z#
   X# = Object position x(10)
   Z# = Object position z(10)

   rem Character Animations
   If Upkey()=1 then Loop Object 10, 5, 24
   If Upkey()=0 then Stop Object 10
   IF Upkey()=0 then Loop Object 10,1,1

   Rem get new camera position and store in cZ# and cX#
   cZ# = Newzvalue(Z#,aY#-180,100)
   cX# = Newxvalue(X#,aY#-180,100)

   Rem position camera
   Position Camera cX#,100,cZ#

   Rem point the camera at the player object
   Point camera X#,50,Z#

rem Refresh screen
SYNC

rem End loop
LOOP