Space Invaders help - GameCreators Forum

Author

Message

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 16th Mar 2009 20:46 Edited at: 16th Mar 2009 21:01

Link

ok so i started trying to make a game again because i've been making other stuff for a while and so ithought i'd start with space invaders.

well i have shooting and i know how i'm gunna do collision. its just the enemies. welli think i know how i'm going to do it but what do you thing about this approach?

i have a editor where you edit "Frames" for where the enemy moves then you save Stages and save those stages into a level. and each frame has the x and y for every enemy in it. then i can just load in the final level text file and use the stages and frames as i need them.

i havn't thought about the enemies shooting yet though.

Heres the game part

remstart
   -------------------------------------------------------------------
   program name:
   -------------------------------------------------------------------
   written by: Caleb Stewart
   date:
   -------------------------------------------------------------------
   comments:
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
Set window on
Set window position 160,120

LoadImages()

Global Player
Global Enemy
Global Bullet
Player = 2
Enemy = 1
BulletI = 3

Dim Grid(30,30)
Dim Bullet(30)
Dim BulletData(100,5)
Grid(0,0)=96
Grid(1,0)=0
For X=1 to 30 step 1
   Grid(0,X)=Grid(0,X-1)+32
   Grid(1,X)=Grid(1,X-1)+32
next x

Do

Ink rgb(255,255,255),0
   line grid(0,0),0,Grid(0,0),479
   line grid(0,14),0,Grid(0,14),479

sprite Player,Grid(0,PX),Grid(1,PY),player
   set sprite player,0,1

If rightkey() and press=0 and px<13 Then PX=PX+1 : press=1
   if leftkey() and Press=0 and PX>0 then px=px-1 : Press=1
   IF upkey() and press=0 and PY>0 then py=py-1 : press=1
   If downkey() and press=0 and py<14 then py=py+1 : press=1
   If leftkey()=0 and Rightkey()=0 and upkey()=0 and downkey()=0 then press=0

If Spacekey()
      Bullet=FindFreeBullet()
      If Bullet>0
         if auto=1 and timer()-counter>10
            Bullet(Bullet)=1
            BulletData(Bullet,0)=Grid(0,PX)
            BulletData(Bullet,1)=Grid(1,PY)
            counter=0
         endif
         If Auto=0 and skey=0
            Bullet(Bullet)=1
            BulletData(Bullet,0)=Grid(0,PX)
            BulletData(Bullet,1)=Grid(1,PY)
            Skey=1
         endif
      endif
   endif

If keystate(45)=1 and Adown=0 and auto=0 then auto=1 : adown=1
   If keystate(45)=1 and ADown=0 and Auto=1 then Auto=0 : adown=1
   If keystate(45)=0 then adown=0

Text 0,0,"Automatic: " + Str$(Auto)

if spacekey()=0 then skey=0

Gosub HandleBullets

Counter=Counter+Timer()

Sync
Cls
Loop

HandleBullets:

For X=2 to 30
      If Bullet(X)=1
         if bulletdata(X,1)>-1
            Sprite X+99,BulletData(X,0),BulletData(X,1),BulletI
            If timer()-bulletcounter>5
               if Bulletdata(X,1)>0
                  bulletcounter=0
                  BulletData(X,1)=Bulletdata(X,1)-2
               else
                  Bullet(X)=0
                  delete sprite X+99
               endif
            endif
         endif
      endif
   next x

BulletCounter=BulletCounter+Timer()

return

Function LoadImages()

Load Image "Sprites/Invadersprites.bmp",100
   Paste image 100,0,0
   Get image 1,0,0,32,32
   Get image 2,32,0,64,32
   Get image 3,64,0,96,32
   cls

endfunction

Function UpdateBulletPositions()

For X=1 to 30
      IF bullet(X)=1
         If Bulletdata(X,1)>0
            BulletData(X,1)=BulletData(X,1)-1
         else
         endif
      endif
   next x

endfunction

Function findfreebullet()

For X=2 to 30
      If bullet(X)=0 then exitfunction X
   next x

endfunction 0

+ Code Snippet

remstart
   -------------------------------------------------------------------
   program name:
   -------------------------------------------------------------------
   written by: Caleb Stewart
   date:
   -------------------------------------------------------------------
   comments:
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
Set window on
Set window position 160,120

LoadImages()

Global Player
Global Enemy
Global Bullet
Player = 2
Enemy = 1
BulletI = 3

Dim Grid(30,30)
Dim Bullet(30)
Dim BulletData(100,5)
Grid(0,0)=96
Grid(1,0)=0
For X=1 to 30 step 1
   Grid(0,X)=Grid(0,X-1)+32
   Grid(1,X)=Grid(1,X-1)+32
next x


Do

   Ink rgb(255,255,255),0
   line grid(0,0),0,Grid(0,0),479
   line grid(0,14),0,Grid(0,14),479

   sprite Player,Grid(0,PX),Grid(1,PY),player
   set sprite player,0,1

   If rightkey() and press=0 and px<13 Then PX=PX+1 : press=1
   if leftkey() and Press=0 and PX>0 then px=px-1 : Press=1
   IF upkey() and press=0 and PY>0 then py=py-1 : press=1
   If downkey() and press=0 and py<14 then py=py+1 : press=1
   If leftkey()=0 and Rightkey()=0 and upkey()=0 and downkey()=0 then press=0


   If Spacekey()
      Bullet=FindFreeBullet()
      If Bullet>0
         if auto=1 and timer()-counter>10
            Bullet(Bullet)=1
            BulletData(Bullet,0)=Grid(0,PX)
            BulletData(Bullet,1)=Grid(1,PY)
            counter=0
         endif
         If Auto=0 and skey=0
            Bullet(Bullet)=1
            BulletData(Bullet,0)=Grid(0,PX)
            BulletData(Bullet,1)=Grid(1,PY)
            Skey=1
         endif
      endif
   endif

   If keystate(45)=1 and Adown=0 and auto=0 then auto=1 : adown=1
   If keystate(45)=1 and ADown=0 and Auto=1 then Auto=0 : adown=1
   If keystate(45)=0 then adown=0

   Text 0,0,"Automatic: " + Str$(Auto)

   if spacekey()=0 then skey=0

   Gosub HandleBullets

   Counter=Counter+Timer()

Sync
Cls
Loop

HandleBullets:

   For X=2 to 30
      If Bullet(X)=1
         if bulletdata(X,1)>-1
            Sprite X+99,BulletData(X,0),BulletData(X,1),BulletI
            If timer()-bulletcounter>5
               if Bulletdata(X,1)>0
                  bulletcounter=0
                  BulletData(X,1)=Bulletdata(X,1)-2
               else
                  Bullet(X)=0
                  delete sprite X+99
               endif
            endif
         endif
      endif
   next x


   BulletCounter=BulletCounter+Timer()

return



Function LoadImages()

   Load Image "Sprites/Invadersprites.bmp",100
   Paste image 100,0,0
   Get image 1,0,0,32,32
   Get image 2,32,0,64,32
   Get image 3,64,0,96,32
   cls

endfunction

Function UpdateBulletPositions()

   For X=1 to 30
      IF bullet(X)=1
         If Bulletdata(X,1)>0
            BulletData(X,1)=BulletData(X,1)-1
         else
         endif
      endif
   next x

endfunction

Function findfreebullet()

   For X=2 to 30
      If bullet(X)=0 then exitfunction X
   next x

endfunction 0

And the editor (very far from done lol)

remstart
   -------------------------------------------------------------------
   program name: Invaders Ai Editor
   -------------------------------------------------------------------
   written by: Caleb Stewart
   date:
   -------------------------------------------------------------------
   comments:
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
WinX=(640/2)/2+25
WinY=(480/2)/2+25
Set window on
Set window position WinX,WinY
If file exist("Keyframes.ai") then delete file "Keyframes.ai"
Open to write 1,"Keyframes.AI"

Global Keyframe
Global EnemyNum

Dim AI(10,1)
Dim Map(1,14)
dim Array$(1000)
map(0,0)=96
Map(1,0)=0
For X=1 to 14
   Map(0,X)=Map(0,X-1)+32
   Map(1,X)=Map(1,X-1)+32
next x

Load image "Sprites/InvaderSprites.bmp",100
Paste image 100,0,0
Get image 1,0,0,32,32
delete image 100
cls

DrawGrid()

Do

Paste image 2,96,0
   For Y=0 to 14
      for X=0 to 13
         If mouse_inside(Map(0,X),Map(1,Y),Map(0,X)+32,Map(1,Y)+32)=1
            If mouseclick()
               if enemynum<10 and MC=0
                  Paste image 1,Map(0,X),Map(1,Y)
                  AI(EnemyNum,0)=X
                  AI(EnemyNum,1)=Y
                  Enemynum=enemynum+1
                  Get image 2,96,0,544,480
                  mc=1
               endif
            else
               mc=0
            endif
         endif
      next x
   next y

if keystate(46)=1
      cls rgb(0,0,0)
      DrawGrid()
      For X=0 to enemynum
         AI(X,0)=0
         AI(X,1)=0
      next x
      Enemynum=0
   endif

IF mouseclick() and mouse_inside(10,10,85,30)=1
      MakeButton(10,10,"Save frame",1)
      repeat : sync : until Mouseclick()=0
      For X=0 to enemynum-1
         Write string 1,"Enemy " + str$(X+1)
         Write string 1,Str$(AI(X,0))
         Write string 1,Str$(AI(X,1))
      next x
      cls RGB(0,0,0)
      DrawGrid()
      For X=0 to enemynum
         AI(X,0)=0
         AI(X,1)=0
      next x
      Enemynum=0
      keyframe=keyframe+1
   else
      MakeButton(10,10,"Save frame",0)
   endif

If mouseclick() and mouse_inside(10,35,85,55)=1
      Makebutton(10,35,"Save Stage",1)
      Repeat : Sync : Until Mouseclick()=0
      Close file 1
      Copy file "Keyframes.ai","Stage " + Str$(stage) + ".txt"
      Stage=Stage+1
      Delete file "keyframes.Ai"
      Open to write 1,"Keyframes.ai"
      cls RGB(0,0,0)
      DrawGrid()
      For X=0 to enemynum
         AI(X,0)=0
         AI(X,1)=0
      next x
      Enemynum=0
      keyframe=0
   else
      Makebutton(10,35,"Save Stage",0)
   endif

If mouseclick() and mouse_inside(10,60,85,80)=1
      MakeButton(10,60,"Save Level",1)
      repeat : sync : until mouseclick()=0
      Open to write 2,"Level.txt"
      For X=0 to Stage+1
         LoadStage()
         Write string 2,"Stage " + Str$(X)
         For X=0 to 1000
            If Array$(X)>""
               Write string 2,Array$(X)
            endif
         next x
      next x
   else
      MakeButton(10,60,"Save Level",0)
   endif

Sync
Cls RGB(192,192,192)
Loop

Function DrawGrid()
   ink rgb(255,255,255),0
   For Y=0 to 14
      for X=0 to 13
         Line Map(0,X),Map(1,Y),Map(0,X)+32,Map(1,Y)
         Line Map(0,X),Map(1,Y),Map(0,X),Map(1,Y)+32
         Line Map(0,X),Map(1,Y)+32,Map(0,X)+32,Map(1,Y)+32
         Line Map(0,X)+32,Map(1,Y),Map(0,X)+32,Map(1,Y)+32
      next x
   next y
   Line 543,0,543,479
   line 96,479,543,479
   Get image 2,96,0,544,480

endfunction

Function Mouse_inside(X,Y,W,D)

if mouseX()>X and MouseX()<W
      If mouseY()>Y and MouseY()<D
         exitfunction 1
      endif
   endif

endfunction -1

Function MakeButton(X,Y,Txt$,Press)

Width = Len(txt$)*5+20

If press=0
      ink rgb(255,255,255),0
      Line X,Y,X+Width,Y
      Line X,Y,X,Y+20
      Ink rgb(0,0,0),0
      Line X+width,Y,X+width,Y+20
      line X,Y+20,X+Width,Y+20
      Text X+5,Y,Txt$
   else
      ink rgb(0,0,0),0
      Line X,Y,X+Width,Y
      Line X,Y,X,Y+20
      Ink rgb(255,255,255),0
      Line X+width,Y,X+width,Y+20
      line X,Y+20,X+Width,Y+20
      ink rgb(0,0,0),0
      Text X+5,Y,Txt$
   endif

endfunction

+ Code Snippet

remstart
   -------------------------------------------------------------------
   program name: Invaders Ai Editor
   -------------------------------------------------------------------
   written by: Caleb Stewart
   date:
   -------------------------------------------------------------------
   comments:
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
WinX=(640/2)/2+25
WinY=(480/2)/2+25
Set window on
Set window position WinX,WinY
If file exist("Keyframes.ai") then delete file "Keyframes.ai"
Open to write 1,"Keyframes.AI"

Global Keyframe
Global EnemyNum

Dim AI(10,1)
Dim Map(1,14)
dim Array$(1000)
map(0,0)=96
Map(1,0)=0
For X=1 to 14
   Map(0,X)=Map(0,X-1)+32
   Map(1,X)=Map(1,X-1)+32
next x

Load image "Sprites/InvaderSprites.bmp",100
Paste image 100,0,0
Get image 1,0,0,32,32
delete image 100
cls

DrawGrid()


Do

   Paste image 2,96,0
   For Y=0 to 14
      for X=0 to 13
         If mouse_inside(Map(0,X),Map(1,Y),Map(0,X)+32,Map(1,Y)+32)=1
            If mouseclick()
               if enemynum<10 and MC=0
                  Paste image 1,Map(0,X),Map(1,Y)
                  AI(EnemyNum,0)=X
                  AI(EnemyNum,1)=Y
                  Enemynum=enemynum+1
                  Get image 2,96,0,544,480
                  mc=1
               endif
            else
               mc=0
            endif
         endif
      next x
   next y

   if keystate(46)=1
      cls rgb(0,0,0)
      DrawGrid()
      For X=0 to enemynum
         AI(X,0)=0
         AI(X,1)=0
      next x
      Enemynum=0
   endif

   IF mouseclick() and mouse_inside(10,10,85,30)=1
      MakeButton(10,10,"Save frame",1)
      repeat : sync : until Mouseclick()=0
      For X=0 to enemynum-1
         Write string 1,"Enemy " + str$(X+1)
         Write string 1,Str$(AI(X,0))
         Write string 1,Str$(AI(X,1))
      next x
      cls RGB(0,0,0)
      DrawGrid()
      For X=0 to enemynum
         AI(X,0)=0
         AI(X,1)=0
      next x
      Enemynum=0
      keyframe=keyframe+1
   else
      MakeButton(10,10,"Save frame",0)
   endif

   If mouseclick() and mouse_inside(10,35,85,55)=1
      Makebutton(10,35,"Save Stage",1)
      Repeat : Sync : Until Mouseclick()=0
      Close file 1
      Copy file "Keyframes.ai","Stage " + Str$(stage) + ".txt"
      Stage=Stage+1
      Delete file "keyframes.Ai"
      Open to write 1,"Keyframes.ai"
      cls RGB(0,0,0)
      DrawGrid()
      For X=0 to enemynum
         AI(X,0)=0
         AI(X,1)=0
      next x
      Enemynum=0
      keyframe=0
   else
      Makebutton(10,35,"Save Stage",0)
   endif

   If mouseclick() and mouse_inside(10,60,85,80)=1
      MakeButton(10,60,"Save Level",1)
      repeat : sync : until mouseclick()=0
      Open to write 2,"Level.txt"
      For X=0 to Stage+1
         LoadStage()
         Write string 2,"Stage " + Str$(X)
         For X=0 to 1000
            If Array$(X)>""
               Write string 2,Array$(X)
            endif
         next x
      next x
   else
      MakeButton(10,60,"Save Level",0)
   endif


Sync
Cls RGB(192,192,192)
Loop

Function DrawGrid()
   ink rgb(255,255,255),0
   For Y=0 to 14
      for X=0 to 13
         Line Map(0,X),Map(1,Y),Map(0,X)+32,Map(1,Y)
         Line Map(0,X),Map(1,Y),Map(0,X),Map(1,Y)+32
         Line Map(0,X),Map(1,Y)+32,Map(0,X)+32,Map(1,Y)+32
         Line Map(0,X)+32,Map(1,Y),Map(0,X)+32,Map(1,Y)+32
      next x
   next y
   Line 543,0,543,479
   line 96,479,543,479
   Get image 2,96,0,544,480

endfunction

Function Mouse_inside(X,Y,W,D)

   if mouseX()>X and MouseX()<W
      If mouseY()>Y and MouseY()<D
         exitfunction 1
      endif
   endif

endfunction -1

Function MakeButton(X,Y,Txt$,Press)

   Width = Len(txt$)*5+20

   If press=0
      ink rgb(255,255,255),0
      Line X,Y,X+Width,Y
      Line X,Y,X,Y+20
      Ink rgb(0,0,0),0
      Line X+width,Y,X+width,Y+20
      line X,Y+20,X+Width,Y+20
      Text X+5,Y,Txt$
   else
      ink rgb(0,0,0),0
      Line X,Y,X+Width,Y
      Line X,Y,X,Y+20
      Ink rgb(255,255,255),0
      Line X+width,Y,X+width,Y+20
      line X,Y+20,X+Width,Y+20
      ink rgb(0,0,0),0
      Text X+5,Y,Txt$
   endif

endfunction

and i attached the images.

New Site! Check it out \/

Back to top

Profile PM Website

Ashingda 27

18

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 16th Mar 2009 22:19

Link

Looking good Caleb.

First of all this is coded in DBPro and because this is the DBC thread most people here might not be able to run your codes as it is.

Anyways, I think it's better to use a float for the bullet. It's easier to control the speed and you won't have to time for it. Also I don't think you'll need a grid for the space ship.

Your main loop is a bit large for my liking but overall your coding is quite easy to follow. Keep up the good work

.

Back to top

Profile PM Email

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 16th Mar 2009 22:47 Edited at: 16th Mar 2009 23:14

Link

Thanks! i havn't been programing games for a while with c++ and random little tools that i was playing with so i thought i'd give it a try.

this is coded in dbc. oh whoops forgot to change the globals to dims for the forums :/ I'm using extended syntax on darkedit. its easier then typing (0) after allot of the variables lol

ya i have a habit of making long main loops

i was just thinking that a little bit ago. i'm going to shorten it

I'll see about switching the player over to pixel movement.

oh and i forgot about floats :/ whoops i have been dealing with some other programs that didn't use them and i forgot to use them here thanks! lol

Here's the updated code with smaller loop and i took out the extended syntax stuff. and the other stuff you suggested.

remstart
   -------------------------------------------------------------------
   program name; Invaders
   -------------------------------------------------------------------
   written by: Caleb Stewart
   date;
   -------------------------------------------------------------------
   comments;
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
Set window on
Set window position 160,120

LoadImages()

Player = 2
Enemy = 1
BulletI = 3

Dim Grid(30,30)
Dim Bullet(30)
Dim BulletData#(100,5)
Grid(0,0)=96
Grid(1,0)=0
For X=1 to 30 step 1
   Grid(0,X)=Grid(0,X-1)+32
   Grid(1,X)=Grid(1,X-1)+32
next x

PX#=96

Do

sprite Player,PX#,PY#,player
   set sprite player,0,1

Gosub HandleInput
   Gosub HandleBullets
   Gosub HandleGUI

Text 0,0,"Automatic: " + Str$(Auto)

Sync
Cls
Loop

HandleGUI:

Ink rgb(255,255,255),0
   line grid(0,0),0,Grid(0,0),479
   line grid(0,14),0,Grid(0,14),479

return

HandleInput:

If rightkey() and PX#<545 Then PX#=PX#+1.5
   if leftkey() and PX#>93 then px#=px#-1.5
   IF upkey() and PY#>-1 then py#=py#-1.5
   If downkey() and py#<449 then py#=py#+1.5

If Spacekey()
      Bullet=FindFreeBullet()
      If Bullet>0
         if auto=1 and timer()-counter>10
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=pX#
            BulletData#(Bullet,1)=PY#
            counter=0
         endif
         If Auto=0 and skey=0
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=PX#
            BulletData#(Bullet,1)=PY#
            Skey=1
         endif
      endif
   endif

if spacekey()=0 then skey=0

Counter=Counter+Timer()

If keystate(45)=1 and Adown=0 and auto=0 then auto=1 : adown=1
   If keystate(45)=1 and ADown=0 and Auto=1 then Auto=0 : adown=1
   If keystate(45)=0 then adown=0

return

HandleBullets:

For X=2 to 30
      If Bullet(X)=1
         if bulletdata#(X,1)>-1
            Sprite X+99,BulletData#(X,0),BulletData#(X,1),BulletI
            If timer()-bulletcounter>5
               if Bulletdata#(X,1)>1
                  bulletcounter=0
                  BulletData#(X,1)=Bulletdata#(X,1)-2.0
               else
                  Bullet(X)=0
                  BulletData#(X,0)=0
                  BulletData#(X,1)=0
                  delete sprite X+99
               endif
            endif
         endif
      endif
   next x

BulletCounter=BulletCounter+Timer()

return

Function LoadImages()

Load Image "Sprites/Invadersprites.bmp",100
   Paste image 100,0,0
   Get image 1,0,0,32,32
   Get image 2,32,0,64,32
   Get image 3,64,0,96,32
   cls

endfunction

Function findfreebullet()

For X=2 to 30
      If bullet(X)=0 then exitfunction X
   next x

endfunction 0

+ Code Snippet

remstart
   -------------------------------------------------------------------
   program name; Invaders
   -------------------------------------------------------------------
   written by: Caleb Stewart
   date;
   -------------------------------------------------------------------
   comments;
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
Set window on
Set window position 160,120

LoadImages()

Player = 2
Enemy = 1
BulletI = 3

Dim Grid(30,30)
Dim Bullet(30)
Dim BulletData#(100,5)
Grid(0,0)=96
Grid(1,0)=0
For X=1 to 30 step 1
   Grid(0,X)=Grid(0,X-1)+32
   Grid(1,X)=Grid(1,X-1)+32
next x

PX#=96


Do

   sprite Player,PX#,PY#,player
   set sprite player,0,1

   Gosub HandleInput
   Gosub HandleBullets
   Gosub HandleGUI

   Text 0,0,"Automatic: " + Str$(Auto)


Sync
Cls
Loop

HandleGUI:

   Ink rgb(255,255,255),0
   line grid(0,0),0,Grid(0,0),479
   line grid(0,14),0,Grid(0,14),479

return


HandleInput:

   If rightkey() and PX#<545 Then PX#=PX#+1.5
   if leftkey() and PX#>93 then px#=px#-1.5
   IF upkey() and PY#>-1 then py#=py#-1.5
   If downkey() and py#<449 then py#=py#+1.5

   If Spacekey()
      Bullet=FindFreeBullet()
      If Bullet>0
         if auto=1 and timer()-counter>10
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=pX#
            BulletData#(Bullet,1)=PY#
            counter=0
         endif
         If Auto=0 and skey=0
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=PX#
            BulletData#(Bullet,1)=PY#
            Skey=1
         endif
      endif
   endif

   if spacekey()=0 then skey=0

   Counter=Counter+Timer()

   If keystate(45)=1 and Adown=0 and auto=0 then auto=1 : adown=1
   If keystate(45)=1 and ADown=0 and Auto=1 then Auto=0 : adown=1
   If keystate(45)=0 then adown=0

return



HandleBullets:

   For X=2 to 30
      If Bullet(X)=1
         if bulletdata#(X,1)>-1
            Sprite X+99,BulletData#(X,0),BulletData#(X,1),BulletI
            If timer()-bulletcounter>5
               if Bulletdata#(X,1)>1
                  bulletcounter=0
                  BulletData#(X,1)=Bulletdata#(X,1)-2.0
               else
                  Bullet(X)=0
                  BulletData#(X,0)=0
                  BulletData#(X,1)=0
                  delete sprite X+99
               endif
            endif
         endif
      endif
   next x


   BulletCounter=BulletCounter+Timer()

return



Function LoadImages()

   Load Image "Sprites/Invadersprites.bmp",100
   Paste image 100,0,0
   Get image 1,0,0,32,32
   Get image 2,32,0,64,32
   Get image 3,64,0,96,32
   cls

endfunction

Function findfreebullet()

   For X=2 to 30
      If bullet(X)=0 then exitfunction X
   next x

endfunction 0

Btw i know it is not nearly as important as anything at all lol but any idea for a name? lol this game has been remade so many times that i don't have one. when i first started i though dark invaders then i realized everyone put dark infront of everything here lol

New Site! Check it out \/

Back to top

Profile PM Website

Ashingda 27

18

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 17th Mar 2009 00:12

Link

Awsome!

As for a title "Dark Invader" would have been just fine, this game is remade alot cause it's great for learning. You can probly add your user name in there like "Caleb's Dark Invader" or something.

Looking forward to seeing enemies.

Back to top

Profile PM Email

That1Smart Guy

17

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 17th Mar 2009 00:26

Link

i tried making one once, but abandoned it, not because of difficulty or bugs, i just kinda lost interest in the project and went to a break-out game, which i eventually gave up in same way.

Come to think of it, i havent finished a project in a while, that will change with my current poker game tho

Back to top

Profile PM Email

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 17th Mar 2009 01:55 Edited at: 17th Mar 2009 02:20

Link

@Ashinga

Good point i might do that.

@SmartGuy

hahaha ya me either thats why i really want to do this

@everyone

I'm working on enemies now. it's going ok. really as long as i have the ai editor then the biggest thing is collision with the bullets. which right now isn't working great. well it is just for some reason it doesn't kill the last enemy and i don't know why

well i think i might. it might be because of the way i'm doing the enemy numbers. in the editor if you don't put the enemies in the same order in every frame then the numbers get mixed up but thats something easy to fix I'm going to fix that and see if it works.

heres the updated code

remstart
   -------------------------------------------------------------------
   program name; Invaders
   -------------------------------------------------------------------
   written by: Caleb Stewart
   date;
   -------------------------------------------------------------------
   comments;
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
Set window on
Set window position 160,120

LoadImages()

Player = 2
Enemy = 1
BulletI = 3
Dim keyframe(0)

Dim Grid(30,30)
Dim Bullet(30)
Dim BulletData#(100,5)
Dim AI(10,20,1)
Dim Enemy(10)
For X=0 to 10 : enemy(X)=1 : next x
Grid(0,0)=96
Grid(1,0)=0
For X=1 to 30 step 1
   Grid(0,X)=Grid(0,X-1)+32
   Grid(1,X)=Grid(1,X-1)+32
next x

PX#=96

Loadstage(0,20)

Do

sprite Player,PX#,PY#,player
   set sprite player,0,1

Gosub HandleInput
   Gosub HandleBullets
   Gosub HandleGUI
   Gosub HandleAI

Text 0,0,"Automatic: " + Str$(Auto)
   Text 0,20,Str$(Enemy(1))

Sync
Cls
Loop

HandleGUI:

Ink rgb(255,255,255),0
   line grid(0,0),0,Grid(0,0),479
   line grid(0,14),0,Grid(0,14),479

return

HandleInput:

If rightkey() and PX#<545 Then PX#=PX#+1.5
   if leftkey() and PX#>93 then px#=px#-1.5
   IF upkey() and PY#>-1 then py#=py#-1.5
   If downkey() and py#<449 then py#=py#+1.5

If Spacekey()
      Bullet=FindFreeBullet()
      If Bullet>0
         if auto=1 and timer()-counter>10
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=pX#
            BulletData#(Bullet,1)=PY#
            counter=0
         endif
         If Auto=0 and skey=0
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=PX#
            BulletData#(Bullet,1)=PY#
            Skey=1
         endif
      endif
   endif

if spacekey()=0 then skey=0

Counter=Counter+Timer()

If keystate(45)=1 and Adown=0 and auto=0 then auto=1 : adown=1
   If keystate(45)=1 and ADown=0 and Auto=1 then Auto=0 : adown=1
   If keystate(45)=0 then adown=0

return

HandleBullets:

For X=2 to 30
      Dead=CheckBullets(X)
      If dead>0 then enemy(dead)=0 : Delete sprite dead+299
      If Bullet(X)=1
         if bulletdata#(X,1)>-1
            Sprite X+99,BulletData#(X,0),BulletData#(X,1),BulletI
            If timer()-bulletcounter>5
               if Bulletdata#(X,1)>1
                  bulletcounter=0
                  BulletData#(X,1)=Bulletdata#(X,1)-2.0
               else
                  Bullet(X)=0
                  BulletData#(X,0)=0
                  BulletData#(X,1)=0
                  delete sprite X+99
               endif
            endif
         endif
      endif
   next x

BulletCounter=BulletCounter+Timer()

return

HandleAI:

For X=1 to 10
      IF Enemy(X)=1
         Sprite X+299,Grid(0,AI(X,Keyframe(0),0)),Grid(1,AI(X,Keyframe(0),1)),Enemy
      endif
   next x
   if keyframe(0)>19 then keyframe(0)=1

EnemyCounter=EnemyCounter+1

If EnemyCounter>50
      Keyframe(0)=keyframe(0)+1
      enemycounter=0
   endif

return

Function LoadImages()

Load Image "Sprites/Invadersprites.bmp",100
   Paste image 100,0,0
   Get image 1,0,0,32,32
   Get image 2,32,0,64,32
   Get image 3,64,0,96,32
   cls

endfunction

Function findfreebullet()

For X=2 to 30
      If bullet(X)=0 then exitfunction X
   next x

endfunction 0

Function LoadStage(num,Keyframes)

open to read 1,"Stage "+Str$(num) + ".txt"

For Y=1 to keyframes
      For X=1 to 10
         Read string 1,String$
         Read string 1,string$ : AI(X,Y,0) = val(String$)
         Read string 1,String$ : AI(X,Y,1) = Val(String$)
      next x
   next y

endfunction

Function CHeckBullets(B)

For X=1 to 10
         if sprite exist(X+299) and sprite exist(B+99)
            If Sprite collision(X+299,B+99)=1
               delete sprite x+299
               enemy(x)=0
            endif
         endif
      next x

endfunction 0

+ Code Snippet

remstart
   -------------------------------------------------------------------
   program name; Invaders
   -------------------------------------------------------------------
   written by: Caleb Stewart
   date;
   -------------------------------------------------------------------
   comments;
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
Set window on
Set window position 160,120

LoadImages()

Player = 2
Enemy = 1
BulletI = 3
Dim keyframe(0)

Dim Grid(30,30)
Dim Bullet(30)
Dim BulletData#(100,5)
Dim AI(10,20,1)
Dim Enemy(10)
For X=0 to 10 : enemy(X)=1 : next x
Grid(0,0)=96
Grid(1,0)=0
For X=1 to 30 step 1
   Grid(0,X)=Grid(0,X-1)+32
   Grid(1,X)=Grid(1,X-1)+32
next x

PX#=96

Loadstage(0,20)


Do

   sprite Player,PX#,PY#,player
   set sprite player,0,1

   Gosub HandleInput
   Gosub HandleBullets
   Gosub HandleGUI
   Gosub HandleAI

   Text 0,0,"Automatic: " + Str$(Auto)
   Text 0,20,Str$(Enemy(1))


Sync
Cls
Loop

HandleGUI:

   Ink rgb(255,255,255),0
   line grid(0,0),0,Grid(0,0),479
   line grid(0,14),0,Grid(0,14),479

return


HandleInput:

   If rightkey() and PX#<545 Then PX#=PX#+1.5
   if leftkey() and PX#>93 then px#=px#-1.5
   IF upkey() and PY#>-1 then py#=py#-1.5
   If downkey() and py#<449 then py#=py#+1.5

   If Spacekey()
      Bullet=FindFreeBullet()
      If Bullet>0
         if auto=1 and timer()-counter>10
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=pX#
            BulletData#(Bullet,1)=PY#
            counter=0
         endif
         If Auto=0 and skey=0
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=PX#
            BulletData#(Bullet,1)=PY#
            Skey=1
         endif
      endif
   endif

   if spacekey()=0 then skey=0

   Counter=Counter+Timer()

   If keystate(45)=1 and Adown=0 and auto=0 then auto=1 : adown=1
   If keystate(45)=1 and ADown=0 and Auto=1 then Auto=0 : adown=1
   If keystate(45)=0 then adown=0

return



HandleBullets:

   For X=2 to 30
      Dead=CheckBullets(X)
      If dead>0 then enemy(dead)=0 : Delete sprite dead+299
      If Bullet(X)=1
         if bulletdata#(X,1)>-1
            Sprite X+99,BulletData#(X,0),BulletData#(X,1),BulletI
            If timer()-bulletcounter>5
               if Bulletdata#(X,1)>1
                  bulletcounter=0
                  BulletData#(X,1)=Bulletdata#(X,1)-2.0
               else
                  Bullet(X)=0
                  BulletData#(X,0)=0
                  BulletData#(X,1)=0
                  delete sprite X+99
               endif
            endif
         endif
      endif
   next x


   BulletCounter=BulletCounter+Timer()

return

HandleAI:

   For X=1 to 10
      IF Enemy(X)=1
         Sprite X+299,Grid(0,AI(X,Keyframe(0),0)),Grid(1,AI(X,Keyframe(0),1)),Enemy
      endif
   next x
   if keyframe(0)>19 then keyframe(0)=1

   EnemyCounter=EnemyCounter+1

   If EnemyCounter>50
      Keyframe(0)=keyframe(0)+1
      enemycounter=0
   endif

return



Function LoadImages()

   Load Image "Sprites/Invadersprites.bmp",100
   Paste image 100,0,0
   Get image 1,0,0,32,32
   Get image 2,32,0,64,32
   Get image 3,64,0,96,32
   cls

endfunction

Function findfreebullet()

   For X=2 to 30
      If bullet(X)=0 then exitfunction X
   next x

endfunction 0

Function LoadStage(num,Keyframes)

   open to read 1,"Stage "+Str$(num) + ".txt"

   For Y=1 to keyframes
      For X=1 to 10
         Read string 1,String$
         Read string 1,string$ : AI(X,Y,0) = val(String$)
         Read string 1,String$ : AI(X,Y,1) = Val(String$)
      next x
   next y

endfunction

Function CHeckBullets(B)

      For X=1 to 10
         if sprite exist(X+299) and sprite exist(B+99)
            If Sprite collision(X+299,B+99)=1
               delete sprite x+299
               enemy(x)=0
            endif
         endif
      next x

endfunction 0

the stage is uploaded its very small though lol.

New Site! Check it out \/

Back to top

Profile PM Website

ivan2009

17

Years of Service

User Offline

Joined: 28th Feb 2009

Location: Canada

Posted: 17th Mar 2009 10:32

Link

A scrolling 2d shooter is just like space invaders except the screen scrolls and you have bosses and power ups. That would be a good project to get started on, plus the final game is more playable than a single screen shooter. just a suggestion.

Back to top

Profile PM

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 17th Mar 2009 16:05

Link

i'm not sure what you mean? space invaders was a scroller well it made it look like it with scrolling stars in the back(pretty sure thats what happend) and there are bosses and power ups(not in mine yet )?

New Site! Check it out \/

Back to top

Profile PM Website

ivan2009

17

Years of Service

User Offline

Joined: 28th Feb 2009

Location: Canada

Posted: 17th Mar 2009 17:07

Link

I guess I'm talking about games like super star soldier, and raiden. where you have a background you can drop bombs on. space invaders took the creator three years to make.. in 1978. today we can make invaders clones in DB in a few hours.. minutes, even. But an invaders style single screen shooter can have power ups(space invaders DX and '91 did) Good luck with that and any other projects you start.

Back to top

Profile PM

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 17th Mar 2009 17:38 Edited at: 17th Mar 2009 20:49

Link

aaaahhhh!

ok i got up thismorning opened my laptop and ran my code and it doesn't work now! it worked last night. so i went to my backup version(i made that right before i put in the enemies) and i havn't edited that since yesterday morning and it doesn't work either.

they run but the bullets don't work now. when its in automatic it doesn't shoot exept for about avery 20 or 30 seconds and the bullets move extremely slow on semi auto they shoot every time but they don't move. well they do but every about 30 seconds it will move for about 10 seconds then stop again. heres the code (without the enemies for simplicity)

remstart
   -------------------------------------------------------------------
   program name> Invaders
   -------------------------------------------------------------------
   written by> Caleb Stewart
   Start Date>
   End Data>
   -------------------------------------------------------------------
   Comments>
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
Set window on
Set window position 160,120

LoadImages()

Player = 2
Enemy = 1
BulletI = 3

Dim Grid(30,30)
Dim Bullet(30)
Dim BulletData#(100,5)
Grid(0,0)=96
Grid(1,0)=0
For X=1 to 30 step 1
   Grid(0,X)=Grid(0,X-1)+32
   Grid(1,X)=Grid(1,X-1)+32
next x

PX#=96

Do

sprite Player,PX#,PY#,player
   set sprite player,0,1

Gosub HandleInput
   Gosub HandleBullets
   Gosub HandleGUI

Text 0,0,"Automatic: " + Str$(Auto)

Sync
Cls
Loop

HandleGUI:

Ink rgb(255,255,255),0
   line grid(0,0),0,Grid(0,0),479
   line grid(0,14),0,Grid(0,14),479

return

HandleInput:

If rightkey() and PX#<545 Then PX#=PX#+1.5
   if leftkey() and PX#>93 then px#=px#-1.5
   IF upkey() and PY#>-1 then py#=py#-1.5
   If downkey() and py#<449 then py#=py#+1.5

If Spacekey()
      Bullet=FindFreeBullet()
      If Bullet>0
         if auto=1 and timer()-counter>10
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=pX#
            BulletData#(Bullet,1)=PY#
            counter=0
         endif
         If Auto=0 and skey=0
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=PX#
            BulletData#(Bullet,1)=PY#
            Skey=1
         endif
      endif
   endif

if spacekey()=0 then skey=0

Counter=Counter+Timer()

If keystate(45)=1 and Adown=0 and auto=0 then auto=1 : adown=1
   If keystate(45)=1 and ADown=0 and Auto=1 then Auto=0 : adown=1
   If keystate(45)=0 then adown=0

return

HandleBullets:

For X=2 to 30
      If Bullet(X)=1
         if bulletdata#(X,1)>-1
            Sprite X+99,BulletData#(X,0),BulletData#(X,1),BulletI
            If timer()-bulletcounter>5
               if Bulletdata#(X,1)>1
                  bulletcounter=0
                  BulletData#(X,1)=Bulletdata#(X,1)-2.0
               else
                  Bullet(X)=0
                  BulletData#(X,0)=0
                  BulletData#(X,1)=0
                  delete sprite X+99
               endif
            endif
         endif
      endif
   next x

BulletCounter=BulletCounter+Timer()

return

Function LoadImages()

Load Image "Sprites/Invadersprites.bmp",100
   Paste image 100,0,0
   Get image 1,0,0,32,32
   Get image 2,32,0,64,32
   Get image 3,64,0,96,32
   cls

endfunction

Function findfreebullet()

For X=2 to 30
      If bullet(X)=0 then exitfunction X
   next x

endfunction 0

+ Code Snippet

remstart
   -------------------------------------------------------------------
   program name> Invaders
   -------------------------------------------------------------------
   written by> Caleb Stewart
   Start Date>
   End Data>
   -------------------------------------------------------------------
   Comments>
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
Set window on
Set window position 160,120

LoadImages()

Player = 2
Enemy = 1
BulletI = 3

Dim Grid(30,30)
Dim Bullet(30)
Dim BulletData#(100,5)
Grid(0,0)=96
Grid(1,0)=0
For X=1 to 30 step 1
   Grid(0,X)=Grid(0,X-1)+32
   Grid(1,X)=Grid(1,X-1)+32
next x

PX#=96


Do

   sprite Player,PX#,PY#,player
   set sprite player,0,1

   Gosub HandleInput
   Gosub HandleBullets
   Gosub HandleGUI

   Text 0,0,"Automatic: " + Str$(Auto)

Sync
Cls
Loop

HandleGUI:

   Ink rgb(255,255,255),0
   line grid(0,0),0,Grid(0,0),479
   line grid(0,14),0,Grid(0,14),479

return


HandleInput:

   If rightkey() and PX#<545 Then PX#=PX#+1.5
   if leftkey() and PX#>93 then px#=px#-1.5
   IF upkey() and PY#>-1 then py#=py#-1.5
   If downkey() and py#<449 then py#=py#+1.5

   If Spacekey()
      Bullet=FindFreeBullet()
      If Bullet>0
         if auto=1 and timer()-counter>10
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=pX#
            BulletData#(Bullet,1)=PY#
            counter=0
         endif
         If Auto=0 and skey=0
            Bullet(Bullet)=1
            BulletData#(Bullet,0)=PX#
            BulletData#(Bullet,1)=PY#
            Skey=1
         endif
      endif
   endif

   if spacekey()=0 then skey=0

   Counter=Counter+Timer()

   If keystate(45)=1 and Adown=0 and auto=0 then auto=1 : adown=1
   If keystate(45)=1 and ADown=0 and Auto=1 then Auto=0 : adown=1
   If keystate(45)=0 then adown=0

return



HandleBullets:

   For X=2 to 30
      If Bullet(X)=1
         if bulletdata#(X,1)>-1
            Sprite X+99,BulletData#(X,0),BulletData#(X,1),BulletI
            If timer()-bulletcounter>5
               if Bulletdata#(X,1)>1
                  bulletcounter=0
                  BulletData#(X,1)=Bulletdata#(X,1)-2.0
               else
                  Bullet(X)=0
                  BulletData#(X,0)=0
                  BulletData#(X,1)=0
                  delete sprite X+99
               endif
            endif
         endif
      endif
   next x


   BulletCounter=BulletCounter+Timer()

return



Function LoadImages()

   Load Image "Sprites/Invadersprites.bmp",100
   Paste image 100,0,0
   Get image 1,0,0,32,32
   Get image 2,32,0,64,32
   Get image 3,64,0,96,32
   cls

endfunction

Function findfreebullet()

   For X=2 to 30
      If bullet(X)=0 then exitfunction X
   next x

endfunction 0

i can't think of anything that could happen without me editing this. i havn't changed this code since a day ago. and it worked fine then. any ideas?

Edit:

Oh i see what you mean by "Scroller" ok well right now i havn't been in the gaming side of darkbasic for a while i found out i like making random little tools

lol so i thought I'd ease back in

Edit2:

Ok i think the timer is being screwy put this in the code above.

+ Code Snippet

   Text 0,20,Str$(timer())
   Text 0,40,Str$(counter)
   text 0,60,str$(Timer()-Counter)

the counter variabale(used when in automatic) is going all over the place (including negative) and it's not supposed to. and same with timer-counter it shouldn't get that high it should only get to 10 and counter be set to 0. (btw turn automatic on with x and then hold down space to get accurate results because the counter is only set to 0 when your pressing space and the diff is greater then 10)

try it with bulletcounter also. it does the same thing. i can't figure anything that would cause this.

New Site! Check it out \/

Back to top

Profile PM Website

ivan2009

17

Years of Service

User Offline

Joined: 28th Feb 2009

Location: Canada

Posted: 17th Mar 2009 22:30

Link

I didnt look long enough to check most of the problems, but in the part where you say "counter=0" i changed it to "counter=timer()" and the bullets spread out somewhat but still moved slowly(in auto)

Back to top

Profile PM

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 17th Mar 2009 23:19 Edited at: 17th Mar 2009 23:23

Link

hnmmm interesting i tried it yes they do shoot more but deffinetly not how fast they should. i tried that with the bulletcounter and it made it so the first bullet moves but the others don't. this is really weird.

i'm going to get the code i first posted and be sure that works lol

!!!!EDIT!!!!

ok i got the code i put up here on my second post and it doesn't work either! what is going on here its like a ghost is destroying my code.... aaahhh! lol i think i will switch from using timer() to just adding one to the counter everyloop. it's not a great way but i want this to work. lol

New Site! Check it out \/

Back to top

Profile PM Website

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 17th Mar 2009 23:27

Link

ok i did that and now it shoots but only the first one moves once that one is gone the next one moves and so on

and they move slow. i don't know what is going on. i really don't want to start over. lol its not tons of work but its work non the less lol

New Site! Check it out \/

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / Space Invaders help