Well, it might not be the best game ever, but it's good for 20 lines. It's a much better version of one of my other 20 liners. Collect the spinning red boxes. Hold space to keep bouncing and get higher. (Don't try to run it in dbpro because it won't work.)
hide mouse:sync on:sync rate 85:autocam off:make object sphere 1,4
color object 1,rgb(200,200,0):make object collision box 1,-2,-2,-2,2,2,2,0:position object 1,20,-90,0:ob=1:ob2=500:ob3=1000:ob4=1500:dim sld#(100):for y=1 to 10:if co=0
co=1:else:co=0:endif:for x=1 to 30:if co=0:co=1:else:co=0:endif
read a:if a=1:ob=ob+1:make object cube ob,10:position object ob,x*10,y*-10,0:make object collision box ob,-5,-5,-5,5,5,5,0:if co=1:color object ob,rgb(0,0,200):else:color object ob,rgb(200,100,0)
endif:endif:if a=2:ob2=ob2+1:make object cube ob2,10:position object ob2,x*10,y*-10,0:make object collision box ob2,-5,-5,-5,5,5,5,0:yrotate object ob2,90:color object ob2,rgb(0,200,0):endif
if a=3:ob3=ob3+1:make object cube ob3,6:position object ob3,x*10,y*-10,0:color object ob3,rgb(200,0,0):endif:if a=4:ob4=ob4+1:sld#(ob4-1500)=wrapvalue(ob4-1500)*30:make object cube ob4,10
position object ob4,x*10,y*-10,0:make object collision box ob4,-5,-5,-5,5,5,5,0:xrotate object ob4,90:color object ob4,rgb(200,0,200):endif:next y:next x:color backdrop 0:do:for z=1001 to ob3
rotate object z,wrapvalue(object angle x(z)+5),wrapvalue(object angle y(z)+5),0:next z:if spacekey() and get object collision y()<0:grav#=(grav#+1.1)*.7:endif:xx#=(xx#+rightkey()*.1-leftkey()*.1)/1.13:x#=object position x(1)
y#=object position y(1):x#=x#+xx#:grav#=grav#-.08:y#=y#+grav#:if y#<-150:x#=20:y#=-90:grav#=0:endif:position object 1,x#,y#,0:for z=501 to ob2:ox#=object position x(z):move object z,.3
if object collision(1,z)=1:x#=x#+(object position x(z)-ox#):endif:if object collision(z,0)>1:yrotate object z,wrapvalue(object angle y(z)+180):endif:next z:for z=1 to 100:sld#(z)=wrapvalue(sld#(z)+2):next z
for z=1501 to ob4:position object z,object position x(z),object position y(z),cos(sld#(z-1500))*10:next z:if object collision(1,0)>0:if object collision(1,0)>=1000 and object collision(1,0)<=ob3 and object visible(object collision(1,0))
got=got+1:hide object object collision(1,0):endif:dec x#,get object collision x():dec y#,get object collision y():if get object collision x()<>0:xx#=xx#*-.8:endif:if get object collision y()<>0:grav#=grav#*-.8:endif:endif:if got=ob3-1000
center text 320,200,"You Win!":endif:position object 1,x#,y#,0:rotate camera 30,curveangle(xx#*15,camera angle y(),20),0:position camera curvevalue(x#,camera position x(),5),curvevalue(y#+30,camera position y(),5),-50:sync:loop
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data 1,0,0,0,1,3,0,0,0,0,0,0,0,0,0,1,3,0,0,0,0,0,0,3,0,0,1,3,1,1:data 1,0,3,0,1,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,1,1,1,1,0,0,1,2,0,0,0,0,1:data 1,1,1,4,1,4,1,4,1,4,1,0,0,1,0,1,0,0,3,0,0,0,4,1,1,0,0,0,0,1:data 1,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,1
data 1,0,0,0,3,0,0,0,0,0,0,1,1,1,1,1,2,0,0,0,0,0,1,1,1,1,1,4,1,1:data 1,0,0,1,1,0,0,2,2,0,0,1,1,3,1,1,0,0,0,0,0,0,1,3,1,0,0,0,1,1:data 1,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1,1,1,4,1,4,1,4,1,1,1,1,1,1,4,1,4,1,1,1,1,1
For thost of you without DBC, here's the file:
http://www.angelfire.com/electronic2/darkbasic/TheBestGameEver.zip