---

Here's my own version of the cave game. Fly the jet through the caves on all of the levels. Enjoy!

---

Wow...no response yet ...suggetions for improvement...please

---

Finished!!

Nice game!

Things you can improve:
- more levels
- power ups
- asteroids or something to avoid in the tannel
- longer levels
- add more hights, it will be more fun to play on a larger area.
- ship should change it's angle when you move up and down, it will look better that way.

I'm saying all of this because I like your game and would like to play more of it.

---

that is more than 20 lines of code, why did u put it in 20 lines if its more than 20 lines??

---

@zero #43: It's longer than 20 lines if you include black lines and notes. With out those, it's only 18 lines. Refer to rules, I'm perfectly legal.

@Farchy Man: Thanx for the comments! I can probably add those actually. As for longer levels, if you look at my level loading scheme, it's only done by bitmaps. The red value holds the floor value and the green holds the roof value. I can just make blue hold comet values or something. As for length, I can do longer. Those were just levels I threw together in a couple of minutes (made another program to make it easy). But, yeah, I'll try fixing it later

---

srry i didnt no

---

Sweet game! But it is kinda easy...

---

I fixed it up slightly, I just need someone to test the levels. I can make more very easily. Enjoy.

---

I'm sorry (double post). but I posted the last and forgot to add angles to jet. Heres the most up-to-date version as of yet

---

Mmm... I need to learn how you made that game...
Can you teach me? You are good at math.
I am already addicted with your game .

OVERALL SCORES: 1 TRILLION SCORES!!!!

---

math? extremely little was used for this game. Look over the scource code. Seperate it out (that is put newlines where they should be) and see what you can find.

---

Nice little game that...could be made into a scramble variant with a bit more code...
Nice work Joe

---

You Win!
Here's a Sticker...

---

Amazing!!!

---

This game is both cool , funny , and hilariously cheesy.

Good Job.

---

Could you put up a screenshot? I cant run them at work

---

I haven't tried this game until now... But it's so awesome!

Very fun, and cool music

---

Really good shame i can't get my game in 20 lines

---

RAD game! THIS PWNS! tooo addicting... must stop
i lost count of the levels i won

---

THis game is not running for me, I have DBP. Can you please post up an exe.

---

Uhh you can...
all you have to do is... put out program layout and compress them into 1 line or 20 like this
+ Code Snippet

print "I LIKE PIE"
wait 100
print "I DO TOO"
wait key
end

into...

+ Code Snippet

print "I LIKE PIE":wait 100:print "I DO TOO":wait key:end

Look simple enough....

---

For people who don't have DBP here's the code, slightly altered to run in DBC

+ Code Snippet

Sync On : Sync Rate 60 : Autocam off : Set display mode 800,600,32 : Hide mouse : Position camera 50,75,-250 : Rotate camera 0,0,0 : Backdrop On : Color backdrop 0 : Load image "media\Cave.jpg",10 : Set text font "Arial" : Set text to bold

Load object "media\jet.x",1 : fade object 1,75 : Scale object 1,300,300,300 : Yrotate object 1,90 : Make object cube 10,10 : Color object 10,RGB(255,0,0) : Ghost object on 10 : level=1 : Load music "media\music.mid",1
load image "media\jet.jpg",2 : texture object 1,2
Loop music 1 : Load sound "media\explode.wav",1
Make object plain 20,500,500 : Load image "media\background1.jpg",20 : Texture object 20,20 : Scale object texture 20,4,4 : life=5

`Main Game Loop
While File exist("media\level"+str$(level)+".bmp")=1 and life>0

   `Load level
   Load bitmap "media\level"+str$(level)+".bmp",31 : Make memblock from bitmap 1,31 : width = memblock dword(1,0) : Delete bitmap 31
   For i=1 to 2 : Make matrix i,100*(width+3),200,width+3,2 : Position matrix i,0,(2-i)*250,-150 : Set matrix i,1,1,0,1,1,1,1 : Prepare matrix texture i,10,1,1 : Set matrix texture i,1,0 : Next i
   For x = 0 to width-1 : loc = x*4 + 12 : top = memblock byte(1, loc+1) : bottom = memblock byte(1, loc+2) : For z=1 to 2 : Set matrix height 1,x+1,z,top-250 : Set matrix height 2,x+1,z,bottom : Next z : Set matrix height 1,x+1,0,250
Set matrix height 2,x+1,0,-250 : Next x
   For i=0 to 3 : Set matrix height 1,width+i,1,0 : Set matrix height 1,width+i,2,0 : Set matrix height 2,width+i,1,0 : Set matrix height 2,width+i,2,0 : Next i : Update matrix 1 : Update matrix 2

   `Set up other items for level
   Position object 10,(width*100),125,0 : Set current bitmap 0 : x#=50 : cx#=50 : y#=125 : die=0 : Position object 1,x#,y#,0 : Position camera cx#,y#,-270 : Position object 20,cx#,125,50 : Sync

   Ink RGB(255,255,0),0 : Set text size 48: For i=3 to 1 Step -1 : Center Text Screen width()/2,Screen height()/2,str$(i) : Sync : Sleep 1000 : Next i : Set text size 18
   `Play Loop
   While x#<width*100 and die=0

      Ink RGB(0,128,255),0 : Text 10,10,"Cave Flyer by Joe Cooning Produx" : Text 10,25,"Use Arrow Keys to Steer Jet and [ESC] to Quit" : Text 10,40,"Level: "+str$(level) : If life=1 : Ink RGB(255,0,0),0 : Endif : Text 100,40,"Lives: "+str$(life)

      If y#+4>(250.0+Get ground height(1,x#+5,150)) or y#-4<Get ground height(2,x#+5,150) Then die=1 : Dec life : Play sound 1

      If Upkey()=1 : Inc y#,1 : Endif : If Downkey()=1 : Dec y#,1 : Endif : If Rightkey()=1 and x#<cx#+180 : Inc x#,.5 : Endif : If Leftkey()=1 and x#>cx#-180 : Dec x#,.5 : Endif

      If cx#<width*100 : Inc cx#,2 : Endif : Inc x#,2 : Position object 1,x#,y#,0 : Position camera cx#,y#,-270 : Position object 20,cx#,75,50 : Scroll object texture 20,.0125,.0025 : Sync

   EndWhile

   `End Message
   Ink RGB(255,255,0),0 : If die=0 : msg$="YOU WIN!" : Inc level : Else : msg$="YOU LOSE!" : Endif : Center Text Screen width()/2,Screen height()/2,msg$ : Center Text Screen width()/2,(Screen height()/2)+15,"Press Any Key to Continue"
Sync : Suspend for key : Delete matrix 1 : Delete matrix 2

EndWhile : Ink RGB(255,255,0),0 : If life>0 : msg$="You beat all of the levels!" : Else : msg$="GAME OVER!" : Endif : Center Text Screen width()/2,Screen height()/2,msg$+" Thank you for playing!" : Sync : Suspend for key

It's probably not the latest version though.