My first game: Galactic Warfare - GameCreators Forum

Author

Message

Allanon Shadeslayer

17

Years of Service

User Offline

Joined: 28th Dec 2006

Location:

Posted: 13th Jan 2007 03:04 Edited at: 13th Jan 2007 03:05

Link

'lo all! I have been working on this game for awhile now and despite a few bugs to fix i have it mostly complete.

Here it is!

Rem Project: Galactic Warfare
Rem Created: 1/10/2007 12:46:05 PM

Rem ***** Main Source File *****

rem basic settings
hide mouse
center text screen width()/2,screen height()/2,"Loading..." : wait 3000

rem loading media
load image "Metal_Plates_T.bmp",1 : load image "bunker.bmp",2
load sound "Blaster.wav",1 : load sound "Boom 1.wav",2

rem creating material for game
make object cone 1,100 : make object cube 2,50 : make object cube 3,50
make object cube 4,50 : make object cube 5,50 : make object cone 6,75
make object cone 7,75 : make object cone 8,75 : make object sphere 9,75
make object sphere 10,75 : make object sphere 11,75 : make object cylinder 12,75
make object cylinder 13,75 : make object cylinder 14,75 : make object cone 15,75
make object cone 16,75 : make object cone 17,75 : make object cone 18,75
make object cone 19,75 : make object cone 20,75 : make object cone 21,75
make object cone 22,75 : make object cone 23,75 : make object cone 24,75
make object cube 25,75 : make object sphere 26,12

rem positioning material
position object 1,0,-375,0 : position object 2,-400,-375,0 : position object 3,400,-375,0
position object 4,0,-550,0 : position object 5,0,525,0 : position object 6,-300,1200,0
position object 7,-200,1100,0 : position object 8,-100,1000,0 : position object 9,100,1800,0
position object 10,200,1900,0 : position object 11,300,2000,0 : position object 12,-300,3000,0
position object 13,0,3000,0 : position object 14,300,3000,0 : position object 15,300,4600,0
position object 16,200,4700,0 : position object 17,100,4800,0 : position object 18,0,4900,0
position object 19,-100,5000,0 : position object 20,-300,5600,0 : position object 21,-200,5700,0
position object 22,-100,5800,0 : position object 23,0,5900,0 : position object 24,100,6000,0
position object 25,0,7000,0 : position object 26,0,-525,100

rem adjusting size of ships
scale object 1,125,100,50 : scale object 4,1500,50,50 : scale object 5,1500,50,50
scale object 6,75,100,25 : scale object 7,75,100,25 : scale object 8,75,100,25
scale object 15,75,100,25 : scale object 16,75,100,25 : scale object 17,75,100,25
scale object 18,75,100,25 : scale object 19,75,100,25 : scale object 20,75,100,25
scale object 21,75,100,25 : scale object 22,75,100,25 : scale object 23,75,100,25
scale object 24,75,100,25

rem pointing enemy ships
zrotate object 6,180 : zrotate object 7,180 : zrotate object 8,180
zrotate object 15,180 : zrotate object 16,180 : zrotate object 17,180
zrotate object 18,180 : zrotate object 19,180 : zrotate object 20,180
zrotate object 21,180 : zrotate object 22,180 : zrotate object 23,180
zrotate object 24,180

rem texturing ships and coloring cannon
texture object 1,1 : texture object 6,2 : texture object 7,2
texture object 8,2 : texture object 9,2 : texture object 10,2
texture object 11,2 : texture object 12,2 : texture object 13,2
texture object 14,2 : texture object 15,2 : texture object 16,2
texture object 17,2 : texture object 18,2 : texture object 19,2
texture object 20,2 : texture object 21,2 : texture object 22,2
texture object 23,2 : texture object 24,2 : texture object 25,2
color object 26,rgb(255,0,0)

rem setting cannon transparency
ghost object on 26

rem hiding boundary lines
hide object 2 : hide object 3

rem making and editing the camera
make camera 1
position camera 1,0,0,-750
color backdrop 1,rgb(0,0,0)

rem game loop
do

rem setting player ship controls
if leftkey() then move object left 1,0.2
if rightkey() then move object right 1,0.2
if spacekey()
position object 26,object position x(1),object position y(1),object position z(1)
play sound 1
endif

rem setting boundaries
if object collision(1,2) then move object right 1,0.2
if object collision(1,3) then move object left 1,0.2
if object collision(26,5) then position object 26,0,-525,100

rem launching enemies
move object up 6,0.1 : move object up 7,0.1 : move object up 8,0.1
move object down 9,0.1 : move object down 10,0.1 : move object down 11,0.1
move object down 12,0.1 : move object down 13,0.1 : move object down 14,0.1
move object up 15,0.1 : move object up 16,0.1 : move object up 17,0.1
move object up 18,0.1 : move object up 19,0.1 : move object up 20,0.1
move object up 21,0.1 : move object up 22,0.1 : move object up 23,0.1
move object up 24,0.1 : move object down 25,0.1

rem enemy properties
if object collision(6,1) then end
if object collision(7,1) then end
if object collision(8,1) then end
if object collision(9,1) then end
if object collision(10,1) then end
if object collision(11,1) then end
if object collision(12,1) then end
if object collision(13,1) then end
if object collision(14,1) then end
if object collision(15,1) then end
if object collision(16,1) then end
if object collision(17,1) then end
if object collision(18,1) then end
if object collision(19,1) then end
if object collision(20,1) then end
if object collision(21,1) then end
if object collision(22,1) then end
if object collision(23,1) then end
if object collision(24,1) then end
if object collision(25,1) then end
if object collision(6,4) then end
if object collision(7,4) then end
if object collision(8,4) then end
if object collision(9,4) then end
if object collision(10,4) then end
if object collision(11,4) then end
if object collision(12,4) then end
if object collision(13,4) then end
if object collision(14,4) then end
if object collision(15,4) then end
if object collision(16,4) then end
if object collision(17,4) then end
if object collision(18,4) then end
if object collision(19,4) then end
if object collision(20,4) then end
if object collision(21,4) then end
if object collision(22,4) then end
if object collision(23,4) then end
if object collision(24,4) then end
if object collision(25,4) then end

rem cannon properties
if object position z(26)=object position z(1) then move object up 26,0.5
if object hit(26,6)
play sound 2
position object 6,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,7)
play sound 2
position object 7,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,8)
play sound 2
position object 8,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,9)
play sound 2
position object 9,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,10)
play sound 2
position object 10,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,11)
play sound 2
position object 11,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,12)
play sound 2
position object 12,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,13)
play sound 2
position object 13,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,14)
play sound 2
position object 14,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,15)
play sound 2
position object 15,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,16)
play sound 2
position object 16,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,17)
play sound 2
position object 17,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,18)
play sound 2
position object 18,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,19)
play sound 2
position object 19,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,20)
play sound 2
position object 20,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,21)
play sound 2
position object 21,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,22)
play sound 2
position object 22,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,23)
play sound 2
position object 23,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,24)
play sound 2
position object 24,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,25)
play sound 2
position object 25,0,-600,0
position object 26,0,-525,100
wait 1000
end
endif

rem end loop
loop

+ Code Snippet

Rem Project: Galactic Warfare
Rem Created: 1/10/2007 12:46:05 PM

Rem ***** Main Source File *****

rem basic settings
hide mouse
center text screen width()/2,screen height()/2,"Loading..." : wait 3000

rem loading media
load image "Metal_Plates_T.bmp",1 : load image "bunker.bmp",2
load sound "Blaster.wav",1 : load sound "Boom 1.wav",2

rem creating material for game
make object cone 1,100 : make object cube 2,50 : make object cube 3,50
make object cube 4,50 : make object cube 5,50 : make object cone 6,75
make object cone 7,75 : make object cone 8,75 : make object sphere 9,75
make object sphere 10,75 : make object sphere 11,75 : make object cylinder 12,75
make object cylinder 13,75 : make object cylinder 14,75 : make object cone 15,75
make object cone 16,75 : make object cone 17,75 : make object cone 18,75
make object cone 19,75 : make object cone 20,75 : make object cone 21,75
make object cone 22,75 : make object cone 23,75 : make object cone 24,75
make object cube 25,75 : make object sphere 26,12

rem positioning material
position object 1,0,-375,0 : position object 2,-400,-375,0 : position object 3,400,-375,0
position object 4,0,-550,0 : position object 5,0,525,0 : position object 6,-300,1200,0
position object 7,-200,1100,0 : position object 8,-100,1000,0 : position object 9,100,1800,0
position object 10,200,1900,0 : position object 11,300,2000,0 : position object 12,-300,3000,0
position object 13,0,3000,0 : position object 14,300,3000,0 : position object 15,300,4600,0
position object 16,200,4700,0 : position object 17,100,4800,0 : position object 18,0,4900,0
position object 19,-100,5000,0 : position object 20,-300,5600,0 : position object 21,-200,5700,0
position object 22,-100,5800,0 : position object 23,0,5900,0 : position object 24,100,6000,0
position object 25,0,7000,0 : position object 26,0,-525,100

rem adjusting size of ships
scale object 1,125,100,50 : scale object 4,1500,50,50 : scale object 5,1500,50,50
scale object 6,75,100,25 : scale object 7,75,100,25 : scale object 8,75,100,25
scale object 15,75,100,25 : scale object 16,75,100,25 : scale object 17,75,100,25
scale object 18,75,100,25 : scale object 19,75,100,25 : scale object 20,75,100,25
scale object 21,75,100,25 : scale object 22,75,100,25 : scale object 23,75,100,25
scale object 24,75,100,25

rem pointing enemy ships
zrotate object 6,180 : zrotate object 7,180 : zrotate object 8,180
zrotate object 15,180 : zrotate object 16,180 : zrotate object 17,180
zrotate object 18,180 : zrotate object 19,180 : zrotate object 20,180
zrotate object 21,180 : zrotate object 22,180 : zrotate object 23,180
zrotate object 24,180

rem texturing ships and coloring cannon
texture object 1,1 : texture object 6,2 : texture object 7,2
texture object 8,2 : texture object 9,2 : texture object 10,2
texture object 11,2 : texture object 12,2 : texture object 13,2
texture object 14,2 : texture object 15,2 : texture object 16,2
texture object 17,2 : texture object 18,2 : texture object 19,2
texture object 20,2 : texture object 21,2 : texture object 22,2
texture object 23,2 : texture object 24,2 : texture object 25,2
color object 26,rgb(255,0,0)

rem setting cannon transparency
ghost object on 26

rem hiding boundary lines
hide object 2 : hide object 3

rem making and editing the camera
make camera 1
position camera 1,0,0,-750
color backdrop 1,rgb(0,0,0)

rem game loop
do

rem setting player ship controls
if leftkey() then move object left 1,0.2
if rightkey() then move object right 1,0.2
if spacekey()
position object 26,object position x(1),object position y(1),object position z(1)
play sound 1
endif

rem setting boundaries
if object collision(1,2) then move object right 1,0.2
if object collision(1,3) then move object left 1,0.2
if object collision(26,5) then position object 26,0,-525,100

rem launching enemies
move object up 6,0.1 : move object up 7,0.1 : move object up 8,0.1
move object down 9,0.1 : move object down 10,0.1 : move object down 11,0.1
move object down 12,0.1 : move object down 13,0.1 : move object down 14,0.1
move object up 15,0.1 : move object up 16,0.1 : move object up 17,0.1
move object up 18,0.1 : move object up 19,0.1 : move object up 20,0.1
move object up 21,0.1 : move object up 22,0.1 : move object up 23,0.1
move object up 24,0.1 : move object down 25,0.1

rem enemy properties
if object collision(6,1) then end
if object collision(7,1) then end
if object collision(8,1) then end
if object collision(9,1) then end
if object collision(10,1) then end
if object collision(11,1) then end
if object collision(12,1) then end
if object collision(13,1) then end
if object collision(14,1) then end
if object collision(15,1) then end
if object collision(16,1) then end
if object collision(17,1) then end
if object collision(18,1) then end
if object collision(19,1) then end
if object collision(20,1) then end
if object collision(21,1) then end
if object collision(22,1) then end
if object collision(23,1) then end
if object collision(24,1) then end
if object collision(25,1) then end
if object collision(6,4) then end
if object collision(7,4) then end
if object collision(8,4) then end
if object collision(9,4) then end
if object collision(10,4) then end
if object collision(11,4) then end
if object collision(12,4) then end
if object collision(13,4) then end
if object collision(14,4) then end
if object collision(15,4) then end
if object collision(16,4) then end
if object collision(17,4) then end
if object collision(18,4) then end
if object collision(19,4) then end
if object collision(20,4) then end
if object collision(21,4) then end
if object collision(22,4) then end
if object collision(23,4) then end
if object collision(24,4) then end
if object collision(25,4) then end

rem cannon properties
if object position z(26)=object position z(1) then move object up 26,0.5
if object hit(26,6)
play sound 2
position object 6,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,7)
play sound 2
position object 7,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,8)
play sound 2
position object 8,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,9)
play sound 2
position object 9,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,10)
play sound 2
position object 10,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,11)
play sound 2
position object 11,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,12)
play sound 2
position object 12,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,13)
play sound 2
position object 13,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,14)
play sound 2
position object 14,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,15)
play sound 2
position object 15,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,16)
play sound 2
position object 16,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,17)
play sound 2
position object 17,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,18)
play sound 2
position object 18,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,19)
play sound 2
position object 19,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,20)
play sound 2
position object 20,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,21)
play sound 2
position object 21,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,22)
play sound 2
position object 22,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,23)
play sound 2
position object 23,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,24)
play sound 2
position object 24,0,-600,0
position object 26,0,-525,100
endif
if object hit(26,25)
play sound 2
position object 25,0,-600,0
position object 26,0,-525,100
wait 1000
end
endif

rem end loop
loop

I just started programming a month ago so don't laugh too hard.
Any ideas on how I can make this more efficient?

Back to top

Profile PM

Z ephyrmancer

17

Years of Service

User Offline

Joined: 27th Jul 2006

Location:

Posted: 13th Jan 2007 03:55

Link

It would probably be best if you zipped up all the images, music, and sound in the game and made that available =) in order to build from the course we need the media.

Cheers,
Zeph

Back to top

Profile PM

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 13th Jan 2007 03:57 Edited at: 13th Jan 2007 04:01

Link

I can't run the program unless you post the media(sounds, images, etc.) (and possibly the EXE, if you like) in a ZIP file or something. Can't wait to test it out!

Ways to make it more efficent? I'll post those after I run the program. But one thing I did notice were all of those collision statements! try IF OBJECT COLLISION(Object A, 0) The 0 means any object, and it will return the object number of the object that Object A collided with. so say you want to see if object 1 collides with any of the objects numbered 20 to 40. You could just do this:

+ Code Snippet

IF OBJECT COLLISION(1,0)>=20 and OBJECT COLLISION(1,0)<=40 
     `Insert action here
ENDIF

Good luck! I can't wait to play this

Back to top

Profile PM Email

Allanon Shadeslayer

17

Years of Service

User Offline

Joined: 28th Dec 2006

Location:

Posted: 13th Jan 2007 04:19

Link

ok i have a copy of the final executable in a compressed zipped file as well as all of the media but how do i post it on here?

Back to top

Profile PM

Darth Vader

18

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 13th Jan 2007 07:31

Link

Allanon the box were you type your message you will see just below it a small text are with the word "Attachment" next to it. Click the browse button and simply find your file on the your computer and click open. After this your message will be displayed and you will have a little download in button in the corner of your message!
Can't wait to try out your game!

http://ideal-entertainment.galekus.com

Back to top

Profile PM Email Website

Allanon Shadeslayer

17

Years of Service

User Offline

Joined: 28th Dec 2006

Location:

Posted: 13th Jan 2007 17:06 Edited at: 15th Jan 2007 22:16

Link

don't download the download on this post

I don't suffer from laziness... I enjoy every minute of it!

Attachments

Login to view attachments

Back to top

Profile PM

Allanon Shadeslayer

17

Years of Service

User Offline

Joined: 28th Dec 2006

Location:

Posted: 13th Jan 2007 20:18

Link

anyone tried it yet?

if so, please respond

Back to top

Profile PM

Allanon Shadeslayer

17

Years of Service

User Offline

Joined: 28th Dec 2006

Location:

Posted: 13th Jan 2007 21:42 Edited at: 15th Jan 2007 22:16

Link

don't download this download

I don't suffer from laziness... I enjoy every minute of it!

Attachments

Login to view attachments

Back to top

Profile PM

Allanon Shadeslayer

17

Years of Service

User Offline

Joined: 28th Dec 2006

Location:

Posted: 13th Jan 2007 23:21

Link

Anyone...

Pleeeeeeeeeeeeeease?

Back to top

Profile PM

Z ephyrmancer

17

Years of Service

User Offline

Joined: 27th Jul 2006

Location:

Posted: 13th Jan 2007 23:48

Link

Downloading now =) Ill post a comment after Ive given it a try

~Zeph

Back to top

Profile PM

Z ephyrmancer

17

Years of Service

User Offline

Joined: 27th Jul 2006

Location:

Posted: 13th Jan 2007 23:52

Link

Not bad for a first =) The slow problem; You might want to try syncing the game faster...been a while so don't sue me if it doesnt work ^^ try putting this snippet at the top of you code;

+ Code Snippet

sync on
sync rate 60

then put this just before the "loop" command in the do-loop;

+ Code Snippet

sync

Try it, not 100% sure it will work =P but fwiw

~Zeph

Back to top

Profile PM

H4ck1d

18

Years of Service

User Offline

Joined: 27th Dec 2005

Location: Yes

Posted: 14th Jan 2007 00:05

Link

I tried to run it, but it was terribly slow, but then I have a horrible computer so it's probably not the fault of your program

Back to top

Profile PM Website

Allanon Shadeslayer

17

Years of Service

User Offline

Joined: 28th Dec 2006

Location:

Posted: 14th Jan 2007 03:03 Edited at: 14th Jan 2007 03:07

Link

It ran fast when I downloaded it myself but this is the fourth time I've heard this complaint so it must be my coding. I have the sync rate on 0 even. Anymore ideas on what's wrong?

Back to top

Profile PM

Z ephyrmancer

17

Years of Service

User Offline

Joined: 27th Jul 2006

Location:

Posted: 14th Jan 2007 04:18

Link

Just increase all the movement speeds...I see them down in the .1-.5, but on my computer I moved them up to about 10 and they were moving normals speed =D

Give it a try and recompile.

~Zeph

Back to top

Profile PM

Allanon Shadeslayer

17

Years of Service

User Offline

Joined: 28th Dec 2006

Location:

Posted: 14th Jan 2007 17:54 Edited at: 14th Jan 2007 18:13

Link

Ok, I changed the sync rate from 0 to 60 and changed the speeds. But now it runs all jerky; however, the speeds are a tiny bit more consistent than with the sync rate at 0. I hope this solves the speed problem. Like I said though, it seemed to run fine on my computer so I really don't know what the deal is.

Rem Project: Galactic Warfare
Rem Created: 1/10/2007 12:46:05 PM

Rem ***** Main Source File *****

rem basic settings
hide mouse
sync on
sync rate 60
sync : center text screen width()/2,screen height()/2,"Loading..." : sync : wait 3000

rem loading media
load image "Metal_Plates_T.bmp",1 : load image "bunker.bmp",2
load sound "Blaster.wav",1 : load sound "Boom 1.wav",2 : load sound "Large explosion 3.wav",3

rem creating material for game
make object cone 1,100 : make object cube 2,50 : make object cube 3,50
make object cube 4,50 : make object cube 5,50 : make object cone 6,75
make object cone 7,75 : make object cone 8,75 : make object sphere 9,75
make object sphere 10,75 : make object sphere 11,75 : make object cylinder 12,75
make object cylinder 13,75 : make object cylinder 14,75 : make object cone 15,75
make object cone 16,75 : make object cone 17,75 : make object cone 18,75
make object cone 19,75 : make object cone 20,75 : make object cone 21,75
make object cone 22,75 : make object cone 23,75 : make object cone 24,75
make object cube 25,75 : make object sphere 26,12

rem positioning material
position object 1,0,-375,0 : position object 2,-400,-375,0 : position object 3,400,-375,0
position object 4,0,-550,0 : position object 5,0,525,0 : position object 6,-300,1200,0
position object 7,-200,1100,0 : position object 8,-100,1000,0 : position object 9,100,1800,0
position object 10,200,1900,0 : position object 11,300,2000,0 : position object 12,-300,3000,0
position object 13,0,3000,0 : position object 14,300,3000,0 : position object 15,300,4600,0
position object 16,200,4700,0 : position object 17,100,4800,0 : position object 18,0,4900,0
position object 19,-100,5000,0 : position object 20,-300,5600,0 : position object 21,-200,5700,0
position object 22,-100,5800,0 : position object 23,0,5900,0 : position object 24,100,6000,0
position object 25,0,7000,0 : position object 26,0,-525,100

rem adjusting size of ships
scale object 1,125,100,50 : scale object 4,1500,50,50 : scale object 5,1500,50,50
scale object 6,75,100,25 : scale object 7,75,100,25 : scale object 8,75,100,25
scale object 15,75,100,25 : scale object 16,75,100,25 : scale object 17,75,100,25
scale object 18,75,100,25 : scale object 19,75,100,25 : scale object 20,75,100,25
scale object 21,75,100,25 : scale object 22,75,100,25 : scale object 23,75,100,25
scale object 24,75,100,25

rem pointing enemy ships
zrotate object 6,180 : zrotate object 7,180 : zrotate object 8,180
zrotate object 15,180 : zrotate object 16,180 : zrotate object 17,180
zrotate object 18,180 : zrotate object 19,180 : zrotate object 20,180
zrotate object 21,180 : zrotate object 22,180 : zrotate object 23,180
zrotate object 24,180

rem texturing ships and coloring cannon
texture object 1,1 : texture object 6,2 : texture object 7,2
texture object 8,2 : texture object 9,2 : texture object 10,2
texture object 11,2 : texture object 12,2 : texture object 13,2
texture object 14,2 : texture object 15,2 : texture object 16,2
texture object 17,2 : texture object 18,2 : texture object 19,2
texture object 20,2 : texture object 21,2 : texture object 22,2
texture object 23,2 : texture object 24,2 : texture object 25,2
color object 26,rgb(255,0,0)

rem setting cannon transparency
ghost object on 26

rem hiding boundary lines
hide object 2 : hide object 3

rem making and editing the camera
make camera 1
position camera 1,0,0,-750
color backdrop 1,rgb(0,0,0)

rem main loop
do

rem setting player ship controls
if leftkey() then move object left 1,7.5
if rightkey() then move object right 1,7.5
if spacekey()
position object 26,object position x(1),object position y(1),object position z(1)
play sound 1
endif

rem setting boundaries
if object collision(1,2) then move object right 1,7.5
if object collision(1,3) then move object left 1,7.5
if object collision(26,5) then position object 26,0,-525,100

rem launching enemies
move object up 6,5 : move object up 7,5 : move object up 8,5
move object down 9,5 : move object down 10,5 : move object down 11,5
move object down 12,5 : move object down 13,5 : move object down 14,5
move object up 15,5 : move object up 16,5 : move object up 17,5
move object up 18,5 : move object up 19,5 : move object up 20,5
move object up 21,5 : move object up 22,5 : move object up 23,5
move object up 24,5 : move object down 25,5

rem for loop
for A=6 to 25

rem enemy properties
if object collision(A,1)
play sound 3
position object 1,0,-600,0
sync
center text screen width()/2,screen height()/2,"Game Over"
sync
wait 5000
end
endif
if object collision(A,4)
play sound 3
center text screen width()/2,screen height()/2,"Game Over"
sync
wait 5000
end
endif

rem end for loop
next A

rem cannon properties
if object position z(26)=object position z(1) then move object up 26,20

rem for loop
for A=6 to 24
if object hit(26,A)
play sound 2
position object A,0,-600,0
position object 26,0,-525,100
endif

rem end for loop
next B

if object hit(26,25)
play sound 2
position object 25,0,-600,0
position object 26,0,-525,100
sync
center text screen width()/2,screen height()/2,"You Win!"
sync
wait 3000
end
endif

rem updating screen
sync

rem end loop
loop

+ Code Snippet

Rem Project: Galactic Warfare
Rem Created: 1/10/2007 12:46:05 PM

Rem ***** Main Source File *****

rem basic settings
hide mouse
sync on
sync rate 60
sync : center text screen width()/2,screen height()/2,"Loading..." : sync : wait 3000

rem loading media
load image "Metal_Plates_T.bmp",1 : load image "bunker.bmp",2
load sound "Blaster.wav",1 : load sound "Boom 1.wav",2 : load sound "Large explosion 3.wav",3

rem creating material for game
make object cone 1,100 : make object cube 2,50 : make object cube 3,50
make object cube 4,50 : make object cube 5,50 : make object cone 6,75
make object cone 7,75 : make object cone 8,75 : make object sphere 9,75
make object sphere 10,75 : make object sphere 11,75 : make object cylinder 12,75
make object cylinder 13,75 : make object cylinder 14,75 : make object cone 15,75
make object cone 16,75 : make object cone 17,75 : make object cone 18,75
make object cone 19,75 : make object cone 20,75 : make object cone 21,75
make object cone 22,75 : make object cone 23,75 : make object cone 24,75
make object cube 25,75 : make object sphere 26,12

rem positioning material
position object 1,0,-375,0 : position object 2,-400,-375,0 : position object 3,400,-375,0
position object 4,0,-550,0 : position object 5,0,525,0 : position object 6,-300,1200,0
position object 7,-200,1100,0 : position object 8,-100,1000,0 : position object 9,100,1800,0
position object 10,200,1900,0 : position object 11,300,2000,0 : position object 12,-300,3000,0
position object 13,0,3000,0 : position object 14,300,3000,0 : position object 15,300,4600,0
position object 16,200,4700,0 : position object 17,100,4800,0 : position object 18,0,4900,0
position object 19,-100,5000,0 : position object 20,-300,5600,0 : position object 21,-200,5700,0
position object 22,-100,5800,0 : position object 23,0,5900,0 : position object 24,100,6000,0
position object 25,0,7000,0 : position object 26,0,-525,100

rem adjusting size of ships
scale object 1,125,100,50 : scale object 4,1500,50,50 : scale object 5,1500,50,50
scale object 6,75,100,25 : scale object 7,75,100,25 : scale object 8,75,100,25
scale object 15,75,100,25 : scale object 16,75,100,25 : scale object 17,75,100,25
scale object 18,75,100,25 : scale object 19,75,100,25 : scale object 20,75,100,25
scale object 21,75,100,25 : scale object 22,75,100,25 : scale object 23,75,100,25
scale object 24,75,100,25

rem pointing enemy ships
zrotate object 6,180 : zrotate object 7,180 : zrotate object 8,180
zrotate object 15,180 : zrotate object 16,180 : zrotate object 17,180
zrotate object 18,180 : zrotate object 19,180 : zrotate object 20,180
zrotate object 21,180 : zrotate object 22,180 : zrotate object 23,180
zrotate object 24,180

rem texturing ships and coloring cannon
texture object 1,1 : texture object 6,2 : texture object 7,2
texture object 8,2 : texture object 9,2 : texture object 10,2
texture object 11,2 : texture object 12,2 : texture object 13,2
texture object 14,2 : texture object 15,2 : texture object 16,2
texture object 17,2 : texture object 18,2 : texture object 19,2
texture object 20,2 : texture object 21,2 : texture object 22,2
texture object 23,2 : texture object 24,2 : texture object 25,2
color object 26,rgb(255,0,0)

rem setting cannon transparency
ghost object on 26

rem hiding boundary lines
hide object 2 : hide object 3

rem making and editing the camera
make camera 1
position camera 1,0,0,-750
color backdrop 1,rgb(0,0,0)

rem main loop
do

rem setting player ship controls
if leftkey() then move object left 1,7.5
if rightkey() then move object right 1,7.5
if spacekey()
position object 26,object position x(1),object position y(1),object position z(1)
play sound 1
endif

rem setting boundaries
if object collision(1,2) then move object right 1,7.5
if object collision(1,3) then move object left 1,7.5
if object collision(26,5) then position object 26,0,-525,100

rem launching enemies
move object up 6,5 : move object up 7,5 : move object up 8,5
move object down 9,5 : move object down 10,5 : move object down 11,5
move object down 12,5 : move object down 13,5 : move object down 14,5
move object up 15,5 : move object up 16,5 : move object up 17,5
move object up 18,5 : move object up 19,5 : move object up 20,5
move object up 21,5 : move object up 22,5 : move object up 23,5
move object up 24,5 : move object down 25,5

rem for loop
for A=6 to 25

rem enemy properties
if object collision(A,1)
play sound 3
position object 1,0,-600,0
sync
center text screen width()/2,screen height()/2,"Game Over"
sync
wait 5000
end
endif
if object collision(A,4)
play sound 3
center text screen width()/2,screen height()/2,"Game Over"
sync
wait 5000
end
endif

rem end for loop
next A

rem cannon properties
if object position z(26)=object position z(1) then move object up 26,20

rem for loop
for A=6 to 24
if object hit(26,A)
play sound 2
position object A,0,-600,0
position object 26,0,-525,100
endif

rem end for loop
next B

if object hit(26,25)
play sound 2
position object 25,0,-600,0
position object 26,0,-525,100
sync
center text screen width()/2,screen height()/2,"You Win!"
sync
wait 3000
end
endif

rem updating screen
sync

rem end loop
loop

Please, give it a try and let me know if the speeds are normal.
Thanks!

I don't suffer from laziness... I enjoy every minute of it!

Attachments

Login to view attachments

Back to top

Profile PM

Darth Vader

18

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 15th Jan 2007 01:57

Link

Downloading now I let you know how it goes!

http://ideal-entertainment.galekus.com

Back to top

Profile PM Email Website

The Core

18

Years of Service

User Offline

Joined: 1st Aug 2005

Location: mother ship

Posted: 15th Jan 2007 02:39 Edited at: 15th Jan 2007 02:40

Link

hey the idea is great,the only problem i could see was that my bullets were not destroying the targets and i died basicly straight away.

It seems great and i think with more work you will have a star of a game

and to say you have only programmed for 4 weeks your great!! keep it up

i'm E.T i have so much tech but yet i dont have a mobile phone! where is a land line when you need one

Back to top

Profile PM Email

Darth Vader

18

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 17th Jan 2007 09:34

Link

lol! Very nice! I didn't experience any speed up's or downs. I couldn't get past the third set of enemies though!

One note though. Its quite annoying that you have to restart the entire game once you die! Can you make it so it just go's to the beginning of the code?

http://ideal-entertainment.galekus.com

Back to top

Profile PM Email Website

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 19th Jan 2007 03:20

Link

Nice game you have there! I'm so bad at it lol... It took me 3 tries to reach wave 3, and then I lost.

Back to top

Profile PM Email

Sorry your browser is not supported!

Program Announcements / My first game: Galactic Warfare

Attachments

Attachments

Attachments