Well, not quite a full-on game but the best I could do in 20 lines. Even so, I think its pretty nice and plan to expand on what I've done here once Succession: The Betrayal is finished.
It'll only compile in DBPro because of the use of the TERRAIN commands - and the supporting files are at:
http://www.eclipsedevelopment.co.uk/minflight.zip
Its controlled with the mouse and mouse button 1....
`20 Line challenge - Mini Flight Test by Glenn Carter of Eclipse Development UK
`Check out http://www.eclipsedevelopment.co.uk/ for more great things..........
`Load images
load image "shiptexture.jpg",1
load image "sand.jpg",2
`Make the Terrain from a heightmap and texture it
make terrain 1,"hmap1.jpg"
texture terrain 1,2
`Load the ship object and texture and position it
load object "ship.x",1
texture object 1,1
position object 1,512,50,512
`setup fog
fog on: fog distance 256
fog color RGB(0,0,125)
`#######MAIN LOOP########
do
`Find object position
x#=object position x(1)
z#=object position z(1)
`Make the ship ascend or descend depending on terrain
if get terrain height(1,x#,z#)y#+2 then y#=y#+.5
position object 1,x#,y#,z#
`Follow the ship with the camera
set camera to follow x#,y#,z#,angle#,10,y#+5,40,0
`Turn or move the ship
rotate object 1,0,angle#,0
angle#=wrapvalue(angle#+(mousemovex()/2))
if mouseclick()=1 then move object 1,2
`#######END OF MAIN LOOP#########
loop
Cheers
Glenn Carter
