Sorry your browser is not supported!

set display mode 800, 600, 16
sync on
sync rate 0
set point light 0, 000, 100, -100
set light range 0, 500
set ambient light 20
color backdrop 0


rem D3D_INIT

null = make vector3(1) :`Velocity
null = make vector3(2) :`Paddle Normal
null = make vector3(3) :`Used for collision
null = make vector3(4) :`Used for collision


#constant CURVE_RADIUS 12.0
#constant PADDLE_SPEED 0.135



Type Coord3D
   x as float
   y as float
   z as float
EndType

Type PlayerData
   angle as float
   targetAngle as float
   score as byte
EndType

Dim P(2) as PlayerData

P(1).angle = 225
P(2).angle = -45
P(1).targetAngle = 225
P(2).targetAngle = -45
P(1).score = 0
P(2).score = 0

`Make Paddles
make object box 2, 0.5, 6.0, 0.5
make object box 3, 0.5, 6.0, 0.5




Type BallData
   p as Coord3D
EndType
Global Ball as BallData
resetPlay(-1)
`Make Ball
make object sphere 1, 0.5
position object 1, Ball.p.x, Ball.p.y, Ball.p.z





`Make floor
make object box 4, CURVE_RADIUS * 3.0, 4.0, 1.0
position object 4, 0, -CURVE_RADIUS - 1.5, 0
point object    4, 0, 0, 0
`Make ceiling
make object box 5, CURVE_RADIUS * 5.0, 4.0, 1.0
position object 5, 0, CURVE_RADIUS +3.0, 0
point object    5, 0, 0, 0





position mouse screen width() * 0.5, 0
hide mouse


autocam off
position camera 0, 3, -30
point camera 0, 2, 0

global frameTime as float
frameTime = 1.0
startTime as integer
startTime = timer()
do
   frameTime = (frameTime * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()





   `Handle Player 1
   if keystate(29)
      `Left Ctrl
      inc P(1).targetAngle, frameTime * PADDLE_SPEED
      if P(1).targetAngle > 280.0 then P(1).targetAngle = 280.0
   else
      if keystate(42)
         `Left Shift
         dec P(1).targetAngle, frameTime * PADDLE_SPEED
         if P(1).targetAngle < 90.0 then P(1).targetAngle = 90.0
      endif
   endif
   P(1).angle = curvevalue(P(1).targetAngle, P(1).angle, 200.0 / frameTime)

   `Handle Player 2
   if keystate(54)
      `right Shift
      inc P(2).targetAngle, frameTime * PADDLE_SPEED
      if P(2).targetAngle > 90.0 then P(2).targetAngle = 90.0
   else
      if keystate(157)
         `Right Ctrl
         dec P(2).targetAngle, frameTime * PADDLE_SPEED
         if P(2).targetAngle < -100 then P(2).targetAngle = -100
      endif
   endif
   P(2).angle = curvevalue(P(2).targetAngle, P(2).angle, 200.0 / frameTime)


   text 0, 0, "Player 1 Score: " + str$(P(1).score)
   text 0, 10, "P1: " + str$(P(1).angle)

   p2score$ = "Player 2 Score: " + str$(P(2).score)



   position object 2, -(CURVE_RADIUS*0.5) + (cos(P(1).angle) * CURVE_RADIUS), sin(P(1).angle) * CURVE_RADIUS, 0
   zrotate object  2, P(1).angle

   position object 3,  (CURVE_RADIUS*0.5) + (cos(P(2).angle) * CURVE_RADIUS), sin(P(2).angle) * CURVE_RADIUS, 0
   zrotate object  3, P(2).angle


   `handle gravity
   set vector3 1, x vector3(1), y vector3(1) - (frameTime * 0.0098), z vector3(1)
   inc Ball.p.x, x vector3(1) * frametime * 0.001
   inc Ball.p.y, y vector3(1) * frametime * 0.001
   inc Ball.p.z, z vector3(1) * frametime * 0.001
   position object 1, Ball.p.x, Ball.p.y, Ball.p.z






   handleCollision(2, object hit (2, 1))
   handleCollision(3, object hit (3, 1))

   if object hit (4, 1)
      `hit floor
      set vector3 1, x vector3(1), -y vector3(1), z vector3(1)
   endif
   if object hit (5, 1)
      `hit floor
      set vector3 1, x vector3(1), -y vector3(1), z vector3(1)
   endif


   objSx# = object screen x(1)
   objSy# = object screen y(1)
   if objSx# > screen width()
      resetPlay(-1)
      inc P(1).score
   else
      if objSx# < 0
         resetPlay(1)
         inc P(2).score
      endif
   endif

   sync
loop
end




function resetPlay(start as integer)
   Ball.p.x = 5.0 * start
   Ball.p.y = 5.0
   Ball.p.z = 0.0
   set vector3 1, 0, 0, 0 :`velocity of ball
   if object exist(1) then position object 1, Ball.p.x, Ball.p.y, Ball.p.z
endfunction



function handleCollision(paddle as integer, hit as boolean)
   `Normal of paddle
   set vector3 2, cos(object angle z(paddle)), sin(object angle z(paddle)), 0
   normalize vector3 2, 2
   scale vector3 2, 2, 2.0

   `Get unit/normalized version of ball speed
   normalize vector3 3, 1
   `Temporarily invert
   multiply vector3 3, -1
   `Get scalar impulse
   I# = dot product vector3(2, 3) * 2.0
   `Multiply normal vector by it (and store in vector3(4))
   copy vector3 4, 2
   multiply vector3 4, I#
   `Un-invert
   multiply vector3 3, -1
   `Add to vector 4...
   add vector3 4, 3, 4
   `Normlize
   normalize vector3 4, 4
   `Scale by speed magnitude...
   multiply vector3 4, length vector3(1) * 1.05


   if hit then copy vector3 1, 4
endfunction

sync on:sync rate 120

randomize timer()

draw sprites first
draw to front


global dim level(10100)
global dim enemies(10000,2)
global dim blocks(10000,2)
global dim tanks(10000,2)


global lives
global death
global score
global invinsable
global totalblock
global gas
global totaltank
global screeny#
global speed#
global basespeed


set image colorkey 255,0,255

ink rgb(0,100,0),rgb(0,100,0)
box 0,0,100,600
get image 10,0,0,100,600
cls



restore plane
image(1,4)

restore bullet
image(2,4)

restore heli
image(3,5)

restore block
image(4,15)

restore outline
image(5,2)

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

box 0,0,100,12
get image 6,0,0,100,12
cls

box 0,0,50,50
get image 7,0,0,50,50
cls


do

   undim level()
   undim enemies()
   undim blocks()
   undim tanks()
   global dim level(10100)
   global dim enemies(10000,2)
   global dim blocks(10000,2)
   global dim tanks(10000,2)

   death=0
   score=0
   invinsable=255
   screeny#=0
   speed#=0
   basespeed=1
   totalblock=0
   totaltank=0
   gas=2000
   x=0
   y=0

   lives=3

   for i=1 to 10000
      a=rnd(30)

      if x=10

         if y mod 4=0
            level(i-rnd(9)-1)=4
         endif

         y=y+1
         x=0
         fue=0

         if rnd(10)=1 and y>6
            for j=0 to 2
               for k=0 to j
                  level(i-47+j*10-k)=3
                  level(i-46+j*10+k)=3
               next k
            next j

            for j=0 to 1
               for k=0 to j
                  level(i-7-j*10-k)=3
                  level(i-6-j*10+k)=3
               next k
            next j

         endif

      endif

      x=x+1

      select a
         case 1
            level(i)=1
            w=1
         endcase

      endselect

      if w=0 then level(i)=0
      w=0

   next i

   level(i+1)=-999





   sprite 1,400,450,1
   set sprite priority 1,1



   sprite 1000,0,0,10
   sprite 1001,700,0,10

   make_level()

   repeat

      flash=flash+1

      ink rgb(255,255,255),rgb(255,255,255)

      if flash<100
         center text screen width()/2,screen height()/2-100,"Press Space to Start"
      endif

      if flash>200 then flash=0

      sync

   until spacekey()=1

   repeat
      sync
   until screen fps()>0

   repeat
      if invinsable>0
         set sprite alpha 1,255-invinsable
         invinsable=invinsable-1
      endif


      text 0,0,str$(screen fps())


      a=a-1
      a=fire(a)

      move_tank()





      control_enemy()
      screeny#=screeny#-speed#

      move_blocks()

      fuel()
      display()
      move()


      sync

   until death=2



   for i=10 to enemies(0,0)+9
      if sprite exist(i)=1 then delete sprite i
   next i
   for i=1002 to totalblock+1001
      if sprite exist(i)=1 then delete sprite i
   next i
   for i=500 to totaltank+499
      if sprite exist(i)=1 then delete sprite i
    next i

loop

function fuel()

   if gas=0
      die()
   endif

   col=sprite collision(1,0)

   if col>500 and col<1000
      gas=2000
   endif

   center text screen width()/2,500,"Fuel"

   sprite 7,screen width()/2-51,550,5
   sprite 8,screen width()/2-49,550+2,6
   set sprite priority 7,1
   set sprite priority 8,1

   stretch sprite 8,gas/20,100

   gas=gas-1

endfunction

function display()

   ink rgb(255,255,255),rgb(255,255,255)

   text 150,10,"Lives: "+str$(lives)
   text 500,10,"Score: "+str$(score)

endfunction

function move()

   f#=screen fps()

   if upkey()=1
      if f#>0
         f#=120/f#
         speed#=(basespeed+1)*(f#)
      else
         speed#=(basespeed+1)
      endif
   else
      if f#>0
         f#=120/f#
         speed#=(basespeed)*(f#)
      else
         speed#=(basespeed)
      endif
   endif

   f#=screen fps()

   if rightkey()=1
      rotate sprite 1,90
      move sprite 1,ceil(240/f#)
      rotate sprite 1,0
   endif

   if leftkey()=1
      rotate sprite 1,-90
      move sprite 1,ceil(240/f#)
      rotate sprite 1,0
   endif

   col=sprite collision(1,0)

   if col>=1000 and invinsable=0
      die()
   endif

   basespeed=int(screeny#/-10000)+1
   if basespeed>3 then basespeed=3



endfunction

function fire(a)

   if spacekey()=1 and a=<0
      for i=2 to 6
         if sprite exist(i)=0 then spr=i
         a=screen fps()/2
      next i
      if spr>0 then sprite spr,sprite x(1)+sprite width(1)/2-2,450,2
   endif

   for i=2 to 6
      if sprite exist(i)
         f#=screen fps()
         f#=240/f#
         move sprite i,ceil(f#)
         if sprite y(i)<0 then delete sprite i
      endif
   next i


endfunction a


function control_enemy()

   f#=screen fps()

   for i=10 to enemies(0,0)+9


      if sprite exist(i)
         move sprite i,-speed#



         if sprite y(i)>300 and sprite y(i)<500
            rotate sprite i,90
            if sprite exist(1)
              if sprite x(1)>sprite x(i)
                 move sprite i,ceil(120/f#)

                 if sprite collision(i,0)>1000
                    move sprite i,-ceil(120/f#)
                 endif
              else
                 move sprite i,-ceil(120/f#)
                 if sprite collision(i,0)>1000
                    move sprite i,ceil(120/f#)
                 endif
              endif
            endif
            rotate sprite i,0
         endif

         col=sprite collision(i,0)

         if col=1 and invinsable=0
            delete sprite i
            enemies(i-9,1)=-5
            die()
         endif


         for j=2 to 6
            if sprite exist(j)=1 and sprite exist(i)=1
               if sprite collision(i,j)=1
                  delete sprite i
                  delete sprite j
                  enemies(i-9,1)=-5
                  score=score+100
               endif
            endif
         next j

         if enemies(i-9,2)>screeny#+600 and sprite exist(i)=1
            delete sprite i
            enemies(i-9,1)=-5
         endif

      else
         if enemies(i-9,1)>0 and enemies(i-9,2)>screeny# and enemies(i-9,2)<screeny#+600
            sprite i,enemies(i-9,1),enemies(i-9,2)-screeny#,3
         endif
      endif

   next i

endfunction

function die()

   gas=2000
   lives=lives-1
   invinsable=255
   sprite 1,400,450,1

   if lives=0
      selection=1
      repeat
         set text size 20
         center text screen width()/2,screen height()/2,"GAME OVER"
         set text size 10
         center text screen width()/2,screen height()/2+50,"Score: "+str$(score)
         center text screen width()/2,screen height()/2+75,"Play again?"

         if rightkey()=1 then selection=2
         if leftkey()=1 then selection=1

         if selection=1
            ink rgb(100,100,0),rgb(100,100,0)
            center text screen width()/2-50,screen height()/2+100,"Yes"
            ink rgb(255,255,255),rgb(255,255,255)
            center text screen width()/2+50,screen height()/2+100,"No"
         endif

         if selection=2
            ink rgb(255,255,255),rgb(255,255,255)
            center text screen width()/2-50,screen height()/2+100,"Yes"
            ink rgb(100,100,0),rgb(100,100,0)
            center text screen width()/2+50,screen height()/2+100,"No"
         endif

         sync

         ink rgb(255,255,255),rgb(255,255,255)

      until returnkey()=1



      if selection=2
         end
      else
         death=2
      endif


   endif

endfunction

function make_enemy(x,y)

   enemies(0,0)=enemies(0,0)+1
   enemies(enemies(0,0),1)=x
   enemies(enemies(0,0),2)=y

endfunction

function make_level()


   x=100

   repeat

      i=i+1
      a=level(i)

      x=x+60
      if x=>700
         x=100
         y=y-60
      endif

      if a=1
         make_enemy(x,y)
      endif

      if a=3
         make_block(x,y)
      endif

      if a=4
         make_fuel_tank(x,y)
      endif


   until a=-999

endfunction

function make_block(x,y)

   totalblock=totalblock+1
   blocks(totalblock,1)=x
   blocks(totalblock,2)=y

endfunction

function move_blocks()
   for i=1002 to 1002+totalblock-1
      if sprite exist(i)
         move sprite i,-speed#
         if blocks(i-1001,2)>screeny#+600
            delete sprite i
            blocks(i-1001,1)=-5
         endif
      else
         if blocks(i-1001,1)>0 and blocks(i-1001,2)>screeny# and blocks(i-1001,2)<screeny#+600
            sprite i,blocks(i-1001,1),blocks(i-1001,2)-screeny#,4
         endif
      endif

   next i
endfunction

function make_fuel_tank(x,y)

   totaltank=totaltank+1
   tanks(totaltank,1)=x
   tanks(totaltank,2)=y

endfunction

function move_tank()
   for i=500 to 500+totaltank-1
      if sprite exist(i)
         move sprite i,-speed#
         if tanks(i-499,2)>screeny#+600
            delete sprite i
            tanks(i-499,1)=-5
         endif
      else
         if tanks(i-499,1)>0 and tanks(i-499,2)>screeny# and tanks(i-499,2)<screeny#+600
            sprite i,tanks(i-499,1),tanks(i-499,2)-screeny#,7
         endif
      endif
   next i
endfunction

function image(num,size)

   dim colors(100,3)

   read a$
   a$=a$+"-"

   repeat
      i=i+1

      for j=1 to len(a$)

         c$=c$+b$
         b$=mid$(a$,j)

         if b$="-" or b$=" "
            k=k+1
            colors(i,k)=val(c$)
            c$=""
            b$=""
         endif

      next j

      k=0
      read a$
      a$=a$+"-"

   until a$="XXX-"


   x=0
   y=0

   repeat
      read a
      x=x+1

      if a>0 and a<100
         ink rgb(colors(a,1),colors(a,2),colors(a,3)),rgb(colors(a,1),colors(a,2),colors(a,3))
         box (x-1)*size,(y-1)*size,x*size,y*size
      endif

      if a=0
         ink rgb(255,0,255),rgb(255,0,255)
         box (x-1)*size,(y-1)*size,x*size,y*size
      endif

      if a=100
         y=y+1
         x=0
      endif

   until a=-999

   get image num,0,0,(x-1)*size,y*size

   cls

endfunction

plane:
data "255-255-0"
data "XXX"

data 0,0,0,0,1,0,0,0,0,100
data 0,0,0,0,1,0,0,0,0,100
data 0,0,0,1,1,1,0,0,0,100
data 0,0,1,1,1,1,1,0,0,100
data 0,1,1,0,1,0,1,1,0,100
data 1,1,0,0,1,0,0,1,1,100
data 0,0,0,0,1,0,0,0,0,100
data 0,0,0,1,1,1,0,0,0,100
data 0,0,1,1,0,1,1,0,0,-999

bullet:
data "255-255-0"
data "XXX"

data 1,100
data 1,100
data 1,100
data 1,100
data 1,100
data 1,100
data 1,100
data 1,100
data 1,-999

heli:
data "238 154 0","34-139-34"
data "XXX"

data 0,0,0,0,0,0,0,0,0,100
data 0,0,0,0,0,1,1,0,0,100
data 0,0,0,0,0,0,0,1,1,100
data 2,0,0,0,0,2,2,2,0,100
data 2,2,2,2,2,2,2,2,2,100
data 2,0,0,0,0,2,2,2,2,100
data 0,0,0,0,0,0,2,2,0,100
data 0,0,0,0,0,1,1,1,1,-999

block:
data "0 100 0"
data "XXX"

data 1,1,1,1,100
data 1,1,1,1,100
data 1,1,1,1,100
data 1,1,1,1,100
data 1,1,1,1,-999

outline:
data "0 0 0"
data "XXX"

data 100
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,100
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,100
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,100
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,100
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,100
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,100
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,100
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,-999

set display mode 800, 600, 16
sync on
sync rate 0
set point light 0, 000, 100, -100
set light range 0, 500
set ambient light 20
color backdrop 0


rem D3D_INIT

null = make vector3(1) :`Velocity
null = make vector3(2) :`Paddle Normal
null = make vector3(3) :`Used for collision
null = make vector3(4) :`Used for collision


#constant CURVE_RADIUS 12.0
#constant PADDLE_SPEED 0.135



Type Coord3D
   x as float
   y as float
   z as float
EndType

Type PlayerData
   angle as float
   targetAngle as float
   score as byte
EndType

Dim P(2) as PlayerData

P(1).angle = 225
P(2).angle = -45
P(1).targetAngle = 225
P(2).targetAngle = -45
P(1).score = 0
P(2).score = 0

`Make Paddles
make object box 2, 0.5, 6.0, 0.5
make object box 3, 0.5, 6.0, 0.5




Type BallData
   p as Coord3D
   speed as float
EndType
Global Ball as BallData
resetPlay(-1)

`Make Ball
make object sphere 1, 0.5
position object 1, Ball.p.x, Ball.p.y, Ball.p.z





`Make floor
make object box 4, CURVE_RADIUS * 3.0, 4.0, 1.0
position object 4, 0, -CURVE_RADIUS - 1.5, 0
point object    4, 0, 0, 0
`Make ceiling
make object box 5, CURVE_RADIUS * 5.0, 4.0, 1.0
position object 5, 0, CURVE_RADIUS +3.0, 0
point object    5, 0, 0, 0





position mouse screen width() * 0.5, 0
hide mouse


autocam off
position camera 0, 3, -30
point camera 0, 2, 0



global frameTime as float
frameTime = 1.0
startTime as integer
startTime = timer()
do
   frameTime = (frameTime * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()





   `Handle Player 1
   if keystate(29)
      `Left Ctrl
      inc P(1).targetAngle, frameTime * PADDLE_SPEED
      if P(1).targetAngle > 280.0 then P(1).targetAngle = 280.0
   else
      if keystate(42)
         `Left Shift
         dec P(1).targetAngle, frameTime * PADDLE_SPEED
         if P(1).targetAngle < 90.0 then P(1).targetAngle = 90.0
      endif
   endif
   P(1).angle = curvevalue(P(1).targetAngle, P(1).angle, 200.0 / frameTime)

   `Handle Player 2
   if keystate(54)
      `right Shift
      inc P(2).targetAngle, frameTime * PADDLE_SPEED
      if P(2).targetAngle > 90.0 then P(2).targetAngle = 90.0
   else
      if keystate(157)
         `Right Ctrl
         dec P(2).targetAngle, frameTime * PADDLE_SPEED
         if P(2).targetAngle < -100 then P(2).targetAngle = -100
      endif
   endif
   P(2).angle = curvevalue(P(2).targetAngle, P(2).angle, 200.0 / frameTime)

   text 0, 10, "Speed: " + str$(Ball.speed)
   text 0, 0, "Player 1 Score: " + str$(P(1).score)
   p2score$ = "Player 2 Score: " + str$(P(2).score)
   text screen width() - text width(p2score$), 0, p2score$



   position object 2, -(CURVE_RADIUS*0.5) + (cos(P(1).angle) * CURVE_RADIUS), sin(P(1).angle) * CURVE_RADIUS, 0
   zrotate object  2, P(1).angle

   position object 3,  (CURVE_RADIUS*0.5) + (cos(P(2).angle) * CURVE_RADIUS), sin(P(2).angle) * CURVE_RADIUS, 0
   zrotate object  3, P(2).angle


   `handle gravity
   set vector3 1, x vector3(1), y vector3(1) - (frameTime * 0.0098), z vector3(1)
   inc Ball.p.x, x vector3(1) * frametime * 0.001
   inc Ball.p.y, y vector3(1) * frametime * 0.001
   inc Ball.p.z, z vector3(1) * frametime * 0.001
   position object 1, Ball.p.x, Ball.p.y, Ball.p.z






   handleCollision(2, object hit (2, 1))
   handleCollision(3, object hit (3, 1))

   if object hit (4, 1)
      `hit floor
      set vector3 1, x vector3(1), -y vector3(1), z vector3(1)
   endif
   if object hit (5, 1)
      `hit floor
      set vector3 1, x vector3(1), -y vector3(1), z vector3(1)
   endif


   objSx# = object screen x(1)
   objSy# = object screen y(1)
   if objSx# > screen width()
      resetPlay(-1)
      inc P(1).score
   else
      if objSx# < 0
         resetPlay(1)
         inc P(2).score
      endif
   endif

   sync
loop
end




function resetPlay(start as integer)
   Ball.p.x = 5.0 * start
   Ball.p.y = 5.0
   Ball.p.z = 0.0
   set vector3 1, 0, 0, 0 :`velocity of ball
   Ball.speed = length vector3(1)
   
   if object exist(1) then position object 1, Ball.p.x, Ball.p.y, Ball.p.z
endfunction



function handleCollision(paddle as integer, hit as boolean)
   if hit
      `Normal of paddle
      set vector3 2, cos(object angle z(paddle)), sin(object angle z(paddle)), 0
      normalize vector3 2, 2
      scale vector3 2, 2, 2.0
   
      `Get unit/normalized version of ball speed
      normalize vector3 3, 1
      `Temporarily invert
      multiply vector3 3, -1
      `Get scalar impulse
      I# = dot product vector3(2, 3) * 2.0
      `Multiply normal vector by it (and store in vector3(4))
      copy vector3 4, 2
      multiply vector3 4, I#
      `Un-invert
      multiply vector3 3, -1
      `Add to vector 4...
      add vector3 4, 3, 4
      `Normlize
      normalize vector3 4, 4
      `Scale by speed magnitude...
      Ball.speed = length vector3(1) * 1.05
      multiply vector3 4, Ball.speed
   
   
      copy vector3 1, 4
   endif
endfunction

set display mode 800, 600, 16
sync on
sync rate 0
set point light 0, 000, 3, -30
set light range 0, 500
set ambient light 10
color backdrop 0

autocam off
position camera 0, 3, -30
point camera 0, 2, 0


rem D3D_INIT

null = make vector3(1) :`Velocity
null = make vector3(2) :`Paddle Normal
null = make vector3(3) :`Used for collision
null = make vector3(4) :`Used for collision


#constant CURVE_RADIUS 12.0
#constant PADDLE_SPEED 0.135



Type Coord3D
   x as float
   y as float
   z as float
EndType

Type PlayerData
   angle as float
   targetAngle as float
   score as byte
EndType

Dim P(2) as PlayerData

P(1).angle = 225
P(2).angle = -45
P(1).targetAngle = 225
P(2).targetAngle = -45
P(1).score = 0
P(2).score = 0

`Make Paddles
make object box 2, 0.5, 6.0, 0.5 : color object 2, 0xff9999
make object box 3, 0.5, 6.0, 0.5 : color object 3, 0x99ff99




Type BallData
   p as Coord3D
   speed as float
EndType
Global Ball as BallData
resetPlay(-1)

`Make Ball
make object sphere 1, 0.5 : color object 1, 0x9999ff
position object 1, Ball.p.x, Ball.p.y, Ball.p.z





`Make floor
make object box 4, CURVE_RADIUS * 3.0, 4.0, 1.0
position object 4, 0, -CURVE_RADIUS - 1.5, 0
point object    4, 0, 0, 0
color object    4, 0x238F1D
`Make ceiling
make object box 5, CURVE_RADIUS * 5.0, 4.0, 1.0
position object 5, 0, CURVE_RADIUS +3.0, 0
point object    5, 0, 0, 0
color object    5, 0x238F1D





position mouse screen width() * 0.5, 0
hide mouse






global frameTime as float
frameTime = 1.0
startTime as integer
startTime = timer()
do
   frameTime = (frameTime * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()





   `Handle Player 1
   if keystate(29)
      `Left Ctrl
      inc P(1).targetAngle, frameTime * PADDLE_SPEED
      if P(1).targetAngle > 280.0 then P(1).targetAngle = 280.0
   else
      if keystate(42)
         `Left Shift
         dec P(1).targetAngle, frameTime * PADDLE_SPEED
         if P(1).targetAngle < 90.0 then P(1).targetAngle = 90.0
      endif
   endif
   P(1).angle = curvevalue(P(1).targetAngle, P(1).angle, 200.0 / frameTime)

   `Handle Player 2
   if keystate(54)
      `right Shift
      inc P(2).targetAngle, frameTime * PADDLE_SPEED
      if P(2).targetAngle > 90.0 then P(2).targetAngle = 90.0
   else
      if keystate(157)
         `Right Ctrl
         dec P(2).targetAngle, frameTime * PADDLE_SPEED
         if P(2).targetAngle < -100 then P(2).targetAngle = -100
      endif
   endif
   P(2).angle = curvevalue(P(2).targetAngle, P(2).angle, 200.0 / frameTime)

   text 0, 10, "Speed: " + str$(Ball.speed)
   text 0, 0, "Player 1 Score: " + str$(P(1).score)
   p2score$ = "Player 2 Score: " + str$(P(2).score)
   text screen width() - text width(p2score$), 0, p2score$



   position object 2, -(CURVE_RADIUS*0.5) + (cos(P(1).angle) * CURVE_RADIUS), sin(P(1).angle) * CURVE_RADIUS, 0
   zrotate object  2, P(1).angle

   position object 3,  (CURVE_RADIUS*0.5) + (cos(P(2).angle) * CURVE_RADIUS), sin(P(2).angle) * CURVE_RADIUS, 0
   zrotate object  3, P(2).angle


   `handle gravity
   set vector3 1, x vector3(1), y vector3(1) - (frameTime * 0.0098), z vector3(1)
   inc Ball.p.x, x vector3(1) * frametime * 0.001
   inc Ball.p.y, y vector3(1) * frametime * 0.001
   inc Ball.p.z, z vector3(1) * frametime * 0.001
   position object 1, Ball.p.x, Ball.p.y, Ball.p.z






   handleCollision(2, object hit (2, 1))
   handleCollision(3, object hit (3, 1))

   if object hit (4, 1)
      `hit floor
      set vector3 1, x vector3(1), -y vector3(1), z vector3(1)
   endif
   if object hit (5, 1)
      `hit floor
      set vector3 1, x vector3(1), -y vector3(1), z vector3(1)
   endif


   objSx# = object screen x(1)
   objSy# = object screen y(1)
   if objSx# > screen width()
      resetPlay(-1)
      inc P(1).score
   else
      if objSx# < 0
         resetPlay(1)
         inc P(2).score
      endif
   endif

   sync
loop
end




function resetPlay(start as integer)
   Ball.p.x = 5.0 * start
   Ball.p.y = 5.0
   Ball.p.z = 0.0
   set vector3 1, 0, 0, 0 :`velocity of ball
   Ball.speed = length vector3(1)
   
   if object exist(1) then position object 1, Ball.p.x, Ball.p.y, Ball.p.z
endfunction



function handleCollision(paddle as integer, hit as boolean)
   if hit
      `Normal of paddle
      set vector3 2, cos(object angle z(paddle)), sin(object angle z(paddle)), 0
      normalize vector3 2, 2
      scale vector3 2, 2, 2.0
   
      `Get unit/normalized version of ball speed
      normalize vector3 3, 1
      `Temporarily invert
      multiply vector3 3, -1
      `Get scalar impulse
      I# = dot product vector3(2, 3) * 2.0
      `Multiply normal vector by it (and store in vector3(4))
      copy vector3 4, 2
      multiply vector3 4, I#
      `Un-invert
      multiply vector3 3, -1
      `Add to vector 4
      add vector3 4, 3, 4
      `Normlize
      normalize vector3 4, 4
      `Scale by speed magnitude
      Ball.speed = length vector3(1) * 1.05
      if Ball.speed > 30 then Ball.speed = 30
      multiply vector3 4, Ball.speed
   
   
      copy vector3 1, 4
   endif
endfunction

Nick - look forward to seeing you develop this further, will be very fun to play.

Brain111 - excellent work.  A complete game with a great look and good gameplay.  Congratulations.

nums=1
make_sound(nums)
play sound nums
volume=100
rem This loop will fade the sound out while it is playing
while sound playing(nums)
  set sound volume nums,volume
  dec volume
  sleep 50
endwhile
end

function make_sound(number)
  format as dword
  channels as dword
  sampleRate as dword
  adr as dword
  chunkSize as dword
  sampleSize as dword
  dword7 as dword
  format = 1
  channels = 1
  sampleRate = 22050
  sampleSize = 16
  chunkSize = (int(sampleSize / 8.0+0.5))*channels
  adr = sampleRate*chunkSize
  dword7 = 0
  rem ###################################
  rem Use a select-case statement so you can create multiple sounds
  rem Just add a new case statement for each sound number you want to create
  select number
    case 1
      rem ##########################################################
      rem Adjust these values to get different sounds
      rem Very minor adjustments will create very different sounds
      length = 500
      wave#=0.0
      increment#=2.0
      gain#=-0.09
      amplitude=65535
      decay=0
      rem #########################################################
      speed=sampleRate
    endcase
  endselect
  rem number of samples
  samples = length*sampleRate/1000
  rem size of memblock
  size = samples*int(sampleSize/8.0+0.5) + 28
  make memblock 1, size
  write memblock dword 1, 0, format
  write memblock dword 1, 4, channels
  write memblock dword 1, 8, sampleRate
  write memblock dword 1, 12, adr
  write memblock dword 1, 16, chunkSize
  write memblock dword 1, 20, sampleSize
  write memblock dword 1, 24, dword7
  pos = 28
  out as word
  for i = 1 to samples
      out = sin(wave#)*amplitude
      write memblock word 1, pos, out
      inc pos, 2
      wave#=wave#+increment#
      if wave#>360.0
        wave#=wave#-360.0
        increment#=increment#-gain#
      endif
      amplitude=amplitude-decay
  next i
  make sound from memblock number,1
  delete memblock 1
  set sound speed number,speed
endfunction

`constants
#constant SCREEN_WIDTH = 1024
#constant SCREEN_HEIGHT = 768
#constant SCREEN_DEPTH = 32
#constant CHAR_WIDTH = 8
#constant CHAR_HEIGHT = 13
#constant CHAR_SIZE = 10
#constant CHAR_FONT = "lucida console"

`colors
#constant BLACK = rgb(0,0,0)
#constant WHITE = rgb(255,255,255)
#constant RUBY = rgb(255,0,0)      `\
#constant EMERALD = rgb(0,255,0)   ` } can't use red, green, and blue as constants
#constant SAPPHIRE = rgb(0,0,255)  `/
#constant PURPLE = rgb(128,0,128)

`initialization
sync on : sync rate 0
set display mode SCREEN_WIDTH,SCREEN_HEIGHT,SCREEN_DEPTH
set text size CHAR_SIZE
set text font CHAR_FONT

`pre-loop code
initCharSystem()

`main loop
do
   fillChars(rnd(255),randColor())
   placeString("Hello World!",rnd(xChars),rnd(yChars),randColor())
   placeString("FPS: "+str$(screen fps()),0,0,WHITE)
   renderChars() : sync
loop



`------------------------------------------
`################## types #################
`------------------------------------------

`charcter array type
type charType
   value as dword
   color as integer
endtype



`------------------------------------------
`############# main functions #############
`------------------------------------------

`initializes the character system
function initCharSystem()
   global xChars as integer
   global yChars as integer
   xChars=SCREEN_WIDTH/CHAR_WIDTH
   yChars=SCREEN_HEIGHT/CHAR_HEIGHT
   dim char(xChars,yChars) as charType
endfunction

`renders all characters to screen
function renderChars()
   cls
   for x=0 to xChars
      for y=0 to yChars
         ink getCharColor(x,y),BLACK
         if (x*CHAR_WIDTH<SCREEN_WIDTH) and (y*CHAR_HEIGHT<SCREEN_HEIGHT)
            text x*CHAR_WIDTH,y*CHAR_HEIGHT,chr$(getCharValue(x,y))
         endif
      next y
   next x
endfunction

`places a string in the character grid
function placeString(str as string,x as integer,y as integer,color as integer)
   for p=1 to len(str)
      if (x+(p-1)<=xChars) then setChar(x+(p-1),y,asc(mid$(str,p)),color)
   next p
endfunction

`fills screen with a single charcter of a certain color
function fillChars(value as dword,color as integer)
   for x=0 to xChars
      for y=0 to yChars
         setChar(x,y,value,color)
      next y
   next x
endfunction

`fills screen with a single character
function fillCharValues(value as dword)
   for x=0 to xChars
      for y=0 to yChars
         setCharValue(x,y,value)
      next y
   next x
endfunction

`fills screen with a certain color
function fillCharColors(color as integer)
   for x=0 to xChars
      for y=0 to yChars
         setCharColor(x,y,color)
      next y
   next x
endfunction



`------------------------------------------
`########## data member functions #########
`------------------------------------------

`set's both attributes of a character
function setChar(x as integer,y as integer,value as dword,color as integer)
   setCharValue(x,y,value)
   setCharColor(x,y,color)
endfunction

`sets a character's ascii value
function setCharValue(x as integer,y as integer,value as dword)
   char(x,y).value=value
endfunction

`sets a character's color
function setCharColor(x as integer,y as integer,color as integer)
   char(x,y).color=color
endfunction

`gets a character's color
function getCharColor(x as integer,y as integer)
   color as integer
   color=char(x,y).color
endfunction color

`gets a character's value
function getCharValue(x as integer,y as integer)
   value as dword
   value=char(x,y).value
endfunction value



`------------------------------------------
`######### miscellaneous functions ########
`------------------------------------------

`returns a random color
function randColor()
   color as integer
   color=rgb(rnd(255),rnd(255),rnd(255))
endfunction color

set display mode 1024,768,32
sync on
sync rate 0
autocam off
make object cube 1,1
hide object 1
position object 1,0,0,5
global sw#
global sh#
sw#=screen width()
sh#=screen height()
color backdrop -1
hide mouse

set camera to image 0,10,256,256
sprite 10,0,0,10
size sprite 10,sw#,sh#
set sprite alpha 10,45
set sprite priority 10,1
set sprite 10,0,1

type lettertype

angle as float
x as float
y as float
vx as float
vy as float

endtype


alphav#=0.05

shipa#=0.0001
shipmaxv#=0.2
shipang#=180

make_letter(1,"V")
set sprite diffuse 1,255,0,255
size sprite 1,sprite width(1)/2.0,sprite height(1)/2.0
offset sprite 1,sprite width(1)/2.0,sprite height(1)/2.0
shipx#=sw#/2.0
shipy#=sh#/2.0
sprite 1,shipx#,shipy#,1
rotate sprite 1,shipang#


dim letter(90) as lettertype

for ascii=65 to 90
make_letter(ascii,chr$(ascii))
letter(ascii).x=100+rnd(sw#-200)
letter(ascii).y=100+rnd(sh#-200)
sprite ascii,letter(ascii).x,letter(ascii).y,ascii
offset sprite ascii,sprite width(ascii)/2.0,sprite height(ascii)/2.0
letter(ascii).angle=rnd(360)
next ascii


set text size 20

st#=timer()

do

  t#=timer()-st#
  dt#=t#-ot#
  ot#=t#
  gosub move_letters
  gosub move_ship
  text 0,0,str$(screen fps())

sync
loop




move_ship:

if rightkey()=1 then inc shipang#,0.1*dt#:rotate sprite 1,shipang#
if leftkey()=1 then dec shipang#,0.1*dt#:rotate sprite 1,shipang#
if upkey()=1
 inc shipvx#,shipa#*sin(shipang#+180)*dt#
 inc shipvy#,shipa#*cos(shipang#)*dt#
endif

if shipvx#>shipmaxv# then shipvx#=shipmaxv#
if shipvy#>shipmaxv# then shipvy#=shipmaxv#
if shipvx#<-shipmaxv# then shipvx#=-shipmaxv#
if shipvy#<-shipmaxv# then shipvy#=-shipmaxv#

inc shipx#,shipvx#*dt#
inc shipy#,shipvy#*dt#

if shipx#>sw#-sprite width(1) then dec shipx#,sw#-sprite width(1)
if shipy#>sh#-sprite height(1) then dec shipy#,sh#-sprite height(1)
if shipx#<0 then inc shipx#,sw#-sprite width(1)
if shipy#<0 then inc shipy#,sh#-sprite height(1)

sprite 1,shipx#,shipy#,1



return

move_letters:

for ascii=65 to 90
  letter(ascii).vx=alphav#*sin(letter(ascii).angle)
  letter(ascii).vy=alphav#*cos(letter(ascii).angle)
  inc letter(ascii).x,letter(ascii).vx*dt#
  inc letter(ascii).y,letter(ascii).vy*dt#
  if letter(ascii).x>sw#-sprite width(ascii) or letter(ascii).x<0 then letter(ascii).angle=-letter(ascii).angle
  if letter(ascii).y>sh#-sprite height(ascii) or letter(ascii).y<0 then letter(ascii).angle=-(letter(ascii).angle-180)
  sprite ascii,letter(ascii).x,letter(ascii).y,ascii
next ascii


return

function alpha(image,red,green,blue)
`this is for converting an image with no alpha layer into a monochrome image with alpha layer created from rgb values.
`image: image number
`red, gree, blue:  the single colour the final image will be
memblock=1
make memblock from image memblock,image
sx=memblock dword(memblock,0)
sy=memblock dword(memblock,4)
for x=0 to sx-1
   for y=0 to sy-1
      pos=(y*sx+x)*4+12
      b=memblock byte(memblock,pos)
      g=memblock byte(memblock,pos+1)
      r=memblock byte(memblock,pos+2)

      a=int((b+g+r)/3.0)
      b=blue
      g=green
      r=red

      if a>255 then a=255
      if a<0 then a=0
      write memblock byte memblock,pos,b
      write memblock byte memblock,pos+1,g
      write memblock byte memblock,pos+2,r
      write memblock byte memblock,pos+3,a
   next y
next x
make image from memblock image,memblock
endfunction

function make_letter(spritenumber,letter$)


ink -1,0
set text size 100
set text font "Arial"
set text to bold


create bitmap 1,text width(letter$),text height(letter$)

text 0,0,letter$
blur bitmap 1,2
get image spritenumber,0,0,text width(letter$),text height(letter$)

sprite spritenumber,sw#,sh#,spritenumber

size sprite spritenumber,sprite width(spritenumber)/2.0,sprite height(spritenumber)/2.0
cls
paste sprite spritenumber,0,0


get image spritenumber,0,0,sprite width(spritenumber),sprite height(spritenumber),1
alpha(spritenumber,255,255,255)
delete bitmap 1

delete sprite spritenumber
sprite spritenumber,0,0,spritenumber
`set sprite alpha spritenumber,150
set sprite diffuse spritenumber,rnd(250),rnd(250),rnd(250)



endfunction

sync on
sync rate 3
randomize timer()
set display mode 500, 500, 32
print "ATTACK OF THE W'S"
print
print
print "Loading..."
sync


load dll "kernel32.dll",1

type ship
    x as float
    y as float
    mx as float
    my as float
    global
endtype

type p
    x as float
    y as float
    mx as float
    my as float
    r as float
    g as float
    b as float
endtype

type lvl
    expld as integer
endtype
global level as lvl

type ln
    y as float
endtype



global player as ship
player.x = 100
player.y = 150



global laser as ship


dim enemy(2000) as ship
maxen = 5
for x = 1 to maxen
    enemy(x).x = rnd(500)
    enemy(x).y = 0
next x

dim part(5) as p


cls


sync
wait 2000
gosub cutscene


do
    cls
    
    gosub controlplayer
    gosub controlenemies
    gosub handleparts
    sync
    level.expld = 0
loop

controlplayer:
    if leftkey() = 1 then player.mx = -20
    if rightkey() = 1 then player.mx = 20
    if upkey() = 1 then player.my = -20
    if downkey() = 1 then player.my = 20
    
    player.x = player.x + player.mx
    player.y = player.y + player.my
    
    player.mx = player.mx * .5
    player.my = player.my * .5
    
    ink rgb(0,255,0),0
    text player.x, player.y, "A"
    
    laser.y = laser.y - 40
    
    ink rgb(255,0,0),0
    text laser.x, laser.y, "|"
    
    if left$(entry$(), 1) = " " and dthtmr < 0
        laser.x = player.x
        laser.y = player.y
        f = 1000
        for s = 1 to 5
            f = f - 100
            call dll 1, "Beep", f, 30
        next s
    endif
    dthtmr = dthtmr - 1
    if dthtmr = 0 then gosub endofgame

        clear entry buffer
    
return


controlenemies:
ink rgb(0,0,255),0
    for x = 1 to maxen
        enemy(x).x = enemy(x).x + enemy(x).mx
        enemy(x).y = enemy(x).y + enemy(x).my
        if enemy(x).x < player.x then enemy(x).mx = enemy(x).mx + .1
        if enemy(x).x > player.x then enemy(x).mx = enemy(x).mx - .1
        if enemy(x).y < player.y then enemy(x).my = enemy(x).my + .1
        if enemy(x).y > player.y then enemy(x).my = enemy(x).my - .1
        text enemy(x).x, enemy(x).y, "W"
        if laser.y - enemy(x).y < -40 and abs(enemy(x).x - laser.x) < 20
            explode(enemy(x).x, enemy(x).y)
            score = score + 100
            enemy(x).x = rnd(500)
            enemy(x).y = -10
            enemy(x).mx = 0
            enemy(x).my = 0
            if rnd(2) = 1
                maxen = maxen + 1
                enemy(maxen).x = rnd(500)
                enemy(maxen).y = -10
            endif
        endif
        
        if abs(player.y - enemy(x).y) < 20 and abs(enemy(x).x - player.x) < 20
            explode(player.x, player.y)
            player.y = -1000000
            dthtmr = 20
        endif
    next x
return

handleparts:
    for a = 1 to 5
        part(a).x = part(a).x + part(a).mx
        part(a).y = part(a).y + part(a).my
        ink rgb(part(a).r,part(a).g, part(a).b), 0
        text part(a).x, part(a).y, "*"
        part(a).r = part(a).r * .9
        part(a).g = part(a).g * .9
        part(a).b = part(a).b * .9
    next a
return

function explode(x,y)
    if level.expld = 0
        for s = 1 to 20
            call dll 1, "Beep", rnd(100), 30
        next s
        level.expld = 1
    endif
    for a = 1 to 5
        part(a).x = x
        part(a).y = y
        part(a).mx = rnd(50) - 25
        part(a).my = rnd(50) - 25
        c = rnd(1)
        if c = 0 then part(a).r = 255:part(a).g = 0: part(a).b = 0
        if c = 1 then part(a).r = 255:part(a).g = 255: part(a).b = 0
    next a
endfunction


cutscene:
    text 10, 30, "A                   B"
    set cursor 0, 70
    print "B:  They're back..."
    sync
    wait 2000
    print "A:  Who?"
    sync
    wait 2000
    print "B:  The W's... They are back."
    sync
    wait 2000
    print "A:  LMAO!"
    text 10, 30, "A!!                 B"
    sync
    wait 2000
    print "B:  No, I'm seroius."
    ink 0,0
    box 0, 30, 500, 45
    ink rgb(255,255,255), 0
    text 10, 30, "A                   B"
    sync
    wait 600
    print "B:  They are here to kill us all."
    sync
    wait 3000
    print "A:  Uh oh."
    sync
    wait 1600
    print "B:  Yeah, the only solution is for you to go kill em all."
    sync
    wait 2000
    text 10, 30, "A!                  B"
    sync
    wait 1000
    print "A:  Crap..."
    sync
    wait 3000
return


endofgame:
    cls
    ink rgb(150,150,150), 0
    score$ = str$(score)
    while len(score$) < 6
    score$ = "0" + score$
    endwhile
    print "--------"
    print "|-RIP--|"
    print "|--A---|"
    print "|------|"
    print "|SCORE:|"
    print "|" + score$ + "|"
    print "--------"
    sync
    wait 5000
    wait key
    end
return

print "ABCDEFG"
print "HIJKLMN"
print "OQRSTUV"
print "WXYZ123"
get image 1, 0,0, 40, 40

make object cube 1, 10
texture object 1,1
sync on: sync rate 60
do
    rotate object 1, object angle x(1) + .7, object angle y(1) + 1, object angle z(1)
    sync
loop

sync on : sync rate 110
randomize timer()

global word$
global speed#
points=0
movey# = 0

dim alphabet$(25)
for let = 0 to 25
 read alphabet$(let)
next let

start:
cls
clear entry buffer
movey#=0
word_num(points)

do
 cls
 HUD_setup(points)
 enter$=entry$()
 text 450,400,"Enter: "+enter$+""
 text 320,movey#,""+word$+""
 inc movey#,speed#
 if movey#=>375
  exit
 endif
sync
loop

if movey#=>375
 if enter$=word$
  points=points+4
 endif
endif

goto start

function HUD_setup(points)
 text 0,380,"---------------------------------------------------------------------------------"
 text 100,400,"Points: "+str$(points)+""
 text 10,370,"DO NOT PRESS ENTER!"
 text 480,370,"DO NOT PRESS ENTER!"
 for y = 1 to 380 step 10
  text 200,y,"I"
  text 450,y,"I"
 next y
endfunction

function word_num(points)

if points < 19
 three_word()
 speed#=0.7
endif

if points < 39
 if points > 19
  four_word()
  speed#=0.9
 endif
endif

if points < 59
 if points > 39
  five_word()
  speed#=1.1
 endif
endif

if points < 79
 if points > 59
  six_word()
  speed#=1.3
 endif
endif

endfunction

function three_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction

function four_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction

function five_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction

function six_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction


data "a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"

sync on : hide mouse

set text font "Courier New"
set text size 24

dim grid(80,30) as string

for y = 0 to 30
    for x = 0 to 80
        read grid(x,y)
    next x
next y

global start

start = timer()

do

    inc timeout
    if timeout > 10 then timeout = 0

    if dead = 0
        xmo = (rightkey()-leftkey())*4
        if spacekey() and ground
            ymo# = -6
        endif
    endif
    ground = 0
    inc ymo#,0.1

    if xmo
        if timeout = 0
            if frame <> 0
                frame = 0
            else
                frame = 1
            endif
        endif
    endif

    if ymo# > 1
        frame = 2
    endif

    if ymo# < -1
        if xmo > 0
            frame = 3
        else
            if xmo < 0
                frame = 4
            else
                frame = 5
            endif
        endif
    endif

    if xpos#+xmo < 0
        xpos# = 0
        xmo = 0
    endif

    if xpos#+xmo > 959
        xpos# = 959
        xmo = 0
    endif

    if ypos#+ymo# < 0
        ypos# = 0
        ymo# = abs(ymo#)
    endif

    if ypos#+ymo# > 800
        ypos# = 0
        ymo# = 0
    endif

    s = sign(ymo#)
    xp = r(xpos#+xmo,12)
    yp = r(ypos#+ymo#+88,24)
    t = 0
    if grid(xp,yp) = "^"
        dead = 1
    endif
    if grid(xp,yp) = "["
        grid(xp,yp) = ""
        grid(xp+1,yp) = "_"
        grid(xp+2,yp) = ""
        win = 1
    endif
    if grid(xp,yp) = "T"
        grid(xp-1,yp) = ""
        grid(xp,yp) = "_"
        grid(xp+1,yp) = ""
        win = 1
    endif
    if grid(xp,yp) = "]"
        grid(xp-2,yp) = ""
        grid(xp-1,yp) = "_"
        grid(xp,yp) = ""
        win = 1
    endif
    if dead
        frame = 6
    endif
    if win
        frame = 7
        inc won
    endif
    while grid(xp,yp) <> ""
        t = 1
        dec xpos#,xmo
        dec ypos#,ymo#
        xmo = 0
        xp = r(xpos#+xmo,12)
        yp = r(ypos#+ymo#+88,24)
    endwhile
    if t
        if s = 1
            ymo# = 0
            ground = 1
        else
            ymo# = abs(ymo#)
        endif
    endif

    inc xpos#,xmo
    inc ypos#,ymo#

    render_player(xpos#,ypos#,frame)
    render_world()

    sync

    time()

    if won > 100
        dead = 1
    endif

    cls 0

loop

function time()

    while timer() < start+8
    endwhile
    start = timer()

endfunction

function render_world()

    for y = 0 to 30
        for x = 0 to 80
            if grid(x,y) <> ""
                text x*12,y*24,grid(x,y)
            endif
        next x
    next y

endfunction

function sign(v#)

    v = v#/abs(v#)

endfunction v

function render_player(xpos#,ypos#,frame)

    if frame = 0
        center text xpos#,ypos#,"O"
        center text xpos#,ypos#+24,"/|\"
        center text xpos#,ypos#+48,"/\"
        center text xpos#,ypos#+72,"/ \"
    endif
    if frame = 1
        center text xpos#,ypos#,"O"
        center text xpos#,ypos#+24,"/|\"
        center text xpos#,ypos#+48,"|"
        center text xpos#,ypos#+72,"|"
    endif
    if frame = 2
        center text xpos#,ypos#,"\O/"
        center text xpos#,ypos#+24,"|"
        center text xpos#,ypos#+48,"/\"
        center text xpos#,ypos#+72,"/ \"
    endif
    if frame = 3
        center text xpos#,ypos#,"O"
        center text xpos#,ypos#+24,"/|\"
        center text xpos#,ypos#+48,"/\"
        center text xpos#,ypos#+72,"/ /"
    endif
    if frame = 4
        center text xpos#,ypos#,"O"
        center text xpos#,ypos#+24,"/|\"
        center text xpos#,ypos#+48,"/\"
        center text xpos#,ypos#+72,"\ \"
    endif
    if frame = 5
        center text xpos#,ypos#,"O"
        center text xpos#,ypos#+24,"/|\"
        center text xpos#,ypos#+48,"/\"
        center text xpos#,ypos#+72,"\ /"
    endif
    if frame = 6
        center text xpos#,ypos#-24,"   _______ "
        center text xpos#,ypos#,   "  / OWWW! \"
        center text xpos#,ypos#+24,"  \____  _/"
        center text xpos#,ypos#+48,"       \/  "
        center text xpos#,ypos#+72,"  ¦>-->O   "
    endif
    if frame = 7
        center text xpos#,ypos#-96," _______   "
        center text xpos#,ypos#-72,"/  YAY! \  "
        center text xpos#,ypos#-48,"\____  _/  "
        center text xpos#,ypos#-24,"     \/    "
        center text xpos#,ypos#,   "    \O/    "
        center text xpos#,ypos#+24,"     |     "
        center text xpos#,ypos#+48,"    /\    "
        center text xpos#,ypos#+72,"    / \    "
    endif

endfunction

function r(v#,a)

    v = int(v#/a)

endfunction v

data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "","[","T","]", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "","#","#","#","#","#","#","#", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "","#","#","#","#","#","#","#", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data  "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
data "#","#","#","#","#","#","#","#","#","#","#","#","#","#","#","#","#","#","#","#","#","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","^","#","#","#","#","#","#","#","#","#","#","#","#","#","#","#","#"

sync on : sync rate 110
randomize timer()

global word$
global speed#
points=0
movey# = 0

dim alphabet$(25)
for let = 0 to 25
 read alphabet$(let)
next let

start:
cls
clear entry buffer
movey#=0
word_num(points)

do
 cls
 HUD_setup(points)
 enter$=entry$()
 text 450,400,"Enter: "+enter$+""
 text 320,movey#,""+word$+""
 inc movey#,speed#
 if enter$=word$
  points=points+4
  exit
 endif
 if movey#=>375
  exit
 endif
sync
loop


goto start

function HUD_setup(points)
 text 0,380,"---------------------------------------------------------------------------------"
 text 100,400,"Points: "+str$(points)+""
 text 10,370,"DO NOT PRESS ENTER!"
 text 480,370,"DO NOT PRESS ENTER!"
 for y = 1 to 380 step 10
  text 200,y,"I"
  text 450,y,"I"
 next y
endfunction

function word_num(points)

if points < 19
 three_word()
 speed#=0.7
endif

if points < 39
 if points > 19
  four_word()
  speed#=0.9
 endif
endif

if points < 59
 if points > 39
  five_word()
  speed#=1.1
 endif
endif

if points < 79
 if points > 59
  six_word()
  speed#=1.3
 endif
endif

endfunction

function three_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction

function four_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction

function five_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction

function six_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction


data "a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"

rem prepare environment
sync on : sync rate 0 : color backdrop 0
`set display mode 1024, 768, 32
draw to front : randomize timer()

rem show loading screen
cls : center text screen width() / 2, screen height() / 2, "LOADING" : sync

rem load dll for sound effects
load dll "kernel32.dll", 1

rem global variables
sound = 1
move_speed# = 0.2
game_speed = 1
rate_of_fire = 100
ai_rate_of_fire = 800
enemies_killed = 0
max_enemies = 10
enemy_sprite_image = make_enemy_sprite()
dim enemy_x#(max_enemies)
dim enemy_y#(max_enemies)
dim enemy_fire_again(max_enemies)
dim enemy_life(max_enemies)
dim enemy_sprite(max_enemies)
player_health = 100
player_x# = screen width() / 2
player_y# = screen height() - (screen height() / 4)
player_energy = 100
player_sprite = 0
player_sprite_image = make_player_sprite()
player_fire_again = 0
current_shots = 0
max_shots = 200
shot_sprite_image = make_shot_sprite()
dim shot_angle#(max_shots)
dim shot_life(max_shots)
dim shot_from_sprite(max_shots)
dim shot_sprite(max_shots)

rem make and position enemies
for a = 1 to max_enemies
 enemy_x#(a) = rnd(screen width())
 enemy_y#(a) = rnd(300) - 400
 enemy_life(a) = 1
 enemy_fire_again(a) = 0
 enemy_sprite(a) = free_sprite()
 sprite enemy_sprite(a), enemy_x#(a), enemy_y#(a), enemy_sprite_image
next a

rem positon player sprite
player_sprite = free_sprite()
sprite player_sprite, player_x#, player_y#, player_sprite_image

rem display instructions and hide mouse
cls : hide all sprites
text 0, 0, "Use the arrowkeys to fly your ship and spacebar to shoot."
text 0, 10, "Press any key to continue."
sync : wait key : hide mouse : show all sprites

rem record game start time
start_time = timer()

rem main program loop
do

 rem control ship with arrowkeys
 if rightkey() = 1 then player_x# = player_x# + (move_speed# * 1.5)
 if leftkey() = 1 then player_x# = player_x# - (move_speed# * 1.5)
 if upkey() = 1 then player_y# = player_y# - (move_speed# * 1.5)
 if downkey() = 1 then player_y# = player_y# + (move_speed# * 1.5)

 rem make sure player sprite is still on the screen
 if player_x# < 0 then player_x# = 0
 if player_x# > (screen width() - sprite width(player_sprite)) then player_x# = (screen width() - sprite width(player_sprite))
 if player_y# < 0 then player_y# = 0
 if player_y# > (screen height() - sprite height(player_sprite) - 18) then player_y# = (screen height() - sprite height(player_sprite) - 18)

 rem update player sprite
 sprite player_sprite, player_x#, player_y#, player_sprite_image

 rem fire using the spacebar
 if player_fire_again > 0 then player_fire_again = player_fire_again - 1
 if spacekey() = 1 and player_fire_again = 0 `keystate 57
  rem fire one shot if max shots hasn't been achieved
  if current_shots < max_shots
   current_shots = current_shots + 1
   a = 1
   while shot_life(a) > 0
    a = a + 1
   endwhile
   shot_life(a) = 1
   shot_angle#(a) = 0
   shot_from_sprite(a) = player_sprite
   shot_sprite(a) = free_sprite()
   sprite shot_sprite(a), player_x# + 16, player_y# - 12, shot_sprite_image
   rotate sprite shot_sprite(a), shot_angle#(a)
   move sprite shot_sprite(a), move_speed#
   player_fire_again = rate_of_fire
  endif
 endif

 rem update enemy sprites / do enemy ai
 for a = 1 to max_enemies
  if enemy_life(a) > 0
   if enemy_fire_again(a) > 0 then enemy_fire_again(a) = enemy_fire_again(a) - 1
   enemy_y#(a) = enemy_y#(a) + (move_speed# / 4)
   if enemy_y#(a) >= (screen height() - 18 - sprite height(enemy_sprite(a)))
    enemy_y#(a) = -10
    enemy_x#(a) = rnd(screen width())
   endif
   if enemy_x#(a) > (screen width() - sprite width(enemy_sprite(a))) then enemy_x#(a) = 0
   if enemy_x#(a) < 0 then enemy_x#(a) = (screen width() - sprite width(enemy_sprite(a)))
   rem check for collision with player
   if sprite collision(enemy_sprite(a), player_sprite) > 0
    player_health = player_health - 5
    enemy_x#(a) = rnd(screen width())
    enemy_y#(a) = rnd(300) - 400
    enemy_fire_again(a) = 0
   endif
   rem fire at player if on screen
   if enemy_fire_again(a) = 0 and enemy_y#(a) > 0
    rem fire a shot downward if the player is below and max_shots hasnt been achieved
    if current_shots < max_shots  and player_y# > enemy_y#(a)
     current_shots = current_shots + 1
     b = 1
     while shot_life(b) > 0
      b = b + 1
     endwhile
     shot_life(b) = 1
     shot_angle#(b) = 180
     shot_from_sprite(b) = enemy_sprite(a)
     shot_sprite(b) = free_sprite()
     sprite shot_sprite(b), enemy_x#(a) + (sprite width(enemy_sprite(a)) / 2), enemy_y#(a) + 12, shot_sprite_image
     rotate sprite shot_sprite(b), shot_angle#(b)
     move sprite shot_sprite(b), move_speed#
     enemy_fire_again(a) = ai_rate_of_fire
    endif
   endif
   sprite enemy_sprite(a), enemy_x#(a), enemy_y#(a), enemy_sprite_image
  endif
 next a

 rem update shot sprites
 for a = 1 to max_shots
  if shot_life(a) > 0
   rem move the bullet
   move sprite shot_sprite(a), move_speed# * 1.5
   rem check to see if it's still on screen
   if sprite x(shot_sprite(a)) < 0 or sprite x(shot_sprite(a)) > screen width() or sprite y(shot_sprite(a)) < 0 or sprite y(shot_sprite(a)) > screen height()
    shot_life(a) = 0
   endif
   rem check for collision
   b = sprite collision(shot_sprite(a), 0)
   if b > 0 and shot_life(a) > 0
    rem the bullet hit something, check to make-sure it wasn't self-injury
    if shot_from_sprite(a) <> b
     rem it's valid, check to see if the player has been hit
     if b = player_sprite
      rem the player has been hit by an enemy,
      rem subtract health
      player_health = player_health - 1
      shot_life(a) = 0
     else
      if shot_from_sprite(a) = player_sprite
       rem an enemy has been hit by the player,
       rem find out which one and kill it
       for c = 1 to max_enemies
        if enemy_sprite(c) = b
         rem enemy found, deal with him and exit the loop
         shot_life(a) = 0
         enemy_x#(c) = rnd(screen width())
         enemy_y#(c) = rnd(300) - 400
         enemy_fire_again(c) = 0
         enemies_killed = enemies_killed + 1
        endif
       next c
      endif
     endif
    endif
   endif
   if shot_life(a) = 0
    delete sprite shot_sprite(a)
    current_shots = current_shots - 1
   endif
  endif
 next a

 rem check for end of game (player_health <= 0)
 if player_health <= 0
  rem end game
  cls : center text screen width() / 2, screen height() / 2, "END GAME"
  center text screen width() / 2, (screen height() / 2) + 20, "PRESS ANY KEY TO CONTINUE"
  sync : wait key : hide all sprites : cls
  text 0, 0, "Your Statistics: "
  text 0, 20, "Game Time: " + str$((timer() - start_time) / 1000) + " seconds"
  text 0, 40, "Enemies Killed: " + str$(enemies_killed)
  text 0, 60, "Press any key to exit the game."
  sync : wait key : end
 endif

 rem draw hud at bottom of screen
 rem show game time, health and enemies killed
 text 0, screen height() - 16, "Game Time: " + str$((timer() - start_time) / 1000) + " seconds"
 text 200, screen height() - 16, "Player Health: " + str$(player_health)
 text 400, screen height() - 16, "Enemies Killed: " + str$(enemies_killed)

 rem refresh the screen
 sync

loop

rem generic functions
function free_sprite()
 retval = 1
 while sprite exist(retval) = 1
  retval = retval + 1
 endwhile
endfunction retval

function free_image()
 retval = 1
 while image exist(retval) = 1
  retval = retval + 1
 endwhile
endfunction retval

rem sound functions
function make_beep(frequency, duration)
 call dll 1, "Beep", frequency, duration
endfunction

rem sprite functions
function make_player_sprite()
 create bitmap 1, 40, 35
 ink RGB(0, 0, 255), 0
 text 0, 0, "/---\"
 text 0, 10, "|   |"
 text 0, 20, "\---/"
 image_number = free_image()
 get image image_number, 0, 0, 40, 35
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_enemy_sprite()
 create bitmap 1, 16, 16
 ink RGB(255, 0, 0), 0
 text 0, 0, "[]"
 image_number = free_image()
 get image image_number, 0, 0, 16, 16
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_shot_sprite()
 create bitmap 1, 10, 10
 ink RGB(255, 255, 255), 0
 text 0, 0, "*"
 image_number = free_image()
 get image image_number, 0, 0, 10, 10
 delete bitmap 1
 set current bitmap 0
endfunction image_number

rem prepare environment
sync on : sync rate 0 : color backdrop 0
`set display mode 1024, 768, 32
draw to front : randomize timer()

rem show loading screen
cls : center text screen width() / 2, screen height() / 2, "LOADING" : sync

rem load dll for sound effects
load dll "kernel32.dll", 1

rem global variables
sound = 1
move_speed# = 0.2
game_speed = 1
rate_of_fire = 100
ai_rate_of_fire = 800
enemies_killed = 0
max_enemies = 10
enemy_sprite_image = make_enemy_sprite()
dim enemy_x#(max_enemies)
dim enemy_y#(max_enemies)
dim enemy_fire_again(max_enemies)
dim enemy_life(max_enemies)
dim enemy_sprite(max_enemies)
player_health = 100
player_x# = screen width() / 2
player_y# = screen height() - (screen height() / 4)
player_energy = 100
player_sprite = 0
player_sprite_image = make_player_sprite()
player_fire_again = 0
current_shots = 0
max_shots = 200
dim shot_sprite_image(1)
shot_sprite_image(0) = make_shot_sprite()
shot_sprite_image(1) = make_secondary_shot_sprite()
dim shot_angle#(max_shots)
dim shot_life(max_shots)
dim shot_from_sprite(max_shots)
dim shot_sprite(max_shots)
dim shot_type(max_shots)
pause_press_again = 0
paused = 0

rem make and position enemies
for a = 1 to max_enemies
 enemy_x#(a) = rnd(screen width())
 enemy_y#(a) = rnd(300) - 400
 enemy_life(a) = 1
 enemy_fire_again(a) = rnd(2 * ai_rate_of_fire)
 enemy_sprite(a) = free_sprite()
 sprite enemy_sprite(a), enemy_x#(a), enemy_y#(a), enemy_sprite_image
next a

rem positon player sprite
player_sprite = free_sprite()
sprite player_sprite, player_x#, player_y#, player_sprite_image

rem display instructions and hide mouse
cls : hide all sprites : ink RGB(255, 255, 255), RGB(255, 255, 255)
text 0, 0, "Use the arrowkeys to fly your ship and spacebar to shoot"
text 0, 10, "the main weapon, alt key to shoot secondary power shot."
text 0, 20, "You can pause the game by pressing the P key."
text 0, 40, "Alternate controls are the WASD keys and the control key"
text 0, 50, "to shoot main weapon, alt for secondary. The Alternate"
text 0, 60, "controls are recommended (they are more sensitive)."
text 0, 70, "Press any key to continue."
sync : wait key : hide mouse : show all sprites

rem record game start time
game_time = 0 : loop_count = 0

rem main program loop
do

 rem used in counting the seconds
 loop_count = timer()

 rem pause controls
 if pause_press_again > 0 then pause_press_again = pause_press_again - 1
 if keystate(25) = 1 and pause_press_again = 0
  if paused = 0
   paused = 1
  else
   paused = 0
  endif
  pause_press_again = 200
 endif

 rem only execute main game loop if game isn't paused
 if paused = 0

 rem control ship with arrowkeys
 if (keystate(205) = 1 or keystate(32) = 1) then player_x# = player_x# + (move_speed# * 1.5)
 if (keystate(203) = 1 or keystate(30) = 1) then player_x# = player_x# - (move_speed# * 1.5)
 if (keystate(200) = 1 or keystate(17) = 1) then player_y# = player_y# - (move_speed# * 1.5)
 if (keystate(208) = 1 or keystate(31) = 1) then player_y# = player_y# + (move_speed# * 1.5)

 rem make sure player sprite is still on the screen
 if player_x# < 0 then player_x# = 0
 if player_x# > (screen width() - sprite width(player_sprite)) then player_x# = (screen width() - sprite width(player_sprite))
 if player_y# < 100 then player_y# = 100
 if player_y# > (screen height() - sprite height(player_sprite) - 18) then player_y# = (screen height() - sprite height(player_sprite) - 18)

 rem update player sprite
 sprite player_sprite, player_x#, player_y#, player_sprite_image

 rem fire using the spacebar or control key main weapon
 if player_fire_again > 0 then player_fire_again = player_fire_again - 1
 if (keystate(57) = 1 or controlkey() = 1) and player_fire_again = 0
  rem fire one shot if max shots hasn't been achieved
  if current_shots < max_shots
   current_shots = current_shots + 1
   a = 1
   while shot_life(a) > 0
    a = a + 1
   endwhile
   shot_life(a) = 1
   shot_angle#(a) = 0
   shot_from_sprite(a) = player_sprite
   shot_sprite(a) = free_sprite()
   shot_type(a) = 0
   sprite shot_sprite(a), player_x# + 13, player_y# - 10, shot_sprite_image(shot_type(a))
   rotate sprite shot_sprite(a), shot_angle#(a)
   move sprite shot_sprite(a), move_speed#
   player_fire_again = rate_of_fire
  endif
 endif

 rem fire using the alternate key the secondary weapon
 if (keystate(56) = 1 or keystate(184) = 1) and player_fire_again = 0
  rem fire one shot if max shots hasn't been achieved
  if current_shots < max_shots
   current_shots = current_shots + 1
   a = 1
   while shot_life(a) > 0
    a = a + 1
   endwhile
   shot_life(a) = 1
   shot_angle#(a) = 0
   shot_from_sprite(a) = player_sprite
   shot_sprite(a) = free_sprite()
   shot_type(a) = 1
   sprite shot_sprite(a), player_x# + 13, player_y# - 10, shot_sprite_image(shot_type(a))
   rotate sprite shot_sprite(a), shot_angle#(a)
   move sprite shot_sprite(a), move_speed#
   player_fire_again = 7 * rate_of_fire
  endif
 endif

 rem update enemy sprites / do enemy ai
 for a = 1 to max_enemies
  if enemy_life(a) > 0
   if enemy_fire_again(a) > 0 then enemy_fire_again(a) = enemy_fire_again(a) - 1
   enemy_y#(a) = enemy_y#(a) + (move_speed# / 4)
   if enemy_y#(a) >= (screen height() - 18 - sprite height(enemy_sprite(a)))
    enemy_y#(a) = -10
    enemy_x#(a) = rnd(screen width())
   endif
   if enemy_x#(a) > (screen width() - sprite width(enemy_sprite(a))) then enemy_x#(a) = 0
   if enemy_x#(a) < 0 then enemy_x#(a) = (screen width() - sprite width(enemy_sprite(a)))
   rem check for collision with player
   if sprite collision(enemy_sprite(a), player_sprite) > 0
    player_health = player_health - 5
    enemy_x#(a) = rnd(screen width())
    enemy_y#(a) = rnd(300) - 400
    enemy_fire_again(a) = 0
   endif
   rem fire at player if on screen
   if enemy_fire_again(a) = 0 and enemy_y#(a) > 0
    rem fire a shot downward if the player is below and max_shots hasnt been achieved
    if current_shots < max_shots  and player_y# > enemy_y#(a)
     current_shots = current_shots + 1
     b = 1
     while shot_life(b) > 0
      b = b + 1
     endwhile
     shot_life(b) = 1
     shot_angle#(b) = 180
     shot_from_sprite(b) = enemy_sprite(a)
     shot_sprite(b) = free_sprite()
     if game_time > 60000
      shot_type(b) = 1
      enemy_fire_again(a) = 2 * ai_rate_of_fire
     else
      shot_type(b) = 0
      enemy_fire_again(a) = ai_rate_of_fire
     endif
     sprite shot_sprite(b), enemy_x#(a) + (sprite width(enemy_sprite(a)) / 2), enemy_y#(a) + 12, shot_sprite_image(shot_type(b))
     rotate sprite shot_sprite(b), shot_angle#(b)
     move sprite shot_sprite(b), move_speed#
    endif
   endif
   sprite enemy_sprite(a), enemy_x#(a), enemy_y#(a), enemy_sprite_image
  endif
 next a

 rem update shot sprites
 for a = 1 to max_shots
  if shot_life(a) > 0
   rem move the bullet
   move sprite shot_sprite(a), move_speed# * 1.5
   rem check to see if it's still on screen
   if sprite x(shot_sprite(a)) < 0 or sprite x(shot_sprite(a)) > screen width() or sprite y(shot_sprite(a)) < 0 or sprite y(shot_sprite(a)) > screen height()
    shot_life(a) = 0
   endif
   rem check for collision
   b = sprite collision(shot_sprite(a), 0)
   if b > 0 and shot_life(a) > 0
    rem the bullet hit something, check to make-sure it wasn't self-injury
    if shot_from_sprite(a) <> b
     rem it's valid, check to see if the player has been hit
     if b = player_sprite
      rem the player has been hit by an enemy,
      rem subtract health
      if shot_type(a) = 0
       player_health = player_health - 1
      else
       player_health = player_health - 8
      endif
      shot_life(a) = 0
     else
      if shot_from_sprite(a) = player_sprite
       rem an enemy has been hit by the player,
       rem find out which one and kill it
       for c = 1 to max_enemies
        if enemy_sprite(c) = b
         rem enemy found, deal with him and exit the loop
         if shot_type(a) = 0 then shot_life(a) = 0
         enemy_x#(c) = rnd(screen width())
         enemy_y#(c) = rnd(300) - 400
         enemy_fire_again(c) = 0
         enemies_killed = enemies_killed + 1
        endif
       next c
      endif
     endif
    endif
   endif
   if shot_life(a) = 0
    delete sprite shot_sprite(a)
    current_shots = current_shots - 1
   endif
  endif
 next a

 rem set the text color to white and the background to black
 ink RGB(255, 255, 255), 0

 rem check for end of game (player_health <= 0)
 if player_health <= 0
  rem end game
  cls : center text screen width() / 2, screen height() / 2, "END GAME"
  center text screen width() / 2, (screen height() / 2) + 20, "PRESS ANY KEY TO CONTINUE"
  sync : wait key : hide all sprites : cls
  text 0, 0, "Your Statistics: "
  text 0, 20, "Game Time: " + str$((timer() - start_time) / 1000) + " seconds"
  text 0, 40, "Enemies Killed: " + str$(enemies_killed)
  text 0, 60, "Press any key to exit the game."
  sync : wait key : end
 endif

 rem end of pause ifthen statement
 endif

 rem draw hud at bottom of screen
 rem show game time, health and enemies killed
 text 0, screen height() - 16, "Game Time: " + str$(game_time / 1000) + " seconds"
 text 200, screen height() - 16, "Player Health: " + str$(player_health)
 text 400, screen height() - 16, "Enemies Killed: " + str$(enemies_killed)

 rem if game is paused, draw pause text
 if paused = 1 then center text screen width() / 2, screen height() / 2, "PAUSED"
 if paused = 0 then game_time = game_time + (timer() - loop_count)

 rem refresh the screen
 sync

loop

rem generic functions
function free_sprite()
 retval = 1
 while sprite exist(retval) = 1
  retval = retval + 1
 endwhile
endfunction retval

function free_image()
 retval = 1
 while image exist(retval) = 1
  retval = retval + 1
 endwhile
endfunction retval

rem sound functions
function beep(frequency, duration)
 call dll 1, "Beep", frequency, duration
endfunction

rem sprite functions
function make_player_sprite()
 create bitmap 1, 32, 35
 ink RGB(0, 0, 255), 0
 text 0, 0, "/--"
 text 0, 10, "|  |"
 text 0, 20, "--/"
 image_number = free_image()
 get image image_number, 0, 0, 32, 35
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_enemy_sprite()
 create bitmap 1, 16, 16
 ink RGB(255, 0, 0), 0
 text 0, 0, "[]"
 image_number = free_image()
 get image image_number, 0, 0, 16, 16
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_shot_sprite()
 create bitmap 1, 10, 10
 ink RGB(255, 255, 255), 0
 text 0, 0, "+"
 image_number = free_image()
 get image image_number, 0, 4, 8, 10
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_secondary_shot_sprite()
 create bitmap 1, 14, 14
 ink RGB(255, 255, 0), 0
 text 0, 0, "@"
 image_number = free_image()
 get image image_number, 0, 2, 9, 12
 delete bitmap 1
 set current bitmap 0
endfunction image_number