Asteroids - GameCreators Forum

Author

Message

Milkman

18

Years of Service

User Offline

Joined: 30th Nov 2005

Location: United States

Posted: 14th Feb 2006 02:51 Edited at: 14th Feb 2006 23:51

Link

This was developed in response to the latest coding challenge, which was to make an asteroids style game. I just want some honest opinions about it, and any suggestions you might have that would make it better, so I can improve upon it before I turn in my final entry. Demo attached.
Thanks guys

a screen shot:

the codez

:

rem variables
global time as integer
global stars as integer
global gamelevel as integer : gamelevel=1
global numberofstars as integer : numberofstars=200
global maximumobjects as integer : maximumobjects=1000
global xmid : xmid=int(1024/2)
global ymid : ymid=int(768/2)
global shiprotatespeed as float : shiprotatespeed=0.4
global shipbulletlife as integer : shipbulletlife=1500
global shipsleft as integer : shipsleft=2
global shipfirerate as integer
global shipacceleration as float
global shipmaximumspeed as float
global shipfiretime as integer
global shipscore as integer

rem setup
sync on
sync rate 50
set display mode 1024,768,32
hide mouse
set text font "microsoft sans serif"
null=make vector2(1)
null=make vector2(2)
sync

rem make the stars
ink rgb(255,255,200),rgb(0,0,0)
for x=1 to numberofstars
   dot rnd(1024),rnd(768)
next x
stars=1 : get image stars,0,0,1024,768
ink rgb(255,255,255),rgb(0,0,0)

rem types and arrays
type pointtype
   x as float
   y as float
   tx as float
   ty as float
endtype
type objecttype
   points as integer
   size as float
   xpos as float
   ypos as float
   rotation as float
   xvel as float
   yvel as float
   spin as float
endtype
type bullettype
   id as integer
   time as integer
endtype
type asteroidtype
   id as integer
   size as integer
endtype
global dim object(maximumobjects) as objecttype
global dim objectpoint(maximumobjects,20) as pointtype
global dim asteroid() as asteroidtype
global dim bullet() as bullettype

rem make the ship
array insert at bottom object(0)
object(0).points=5
object(0).size=10
object(0).xpos=xmid
object(0).ypos=ymid
object(0).rotation=0
object(0).xvel=0
object(0).yvel=0
object(0).spin=0
objectpoint(0,0).x=0
objectpoint(0,0).y=-10
objectpoint(0,1).x=-6
objectpoint(0,1).y=6
objectpoint(0,2).x=0
objectpoint(0,2).y=3
objectpoint(0,3).x=6
objectpoint(0,3).y=6
objectpoint(0,4).x=0
objectpoint(0,4).y=-10

`===========================================================================================

rem load the first level and start the loop
_load_level()
do
   rem get time and paste stars
   time=timer()
   paste image stars,0,0

rem main routines
   _control_ship()
   _check_bullets()
   _update_objects()

rem print stats and sync
   set cursor 0,5
   text 10,10,"Level_"+str$(gamelevel)
   text 10,30,"Ships left: "+str$(shipsleft)
   text 10,50,"Score: "+str$(shipscore)
   sync
loop

`==========================================================================================

rem sets up a level
function _load_level()
   object(0).xpos=xmid
   object(0).ypos=ymid
   object(0).rotation=0
   object(0).spin=0
   object(0).xvel=0
   object(0).yvel=0
   inc shipsleft
   shipfirerate=700-100*(gamelevel-1)
   shipmaximumspeed=1.5+gamelevel*0.2
   shipacceleration=0.1+gamelevel*0.03
   for x=1 to 6
      makeasteroid(3,rnd(1024),rnd(768))
   next x
   paste image stars,0,0
   set text size 40
   center text xmid,ymid-50,"Level_"+str$(gamelevel) : sync
   set text size 20
   wait 3000
endfunction

rem controls the ship
function _control_ship()
   rem rotate the ship
   object(0).spin=mousemovex()*shiprotatespeed
   rem move the ship
   if keystate(17)
      inc object(0).xvel,sin(object(0).rotation)*shipacceleration
      inc object(0).yvel,cos(object(0).rotation)*shipacceleration
      set vector2 1,object(0).xvel,object(0).yvel
      if length vector2(1)>shipmaximumspeed
         normalize vector2 1,1
         object(0).xvel=x vector2(1)*shipmaximumspeed
         object(0).yvel=y vector2(1)*shipmaximumspeed
      endif
   endif
   rem fire bullets
   if shipfiretime+shipfirerate<time
      if spacekey() or mouseclick()=1
         shipfiretime=time
         makebullet(object(0).xpos,object(0).ypos,object(0).rotation)
         dec shipscore
      endif
   endif
   rem check for asteroid collision
   for x=0 to array count(asteroid(0))
      set vector2 1,object(0).xpos-object(asteroid(x).id).xpos,object(0).ypos-object(asteroid(x).id).ypos
      if length vector2(1)<object(0).size+object(asteroid(x).id).size
         destroyasteroid(x)
         center text xmid,ymid-80,"You were hit!" : sync
         dec shipsleft
         if shipsleft<0
            set text size 40
            center text xmid,ymid-40,"You Lose!"
            center text xmid,ymid,"Your Score: "+str$(shipscore)
            sync
            wait 5000 : end
         endif
         object(0).xpos=xmid
         object(0).ypos=ymid
         object(0).rotation=0
         object(0).spin=0
         object(0).xvel=0
         object(0).yvel=0
         wait 1500
      endif
   next x
   rem check for next level
   if array count(asteroid(0))=-1
      inc gamelevel
      _load_level()
   endif
endfunction

rem draws and updates all objects
function _update_objects()
   for x=0 to maximumobjects
      rem rotation
      dec object(x).rotation,object(x).spin
      for y=0 to object(x).points-1
         objectpoint(x,y).tx=cos(object(x).rotation)*objectpoint(x,y).x+sin(object(x).rotation)*objectpoint(x,y).y
         objectpoint(x,y).ty=cos(object(x).rotation)*objectpoint(x,y).y-sin(object(x).rotation)*objectpoint(x,y).x
      next y
      rem movement
      dec object(x).xpos,object(x).xvel
      dec object(x).ypos,object(x).yvel
      if object(x).xpos<0 then object(x).xpos=1024
      if object(x).ypos<0 then object(x).ypos=768
      if object(x).xpos>1024 then object(x).xpos=0
      if object(x).ypos>768 then object(x).ypos=0
      rem drawing
      for y=0 to object(x).points-2
         line objectpoint(x,y).tx+object(x).xpos,objectpoint(x,y).ty+object(x).ypos,objectpoint(x,y+1).tx+object(x).xpos,objectpoint(x,y+1).ty+object(x).ypos
      next y
   next x
endfunction

rem expolodes asteroids and gets rid of bullets
function _check_bullets()
   while x<=array count(bullet(0))
      bulletobject=bullet(x).id
      collision=0
      for y=0 to array count(asteroid(0))
         asteroidobject=asteroid(y).id
         set vector2 1,object(asteroidobject).xpos-object(bulletobject).xpos,object(asteroidobject).ypos-object(bulletobject).ypos
         if length vector2(1)<object(asteroidobject).size+object(bulletobject).size
            select asteroid(y).size
               case 3
                  for z=1 to gamelevel
                     makeasteroid(2,object(asteroidobject).xpos,object(asteroidobject).ypos)
                  next z
                  inc shipscore,1
               endcase
               case 2
                  for z=1 to gamelevel
                     makeasteroid(1,object(asteroidobject).xpos,object(asteroidobject).ypos)
                  next z
                  inc shipscore,2
               endcase
               case 1
                  inc shipscore,3
               endcase
            endselect
            destroyasteroid(y)
            collision=1 : exit
         endif
      next y
      if collision or bullet(x).time+shipbulletlife<time
         destroybullet(x)
      else
         inc x
      endif
   endwhile
endfunction

`=========================================================================================

rem makes a new asteroid
function makeasteroid(size,x#,y#)
   num=newobject()
   array insert at bottom asteroid(0)
   asteroid(array count(asteroid(0))).id=num

direction#=rnd(359)
   speed#=rnd(9*gamelevel)*0.09+0.09*gamelevel
   if rnd(1)
      spin#=rnd(10*gamelevel)*0.1+0.1*gamelevel
   else
      spin#=-1*rnd(10*gamelevel)*0.1+0.1*gamelevel
   endif

select size
      case 1
         asteroid(array count(asteroid(0))).size=1
         object(num).points=6
         object(num).size=10
         object(num).xpos=x#
         object(num).ypos=y#
         object(num).rotation=0
         object(num).xvel=sin(direction#)*speed#
         object(num).yvel=cos(direction#)*speed#
         object(num).spin=spin#
         objectpoint(num,0).x=0
         objectpoint(num,0).y=-10
         objectpoint(num,1).x=-10+(rnd(4)-2)
         objectpoint(num,1).y=-3+(rnd(4)-2)
         objectpoint(num,2).x=-5+(rnd(4)-2)
         objectpoint(num,2).y=10+(rnd(4)-2)
         objectpoint(num,3).x=5+(rnd(4)-2)
         objectpoint(num,3).y=10+(rnd(4)-2)
         objectpoint(num,4).x=10+(rnd(4)-2)
         objectpoint(num,4).y=-3+(rnd(4)-2)
         objectpoint(num,5).x=0
         objectpoint(num,5).y=-10
      endcase
      case 2
         asteroid(array count(asteroid(0))).size=2
         object(num).points=7
         object(num).size=20
         object(num).xpos=x#
         object(num).ypos=y#
         object(num).rotation=0
         object(num).xvel=sin(direction#)*speed#
         object(num).yvel=cos(direction#)*speed#
         object(num).spin=spin#
         objectpoint(num,0).x=0
         objectpoint(num,0).y=-20
         objectpoint(num,1).x=-20+(rnd(8)-4)
         objectpoint(num,1).y=-10+(rnd(8)-4)
         objectpoint(num,2).x=-20+(rnd(8)-4)
         objectpoint(num,2).y=10+(rnd(8)-4)
         objectpoint(num,3).x=0+(rnd(8)-4)
         objectpoint(num,3).y=20+(rnd(8)-4)
         objectpoint(num,4).x=20+(rnd(8)-4)
         objectpoint(num,4).y=10+(rnd(8)-4)
         objectpoint(num,5).x=20+(rnd(8)-4)
         objectpoint(num,5).y=-10+(rnd(8)-4)
         objectpoint(num,6).x=0
         objectpoint(num,6).y=-20
      endcase
      case 3
         asteroid(array count(asteroid(0))).size=3
         object(num).points=9
         object(num).size=30
         object(num).xpos=x#
         object(num).ypos=y#
         object(num).rotation=0
         object(num).xvel=sin(direction#)*speed#
         object(num).yvel=cos(direction#)*speed#
         object(num).spin=spin#
         objectpoint(num,0).x=0
         objectpoint(num,0).y=-30
         objectpoint(num,1).x=-18+(rnd(12)-6)
         objectpoint(num,1).y=-18+(rnd(12)-6)
         objectpoint(num,2).x=-30+(rnd(12)-6)
         objectpoint(num,2).y=0+(rnd(12)-6)
         objectpoint(num,3).x=-18+(rnd(12)-6)
         objectpoint(num,3).y=18+(rnd(12)-6)
         objectpoint(num,4).x=0+(rnd(12)-6)
         objectpoint(num,4).y=30+(rnd(12)-6)
         objectpoint(num,5).x=18+(rnd(12)-6)
         objectpoint(num,5).y=18+(rnd(12)-6)
         objectpoint(num,6).x=30+(rnd(12)-6)
         objectpoint(num,6).y=0+(rnd(12)-6)
         objectpoint(num,7).x=18+(rnd(12)-6)
         objectpoint(num,7).y=-18+(rnd(12)-6)
         objectpoint(num,8).x=0
         objectpoint(num,8).y=-30
      endcase
   endselect
endfunction

rem gets rid of asteroids
function destroyasteroid(num)
   object(asteroid(num).id).points=0
   array delete element asteroid(0),num
endfunction

rem makes bullets
function makebullet(x#,y#,direction#)
   num=newobject()
   array insert at bottom bullet(0)
   bullet(array count(bullet(0))).id=num
   bullet(array count(bullet(0))).time=time
   object(num).points=5
   object(num).size=2
   object(num).xpos=x#
   object(num).ypos=y#
   object(num).rotation=direction#
   object(num).xvel=sin(direction#)*10.0
   object(num).yvel=cos(direction#)*10.0
   object(num).spin=0
   objectpoint(num,0).x=0
   objectpoint(num,0).y=-2
   objectpoint(num,1).x=-1
   objectpoint(num,1).y=0
   objectpoint(num,2).x=0
   objectpoint(num,2).y=2
   objectpoint(num,3).x=1
   objectpoint(num,3).y=0
   objectpoint(num,4).x=0
   objectpoint(num,4).y=-2
endfunction

rem gets rid of bullets
function destroybullet(num)
   object(bullet(num).id).points=0
   array delete element bullet(0),num
endfunction

rem returns a free object slot
function newobject()
   while object(test).points<>0
      inc test
   endwhile
endfunction test

+ Code Snippet


rem variables
global time as integer
global stars as integer
global gamelevel as integer : gamelevel=1
global numberofstars as integer : numberofstars=200
global maximumobjects as integer : maximumobjects=1000
global xmid : xmid=int(1024/2)
global ymid : ymid=int(768/2)
global shiprotatespeed as float : shiprotatespeed=0.4
global shipbulletlife as integer : shipbulletlife=1500
global shipsleft as integer : shipsleft=2
global shipfirerate as integer
global shipacceleration as float
global shipmaximumspeed as float
global shipfiretime as integer
global shipscore as integer



rem setup
sync on
sync rate 50
set display mode 1024,768,32
hide mouse
set text font "microsoft sans serif"
null=make vector2(1)
null=make vector2(2)
sync



rem make the stars
ink rgb(255,255,200),rgb(0,0,0)
for x=1 to numberofstars
   dot rnd(1024),rnd(768)
next x
stars=1 : get image stars,0,0,1024,768
ink rgb(255,255,255),rgb(0,0,0)



rem types and arrays
type pointtype
   x as float
   y as float
   tx as float
   ty as float
endtype
type objecttype
   points as integer
   size as float
   xpos as float
   ypos as float
   rotation as float
   xvel as float
   yvel as float
   spin as float
endtype
type bullettype
   id as integer
   time as integer
endtype
type asteroidtype
   id as integer
   size as integer
endtype
global dim object(maximumobjects) as objecttype
global dim objectpoint(maximumobjects,20) as pointtype
global dim asteroid() as asteroidtype
global dim bullet() as bullettype



rem make the ship
array insert at bottom object(0)
object(0).points=5
object(0).size=10
object(0).xpos=xmid
object(0).ypos=ymid
object(0).rotation=0
object(0).xvel=0
object(0).yvel=0
object(0).spin=0
objectpoint(0,0).x=0
objectpoint(0,0).y=-10
objectpoint(0,1).x=-6
objectpoint(0,1).y=6
objectpoint(0,2).x=0
objectpoint(0,2).y=3
objectpoint(0,3).x=6
objectpoint(0,3).y=6
objectpoint(0,4).x=0
objectpoint(0,4).y=-10



`===========================================================================================



rem load the first level and start the loop
_load_level()
do
   rem get time and paste stars
   time=timer()
   paste image stars,0,0

   rem main routines
   _control_ship()
   _check_bullets()
   _update_objects()

   rem print stats and sync
   set cursor 0,5
   text 10,10,"Level_"+str$(gamelevel)
   text 10,30,"Ships left: "+str$(shipsleft)
   text 10,50,"Score: "+str$(shipscore)
   sync
loop



`==========================================================================================



rem sets up a level
function _load_level()
   object(0).xpos=xmid
   object(0).ypos=ymid
   object(0).rotation=0
   object(0).spin=0
   object(0).xvel=0
   object(0).yvel=0
   inc shipsleft
   shipfirerate=700-100*(gamelevel-1)
   shipmaximumspeed=1.5+gamelevel*0.2
   shipacceleration=0.1+gamelevel*0.03
   for x=1 to 6
      makeasteroid(3,rnd(1024),rnd(768))
   next x
   paste image stars,0,0
   set text size 40
   center text xmid,ymid-50,"Level_"+str$(gamelevel) : sync
   set text size 20
   wait 3000
endfunction



rem controls the ship
function _control_ship()
   rem rotate the ship
   object(0).spin=mousemovex()*shiprotatespeed
   rem move the ship
   if keystate(17)
      inc object(0).xvel,sin(object(0).rotation)*shipacceleration
      inc object(0).yvel,cos(object(0).rotation)*shipacceleration
      set vector2 1,object(0).xvel,object(0).yvel
      if length vector2(1)>shipmaximumspeed
         normalize vector2 1,1
         object(0).xvel=x vector2(1)*shipmaximumspeed
         object(0).yvel=y vector2(1)*shipmaximumspeed
      endif
   endif
   rem fire bullets
   if shipfiretime+shipfirerate<time
      if spacekey() or mouseclick()=1
         shipfiretime=time
         makebullet(object(0).xpos,object(0).ypos,object(0).rotation)
         dec shipscore
      endif
   endif
   rem check for asteroid collision
   for x=0 to array count(asteroid(0))
      set vector2 1,object(0).xpos-object(asteroid(x).id).xpos,object(0).ypos-object(asteroid(x).id).ypos
      if length vector2(1)<object(0).size+object(asteroid(x).id).size
         destroyasteroid(x)
         center text xmid,ymid-80,"You were hit!" : sync
         dec shipsleft
         if shipsleft<0
            set text size 40
            center text xmid,ymid-40,"You Lose!"
            center text xmid,ymid,"Your Score: "+str$(shipscore)
            sync
            wait 5000 : end
         endif
         object(0).xpos=xmid
         object(0).ypos=ymid
         object(0).rotation=0
         object(0).spin=0
         object(0).xvel=0
         object(0).yvel=0
         wait 1500
      endif
   next x
   rem check for next level
   if array count(asteroid(0))=-1
      inc gamelevel
      _load_level()
   endif
endfunction



rem draws and updates all objects
function _update_objects()
   for x=0 to maximumobjects
      rem rotation
      dec object(x).rotation,object(x).spin
      for y=0 to object(x).points-1
         objectpoint(x,y).tx=cos(object(x).rotation)*objectpoint(x,y).x+sin(object(x).rotation)*objectpoint(x,y).y
         objectpoint(x,y).ty=cos(object(x).rotation)*objectpoint(x,y).y-sin(object(x).rotation)*objectpoint(x,y).x
      next y
      rem movement
      dec object(x).xpos,object(x).xvel
      dec object(x).ypos,object(x).yvel
      if object(x).xpos<0 then object(x).xpos=1024
      if object(x).ypos<0 then object(x).ypos=768
      if object(x).xpos>1024 then object(x).xpos=0
      if object(x).ypos>768 then object(x).ypos=0
      rem drawing
      for y=0 to object(x).points-2
         line objectpoint(x,y).tx+object(x).xpos,objectpoint(x,y).ty+object(x).ypos,objectpoint(x,y+1).tx+object(x).xpos,objectpoint(x,y+1).ty+object(x).ypos
      next y
   next x
endfunction



rem expolodes asteroids and gets rid of bullets
function _check_bullets()
   while x<=array count(bullet(0))
      bulletobject=bullet(x).id
      collision=0
      for y=0 to array count(asteroid(0))
         asteroidobject=asteroid(y).id
         set vector2 1,object(asteroidobject).xpos-object(bulletobject).xpos,object(asteroidobject).ypos-object(bulletobject).ypos
         if length vector2(1)<object(asteroidobject).size+object(bulletobject).size
            select asteroid(y).size
               case 3
                  for z=1 to gamelevel
                     makeasteroid(2,object(asteroidobject).xpos,object(asteroidobject).ypos)
                  next z
                  inc shipscore,1
               endcase
               case 2
                  for z=1 to gamelevel
                     makeasteroid(1,object(asteroidobject).xpos,object(asteroidobject).ypos)
                  next z
                  inc shipscore,2
               endcase
               case 1
                  inc shipscore,3
               endcase
            endselect
            destroyasteroid(y)
            collision=1 : exit
         endif
      next y
      if collision or bullet(x).time+shipbulletlife<time
         destroybullet(x)
      else
         inc x
      endif
   endwhile
endfunction



`=========================================================================================



rem makes a new asteroid
function makeasteroid(size,x#,y#)
   num=newobject()
   array insert at bottom asteroid(0)
   asteroid(array count(asteroid(0))).id=num

   direction#=rnd(359)
   speed#=rnd(9*gamelevel)*0.09+0.09*gamelevel
   if rnd(1)
      spin#=rnd(10*gamelevel)*0.1+0.1*gamelevel
   else
      spin#=-1*rnd(10*gamelevel)*0.1+0.1*gamelevel
   endif

   select size
      case 1
         asteroid(array count(asteroid(0))).size=1
         object(num).points=6
         object(num).size=10
         object(num).xpos=x#
         object(num).ypos=y#
         object(num).rotation=0
         object(num).xvel=sin(direction#)*speed#
         object(num).yvel=cos(direction#)*speed#
         object(num).spin=spin#
         objectpoint(num,0).x=0
         objectpoint(num,0).y=-10
         objectpoint(num,1).x=-10+(rnd(4)-2)
         objectpoint(num,1).y=-3+(rnd(4)-2)
         objectpoint(num,2).x=-5+(rnd(4)-2)
         objectpoint(num,2).y=10+(rnd(4)-2)
         objectpoint(num,3).x=5+(rnd(4)-2)
         objectpoint(num,3).y=10+(rnd(4)-2)
         objectpoint(num,4).x=10+(rnd(4)-2)
         objectpoint(num,4).y=-3+(rnd(4)-2)
         objectpoint(num,5).x=0
         objectpoint(num,5).y=-10
      endcase
      case 2
         asteroid(array count(asteroid(0))).size=2
         object(num).points=7
         object(num).size=20
         object(num).xpos=x#
         object(num).ypos=y#
         object(num).rotation=0
         object(num).xvel=sin(direction#)*speed#
         object(num).yvel=cos(direction#)*speed#
         object(num).spin=spin#
         objectpoint(num,0).x=0
         objectpoint(num,0).y=-20
         objectpoint(num,1).x=-20+(rnd(8)-4)
         objectpoint(num,1).y=-10+(rnd(8)-4)
         objectpoint(num,2).x=-20+(rnd(8)-4)
         objectpoint(num,2).y=10+(rnd(8)-4)
         objectpoint(num,3).x=0+(rnd(8)-4)
         objectpoint(num,3).y=20+(rnd(8)-4)
         objectpoint(num,4).x=20+(rnd(8)-4)
         objectpoint(num,4).y=10+(rnd(8)-4)
         objectpoint(num,5).x=20+(rnd(8)-4)
         objectpoint(num,5).y=-10+(rnd(8)-4)
         objectpoint(num,6).x=0
         objectpoint(num,6).y=-20
      endcase
      case 3
         asteroid(array count(asteroid(0))).size=3
         object(num).points=9
         object(num).size=30
         object(num).xpos=x#
         object(num).ypos=y#
         object(num).rotation=0
         object(num).xvel=sin(direction#)*speed#
         object(num).yvel=cos(direction#)*speed#
         object(num).spin=spin#
         objectpoint(num,0).x=0
         objectpoint(num,0).y=-30
         objectpoint(num,1).x=-18+(rnd(12)-6)
         objectpoint(num,1).y=-18+(rnd(12)-6)
         objectpoint(num,2).x=-30+(rnd(12)-6)
         objectpoint(num,2).y=0+(rnd(12)-6)
         objectpoint(num,3).x=-18+(rnd(12)-6)
         objectpoint(num,3).y=18+(rnd(12)-6)
         objectpoint(num,4).x=0+(rnd(12)-6)
         objectpoint(num,4).y=30+(rnd(12)-6)
         objectpoint(num,5).x=18+(rnd(12)-6)
         objectpoint(num,5).y=18+(rnd(12)-6)
         objectpoint(num,6).x=30+(rnd(12)-6)
         objectpoint(num,6).y=0+(rnd(12)-6)
         objectpoint(num,7).x=18+(rnd(12)-6)
         objectpoint(num,7).y=-18+(rnd(12)-6)
         objectpoint(num,8).x=0
         objectpoint(num,8).y=-30
      endcase
   endselect
endfunction



rem gets rid of asteroids
function destroyasteroid(num)
   object(asteroid(num).id).points=0
   array delete element asteroid(0),num
endfunction



rem makes bullets
function makebullet(x#,y#,direction#)
   num=newobject()
   array insert at bottom bullet(0)
   bullet(array count(bullet(0))).id=num
   bullet(array count(bullet(0))).time=time
   object(num).points=5
   object(num).size=2
   object(num).xpos=x#
   object(num).ypos=y#
   object(num).rotation=direction#
   object(num).xvel=sin(direction#)*10.0
   object(num).yvel=cos(direction#)*10.0
   object(num).spin=0
   objectpoint(num,0).x=0
   objectpoint(num,0).y=-2
   objectpoint(num,1).x=-1
   objectpoint(num,1).y=0
   objectpoint(num,2).x=0
   objectpoint(num,2).y=2
   objectpoint(num,3).x=1
   objectpoint(num,3).y=0
   objectpoint(num,4).x=0
   objectpoint(num,4).y=-2
endfunction



rem gets rid of bullets
function destroybullet(num)
   object(bullet(num).id).points=0
   array delete element bullet(0),num
endfunction



rem returns a free object slot
function newobject()
   while object(test).points<>0
      inc test
   endwhile
endfunction test

formerly xMik

Attachments

Login to view attachments

Back to top

Profile PM Email

General Sephiro

20

Years of Service

User Offline

Joined: 27th Sep 2004

Location:

Posted: 14th Feb 2006 03:30 Edited at: 14th Feb 2006 03:31

Link

Improvements that could be made
a.) more bullets
b.) better controls able to use both mouse + arrow keys + w,a,s,d
c.) when the astroids get hit, seperate them into 2 pieces instead of one..., also an explosion effect
d.) add sound
e.) music?
f.) menu screen
g.) splash screen
h.) Polish the game up in every way possible
I.) I could go on but... nah

All i can say is it seems like your off to a good start with this project about 40% complete, you could easily add in a 2 player mode, power-ups new weapons different spaceships new graphics blah blah.. but i'm guessing you're going for the REALLY old style version...

http://www.hybridwolves.co.uk

Back to top

Profile PM

Milkman

18

Years of Service

User Offline

Joined: 30th Nov 2005

Location: United States

Posted: 14th Feb 2006 03:58

Link

Thanks for the suggestions, but i have a response to half of those

a) Did you play more than the first level?
b) I'll add something like that, thanks
c) Once again, did you even play level 2?

d) There's a no-media limitation on the coding challenges

e) ^^^
f) I'll make one, thanks
g) see (d)

h) will do

i) ok

thanks for all your suggestions!

formerly xMik

Back to top

Profile PM Email

General Sephiro

20

Years of Service

User Offline

Joined: 27th Sep 2004

Location:

Posted: 14th Feb 2006 11:44

Link

nope, i never played past the first level, but i thought of one other thing for the explosion effect using no media, create a partical explosion and color each partical white, or you could use the dot command and disperse them accross the screen when an astroid is hit.

You could easily create graphics such as a small ship.., you should be able to create a bitmap within DBP and colour it in from there. You could even do a small 32 x 32... hint hint, but thats only for the advanced users out there

http://www.hybridwolves.co.uk

Back to top

Profile PM

Sorry your browser is not supported!

Work in Progress / Asteroids

Attachments