And here's mine. If you want to download the full prgram (including media), its availiable from my web site.
If you want to compile it yourself, you will need my MsgBox plug-in (or you can replace the MsgBox lines with something else).
This program has no redeeming features whatsoever...
Rem Project: Trlazerailb
Rem Created: 04/10/2003 16:23:39
Rem ***** Main Source File *****
#constant BALL 1
#constant ROAD 2
#constant START 3
#constant _END 4
#constant _OBJECTS 5
#CONSTANT ROADSIZE 400.0*100.0
sync on
sync rate 0
make object sphere BALL,25
make object plain ROAD,625.0,20000.0
Xrotate object ROAD,90.0
position object ROAD,0.0,0.0,10000.0
set object collision off ROAD
make object plain START,625.0,100.0
XROTATE object START,270.0
position object START,0.0,1.0,-20.0
set object collision off START
make object plain _END,625.0,100.0
XROTATE OBJECT _END,270.0
position object _END,0.0,1.0,20000.0
set object collision on _END
load image "foliage.bmp",1,1
load image "STEEL.bmp",2,1
load image "brick1_t.bmp",3,1
LOAD IMAGE "START.BMP",4,1
LOAD IMAGE "END.BMP",5,1
texture object ROAD,1
texture object BALL,2
texture object START,4
TEXTURE OBJECT _END,5
px#=0.0
py#=15.0
pz#=0.0:rem -10000.0
distance#=(10000.0-3300.0-3.0)+912.0
inc distance#,48.0
index=0
for z#=1000.0 to 20000.0-1000.0 step 100.0
make object box _OBJECTS+index,100.0,100.0,100.0
position object _OBJECTS+index,(rnd(625))-300.0,25.0,z#
texture object _OBJECTS+index,3
set object collision oN _OBJECTS+index
inc index
next z#
position object BALL,px#,py#,pz#
set object collision on BALL
speed#=0.0
time#=1300.0
DO
center text screen width()>>1,0,"Time : "+str$(int(time#))+" Distance :"+str$(int(distance#))
if upkey()
inc speed#,0.25
if speed#>3.0 then speed#=3.0
else
if downkey()
dec speed#,0.25
if speed#<-3.0 then speed#=-3.0
else
if speed#>0.0 then dec speed#,0.025
if speed#<0.0 then inc speed#,0.025
endif
endif
if abs(speed#)<0.026 then speed#=0.0
curx#=px#
if leftkey() and px#>-300.0
position object BALL,px#-0.7,py#,pz#
coll=object collision(BALL,0)
if coll<_OBJECTS
dec px#,0.5
zrotate object BALL,object angle z(BALL)+2.0
endif
else
if rightkey() and px#<300.0
position object BALL,px#+0.7,py#,pz#
coll=object collision(BALL,0)
if coll<_OBJECTS
inc px#,0.5
zrotate object BALL,object angle z(BALL)-2.0
endif
endif
endif
coll=object collision(BALL,0)
if coll=_END
x=msgbox("Well Done. Level Completed","* Finished *",1):End
else
if coll=0 and speed#<>0.0
newx#=pz#+(speed#)
if speed#>0.0 then inc newx#,5.0 else if speed#<0.0 then dec newx#,5.0
position object BALL,px#,py#,newx#
if object collision(BALL,0)=0
inc pz#,speed#
if speed#>0.0 then xrotate object BALL,object angle x(BALL)+2.0:dec distance#,1.0
if speed#<0.0 then xrotate object BALL,object angle x(BALL)-2.0:inc distance#,1.0
else
speed#=0.0
if object collision(BALL,0)=_END
x=msgbox("Well Done. Level Finished","* Finished *",1):end
endif
endif
else
speed#=0.0
endif
endif
position object BALL,px#,py#,pz#
position camera px#,py#+100.0,pz#-200.0
dec time#,0.1
if time#<0.0 then x=msgbox("Game Over","*",1):End
SYNC
LOOP
Avatar & Logo by Indi. Come to the UK DBPro Convention in Chichester
