I made a game called Air Line and need help on what to add. By the way a older Air Line game is in the code base too. Can you give me ideas(codes if you what) so this can be a full size game. Also test my game and see how it is.
```````````````````````````````
``````````Air Line Demo````````
````author: Christian Ang``````
```````````````````````````````
`sync
sync on
sync rate 50
`creation by
load music "aircraft.wav",1
load music "final.mid",2
play music 1
text 240,240,"produce by"
text 260,275,"created by: Christian Ang"
set text size 30
text 250,250,"darkbasic"
sleep 3000
stop music 1
`main menu
cls (120)
`text
set text size 20
set text to bold
set text font default_charset$,255
`New Game
text 5,100,"New Game"
ink RGB(0,128,255),0
text 5+1,100+1,"New Game"
text 5-1,100-1,"New Game"
text 5+1,100-1,"New Game"
text 5-1,100+1,"New Game"
`Instructions
text 5,120,"Instructions"
ink RGB(0,128,255),0
text 5+1,120+1,"Instructions"
text 5-1,120-1,"Instructions"
text 5+1,120-1,"Instructions"
text 5-1,120+1,"Instructions"
`Quit
text 5,140,"Quit"
ink RGB(0,128,255),0
text 5+1,140+1,"Quit"
text 5-1,140-1,"Quit"
text 5+1,140-1,"Quit"
text 5-1,140+1,"Quit"
`Title
set text size 30
text 100,0,"Welcome to Air Line!"
ink RGB(0,128,255),0
text 100+1,0+1,"Welcome to Air Line!"
text 100-1,0-1,"Welcome to Air Line!"
text 100+1,0-1,"Welcome to Air Line!"
text 100-1,0+1,"Welcome to Air Line!"
ink RGB(0,0,0),0
text 100,0,"Welcome to Air Line!"
set text size 20
`line
ink rgb(0,128,255),0
line 89,450,89,20
`menu loop
do
`controls
if (((mousex() >= -5) and (mousex() <= 100)) and ((mousey() >= 90) and (mousey() <=110))) then ink rgb(255,255,0),0 : text 5,100,"New Game"
if (((mousex() < -5) or (mousex() > 100)) or ((mousey() < 90) or (mousey() >110))) then ink rgb(255,255,255),0 : text 5,100,"New Game"
if ((((mousex() >= -5) and (mousex() <= 100)) and ((mousey() >= 90) and (mousey() <=110))) and (mouseclick()=1)) then cls : hide mouse : exit
if (((mousex() >= -5) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) then ink rgb(255,255,0),0 : text 5,120,"Instructions"
if (((mousex() < -5) or (mousex() > 100)) or ((mousey() < 110) or (mousey() >130))) then ink rgb(255,255,255),0 : text 5,120,"Instructions"
if ((((mousex() >= -5) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then text 100,140,"Fly around the matrix for fun !(of course)":text 100,160,"upkey pitch object down"
if ((((mousex() >= -5) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then text 100,180,"downkey pitch object up": text 100,200,"leftkey turn object left" : text 100,220,"rightkey turn object right"
if ((((mousex() >= -5) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then text 100,240,"spacekey is turbo" : text 100,300,"Escapekey to end game"
if ((((mousex() >= -5) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then text 100,260,"shiftkey is to put the gear higher which makes it faster"
if ((((mousex() >= -5) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then text 100,280,"controlkey is to put the gear lower which makes it slower"
if (((mousex() >= -5) and (mousex() <= 100)) and ((mousey() >= 130) and (mousey() <=150))) then ink rgb(255,255,0),0 : text 5,140,"Quit"
if (((mousex() < -5) or (mousex() > 100)) or ((mousey() < 130) or (mousey() >150))) then ink rgb(255,255,255),0 : text 5,140,"Quit"
if ((((mousex() >= -5) and (mousex() <= 100)) and ((mousey() >= 130) and (mousey() <=150))) and (mouseclick()=1)) then end
`sync
sync
`loop
loop
`countdown
sleep 1000
set text size 30
cls (300)
text 250,200,"REAAAADY!!"
sleep 1000
cls (120)
text 250,200,"3"
sleep 1000
cls (128)
text 250,200,"2"
sleep 1000
cls (250)
text 250,200,"1"
cls (200)
sleep 1000
text 250,200,"GO!"
`autocam and sync
autocam off
hide mouse
sleep 1000
`make landscpe
`make matrix
make matrix 1,50000,10000,1,1
make matrix 2,50000,10000,1,1
position matrix 2,0,0,10000
`texture matrix
load bitmap "moss01.bmp",1
get image 1,0,0,25,25
delete bitmap 1
load bitmap "gravel13.bmp",2
get image 2,0,0,25,25
delete bitmap 2
prepare matrix texture 1,2,2,2
prepare matrix texture 2,1,2,2
`airport
load object "ctower.3ds",3
position object 3,600,0,250
load object "warehous.3ds",4
position object 4,1000,0,1000
rotate object 4,0,180,0
`make flying object
load object "airpl008.x",1
yrotate object 1,270
scale object 1,800,800,0
fix object pivot 1
position object 1,40500,1,80
`make drone to mark a back position
make object sphere 2,10
`camera range
set camera range 1,10000
`stats of airplane
gas=10000
speed=0
fall=5
fall1=10
gear=1
`game loop
do
`show stats
set cursor 0,0
print speed;" speed"
print "gas left: ";gas
print "gear: ";gear
`controls
dec gas
if gas=-1 then exit
if gas=-2 then exit
if downkey()=1 then pitch object up 1,1
if upkey()=1 then pitch object down 1,1
if leftkey()=1 then turn object left 1,2
if rightkey()=1 then turn object right 1,2
if controlkey()=1 then gear=gear-1 : wait 10
if shiftkey()=1 then gear=gear+1 : wait 10
if gear=-1 then inc gear
dec fall
dec fall
if fall1=-1 then inc fall
if gear=0 then speed=-1 : pitch object down 1,fall1 : move object 1,fall
if gear=1 then speed=20
if gear=2 then speed=40
if gear=3 then speed=60
if gear=4 then speed=80
if gear=5 then speed=100
if gear=6 then dec gear
move object 1,speed : move camera speed : inc speed
play music 1 : play music 2 : loop music 2
if spacekey()=1 then speed=200 : dec gas
set text size 28
`get back position of object for camera
pitch object down 1,11
move object 1,-150
position object 2,object position x(1),object position y(1),object position z(1)
move object 1,150
pitch object up 1,11
`place camera and set orientation to object
position camera object position x(2),object position y(2),object position z(2)
set camera to object orientation 1
`refresh screen
sync
loop
`clear screen
cls
`end of game varible
l=0
inc l
`if run out of gas
repeat
text 100,100,"YOU LOST ALL YOUR GAS"
sync
until l=100
`end demo
end
Don't worry about the source
