Blast Pong - GameCreators Forum

Author

Message

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 21st Jun 2007 04:51 Edited at: 24th Jun 2007 00:09

Link

Blast Classic Arcade Attack!
So, I thought I would just update this post instead of making a bunch of threads on finished classic arcade remakes.

Reason for this is to learn how to program, and solve basic problems found when creating all types of games. So far I've learned a lot, and plan on learning more. I plan to create roughly 10 of these mini games by the end of the week. I think that will give me a good head start on an original project of mine, which I've yet to come up with, lol! Wish me luck!

Classic Game Finished:
-Blast Pong
-Blast Snake
-Blast Invaders

In The Works:
-Blast Asteroids

In Design:
-Blast Tank
-Blast Frogger

Original Post:
Yes it's pong, and it's 3D, heh. I've fixed all the bugs from my WIP post, and it's done. It seems when I started on my late project Atomic Satellite from Venus, I was in a little over my head. I couldn't get anything to really work right. So I decided, well all the senior programmers are telling noobs to make pong first and work your way up. So I took the advice and did just that.

Now that this is finished, time to go onto my next project...yet to be decided.

Controls:
Player 1: w/s - move paddle up and down
Player 2: o/l - move paddle up and down

Score 3 to win!

Screen shot:

Source Code(if anyone wants to give me programing tips):

Remstart *****************
Blast Pong
By: Blastwave Man
******************* Remend

Rem Setup Stuff
Set Display Mode 800,600,16 : Set Window On
Set Window Title "Blast Pong V2.0"
Sync Rate 0 : Sync On : Sync Rate 30
Autocam Off : Backdrop on : Color Backdrop 0

Rem Setup variables
rem ball vairables
speedx# = rnd(3)+1
speedz# = rnd(3)+1
rem player variables
One_Life# = 3
Two_Life# = 3
P_Speed# = 4
One_Score# = 0
Two_Score# = 0

Rem Create Arena
Position Camera 0,600,0 : Point Camera 0,0,0
rem arena
make object box 1,800,10,10 : color object 1,RGB(25,200,25)
position object 1,0,2.5,295
make object box 2,800,10,10 : color object 2,RGB(25,200,25)
position object 2,0,2.5,-295
make object box 3,10,10,600 : color object 3,RGB(25,200,25)
position object 3,395,2.5,0
make object box 4,10,10,600 : color object 4,RGB(25,200,25)
position object 4,-395,2.5,0
rem detail
make object box 5,10,10,600 : color object 5,RGB(20,150,20)
position object 5,0,-5,0

Rem Create Pattles and Ball
rem player one pattle
make object box 6,15,15,80 : color object 6,RGB(25,200,50)
position object 6,-350,0,0
rem player two pattle
make object box 7,15,15,80 : color object 7,RGB(25,200,50)
position object 7,350,0,0
rem make ball
make object cube 8,15 : color object 8,RGB(25,200,50)
position object 8,0,0,0

rem load sounds/music
load sound "p_hit.wav",1

rem tex variables
set text size 36

Rem Main Loop
Do
rem player win and restart
one_win:
if One_Score#=3
   win#=win#+1
   Center Text 400,10,"Player One WINS!"
   sync
   if win#=50
      win#=0
      One_Score#=0
      Two_Score#=0
      position object 8,0,0,0
      speedx# = rnd(3)+1
      speedz# = rnd(3)+1
   else
      goto one_win
   endif
endif
two_win:
if Two_Score#=3
   win#=win#+1
   Center Text 400,10,"Player Two WINS!"
   sync
   if win#=50
      win#=0
      One_Score#=0
      Two_Score#=0
      position object 8,0,0,0
      speedx# = rnd(3)+1
      speedz# = rnd(3)+1
   else
      goto two_win
   endif
endif

Rem Print score/life/power
rem score
ink RGB(255,255,255),0 : center text 400,10,STR$(One_Score#)+"/"+STR$(Two_Score#)

Rem Player control
rem player one move
if keystate(17)=1 then move object 6,P_Speed#
if keystate(31)=1 then move object 6,-P_Speed#
if object position z(6)>245 then position object 6,object position x(6),object position y(6),245
if object position z(6)<-245 then position object 6,object position x(6),object position y(6),-245
rem player two move
if keystate(24)=1 then move object 7,P_Speed#
if keystate(38)=1 then move object 7,-P_Speed#
if object position z(7)>245 then position object 7,object position x(7),object position y(7),245
if object position z(7)<-245 then position object 7,object position x(7),object position y(7),-245

rem ball movement

move object right 8,speedx#
move object 8,speedz#

rem outer ring hit
if hit=0
rem upper
if object position z(8)>270
   speedz#=speedz#*(-1)
   hit=1
   play sound 1
endif
rem lower
if object position z(8)<-270
   speedz#=speedz#*(-1)
   hit=1
   play sound 1
endif
rem pattle hits
rem player 1
if object position x(8)<-315
   if object position x(8)>-330
      if object position z(8)<object position z(6)+40
         if object position z(8)>object position z(6)-40
            speedx#=speedx#*(-1)
            speedx# = speedx#+(speedx#/abs(speedx#)*.2)
            speedz# = speedz#+(speedz#/abs(speedz#)*.2)
            hit=1
            play sound 1
         endif
      endif
   endif
endif
rem player 2
if object position x(8)>315
   if object position x(8)<330
      if object position z(8)<object position z(7)+40
         if object position z(8)>object position z(7)-40
            speedx#=speedx#*(-1)
            speedx# = speedx#+(speedx#/abs(speedx#)*.2)
            speedz# = speedz#+(speedz#/abs(speedz#)*.2)
            hit=1
            play sound 1
         endif
      endif
   endif
endif
rem end hit
else
   hit=0
endif
rem hit player 1 side/score
if object position x(8)<-385
   position object 8,0,0,0
   speedx# = rnd(3)+1
   speedz# = rnd(3)+1
   Two_Score#=Two_Score#+1
   play sound 1
endif
rem hit player 2 side/score
if object position x(8)>385
   position object 8,0,0,0
   speedx# = rnd(3)+1
   speedz# = rnd(3)+1
   One_Score#=One_Score#+1
   play sound 1
endif

sync
Loop

+ Code Snippet

Remstart *****************
Blast Pong
By: Blastwave Man
******************* Remend

Rem Setup Stuff
Set Display Mode 800,600,16 : Set Window On
Set Window Title "Blast Pong V2.0"
Sync Rate 0 : Sync On : Sync Rate 30
Autocam Off : Backdrop on : Color Backdrop 0

Rem Setup variables
rem ball vairables
speedx# = rnd(3)+1
speedz# = rnd(3)+1
rem player variables
One_Life# = 3
Two_Life# = 3
P_Speed# = 4
One_Score# = 0
Two_Score# = 0

Rem Create Arena
Position Camera 0,600,0 : Point Camera 0,0,0
rem arena
make object box 1,800,10,10 : color object 1,RGB(25,200,25)
position object 1,0,2.5,295
make object box 2,800,10,10 : color object 2,RGB(25,200,25)
position object 2,0,2.5,-295
make object box 3,10,10,600 : color object 3,RGB(25,200,25)
position object 3,395,2.5,0
make object box 4,10,10,600 : color object 4,RGB(25,200,25)
position object 4,-395,2.5,0
rem detail
make object box 5,10,10,600 : color object 5,RGB(20,150,20)
position object 5,0,-5,0

Rem Create Pattles and Ball
rem player one pattle
make object box 6,15,15,80 : color object 6,RGB(25,200,50)
position object 6,-350,0,0
rem player two pattle
make object box 7,15,15,80 : color object 7,RGB(25,200,50)
position object 7,350,0,0
rem make ball
make object cube 8,15 : color object 8,RGB(25,200,50)
position object 8,0,0,0

rem load sounds/music
load sound "p_hit.wav",1

rem tex variables
set text size 36

Rem Main Loop
Do
rem player win and restart
one_win:
if One_Score#=3
   win#=win#+1
   Center Text 400,10,"Player One WINS!"
   sync
   if win#=50
      win#=0
      One_Score#=0
      Two_Score#=0
      position object 8,0,0,0
      speedx# = rnd(3)+1
      speedz# = rnd(3)+1
   else
      goto one_win
   endif
endif
two_win:
if Two_Score#=3
   win#=win#+1
   Center Text 400,10,"Player Two WINS!"
   sync
   if win#=50
      win#=0
      One_Score#=0
      Two_Score#=0
      position object 8,0,0,0
      speedx# = rnd(3)+1
      speedz# = rnd(3)+1
   else
      goto two_win
   endif
endif

Rem Print score/life/power
rem score
ink RGB(255,255,255),0 : center text 400,10,STR$(One_Score#)+"/"+STR$(Two_Score#)

Rem Player control
rem player one move
if keystate(17)=1 then move object 6,P_Speed#
if keystate(31)=1 then move object 6,-P_Speed#
if object position z(6)>245 then position object 6,object position x(6),object position y(6),245
if object position z(6)<-245 then position object 6,object position x(6),object position y(6),-245
rem player two move
if keystate(24)=1 then move object 7,P_Speed#
if keystate(38)=1 then move object 7,-P_Speed#
if object position z(7)>245 then position object 7,object position x(7),object position y(7),245
if object position z(7)<-245 then position object 7,object position x(7),object position y(7),-245

rem ball movement

move object right 8,speedx#
move object 8,speedz#


rem outer ring hit
if hit=0
rem upper
if object position z(8)>270
   speedz#=speedz#*(-1)
   hit=1
   play sound 1
endif
rem lower
if object position z(8)<-270
   speedz#=speedz#*(-1)
   hit=1
   play sound 1
endif
rem pattle hits
rem player 1
if object position x(8)<-315
   if object position x(8)>-330
      if object position z(8)<object position z(6)+40
         if object position z(8)>object position z(6)-40
            speedx#=speedx#*(-1)
            speedx# = speedx#+(speedx#/abs(speedx#)*.2)
            speedz# = speedz#+(speedz#/abs(speedz#)*.2)
            hit=1
            play sound 1
         endif
      endif
   endif
endif
rem player 2
if object position x(8)>315
   if object position x(8)<330
      if object position z(8)<object position z(7)+40
         if object position z(8)>object position z(7)-40
            speedx#=speedx#*(-1)
            speedx# = speedx#+(speedx#/abs(speedx#)*.2)
            speedz# = speedz#+(speedz#/abs(speedz#)*.2)
            hit=1
            play sound 1
         endif
      endif
   endif
endif
rem end hit
else
   hit=0
endif
rem hit player 1 side/score
if object position x(8)<-385
   position object 8,0,0,0
   speedx# = rnd(3)+1
   speedz# = rnd(3)+1
   Two_Score#=Two_Score#+1
   play sound 1
endif
rem hit player 2 side/score
if object position x(8)>385
   position object 8,0,0,0
   speedx# = rnd(3)+1
   speedz# = rnd(3)+1
   One_Score#=One_Score#+1
   play sound 1
endif

   sync
Loop

Thanks for everyone who helped me fix the bugs. I actually learned a lot about programing just from doing this 3 day project.

Enjoy!

BWM FTW!

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 21st Jun 2007 07:42 Edited at: 21st Jun 2007 07:46

Link

Finished my second project, Snake. I think if I do a couple more of these simple games, I'll be ready to tackle something more challenging. So, any requests for the next classic game remake?

Screen Shot:

Controls:
Up/Down/Left/Right - control the snakes direction of movement
If you hit a wall or yourself, game over
Red fruits are 10 points
Yellow fruits are 20 points

Source Code(Comments and suggestions wanted):

Rem Project: Blast Snake

Rem Setup Display
Set Display Mode 800,600,16 : Set Window On
Set Window Layout 3,1,0 : Set Window Title "Blast Snake V1.0"
Sync Rate 0 : Sync On : Sync Rate 30
Hide Mouse : Autocam Off : Backdrop On : Color Backdrop 0

Rem Define Variables
Score#=0
S_dir#=0
S_dly#=10
Tail#=0
Fruit#=RND(2)
Set Text Size 36

Rem Setup Arena
Rem Top Bar
Make Object Box 1,800,20,20 : Color Object 1,RGB(20,200,20)
Position Object 1,0,0,290
Rem Lower Bar
Make Object Box 2,800,20,20 : Color Object 2,RGB(20,200,20)
Position Object 2,0,0,-290
Rem Right Bar
Make Object Box 3,20,20,600 : Color Object 3,RGB(20,200,20)
Position Object 3,390,0,0
Rem Left Bar
Make Object Box 4,20,20,600 : Color Object 4,RGB(20,200,20)
Position Object 4,-390,0,0

Rem Make Starting Snake Object
Make Object Cube 100,20 : Color Object 100,RGB(20,200,20)
Position Object 100,0,0,0
Rem Make rnd fruit and placement
Make Object Cube 5,20 : Position Object 5,100,0,100
If Fruit#=0 then Color Object 5,RGB(200,20,20)
If Fruit#=1 then Color Object 5,RGB(200,20,20)
If Fruit#=2 then COlor Object 5,RGB(200,200,20)

Rem Position Camera
Position Camera 0,650,0 : Point Camera 0,0,0

Rem load sounds
Load Sound "snake.wav",1

Rem Main Loop
Do
Rem Print Score
Center Text 400,20,Str$(Score#)

Rem Snake Collision with Arena
If Object Position z(100)>270 then Death#=1
If Object Position z(100)<-270 then Death#=1
If Object Position x(100)>370 then Death#=1
If Object Position x(100)<-370 then Death#=1

Rem Eat Fruit, update score and fruit
If Object Position x(100) > Object Position x(5)-10
If Object Position x(100) < Object Position x(5)+10
   If Object Position z(100) > Object Position z(5)-10
   If Object POsition z(100) < Object Position z(5)+10
   Play Sound 1
      If Fruit#=0 then Score#=Score#+10
      If Fruit#=1 then Score#=Score#+10
      If Fruit#=2 then Score#=Score#+20
      Position Object 5,(RND(36)-18)*20,0,(RND(24)-12)*20
      Rem check position and reposition if neccessary
      check:
      For x = 0 to 100
         If Object Exist(x+100)
            If Object Position x(5)=Object Position x(x+100)=1
               If Object Position z(5)=Object Position z(x+100)=1
                  Position Object 5,(RND(36)-18)*20,0,(RND(24)-12)*20
                  Goto check
               Endif
            Endif
         Endif
      next x
      Fruit#=RND(2)
      If Fruit#=0 then Color Object 5,RGB(200,20,20)
      If Fruit#=1 then Color Object 5,RGB(200,20,20)
      If Fruit#=2 then COlor Object 5,RGB(200,200,20)
      Tail#=Tail#+1
      If Tail# < 101
         Make Object Cube Tail#+100,20
         Color Object Tail#+100,RGB(25,200,25)
         Position Object Tail#+100,object position x(100),0,object position z(100)
      Endif
   Endif
   Endif
Endif
Endif

Rem Delay Movement
dly#=dly#+1
If dly#=S_dly#
   dly#=0
Rem Update Snake Tail
for t = 100 to 1 step -1
   If Object Exist(t+100) = 1
      Position Object t+100,Object Position x(t+99),0,Object Position z(t+99)
   Endif
next t
   If S_dir#=1 then Move Object 100,20
   If S_dir#=2 then Move Object Right 100,20
   If S_dir#=3 then Move Object 100,-20
   If S_dir#=4 then Move Object Left 100,20

Rem Snake Collision With Himself
For k = 1 to 100
   If Object Exist(k+100)
      If Object Position x(100)=Object Position x(k+100)
         If Object Position z(100)=Object Position z(k+100)
            Death#=1
         Endif
      Endif
   Endif
Next k

Endif

Rem Snake Movement
If Upkey()=1 then S_dir#=1
If Rightkey()=1 then S_dir#=2
If Downkey()=1 then S_dir#=3
If Leftkey()=1 then S_dir#=4

Rem Death Code
Death:
If Death#=1
   dk=dk+1
   Center Text 400,270,"Your Score Is:"
   Center Text 400,330,STR$(Score#)
   if dk=50
      Score#=0
      Death#=0
      dk=0
      S_dir#=0
      Tail#=0
      Position Object 100,0,0,0
      for v = 1 to 100
         if Object Exist(v+100) then Delete Object v+100
      next v
         Position Object 5,100,0,100 : Fruit#=RND(2)
         If Fruit#=0 then Color Object 5,RGB(200,20,20)
         If Fruit#=1 then Color Object 5,RGB(200,20,20)
         If Fruit#=2 then COlor Object 5,RGB(200,200,20)
   else
      Sync
      Goto Death
   endif
Endif

sync
Loop

+ Code Snippet

Rem Project: Blast Snake

Rem Setup Display
Set Display Mode 800,600,16 : Set Window On
Set Window Layout 3,1,0 : Set Window Title "Blast Snake V1.0"
Sync Rate 0 : Sync On : Sync Rate 30
Hide Mouse : Autocam Off : Backdrop On : Color Backdrop 0

Rem Define Variables
Score#=0
S_dir#=0
S_dly#=10
Tail#=0
Fruit#=RND(2)
Set Text Size 36

Rem Setup Arena
Rem Top Bar
Make Object Box 1,800,20,20 : Color Object 1,RGB(20,200,20)
Position Object 1,0,0,290
Rem Lower Bar
Make Object Box 2,800,20,20 : Color Object 2,RGB(20,200,20)
Position Object 2,0,0,-290
Rem Right Bar
Make Object Box 3,20,20,600 : Color Object 3,RGB(20,200,20)
Position Object 3,390,0,0
Rem Left Bar
Make Object Box 4,20,20,600 : Color Object 4,RGB(20,200,20)
Position Object 4,-390,0,0

Rem Make Starting Snake Object
Make Object Cube 100,20 : Color Object 100,RGB(20,200,20)
Position Object 100,0,0,0
Rem Make rnd fruit and placement
Make Object Cube 5,20 : Position Object 5,100,0,100
If Fruit#=0 then Color Object 5,RGB(200,20,20)
If Fruit#=1 then Color Object 5,RGB(200,20,20)
If Fruit#=2 then COlor Object 5,RGB(200,200,20)

Rem Position Camera
Position Camera 0,650,0 : Point Camera 0,0,0

Rem load sounds
Load Sound "snake.wav",1

Rem Main Loop
Do
Rem Print Score
Center Text 400,20,Str$(Score#)

Rem Snake Collision with Arena
If Object Position z(100)>270 then Death#=1
If Object Position z(100)<-270 then Death#=1
If Object Position x(100)>370 then Death#=1
If Object Position x(100)<-370 then Death#=1

Rem Eat Fruit, update score and fruit
If Object Position x(100) > Object Position x(5)-10
If Object Position x(100) < Object Position x(5)+10
   If Object Position z(100) > Object Position z(5)-10
   If Object POsition z(100) < Object Position z(5)+10
   Play Sound 1
      If Fruit#=0 then Score#=Score#+10
      If Fruit#=1 then Score#=Score#+10
      If Fruit#=2 then Score#=Score#+20
      Position Object 5,(RND(36)-18)*20,0,(RND(24)-12)*20
      Rem check position and reposition if neccessary
      check:
      For x = 0 to 100
         If Object Exist(x+100)
            If Object Position x(5)=Object Position x(x+100)=1
               If Object Position z(5)=Object Position z(x+100)=1
                  Position Object 5,(RND(36)-18)*20,0,(RND(24)-12)*20
                  Goto check
               Endif
            Endif
         Endif
      next x
      Fruit#=RND(2)
      If Fruit#=0 then Color Object 5,RGB(200,20,20)
      If Fruit#=1 then Color Object 5,RGB(200,20,20)
      If Fruit#=2 then COlor Object 5,RGB(200,200,20)
      Tail#=Tail#+1
      If Tail# < 101
         Make Object Cube Tail#+100,20
         Color Object Tail#+100,RGB(25,200,25)
         Position Object Tail#+100,object position x(100),0,object position z(100)
      Endif
   Endif
   Endif
Endif
Endif

Rem Delay Movement
dly#=dly#+1
If dly#=S_dly#
   dly#=0
Rem Update Snake Tail
for t = 100 to 1 step -1
   If Object Exist(t+100) = 1
      Position Object t+100,Object Position x(t+99),0,Object Position z(t+99)
   Endif
next t
   If S_dir#=1 then Move Object 100,20
   If S_dir#=2 then Move Object Right 100,20
   If S_dir#=3 then Move Object 100,-20
   If S_dir#=4 then Move Object Left 100,20

Rem Snake Collision With Himself
For k = 1 to 100
   If Object Exist(k+100)
      If Object Position x(100)=Object Position x(k+100)
         If Object Position z(100)=Object Position z(k+100)
            Death#=1
         Endif
      Endif
   Endif
Next k

Endif

Rem Snake Movement
If Upkey()=1 then S_dir#=1
If Rightkey()=1 then S_dir#=2
If Downkey()=1 then S_dir#=3
If Leftkey()=1 then S_dir#=4

Rem Death Code
Death:
If Death#=1
   dk=dk+1
   Center Text 400,270,"Your Score Is:"
   Center Text 400,330,STR$(Score#)
   if dk=50
      Score#=0
      Death#=0
      dk=0
      S_dir#=0
      Tail#=0
      Position Object 100,0,0,0
      for v = 1 to 100
         if Object Exist(v+100) then Delete Object v+100
      next v
         Position Object 5,100,0,100 : Fruit#=RND(2)
         If Fruit#=0 then Color Object 5,RGB(200,20,20)
         If Fruit#=1 then Color Object 5,RGB(200,20,20)
         If Fruit#=2 then COlor Object 5,RGB(200,200,20)
   else
      Sync
      Goto Death
   endif
Endif

   sync
Loop

BWM

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 21st Jun 2007 19:49

Link

Updated original post! Started on my next mini project: blast invaders. Plan to complete by dinner time, lol. Then off to my next project, yet to decide.

BWM

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Back to top

Profile PM Email Website

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 23rd Jun 2007 07:36 Edited at: 23rd Jun 2007 07:51

Link

Project 3 is done!

Blast Invaders. Trust me, it might feel slow in the beginning, but it will pick up, and you will die, lol!

Controls:
left/right - move your ship left and right
space - fire!!

Screen Shot:

Source:

Rem Project: Blast Invaders

Rem Setup Screen goodies
Set Display Mode 800,600,16 : Set Window On
Set Window Layout 3,1,0 : Set Window Title "Blast Invaders V1.0"
Sync Rate 0 : Sync On : Sync Rate 30
Hide Mouse : Autocam Off : Backdrop on : Color Backdrop 0
Set Ambient Light 75

Rem Variables
Score# = 0
Dim Base#(3)
for i = 1 to 3
   Base#(i)=1
next i
Enemy_X#=-220
Enemy_Z#=40
Enm_m#=-10
Fire_Rate# = 20
XM_D#=15
Dim Invaders#(10,3)
for y = 1 to 3
   for x = 1 to 10
       If y=1 then Invaders#(x,y)=1
       If y=2 then Invaders#(x,y)=2
       If y=3 then Invaders#(x,y)=3
   next x
next y

Rem Load Graphics
Rem Enemies
Load Image "enemiesinv01.bmp",1,1
Load Image "enemiesinv02.bmp",2,1
Load Image "enemiesinv03.bmp",3,1
Load Image "enemiesship01.bmp",4,1
Rem Base
Load Image "playerbase01.bmp",5,1
Load Image "playerbase02.bmp",6,1
Load Image "playerbase03.bmp",7,1
Load Image "playerbase04.bmp",8,1
Load Image "playerbase05.bmp",9,1
Load Image "playerbase06.bmp",10,1
Load Image "playerbase07.bmp",11,1
Load Image "playerbase08.bmp",12,1
Rem Player
Load Image "playerplayer01.bmp",13,1
Rem SFX
Load Image "sfxlaser01.bmp",14,1
Load Image "sfxlaser02.bmp",15,1
Rem Sounds
Load Sound "soundinv01.wav",1
Load Sound "soundfire01.wav",2
Load Sound "sounddeath01.wav",3
Load Sound "soundship01.wav",4
Load Sound "soundbase01.wav",5

Rem Create Player and Bases
Rem Player Model
Make Object Plain 1,20,20 : Position Object 1,0,0,-210
Rotate Object 1,90,0,0 : Texture Object 1,13 : Set Object Ambient 1,1
Set object Transparency 1,1 : Set Object Filter 1,0
Rem Center Base
Make Object Plain 2,40,40 : Position Object 2,0,5,-150
Rotate Object 2,90,0,0 : Texture Object 2,5 : Set Object Ambient 2,1
Set object Transparency 2,1 : Set Object Filter 2,0
Rem Left Base
Make Object Plain 3,40,40 : Position Object 3,-190,5,-150
Rotate Object 3,90,0,0 : Texture Object 3,5 : Set Object Ambient 3,1
Set object Transparency 3,1 : Set Object Filter 3,0
Rem Right Base
Make Object Plain 4,40,40 : Position Object 4,190,5,-150
Rotate Object 4,90,0,0 : Texture Object 4,5 : Set Object Ambient 4,1
Set object Transparency 4,1 : Set Object Filter 4,0

Rem Build Monsters and Position
for m = 1 to 3
   for n = 1 to 10
      model_N#=(((m*10)-10)+(n-1))+100
      make object plain model_N#,20,20 : texture object model_N#,Invaders#(n,m)
      position object model_N#,Enemy_X#+(n*40),0,Enemy_Z#+(m*40)
      rotate object model_N#,90,0,0 : Set Object Ambient model_N#,1
      Set object Transparency model_N#,1 : Set Object Filter model_N#,0
   next n
next m
Rem Build Space Ship
Make Object Plain 200,20,20 : Texture Object 200,4
Rotate Object 200,90,0,0 : Set Object Ambient 200,1
Set object Transparency 200,1 : Set Object Filter 200,0
Ship_P# = Rnd(1)+1
If Ship_P# = 1 then Position Object 200,600,0,180
If Ship_P# = 2 then Position Object 200,-600,0,180

Rem Camera Position
Position Camera 0,400,0 : Point Camera 0,0,0
REm text
Set Text Size 42

Rem Main Loop
Start:
Do
Rem Print Score
Text 22,22,"Score: "+STR$(Score#)

Rem Enemy Ship Code
Rem Go Left
If Ship_P# = 1
   Move Object Left 200,4
   If Object Position X(200)<-600 then Ship_P# = 2
Endif
Rem Go Right
If Ship_P# = 2
   Move Object Right 200,4
   If Object Position X(200)>600 then Ship_P# = 1
Endif
Rem Sounds
If Object In Screen(200) = 1
   If Sound Looping(4) = 0 Then Loop Sound 4
Else
   Stop Sound 4
Endif
Rem Ship Fires
Ship_dly# = Ship_dly# + 1
If Ship_dly# > 30
   Ship_dly# = 0
   If Object In Screen(200) = 1
      for p = 1 to 30
         if object exist(p+200)=0
            make object plain p+200,20,20
            position object p+200,object position x(200),5,object position z(200)
            rotate object p+200,90,0,0 : Texture object p+200,15 : Set Object Ambient P+200,1
            Set object Transparency p+200,1 : Set Object Filter p+200,0
            Play Sound 2
            goto skip_eb
         endif
      next p
      skip_eb:
   Endif
Endif
Rem Enemy Ships Fire
for r = 1 to 30
   enf_A# = RND(29)+1
   if Object Visible(enf_A#+99)=1 then goto end_fc
next r
end_fc:
EN_Fire# = EN_Fire# + 1
If EN_Fire# > Fire_Rate#
   EN_Fire# = 0
   If Object Visible(enf_A#+99)=1
      for p = 1 to 30
         if object exist(p+200)=0
            make object plain p+200,20,20
            position object p+200,object position x(enf_A#+99),5,object position z(enf_A#+99)
            rotate object p+200,90,0,0 : Texture object p+200,15 : Set Object Ambient P+200,1
            Set object Transparency p+200,1 : Set Object Filter p+200,0
            Play Sound 2
            goto skip_ec
         endif
      next p
      skip_ec:
   Endif
Endif

Rem Update Enemy Bullets
For u = 1 to 30
   If Object Exist(u+200)=1
      Move Object Down u+200,5
Rem Check for player hit and die
      If Object Position X(u+200)>Object Position X(1)-10
         If Object Position X(u+200)<Object Position X(1)+10
            If Object Position Z(u+200)>Object Position Z(1)-10
               If Object Position Z(u+200)<Object Position Z(1)+10
                  Game_O# = 1
                  win# = 2
                  Delete Object u+200
                  Play Sound 3 : Play Sound 5
               Endif
            Endif
         Endif
      Endif
Rem Check For Base Hit
      For h = 1 to 3
         If Base#(h)<8
         If Object Exist(u+200)=1
            If Object Position X(u+200)>Object Position X(h+1)-20
               If Object Position X(u+200)<Object Position X(h+1)+20
                  If Object Position Z(u+200)>Object Position Z(h+1)-20
                     If Object Position Z(u+200)<Object Position Z(h+1)+20
                        Base#(h)=Base#(h)+1
                        Delete Object u+200
                        Play Sound 5
                     Endif
                  Endif
               Endif
            Endif
         Endif
         Endif
      Next h
      If Object Exist(u+200)=1
         If Object Position z(u+200)<-350 then delete object u+200
      Endif
   Endif
Next u

Rem Update Base
For h = 1 to 3
   Texture Object h+1,Base#(h)+4
Next h

Rem Ship Kill
For s = 1 to 10
   If Object Exist(s+20)
      If Object Position Z(s+20)>Object Position Z(200)-10
         If Object Position Z(s+20)<Object Position Z(200)+10
            If Object Position X(s+20)>Object Position X(200)-10
               If Object Position X(s+20)<Object Position X(200)+10
                  Ship_P# = RND(1)+1
                  If Ship_P# = 1 then Position Object 200,800,0,180
                  If Ship_P# = 2 then Position Object 200,-800,0,180
                  Play Sound 3
                  Score# = Score# + 50
                  Delete Object s+20
               Endif
            Endif
         Endif
      Endif
   Endif
next s

Rem Update Monsters and Movement
XM_dly#=XM_dly#+1
If XM_dly#>XM_D#
   Enemy_X#=Enemy_X#+Enm_m#
   If Enemy_X#<-250 then Enm_m#=10 : Enemy_Z#=Enemy_Z#-10
   If Enemy_X#>-180 then Enm_M#=-10 : Enemy_Z#=Enemy_Z#-10
   XM_dly#=0
   for m = 1 to 3
      for n = 1 to 10
         model_N#=(((m*10)-10)+(n-1))+100
         position object model_N#,Enemy_X#+(n*40),0,Enemy_Z#+(m*40)
      next n
   next m
Endif
Rem Monster Hit Bases
If Enemy_Z#<-160
   for q = 1 to 10
      If Invaders#(q,1)>0 then Game_O#=1
      win#=2
   next q
Endif
If Enemy_Z#<-200
   for w = 1 to 10
      If Invaders#(w,2)>0 then Game_O#=1
      win#=2
   next w
Endif
If Enemy_Z#<-240
   for e = 1 to 10
      If Invaders#(e,3)>0 then Game_O#=1
      win#=2
   next e
Endif

Rem Kill All Monsters Win
kill_all#=0
For g = 1 to 3
   For h = 1 to 10
      kill_all#=kill_all#+Invaders#(h,g)
   Next h
Next g
If kill_all#=0
   Game_O# = 1
   win#=1
Endif

Rem Game Over Code
If Game_O# > 0
   for y = 1 to 3
      for x = 1 to 10
         If y=1 then Invaders#(x,y)=1
         If y=2 then Invaders#(x,y)=2
         If y=3 then Invaders#(x,y)=3
         model_N#=(((y*10)-10)+(x-1))+100
         Show Object model_N#
      next x
   next y
   Enemy_X#=-220
   Enemy_Z#=40
   Enm_m#=-10
   If win# = 2
      for i = 1 to 3
         Base#(i)=1
      next i
      XM_D#=15
   else
      for i = 1 to 3
         Base#(i)=Base#(i)-4
         if Base#(i)<1 then Base#(i)=1
      next i
      XM_D#=XM_D#-1
      If XM_D#<5 then XM_D#=5
   Endif
   for k = 1 to 10
      if object exist(k+20)=1 then delete object k+20
   next k
   for l = 1 to 30
      if object exist(l+200)=1 then delete object l+200
   next l
Rem Game Over
Game_Over:
   If win#=1 then Center Text 400,300,"INCOMING NEXT WAVE!"
   If win#=2 then Center Text 400,300,"GAME OVER!"
   Center Text 400,350,"Your Score: "+STR$(Score#)
   Game_O# = Game_O# + 1
   If Game_O# = 100
      if win# = 1
         Fire_Rate#=Fire_Rate#-2
         if Fire_Rate#<2 then Fire_Rate#=2
      Endif
      if win# = 2 then Score# = 0 : Fire_Rate#=20
      Game_O# = 0
      Goto Start
   Endif
   sync
   Goto Game_Over
Endif

Rem Player Control
Rem Move
If Rightkey()=1 then Move Object Right 1,5
If Leftkey()=1 then Move Object Left 1,5
Rem Fire
If fire=3
   dly=dly+1
   If dly=10
      dly=0
      fire=0
   Endif
Endif
If fire=0
   If Spacekey()=1
      fire=1
      Play Sound 2
   Endif
Endif
If fire=1
   for f = 1 to 10
      If Object Exist(f+20) = 0
         Make Object Plain f+20,20,20 : Position Object f+20,Object Position x(1),Object Position y(1)+5,Object Position z(1)
         Rotate Object f+20,90,0,0 : Texture Object f+20,14 : Set Object Ambient f+20,1
         Set object Transparency f+20,1 : Set Object Filter f+20,0
         fire=3 : goto no_fire
      Endif
   next f
Endif
no_fire:
Rem Update Bullets
for k = 1 to 10
If Object Exist(k+20) = 1
   Move Object Up k+20,5
   If Object Position z(k+20)>350 then Delete Object k+20
Rem Collision And destruction with enemy
   For v = 1 to 3
      For b = 1 to 10
         If Invaders#(b,v)>0
            If Object Exist(k+20)
               model_K#=(((v*10)-10)+(b-1))+100
               If Object Position Z(k+20) > Object Position Z(model_K#)-10
                  If Object Position Z(k+20) < Object Position Z(model_K#)+10
                     If Object Position X(k+20) > Object POsition X(model_K#)-10
                        If Object Position X(k+20) < Object Position X(model_K#)+10
                           If Invaders#(b,v) = 1 then Score# = Score#+5
                           If Invaders#(b,v) = 2 then Score# = Score#+10
                           If Invaders#(b,v) = 3 then Score# = Score#+15
                           Invaders#(b,v)=0
                           Delete Object k+20
                           Hide Object model_K#
                           Play Sound 3
                        Endif
                     Endif
                  Endif
               Endif
            Endif
         Endif
      Next b
   Next v
Endif
next k
   sync
Loop

+ Code Snippet

Rem Project: Blast Invaders

Rem Setup Screen goodies
Set Display Mode 800,600,16 : Set Window On
Set Window Layout 3,1,0 : Set Window Title "Blast Invaders V1.0"
Sync Rate 0 : Sync On : Sync Rate 30
Hide Mouse : Autocam Off : Backdrop on : Color Backdrop 0
Set Ambient Light 75

Rem Variables
Score# = 0
Dim Base#(3)
for i = 1 to 3
   Base#(i)=1
next i
Enemy_X#=-220
Enemy_Z#=40
Enm_m#=-10
Fire_Rate# = 20
XM_D#=15
Dim Invaders#(10,3)
for y = 1 to 3
   for x = 1 to 10
       If y=1 then Invaders#(x,y)=1
       If y=2 then Invaders#(x,y)=2
       If y=3 then Invaders#(x,y)=3
   next x
next y

Rem Load Graphics
Rem Enemies
Load Image "enemiesinv01.bmp",1,1
Load Image "enemiesinv02.bmp",2,1
Load Image "enemiesinv03.bmp",3,1
Load Image "enemiesship01.bmp",4,1
Rem Base
Load Image "playerbase01.bmp",5,1
Load Image "playerbase02.bmp",6,1
Load Image "playerbase03.bmp",7,1
Load Image "playerbase04.bmp",8,1
Load Image "playerbase05.bmp",9,1
Load Image "playerbase06.bmp",10,1
Load Image "playerbase07.bmp",11,1
Load Image "playerbase08.bmp",12,1
Rem Player
Load Image "playerplayer01.bmp",13,1
Rem SFX
Load Image "sfxlaser01.bmp",14,1
Load Image "sfxlaser02.bmp",15,1
Rem Sounds
Load Sound "soundinv01.wav",1
Load Sound "soundfire01.wav",2
Load Sound "sounddeath01.wav",3
Load Sound "soundship01.wav",4
Load Sound "soundbase01.wav",5

Rem Create Player and Bases
Rem Player Model
Make Object Plain 1,20,20 : Position Object 1,0,0,-210
Rotate Object 1,90,0,0 : Texture Object 1,13 : Set Object Ambient 1,1
Set object Transparency 1,1 : Set Object Filter 1,0
Rem Center Base
Make Object Plain 2,40,40 : Position Object 2,0,5,-150
Rotate Object 2,90,0,0 : Texture Object 2,5 : Set Object Ambient 2,1
Set object Transparency 2,1 : Set Object Filter 2,0
Rem Left Base
Make Object Plain 3,40,40 : Position Object 3,-190,5,-150
Rotate Object 3,90,0,0 : Texture Object 3,5 : Set Object Ambient 3,1
Set object Transparency 3,1 : Set Object Filter 3,0
Rem Right Base
Make Object Plain 4,40,40 : Position Object 4,190,5,-150
Rotate Object 4,90,0,0 : Texture Object 4,5 : Set Object Ambient 4,1
Set object Transparency 4,1 : Set Object Filter 4,0

Rem Build Monsters and Position
for m = 1 to 3
   for n = 1 to 10
      model_N#=(((m*10)-10)+(n-1))+100
      make object plain model_N#,20,20 : texture object model_N#,Invaders#(n,m)
      position object model_N#,Enemy_X#+(n*40),0,Enemy_Z#+(m*40)
      rotate object model_N#,90,0,0 : Set Object Ambient model_N#,1
      Set object Transparency model_N#,1 : Set Object Filter model_N#,0
   next n
next m
Rem Build Space Ship
Make Object Plain 200,20,20 : Texture Object 200,4
Rotate Object 200,90,0,0 : Set Object Ambient 200,1
Set object Transparency 200,1 : Set Object Filter 200,0
Ship_P# = Rnd(1)+1
If Ship_P# = 1 then Position Object 200,600,0,180
If Ship_P# = 2 then Position Object 200,-600,0,180

Rem Camera Position
Position Camera 0,400,0 : Point Camera 0,0,0
REm text
Set Text Size 42

Rem Main Loop
Start:
Do
Rem Print Score
Text 22,22,"Score: "+STR$(Score#)

Rem Enemy Ship Code
Rem Go Left
If Ship_P# = 1
   Move Object Left 200,4
   If Object Position X(200)<-600 then Ship_P# = 2
Endif
Rem Go Right
If Ship_P# = 2
   Move Object Right 200,4
   If Object Position X(200)>600 then Ship_P# = 1
Endif
Rem Sounds
If Object In Screen(200) = 1
   If Sound Looping(4) = 0 Then Loop Sound 4
Else
   Stop Sound 4
Endif
Rem Ship Fires
Ship_dly# = Ship_dly# + 1
If Ship_dly# > 30
   Ship_dly# = 0
   If Object In Screen(200) = 1
      for p = 1 to 30
         if object exist(p+200)=0
            make object plain p+200,20,20
            position object p+200,object position x(200),5,object position z(200)
            rotate object p+200,90,0,0 : Texture object p+200,15 : Set Object Ambient P+200,1
            Set object Transparency p+200,1 : Set Object Filter p+200,0
            Play Sound 2
            goto skip_eb
         endif
      next p
      skip_eb:
   Endif
Endif
Rem Enemy Ships Fire
for r = 1 to 30
   enf_A# = RND(29)+1
   if Object Visible(enf_A#+99)=1 then goto end_fc
next r
end_fc:
EN_Fire# = EN_Fire# + 1
If EN_Fire# > Fire_Rate#
   EN_Fire# = 0
   If Object Visible(enf_A#+99)=1
      for p = 1 to 30
         if object exist(p+200)=0
            make object plain p+200,20,20
            position object p+200,object position x(enf_A#+99),5,object position z(enf_A#+99)
            rotate object p+200,90,0,0 : Texture object p+200,15 : Set Object Ambient P+200,1
            Set object Transparency p+200,1 : Set Object Filter p+200,0
            Play Sound 2
            goto skip_ec
         endif
      next p
      skip_ec:
   Endif
Endif

Rem Update Enemy Bullets
For u = 1 to 30
   If Object Exist(u+200)=1
      Move Object Down u+200,5
Rem Check for player hit and die
      If Object Position X(u+200)>Object Position X(1)-10
         If Object Position X(u+200)<Object Position X(1)+10
            If Object Position Z(u+200)>Object Position Z(1)-10
               If Object Position Z(u+200)<Object Position Z(1)+10
                  Game_O# = 1
                  win# = 2
                  Delete Object u+200
                  Play Sound 3 : Play Sound 5
               Endif
            Endif
         Endif
      Endif
Rem Check For Base Hit
      For h = 1 to 3
         If Base#(h)<8
         If Object Exist(u+200)=1
            If Object Position X(u+200)>Object Position X(h+1)-20
               If Object Position X(u+200)<Object Position X(h+1)+20
                  If Object Position Z(u+200)>Object Position Z(h+1)-20
                     If Object Position Z(u+200)<Object Position Z(h+1)+20
                        Base#(h)=Base#(h)+1
                        Delete Object u+200
                        Play Sound 5
                     Endif
                  Endif
               Endif
            Endif
         Endif
         Endif
      Next h
      If Object Exist(u+200)=1
         If Object Position z(u+200)<-350 then delete object u+200
      Endif
   Endif
Next u

Rem Update Base
For h = 1 to 3
   Texture Object h+1,Base#(h)+4
Next h

Rem Ship Kill
For s = 1 to 10
   If Object Exist(s+20)
      If Object Position Z(s+20)>Object Position Z(200)-10
         If Object Position Z(s+20)<Object Position Z(200)+10
            If Object Position X(s+20)>Object Position X(200)-10
               If Object Position X(s+20)<Object Position X(200)+10
                  Ship_P# = RND(1)+1
                  If Ship_P# = 1 then Position Object 200,800,0,180
                  If Ship_P# = 2 then Position Object 200,-800,0,180
                  Play Sound 3
                  Score# = Score# + 50
                  Delete Object s+20
               Endif
            Endif
         Endif
      Endif
   Endif
next s

Rem Update Monsters and Movement
XM_dly#=XM_dly#+1
If XM_dly#>XM_D#
   Enemy_X#=Enemy_X#+Enm_m#
   If Enemy_X#<-250 then Enm_m#=10 : Enemy_Z#=Enemy_Z#-10
   If Enemy_X#>-180 then Enm_M#=-10 : Enemy_Z#=Enemy_Z#-10
   XM_dly#=0
   for m = 1 to 3
      for n = 1 to 10
         model_N#=(((m*10)-10)+(n-1))+100
         position object model_N#,Enemy_X#+(n*40),0,Enemy_Z#+(m*40)
      next n
   next m
Endif
Rem Monster Hit Bases
If Enemy_Z#<-160
   for q = 1 to 10
      If Invaders#(q,1)>0 then Game_O#=1
      win#=2
   next q
Endif
If Enemy_Z#<-200
   for w = 1 to 10
      If Invaders#(w,2)>0 then Game_O#=1
      win#=2
   next w
Endif
If Enemy_Z#<-240
   for e = 1 to 10
      If Invaders#(e,3)>0 then Game_O#=1
      win#=2
   next e
Endif

Rem Kill All Monsters Win
kill_all#=0
For g = 1 to 3
   For h = 1 to 10
      kill_all#=kill_all#+Invaders#(h,g)
   Next h
Next g
If kill_all#=0
   Game_O# = 1
   win#=1
Endif

Rem Game Over Code
If Game_O# > 0
   for y = 1 to 3
      for x = 1 to 10
         If y=1 then Invaders#(x,y)=1
         If y=2 then Invaders#(x,y)=2
         If y=3 then Invaders#(x,y)=3
         model_N#=(((y*10)-10)+(x-1))+100
         Show Object model_N#
      next x
   next y
   Enemy_X#=-220
   Enemy_Z#=40
   Enm_m#=-10
   If win# = 2
      for i = 1 to 3
         Base#(i)=1
      next i
      XM_D#=15
   else
      for i = 1 to 3
         Base#(i)=Base#(i)-4
         if Base#(i)<1 then Base#(i)=1
      next i
      XM_D#=XM_D#-1
      If XM_D#<5 then XM_D#=5
   Endif
   for k = 1 to 10
      if object exist(k+20)=1 then delete object k+20
   next k
   for l = 1 to 30
      if object exist(l+200)=1 then delete object l+200
   next l
Rem Game Over
Game_Over:
   If win#=1 then Center Text 400,300,"INCOMING NEXT WAVE!"
   If win#=2 then Center Text 400,300,"GAME OVER!"
   Center Text 400,350,"Your Score: "+STR$(Score#)
   Game_O# = Game_O# + 1
   If Game_O# = 100
      if win# = 1
         Fire_Rate#=Fire_Rate#-2
         if Fire_Rate#<2 then Fire_Rate#=2
      Endif
      if win# = 2 then Score# = 0 : Fire_Rate#=20
      Game_O# = 0
      Goto Start
   Endif
   sync
   Goto Game_Over
Endif

Rem Player Control
Rem Move
If Rightkey()=1 then Move Object Right 1,5
If Leftkey()=1 then Move Object Left 1,5
Rem Fire
If fire=3
   dly=dly+1
   If dly=10
      dly=0
      fire=0
   Endif
Endif
If fire=0
   If Spacekey()=1
      fire=1
      Play Sound 2
   Endif
Endif
If fire=1
   for f = 1 to 10
      If Object Exist(f+20) = 0
         Make Object Plain f+20,20,20 : Position Object f+20,Object Position x(1),Object Position y(1)+5,Object Position z(1)
         Rotate Object f+20,90,0,0 : Texture Object f+20,14 : Set Object Ambient f+20,1
         Set object Transparency f+20,1 : Set Object Filter f+20,0
         fire=3 : goto no_fire
      Endif
   next f
Endif
no_fire:
Rem Update Bullets
for k = 1 to 10
If Object Exist(k+20) = 1
   Move Object Up k+20,5
   If Object Position z(k+20)>350 then Delete Object k+20
Rem Collision And destruction with enemy
   For v = 1 to 3
      For b = 1 to 10
         If Invaders#(b,v)>0
            If Object Exist(k+20)
               model_K#=(((v*10)-10)+(b-1))+100
               If Object Position Z(k+20) > Object Position Z(model_K#)-10
                  If Object Position Z(k+20) < Object Position Z(model_K#)+10
                     If Object Position X(k+20) > Object POsition X(model_K#)-10
                        If Object Position X(k+20) < Object Position X(model_K#)+10
                           If Invaders#(b,v) = 1 then Score# = Score#+5
                           If Invaders#(b,v) = 2 then Score# = Score#+10
                           If Invaders#(b,v) = 3 then Score# = Score#+15
                           Invaders#(b,v)=0
                           Delete Object k+20
                           Hide Object model_K#
                           Play Sound 3
                        Endif
                     Endif
                  Endif
               Endif
            Endif
         Endif
      Next b
   Next v
Endif
next k
   sync
Loop

and attached game at the bottom. ENJOY!

Post your scores! Want to see how far people get.
I got 4620 points, beat that

BWM

Edit:
TO MODS:
Can you change the title of this thread(if possible) too:
"Blast Classic Arcade Attack Remakes" ? Thanks if you can.

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Attachments

Login to view attachments

Back to top

Profile PM Email Website

The crazy

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Behind you

Posted: 23rd Jun 2007 08:12

Link

Very nice Blastwave, I can't believe no one has posted on these yet. I really suggest to you guys to play the space invaders game it's real fun!

Back to top

Profile PM Email Website

Deathead

18

Years of Service

User Offline

Joined: 14th Oct 2006

Location:

Posted: 23rd Jun 2007 23:24

Link

Wow! Blast every single game is fantastic!

Back to top

Profile PM Email

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 24th Jun 2007 00:09

Link

Would like some nice old feedback on the games and the source code if anyone has the time to play and look through them. Though with my next project Asteroids, which is nearly done, I'm hoping I show much much improvement. Only thing I'm still not certain on is 'types', but I'll soon learn them.

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Back to top

Profile PM Email Website

Lazlazlaz 1

19

Years of Service

User Offline

Joined: 18th Sep 2005

Location: England

Posted: 24th Jun 2007 19:33

Link

types are pretty simple really.

Create a type:

+ Code Snippet

type myType
   variable1 as integer
   variable2# as float
   variable3$ as string
endtype

Then declare an array as this type

+ Code Snippet

dim myArray(123) as myType

Then you can access the different type values in the array objects using:

+ Code Snippet

myArray(id_num).variable1
myArray(id_num).variable2#
myArray(id_num).variable3$

So for asteroids I guess you would use something like:

+ Code Snippet

type asteroid
   size as integer
   x_pos as integer
   y_pos as integer
   direction as integer
   health as integer
endtype

Hopefully that might be helpful, if not oh well.

Sioux - The Hollywood Western Real Time Strategy Game

Back to top

Profile PM

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 24th Jun 2007 21:29

Link

that makes a lot more sense. the examples don't use arrays in them, so I was confused on how to implement types for a mass amount of objects. thanks for that.

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Back to top

Profile PM Email Website

Lazlazlaz 1

19

Years of Service

User Offline

Joined: 18th Sep 2005

Location: England

Posted: 24th Jun 2007 23:16

Link

no prob man

Currently working on an un-named 2D Space RPG based on the Firefly/Serenity universe

Back to top

Profile PM

Sorry your browser is not supported!

Program Announcements / Blast Pong

Attachments

Attachments

Attachments