User Tools

Site Tools


mmbasic:fireball

Fireball

fireball.zip title2_bitmap.zip

Late to the Colour Maximite party with this one. First basic game I've written in many years. It's not pretty but it works ;) - Anthony Clarke Zip file attached has all the files you need.

Keyboard only at this point. I'll add keyboard support just as soon as I get a port soldered onto my CMM to test ;) Just remember PS/2 keyboards don't like multiple keys pressed at once and you'll be fine.



'************************************
'*                                  *
'*            FIREBALL              *
'*               BY                 *
'*         ANTHONY CLARKE           *
'*                                  *
'************************************
Mode 4                                    'start gfx mode 3
Cls
LoadBMP "title2.bmp"                      'display title screen
Do While KeyDown <> 32                    'wait for space button to be pressed
Loop
cls
loadbmp "intro.bmp"
do while keydown <> 32
loop
PlayMOD STOP
Mode 4                                    'start gfx mode 4
Cls
Sprite Load "ship.spr"                    'load ship sprite
shipExist=0
shots = 10                                'setting shots variable
score=0                                   'setting score variable
highScore=0                               'Setting up high score variable
laserExist=0
lasTimer=0                                'Setting up laser refill powerup timer variable
lasFillExist=0                            'Setting up laser refill powerup existence variable  
lasFillX=0                                'Setting up laser fill powerup x position variable
lasFillY=0                                'Setting up laser fill powerup y position variable                         
'Setting up all position variables
px=120
py=100
lx=0
ly=0
fbtotal = 0
fb1x = 0
fb1y = -16
fb2x = 0
fb2y = -16
fb3x = 0
fb3y = -16
fb4x = 0
fb4y = -16
fb5x = 0
fb5y = -16
fb6x = 0
fb6y = -16
fb7x = 0
fb7y = -16
fb8x = 0
fb8y = -16
fb9x = 0
fb9y = -16
fb10x = 0
fb10y = -16
fb11x = 0
fb11y = -16
fb12x = 0
fb12y = -16
fb13x = 0
fb13y = -16
fb14x = 0
fb14y = -16
fb15x = 0
fb15y = -16
fb16x = 0
fb16y = -16
fb17x = 0
fb17y = -16
fb18x = 0
fb18y = -16
fb19x = 0
fb19y = -16
fb20x = 0
fb20y = -16
'setting up all existence variables
fb1_exist = 3
fb2_exist = 3
fb3_exist = 3
fb4_exist = 3
fb5_exist = 3
fb6_exist = 3
fb7_exist = 3
fb8_exist = 3
fb9_exist = 3
fb10_exist = 3
fb11_exist = 3
fb12_exist = 3
fb13_exist = 3
fb14_exist = 3
fb15_exist = 3
fb16_exist = 3
fb17_exist = 3
fb18_exist = 3
fb19_exist = 3
fb20_exist = 3
'setting up speed variables
fb_speed = 4
las_speed = 6
ship_speed = 2

Start:
Sprite on 1,px,py                           'draw ship sprite
shipExist = 1                               'set ship to exist
spawntime = 1000                            'set spawn time to 1 second
Timer = 0                                   'set timer to 0
gameSpeed = 0                               'overall speed variable for game



Main:                                     'Main loop
GoSub ShipControl                         'run ShipControl subroutine
GoSub EdgeDetect                          'run edgedetect subroutine
GoSub FireballControl
GoSub LaserControl
gosub HUD
gosub powerUp
GOSUB antiOverlap
Pause gameSpeed                           'set speed for game as determined by gameSpeed variable

GoTo Main                                 'End of main loop




FireballControl:

fb1y=fb1y+fb_speed                             'increment fireball's y position
fb2y=fb2y+fb_speed
fb3y=fb3y+fb_speed
fb4y=fb4y+fb_speed
fb5y=fb5y+fb_speed
fb6y=fb6y+fb_speed
fb7y=fb7y+fb_speed
fb8y=fb8y+fb_speed
fb9y=fb9y+fb_speed
fb10y=fb10y+fb_speed
fb11y=fb11y+fb_speed
fb12y=fb12y+fb_speed
fb13y=fb13y+fb_speed
fb14y=fb14y+fb_speed
fb15y=fb15y+fb_speed
fb16y=fb16y+fb_speed
fb17y=fb17y+fb_speed
fb18y=fb18y+fb_speed
fb19y=fb19y+fb_speed
fb20y=fb20y+fb_speed


If Timer > spawntime Then           'Check timer to see if spawntime has elapsed
  Timer = 0
  lasTimer=lasTimer+1               'laser powerup timer incremented
  score = score+10                  'add 10 to score
  If fb1_exist = 3 Then             'If fireballs are despawned then put them
    fb1_exist = 0                   'in the spawn cue

  ElseIf fb2_exist = 3 Then
    fb2_exist = 0

  ElseIf fb3_exist = 3 Then
    fb3_exist = 0

  ElseIf fb4_exist = 3 Then
    fb4_exist = 0

  ElseIf fb5_exist = 3 Then
    fb5_exist = 0

  ElseIf fb6_exist = 3 Then
    fb6_exist = 0

  ElseIf fb7_exist = 3 Then
    fb7_exist = 0

  ElseIf fb8_exist = 3 Then
    fb8_exist = 0

  ElseIf fb9_exist = 3 Then
    fb9_exist = 0

  ElseIf fb10_exist = 3 Then
    fb10_exist = 0

  ElseIf fb11_exist = 3 Then
    fb11_exist = 0

  ElseIf fb12_exist = 3 Then
    fb12_exist = 0

  ElseIf fb13_exist = 3 Then
    fb13_exist = 0

  ElseIf fb14_exist = 3 Then
    fb14_exist = 0

  ElseIf fb15_exist = 3 Then
    fb15_exist = 0

  ElseIf fb16_exist = 3 Then
    fb16_exist = 0

  ElseIf fb17_exist = 3 Then
    fb17_exist = 0

  ElseIf fb18_exist = 3 Then
    fb18_exist = 0

  ElseIf fb19_exist = 3 Then
    fb19_exist = 0

  ElseIf fb20_exist = 3 Then
    fb20_exist = 0

  EndIf
EndIf

If fb1_exist=0 Then                       'If fireball 1 hasn't spawned then
  fb1x = Int(Rnd*224)                  'reset fireball 1 x position to random
  fb1y = -16                              'reset y position to -16
  Sprite on 2,fb1x,fb1y,Black             'spawn fireball 1
  fb1_exist=1                             'mark fireball 1 as existing
EndIf
If fb2_exist=0 Then                       'If fireball 2 hasn't spawned then
  fb2x= Int(Rnd*224)                   'reset fireball 2 x position to random
  fb2y= -16                               'reset fireball 2 y position to random
  Sprite on 3,fb2x,fb2y,Black             'spawn fireball 2
  fb2_exist=1                             'mark fireball 2 as existing
EndIf
If fb3_exist=0 Then                       'If fireball 3 hasn't spawned then
  fb3x= Int(Rnd*224)                   'reset fireball 3 x position to random
  fb3y= -16                               'reset fireball 3 y position to random
  Sprite on 4,fb3x,fb3y,Black             'spawn fireball 3
  fb3_exist=1                             'mark fireball 3 as existing
EndIf
If fb4_exist=0 Then                       'If fireball 4 hasn't spawned then
  fb4x= Int(Rnd*224)                   'reset fireball 4 x position to random
  fb4y= -16                               'reset fireball 4 y position to random
  Sprite on 5,fb4x,fb4y,Black             'spawn fireball 4
  fb4_exist=1                             'mark fireball 4 as existing
EndIf
If fb5_exist=0 Then                       'If fireball 5 hasn't spawned then
  fb5x= Int(Rnd*224)                   'reset fireball 5 x position to random
  fb5y= -16                               'reset fireball 5 y position to random
  Sprite on 6,fb5x,fb5y,Black             'spawn fireball 5
  fb5_exist=1                             'mark fireball 5 as existing
EndIf
If fb6_exist=0 Then                       'If fireball 6 hasn't spawned then
  fb6x= Int(Rnd*224)                   'reset fireball 6 x position to random
  fb6y= -16                               'reset fireball 6 y position to random
  Sprite on 7,fb6x,fb6y,Black             'spawn fireball 6
  fb6_exist=1                             'mark fireball 6 as existing
EndIf
If fb7_exist=0 Then                       'If fireball 7 hasn't spawned then
  fb7x = Int(Rnd*224)                  'reset fireball 7x position to random
  fb7y = -16                              'reset y position to -16
  Sprite on 8,fb7x,fb7y,Black             'spawn fireball 7
  fb7_exist=1                             'mark fireball 7 as existing
EndIf
If fb8_exist=0 Then                        'If fireball 8 hasn't spawned then
  fb8x = Int(Rnd*224)                   'reset fireball 8 x position to random
  fb8y = -16                               'reset y position to -16
  Sprite on 9,fb8x,fb8y,Black              'spawn fireball 8
  fb8_exist=1                              'mark fireball 8 as existing
EndIf
If fb9_exist=0 Then                        'If fireball 9 hasn't spawned then
  fb9x = Int(Rnd*224)                   'reset fireball 9 x position to random
  fb9y = -16                               'reset y position to -16
  Sprite on 10,fb9x,fb9y,Black             'spawn fireball 9
  fb9_exist=1                              'mark fireball 9 as existing
EndIf
If fb10_exist=0 Then                       'If fireball 10 hasn't spawned then
  fb10x = Int(Rnd*224)                  'reset fireball 10 x position to random
  fb10y = -16                              'reset y position to -16
  Sprite on 11,fb10x,fb10y,Black           'spawn fireball 10
  fb10_exist=1                             'mark fireball 10 as existing
EndIf
If fb11_exist=0 Then                       'If fireball 11 hasn't spawned then
  fb11x = Int(Rnd*224)                  'reset fireball 11 x position to random
  fb11y = -16                              'reset y position to -16
  Sprite on 12,fb11x,fb11y,Black           'spawn fireball 11
  fb11_exist=1                             'mark fireball 11 as existing
EndIf
If fb12_exist=0 Then                       'If fireball 12 hasn't spawned then
  fb12x = Int(Rnd*224)                  'reset fireball 12 x position to random
  fb12y = -16                              'reset y position to -16
  Sprite on 13,fb12x,fb12y,Black           'spawn fireball 12
  fb12_exist=1                             'mark fireball 12 as existing
EndIf
If fb13_exist=0 Then                       'If fireball 13 hasn't spawned then
  fb13x = Int(Rnd*224)                  'reset fireball 13 x position to random
  fb13y = -16                              'reset y position to -16
  Sprite on 14,fb13x,fb13y,Black           'spawn fireball 13
  fb13_exist=1                             'mark fireball 13 as existing
EndIf
If fb14_exist=0 Then                       'If fireball 14 hasn't spawned then
  fb14x = Int(Rnd*224)                  'reset fireball 14 x position to random
  fb14y = -16                              'reset y position to -16
  Sprite on 15,fb14x,fb14y,Black           'spawn fireball 14
  fb14_exist=1                             'mark fireball 14 as existing
EndIf
If fb15_exist=0 Then                       'If fireball 15 hasn't spawned then
  fb15x = Int(Rnd*224)                  'reset fireball 15 x position to random
  fb15y = -16                              'reset y position to -16
  Sprite on 16,fb15x,fb15y,Black           'spawn fireball 15
  fb15_exist=1                             'mark fireball 15 as existing
EndIf
If fb16_exist=0 Then                       'If fireball 16 hasn't spawned then
  fb16x = Int(Rnd*224)                  'reset fireball 16 x position to random
  fb16y = -16                              'reset y position to -16
  Sprite on 17,fb16x,fb16y,Black           'spawn fireball 16
  fb16_exist=1                             'mark fireball 16 as existing
EndIf
If fb17_exist=0 Then                       'If fireball 17 hasn't spawned then
  fb17x = Int(Rnd*224)                  'reset fireball 17 x position to random
  fb17y = -16                              'reset y position to -16
  Sprite on 18,fb17x,fb17y,Black           'spawn fireball 17
  fb17_exist=1                             'mark fireball 17 as existing
EndIf
If fb18_exist=0 Then                       'If fireball 18 hasn't spawned then
  fb18x = Int(Rnd*224)                  'reset fireball 18 x position to random
  fb18y = -16                              'reset y position to -16
  Sprite on 19,fb18x,fb18y,Black           'spawn fireball 18
  fb18_exist=1                             'mark fireball 18 as existing
EndIf
If fb19_exist=0 Then                       'If fireball 19 hasn't spawned then
  fb19x = Int(Rnd*224)                  'reset fireball 19 x position to random
  fb19y = -16                              'reset y position to -16
  Sprite on 20,fb19x,fb19y,Black           'spawn fireball 19
  fb19_exist=1                             'mark fireball 19 as existing
EndIf
If fb20_exist=0 Then                       'If fireball 20 hasn't spawned then
  fb20x = Int(Rnd*224)                  'reset fireball 20 x position to random
  fb20y = -16                              'reset y position to -16
  Sprite on 21,fb20x,fb20y,Black           'spawn fireball 20
  fb20_exist=1                             'mark fireball 20 as existing
EndIf


If fb1_exist=1 Then
  Sprite move 2,fb1x,fb1y,Black              'move fireball 1 sprite
EndIf
If fb2_exist=1 Then
  Sprite move 3,fb2x,fb2y,Black              'move fireball 2 sprite
EndIf
If fb3_exist=1 Then
  Sprite move 4,fb3x,fb3y,Black              'move fireball 3 sprite
EndIf
If fb4_exist=1 Then
  Sprite move 5,fb4x,fb4y,Black              'move fireball 4 sprite
EndIf
If fb5_exist=1 Then
  Sprite move 6,fb5x,fb5y,Black              'move fireball 5 sprite
EndIf
If fb6_exist=1 Then
  Sprite move 7,fb6x,fb6y,Black              'move fireball 6 sprite
EndIf
If fb7_exist=1 Then
  Sprite move 8,fb7x,fb7y,Black              'move fireball 7 sprite
EndIf
If fb8_exist=1 Then
  Sprite move 9,fb8x,fb8y,Black              'move fireball 8 sprite
EndIf
If fb9_exist=1 Then
  Sprite move 10,fb9x,fb9y,Black             'move fireball 9 sprite
EndIf
If fb10_exist=1 Then
  Sprite move 11,fb10x,fb10y,Black           'move fireball 10 sprite
EndIf
If fb11_exist=1 Then
  Sprite move 12,fb11x,fb11y,Black           'move fireball 11 sprite
EndIf
If fb12_exist=1 Then
  Sprite move 13,fb12x,fb12y,Black           'move fireball 12 sprite
EndIf
If fb13_exist=1 Then
  Sprite move 14,fb13x,fb13y,Black           'move fireball 13 sprite
EndIf
If fb14_exist=1 Then
  Sprite move 15,fb14x,fb14y,Black           'move fireball 14 sprite
EndIf
If fb15_exist=1 Then
  Sprite move 16,fb15x,fb15y,Black           'move fireball 15 sprite
EndIf
If fb16_exist=1 Then
  Sprite move 17,fb16x,fb16y,Black           'move fireball 16 sprite
EndIf
If fb17_exist=1 Then
  Sprite move 18,fb17x,fb17y,Black           'move fireball 17 sprite
EndIf
If fb18_exist=1 Then
  Sprite move 19,fb18x,fb18y,Black           'move fireball 18 sprite
EndIf
If fb19_exist=1 Then
  Sprite move 20,fb19x,fb19y,Black           'move fireball 19 sprite
EndIf
If fb20_exist=1 Then
  Sprite move 21,fb20x,fb20y,Black           'move fireball 20 sprite
EndIf



If fb1y > 216 Then                        'If fireball 1 goes off the bottom
  fb1x = Int(Rnd(1)*224)                  'reset x position to random
  fb1y = -16                              'reset y position to just off the top
EndIf
If fb2y > 216 Then                        'If fireball 2 goes off the bottom
  fb2x = Int(Rnd(1)*224)                  'reset x position to random
  fb2y = -16                              'reset y position to just off the top
EndIf
If fb3y > 216 Then                        'If fireball 3 goes off the bottom
  fb3x = Int(Rnd(1)*224)                  'reset x position to random
  fb3y = -16                              'reset y position to just off the top
EndIf
If fb4y > 216 Then                        'If fireball 4 goes off the bottom
  fb4x = Int(Rnd(1)*224)                  'reset x position to random
  fb4y = -16                              'reset y position to just off the top
EndIf
If fb5y > 216 Then                        'If fireball 5 goes off the bottom
  fb5x = Int(Rnd(1)*224)                  'reset x position to random
  fb5y = -16                              'reset y position to just off the top
EndIf
If fb6y > 216 Then                        'If fireball 6 goes off the bottom
  fb6x = Int(Rnd(1)*224)                  'reset x position to random
  fb6y = -16                              'reset y position to just off the top
EndIf
If fb7y > 216 Then                        'If fireball 7 goes off the bottom
  fb7x = Int(Rnd(1)*224)                  'reset x position to random
  fb7y = -16                              'reset y position to just off the top
EndIf
If fb8y > 216 Then                        'If fireball 8 goes off the bottom
  fb8x = Int(Rnd*224)                  'reset x position to random
  fb8y = -16                              'reset y position to just off the top
EndIf
If fb9y > 216 Then                        'If fireball 9 goes off the bottom
  fb9x = Int(Rnd*224)                  'reset x position to random
  fb9y = -16                              'reset y position to just off the top
EndIf
If fb10y > 216 Then                       'If fireball 10 goes off the bottom
  fb10x = Int(Rnd(1)*224)                 'reset x position to random
  fb10y = -16                             'reset y position to just off the top
EndIf
If fb11y > 216 Then                       'If fireball 11 goes off the bottom
  fb11x = Int(Rnd(1)*224)                 'reset x position to random
  fb11y = -16                             'reset y position to just off the top
EndIf
If fb12y > 216 Then                       'If fireball 12 goes off the bottom
  fb12x = Int(Rnd(1)*224)                 'reset x position to random
  fb12y = -16                             'reset y position to just off the top
EndIf
If fb13y > 216 Then                       'If fireball 13 goes off the bottom
  fb13x = Int(Rnd(1)*224)                 'reset x position to random
  fb13y = -16                             'reset y position to just off the top
EndIf
If fb14y > 216 Then                       'If fireball 14 goes off the bottom
  fb14x = Int(Rnd(1)*224)                 'reset x position to random
  fb14y = -16                             'reset y position to just off the top
EndIf
If fb15y > 216 Then                       'If fireball 15 goes off the bottom
  fb15x = Int(Rnd(1)*224)                 'reset x position to random
  fb15y = -16                             'reset y position to just off the top
EndIf
If fb16y > 216 Then                       'If fireball 16 goes off the bottom
  fb16x = Int(Rnd*224)                 'reset x position to random
  fb16y = -16                             'reset y position to just off the top
EndIf
If fb17y > 216 Then                       'If fireball 17 goes off the bottom
  fb17x = Int(Rnd(1)*224)                 'reset x position to random
  fb17y = -16                             'reset y position to just off the top
EndIf
If fb18y > 216 Then                       'If fireball 18 goes off the bottom
  fb18x = Int(Rnd(1)*224)                 'reset x position to random
  fb18y = -16                             'reset y position to just off the top  
EndIf
If fb19y > 216 Then                       'If fireball 19 goes off the bottom
  fb19x = Int(Rnd(1)*224)                 'reset x position to random
  fb19y = -16                             'reset y position to just off the top
EndIf
If fb20y > 216 Then                       'If fireball 20 goes off the bottom
  fb20x = Int(Rnd(1)*224)                 'reset x position to random
  fb20y = -16                             'reset y position to just off the top
EndIf

Return




ShipControl:
If KeyDown = 130 Then                     'if left arrow key pressed
  px=px-ship_speed
  ElseIf KeyDown = 131 Then               'if right arrow key pressed
  px=px+ship_speed
  ElseIf KeyDown = 128 Then               'if up arrow key pressed
  py=py-ship_speed
  ElseIf KeyDown = 129 Then               'if down arrow key pressed
  py=py+ship_speed
EndIf
Sprite move 1,px,py

if collision(1,sprite) >0 then

  if shipExist = 1 and lasFillExist = 1 then
    if collision(1,sprite) and collision(27,sprite) > 0 then
      shots = 10                             'Shots refill up to 10 when powerup collected
      sprite off 27
      'cls
      lasFillExist = 0
      lassFillTimer = 0
        for x=1 to 1000 step 1               'Noise for when you pick up powerup.
          tone x,x,1
        next x
    endif    
  endif


  if shipExist = 1 and fb1_exist = 1 then
      if collision(1,sprite) and collision(2,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb2_exist = 1 then
      if collision(1,sprite) and collision(3,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb3_exist = 1 then
      if collision(1,sprite) and collision(4,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb4_exist = 1 then
      if collision(1,sprite) and collision(5,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb5_exist = 1 then
      if collision(1,sprite) and collision(6,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb6_exist = 1 then
      if collision(1,sprite) and collision(7,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb7_exist = 1 then
      if collision(1,sprite) and collision(8,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb8_exist = 1 then
      if collision(1,sprite) and collision(9,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb9_exist = 1 then
      if collision(1,sprite) and collision(10,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb10_exist = 1 then
      if collision(1,sprite) and collision(11,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb11_exist = 1 then
      if collision(1,sprite) and collision(12,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb12_exist = 1 then
      if collision(1,sprite) and collision(13,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb13_exist = 1 then
      if collision(1,sprite) and collision(14,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb14_exist = 1 then
      if collision(1,sprite) and collision(15,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb15_exist = 1 then
      if collision(1,sprite) and collision(16,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb16_exist = 1 then
      if collision(1,sprite) and collision(17,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb17_exist = 1 then
      if collision(1,sprite) and collision(18,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb18_exist = 1 then
      if collision(1,sprite) and collision(19,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif     
  endif
  if shipExist = 1 and fb19_exist = 1 then
      if collision(1,sprite) and collision(20,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
  if shipExist = 1 and fb20_exist = 1 then
      if collision(1,sprite) and collision(21,sprite) > 0 then
      gosub gameOver                          'Goto gameover subroutine
      endif
  endif
endif
Return




EdgeDetect:                               'sprite edge detection routine

If Collision(1,EDGE) = 1 Then             'if ship hits left edge
  px=0
  ElseIf Collision(1,EDGE) = 2 Then       'if ship hits right edge
  px=224
  ElseIf Collision(1,EDGE) = 4 Then       'if ship hits top edge
  py=0
  ElseIf Collision(1,EDGE) = 8 Then       'if ship hits bottom edge
  py=200
  ElseIf Collision(1,EDGE) = 5 Then       'if ship hits top and left edges
  px=0
  py=0
  ElseIf Collision(1,EDGE) = 6 Then       'if ship hits top and right edges
  px=224
  py=0
  ElseIf Collision(1,EDGE) = 9 Then       'if ship hits bottom and left edges
  px=0
  py=200
  ElseIf Collision(1,EDGE) = 10 Then      'if ship hits bottom and right edges
  px=224
  py=200
EndIf
Return

LaserControl:
If KeyDown = 32 And laserExist=0 AND shots>0 Then     'If space key is pressed
    lx = px                                 'Laser x position same as ship
    ly = py-2                               'Laser y position same as ship-2 pixel
    Sprite on 22,lx,ly                      'spawn laser
    laserExist = 1                          'mark laser as existing
    shots = shots-1                         'decrease shots counter by 1    
    'cls
    for x =1 to 2000 step 10                'Laser shot noise generating loop
      tone x,x,1
    next x
'elseif keydown = 32 and laserExist=0 and shots = 0 then
'    for x=1 to 200 step 1
'    tone x,x,1
'    next x
EndIf 
If laserExist = 1 Then                    'Check to see if laser exists
  ly=ly-las_speed                         'Move laser Y position up the screen
  Sprite move 22,lx,ly                    'Move laser to new coords
  If Collision(22,Edge) = 4 Then          'If laser hits top of screen
    Sprite off 22                         'Turn the laser sprite off
    laserExist = 0                        'Mark laser as not existing
    lasFillX = 0                          'Reset power up X coord
    lasFillY = 0                          'Reset powerup Y coord
  EndIf

EndIf

If laserExist = 1 Then                    'If the laser exists
    If Collision(22,SPRITE) > 0 Then      'Is it colliding with another sprite?
      If fb1_exist = 1 Then               'Does fireball1 exist?
        If Collision(2,SPRITE) > 0 Then   'Is it colliding?
          for x = 23 to 26
            sprite copy x to 2
            pause 15
          next x
          sprite copy 28 to 2
          Sprite off 2                    'If it is turn the sprite off
          fb1_exist = 3                   'Mark fireball1 as despawned
        EndIf
      EndIf
      If fb2_exist = 1 Then               'Does fireball2 exist?
        If Collision(3,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 3
            pause 15
          next x
          sprite copy 28 to 3
          Sprite off 3                    'If it is turn the sprite off
          fb2_exist = 3                   'Mark fireball2 as despawned
        EndIf
      EndIf
      If fb3_exist = 1 Then               'Does fireball3 exist?
        If Collision(4,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 4
            pause 15
          next x
          sprite copy 28 to 4
          Sprite off 4                    'If it is turn the sprite off
          fb3_exist = 3                   'Mark fireball3 as despawned
        EndIf
      EndIf
      If fb4_exist = 1 Then               'Does fireball4 exist?
        If Collision(5,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 5
            pause 15
          next x
          sprite copy 28 to 5
          Sprite off 5                    'If it is turn the sprite off
          fb4_exist = 3                   'Mark fireball4 as despawned
        EndIf
      EndIf
      If fb5_exist = 1 Then               'Does fireball5 exist?
        If Collision(6,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 6
            pause 15
          next x
          sprite copy 28 to 6
          Sprite off 6                    'If it is turn the sprite off
          fb5_exist = 3                   'Mark fireball5 as despawned
        EndIf
      EndIf
      If fb6_exist = 1 Then               'Does fireball6 exist?
        If Collision(7,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 7
            pause 15
          next x
          sprite copy 28 to 7        
          Sprite off 7                    'If it is turn the sprite off
          fb6_exist = 3                   'Mark fireball6 as despawned
        EndIf
      EndIf
      If fb7_exist = 1 Then               'Does fireball7 exist?
        If Collision(8,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 8
            pause 15
          next x
          sprite copy 28 to 8
          Sprite off 8                    'If it is turn the sprite off
          fb7_exist = 3                   'Mark fireball7 as despawned
        EndIf
      EndIf
      If fb8_exist = 1 Then                'Does fireball8 exist?
        If Collision(9,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 9
            pause 15
          next x
          sprite copy 28 to 9
          Sprite off 9                    'If it is turn the sprite off
          fb8_exist = 3                   'Mark fireball8 as despawned
        EndIf
      EndIf
      If fb9_exist = 1 Then               'Does fireball9 exist?
        If Collision(10,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 10
            pause 15
          next x
          sprite copy 28 to 10
          Sprite off 10                    'If it is turn the sprite off
          fb9_exist = 3                   'Mark fireball9 as despawned
        EndIf
      EndIf
      If fb10_exist = 1 Then               'Does fireball0 exist?
        If Collision(11,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 11
            pause 15
          next x
          sprite copy 28 to 11
          Sprite off 11                    'If it is turn the sprite off
          fb10_exist = 3                   'Mark fireball10 as despawned
        EndIf
      EndIf
      If fb11_exist = 1 Then               'Does fireball11 exist?
        If Collision(12,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 12
            pause 15
          next x
          sprite copy 28 to 12
          Sprite off 12                    'If it is turn the sprite off
          fb11_exist = 3                   'Mark fireball11 as despawned
        EndIf
      EndIf
      If fb12_exist = 1 Then               'Does fireball12 exist?
        If Collision(13,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 13
            pause 15
          next x
          sprite copy 28 to 13      
          Sprite off 13                    'If it is turn the sprite off
          fb12_exist = 3                   'Mark fireball12 as despawned
        EndIf
      EndIf
      If fb13_exist = 1 Then               'Does fireball13 exist?
        If Collision(14,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 14
            pause 15
          next x
          sprite copy 28 to 14
          Sprite off 14                    'If it is turn the sprite off
          fb13_exist = 3                   'Mark fireball13 as despawned
        EndIf
      EndIf
      If fb14_exist = 1 Then               'Does fireball14 exist?
        If Collision(15,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 15
            pause 15
          next x
          sprite copy 28 to 15
          Sprite off 15                    'If it is turn the sprite off
          fb14_exist = 3                   'Mark fireball14 as despawned
        EndIf
      EndIf
      If fb15_exist = 1 Then               'Does fireball15 exist?
        If Collision(16,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 16
            pause 15
          next x
          sprite copy 28 to 16
          Sprite off 16                    'If it is turn the sprite off
          fb15_exist = 3                   'Mark fireball15 as despawned
        EndIf
      EndIf
      If fb16_exist = 1 Then               'Does fireball16 exist?
        If Collision(17,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 17
            pause 15
          next x
          sprite copy 28 to 17
          Sprite off 17                    'If it is turn the sprite off
          fb16_exist = 3                   'Mark fireball16 as despawned
        EndIf
      EndIf
      If fb17_exist = 1 Then               'Does fireball17 exist?
        If Collision(18,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 18
            pause 15
          next x
          sprite copy 28 to 18
          Sprite off 18                    'If it is turn the sprite off
          fb17_exist = 3                   'Mark fireball17 as despawned
        EndIf
      EndIf
             If fb18_exist = 1 Then           'Does fireball18 exist?
        If Collision(19,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 19
            pause 15
          next x
          sprite copy 28 to 19
          Sprite off 19                    'If it is turn the sprite off
          fb18_exist = 3                   'Mark fireball18 as despawned
        EndIf
      EndIf
      If fb19_exist = 1 Then               'Does fireball19 exist?
        If Collision(20,SPRITE) > 0 Then   'Is it colliding?
        for x = 23 to 26
            sprite copy x to 20
            pause 15
          next x
          sprite copy 28 to 20
          Sprite off 20                    'If it is turn the sprite off
          fb19_exist = 3                   'Mark fireball19 as despawned
        EndIf
      EndIf
      If fb20_exist = 1 Then               'Does fireball20 exist?
        If Collision(21,SPRITE) > 0 Then    'Is it colliding?
        for x = 23 to 26
            sprite copy x to 21
            pause 15
          next x
          sprite copy 28 to 21
          Sprite off 21                     'If it is turn the sprite off
          fb20_exist = 3                   'Mark fireball20 as despawned
        EndIf
      EndIf
    Sprite off 22                        'Turn laser sprite off after checks
    laserExist = 0                       'Mark laser as not existing
    for b = 2000 to 1 step -10
      tone b,b,1
    next b
     Cls
   EndIf
EndIf
Return


HUD:
print @(2,0) "Score:";score
Print @(85,0)"HiScore:";highScore
print @(185,0)"Shots:";shots
if score > highScore then
  highScore=score
endif
'if lasFillExist=1 and shipExist=1 then
'  print @(0,50)"Plr";collision(1,sprite)
'  print @(0,100)"lf";collision(27,sprite) 'debugging collision
'elseif lasFillExist=0 and shipExist=1 then
'  print @(0,50)"Plr";collision(1,sprite)
'endif
return


powerUp:                                                'The amount the powerup refills in on line 623
if lasTimer > 30 and lasFillExist = 0 then              'If the powerup timer is up and no powerups exist then
  lasTimer = 0                                          'reset lastimer to 0
  lasFillX=int(rnd*240)                                 'generate random X coord
  do while lasFillY < 100                               'Doing this so powerups dont spawn too near the top
    lasFillY=Int(rnd*216)
  loop
  sprite on 27,lasFillX,lasFillY
  lasFillExist = 1
endif
if lasFillExist = 1 then
  sprite move 27,lasFillX,lasFillY                      'Doing this to stop fireballs from overwriting the powerup
endif
return

gameOver:
sprite off all
cls
font 2
print @(65,80) "Game Over"
font 1
print @(90,120) "Score:";score
print @(76,140) "Press r to retry"
for x=5000 to 1 step -1
  tone x,x,1
next x
for x=1 to 5000 step 1
  tone x,x,1
next x
if score > highScore then
  highScore = score
endif

do while keydown <> 114
shipExist=0
shots = 10                                'setting shots variable
score=0                                   'setting score variable
laserExist=0
lasTimer=0                                'Setting up laser refill powerup timer variable
lasFillExist=0                            'Setting up laser refill powerup existence variable  
lasFillX=0                                'Setting up laser fill powerup x position variable
lasFillY=0                                'Setting up laser fill powerup y position variable                         
'Setting up all position variables
px=120
py=100
lx=0
ly=0
fbtotal = 0
fb1x = 0
fb1y = -16
fb2x = 0
fb2y = -16
fb3x = 0
fb3y = -16
fb4x = 0
fb4y = -16
fb5x = 0
fb5y = -16
fb6x = 0
fb6y = -16
fb7x = 0
fb7y = -16
fb8x = 0
fb8y = -16
fb9x = 0
fb9y = -16
fb10x = 0
fb10y = -16
fb11x = 0
fb11y = -16
fb12x = 0
fb12y = -16
fb13x = 0
fb13y = -16
fb14x = 0
fb14y = -16
fb15x = 0
fb15y = -16
fb16x = 0
fb16y = -16
fb17x = 0
fb17y = -16
fb18x = 0
fb18y = -16
fb19x = 0
fb19y = -16
fb20x = 0
fb20y = -16
'setting up all existence variables
fb1_exist = 3
fb2_exist = 3
fb3_exist = 3
fb4_exist = 3
fb5_exist = 3
fb6_exist = 3
fb7_exist = 3
fb8_exist = 3
fb9_exist = 3
fb10_exist = 3
fb11_exist = 3
fb12_exist = 3
fb13_exist = 3
fb14_exist = 3
fb15_exist = 3
fb16_exist = 3
fb17_exist = 3
fb18_exist = 3
fb19_exist = 3
fb20_exist = 3
loop
cls
goto Start
return


antiOverlap:'Need to move asteroids if they're touching after respawn while their still out of sight
If fb1_exist=1 and fb1y < -8 then 
    if collision(2,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb1x = Int(Rnd*224)              'reset x position to random
      fb1y = -16                          'reset y position to just off the top    
    endif
  endif
If fb2_exist=1 and fb2y < -8 then 
    if collision(3,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb2x = Int(Rnd*224)              'reset x position to random
      fb2y = -16                          'reset y position to just off the top    
    endif
  endif
If fb3_exist=1 and fb3y < -8 then
    if collision(4,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb3x = Int(Rnd*224)              'reset x position to random
      fb3y = -16                          'reset y position to just off the top    
    endif
  endif
If fb4_exist=1 and fb4y < -8 then 
    if collision(5,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb4x = Int(Rnd*224)              'reset x position to random
      fb4y = -16                          'reset y position to just off the top    
    endif
  endif
If fb5_exist=1 and fb5y < -8 then 
    if collision(6,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb5x = Int(Rnd*224)              'reset x position to random
      fb5y = -16                          'reset y position to just off the top    
    endif
  endif
If fb6_exist=1 and fb6y < -8 then 
    if collision(7,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb6x = Int(Rnd*224)              'reset x position to random
      fb6y = -16                          'reset y position to just off the top    
    endif
  endif
If fb7_exist=1 and fb7y < -8 then
    if collision(8,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb7x = Int(Rnd*224)              'reset x position to random
      fb7y = -16                          'reset y position to just off the top    
    endif
  endif
If fb8_exist=1 and fb8y < -8 then 
    if collision(9,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb8x = Int(Rnd*224)              'reset x position to random
      fb8y = -16                          'reset y position to just off the top    
    endif
  endif
If fb9_exist=1 and fb9y < -8 then
    if collision(10,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb9x = Int(Rnd*224)              'reset x position to random
      fb9y = -16                          'reset y position to just off the top    
    endif
  endif
If fb10_exist=1 and fb10y < -8 then 
    if collision(11,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb10x = Int(Rnd*224)              'reset x position to random
      fb10y = -16                          'reset y position to just off the top    
    endif
  endif
If fb11_exist=1 and fb11y < -8 then 
    if collision(12,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb11x = Int(Rnd*224)              'reset x position to random
      fb11y = -16                          'reset y position to just off the top    
    endif
  endif
If fb12_exist=1 and fb12y < -8 then 
    if collision(13,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb12x = Int(Rnd*224)              'reset x position to random
      fb12y = -16                          'reset y position to just off the top    
    endif
  endif
If fb13_exist=1 and fb13y < -8 then 
    if collision(14,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb13x = Int(Rnd*224)              'reset x position to random
      fb13y = -16                          'reset y position to just off the top    
    endif
  endif
If fb14_exist=1 and fb14y < -8 then 
    if collision(15,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb14x = Int(Rnd*224)              'reset x position to random
      fb14y = -16                          'reset y position to just off the top    
    endif
  endif
If fb15_exist=1 and fb15y < -8 then 
    if collision(16,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb15x = Int(Rnd*224)              'reset x position to random
      fb15y = -16                          'reset y position to just off the top    
    endif
  endif
If fb16_exist=1 and fb16y < -8 then 
    if collision(17,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb16x = Int(Rnd*224)              'reset x position to random
      fb16y = -16                          'reset y position to just off the top    
    endif
  endif
If fb17_exist=1 and fb17y < -8 then 
    if collision(18,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb17x = Int(Rnd*224)              'reset x position to random
      fb17y = -16                          'reset y position to just off the top    
    endif
  endif
If fb18_exist=1 and fb18y < -8 then 
    if collision(19,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb18x = Int(Rnd*224)              'reset x position to random
      fb18y = -16                          'reset y position to just off the top    
    endif
  endif
If fb19_exist=1 and fb19y < -8 then 
    if collision(20,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb19x = Int(Rnd*224)              'reset x position to random
      fb19y = -16                          'reset y position to just off the top    
    endif
  endif
If fb20_exist=1 and fb20y < -8 then 
    if collision(21,sprite) >0  then      'If fireball is colliding with anything after position reset
      fb20x = Int(Rnd*224)              'reset x position to random
      fb20y = -16                          'reset y position to just off the top    
    endif
  endif

return
mmbasic/fireball.txt · Last modified: 2024/02/07 18:12 by gerry