SOme game - check it out ;) --- not media free ---

SOme game - check it out ;) --- not media free ---

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    color backdrop RGB(128,255,255)
    Sync On
Sync Rate 30

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass_09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1
Rem make sun
make object sphere 33,100
position object 33,5000,310,5000
set object cull 33,0
set object light 33,0
color object 33,RGB(255,255,128)
rem make some fucking objects over the place
make object sphere 2,140
position object 2,rnd(10000),70,rnd(10000)
make object sphere 3,140
position object 3,rnd(10000),70,rnd(10000)
make object sphere 4,140
position object 4,rnd(10000),70,rnd(10000)
make object sphere 5,140
position object 5,rnd(10000),70,rnd(10000)
make object sphere 6,140
position object 6,rnd(10000),70,rnd(10000)
make object sphere 7,140
position object 7,rnd(10000),70,rnd(10000)
make object sphere 8,140
position object 8,rnd(10000),70,rnd(10000)
make object sphere 9,140
position object 9,rnd(10000),70,rnd(10000)
make object sphere 110,140
position object 110,rnd(10000),70,rnd(10000)
make object sphere 11,140
position object 11,rnd(10000),70,rnd(10000)
make object sphere 12,140
position object 12,rnd(10000),70,rnd(10000)
make object sphere 13,140
position object 13,rnd(10000),70,rnd(10000)
make object sphere 14,140
position object 14,rnd(10000),70,rnd(10000)
make object sphere 15,140
position object 15,rnd(10000),70,rnd(10000)
make object sphere 16,140
position object 16,rnd(10000),70,rnd(10000)
make object sphere 17,140
position object 17,rnd(10000),70,rnd(10000)
make object sphere 18,140
position object 18,rnd(10000),70,rnd(10000)
make object sphere 19,140
position object 19,rnd(10000),70,rnd(10000)
make object sphere 20,140
position object 20,rnd(10000),70,rnd(10000)
make object sphere 21,140
position object 21,rnd(10000),70,rnd(10000)
make object sphere 22,140
position object 22,rnd(10000),70,rnd(10000)
make object sphere 23,140
position object 23,rnd(10000),70,rnd(10000)
make object sphere 24,140
position object 24,rnd(10000),70,rnd(10000)
make object sphere 25,140
position object 25,rnd(10000),70,rnd(10000)
make object sphere 26,140
position object 26,rnd(10000),70,rnd(10000)
make object sphere 27,140
position object 27,rnd(10000),70,rnd(10000)
make object sphere 28,140
position object 28,rnd(10000),70,rnd(10000)
make object sphere 29,140
position object 29,rnd(10000),70,rnd(10000)
make object sphere 30,140
position object 30,rnd(10000),70,rnd(10000)
rem now color these fucking 30 objects !!!!
color object 2,RGB(255,128,0)
color object 3,RGB(255,0,0)
color object 4,RGB(255,128,192)
color object 5,RGB(255,0,128)
color object 6,RGB(128,0,0)
color object 7,RGB(255,128,0)
color object 8,RGB(0,255,128)
color object 9,RGB(0,128,255)
color object 110,RGB(128,128,0)
color object 11,RGB(0,0,0)
color object 12,RGB(64,0,64)
color object 13,RGB(0,0,255)
color object 14,RGB(128,0,255)
color object 15,RGB(255,255,128)
color object 16,RGB(0,255,255)
color object 17,RGB(255,128,255)
color object 18,RGB(255,190,125)
color object 19,RGB(170,18,235)
color object 20,RGB(170,101,9)
color object 21,RGB(0,64,128)
color object 22,RGB(255,0,0)
color object 23,RGB(255,255,0)
color object 24,RGB(255,0,0)
color object 25,RGB(0,255,255)
color object 26,RGB(0,128,128)
color object 27,RGB(128,255,0)
color object 28,RGB(255,255,255)
color object 29,RGB(255,128,128)
color object 30,RGB(0,0,0)
rem omfg now make these alll mutherfucking object lightt???? :(:((:(:(:((((
set object light 2,0
set object light 3,0
set object light 4,0
set object light 5,0
set object light 6,0
set object light 7,0
set object light 8,0
set object light 9,0
set object light 110,0
set object light 11,0
set object light 12,0
set object light 13,0
set object light 14,0
set object light 15,0
set object light 16,0
set object light 17,0
set object light 18,0
set object light 19,0
set object light 20,0
set object light 21,0
set object light 22,0
set object light 23,0
set object light 24,0
set object light 25,0
set object light 26,0
set object light 27,0
set object light 28,0
set object light 29,0
set object light 30,0
Rem Make player pawn
load object "skater.x",10
scale object 10,18,14,20
position object 10,120,50,100
set object cull 10,0
set object light 10,0
rem Randomize the matrix
randomize matrix 1,8

Rem Main loop
Do
set cursor 0,0
print screen fps()

 Rem  Store Object angle
 AngleY# = object angle Y(10)

 Rem  Control input for camera
 If Upkey()=1
  XTest# = Newxvalue(X#,AngleY#,20)
  ZTest# = Newzvalue(Z#,AngleY#,20)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   Move object 10,10
  Endif
 Endif

 If Leftkey()=1 then Yrotate object 10,Wrapvalue(AngleY#-7)
 If Rightkey()=1 then Yrotate object 10,Wrapvalue(AngleY#+7)

 X# = Object position x(10)
 Z# = Object position z(10)
 Y# = Get Ground Height(1,X#,Z#)

 Position object 10,X#,Y#+22.5,Z#

 CameraZ# = Newzvalue(Z#,AngleY#-180,100)
 CameraX# = Newxvalue(X#,AngleY#-180,100)
 CameraY# = Get Ground Height(1,CameraX#,CameraZ#)
 Position camera CameraX#,CameraY#+40,CameraZ#

 Point camera X#,Y#+25,Z#
 Rem Refresh Screen
 Sync
 loop

rem here is the link !!!! http://www.freewebs.com/underpiksna/media.rar