Space Invaders Clone. - GameCreators Forum

Author

Message

Not_Maindric

18

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 16th Apr 2008 02:33

Link

`Set the game up
PosX=320 : PosY=400 : Hide Mouse : SheildL=400 : MaxBullets=2 : Dim FiredBullet(MaxBullets+1) : Dim BulletPosX(MaxBullets+1)  : Dim BulletPosY(MaxBullets+1)
GoSub MakeSprites:
Sync on
T1=Timer()
T2=Timer()

`***********
`*Main Loop*
`***********

Do
   Eh=Timer()-T2
   If Eh>15
      Sync
      CLS
      T2=Timer()
      BR=Timer()-T1
      BR=BR/150
      Box 0, 14, SheildL/4, 16
      Ink 16777215, 0 : `Remaining Shield Level
      If Keystate(203)=1 and PosX>=4 then PosX=PosX-10 : `Go left
      If Keystate(205)=1 and PosX<=612 Then PosX=PosX+10 : `Go Right
      If Keystate(57)=1
         Gosub AddBullet:
      Endif
      If BulletCount > 0 Then Gosub MoveBullet:
      Sprite 1, PosX, PosY, 1
   Endif
Loop

`************
`*Procedures*
`************

MoveBullet:
  For N = 2 To MaxBullets+1 : ` Move the bullets here
    If FiredBullet(N)=1
      BulletPosY(N)=BulletPosY(N)-35
      Sprite N, BulletPosX(N),BulletPosY(N), 2
      If BulletPosY(N) < -16
          FiredBullet(N)=0: `Reset 'bullet currently in flight' flag
      Endif
    Endif
  Next N
Return

AddBullet:
   For N = 2 To MaxBullets+1 : `make them with ^
      If FiredBullet(N)=0 and BR>1
         FiredBullet(N)=1
         BulletPosX(N) = PosX + 8
         BulletPosY(N) = 400
         Inc BulletCount
         T1=Timer()
         Exit
      Endif
   Next N
Return

MakeSprites:
   Create Bitmap 1, 320, 200 : `Eh, nothing important, just maiing the ship and bullet
   Ink 11507455, 0
   Line 10, 1, 2, 10
   Line 10, 1, 18, 10
   Line 10, 1, 3, 10
   Line 10, 1, 17, 10
   Line 10, 1, 4, 10
   Line 10, 1, 16, 10
   Line 10, 1, 5, 10
   Line 10, 1, 15, 10
   Line 10, 1, 6, 10
   Line 10, 1, 14, 10
   Line 8, 5, 11, 5
   Line 8, 6, 12, 6
   Ink 0, 0
   Box 8, 3, 11, 5
   Get image 1, 1, 1, 20, 10
   CLS
   Ink 16776960, 0
   Box 1, 1, 2, 6
   Get Image 2, 1, 1, 10, 10
   Sprite 2,-20,BulletPosY,2: Rem Place off screen as not needed yet
   Set Current Bitmap 0
   Delete Bitmap 1
Return

+ Code Snippet

`Set the game up
PosX=320 : PosY=400 : Hide Mouse : SheildL=400 : MaxBullets=2 : Dim FiredBullet(MaxBullets+1) : Dim BulletPosX(MaxBullets+1)  : Dim BulletPosY(MaxBullets+1)
GoSub MakeSprites:
Sync on
T1=Timer()
T2=Timer()


`***********
`*Main Loop*
`***********


Do
   Eh=Timer()-T2
   If Eh>15
      Sync
      CLS
      T2=Timer()
      BR=Timer()-T1
      BR=BR/150
      Box 0, 14, SheildL/4, 16
      Ink 16777215, 0 : `Remaining Shield Level
      If Keystate(203)=1 and PosX>=4 then PosX=PosX-10 : `Go left
      If Keystate(205)=1 and PosX<=612 Then PosX=PosX+10 : `Go Right
      If Keystate(57)=1
         Gosub AddBullet:
      Endif
      If BulletCount > 0 Then Gosub MoveBullet:
      Sprite 1, PosX, PosY, 1
   Endif
Loop

`************
`*Procedures*
`************


MoveBullet:
  For N = 2 To MaxBullets+1 : ` Move the bullets here
    If FiredBullet(N)=1
      BulletPosY(N)=BulletPosY(N)-35
      Sprite N, BulletPosX(N),BulletPosY(N), 2
      If BulletPosY(N) < -16
          FiredBullet(N)=0: `Reset 'bullet currently in flight' flag
      Endif
    Endif
  Next N
Return

AddBullet:
   For N = 2 To MaxBullets+1 : `make them with ^
      If FiredBullet(N)=0 and BR>1
         FiredBullet(N)=1
         BulletPosX(N) = PosX + 8
         BulletPosY(N) = 400
         Inc BulletCount
         T1=Timer()
         Exit
      Endif
   Next N
Return

MakeSprites:
   Create Bitmap 1, 320, 200 : `Eh, nothing important, just maiing the ship and bullet
   Ink 11507455, 0
   Line 10, 1, 2, 10
   Line 10, 1, 18, 10
   Line 10, 1, 3, 10
   Line 10, 1, 17, 10
   Line 10, 1, 4, 10
   Line 10, 1, 16, 10
   Line 10, 1, 5, 10
   Line 10, 1, 15, 10
   Line 10, 1, 6, 10
   Line 10, 1, 14, 10
   Line 8, 5, 11, 5
   Line 8, 6, 12, 6
   Ink 0, 0
   Box 8, 3, 11, 5
   Get image 1, 1, 1, 20, 10
   CLS
   Ink 16776960, 0
   Box 1, 1, 2, 6
   Get Image 2, 1, 1, 10, 10
   Sprite 2,-20,BulletPosY,2: Rem Place off screen as not needed yet
   Set Current Bitmap 0
   Delete Bitmap 1
Return

What do you think?

Anyway I can make the code better, anything alternate way to do anything? Not finished of course. I have yet to add the enemies.

One question though, when you fire, why does it look like 2 gets fired at once? Only 2 bullets should be showing...

Back to top

Profile PM Email

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 16th Apr 2008 05:40 Edited at: 16th Apr 2008 05:41

Link

Some thoughts:
1. You don't need to clear the screen every iteration of the do - loop. Instead, you could grab an image of the area where your remaining shield level will be printed and then paste this image in that spot - much quicker than a CLS.
2. Sync is best placed at the end of the do - loop to get a fresh update of where everything is at.
3. Why not draw the sprites using a paint program and then load the images or use a bitmap to grab the images? This will be especially helpful when you go to animate the aliens.
4. Moving the bullets 35 pixels every time is a TON. It will likely be difficult to get good collision checking moving them that fast.
5. I would also recommend the following: Declare a sync rate (I usually use around 60 - I know you are using timer based movement), randomizing, setting a display mode and before you get too far along, get the aliens moving the way you want, as this will likely be a more difficult part of the coding.

Quote: "One question though, when you fire, why does it look like 2 gets fired at once?"

Actually, it looks like you are. You have no timer delay when the player fires a shot. Make it so that a certain amount of time has to go by before another shot can be fired.

LBFN

Back to top

Profile PM Email

Not_Maindric

18

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 16th Apr 2008 14:51

Link

Quote: "1. You don't need to clear the screen every iteration of the do - loop. Instead, you could grab an image of the area where your remaining shield level will be printed and then paste this image in that spot - much quicker than a CLS."

HM, I shall try this when I get home, sounds better than cls. That also might help other problems.

Quote: "2. Sync is best placed at the end of the do - loop to get a fresh update of where everything is at."

Alright, shall do.

Quote: "
3. Why not draw the sprites using a paint program and then load the images or use a bitmap to grab the images? This will be especially helpful when you go to animate the aliens."

I would, but my goal is to make a media less game. It is just I will feel better about myself if I make a media less game than a media game.

Quote: "4. Moving the bullets 35 pixels every time is a TON. It will likely be difficult to get good collision checking moving them that fast."

That was temporary, I had full intent in changing it.

Quote: "
5. I would also recommend the following: Declare a sync rate (I usually use around 60 - I know you are using timer based movement), randomizing, setting a display mode and before you get too far along, get the aliens moving the way you want, as this will likely be a more difficult part of the coding."

Ah, forgot to put it on this snippet. I removed it temporarily for when I put the timer base in. I put it back in on the main program though not long after posting this. I was going to put the screen display in soon, I know leaving it as is can cause some collision errors. I most likely will also make it 800, 600, 32.

Quote: "
Actually, it looks like you are. You have no timer delay when the player fires a shot. Make it so that a certain amount of time has to go by before another shot can be fired."

+ Code Snippet

      BR=Timer()-T1
      BR=BR/150

If FiredBullet(N)=0 and BR>1

Those are just snippets from the above code, but that is a timer based fire rate. I slowed the program down majorly, and it showed it working properly when 5 bullets was max, but every now and then, it shot 2 bullets still. I think it may have something to do with the For...Next statement, but I am not sure.

Thanks for your reply, I shall get to work on this when I get home from school.

Back to top

Profile PM Email

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 17th Apr 2008 01:01

Link

I made a space invaders game that was medialess a while back. I have the code for making the images still if you are interested. I have the player's ship (pretty cool), player's shot, one alien with three images, alien shots with two images and a spaceship with three images.

Let me know,

LBFN

Back to top

Profile PM Email

Not_Maindric

18

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 17th Apr 2008 01:46

Link

Hm, if you can, can I get the alien ship and bullets? I would greatly appreciate it. Preferably the codes, thanks if so.

Back to top

Profile PM Email

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 17th Apr 2008 02:45

Link

Okay, here you go:

Set this up early in the code:

+ Code Snippet

dim ss(12)
dim colr(23)
dkpurple=1 : medpurple=2 : ltpurple=3 : medbrown=4
dkbrown=5 : ltbrown=6 : rskin=7 : skin=8 :paleyel=9
turq=10 : aqua=11 : cerulean=12 : royal=13 : red=14
clay=15 : ltgrey=16 : medgrey=17 : yellow=18 : white=19
dkred=20 : ltgreen=21 : medgreen=22 : deepblue=23

Here is the code to store the color info:

+ Code Snippet

for i=1 to 23
  read r,g,b
  colr(i)=rgb(r,g,b)
next i

Here are the subroutines to make the images. I included the player's ship (blaster). You can simply delte it if you want.

GET_BLASTER_IMAGE:

cls
ink colr(ltgrey),0

line 0,43,0,46 : line 1,41,1,47 : line 2,40,2,47 : line 3,38,3,47
line 4,35,4,48 : line 5,32,5,48 : line 6,29,6,48 : line 7,25,7,49
line 8,22,8,49 : line 9,19,9,49 : line 10,15,10,51 : line 11,10,11,53
line 12,0,12,53 : box 13,36,18,53 : line 19,0,19,53 : line 20,10,20,53
line 21,15,21,51 : line 22,19,22,49 : line 23,22,23,49 : line 24,25,24,49
line 25,29,25,48 : line 26,32,26,48 : line 27,35,27,48 : line 28,38,28,47
line 29,40,29,47 : line 30,41,30,47 : line 31,43,31,46
ink colr(yellow),0
line 4,43,9,32 : line 5,47,9,37 : line 22,37,26,46 : line 22,32,27,43

ink colr(medgrey),0
box 13,16,18,36
line 12,41,12,48 : line 19,41,19,48 : box 15,50,16,53

ink colr(ltgrey),0
dot 13,36
dot 18,36

ink colr(dkred),0
line 13,0,13,17 : line 18,0,18,17

ink colr(red),0
line 14,0,14,17 : line 17,0,17,17

ink colr(white),0
box 14,24,17,29
box 15,22,16,31

blaster_img=1 : ` the image of the sprite also happens to be 1.
blaster_extra=799 : ` the image # of the extra ship

get image blaster_img,0,0,38,54

` here a smaller image of the blaster is made
` it will be used to display extra ships available to the player
cls
sprite 1,0,0,blaster_img : ` call the sprite using the image just made
scale sprite 1,50 : ` scale it down to half the size
paste sprite 1,0,0  : ` paste the resulting sprite on the screen
delete sprite 1 : ` we no longer need the sprite, as we have the image, so we delete it
get image blaster_extra,0,0,20,27 : ` we grab the image for the extra ship
cls
return

GET_BULLET_IMAGES:
  ` this code makes the player's bullet as well as the alien's bullets
  ` the alien's bullets require two images, as they are animated
  cls
  ink colr(red),0
  box 0,0,3,13
  player_bullet=2
  get image player_bullet,0,0,4,14
  cls
  ink colr(yellow),0
  line 4,0,7,0 : line 3,1,6,1: line 2,2,5,2
  line 1,3,4,3 : line 0,4,3,4 : line 1,5,4,5
  line 2,6,5,6 : line 3,7,6,7 : line 4,8,7,8
  line 3,9,6,9 : line 2,10,5,10 : line 1,11,4,11
  line 0,12,3,12 : line 1,13,4,13 : line 2,14,5,14
  line 3,15,6,15 : line 4,16,7,16
  alien_bullet(1)=3
  get image alien_bullet(1),0,0,8,17
  cls
  ` color is still inked as yellow
  line 0,0,3,0 : line 1,1,4,1 : line 2,2,5,2
  line 3,3,6,3 : line 4,4,7,4 : line 3,5,6,5
  line 2,6,5,6 : line 1,7,4,7 : line 0,8,3,8
  line 1,9,4,9 : line 2,10,5,10 : line 3,11,6,11
  line 4,12,7,12 : line 3,13,6,13 : line 2,14,5,14
  line 1,15,4,15 : line 0,16,3,16

alien_bullet(2)=4
  get image alien_bullet(2),0,0,6,14
  cls

return

GET_SPACESHIP_IMAGES:
` this code also uses primitive DBP drawing commands to draw three spaceship images
ss(8)=10 : ss(9)=11 : ss(10)=12 : ` image numbers for the spaceship
cls
ink colr(aqua),0
line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
ink colr(cerulean),0
line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
line 18,16,37,16 : line 19,17,35,17
ink colr(royal),0
box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
line 55,10,55,11

ink colr(red),0
box 19,15,21,17
ink colr(ltgrey),0
box 11,8,17,12 : box 22,8,28,12 : box 33,8,39,12
box 44,8,50,12
ink colr(medgrey),0
box 12,9,16,11 : box 23,9,27,11 : box 34,9,38,11
box 45,9,49,11
get image ss(8),0,0,56,18

cls
ink colr(aqua),0
line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
ink colr(cerulean),0
line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
line 18,16,37,16 : line 19,17,35,17
ink colr(royal),0
box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
line 55,10,55,11

ink colr(red),0
box 25,15,27,17
ink colr(ltgrey),0
box 7,8,13,12 : box 18,8,24,12 : box 29,8,35,12
box 40,8,46,12
ink colr(medgrey),0
box 8,9,12,11 : box 19,9,23,11 : box 30,9,34,11
box 41,9,45,11
get image ss(9),0,0,56,18

cls
ink colr(aqua),0
line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
ink colr(cerulean),0
line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
line 18,16,37,16 : line 19,17,35,17
ink colr(royal),0
box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
line 55,10,55,11

ink colr(red),0
box 33,15,35,17
ink colr(ltgrey),0
box 4,8,10,12 : box 15,8,21,12 : box 26,8,32,12
box 37,9,43,12
ink colr(medgrey),0
box 5,9,9,11 : box 16,9,20,11 : box 27,9,31,11
box 38,9,42,11
get image ss(10),0,0,56,18
return

+ Code Snippet

GET_BLASTER_IMAGE:

cls
ink colr(ltgrey),0

line 0,43,0,46 : line 1,41,1,47 : line 2,40,2,47 : line 3,38,3,47
line 4,35,4,48 : line 5,32,5,48 : line 6,29,6,48 : line 7,25,7,49
line 8,22,8,49 : line 9,19,9,49 : line 10,15,10,51 : line 11,10,11,53
line 12,0,12,53 : box 13,36,18,53 : line 19,0,19,53 : line 20,10,20,53
line 21,15,21,51 : line 22,19,22,49 : line 23,22,23,49 : line 24,25,24,49
line 25,29,25,48 : line 26,32,26,48 : line 27,35,27,48 : line 28,38,28,47
line 29,40,29,47 : line 30,41,30,47 : line 31,43,31,46
ink colr(yellow),0
line 4,43,9,32 : line 5,47,9,37 : line 22,37,26,46 : line 22,32,27,43

ink colr(medgrey),0
box 13,16,18,36
line 12,41,12,48 : line 19,41,19,48 : box 15,50,16,53

ink colr(ltgrey),0
dot 13,36
dot 18,36

ink colr(dkred),0
line 13,0,13,17 : line 18,0,18,17

ink colr(red),0
line 14,0,14,17 : line 17,0,17,17

ink colr(white),0
box 14,24,17,29
box 15,22,16,31

blaster_img=1 : ` the image of the sprite also happens to be 1.
blaster_extra=799 : ` the image # of the extra ship

get image blaster_img,0,0,38,54

` here a smaller image of the blaster is made
` it will be used to display extra ships available to the player
cls
sprite 1,0,0,blaster_img : ` call the sprite using the image just made
scale sprite 1,50 : ` scale it down to half the size
paste sprite 1,0,0  : ` paste the resulting sprite on the screen
delete sprite 1 : ` we no longer need the sprite, as we have the image, so we delete it
get image blaster_extra,0,0,20,27 : ` we grab the image for the extra ship
cls
return



GET_BULLET_IMAGES:
  ` this code makes the player's bullet as well as the alien's bullets
  ` the alien's bullets require two images, as they are animated
  cls
  ink colr(red),0
  box 0,0,3,13
  player_bullet=2
  get image player_bullet,0,0,4,14
  cls
  ink colr(yellow),0
  line 4,0,7,0 : line 3,1,6,1: line 2,2,5,2
  line 1,3,4,3 : line 0,4,3,4 : line 1,5,4,5
  line 2,6,5,6 : line 3,7,6,7 : line 4,8,7,8
  line 3,9,6,9 : line 2,10,5,10 : line 1,11,4,11
  line 0,12,3,12 : line 1,13,4,13 : line 2,14,5,14
  line 3,15,6,15 : line 4,16,7,16
  alien_bullet(1)=3
  get image alien_bullet(1),0,0,8,17
  cls
  ` color is still inked as yellow
  line 0,0,3,0 : line 1,1,4,1 : line 2,2,5,2
  line 3,3,6,3 : line 4,4,7,4 : line 3,5,6,5
  line 2,6,5,6 : line 1,7,4,7 : line 0,8,3,8
  line 1,9,4,9 : line 2,10,5,10 : line 3,11,6,11
  line 4,12,7,12 : line 3,13,6,13 : line 2,14,5,14
  line 1,15,4,15 : line 0,16,3,16

  alien_bullet(2)=4
  get image alien_bullet(2),0,0,6,14
  cls

return




GET_SPACESHIP_IMAGES:
` this code also uses primitive DBP drawing commands to draw three spaceship images
ss(8)=10 : ss(9)=11 : ss(10)=12 : ` image numbers for the spaceship
cls
ink colr(aqua),0
line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
ink colr(cerulean),0
line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
line 18,16,37,16 : line 19,17,35,17
ink colr(royal),0
box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
line 55,10,55,11

ink colr(red),0
box 19,15,21,17
ink colr(ltgrey),0
box 11,8,17,12 : box 22,8,28,12 : box 33,8,39,12
box 44,8,50,12
ink colr(medgrey),0
box 12,9,16,11 : box 23,9,27,11 : box 34,9,38,11
box 45,9,49,11
get image ss(8),0,0,56,18

cls
ink colr(aqua),0
line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
ink colr(cerulean),0
line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
line 18,16,37,16 : line 19,17,35,17
ink colr(royal),0
box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
line 55,10,55,11

ink colr(red),0
box 25,15,27,17
ink colr(ltgrey),0
box 7,8,13,12 : box 18,8,24,12 : box 29,8,35,12
box 40,8,46,12
ink colr(medgrey),0
box 8,9,12,11 : box 19,9,23,11 : box 30,9,34,11
box 41,9,45,11
get image ss(9),0,0,56,18

cls
ink colr(aqua),0
line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
ink colr(cerulean),0
line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
line 18,16,37,16 : line 19,17,35,17
ink colr(royal),0
box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
line 55,10,55,11

ink colr(red),0
box 33,15,35,17
ink colr(ltgrey),0
box 4,8,10,12 : box 15,8,21,12 : box 26,8,32,12
box 37,9,43,12
ink colr(medgrey),0
box 5,9,9,11 : box 16,9,20,11 : box 27,9,31,11
box 38,9,42,11
get image ss(10),0,0,56,18
return

Hope it helps,

LB

Back to top

Profile PM Email

Not_Maindric

18

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 17th Apr 2008 03:53

Link

Thank you for the snippets. I like them, and if you do not mind, I am editing them quite heavily.

Back to top

Profile PM Email

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 17th Apr 2008 04:46

Link

I don't mind at all, you can do as you would like.

Good luck on your game.

LBFN

Back to top

Profile PM Email

Not_Maindric

18

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 17th Apr 2008 14:22

Link

I should be showing version 0.2 soon. Once I remove a few bugs, smooth the game play a bit, and place the AI, I shall release it.

Back to top

Profile PM Email

Not_Maindric

18

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 18th Apr 2008 03:44 Edited at: 18th Apr 2008 04:27

Link

I know I should not double post, but I was just letting you all know that I have Version 0.15 done. Once I fix a very annoying glitch, then it will be 0.2.

`Set the game up
Set Display Mode 800, 600, 32
PosX=400 : PosY=550 : Hide Mouse : SheildL=400 : MaxBullets=5 : Dim FiredBullet(MaxBullets+1) : Dim BulletPosX(MaxBullets+1)  : Dim BulletPosY(MaxBullets+1)
GoSub MakeSprites:
AlienY=20
AlienX=10
`Dim AlienX(25)
`Dim AlienY(25)
Sync on : Sync Rate 60
T1=Timer()
T2=Timer()
DIM AlienX(21)
Dim AlienY(21)
DIm Alien(21)
GoSub GET_BULLET_IMAGES:
GoSub GET_SPACESHIP_IMAGES:
SheildLL=SheildL
SheildL=SheildL*100
SpeedX=1

`***********
`*Main Loop*
`***********

Do
   Eh=Timer()-T2
   If Eh>20
      FPS=Screen FPS()
      CLS
      Text 0,0, "FPS: " + Str$(FPS)
      T2=Timer()
      BR=Timer()-T1
      BR=BR/300
      Sprite 7, 0, 14, 3
      Ink 16777215, 0 : `Remaining Shield Level
      If Keystate(203)=1 and PosX>=4 then PosX=PosX-9 : `Go left
      If Keystate(205)=1 and PosX<=778 Then PosX=PosX+9 : `Go Right
      If Keystate(57)=1
         Gosub AddBullet:
      Endif
      If BulletCount > 0 Then Gosub MoveBullet:
      Gosub PlaceAliens:
      Sprite 1, PosX, PosY, 1
   Endif
   Sync
Loop

`************
`*Procedures*
`************

MoveBullet:
`Colision check and move the bullet.
   For N=1 to Maxbullets+1
      For G=1 to 21
         If BulletPosY(N)<=AlienY(G) and BulletPosY(N)>=AlienY(G)-20
            If BulletPosX(N)<AlienX(G)+50 and BulletPosX(N)>=AlienX(G)
               Die=G+9
               Alien(G)=1
               Hide Sprite Die
               Delete Sprite N
               FiredBullet(N)=0
            Endif
         Endif
      Next G
      If FiredBullet(N)=1
         BulletPosY(N)=BulletPosY(N)-10
         Sprite N, BulletPosX(N),BulletPosY(N), 2
         If BulletPosY(N) < -5
             FiredBullet(N)=0: `Reset 'bullet currently in flight' flag
         Endif
      Endif
   Next N
Return

AddBullet:
`Makes the bullet if space is pressed.
   N=1
   Repeat
   N=N+1
      If FiredBullet(N)=0 and BR>1
         FiredBullet(N)=1
         BulletPosX(N) = PosX + 8
         BulletPosY(N) = 550
         Inc BulletCount
         T1=Timer()
         Exit
      Endif
   Until N=maxbullets+1
Return

PlaceAliens:
`Move the aliens
   For N=1 To 3
       If alien(N)=0
         If N=1
            AlienY(1)=AlienY
         Endif
         If N=2
            AlienY(2)=AlienY+40
         Endif
         If N=3
            AlienY(3)=AlienY+80
         Endif
         AlienX(N)=AlienX
         Sprite 10, AlienX(N), AlienY(1), 9
         Sprite 11, AlienX(N), AlienY(2), 12
         Sprite 12, AlienX(N), AlienY(3), 11
      Endif
   Next N
   For N=4 To 6
      If Alien(n)=0
         AlienX(N)=AlienX+100
         If N=4
            AlienY(4)=AlienY
         Endif
         If N=5
            AlienY(5)=AlienY+40
         Endif
         If N=6
            AlienY(6)=AlienY+80
         Endif
         Sprite 13, AlienX(N), AlienY(4), 9
         Sprite 14, AlienX(N), AlienY(5), 12
         Sprite 15, AlienX(N), AlienY(6), 11
      Endif
   Next N
   For N=7 To 9
      If Alien(n)=0
         If N=7
            AlienY(7)=AlienY
         Endif
         If N=8
            AlienY(8)=AlienY+40
         Endif
         If N=9
            AlienY(9)=AlienY+80
         Endif
         AlienX(N)=AlienX+200
         Sprite 16, AlienX(N), AlienY(7), 9
         Sprite 17, AlienX(N), AlienY(8), 12
         Sprite 18, AlienX(N), AlienY(9), 11
      Endif
   Next N
   For N=10 To 12
      If Alien(n)=0
         AlienX(N)=AlienX+300
         If N=10
            AlienY(10)=AlienY
         Endif
         If N=11
            AlienY(11)=AlienY+40
         Endif
         If N=12
            AlienY(12)=AlienY+80
         Endif
         Sprite 19, AlienX(N), AlienY(10), 9
         Sprite 20, AlienX(N), AlienY(11), 12
         Sprite 21, AlienX(N), AlienY(12), 11
      Endif
   Next N
   For N=13 To 15
      If Alien(n)=0
         If N=13
            AlienY(13)=AlienY
         Endif
         If N=14
            AlienY(14)=AlienY+40
         Endif
         If N=15
            AlienY(15)=AlienY+80
         Endif
         AlienX(N)=AlienX+400
         Sprite 22, AlienX(N), AlienY(13), 9
         Sprite 23, AlienX(N), AlienY(14), 12
         Sprite 24, AlienX(N), AlienY(15), 11
      Endif
   Next N
   For N=16 To 18
      If Alien(n)=0
         AlienX(N)=AlienX+500
         If N=16
            AlienY(16)=AlienY
         Endif
         If N=17
            AlienY(17)=AlienY+40
         Endif
         If N=18
            AlienY(18)=AlienY+80
         Endif
         Sprite 25, AlienX(N), AlienY(16), 9
         Sprite 26, AlienX(N), AlienY(17), 12
         Sprite 27, AlienX(N), AlienY(18), 11
      Endif
   Next N
   For N=19 To 21
      If Alien(n)=0
         AlienX(N)=AlienX+600
         If N=19
            AlienY(19)=AlienY
         Endif
         If N=20
            AlienY(20)=AlienY+40
         Endif
         If N=21
            AlienY(21)=AlienY+80
         Endif
         Sprite 28, AlienX(N), AlienY(19), 9
         Sprite 29, AlienX(N), AlienY(20), 12
         Sprite 30, AlienX(N), AlienY(21), 11
      Endif
   Next N
   AlienX=AlienX+SpeedX
   If IncSpeed=2
      IncSpeed=0
      SpeedX=SpeedX+1
   Endif
   If AlienX>=125
      IncSpeed=IncSpeed+1
      AlienY=AlienY+25
      Speedx=0-SpeedX
   Endif
   If AlienX<=9
      SpeedX=0-SpeedX
      AlienY=AlienY+25
      IncSpeed=IncSpeed+1
   Endif
Return

MakeSprites:
   Create Bitmap 1, 320, 200 : `Eh, nothing important, just making the ship and bullet
   Ink 11507455, 0
   Line 10, 1, 2, 10 : Line 10, 1, 18, 10 : Line 10, 1, 3, 10
   Line 10, 1, 17, 10 : Line 10, 1, 4, 10 : Line 10, 1, 16, 10
   Line 10, 1, 5, 10 : Line 10, 1, 15, 10 : Line 10, 1, 6, 10
   Line 10, 1, 14, 10 : Line 8, 5, 11, 5 : Line 8, 6, 12, 6
   Ink 0, 0
   Box 8, 3, 11, 5
   Get image 1, 1, 1, 20, 10
   CLS
   Ink 16776960, 0
   Box 1, 1, 2, 6
   Get Image 2, 1, 1, 10, 10
   Sprite 2,-20,BulletPosY,2: `Place off screen
   Set Current Bitmap 0
   Delete Bitmap 1
   Ink 255, 0
   Box 0, 14, SheildL/2, 16
   Get Image 3, 0, 14, 200, 16
   Sprite 6, -100, -100, 3
Return

GET_BULLET_IMAGES:
   `Makes the aliens bullets.
   `For weaker
  cls
  ink 16711680,0
  line 4,0,7,0 : line 3,1,6,1: line 2,2,5,2
  line 1,3,4,3 : line 0,4,3,4 : line 1,5,4,5
  line 2,6,5,6 : line 3,7,6,7 : line 4,8,7,8
  line 3,9,6,9 : line 2,10,5,10 : line 1,11,4,11
  line 0,12,3,12 : line 1,13,4,13 : line 2,14,5,14
  line 3,15,6,15 : line 4,16,7,16
  get image 7,0,0,8,17
  cls
  ` For stronger
  Ink 65280, 0
  line 0,0,3,0 : line 1,1,4,1 : line 2,2,5,2
  line 3,3,6,3 : line 4,4,7,4 : line 3,5,6,5
  line 2,6,5,6 : line 1,7,4,7 : line 0,8,3,8
  line 1,9,4,9 : line 2,10,5,10 : line 3,11,6,11
  line 4,12,7,12 : line 3,13,6,13 : line 2,14,5,14
  line 1,15,4,15 : line 0,16,3,16
  get image 8,0,0,6,14
  cls

return

GET_SPACESHIP_IMAGES:
   ` this code also uses primitive DBP drawing commands to draw three spaceship images
   cls
   ink 812287,0
   line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
   ink 13132800,0
   line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
   dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
   line 18,16,37,16 : line 19,17,35,17
   ink 6579455,0
   box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
   line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
   box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
   line 55,10,55,11

ink 16711680,0
   box 19,15,21,17
   ink 9868950,0
   box 11,8,17,12 : box 22,8,28,12 : box 33,8,39,12
   box 44,8,50,12
   ink 6579300,0
   box 12,9,16,11 : box 23,9,27,11 : box 34,9,38,11
   box 45,9,49,11
   get image 9,0,0,56,18

cls
   ink 812287,0
   line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
   ink 13132800,0
   line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
   dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
   line 18,16,37,16 : line 19,17,35,17
   ink 6579455,0
   box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
   line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
   box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
   line 55,10,55,11

ink 16711680,0
   box 25,15,27,17
   ink 9868950,0
   box 7,8,13,12 : box 18,8,24,12 : box 29,8,35,12
   box 40,8,46,12
   ink 6579300,0
   box 8,9,12,11 : box 19,9,23,11 : box 30,9,34,11
   box 41,9,45,11
   get image 11,0,0,56,18

cls
   ink 812287,0
   line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
   ink 13132800,0
   line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
   dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
   line 18,16,37,16 : line 19,17,35,17
   ink 6579455,0
   box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
   line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
   box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
   line 55,10,55,11

ink 16711680,0
   box 33,15,35,17
   ink 9868950,0
   box 4,8,10,12 : box 15,8,21,12 : box 26,8,32,12
   box 37,9,43,12
   ink 6579300,0
   box 5,9,9,11 : box 16,9,20,11 : box 27,9,31,11
   box 38,9,42,11
   get image 12,0,0,56,18
   CLS
return

+ Code Snippet

`Set the game up
Set Display Mode 800, 600, 32
PosX=400 : PosY=550 : Hide Mouse : SheildL=400 : MaxBullets=5 : Dim FiredBullet(MaxBullets+1) : Dim BulletPosX(MaxBullets+1)  : Dim BulletPosY(MaxBullets+1)
GoSub MakeSprites:
AlienY=20
AlienX=10
`Dim AlienX(25)
`Dim AlienY(25)
Sync on : Sync Rate 60
T1=Timer()
T2=Timer()
DIM AlienX(21)
Dim AlienY(21)
DIm Alien(21)
GoSub GET_BULLET_IMAGES:
GoSub GET_SPACESHIP_IMAGES:
SheildLL=SheildL
SheildL=SheildL*100
SpeedX=1

`***********
`*Main Loop*
`***********


Do
   Eh=Timer()-T2
   If Eh>20
      FPS=Screen FPS()
      CLS
      Text 0,0, "FPS: " + Str$(FPS)
      T2=Timer()
      BR=Timer()-T1
      BR=BR/300
      Sprite 7, 0, 14, 3
      Ink 16777215, 0 : `Remaining Shield Level
      If Keystate(203)=1 and PosX>=4 then PosX=PosX-9 : `Go left
      If Keystate(205)=1 and PosX<=778 Then PosX=PosX+9 : `Go Right
      If Keystate(57)=1
         Gosub AddBullet:
      Endif
      If BulletCount > 0 Then Gosub MoveBullet:
      Gosub PlaceAliens:
      Sprite 1, PosX, PosY, 1
   Endif
   Sync
Loop

`************
`*Procedures*
`************


MoveBullet:
`Colision check and move the bullet.
   For N=1 to Maxbullets+1
      For G=1 to 21
         If BulletPosY(N)<=AlienY(G) and BulletPosY(N)>=AlienY(G)-20
            If BulletPosX(N)<AlienX(G)+50 and BulletPosX(N)>=AlienX(G)
               Die=G+9
               Alien(G)=1
               Hide Sprite Die
               Delete Sprite N
               FiredBullet(N)=0
            Endif
         Endif
      Next G
      If FiredBullet(N)=1
         BulletPosY(N)=BulletPosY(N)-10
         Sprite N, BulletPosX(N),BulletPosY(N), 2
         If BulletPosY(N) < -5
             FiredBullet(N)=0: `Reset 'bullet currently in flight' flag
         Endif
      Endif
   Next N
Return

AddBullet:
`Makes the bullet if space is pressed.
   N=1
   Repeat
   N=N+1
      If FiredBullet(N)=0 and BR>1
         FiredBullet(N)=1
         BulletPosX(N) = PosX + 8
         BulletPosY(N) = 550
         Inc BulletCount
         T1=Timer()
         Exit
      Endif
   Until N=maxbullets+1
Return

PlaceAliens:
`Move the aliens
   For N=1 To 3
       If alien(N)=0
         If N=1
            AlienY(1)=AlienY
         Endif
         If N=2
            AlienY(2)=AlienY+40
         Endif
         If N=3
            AlienY(3)=AlienY+80
         Endif
         AlienX(N)=AlienX
         Sprite 10, AlienX(N), AlienY(1), 9
         Sprite 11, AlienX(N), AlienY(2), 12
         Sprite 12, AlienX(N), AlienY(3), 11
      Endif
   Next N
   For N=4 To 6
      If Alien(n)=0
         AlienX(N)=AlienX+100
         If N=4
            AlienY(4)=AlienY
         Endif
         If N=5
            AlienY(5)=AlienY+40
         Endif
         If N=6
            AlienY(6)=AlienY+80
         Endif
         Sprite 13, AlienX(N), AlienY(4), 9
         Sprite 14, AlienX(N), AlienY(5), 12
         Sprite 15, AlienX(N), AlienY(6), 11
      Endif
   Next N
   For N=7 To 9
      If Alien(n)=0
         If N=7
            AlienY(7)=AlienY
         Endif
         If N=8
            AlienY(8)=AlienY+40
         Endif
         If N=9
            AlienY(9)=AlienY+80
         Endif
         AlienX(N)=AlienX+200
         Sprite 16, AlienX(N), AlienY(7), 9
         Sprite 17, AlienX(N), AlienY(8), 12
         Sprite 18, AlienX(N), AlienY(9), 11
      Endif
   Next N
   For N=10 To 12
      If Alien(n)=0
         AlienX(N)=AlienX+300
         If N=10
            AlienY(10)=AlienY
         Endif
         If N=11
            AlienY(11)=AlienY+40
         Endif
         If N=12
            AlienY(12)=AlienY+80
         Endif
         Sprite 19, AlienX(N), AlienY(10), 9
         Sprite 20, AlienX(N), AlienY(11), 12
         Sprite 21, AlienX(N), AlienY(12), 11
      Endif
   Next N
   For N=13 To 15
      If Alien(n)=0
         If N=13
            AlienY(13)=AlienY
         Endif
         If N=14
            AlienY(14)=AlienY+40
         Endif
         If N=15
            AlienY(15)=AlienY+80
         Endif
         AlienX(N)=AlienX+400
         Sprite 22, AlienX(N), AlienY(13), 9
         Sprite 23, AlienX(N), AlienY(14), 12
         Sprite 24, AlienX(N), AlienY(15), 11
      Endif
   Next N
   For N=16 To 18
      If Alien(n)=0
         AlienX(N)=AlienX+500
         If N=16
            AlienY(16)=AlienY
         Endif
         If N=17
            AlienY(17)=AlienY+40
         Endif
         If N=18
            AlienY(18)=AlienY+80
         Endif
         Sprite 25, AlienX(N), AlienY(16), 9
         Sprite 26, AlienX(N), AlienY(17), 12
         Sprite 27, AlienX(N), AlienY(18), 11
      Endif
   Next N
   For N=19 To 21
      If Alien(n)=0
         AlienX(N)=AlienX+600
         If N=19
            AlienY(19)=AlienY
         Endif
         If N=20
            AlienY(20)=AlienY+40
         Endif
         If N=21
            AlienY(21)=AlienY+80
         Endif
         Sprite 28, AlienX(N), AlienY(19), 9
         Sprite 29, AlienX(N), AlienY(20), 12
         Sprite 30, AlienX(N), AlienY(21), 11
      Endif
   Next N
   AlienX=AlienX+SpeedX
   If IncSpeed=2
      IncSpeed=0
      SpeedX=SpeedX+1
   Endif
   If AlienX>=125
      IncSpeed=IncSpeed+1
      AlienY=AlienY+25
      Speedx=0-SpeedX
   Endif
   If AlienX<=9
      SpeedX=0-SpeedX
      AlienY=AlienY+25
      IncSpeed=IncSpeed+1
   Endif
Return

MakeSprites:
   Create Bitmap 1, 320, 200 : `Eh, nothing important, just making the ship and bullet
   Ink 11507455, 0
   Line 10, 1, 2, 10 : Line 10, 1, 18, 10 : Line 10, 1, 3, 10
   Line 10, 1, 17, 10 : Line 10, 1, 4, 10 : Line 10, 1, 16, 10
   Line 10, 1, 5, 10 : Line 10, 1, 15, 10 : Line 10, 1, 6, 10
   Line 10, 1, 14, 10 : Line 8, 5, 11, 5 : Line 8, 6, 12, 6
   Ink 0, 0
   Box 8, 3, 11, 5
   Get image 1, 1, 1, 20, 10
   CLS
   Ink 16776960, 0
   Box 1, 1, 2, 6
   Get Image 2, 1, 1, 10, 10
   Sprite 2,-20,BulletPosY,2: `Place off screen
   Set Current Bitmap 0
   Delete Bitmap 1
   Ink 255, 0
   Box 0, 14, SheildL/2, 16
   Get Image 3, 0, 14, 200, 16
   Sprite 6, -100, -100, 3
Return


GET_BULLET_IMAGES:
   `Makes the aliens bullets.
   `For weaker
  cls
  ink 16711680,0
  line 4,0,7,0 : line 3,1,6,1: line 2,2,5,2
  line 1,3,4,3 : line 0,4,3,4 : line 1,5,4,5
  line 2,6,5,6 : line 3,7,6,7 : line 4,8,7,8
  line 3,9,6,9 : line 2,10,5,10 : line 1,11,4,11
  line 0,12,3,12 : line 1,13,4,13 : line 2,14,5,14
  line 3,15,6,15 : line 4,16,7,16
  get image 7,0,0,8,17
  cls
  ` For stronger
  Ink 65280, 0
  line 0,0,3,0 : line 1,1,4,1 : line 2,2,5,2
  line 3,3,6,3 : line 4,4,7,4 : line 3,5,6,5
  line 2,6,5,6 : line 1,7,4,7 : line 0,8,3,8
  line 1,9,4,9 : line 2,10,5,10 : line 3,11,6,11
  line 4,12,7,12 : line 3,13,6,13 : line 2,14,5,14
  line 1,15,4,15 : line 0,16,3,16
  get image 8,0,0,6,14
  cls

return




GET_SPACESHIP_IMAGES:
   ` this code also uses primitive DBP drawing commands to draw three spaceship images
   cls
   ink 812287,0
   line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
   ink 13132800,0
   line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
   dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
   line 18,16,37,16 : line 19,17,35,17
   ink 6579455,0
   box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
   line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
   box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
   line 55,10,55,11

   ink 16711680,0
   box 19,15,21,17
   ink 9868950,0
   box 11,8,17,12 : box 22,8,28,12 : box 33,8,39,12
   box 44,8,50,12
   ink 6579300,0
   box 12,9,16,11 : box 23,9,27,11 : box 34,9,38,11
   box 45,9,49,11
   get image 9,0,0,56,18

   cls
   ink 812287,0
   line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
   ink 13132800,0
   line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
   dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
   line 18,16,37,16 : line 19,17,35,17
   ink 6579455,0
   box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
   line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
   box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
   line 55,10,55,11

   ink 16711680,0
   box 25,15,27,17
   ink 9868950,0
   box 7,8,13,12 : box 18,8,24,12 : box 29,8,35,12
   box 40,8,46,12
   ink 6579300,0
   box 8,9,12,11 : box 19,9,23,11 : box 30,9,34,11
   box 41,9,45,11
   get image 11,0,0,56,18

   cls
   ink 812287,0
   line 13,1,42,1 : box 12,2,43,3 : box 11,4,44,5
   ink 13132800,0
   line 10,4,10,5 : line 11,2,11,3 : dot 12,1 : line 13,0,42,0
   dot 43,1 : line 44,2,44,3 : line 45,4,45,5 : line 15,15,40,15
   line 18,16,37,16 : line 19,17,35,17
   ink 6579455,0
   box 7,6,48,14 : dot 6,14 : dot 49,14 : box 4,7,6,13
   line 2,8,3,8 : box 1,9,3,12 : line 0,10,0,11
   box 49,7,51,13 : box 52,8,53,12 : line 54,9,54,12
   line 55,10,55,11

   ink 16711680,0
   box 33,15,35,17
   ink 9868950,0
   box 4,8,10,12 : box 15,8,21,12 : box 26,8,32,12
   box 37,9,43,12
   ink 6579300,0
   box 5,9,9,11 : box 16,9,20,11 : box 27,9,31,11
   box 38,9,42,11
   get image 12,0,0,56,18
   CLS
return

The glitch is, even though I hide the sprite, it is still where it dies, and it makes the bullet go bye bye, so it stops early. But, when I use "Delete Sprite..." Then the ship stays there....

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Space Invaders Clone.