Community Space Invaders DBpro - GameCreators Forum

Author

Message

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 18th Jul 2004 10:24

Link

Agree(that's 3)

Formerly known as "DarkWing Duck"

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 18th Jul 2004 10:49 Edited at: 18th Jul 2004 10:53

Link

Ok new rules have hereby been adopted.

Per post you can

add 4 lines
remove 2 lines
Unlimited changing existing values
Add remarks to the code

changes: I broke my one data line into multiple

sync on
sync
sync rate 0
hide mouse
disable systemkeys

print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

box 13, 1, 17, 12
box 1, 12, 30, 30
get image 1, 1, 1, 30, 30, 1

Sprite 1,-50,0,1
Set Sprite Diffuse 1,0,0,100

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

repeat
   if not fire
      if spacekey()
      endif
   else
   endif

if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

if escapekey() = 1 then goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to THE menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1,1,1,1,0,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,0,1,1,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys


print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

box 13, 1, 17, 12
box 1, 12, 30, 30
get image 1, 1, 1, 30, 30, 1

Sprite 1,-50,0,1
Set Sprite Diffuse 1,0,0,100


Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols


   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

repeat
   if not fire
      if spacekey()
      endif
   else
   endif

   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

   if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

   if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

   if escapekey() = 1 then goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to THE menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1,1,1,1,0,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,0,1,1,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1

~zen

Back to top

Profile PM Email

Dave J

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 18th Jul 2004 11:06 Edited at: 18th Jul 2004 11:08

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

repeat
   if not fire
      if spacekey()
      endif
   else
   endif

if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

if escapekey() = 1 then goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to THE menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1,1,1,1,0,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,0,1,1,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys


print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0


Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols


   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

repeat
   if not fire
      if spacekey()
      endif
   else
   endif

   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

   if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

   if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

   if escapekey() = 1 then goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to THE menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1,1,1,1,0,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,0,1,1,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1

Added: 18 & 19
Modified: 23 & 27
Also started commenting that area.

Oh yeah, if you comment out these two lines, it will compile. Although it doesn't look like much at the moment lol!

+ Code Snippet

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

"Computers are useless they can only give you answers."

Back to top

Profile PM Email

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 18th Jul 2004 11:07 Edited at: 18th Jul 2004 11:11

Link

[edit] i added score display

code in next post

"All programmers are playwrites and all computers are lousy actors" -Anon

Back to top

Profile PM

Dave J

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 18th Jul 2004 11:10

Link

You missed my update! Lol.

Here's the proper one:

sync on
sync
sync rate 0
hide mouse
disable systemkeys

print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

score1 = 10
set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

if not fire
      if spacekey()
      endif
   else
   endif

if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

if escapekey() = 1 then goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to THE menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1,1,1,1,0,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,0,1,1,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys


print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0


Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols


   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

score1 = 10
set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   if not fire
      if spacekey()
      endif
   else
   endif

   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

   if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

   if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

   if escapekey() = 1 then goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to THE menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1,1,1,1,0,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,0,1,1,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1

"Computers are useless they can only give you answers."

Back to top

Profile PM Email

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 18th Jul 2004 11:11 Edited at: 18th Jul 2004 11:14

Link

actually this is:

sync on
sync
sync rate 0
hide mouse
disable systemkeys

print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

if not fire
      if spacekey()
      endif
   else
   endif

if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

if escapekey() = 1 then goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to THE menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1,1,1,1,0,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,0,1,1,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys


print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0


Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols


   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   if not fire
      if spacekey()
      endif
   else
   endif

   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

   if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

   if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

   if escapekey() = 1 then goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to THE menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1,1,1,1,0,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,0,1,1,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1

i think i added too many... sorry

"All programmers are playwrites and all computers are lousy actors" -Anon

Back to top

Profile PM

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 18th Jul 2004 11:17 Edited at: 18th Jul 2004 11:18

Link

Something happened to my data statements, But With this post I was able to rearrange him.

sync on
sync
sync rate 0
hide mouse
disable systemkeys

print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

if not fire
      if spacekey()
      endif
   else
   endif

if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

if escapekey() = 1 then goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to THE menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys


print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0


Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols


   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   if not fire
      if spacekey()
      endif
   else
   endif

   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

   if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

   if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

   if escapekey() = 1 then goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to THE menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

Back to top

Profile PM Email

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 19th Jul 2004 03:54 Edited at: 19th Jul 2004 04:08

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it if space is pressed
   if not fire
      if spacekey()
      	playerBulletX = playerX + 12
      	playerBulletY = playerY - 2
         fire = 1
      endif
   else
        `If bullet is active then show it as a sprite
   	sprite 2,playerBulletX,playerBulletY,2
   endif
   
   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

if escapekey() = 1 then goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys


print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0


Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols


   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it if space is pressed
   if not fire
      if spacekey()
      	playerBulletX = playerX + 12
      	playerBulletY = playerY - 2
         fire = 1
      endif
   else
        `If bullet is active then show it as a sprite
   	sprite 2,playerBulletX,playerBulletY,2
   endif
   
   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

   if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

   if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

   if escapekey() = 1 then goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

Added 86,87,88 and 92
Edited various bits of the text

Isn't it? Wasn't it? Marvellous!

Back to top

Profile PM Email Website

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 19th Jul 2004 04:29 Edited at: 19th Jul 2004 04:35

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it if space is pressed
   if not fire
      if spacekey()
      	playerBulletX = playerX + 12
      	playerBulletY = playerY - 2
         fire = 1
      endif
   else
        `If bullet is active then show it as a sprite
   	sprite 2,playerBulletX,playerBulletY,2
   endif
   
   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

if escapekey() = 1 then goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

`Load Game Function
`CSI = Community Space Invaders!

function loadgame()
   if not file exist("CSIsaveGame")
     print "There is no Save Game data!"
     print "(press ny key to continue)"

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys


print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0


Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols


   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it if space is pressed
   if not fire
      if spacekey()
      	playerBulletX = playerX + 12
      	playerBulletY = playerY - 2
         fire = 1
      endif
   else
        `If bullet is active then show it as a sprite
   	sprite 2,playerBulletX,playerBulletY,2
   endif
   
   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

   if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

   if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

   if escapekey() = 1 then goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

`Load Game Function
`CSI = Community Space Invaders!

function loadgame()
   if not file exist("CSIsaveGame")
     print "There is no Save Game data!"
     print "(press ny key to continue)"

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

Added 129 - 135
Deleted nothing
Edited nothing

S.O.S. Site Of Scraggle

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 19th Jul 2004 05:34

Link

added rem statement #140-147 (should make the data statements clearer)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it if space is pressed
   if not fire
      if spacekey()
      playerBulletX = playerX + 12
      playerBulletY = playerY - 2
         fire = 1
      endif
   else
        `If bullet is active then show it as a sprite
   sprite 2,playerBulletX,playerBulletY,2
   endif

if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

if escapekey() = 1 then goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

`Load Game Function
`CSI = Community Space Invaders!

function loadgame()
   if not file exist("CSIsaveGame")
     print "There is no Save Game data!"
     print "(press ny key to continue)"

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys


print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0


Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols


   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it if space is pressed
   if not fire
      if spacekey()
      playerBulletX = playerX + 12
      playerBulletY = playerY - 2
         fire = 1
      endif
   else
        `If bullet is active then show it as a sprite
   sprite 2,playerBulletX,playerBulletY,2
   endif

   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

   if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

   if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

   if escapekey() = 1 then goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

`Load Game Function
`CSI = Community Space Invaders!

function loadgame()
   if not file exist("CSIsaveGame")
     print "There is no Save Game data!"
     print "(press ny key to continue)"

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

Back to top

Profile PM Email

Dave J

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 19th Jul 2004 16:16

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it if space is pressed
   if not fire
      if spacekey()
      playerBulletX = playerX + 12
      playerBulletY = playerY - 2
         fire = 1
      endif
   else
      `If bullet is active then show it as a sprite
      sprite 2,playerBulletX,playerBulletY,2
   endif

if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

if escapekey() = 1 then goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

`Load Game Function
`CSI = Community Space Invaders!

function loadgame()
   if not file exist("CSIsaveGame")
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   endif
endfunction

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys


print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols


   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it if space is pressed
   if not fire
      if spacekey()
      playerBulletX = playerX + 12
      playerBulletY = playerY - 2
         fire = 1
      endif
   else
      `If bullet is active then show it as a sprite
      sprite 2,playerBulletX,playerBulletY,2
   endif

   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

   if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

   if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

   if escapekey() = 1 then goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

`Load Game Function
`CSI = Community Space Invaders!

function loadgame()
   if not file exist("CSIsaveGame")
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   endif
endfunction

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

Added: 30, 31, 139, 140

"Computers are useless they can only give you answers."

Back to top

Profile PM Email

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 19th Jul 2004 18:22

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

#Constant sw = Screen Width()
#Constant sh = Screen Height()

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

enemies(row,col).xpos =
      enemies(row,col).ypos =

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it if space is pressed
   if not fire
      if spacekey()
      playerBulletX = playerX + 12
      playerBulletY = playerY - 2
         fire = 1
      endif
   else
      `If bullet is active then show it as a sprite
      sprite 2,playerBulletX,playerBulletY,2
   endif

if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

if escapekey() = 1 then goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

`Load Game Function
`CSI = Community Space Invaders!

function loadgame()
   if not file exist("CSIsaveGame")
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   endif
endfunction

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys


print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship and go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created and make it green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

#Constant sw = Screen Width()
#Constant sh = Screen Height()

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      enemies(row,col).xpos =
      enemies(row,col).ypos =

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   for i = 0 To 4-len(score1$)+1
      score1$ = "0" + score1$
   next i
   ` just do the same for other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it if space is pressed
   if not fire
      if spacekey()
      playerBulletX = playerX + 12
      playerBulletY = playerY - 2
         fire = 1
      endif
   else
      `If bullet is active then show it as a sprite
      sprite 2,playerBulletX,playerBulletY,2
   endif

   if keystate(203) = 1 then playerx=playerx-1
   if keystate(205) = 1 then playerx=playerx+1

   if playerx < 30 then playerx = 30
   if playerx > 580 then playerx = 580

   if keystate(57) = 1 and firekey = 0 then firekey = 1
   if keystate(57) = 0 and firekey = 1 then firekey = 0

   if escapekey() = 1 then goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
if spacekey() = 1 then goto ExitToMenu else end

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   if inkey$()="1" then goto startgame
   if inkey$()="2" then goto loadgame

endfunction

`Load Game Function
`CSI = Community Space Invaders!

function loadgame()
   if not file exist("CSIsaveGame")
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   endif
endfunction

AlienAnimFrames:
`rem alien data to create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

Added: 43/44/57/58
Gotta finish the equations for 57/58 later, don't have time right now...

Jess.

Team EOD :: Programmer/Logical Engineer/All-Round Nice Guy

Back to top

Profile PM Email Website

Killswitch

22

Years of Service

User Offline

Joined: 2nd Oct 2002

Location: School damnit!! Let me go!! PLEASE!!!

Posted: 19th Jul 2004 19:28

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

#Constant sw = Screen Width()
#Constant sh = Screen Height()

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

enemies(row,col).xpos =
      enemies(row,col).ypos =

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
      playerBulletX = playerX + 12
      playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then show it as a sprite
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

If keystate(57) = 1 And firekey = 0 then firekey = 1
   If keystate(57) = 0 And firekey = 1 then firekey = 0

If escapekey() = 1 then Goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

If inkey$()="1" then Goto startgame
   If inkey$()="2" then Goto loadgame()

endfunction

'---------------------
'-Functions-----------
'---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
'We don't have any Data at the mo, so im leaving this blank.
endfunction

AlienAnimFrames:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

#Constant sw = Screen Width()
#Constant sh = Screen Height()

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      enemies(row,col).xpos =
      enemies(row,col).ypos =

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
      playerBulletX = playerX + 12
      playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then show it as a sprite
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

   If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

   If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

   If keystate(57) = 1 And firekey = 0 then firekey = 1
   If keystate(57) = 0 And firekey = 1 then firekey = 0

   If escapekey() = 1 then Goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   If inkey$()="1" then Goto startgame
   If inkey$()="2" then Goto loadgame()

endfunction

'---------------------
'-Functions-----------
'---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
'We don't have any Data at the mo, so im leaving this blank.
endfunction


AlienAnimFrames:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

Edited: 134, 143,142

Added: 151-53

-Various comments

~It's a common mistake to make, the rules of the English langauge do not apply to insanity~
[IMG]

[/IMG]

Back to top

Profile PM Email

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 19th Jul 2004 22:55

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

#Constant sw = Screen Width()
#Constant sh = Screen Height()

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
      playerBulletX = playerX + 12
      playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then show it as a sprite
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

If keystate(57) = 1 And firekey = 0 then firekey = 1
   If keystate(57) = 0 And firekey = 1 then firekey = 0

If escapekey() = 1 then Goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

If inkey$()="1" then Goto startgame
   If inkey$()="2" then Goto loadgame()

endfunction

'---------------------
'-Functions-----------
'---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
'We don't have any Data at the mo, so im leaving this blank.
endfunction

AlienAnimFrames:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

#Constant sw = Screen Width()
#Constant sh = Screen Height()

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
      playerBulletX = playerX + 12
      playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then show it as a sprite
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

   If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

   If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

   If keystate(57) = 1 And firekey = 0 then firekey = 1
   If keystate(57) = 0 And firekey = 1 then firekey = 0

   If escapekey() = 1 then Goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   If inkey$()="1" then Goto startgame
   If inkey$()="2" then Goto loadgame()

endfunction

'---------------------
'-Functions-----------
'---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
'We don't have any Data at the mo, so im leaving this blank.
endfunction


AlienAnimFrames:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

That's just the code with my equations in it from last post, nothing new.

To see the placement, copy + paste those For Next loops to the main loop and add a Dot command.

Team EOD :: Programmer/Logical Engineer/All-Round Nice Guy

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 19th Jul 2004 23:28

Link

Moved constants to the top (neater), corrected goto and function thingys in the menu.

Added 86, 87, 106 and 107
Deleted 117 and 118 (couldn't see what they were there for)

#Constant sw = Screen Width()
#Constant sh = Screen Height()

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
	`Loop speed regulation code (WIP)
	loopTime = timer()-lastTime
	lastTime = timer()
	
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX = playerX + 12
         playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY,1
      if playerBulletY < -16 then fire = 0
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

If escapekey() = 1 then Goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

`If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

AlienAnimFrames:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

+ Code Snippet

#Constant sw = Screen Width()
#Constant sh = Screen Height()

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
	`Loop speed regulation code (WIP)
	loopTime = timer()-lastTime
	lastTime = timer()
	
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX = playerX + 12
         playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY,1
      if playerBulletY < -16 then fire = 0
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

   If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

   If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

   If escapekey() = 1 then Goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   `If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction


AlienAnimFrames:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |
Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

Isn't it? Wasn't it? Marvellous!

Back to top

Profile PM Email Website

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 20th Jul 2004 00:28 Edited at: 20th Jul 2004 00:33

Link

#Constant sw = Screen Width()
#Constant sh = Screen Height()

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
	`Loop speed regulation code (WIP)
	loopTime = timer()-lastTime
	lastTime = timer()
	
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX = playerX + 12
         playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY,1
      if playerBulletY < -16 then fire = 0
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

If escapekey() = 1 then Goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

`If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

AlienAnimFrames:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ##  ##  ##   |
`|   ##    ##    |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

+ Code Snippet

#Constant sw = Screen Width()
#Constant sh = Screen Height()

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
	`Loop speed regulation code (WIP)
	loopTime = timer()-lastTime
	lastTime = timer()
	
   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX = playerX + 12
         playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY,1
      if playerBulletY < -16 then fire = 0
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

   If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

   If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

   If escapekey() = 1 then Goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   `If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction


AlienAnimFrames:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ##  ##  ##   |
`|   ##    ##    |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

Added 182 - 197

Animation frame 2 for alien 1

S.O.S. Site Of Scraggle

Back to top

Profile PM Email

Mattman

21

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 21st Jul 2004 04:07

Link

Edited:165
Added: 4,164,165,186
Commented: 3

Started Alien animation system

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
     `Loop speed regulation code (WIP)
     loopTime = timer()-lastTime
     lastTime = timer()

center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX = playerX + 12
         playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY,1
      if playerBulletY < -16 then fire = 0
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

If escapekey() = 1 then Goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

`If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for x = 1 to 14

AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ##  ##  ##   |
`|   ##    ##    |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

+ Code Snippet

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
     `Loop speed regulation code (WIP)
     loopTime = timer()-lastTime
     lastTime = timer()

   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX = playerX + 12
         playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY,1
      if playerBulletY < -16 then fire = 0
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

   If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

   If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

   If escapekey() = 1 then Goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   `If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for x = 1 to 14




AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ##  ##  ##   |
`|   ##    ##    |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

"Could you do something where you don't need a video card cause i don't have one" - Program Expert

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 21st Jul 2004 05:37 Edited at: 21st Jul 2004 05:41

Link

added remarks for alien 2 animation fram 1
added 4 data statements for above

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
     `Loop speed regulation code (WIP)
     loopTime = timer()-lastTime
     lastTime = timer()

center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX = playerX + 12
         playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY,1
      if playerBulletY < -16 then fire = 0
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1

If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

If escapekey() = 1 then Goto ExitToMenu

sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

`If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for x = 1 to 14

AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  #        #  |
`| #          # |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1

+ Code Snippet

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
     `Loop speed regulation code (WIP)
     loopTime = timer()-lastTime
     lastTime = timer()

   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX = playerX + 12
         playerBulletY = playerY - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY,1
      if playerBulletY < -16 then fire = 0
      sprite 2,playerBulletX,playerBulletY,2
   EndIf

   If keystate(203) = 1 then playerx=playerx-1
   If keystate(205) = 1 then playerx=playerx+1


   If playerx < 30 then playerx = 30
   If playerx > 580 then playerx = 580

   If escapekey() = 1 then Goto ExitToMenu

   sprite 1, playerx, playery, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   `If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for x = 1 to 14




AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  #        #  |
`| #          # |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1

Back to top

Profile PM Email

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 21st Jul 2004 06:39 Edited at: 21st Jul 2004 06:42

Link

Added lines 89, 115 and 170
Deleted lines at 115 and 116
Edited line 109 (not sure if this adds up?? Oh well...)
Edited a couple of variables to make them floats (I figure that would take up tons of goes to change, and I didn't want to waste a line adding a declaration when it seems we're using # and $

)

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

`Move player left and right with the arrow keys
	inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

`Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

If escapekey() = 1 then Goto ExitToMenu

`Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

`If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for x = 1 to 14

next x

AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  #        #  |
`| #          # |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1

+ Code Snippet

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

	`Move player left and right with the arrow keys
	inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

	`Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

   If escapekey() = 1 then Goto ExitToMenu

	`Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   `If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for x = 1 to 14

next x


AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  #        #  |
`| #          # |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1

Isn't it? Wasn't it? Marvellous!

Back to top

Profile PM Email Website

Mattman

21

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 21st Jul 2004 06:45

Link

Added 169-172

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

`Move player left and right with the arrow keys
     inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

`Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

If escapekey() = 1 then Goto ExitToMenu

`Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

`If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for x = 1 to 14
     for y = 1 to 8
          read animdata(x,y,1)
          read animdata(x,y,2)
     next y
next x

AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  #        #  |
`| #          # |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1

+ Code Snippet

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

     `Move player left and right with the arrow keys
     inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

     `Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

   If escapekey() = 1 then Goto ExitToMenu

     `Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   `If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for x = 1 to 14
     for y = 1 to 8
          read animdata(x,y,1)
          read animdata(x,y,2)
     next y
next x


AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  #        #  |
`| #          # |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1

"Could you do something where you don't need a video card cause i don't have one" - Program Expert

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 21st Jul 2004 07:44 Edited at: 21st Jul 2004 07:46

Link

added last 4 data lines alien 2 anim fram 1 complete!

(Just wanted to say this is coming along nicely. You guys are doing an awesome job. I can't wait to see it in action!!!)

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

`Move player left and right with the arrow keys
     inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

`Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

If escapekey() = 1 then Goto ExitToMenu

`Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

`If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for x = 1 to 14
     for y = 1 to 8
          read animdata(x,y,1)
          read animdata(x,y,2)
     next y
next x

AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  ##      ##  |
`| ##        ## |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 0,0,1,1,0,0,0,0,0,0,1,1,0,0
dtat 0,1,1,0,0,0,0,0,0,0,0,1,1,0

+ Code Snippet

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

     `Move player left and right with the arrow keys
     inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

     `Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

   If escapekey() = 1 then Goto ExitToMenu

     `Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   `If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for x = 1 to 14
     for y = 1 to 8
          read animdata(x,y,1)
          read animdata(x,y,2)
     next y
next x


AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  ##      ##  |
`| ##        ## |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 0,0,1,1,0,0,0,0,0,0,1,1,0,0
dtat 0,1,1,0,0,0,0,0,0,0,0,1,1,0

Back to top

Profile PM Email

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 21st Jul 2004 08:31

Link

Added 174, 175, 177 and 178
Swapped around a load of the data reading in thing

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

`Move player left and right with the arrow keys
     inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

`Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

If escapekey() = 1 then Goto ExitToMenu

`Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

`If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for y = 1 to 8
   for x = 1 to 14
      read animdata(x,y,1)
   next x
next y

for y = 1 to 8
   for x = 1 to 14
      read animdata(x,y,2)
   next x
next y

AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  ##      ##  |
`| ##        ## |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 0,0,1,1,0,0,0,0,0,0,1,1,0,0
data 0,1,1,0,0,0,0,0,0,0,0,1,1,0

+ Code Snippet

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

     `Move player left and right with the arrow keys
     inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

     `Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

   If escapekey() = 1 then Goto ExitToMenu

     `Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   `If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

ReadAlienAnimData:
for y = 1 to 8
   for x = 1 to 14
      read animdata(x,y,1)
   next x
next y

for y = 1 to 8
   for x = 1 to 14
      read animdata(x,y,2)
   next x
next y


AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  ##      ##  |
`| ##        ## |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 0,0,1,1,0,0,0,0,0,0,1,1,0,0
data 0,1,1,0,0,0,0,0,0,0,0,1,1,0

Isn't it? Wasn't it? Marvellous!

Back to top

Profile PM Email Website

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 21st Jul 2004 10:16

Link

Added alien 2 frame 2
Changet data and put alien loading in function

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

`Move player left and right with the arrow keys
     inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

`Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

If escapekey() = 1 then Goto ExitToMenu

`Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

`If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

Function LoadAliens()
   for y = 1 to 8
      for x = 1 to 14
         read animdata(x,y,1)
      next x
   next y

for y = 1 to 8
      for x = 1 to 14
         read animdata(x,y,2)
      next x
   next y
Endfunction

AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0
Data 0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  ##      ##  |
`| ##        ## |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 0,0,1,1,0,0,0,0,0,0,1,1,0,0
data 0,1,1,0,0,0,0,0,0,0,0,1,1,0

`Alien 2 Animation Frame 2
`|  #        #  |
`|   #      #   |
`|  ##########  |
`| ## ###### ## |
`|##############|
`|##############|
`|# ##      ## #|
`|   ##    ##   |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 0,0,0,1,0,0,0,0,0,0,1,0,0,0
data 0,0,1,1,1,1,1,1,1,1,1,1,0,0
data 0,1,1,0,1,1,1,1,1,1,0,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,1,1,0,0,0,0,0,0,1,1,0,1
data 0,0,0,1,1,0,0,0,0,1,1,0,0,0

+ Code Snippet

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

      Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

   Next col
Next row


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()


menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

   center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

   `If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

     `Move player left and right with the arrow keys
     inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

     `Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

   If escapekey() = 1 then Goto ExitToMenu

     `Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

   `If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

Function LoadAliens()
   for y = 1 to 8
      for x = 1 to 14
         read animdata(x,y,1)
      next x
   next y

   for y = 1 to 8
      for x = 1 to 14
         read animdata(x,y,2)
      next x
   next y
Endfunction

AlienAnimFrame1:
`rem alien Data To create sprite: animation frame 1
`Alien 1 Frame 1
`|     ####      |
`| ############  |
`|############## |
`|###   ##   ### |
`|############## |
`|   ###  ###    |
`|  ### ## ###   |
`|##          ## |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
Data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,1,0,1,1,0,1,1,1,0,0
Data 1,1,0,0,0,0,0,0,0,0,0,0,1,1

AlienAnimFrame2:
`rem alien Data To create sprite: animation frame 2
`Alien 1 Frame 2
`|     ####     |
`| ############ |
`|##############|
`|###   ##   ###|
`|##############|
`|   ###  ###   |
`|  ##  ##  ##  |
`|   ##    ##   |

Data 0,0,0,0,0,1,1,1,1,0,0,0,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 0,0,0,1,1,1,0,0,1,1,1,0,0,0
Data 0,0,1,1,0,0,1,1,0,0,1,1,0,0
Data 0,0,0,1,1,0,0,0,0,1,1,0,0,0

`Alien 2 Animation Frame 1
`|  #        #  |
`|#  #      #  #|
`|# ########## #|
`|### ###### ###|
`|##############|
`| ############ |
`|  ##      ##  |
`| ##        ## |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 1,0,0,1,0,0,0,0,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,1,1,1,1,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0
data 0,0,1,1,0,0,0,0,0,0,1,1,0,0
data 0,1,1,0,0,0,0,0,0,0,0,1,1,0

`Alien 2 Animation Frame 2
`|  #        #  |
`|   #      #   |
`|  ##########  |
`| ## ###### ## |
`|##############|
`|##############|
`|# ##      ## #|
`|   ##    ##   |

data 0,0,1,0,0,0,0,0,0,0,0,1,0,0
data 0,0,0,1,0,0,0,0,0,0,1,0,0,0
data 0,0,1,1,1,1,1,1,1,1,1,1,0,0
data 0,1,1,0,1,1,1,1,1,1,0,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,1,1,0,0,0,0,0,0,1,1,0,1
data 0,0,0,1,1,0,0,0,0,1,1,0,0,0

"All programmers are playwrites and all computers are lousy actors" -Anon

Back to top

Profile PM

Mattman

21

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 21st Jul 2004 12:11

Link

Added: 171,174,179,182

#Constant sw = Screen Width()
#Constant sh = Screen Height()
rem The array parameters are: x position, y position, animation it is in
dim animdata(14,8,2)

sync on
sync
sync rate 0
hide mouse
disable systemkeys

savename$="CSIsaveGame"

print "Space Invaders"
print "by: Idiotic people"
print "(press any key to continue...)"
sync
wait key
cls

`Shape out the player with boxes
`(start at top of the ship And go down)
Box 12, 0, 14, 2
Box 10, 2, 16, 6
Box 2, 6, 24, 8
Box 0, 8, 26, 16

`Turn our graphic into an actual image
Get Image 1, 0, 0, 26, 16, 1

`Make a sprite of the image we just created And make it Green (like the retro days)
Sprite 1, -50, 0, 1
Set Sprite Diffuse 1, 0, 255, 0

`Create a 'bullet' sprite
Box 30, 30, 32, 46
Get Image 2, 30, 30, 32, 46

Type alien
   xPos As Float
   yPos As Float
   color As DWord
   firerate As Byte
   MoveSpeed As Byte
EndType

ExitToMenu:

playerx# = 320
playery# = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

Dim Enemies(NumofAlienRows, NumofAlienCols) As Alien

For row = 1 To NumOfAlienRows
   For col = 1 To NumOfAlienCols

Enemies(row,col).xPos = (sw / 6) + (((((sw * 2)/3)) / NumOfAlienCols) * (col - 1))
      Enemies(row,col).yPos = (sh / 4) + ((((sh /3)) / NumOfAlienRows) * (row - 1))

Next col
Next row

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310
barrier3X=480
barrier3Y=310

fire = 0
score = 0
level = 1
lives = 3

timerFire=timer()

menu()

set text size 36

Repeat
     `Loop speed regulation code, use loopSpeed# to regulate the speed of things
     loopTime = timer()-lastTime
     loopSpeed# = 1000.0/(1000.0/loopTime)
     lastTime = timer()

center Text screen width() * .5,0, "SCORE<1> HI-SCORE SCORE<2>"
   score1$ = STR$(score1)
   For i = 0 To 4-Len(score1$)+1
      score1$ = "0" + score1$
   Next i
   ` just do the same For other scores
   center Text screen width() * .5,36, score1$ + "      " + hiscore$ + "      " + score2$

`If bullet is inactive, then fire it If space is pressed
   If not fire
      If spacekey()
         playerBulletX# = playerX# + 12
         playerBulletY# = playerY# - 2
         fire = 1
      EndIf
   Else
      `If bullet is active then move it and show it as a sprite, also check if it goes off the screen
      dec playerBulletY#,0.5*loopSpeed#
      if playerBulletY# < -16 then fire = 0
      sprite 2,playerBulletX#,playerBulletY#,2
   EndIf

`Move player left and right with the arrow keys
     inc playerx#,(keystate(205)-keystate(203))*loopSpeed#*0.3

`Limit player movement
   If playerx# < 30 then playerx# = 30
   If playerx# > 580 then playerx# = 580

If escapekey() = 1 then Goto ExitToMenu

`Draw player
   sprite 1, playerx#, playery#, 1
   sync
   cls
Until lives = 0

print "Game over"
print "Your score : " + str$(score)
print "Press spacebar to go to the menu, any other key to exit (and why would you want to do that?)"
sync
wait key
If spacekey() = 1 then Goto ExitToMenu Else End

function menu()
   print "1.Start Game"
   print "2.Load Game"
   print "3.Help"
   print "4.Exit"

`If inkey$()="1" then goto startgame
   `If inkey$()="2" then loadgame()

endfunction

`---------------------
`-Functions-----------
`---------------------

`Load Game Function
`CSI = Community Space Invaders!

function loadgame(savename$)
   If not file exist(savename$)
     print "There is no Save Game data!"
     print "(press ny key to continue)"
   EndIf
endfunction

`Save Game Function

function savegame(savename$)
`We don't have any Data at the mo, so im leaving this blank.
endfunction

Function LoadAliens()
   for y = 1 to 8
      for x = 1 to 14
         read animdata(x,y,1)
         if animdata(x,y,1) = 1 then dot x,y,rgb(100,100,255)
      next x
   next y
   get image 10,1,1,15,8

for y = 1 to 8
      for x = 1 to 14
         read animdata(x,y,2)
          if animdata(x,y,2) = 1 then dot x,y,rgb(100,100,255)
      next x
   next y
   get image 11,1,1,15,8
Endfunction