Joust Tribute Game

[David Drake]

Remember the Joust arcade game?  I pumped quarters into that stupid machine at the arcade and loved every minute of it back in the early 80s.

I've got a good start on a Joust tribute game that you can download here: www.kkb9.com/lcf/downloads/joust.zip

I lifted the graphics from a YouTube video someone made of a play-through.  There is no sound or scoring, but it plays fairly well (yes, there are a few glitches).

To play: Extract and run joust-v01.bas.  Use "1" to fly left, "3" to fly right and "spacebar" to flap wings.  Play will continue until you close the window.

I plan to add the other stuff eventually, but I thought some of you would get a kick out of playing what I have so far.

- David

[cundo]

I remember the Joust from NES, I think were some birds and balloons or something like that. I'm gonna try this right now.
Thanks for sharing.

[Rod]

Very nice so far. Going to ruin my spacebar though! Small tip, when you create your .zip, create a folder, place all resources .bas etc in that folder. Now go up a level, right click on the folder and choose send to, zip That way we all get a folder when we unzip. Its easier to clean up and it does not spread your resource files into inappropriate directories.

[svajoklis]

The game cundo was thinking about is Balloon Fight.

Well either that, or there's always the possibility to extract to a folder instead of in-place, I see it going both ways :@)

The game would really really benefit from some smoothness update, right now it's limited to 10fps (100ms for limit), so it's a bit hard to play, though other parts seem solid enough.
I see quite a few blocks of code being repeated with almost same parameters, sans an ID. You really should look into subroutines for that - that way it would be just a case of providing the parameters that different when calling.


   ' instead of this
   if instr(col$,"rk1")>0 then 'on rock 1
       if vby(b)<0 then vby(b) = 1:yb=yb+20
       if vby(b)>0 then vby(b) = -1:yb=yb-10
       #1 "spritexy b";b;" ";xb;" ";yb
       #1 "spritemovexy b";b;" ";vbx(b);" ";vby(b)
   end if
   if instr(col$,"rk2")>0 then 'on rock 2
       if vby(b)<0 then vby(b) = 1:yb=yb+20
       if vby(b)>0 then vby(b) = -1:yb=yb-10
       #1 "spritexy b";b;" ";xb;" ";yb
       #1 "spritemovexy b";b;" ";vbx(b);" ";vby(b)
   end if
   if instr(col$,"rk3")>0 then 'on rock 3
       if vby(b)<0 then vby(b) = 1:yb=yb+20
       if vby(b)>0 then vby(b) = -1:yb=yb-10
       #1 "spritexy b";b;" ";xb;" ";yb
       #1 "spritemovexy b";b;" ";vbx(b);" ";vby(b)
   end if

   ' try this at the end of your file
   sub checkRock rockId$
       if instr(col$,rockId$)>0 then
           if vby(b)<0 then vby(b) = 1:yb=yb+20
           if vby(b)>0 then vby(b) = -1:yb=yb-10
           #1 "spritexy b";b;" ";xb;" ";yb
           #1 "spritemovexy b";b;" ";vbx(b);" ";vby(b)
       end if
   end sub

   ' and then this where you check rocks
   call checkRock "rk1"
   call checkRock "rk2"
   call checkRock "rk3"


Other than that - nice start  (tried to make formatting better on the block of code, it disappeared for some reason)

[Brandon Parker]

May 1, 2020 12:52:33 GMT -5 svajoklis said:

(tried to make formatting better on the block of code, it disappeared for some reason)

You need to use [ code ][ /code ] tags, but without the spaces.


{:0)

Brandon Parker

[svajoklis]

Damn, misclicked. Thanks for the fix!

[David Drake]

Updated version: www.kkb9.com/lcf/downloads/joust_v02.zip

[David Drake]

May 7, 2020 8:58:01 GMT -5 David Drake said:

Updated version: www.kkb9.com/lcf/downloads/joust_v02.zip

I should have said what has changed.  Here are the improvements:
- Better game play.
- Authentic sound effects.
- More animations.
- Scoring.
- Lives.
- Increasing difficulty with each cleared level.
- Coding improvements (put in callable routines where it makes sense).

Still some bugs.  I have played this version for several hours (cumulatively) on my Windows 10 machine with minimal issues, but your milage may vary.

David

[Mark Dunham]

Man I remember this game on Atari what great fun it was nice work with this smooth graphics great fun. Makes me want to try making a frogger clone

[David Drake]

Thanks for giving it a try. Hope you enjoyed playing!