Sorry your browser is not supported!

rem this is the start of the code
rem hide the mouse
hide mouse
rem autocam off
autocam off
rem load media
load sound "media/sounds/rain.wav", 2
rem load and play the game intro
load animation "media/gameintro/gameintro.avi", 1
rem play the animation
play animation 1
sleep 5000
sleep 1000
rem delete the animation again
delete animation  1
rem load and show the history on the screen
load image "media/history/history.jpg", 1
rem place history on screen
sprite 1,0,0,1
rem wait until a key is pressed
wait key
rem this command will delete the story sprite
delete sprite 1
rem clear the screen
cls
rem make the sync setup
sync on
sync rate 30
rem make matrix
make matrix 1,10000,10000,20,20
fog on
fog distance 550
fog color RGB(0,0,0)
color backdrop RGB(44,44,44)
rem texture matrix
load image "media/textures/moss04.bmp",1
prepare matrix texture 1,1,2,2
rem randomize matrix
randomize matrix 1,250
for x = 0 to 19
for z = 0 to 19
t= rnd(3)+1
set matrix tile 1,x,z,t
next z
next x
update matrix 1
rem place the 3d tree on the matrix randomly
for x= 1 to 50
load object "tree.3ds",x
texture object x, 1
color object x, RGB(122,91,33)
scale object x,30000,30000,30000
xrotate object x,269
position object x, rnd(10000),100,rnd(10000)
next x
rem this will loop the rain sound
loop sound 2
rem the main loop
do
rem object angle
cameraangley# = camera angle y()
rem make the camera control input
if upkey()=1 then move camera 20
if leftkey()=1 then yrotate camera wrapvalue(cameraangley#-5)
if rightkey()=1 then yrotate camera wrapvalue(cameraangley#+5)
if spacekey()=1
fill matrix 1,rnd(50),rnd(3)+1
randomize matrix 1,250
endif
x# = camera position x()
z# = camera position z()
position camera x#,250,z#
sync
loop
rem end of the code

load image "skytile.bmp",1
autocam off
make object cube 1,1000
set object cull 1,0
set object light 1,0
texture object 1,1
do
control camera using arrowkeys 0,0.1,0.2
loop

autocam off
for i=2 to 900
g=rnd(5)
make object cube i,g
turn object left i,rnd(89)
position object i,200-rnd(400),g/2.0,200-rnd(400)
color object i,rgb(rnd(255),rnd(255),rnd(255))
next i
cls rgb(0,0,255)
print "sky"
print "sky"
get image 1,0,0,24,24
cls rgb(100,30,0)
for i=1 to 6
print "ground"
next i
get image 2,0,0,48,48
make object plain 1000,450,450
texture object 1000,2
pitch object up 1000,90
set object cull 1000,0
make object cube 1,2000
texture object 1,1
set object cull 1,0
set object light 1,0
position camera 0,1,0

do
control camera using arrowkeys 0,0.1,0.1
position object 1,camera position x(),0,camera position z()
loop