Community Space Invaders DBpro - GameCreators Forum

Author

Message

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 15th Jul 2004 13:11 Edited at: 18th Jul 2004 11:30

Link

I'm sure this may have been tried before, but heck these days I'm a glutton for punishment.

The code must run in DBprofessional when complete. And should be a space invaders clone.

[Edit]We Adopted some changes to the rules[End Edit]

The Rules:
1)You can post 4 lines code per post.
2)You may also remove 2 lines per post.
3)You can add unlimited remarks but they can't contain code. (try to keep to a minimum as to not spam the code).
3)A line can't have a ":" (unless it's a label! or part of text etc..) It must be a single line (unlike the 20 line challenge).
4)No media can be attached.
5)You must wait until at least two people post befor you can post again.
6)The line of code can be posted anywhere in the snippet (it does not have to go in order).
7)You may make changes to existing codes numerical values.
8)No complaining if someone deletes one of your lines or doesn't post what you would have expected.
9)Try not to purposely destroy the code.
10)To post properly you must copy the snippet from the previous post, make your changes and post a new snippet.
11)You may also correct errroneous spelling mistakes on keywords.

I'll start

+ Code Snippet

sync on
sync rate 0

Back to top

Profile PM Email

Jimmy

21

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 15th Jul 2004 13:24

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
ink rgb(0,0,100),rgb(0,0,0)

<Mnemonix> im seroulsiy frunk to doaty
http://www.dbspot.com/ - Free website hosting. Fast and reliable... probably.

Back to top

Profile PM Website

TravisP

20

Years of Service

User Offline

Joined: 30th Jun 2004

Location: Behind you, with a knife!

Posted: 15th Jul 2004 13:28

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"

Formally known as DarkTRAVIS.

Back to top

Profile PM Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 15th Jul 2004 13:30

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key

Back to top

Profile PM Email

Jimmy

21

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 15th Jul 2004 13:35

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key
box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

<Mnemonix> im seroulsiy frunk to doaty
http://www.dbspot.com/ - Free website hosting. Fast and reliable... probably.

Back to top

Profile PM Website

walaber

20

Years of Service

User Offline

Joined: 22nd Oct 2003

Location: Los Angeles, CA

Posted: 15th Jul 2004 13:53

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key
box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1
playerx = 320
playery = 400

Go Go Gadget DBPRO!

Athlon XP 2400+ || DDR-SDRAM 1GB || Nvidia GeForce 4 Ti4200 AGP 8x 128MB

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 15th Jul 2004 13:55

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

fire=0
level=1

Back to top

Profile PM Email

Killswitch

21

Years of Service

User Offline

Joined: 2nd Oct 2002

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

Posted: 15th Jul 2004 20:44

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

fire=0
level=1

menu()

function menu()

~I see one problem with your reasoning: The fact is that is a chicken~

Back to top

Profile PM Email

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 15th Jul 2004 23:13 Edited at: 16th Jul 2004 02:35

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

fire=0
level=1

menu()

function menu()

- Mind the gap -

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 15th Jul 2004 23:20

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
disable escapekey
diasble systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

fire=0
level=1
lives=3

menu()

function menu()
endfunction

Back to top

Profile PM Email

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 15th Jul 2004 23:31 Edited at: 16th Jul 2004 02:35

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

fire=0
level=1
lives=3

menu()

repeat
until lives = 0

function menu()
endfunction

- Mind the gap -

Back to top

Profile PM Email Website

Killswitch

21

Years of Service

User Offline

Joined: 2nd Oct 2002

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

Posted: 15th Jul 2004 23:56

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
disable escapekey
diasble systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

fire=0
level=1
lives=3

menu()

repeat

if enterkey()=1
endif

until lives = 0

function menu()
endfunction

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

Back to top

Profile PM Email

dark coder

21

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 16th Jul 2004 02:22

Link

what, do you want returnkey for :-P

+ Code Snippet

sync on
sync rate 0
hide mouse
disable escapekey
diasble systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

fire=0
level=1
lives=3

menu()

repeat

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

if enterkey()=1
endif

until lives = 0

function menu()
endfunction

http://www.kingsofchaos.com/recruit.php?uniqid=dg4wx8m4

Back to top

Profile PM Email

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 16th Jul 2004 02:38 Edited at: 16th Jul 2004 02:42

Link

+ Code Snippet

sync on
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

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

menu()

repeat

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

   if enterkey()=1
   endif

until lives = 0

end

function menu()
endfunction

Hehe

- Mind the gap -

Back to top

Profile PM Email Website

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 16th Jul 2004 02:45

Link

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

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

menu()

repeat

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

   if returnkey()=1
   endif

until lives = 0

end

function menu()
endfunction

can i scream

Back to top

Profile PM Website

Jimmy

21

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 16th Jul 2004 03:45

Link

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

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

menu()

repeat

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

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

until lives = 0

end

function menu()
endfunction

<Mnemonix> im seroulsiy frunk to doaty
http://www.dbspot.com/ - Free website hosting. Fast and reliable... probably.

Back to top

Profile PM Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 16th Jul 2004 04:25

Link

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

NumOfAlienCols=10
NumOfAlienRows=5

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




menu()

repeat

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

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

until lives = 0

end

function menu()
endfunction

Back to top

Profile PM Email

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 16th Jul 2004 04:52

Link

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

NumOfAlienCols=10
NumOfAlienRows=5

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




menu()

repeat

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

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

until lives = 0

print "Your score : " + str$(score)
sync

end

function menu()
endfunction

- Mind the gap -

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 16th Jul 2004 05:26

Link

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400

NumOfAlienCols=10
NumOfAlienRows=5

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




menu()

repeat

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

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

   sync
   cls
until lives = 0

print "Your score : " + str$(score)
sync

end

function menu()
endfunction

Athelon XP 1600+/Radeon 9600 Pro/256 RAM

Back to top

Profile PM Email Website

HZence

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location:

Posted: 16th Jul 2004 05:34

Link

Whoever added DISABLE ESCAPEKEY and DISABLE SYSTEMKEYS should be shot.

Team EOD :: Programmer/Storyboard Assistant

Back to top

Profile PM

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 16th Jul 2004 05:35

Link

You can delete a line HZence

. Now post some damn code!

Athelon XP 1600+/Radeon 9600 Pro/256 RAM

Back to top

Profile PM Email Website

HZence

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location:

Posted: 16th Jul 2004 05:37 Edited at: 16th Jul 2004 05:37

Link

After you Hamish...

EDIT: Oh wait, you already did

Team EOD :: Programmer/Storyboard Assistant

Back to top

Profile PM

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 16th Jul 2004 05:51

Link

Remember you can add 2 lines and take away one line every post!

I put that rule in their in case something like that happened

Back to top

Profile PM Email

Jimmy

21

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Back in the USA

Posted: 16th Jul 2004 06:27

Link

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400


NumOfAlienCols=10
NumOfAlienRows=5

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




menu()

repeat

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

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

   sprite 1, playerx, playery, 1

   sync
   cls
until lives = 0

print "Your score : " + str$(score)
sync
wait key
end

function menu()
endfunction

<Mnemonix> im seroulsiy frunk to doaty
http://www.dbspot.com/ - Free website hosting. Fast and reliable... probably.

Back to top

Profile PM Website

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 16th Jul 2004 06:47 Edited at: 16th Jul 2004 06:47

Link

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

playerx = 320
playery = 400


NumOfAlienCols = 10
NumOfAlienRows = 5

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




menu()

repeat

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

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

   if escapekey() = 1 then gosub ExitMenu

   sprite 1, playerx, playery, 1

   sync
   cls

until lives = 0

print "Your score : " + str$(score)
sync
wait key
end

function menu()
endfunction

- Mind the gap -

Back to top

Profile PM Email Website

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 16th Jul 2004 07:04

Link

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable escapekey
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:

playerx = 320
playery = 400


NumOfAlienCols = 10
NumOfAlienRows = 5

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




menu()

repeat

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

   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 "Your score : " + str$(score)
sync
wait key
end

function menu()
endfunction

Athelon XP 1600+/Radeon 9600 Pro/256 RAM

Back to top

Profile PM Email Website

Mattman

21

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 16th Jul 2004 07:33

Link

This is a cool idea!

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:

playerx = 320
playery = 400


NumOfAlienCols = 10
NumOfAlienRows = 5

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




menu()

repeat

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

   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 "Your score : " + str$(score)
sync
wait key
if spacekey() = 1 then ExitToMenu
else end

function menu()
endfunction

"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: 16th Jul 2004 08:06 Edited at: 16th Jul 2004 08:24

Link

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310

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


menu()

repeat

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

   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 "Your score : " + str$(score)
sync
wait key
if spacekey() = 1 then ExitToMenu
else end

print "Your score : " + str$(score)
sync
wait key
if spacekey() = 1 then ExitToMenu
else end

function menu()
endfunction

ThanX hamish, (see below v) I made a mistake copying and pasting. This is starting to take shape. not bad for noone being able to communicate and writing code on the fly. I think we may succeed. Yipeee!!!

Back to top

Profile PM Email

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 16th Jul 2004 08:20 Edited at: 16th Jul 2004 08:22

Link

Dunno what happened with the double code at the end there, so just took it out.

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310

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


menu()

repeat

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

   if playerx < 30 then playerx = 30

   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 "Your score : " + str$(score)
print "Press spacebar to go to da 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()
endfunction

Athelon XP 1600+/Radeon 9600 Pro/256 RAM

Back to top

Profile PM Email Website

Final Epsilon

20

Years of Service

User Offline

Joined: 26th Jan 2004

Location: CA, USA

Posted: 16th Jul 2004 09:45

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310

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

timerFire=timer()

menu()

repeat

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

if playerx < 30 then playerx = 30

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 da 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()
endfunction

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:

playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310

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

timerFire=timer()

menu()

repeat

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

   if playerx < 30 then playerx = 30

   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 da 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()
endfunction

Back to top

Profile PM Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 16th Jul 2004 10:54 Edited at: 16th Jul 2004 10:55

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat

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

if playerx < 30 then playerx = 30

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 da 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()
endfunction

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat

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

   if playerx < 30 then playerx = 30

   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 da 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()
endfunction

Back to top

Profile PM Email

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 16th Jul 2004 18:05 Edited at: 16th Jul 2004 18:07

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

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 da 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()
endfunction

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

   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 da 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()
endfunction

Athelon XP 1600+/Radeon 9600 Pro/256 RAM

Back to top

Profile PM Email Website

Killswitch

21

Years of Service

User Offline

Joined: 2nd Oct 2002

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

Posted: 16th Jul 2004 18:58

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

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"

endfunction

+ Code Snippet


sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

   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"

endfunction

(does editing a line count? da=the now)

~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: 16th Jul 2004 21:22 Edited at: 16th Jul 2004 22:20

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

Type alien
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

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"

endfunction

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1


Type alien
EndType


ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5


barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

   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"

endfunction

Hey, great idea Zen.
Just because I like the idea and I don't want to see it fall uncontrollably out of hand, can I suggest that from now on, we post which lines we added/removed/edited so that we can just past it into the IDE, look at the line and say "Ah, yes, what a champion idea!"?

I'll lead by example;
Added lines; 18/19
Removed lines; none
Edited lines; none

What fun

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

Back to top

Profile PM Email Website

Dave J

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 16th Jul 2004 22:10 Edited at: 16th Jul 2004 22:19

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

Type alien
   xPos As Float
   yPos As Float
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

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"

endfunction

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

Type alien
   xPos As Float
   yPos As Float
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

   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"

endfunction

Added: 18 & 19

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

Back to top

Profile PM Email

Mattman

21

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 16th Jul 2004 23:07

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

Type alien
   xPos As Float
   yPos As Float
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

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"
endfunction

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

Type alien
   xPos As Float
   yPos As Float
EndType

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

   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"
endfunction

Added 72 and 73

"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

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 16th Jul 2004 23:19

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

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"
endfunction

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire

   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"
endfunction

Add lines 20/21

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: 16th Jul 2004 23:19 Edited at: 16th Jul 2004 23:21

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire
   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"
endfunction

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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

ExitToMenu:
playerx = 320
playery = 400

NumOfAlienCols = 10
NumOfAlienRows = 5

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire
   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"
endfunction

Added 47+48

Athelon XP 1600+/Radeon 9600 Pro/256 RAM

Back to top

Profile PM Email Website

Dave J

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 17th Jul 2004 00:08

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire
   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"
endfunction

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire
   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"
endfunction

22 & 32

Lol, I so want to tell people where I'm going with this.

"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: 17th Jul 2004 00:45

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire
   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"
endfunction

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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



barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire
   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"
endfunction

Added 34/35

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

Back to top

Profile PM Email Website

Killswitch

21

Years of Service

User Offline

Joined: 2nd Oct 2002

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

Posted: 17th Jul 2004 01:03 Edited at: 17th Jul 2004 01:21

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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

barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire
   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

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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



barrier1X=140
barrier1Y=310
barrier2X=300
barrier2Y=310

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

timerFire=timer()

menu()

repeat
   if not fire
   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

No IDE here but its the peultimate line and the one preceding it.

~Sorry Jess, I musta been posting as you were - this could be a problem!

~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

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 17th Jul 2004 03:55

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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

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
   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

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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



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
   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

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: 17th Jul 2004 12:31

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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
   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

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
print "Space Invaders"
print "by:idiotic people"
print "(press any key to continue...)"
sync
wait key

box 1, 1, 30, 30
get image 1, 1, 1, 30, 30, 1

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
   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

Added: 38/39

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

Back to top

Profile PM Email Website

Dave J

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 17th Jul 2004 17:44 Edited at: 17th Jul 2004 17:45

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
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

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
   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

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
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

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
   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

Added: 15
Modified: 16 (hope that's cool, I only changed one number so my line would actually do something

)

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

Back to top

Profile PM Email

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 17th Jul 2004 23:39 Edited at: 17th Jul 2004 23:40

Link

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
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

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

+ Code Snippet

sync on
sync
sync rate 0
hide mouse
disable systemkeys

ink rgb(0,0,100),rgb(0,0,0)
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

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

Added 62+63
Corrected 96+97

Athelon XP 1600+/Radeon 9600 Pro/256 RAM

Back to top

Profile PM Email Website

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 18th Jul 2004 00:02

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

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

+ 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

Removed line 7;

+ Code Snippet

ink rgb(0,0,100),rgb(0,0,0)

Added lines 19/20

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

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 18th Jul 2004 01:24 Edited at: 18th Jul 2004 05:55

Link

I should have posted this from the beginning. In fact I just thought about looking at a reference, as I originally had the layout of the 2600 version in my head, but wanted it to be closer to the arcade version. So I will have to change some of my numbers, for position of the barriers.

I think that since we got this far we should change some of the rules.

Propose ammendments I
A: I like the way you guys are adding the line #'s that have changes. I wish I had though of that. It isn't a must but if you can post the line #'s that you have changed.

B: Ability to add rem statements: Since people are actually doing this I think now it would be ok to leave a few rem statements. (it will actually help people new to DB to see why certain things are added. You can add as many rem statements as you deem necessary but let's keep it minimal as to not spam the code. The rem statements can not contain code, it should just be a small description.
eg. `Create barrriers 1-4 and set position.
eg. `Set timer for firing.

C: "4" lines of code per post + you can remove "2" lines per post. (* changing values(numbers) in a line does not count aginst your line count. This will help us if a number was a mistake or if we change the resolution.)

Before these rules into effect I beleieve that we should have 3 other people type "AGREE"!

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 01:56

Link

added label and data statement.

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,1,1,1,1,1,1,1,1,1,1,1,1,0,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,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,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,1,1,1,1,1,1,1,1,1,1,1,1,0,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,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,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

Back to top

Profile PM Email

Hamish McHaggis

21

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 18th Jul 2004 05:45

Link

AGREE

Athelon XP 1600+/Radeon 9600 Pro/256 RAM

Back to top

Profile PM Email Website

Dave J

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 18th Jul 2004 09:51

Link

AGREE!!! Booyah! Wheeedo! Aye.

...Got carried away a bit, sorry.

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

Back to top

Profile PM Email

Sorry your browser is not supported!

Geek Culture / Community Space Invaders DBpro