this is a game of a ball moving around a ww2 village just 4 begginers!

this is a game of a ball moving around a ww2 village
just 4 begginers!

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    load image "grass14.bmp",1
load image "barry.bmp"	,2
load image "mesh03.bmp",3
load image "blue07.bmp",4
load image "brick11.bmp",6
load image "manor01.bmp",5
load object "idle.x",10
loop object 10
position object 10,1500,15,250
load object "helico09.x",14
position object 14,200,10,400
scale object 14,500,500,500
load object "gun11.x",13
position object 13,2500,10,1000
rotate object 13,0,90,0
scale object 13,10000,10000,10000
make object plain 11,1000,50
position object 11,3000,10,100
make object plain 12,5000,50
position object 12,2300,10,2000
rotate object 12,0,270,0
load object "house2.x",7
position object 7,2000,50,500
scale object 7,900,2000,900
load object "outpool.x",6
position object 6,1800,15,200
load object "bunker.3ds",4
position object 4,900,10,500
color object 4,rgb(0,90,0)
make object cylinder 8,100
position object 8,3000,500,500
scale object 8,500,1000,500
make object cube 5,200
position object 5,2000,50,200
make object sphere 1,30
position object 1,500,500,500
make object cone 3,60
make object cube 2,50
position object 2,500,30,600
make light 1
point light 1,500,30,500
color light 1,100,0,100
show light 1
make matrix 1,5000,5000,50,50
randomize matrix 1,1
prepare matrix texture 1,1,2,2
texture object 1,2
texture object 2,5
texture object 3,3
texture object 5,5
texture object 8,5
texture object 11,6
texture object 12,6
`fog on
`fog color RGB(100,100,100)
glue object to limb 3,1,0
backdrop on 
texture backdrop 4
scroll backdrop 50,0
fix object pivot 1
set object frame 10,5
```````````````````
rem move sphere
DO
hide mouse
PRINT "upkey=forward:downkey=back:Left=left:right=right"
play object 10
a#=object angle y(1)
if leftkey()=1 then a#=wrapvalue(a#-5)
if rightkey()=1 then a#=wrapvalue(a#+5)
yrotate object 1,a#
if upkey()=1 then move object 1,-10
if downkey()=1 then move object 1,+10
if spacekey()=1 and playergrav#=0.0 then playergrav#=2.0
if object collision(1,0)>0 then position object 1,posx#,posy#,posz# 
posx#=object position x(1)
posz#=object position z(1)
posy#=get ground height(1,posx#,posz#)
position object 1,posx#,posy#,posz#
rem Use camera tracker to follow player object
angle#=object angle y(1)
angle#=angle#+180
camdist#=100.0 : camhigh#=posy#+50.0 : camfade#=3.5
set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
LOOP