6502/8bitworkshop
1
0
Fork 0
mirror of https://github.com/sehugg/8bitworkshop.git synced 2024-11-04 20:05:57 +00:00
Code Issues Projects Releases Wiki Activity
74a8795152
8bitworkshop/presets/vcs/bb/rblast106.bas

819 lines
22 KiB
QBasic
Raw Normal View History

batari basic: more examples, more RAM, started syntax highlighting, online help
2018-11-20 19:39:33 +00:00
 rem +-----------------------------------------+
rem | Road Blaster | 386 bytes free |
rem | for batariBasic | -> tested using |
rem | by Steve Engelhardt | bleeding edge |
rem | v0.65 (2/8/2006) | build 99a |
rem +-----------------------------------------+
rem
rem Version Notes
rem 0.42 working - car can now slow down by pressing down (Added 8.8 variables & fixed point math)
rem 0.43 working - player car slows down when hitting side of road
rem 0.44 working - slowdown when player car hits enemy car
rem 0.45 working - enemy missile causes car to bouce sideways a little
rem 0.46 testing - added some audio code - can't test it yet (.048 removed audio code to save ROM Space)
rem 0.47 working - Bugfix in diff A switch - made it so it only doubles size of car - no speed increase.
rem 0.48 working - car changes colors when hit - game pauses at the end.
rem 0.49 working - missile now properly disappears when it hits an enemy car (missile0y=0 & q=0).
rem 0.50 working - Saved 840 bytes by changing title screen pf data to data tables. :)
rem 0.51 working - Audio Routines added and working.
rem 0.52 working - Bugfix - if you held down on the joystick - enemy missiles would fire from the top
rem of the screen before the cars appeared there. It's been fixed.
rem 0.53 working - Bugfix - Setting difficulty to A - now the missile fires from the center of the
rem double sized player car.
rem 0.54 working - scoring change. 20pts every frame. -10 when you slow down, +10 when you speed up.
rem 0.55 working - implementing difficulty level increase during game.
rem cars start off in relatively straight track. (1st 4-7 scrolls)
rem cars start zig zagging (scroll 8-21) - cars turn yellow
rem cars start skidding l/r randomly (scroll 21+) - cars turn purple
rem cars & missiles speed up (scroll 30+) - cars turn red
rem 0.56 working - 2nd enemy car now turns into a powerup sprite when the other is hit.
rem Powerup increases car's hitpoints by +1 per frame while it's touching it.
rem 0.57 working - bugfix - left car doesn't disappear when shooting it at the beginning of the game.
rem 0.58 working - bugfix - powerup code seems to be working correctly now.
rem 0.59 working - revamping powerup code - now appears randomly, but stil causes damage to car.
rem 0.60 working - random powerup code works. Shooting one car will sometimes change the other
rem into a powerup, and sometimes it will remain a car. The powerup that appears does actually
rem increase your health, and hitting the remaining car does damage...it seems to be working.
rem 0.61 testing - Now back to trying to get that 2nd car to disappear when hit. :(. Widened the roadside.
rem 0.62 testing - if you shoot the left car first, the cars dissappear individually now when you shoot them.
rem if you shoot the right car first, the left car then shifts position to the left instead
rem of disappearing.
rem 0.63 working - you can now shoot each car individually, and they will both disappear individually.
rem powerups now appear at random, and will increase your car's health.
rem 0.64 working - powerups now won't fire at you - the missile resets to 0 when they appear.
rem 0.65 testing - color tweaking - road changed to brown, 3rd level cars brighter purple
rem
rem
rem Dev Notes/To Do List for future revisions:
rem
rem X-1. Make the cars "do something" when they're hit - move down, left or right a little, or shake. Right now
rem enemy missiles and cars just pass right through you.
rem :::--> Done.
rem X-2. Scroll Speed Tweaking -- I'll try to add the ability to slow your car down by pressing down on the
rem joystick make hitting the side of the road slow you down & hitting an enemy car should also slow you.
rem :::--> Done.
rem X-3. Change Human Player sprite so the tires move when you go left and right.
rem :::--> Done.
rem X-4. Variations on Enemy Car movement - it's pretty predictable right now.
rem :::--> Done, although it may need tweaking.
rem X-5. I may play with the enemy car shots a bit - I like the moving missile now, but I could provide the option for
rem enemy car shots that don't move.
rem :::--> I'm going to leave the enemy shots as they are.
rem X-6. I need to add sound to the game.
rem :::--> Done.
rem X-7. I may try and implement a "pause" feature with the color/bw switch -- just to see if I can do it.
rem :::--> I Changed my mind - this game doesn't really need that, and I'm running out of free bytes.
rem X-8. Update Car Sprites - they're functional but could be better.
rem :::--> Done.
rem X-9. Increase scoring rate when driving faster; decrease when driving slower.
rem :::--> Done.
rem X10. Progressively increase difficulty
rem :::--> It works, but may need to be tweaked later.
rem X11. Add in a way to repair your car; perhaps by picking up an object off the road or something;
rem or just repairing at certain point levels rem (evey 20,000 points? Every 50,000?)
rem :::--> Cars are repaired by picking up powerups. A powerup appears in place of the 2nd car when one is hit.
rem X12. If a powerup appears, make sure it doesn't fire at you.
rem :::--> Done.
rem 13. Make sure cars don't scroll off the road.
rem :::--> Testing, testing, testing.
rem
rem
rem V103 Changes
rem Right Difficulty switch will now remove roadblocks
rem Color/BW switch toggles between normal mode and invincible (practice) mode
rem Title Screen Changed
rem Road narrowed, the wide road caused the screen to roll on real hardware
rem Erratic l/r movement removed on fastest enemy car speed
rem
rem V105 Changes
rem Audio sound added to death
rem Road flashes at death
rem time screen pauses at death increased a little bit
rem Powerups do not appear if you're pushing up on the joystick to go faster.
rem scroll speed slows when you slow down, does not increase when you push up.
rem
init
include fixed_point_math.asm
set romsize 8k
rem set debug cycles
rem
rem ** Use 8.8 variables for enemy car & missile scrolling
rem
dim scroll=m.n
dim mis=k.j
rem
rem -------------
rem Set Variables
rem -------------
a=0 : rem A = The Enemy Car's X Position + 8
b=82 : rem X Position of Ball
c=0 : rem Hitpoint Counter for Enemy Car Collision
d=0 : rem
rem e is not used
f=0 : rem counter
rem g is not used
h=0 : rem H is used as a flag to know when NUSIZ1 has been changed to 0
i=0 : rem Flag for Displaying Title Screen
j=0 : rem part of mis 8.8 variable
k=0 : rem part of mis 8.8 variable
rem l=0 : rem l is a random number generator for choosing enemy car sprites
m=0 : rem part of scroll 8.8 variable
n=0 : rem part of scroll 8.8 variable
o=0 : rem counter
p=85 : rem Y Position of Player 0 (Human Car)
q=0 : rem missile0 firing
r=0 : rem pause timer
s=30
scroll=1.0 : rem Y Position of Player 1 (Enemy Car)
t=0 : rem Scroll counter
u=94 : rem X Position of Player 1 (Enemy Car)
rem v=0 : rem V is random number generator for placing roadblocks
W=0 : rem color flag
x=75 : rem X Position of Player 0 (Human Car)
y=16 : rem color cycler
z=0 : rem Z is a flag - when it equals 1, an enemy car has been hit by a missile.
mis=1.0
missile0x=0:missile0y=0
missile1x=0:missile1y=0
COLUP1=208:COLUP0=0
rem
rem -------------
rem Set Colors
rem -------------
COLUPF=160: rem was 144
COLUBK=0
CTRLPF=$35
scorecolor=246
rem
rem -----------------------------
rem Draw RoadBlaster Title Screen
rem -----------------------------
intro
g=g+1
if g=2 then pfscroll down :g=0
y=y+1
if y<17 then y=16
if y>29 then y=16
rem
rem -----------------------------
rem Draw RoadBlaster Title Screen
rem -----------------------------
pfpixel 7 1 on : pfpixel 25 1 on
pfpixel 7 2 on : pfpixel 25 2 on
pfpixel 7 3 on : pfpixel 25 3 on
pfpixel 7 4 on : pfpixel 25 4 on
pfpixel 7 5 on : pfpixel 25 5 on
pfpixel 7 6 on : pfpixel 25 6 on
pfpixel 7 7 on : pfpixel 25 7 on
pfpixel 7 8 on : pfpixel 25 8 on
pfpixel 7 9 on : pfpixel 25 9 on
COLUP0=64
COLUP1=y:rem was 46
NUSIZ1=$05
NUSIZ0=$27
AUDV0=0:AUDV1=0
player1:
%00100011
%00100100
%00111110
%00100001
%00111110
%00000000
%00000000
%00011111
%00100000
%00111100
%00100000
%00011111
%00000000
%00000000
%00000100
%00000100
%00000100
%00111111
%00000000
%00000000
%00111111
%00000001
%00111111
%00100000
%00111111
%00000000
%00000000
%00100001
%00111111
%00100001
%00011110
%00000000
%00000000
%00111111
%00100000
%00100000
%00100000
%00000000
%00000000
%00111110
%00100001
%00111110
%00100001
%00111110
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00111110
%00100001
%00100001
%00111110
%00000000
%00000000
%00100001
%00111111
%00100001
%00011110
%00000000
%00000000
%00111111
%00100001
%00100001
%00111111
%00000000
%00000000
%00100011
%00100100
%00111110
%00100001
%00111110
end
player0:
%00000000
%01000010
%01111110
%01111110
%00111100
%00011000
%00011000
%00011000
%10011001
%10011001
%11111111
%11111111
%10011001
%10011001
%00011000
%00011000
%00011000
%00011000
%10011001
%10011001
%11111111
%11111111
%10011001
%10011001
%00011000
%00011000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00000000
%00011000
%00011000
%10111101
%10111101
%11111111
%11111111
%10111101
%10111101
%00111100
%00111100
%00111100
%10111101
%10100101
%11100111
%11100111
%11100111
%10111101
%10111101
%00111100
%00011000
%01111110
%01000010
%01111110
%01000010
end
drawscreen
player1x=68:player1y=82
player0x=88:player0y=83
missile0height=2
e=e+1
missile0x=104:missile0y=s
if s>52 then s=30
if e=2 then s=s+1:e=0
rem if s>52 then s=30
t=0
if i=1 then goto main
rem
rem ** when the game starts, flip the titlscreen off to clear the playfield
rem
if joy0down then i=1 : score=0 : g=0:i=0:goto intro2 : rem restart game if joystick is pushed down
if switchreset then i=1 : score=0 : g=0:i=0:goto intro2 : rem restart game if the reset switch is pressed
if joy0fire then i=1: score=0 : g=0:i=0:goto intro2
goto intro
intro2
gosub MakeNewCar1
s=0
g=0
e=0
missile0x=0:missile0y=0
rem --------------
rem Main Game Loop
rem --------------
main
y=y+1
if y>250 then y=1
rem if u>120 then u=u-1
rem if u<64 then u=u+1
if c<1 then c=1
if switchbw then c=0 : rem if c=0, invincible mode
if joy0up then goto audskip
if joy0down then goto audskip
AUDF0=18:AUDC0=14:AUDV0=10
rem if scroll counter goes over 240, reset it back to highest speed level.
if t>240 then t=31
audskip
if scroll > 90 then o=0
if scroll > 96 then w=0 : h=0
if scroll > 96 then u=94
rem
rem ** scroll is the Y Position of Enemy Car -- If the Y Position is less than 94, Scroll car down.
rem ** T is a scroll counter. Every time the cars scroll through the screen once, t is incremented.
rem
e=e+1
if e=2 && t < 10 then e=0:goto skipscroll
if scroll < 97 then scroll=scroll+1.0 else scroll=0.0 : t=t+1
if scroll < 97 && t > 35 then scroll=scroll+0.9 : mis=mis+0.9 : rem incr speed after 30 scrolls (Level 4)
skipscroll
gosub CarCreate
rem
rem -------------------------------------
rem Random Enemy Car & Roadblock Behavior
rem -------------------------------------
rem
rem if framecounter is less than 8, the cars will follow a straight track.
v=rand
if t > 30 then skipmv
if t < 8 then goto skipmv : rem if framecounter is less than eight, skip l/r bouncing. (Level 1->2)
rem if t > 20 && v > 215 then u=u-1 : rem randomly 'skids' computer car to the Left after 21 frames (Level 3)
if t > 20 && v < 35 then u=u+1 : rem randomly 'skids' computer car to the Right after 21 frames
skipmv
rem
rem ** The following will randomly generate the roadblock at 9 different X Positions.
rem ** B is the X Position of the Ball
rem
if v=2 && scroll > 86 then b = 75 : rem Create Roadblock at X Position 75
if v=234 && scroll > 86 then b = 105 : rem Create Roadblock at X Position 105
if v=112 && scroll > 86 then b = 89 : rem Create Roadblock at X Position 89
if v=50 && scroll > 86 then b = 81 : rem Create Roadblock at X Position 81
if v=188 && scroll > 86 then b = 115 : rem Create Roadblock at X Position 115
if v=166 && scroll > 86 then b = 79 : rem Create Roadblock at X Position 79
if v=132 && scroll > 86 then b = 95 : rem Create Roadblock at X Position 95
if v=176 && scroll > 86 then b = 111 : rem Create Roadblock at X Position 111
rem if v=209 && scroll > 86 then b = 120: rem Create Roadblock at X Position 120
if v < 10 then u=u+1 : rem cars start out in relatively straight track
if v > 245 then u=u-2 : rem as soon as they hit a wall, they will start zig zagging
if d>0 then COLUP1=22 : rem level 2 car color is yellow (if d is over 0, car is zigzagging)
if t>20 && t<36 then COLUP1=104 : rem level 3 car color is purple
if t>35 then COLUP1=68 : rem level 4 car color is red
rem
rem D is the left/right movement flag, set when the enemy car collides with playfield (side of road)
rem
if d=1 then u=u+1
if d=2 then u=u-1
skiplr
rem
rem ** Player 1 is the Computer Controlled Car
rem
rem ** Rem D will only equal zero once - when the game first starts.
rem ** The next line is there to make sure a car is created when the game first starts.
rem
rem if d=0 then gosub MakeNewCar3
rem
rem ** Go to subroutine that randomly picks an enemy car sprite.
rem
rem gosub CarCreate
rem
rem ** Z is a flag - when it equals 1, an enemy car has been hit by a missile.
rem ** If the cars have scrolled off the screen (scroll>94), this flag is reset to 0.
rem ** W is a color flag set in the carhit subroutine
rem
if scroll > 96 then z=0
rem
rem ** Z Flag is set to 1 when collision occurs and Reset to Zero when cars scroll off the bottom of the screen.
rem
if z=0 then NUSIZ1=$01
rem
rem ** If Left Difficulty is set to A, the human car is twice as wide
rem
if switchleftb then NUSIZ0=$00 else NUSIZ0=$05
rem
rem ** W Flag is set during the carhit subroutine
rem ** if w is 1 Change Player1 Car Color to Black
rem
rem if w=1 then COLUP1=0 else COLUP1=52
rem
rem ** Player1's X and Y Position.
rem
player1y=scroll : player1x=u
skiplrm
rem
rem ** player0 is the Human car
rem
if joy0left then goto TurnCar1
if joy0right then goto TurnCar2
player0:
%01111110
%01000010
%00111100
%10100101
%11100111
%10111101
%00111100
%10011001
%11111111
%10011001
end
turned
rem
rem ** Set Playfield to scroll down
rem
if joy0down then skipscrl
pfscroll down
skipscrl
g=g+1
if g=2 then pfscroll down:g=0
skipsc
rem
rem ** Set Human Car's Color and X/Y Position
rem
if c < 11 then COLUP0=128
if c > 10 && c < 21 then COLUP0=60
if c > 20 && c < 31 then COLUP0=30
if c > 30 && c < 41 then COLUP0=64
if c > 40 && c < 61 then COLUP0=y
player0x=x : player0y=p
rem
rem ** Create the 2 sides of the Road
rem
pfpixel 7 1 on : pfpixel 25 1 on
pfpixel 7 3 on : pfpixel 25 3 on
pfpixel 7 5 on : pfpixel 25 5 on
pfpixel 7 7 on : pfpixel 25 7 on
pfpixel 7 9 on : pfpixel 25 9 on
drawscreen
rem
rem ** Create Roadblock
rem
if switchrightb then ballx=0:bally=0:goto skipb
ballx=b : bally=scroll+15 : ballheight=2
skipb
rem
rem ** Move Human Car (Player0)
rem
if joy0left then x=x-1
if joy0right then x=x+1
if joy0up then scroll=scroll+0.3 : mis=mis+0.5 : score=score+10 : AUDF0=12:AUDC0=14:AUDV0=10
if joy0down && scroll >=1 then scroll=scroll-0.3 : mis=mis-0.5 : score=score-10: AUDF0=24:AUDC0=14:AUDV0=10
rem
rem ** Detect Joystick Button press - fire missile
rem
if joy0fire && q<1 then AUDF1=8:AUDC1=1:AUDV1=15 : goto playerfires
if q>0 then q=q-2 : missile0y=q
if q>50 then AUDV1=0
rem
rem ** Enemy Cars fire back
rem
if scroll >35 && t<10 then goto fireskip : rem when car is really slow, don't fire twice
if scroll >50 && t<36 then goto fireskip : rem in invincible mode, if cars are stuck together at bottom, don't fire again.
if scroll >60 && t>35 then goto fireskip : rem let bullets get all the way to the bottom before resetting
if h=1 then goto fireskip : rem if powerup is activated, don't fire.
if scroll<=1 then mis=1.0 : AUDF1=13:AUDC1=1:AUDV1=9
if mis > 18 then AUDV1=0
missile1y=mis : missile1x=u : missile1height=6
mis=mis+2.0
goto pskip
fireskip
missile1y=0: missile1x=0
pskip
rem
rem ---------------------------
rem Collision Routines
rem ---------------------------
rem
rem
rem ** Don't allow Human car to drive off the road
rem
if collision(playfield,player0) && x > 75 then x=x-2
if collision(playfield,player0) && x < 75 then x=x+2
rem
rem ** When Computer Controlled car hits the playfield, bounce the other direction
rem
if collision(player1,playfield) && u > 100 then d=2
if collision(player1,playfield) && u < 80 then d=1
rem
rem ** When Human Controlled car hits the playfield, slow the car down.
rem
if collision(player0,playfield) && scroll >=1 then scroll=scroll-0.5 : mis=mis-0.5
rem
rem ** If Player Car hits Computer Car, increase hitpoint counter. At 60, end Game
rem ** C is increased by more than 1 during a collision - Don't know why.
rem
if collision(player1,player0) && w=1 then gosub addhitpoints
if w=1 then goto damageskip
if collision(player1,player0) then c=c+1 : if c=60 then r=120: goto thisisit
if collision(player1,player0) && scroll >=1 then scroll=scroll-1.5 : mis=mis-1.5
rem
rem ** If Player missile hits computer car, increase score by 1000
rem
if collision(player1,missile0) then missile0y=1 : goto carhit
rem
rem ** If Enemy missile hits player car, add damage to player car
rem
if collision(player0,missile1) && x > 75 then c=c+1 : x=x-2 : if c=60 then r=160: goto thisisit
if collision(player0,missile1) && x < 75 then c=c+1 : x=x+2 : if c=60 then r=160: goto thisisit
damageskip
rem
rem ** If Player car hits roadblock bouce away from it
rem
if collision(player0,ball) && u > 90 then x=x-6
if collision(player0,ball) && u < 90 then x=x+6
rem
rem ** Increase score by 20 (Just for staying alive)
rem
score=score+20
rem
rem ** Loop Back to Main
rem
goto main
rem
rem -----------------------
rem Fire Missile Subroutine
rem -----------------------
rem
playerfires
if !switchleftb then missile0x=x+10 else missile0x=x+4
q=80 : missile0y=75
missile0height=6
rem
goto main
rem
thisisit
rem
rem -----------------------------
rem 'Game Over' Screen Subroutine
rem -----------------------------
rem
rem ** This subroutine is kind of a leftover from a previous revision -
rem ** It changes some colors when the game ends.
AUDV0=0
rem COLUP0=0
rem COLUP1=0
rem scorecolor=208
goto eog
end
rem -----------------------------------
rem Enemy Car hit by Missile Subroutine
rem -----------------------------------
carhit
a=u
rem ** Score is increased by 1000 when the missile hits the enemy car
rem
rem ** I originally set missle0x=60 to hide the missile behind the side of the road
rem ** I changed this to missiley=0 to jump it up to the top of the screen when a car is hit.
z=1 : score = score + 1000 : missile0y=0 : q=0
rem
rem ** A = The Enemy Car's X Position + 8
rem
a=u+8
rem
rem ** A = X Posiiton of Player1 (+8)
rem ** If X Position of Missile0 Hit is less than (X+8) from Player1, set Nusiz1 to 0 to erase car
rem
if o<1 then goto skipblank
if o>0 then goto blankcar
skipblank
if missile0x < a then NUSIZ1=0 : o=o+1 : u=u+16
if missile0x > a then NUSIZ1=0 : o=o+1
199 l=rand:if l>215 then 199
l=l/8:l=l+1
if joy0up then goto main : rem skip powerups if you're travelling full speed
if l < 10 && scroll > 1 then gosub powerup : w=1
goto main
rem
rem ----------------------------
rem EOG (End of Game) Subroutine
rem ----------------------------
rem
rem ** This routine turns all the "roadway" pixels off -- clearing the playfield for the title screen
rem
eog
if r<1 then r=88:goto eog2
r=r-1
gosub explode
COLUPF=r
AUDF0=160-r:AUDC0=1:AUDV0=6
drawscreen
goto eog
eog2
COLUP0=68
AUDV0=0
r=r-1
e=e+1
if e=2 then pfscroll up:e=0
player0y=r
player1y=0
missile0y=0
missile1y=0
COLUPF=160
drawscreen
if r<1 then pfclear:goto init
ballx=0:bally=0
scroll=0
t=0
goto eog2
CarCreate
if scroll<96 then return
200 l=rand:if l>215 then 200
l=l/8:l=l+1
if l>1 && l<6 then gosub MakeNewCar1 : return
if l>5 && l<11 then gosub MakeNewCar2 : return
if l>10 && l<16 then gosub MakeNewCar3 : return
if l>15 && l<21 then gosub MakeNewCar4 : return
if l>20 && l<28 then gosub MakeNewCar5 : return
return
MakeNewCar1
player1:
%10011001
%11111111
%10011001
%00011000
%10111101
%11111111
%10011001
%00111100
end
return
MakeNewCar2
player1:
%10111101
%11111111
%10111101
%00100100
%11100111
%10111101
%01000010
%01111110
end
return
MakeNewCar3
player1:
%10011001
%11111111
%10011001
%00011000
%11011011
%11111111
%11011011
%00100100
end
return
MakeNewCar4
player1:
%10011001
%11111111
%10011001
%00011000
%00011000
%10011001
%11111111
%10011001
end
return
MakeNewCar5
player1:
%10011001
%11111111
%10011001
%00111100
%10100101
%11111111
%10011001
%00100100
end
return
TurnCar1
player0:
%01111110
%01000010
%00111100
%10100101
%11100111
%10111101
%00111100
%01011001
%11111111
%10011010
end
goto turned
TurnCar2
player0:
%01111110
%01000010
%00111100
%10100101
%11100111
%10111101
%00111100
%10011010
%11111111
%01011001
end
goto turned
powerup
h=1
missile0y=0: q=0
player1:
%11111111
%10000001
%10011001
%10011001
%10111101
%10111101
%10011001
%10011001
%10000001
%11111111
end
return
addhitpoints
if h=1 then c=c-1
return
rem
blankcar
u=94
player1:
%00000000
end
goto main
explode
COLUPF=70
COLUP0=64
player0:
%01111110
%01000010
%00111100
%10100101
%11110111
%00111000
%10001100
%10011001
%01101110
%00000000
end
return
player0:
%10000001
%00100100
%00000000
%00011001
%10011000
%00000000
%00100100
%10000001
end
Reference in New Issue Copy Permalink