Sorry your browser is not supported!

#constant STARS = 60

REM Project: Asteroids
REM Created: 13-02-2006 12:01:43
REM
REM ***** Main Source File *****
REM

`Purpose : Entry in the dbp-challenge thread, aaaan to get me started with dbp again.


`Settings:
sync on
sync rate 60
set display mode 1024, 768, 32
disable escapekey
set image colorkey 0, 0, 0
color backdrop rgb(0, 0, 0)
`

`Constants:
   #constant STARS = 60
   #constant backGrnd = 1
`

`Setup vectors:
movement=1
thrust=2
currentPos=3
newPos=4

null=make vector2(movement)
null=make vector2(thrust)
null=make vector2(currentPos)
null=make vector2(newPos)
`

`And type(s)
type spr
   nr AS integer
   xPos AS integer
   yPos AS integer
   ang AS float
endtype
`


`Variables
plr AS spr

plr.nr=2
plr.xPos=0
plr.yPos=0
`



`Self explanatory...
drawBackground( STARS, backGrnd )
set sprite backGrnd, 0, 0
sprite backGrnd, 0, 0, backGrnd
cls

drawShip(plr.nr)
set sprite plr.nr, 0, 1
sprite plr.nr, 0, 0, plr.nr
offset sprite plr.nr, 51/2, 51/2
cls
`



`**** ENTER LOOP ****
repeat

   if plr.xPos>1024
      plr.xPos=0
   endif

   if plr.xPos<0
      plr.xPos=1024
   endif

   if plr.yPos>768
      plr.yPos=0
   endif

   if plr.yPos<0
      plr.yPos=768
   endif

   if keystate(208)
      inc plr.yPos, 7
   endif

   if keystate(205)
      dec plr.yPos, 7
   endif


   sprite backGrnd, 0, 0, backGrnd
   sprite plr.nr, plr.xPos, plr.yPos, plr.nr
sync
until escapekey()
`**** END OF LOOP ****

`Clean up when app exits:
null=delete vector2(movement)
null=delete vector2(thrust)
null=delete vector2(currentPos)
null=delete vector2(newPos)
`






function drawBackground( stars, imgNr )

   for x=0 to 60
      dot rnd(screen width()), rnd(screen height()), rgb(220, 220, 220)
   next x

   get image imgNr, 0, 0, screen width(), screen height()

endfunction


function drawShip( imgNr )
   `left line
   line 0, 50, 25, 0
   `right line
   line 50, 50, 25, 0
   `bottom line
   line 0,50, 50, 50

   get image imgNr, 0, 0, 51, 51

endfunction

#constant STARS 60

#CONSTANT IDLE 0
#CONSTANT HUNTING 1
#CONSTANT EATING 2
etc
etc

select Beastie(i).State
   case IDLE
       `do the idle stuff
   endcase

   case HUNTING
       `do the hunting stuff
   endcase
.
.
.
endselect

`**Asteroids Remake**
`¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

`Game setup
Sync on : Sync rate 60
Set display mode 1024,768,16 : Hide Mouse

`Variables
Dim Px(3) as float : Dim Py(3) as float
Dim Fx(3) as Float : Dim Fy(3) as float
Dim Bx(4) as Float : Dim By(4) as float
thrust#=10.0 : mass#=30.0 : size#=10
Shipcol=rgb(255,255,255) : Flame=rgb(255,255,0)
x#=screen width()/2 : y#=screen height()/2
drag#=0.98

`**Main Loop**
Do
Cls

`Store Old Positions
oldx#=x# : oldy#=y#

`Controls
If upkey()=1 then fx#=sin(a#)*thrust# : fy#=cos(a#)*thrust#
If downkey()=1 then fx#=-sin(a#)*thrust# : fy#=-cos(a#)*thrust#
if upkey()=0 and downkey()=0 then fx#=0 : fy#=0
If leftkey()=1 then A#=wrapvalue(A#+5.0)
If rightkey()=1 then A#=wrapvalue(A#-5.0)

`Update Ship Controls
ax#=fx#/mass# : ay#=fy#/mass#
vx#=vx#+ax# : vy#=vy#+ay#
vx#=vx#*drag# : vy#=vy#*drag#

`Update Position
X#=X#+Vx# : Y#=Y#+Vy#
if x#>screen width() then x#=0
if y#>screen height() then y#=0
if x#<0 then x#=screen width()
if y#<0 then y#=screen height()

`Draw Ship
px(1)=x#+(sin(A#)*size#) : py(1)=y#+(cos(A#)*size#)
px(2)=x#+(sin(wrapvalue(A#+135))*size#) : py(2)=y#+(cos(wrapvalue(A#+135))*size#)
px(3)=x#+(sin(wrapvalue(A#-135))*size#) : py(3)=y#+(cos(wrapvalue(A#-135))*size#)
ink shipcol,0
line px(1),py(1),px(2),py(2)
line px(1),py(1),px(3),py(3)
line px(2),py(2),px(3),py(3)
fx(1)=x#+(sin(wrapvalue(a#+180))*13) : fy(1)=y#+(cos(wrapvalue(a#+180))*13)
fx(2)=x#+(sin(wrapvalue(a#+150))*7) : fy(2)=y#+(cos(wrapvalue(a#+150))*7)
fx(3)=x#+(sin(wrapvalue(a#-150))*7) : fy(3)=y#+(cos(wrapvalue(a#-150))*7)

bx(1)=x#+(sin(wrapvalue(A#-135))*size#) : by(1)=y#+(cos(wrapvalue(A#-135))*size#)
bx(2)=x#+(sin(wrapvalue(A#-90))*size#) : by(2)=y#+(cos(wrapvalue(A#-90))*size#)
bx(3)=x#+(sin(wrapvalue(A#+135))*size#) : by(3)=y#+(cos(wrapvalue(A#+135))*size#)
bx(4)=x#+(sin(wrapvalue(A#+90))*size#) : by(4)=y#+(cos(wrapvalue(A#+90))*size#)

ink flame,0
if upkey()=1
   line fx(1),fy(1),fx(2),fy(2)
   line fx(1),fy(1),fx(3),fy(3)
endif
if downkey()=1
   line bx(1),by(1),bx(2),by(2)
   line bx(3),by(3),bx(4),by(4)
endif
box x-2,y-2,x+2,y+2

`**End Loop**
Sync
Loop

REM Project: Asteroids
REM Created: 13-02-2006 12:01:43
REM
REM ***** Main Source File *****
REM

`Purpose : Entry in the dbp-challenge thread, aaaan to get me started with dbp again.


`Settings
sync on
sync rate 60

hide mouse

set display mode 1024, 768, 32

disable escapekey

set image colorkey 0, 0, 0
color backdrop rgb(0, 0, 0)
`\\\\

`Constants
   #constant thingy = 80
   #constant backGrnd = 1
`\\\\

`Setup vectors
movement=1
thrust=2
currentPos=3
newPos=4
tmpMovement=5

null=make vector2(movement)
null=make vector2(thrust)
null=make vector2(currentPos)
null=make vector2(newPos)
null=make vector2(tmpMovement)
`\\\\

`And type(s)
type spr
   nr AS integer
   xPos AS integer
   yPos AS integer
   ang AS float
endtype
`\\\\


`Variables
plr AS spr

fAngles AS float

plr.nr=2
plr.xPos=0
plr.yPos=0
`\\\\



`Self explanatory...
drawBackground( thingy, backGrnd )
set sprite backGrnd, 0, 0
sprite backGrnd, 0, 0, backGrnd
cls

drawShip(plr.nr)
set sprite plr.nr, 0, 1
sprite plr.nr, screen width()/2, screen height()/2, plr.nr
offset sprite plr.nr, 10, 10
cls


`\\\\



`**** ENTER LOOP ****
repeat

   plr.xPos=sprite x(plr.nr)
   plr.yPos=sprite y(plr.nr)

   if plr.xPos>1024
      plr.xPos=0
      sprite plr.nr, plr.xPos, plr.yPos, plr.nr
   endif

   if plr.xPos<0
      plr.xPos=1024
      sprite plr.nr, plr.xPos, plr.yPos, plr.nr
   endif

   if plr.yPos>768
      plr.yPos=0
      sprite plr.nr, plr.xPos, plr.yPos, plr.nr
   endif

   if plr.yPos<0
      plr.yPos=768
      sprite plr.nr, plr.xPos, plr.yPos, plr.nr
   endif


      if mouseclick()=2
         x# = sin(fAngle)
         y# = cos(fAngle + 180)

         set vector2 thrust, x#, y#
         scale vector2 thrust, thrust, 0.2

         add vector2 tmpMovement, thrust, movement

         if length vector2(tmpMovement)<10
            add vector2 movement, thrust, movement
         endif
      endif



   fAngle=wrapvalue( fAngle+mousemovex()/1.5 )
   rotate sprite plr.nr, fAngle

   set vector2 currentPos, sprite x(plr.nr), sprite y(plr.nr)
   add vector2 newPos, movement, currentPos

   plr.xPos=x vector2(newPos)
   plr.yPos=y vector2(newPos)

   sprite plr.nr, plr.xPos, plr.yPos, plr.nr


sync
until escapekey()
`**** END OF LOOP ****

`Clean up when app exits:
null=delete vector2(movement)
null=delete vector2(thrust)
null=delete vector2(currentPos)
null=delete vector2(newPos)
null=delete vector2(tmpMovement)
`\\\\






function drawBackground( stars, imgNr )

   for x=0 to stars
      dot rnd(screen width()), rnd(screen height()), rgb(220, 220, 220)
   next x

   get image imgNr, 0, 0, screen width(), screen height()

endfunction


function drawShip( imgNr )
   `left line
   line 0, 20, 10, 0
   `right line
   line 20, 20, 10, 0
   `bottom line
   line 0,20, 20, 20

   get image imgNr, 0, 0, 21, 21

endfunction

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

         add vector2 tmpMovement, thrust, movement

         if length vector2(tmpMovement)<10
            add vector2 movement, thrust, movement
         endif

if length vector2(tmpMovement)<10

REM Project: Asteroids
REM Created: 13-02-2006 12:01:43
REM
REM ***** Main Source File *****
REM

`Purpose : Entry in the dbp-challenge thread, aaaan to get me started with dbp again.


`Settings
sync on
sync rate 60

hide mouse

set display mode 1024, 768, 32

disable escapekey

set image colorkey 0, 0, 0
color backdrop rgb(0, 0, 0)
`\\\\

`Constants
   #constant thingy = 120
   #constant backGrnd = 1
   #constant laserImg = 3
   #constant fireImg = 4

   #constant fireSpr = 25

   #constant maxLaser = 24
   #constant minLaser = 4
   #constant coolDown = 3.25
   #constant laserSpeed = 5
`\\\\

`Setup vectors
movement=1
thrust=2
currentPos=3
newPos=4
tmpMovement=5

null=make vector2(movement)
null=make vector2(thrust)
null=make vector2(currentPos)
null=make vector2(newPos)
null=make vector2(tmpMovement)
`\\\\

`And type(s)
type spr
   nr AS integer
   xPos AS integer
   yPos AS integer
   ang AS float
endtype
`\\\\


`Variables
plr AS spr
fAngles AS float

plr.nr=2
plr.xPos=0
plr.yPos=0

nextLaser AS integer
nextLaser=4

time AS float
`\\\\



`Self explanatory...
drawBackground( thingy, backGrnd )
set sprite backGrnd, 0, 0
sprite backGrnd, 0, 0, backGrnd
cls

drawShip(plr.nr)

set sprite plr.nr, 0, 1
sprite plr.nr, screen width()/2, screen height()/2, plr.nr
offset sprite plr.nr, 10, 10
cls

drawLaser( laserImg )
set sprite laserImg, 0, 1
cls

drawFire( fireImg )
set sprite fireSpr, 0, 0
sprite fireSpr, 0, 0, fireImg
offset sprite fireSpr, 8, 4
cls

`\\\\



`**** ENTER LOOP ****
repeat

   plr.xPos=sprite x(plr.nr)
   plr.yPos=sprite y(plr.nr)

   if plr.xPos>1024
      plr.xPos=0
      sprite plr.nr, plr.xPos, plr.yPos, plr.nr
   endif

   if plr.xPos<0
      plr.xPos=1024
      sprite plr.nr, plr.xPos, plr.yPos, plr.nr
   endif

   if plr.yPos>768
      plr.yPos=0
      sprite plr.nr, plr.xPos, plr.yPos, plr.nr
   endif

   if plr.yPos<0
      plr.yPos=768
      sprite plr.nr, plr.xPos, plr.yPos, plr.nr
   endif


   if mouseclick()=1 or mouseclick()=3
      if time>coolDown
         sprite nextLaser, sprite x(plr.nr), sprite y(plr.nr), laserImg
         set sprite nextLaser, 0, 1
         offset sprite nextLaser, 1, 4
         rotate sprite nextLaser, sprite angle( plr.nr )

         inc nextLaser, 1
         time=0
      endif
   endif



   if mouseclick()=2 or mouseclick()=3
      show sprite fireSpr

      x# = sin(fAngle)
      y# = cos(fAngle + 180)

      set vector2 thrust, x#, y#
      scale vector2 thrust, thrust, 0.1

      add vector2 tmpMovement, thrust, movement

      if length vector2(tmpMovement)<8
         add vector2 movement, thrust, movement
      endif
   else
      hide sprite fireSpr
   endif



   fAngle=wrapvalue( fAngle+mousemovex()/2 )
   rotate sprite plr.nr, fAngle

   set vector2 currentPos, sprite x(plr.nr), sprite y(plr.nr)
   add vector2 newPos, movement, currentPos

   plr.xPos=x vector2(newPos)
   plr.yPos=y vector2(newPos)


   gosub update


sync
until escapekey()
`**** END OF LOOP ****

`Clean up when app exits:
null=delete vector2(movement)
null=delete vector2(thrust)
null=delete vector2(currentPos)
null=delete vector2(newPos)
null=delete vector2(tmpMovement)
`\\\\


update:
   updateLasers(laserSpeed)

   sprite plr.nr, plr.xPos, plr.yPos, plr.nr

   inc time, 0.1

   if nextLaser>maxLaser
      nextLaser=minLaser
   endif

   sprite fireSpr, sprite x( plr.nr ), sprite y( plr.nr ), fireImg
   rotate sprite fireSpr, sprite angle( plr.nr )
   move sprite fireSpr, -20
return











function drawBackground( stars, imgNr )

   for x=0 to stars
      dot rnd(screen width()), rnd(screen height()), rgb(220, 220, 220)
   next x

   get image imgNr, 0, 0, screen width(), screen height()

endfunction


function drawShip( imgNr )
   `left line
   line 0, 20, 10, 0
   `right line
   line 20, 20, 10, 0
   `bottom line
   line 0,20, 20, 20

   get image imgNr, 0, 0, 21, 21

endfunction


function drawLaser( imgNr )

   for x=0 to 1
      line x, 0, x, 8
   next x

   get image imgNr, 0, 0, 2, 8

endfunction


function drawFire( imgNr )
   for x=0 to 16
      if y=3
         line 8, 0, x, 8
         y=0
      endif
      inc y
   next x

   get image imgNr, 0, 0, 16, 8

endfunction


function updateLasers(speed)
   for x= minLaser to maxLaser
      if sprite exist( x )

         move sprite x, speed
         `collision
     endif

     if sprite exist( x )
         if sprite x( x )>1024
            delete sprite x
         endif
     endif

     if sprite exist( x )
         if sprite x( x )<0
            delete sprite x
         endif
     endif

     if sprite exist( x )
         if sprite y( x )>768
            delete sprite x
         endif
     endif

     if sprite exist( x )
         if sprite y( x )<0
            delete sprite x
         endif
     endif

   next x
endfunction

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

for z=1 to gamelevel
   makeasteroid(2,object(asteroidobject).xpos,object(asteroidobject).ypos)
next z

Rem Project: Asteroids
Rem Created: 13/02/2006 5:33:58 PM

Rem ***** Main Source File *****
sync on:sync rate 30
hide mouse
randomize timer()
autocam off

ode start
ode set world gravity 0,0,0
ode set world step 0.05
ode set world erp (0.8)
ode set world cfm (10^-5)

field()
wall()
objects()
camera()
make object sphere 900,5
sync

do
position camera 0,object position x(900),object position y(900),object position z(900)
ode update
sync
camx = camera position x(0)
camy = camera position y(0)
camz = camera position z(0)
print camx
print camy
print camz
if upkey() then move object 900,2
if downkey() then move object 900,-2
if spacekey() then move object up 900,2
if shiftkey() then move object down 900,2
if leftkey() then move object left 900,2
if rightkey() then move object right 900,2
loop


function field()
`create object space
make object plain 10,100,100
ode create static box 10
`position object space
position object 10,0,-20,0
xrotate object 10,90
`colour object
color object 10,rgb(255,255,255)
ode update
sync
endfunction

function wall()
`create walls
make object box 41,110,50,10
make object box 42,110,50,10
make object box 43,110,50,10
make object box 44,110,50,10
ode create static box 41
ode create static box 42
ode create static box 43
ode create static box 44
`position walls
position object 41,50,-10,0
yrotate object 41,90
position object 42,-50,-10,0
yrotate object 42,90
position object 43,0,-10,50
yrotate object 43,90
turn object left 43,90
position object 44,0,-10,-50
yrotate object 44,90
turn object left 44,90
`colour walls
color object 41,rgb(0,0,0)
color object 42,rgb(0,0,0)
color object 43,rgb(0,0,0)
color object 44,rgb(0,0,0)
`transperent
ghost object on 41
ghost object on 42
ghost object on 43
ghost object on 44
ode update
sync
endfunction

function objects()
`make player ship
make object cone 1,0.8
ode create dynamic triangle mesh 1
`make asteroids
make object box 2,2,2,2
make object box 3,2,2,2
make object box 4,2,2,2
make object box 5,2,2,2
make object box 6,2,2,2
`position asteroids
position object 2,rnd(-100),-10,rnd(-90)
position object 3,rnd(-100)-15,-10,rnd(-90)
position object 4,rnd(-100)-20,-10,rnd(-90)
position object 5,rnd(-100)+10,-10,rnd(-90)
position object 6,rnd(-100)+15,-10,rnd(-90)
`ode asteroids
ode create dynamic box 2
ode create dynamic box 3
ode create dynamic box 4
ode create dynamic box 5
ode create dynamic box 6
`color objects
color object 1,rgb(255,124,123)
`update everything
ode update
sync
endfunction

function camera()
`position camera
endfunction

Rem Project: Asteroids
Rem Created: 13/02/2006 5:33:58 PM

Rem ***** Main Source File *****
sync on:sync rate 30
hide mouse
randomize timer()
autocam off

ode start
ode set world gravity 0,-1,0
ode set world step 1
ode set world erp (0.0)
ode set world cfm (0.0)

`create object space
make object plain 10,100,100
ode create static box 10
`position object space
position object 10,0,-20,0
xrotate object 10,90
`colour object
color object 10,rgb(255,255,255)
`create walls
make object box 41,110,50,10
make object box 42,110,50,10
make object box 43,110,50,10
make object box 44,110,50,10
ode create static box 41
ode create static box 42
ode create static box 43
ode create static box 44
`position walls
position object 41,50,-10,0
yrotate object 41,90
position object 42,-50,-10,0
yrotate object 42,90
position object 43,0,-10,50
yrotate object 43,90
turn object left 43,90
position object 44,0,-10,-50
yrotate object 44,90
turn object left 44,90
`colour walls
color object 41,rgb(0,0,0)
color object 42,rgb(0,0,0)
color object 43,rgb(0,0,0)
color object 44,rgb(0,0,0)
`transperent
ghost object on 41
ghost object on 42
ghost object on 43
ghost object on 44
`make player ship
make object cone 1,0.8
ode create dynamic triangle mesh 1
`make asteroids
make object box 2,2,2,2
make object box 3,2,2,2
make object box 4,2,2,2
make object box 5,2,2,2
make object box 6,2,2,2
`position asteroids
position object 2,rnd(-100),-10,rnd(-90)
position object 3,rnd(-100)-15,-10,rnd(-90)
position object 4,rnd(-100)-20,-10,rnd(-90)
position object 5,rnd(-100)+10,-10,rnd(-90)
position object 6,rnd(-100)+15,-10,rnd(-90)
`ode asteroids
ode create dynamic box 2
ode create dynamic box 3
ode create dynamic box 4
ode create dynamic box 5
ode create dynamic box 6
`color objects
color object 1,rgb(255,124,123)

do
position camera 0,object position x(1),object position y(1),object position z(1)
camx = camera position x(0)
camy = camera position y(0)
camz = camera position z(0)
print camx
print camy
print camz
ode update
sync
loop