hey guys, this is a little demo of a game that the player has to go through hard places, you can add to it if u want
sync on : sync rate 40 : data 1,0,1,1,1,1,1,1,1,1,1,1,1,0,0,2,0,2,0,2,0,2,0,1:make matrix 1,200,200,1,1:position matrix 1,30,0,30:set matrix wireframe off 1
data 1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1 : data 1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1:data 1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1:data 1,0,0,0,2,0,2,0,2,0,2,1,1,1,1,1,1,1,1,1,1,1,1,1:set ambient light 75
for z=1 to 10:inc posz,5:posx=0:for x=1 to 12:inc num,1
inc posx,5:read a:if a=1 then make object cube num,20 : position object num,posx*4,10,posz*4 : color object num,rgb(100,100,100)
if a=2 then make object sphere num,15 : position object num,posx*4,10,posz*4 : color object num,rgb(100,100,0)
next x:next z : make object cylinder 200,15 : position object 200,0,7.5,0:color object 200,0:1_posz=36 : 1_move=1:2_posz=190 : 2_move=0:do : if 1_posz=36 then 1_move=1
if 1_posz=190 then 1_move=0
if 1_move=1 then inc 1_posz,2
if 1_move=0 then dec 1_posz,2
position object 16,(4*4*5),5,1_posz : position object 18,(6*4*5),5,1_posz : position object 20,(8*4*5),5,1_posz : position object 22,(10*4*5),5,1_posz : if downkey()=1 then move object 200,-2
if 2_posz=36 then 2_move=1
if 2_posz=190 then 2_move=0
if 2_move=1 then inc 2_posz,2
if 2_move=0 then dec 2_posz,2
position object 101,(5*4*5),5,2_posz : position object 103,(7*4*5),5,2_posz : position object 105,(9*4*5),5,2_posz : position object 107,(11*4*5),5,2_posz : if upkey()=1 then move object 200,2
if leftkey()=1 then yrotate object 200,wrapvalue(object angle y(200)-10)
if rightkey()=1 then yrotate object 200,wrapvalue(object angle y(200)+10)
set cursor 100,100 : print "x: "; camera position x() : set cursor 100,120 : print "z: "; camera position z()
set camera to follow object position x(200),object position y(200),object position z(200),object angle y(200),30,30,10,1:sync : loop
The World has no meaning - but gaming does!
