Sorry your browser is not supported!

#CONSTANT FALSE = 0
#CONSTANT TRUE = 1
#CONSTANT ALIEN_SIZE = 2
#CONSTANT IMG_ALIEN1 = 1
#CONSTANT IMG_ALIEN2 = 2
#CONSTANT IMG_SHIP = 3
#CONSTANT IMG_UFO = 4
#CONSTANT SPRT_UFO = 500
#CONSTANT BLOCK_SIZE = 5
#CONSTANT BULLET_SIZE = 2
#CONSTANT pVELOCITY = 10
#CONSTANT pGRAVITY = 2
#CONSTANT ALIEN_SX = 20
#CONSTANT ALIEN_SY = 16
#CONSTANT SFX_EXPLODE = 1
#CONSTANT SFX_SHIP_BULLET = 2
#CONSTANT SFX_FALL = 3
#CONSTANT SFX_BLOCK_HIT = 4
#CONSTANT SFX_ALIEN_BULLET = 5
#CONSTANT SFX_TITLE = 6
#CONSTANT SFX_1 = 7
#CONSTANT SFX_2 = 8
#CONSTANT SFX_UFO = 9
#CONSTANT INTRO_MAX_SIZE = 12


REM for intro graphics
type block
   state as boolean
   size as integer
endtype

REM alien
type Alien
   s as integer
   x as integer
   y as integer
   img as integer
   dead as boolean
   message as integer
endtype


REM
type Particle
   x as integer
   y as integer
   a as integer
   v as integer
endtype


REM
type Vector2D
   x as integer
   y as integer
endtype


REM ship properties
type SpaceShip
   x as integer
   y as integer
   sx as integer
   sy as integer
endtype

type BulletObject
   x as integer
   y as integer
   speed as integer
endtype

rem size to draw alien images

cls
REM get alien images
restore alien1
for y = 0 to 7
   for x = 0 to 9
      read z
      if z = 1
         box x*ALIEN_SIZE,y*ALIEN_SIZE,(x+1)*ALIEN_SIZE,(y+1)*ALIEN_SIZE
      endif
   next x
next y

restore alien2
for y = 0 to 7
   for x = 10 to 19
      read z
      if z = 1
         box x*ALIEN_SIZE,y*ALIEN_SIZE,(x+1)*ALIEN_SIZE,(y+1)*ALIEN_SIZE
      endif
   next x
next y

rem grab the alien images
get image IMG_ALIEN1, 0,0,10*ALIEN_SIZE,8*ALIEN_SIZE,1
get image IMG_ALIEN2, 10*ALIEN_SIZE,0,20*ALIEN_SIZE,8*ALIEN_SIZE,1

cls
rem size to draw ship at
size = 5
restore ship1
for y = 0 to 6
   for x = 0 to 6
      read z
      if z = 1
         box x*size,y*size,(x+1)*size,(y+1)*size
      endif
   next x
next y
rem grab ship image
get image IMG_SHIP, 0,0,7*size,7*size,1


rem grab ufo image
cls
restore ufo
sizex = 4
sizey = 2
ink rgb(255,0,0),0
for y = 0 to 4
   for x = 0 to 7
      read z
      if z = 1 then box x*sizex,y*sizey,(x+1)*sizex,(y+1)*sizey
   next x
next y
get image IMG_UFO,0,0,8*sizex,5*sizey,1
sprite SPRT_UFO,ux,20,IMG_UFO
hide sprite SPRT_UFO

rem bullet shape
dim bulletImage(3,10)
bullet as BulletObject
bullet.speed = 8


restore bulletData
for y=1 to 10
   for x=1 to 3
      read bulletImage(x,y)
   next x
next y


rem alien array
rows = 5
columns = 10
dim aliens(rows*columns) as Alien


sizeX = 5*ALIEN_SIZE
sizeY = 5*ALIEN_SIZE
spacingX = sizeX*2
spacingY = sizeY+sizeY/2
offsetX = (screen width() - (10*(ALIEN_SIZE+spacingX))) / 2 + sizeX
offsetY = 20

for y = 0 to rows-1
   for i = 1 to columns
      inc j
      aliens(j).s = j
      aliens(j).x = offsetX + (i-1)*spacingX
      aliens(j).y = offsetY + y*spacingY
      aliens(j).img = rnd(1)+1
      sprite j,aliens(j).x, aliens(j).y,aliens(j).img
      hide sprite j
      set sprite diffuse j, rnd(205)+50,rnd(205)+50,rnd(205)+50
   next i
next y



rem ship properties
ship as SpaceShip

ship.x = 302
ship.y = 445
ship.sx = 35
ship.sy = 35
sprite 100, ship.x, ship.y, IMG_SHIP
set sprite diffuse 100, 0,200,40


rem top boundary for ship movement
upper_boundary = 410


rem direction and speed of aliens
rem positive moves right, negative moves left
direction = 4


rem blocks for guarding ship
dim blocks(3,6,10)

for i = 1 to 3
   restore block
   for y = 1 to 6
      for x = 1 to 10
         read z
         blocks(i,y,x) = z
      next x
   next y
next i

rem starfield background
starfield_size = 400
dim starfield#(starfield_size,2)

for i = 1 to starfield_size
   starfield#(i,0) = rnd(screen width())
   starfield#(i,1) = rnd(screen height())
next i


rem bullet array
dim bullets(0) as Vector2D


rem random funny messages
dim messages$(13)
messages$(1) = "Lies!"
messages$(2) = "Oh, Snap!"
messages$(3) = "Oh, %#*@!!!"
messages$(4) = "Oh, Noodles!"
messages$(5) = "Bloody Hell!"
messages$(6) = "Cheater!"
messages$(7) = "Oh, gee wiz!"
messages$(8) = "pfft, again?"
messages$(9) = "F*%# YOU!"
messages$(10) = "Son of a B*%&#!"
messages$(11) = "le sigh...."
messages$(12) = "I'm falling..."
messages$(13) = "Weeeeeeee!!!"



REM SFX
createsound("explosion",SFX_EXPLODE,1000,2000,3500,5,0.1,0.05,0,0,0,10)
createsound("ship_bullet",SFX_SHIP_BULLET,1500,100,4000,0.20,1.00,0.00,0,0.00,0,10.00)
`createsound("alien_fall2",SFX_FALL,3000,2200,900,0.01,3.00,0.00,0,0.00,0,0.00)
createsound("alien_fall",SFX_FALL,2000,100,2000,-0.09,6.78,0.30,649,0.00,0,0.00)
createsound("block",SFX_BLOCK_HIT,500,41,4000,0.25,8.60,0.00,0,0.00,0,5.82)
createsound("alien_bullet",SFX_ALIEN_BULLET,1200,30,2000,0.06,3.96,0.00,0,0.00,0,1.06)
`createsound("title",SFX_TITLE,1186,3000,4000,0.01,0.00,0.55,3,0.00,0,10.00)
createsound("title",SFX_TITLE,1186,3000,4000,0.0,0.00,1.0,3,0.00,0,10.00)
createsound("beat1",SFX_1,150,100,8000,0.0,0.0,0.0,0,0.0,0,10.00)
createsound("beat2",SFX_2,120,100,8000,0.0,0.0,0.0,0,0.0,0,10.00)
createsound("ufo",SFX_UFO,500,2000,5000,0.00,0.00,0.02,2,0.00,0,10.00)


sync on
sync rate 40
backdrop on
color backdrop 0

shots = 0
hits = 0


dim shipBlow(ship.sx, ship.sy) as Particle



gosub intro
gosub play_game







REM +++++++++++++ INTRO +++++++++++++++
intro:

   for s = 1 to array count(aliens())
      if sprite exist(s) = 1 then hide sprite s
   next s

   dim colors(1) as dword

   colors(0) = rgb(0,192,0)
   colors(1) = rgb(0,0,192)

   for i = 1 to starfield_size
      starfield#(i,0) = rnd(screen width())
      starfield#(i,1) = rnd(screen height())
      starfield#(i,2) = atanfull(starfield#(i,0) - 320, starfield#(i,1) - 240)
   next i

   dim intro(47,17) as block

   restore title
   for y = 1 to 17
      for x = 1 to 47
         read intro(x,y).state
      next x
   next y

   offsetX = (640-(48*INTRO_MAX_SIZE))/2.0
   delay = 100
   timestamp = timer()
   row = 1

   play sound SFX_TITLE

   REPEAT
      cls

      ink 0xffffff,0
      for i = 1 to starfield_size
         starfield#(i,0) = starfield#(i,0) + sin(starfield#(i,2))*4
         starfield#(i,1) = starfield#(i,1) + cos(starfield#(i,2))*4
         dot starfield#(i,0),starfield#(i,1)
         if starfield#(i,0) > screen width() or starfield#(i,0) < 0 or starfield#(i,1) > screen height() or starfield#(i,1) < 0
            starfield#(i,0) = 320 + rnd(10)-5
            starfield#(i,1) = 240 + rnd(10)-5
            starfield#(i,2) = atanfull(starfield#(i,0) - 320, starfield#(i,1) - 240)
         endif
      next i


      if timer() >= timestamp+delay
         timestamp = timer()
         if row < 17 then inc row
         sizeFlag = 1
      else
         sizeFlag = 0
      endif

      for y = 1 to row
         for x = 1 to 47
            if intro(x,y).state = 1
               if sizeFlag = 1 then intro(x,y).size = intro(x,y).size + 2
               if intro(x,y).size > INTRO_MAX_SIZE then intro(x,y).size = INTRO_MAX_SIZE
               size = intro(x,y).size/2.0
               ink colors(rnd(1)),0
               box offsetX+(x*INTRO_MAX_SIZE-size),50+y*INTRO_MAX_SIZE-size,offsetX+(x*INTRO_MAX_SIZE+size),50+y*INTRO_MAX_SIZE+size
            endif
         next x
      next y

      center text 320,350, "Play Game"
      w = text width("Play Game")/2 + 4
      h = text height("P")+2

      if mousex() > 320-w and mousex() < 320+w and mousey() > 350 and mousey() < 350+h
         ink rgb(0,255,0),0
         line 320-w,350,320+w,350
         line 320-w,350+h,320+w,350+h
         line 320-w,350,320-w,350+h
         line 320+w,350,320+w,350+h
         if mouseclick() = 1 then start = 1
      endif
      sync
   UNTIL start = 1
RETURN




REM +++++++++++++ GAME LOOP +++++++++++++++
PLAY_GAME:

   hide mouse

   rem 0 = movement delay
   rem 1 = fire rate
   rem 2 = bullet speed
   dim levels(3,2)
   levels(1,0) = 400
   levels(1,1) = 50
   levels(1,2) = 3
   levels(2,0) = 300
   levels(2,1) = 40
   levels(2,2) = 3
   levels(3,0) = 150
   levels(3,1) = 30
   levels(3,2) = 4

   oldLevel = 0
   LEVEL = 1

   lives = 3



   for s = 1 to array count(aliens())
      `if sprite exist(s) then show sprite s
   next s


   score = 0
   DO
      cls

      if alien_dead_count = 50 then inc LEVEL
      if LEVEL > 3 then gameOver("No more levels to play!")


      REM if level changes
      if LEVEL <> oldLevel

         stamp = timer()
         repeat
            seconds = 3 - (timer()-stamp)/1000
            center text screen width()/2, screen height()/2,"Get ready in "+str$(seconds)
            sync
         until timer() > stamp+4000


         alien_dead_count = 0
         oldLevel = LEVEL
         alien_delay = levels(LEVEL,0)
         alien_fire_rate = levels(LEVEL,1)
         alien_bullet_speed = levels(LEVEL,2)

         backgroundMusic = SFX_1
         timestamp2 = timer()


         rem restore blocks
         for i = 1 to 3
            restore block
            for y = 1 to 6
               for x = 1 to 10
                  read z
                  blocks(i,y,x) = z
               next x
            next y
         next i

         rem reinitialize aliens
         spacingX = 10*ALIEN_SIZE*2
         spacingY = 8*ALIEN_SIZE*2

         offsetX = (screen width() - 10*spacingX)/2.0
         offsetY = 20

         undim aliens()
         rows = 5
         columns = 10
         dim aliens(rows*columns) as Alien

         j = 0
         for y = 1 to rows
            for i = 1 to columns
               inc j
               aliens(j).s = j
               aliens(j).x = offsetX + (i-1)*spacingX
               aliens(j).y = offsetY + y*spacingY
               aliens(j).img = rnd(1)+1
               sprite j,aliens(j).x, aliens(j).y,aliens(j).img
               show sprite j
               set sprite diffuse j, rnd(205)+50,rnd(205)+50,rnd(205)+50
               offset sprite j, 0,0
               rotate sprite j, 0
            next i
         next y

         rem reposition spaceship
         ship.x = 302
      endif : `end load new level



      REM starfield
      lock pixels
        for i = 1 to starfield_size
           if starfield#(i,1) < 0
              starfield#(i,0) = rnd(screen width())
              starfield#(i,1) = screen height()
           endif
           pdot(starfield#(i,0), starfield#(i,1),0xffffff)
           starfield#(i,1) = starfield#(i,1) - 1
        next i
      unlock pixels


      rem update alien positions every 4/10 of a second
      if timer() >= timestamp+alien_delay
         timestamp = timer()
         update = 1
      else
         update = 0
      endif


      if update = 1
         play sound backgroundMusic
         inc backgroundMusic
         if backgroundMusic > SFX_2 then backgroundMusic = SFX_1
      endif


      rem ufo movement across top
      if timer() >= timestamp2+10000 and updateUFO = 0
         timestamp2 = timer()
         if rnd(3) = 1
            loop sound SFX_UFO
            updateUFO = 1
            ux = -sprite width(SPRT_UFO)
            show sprite SPRT_UFO
         endif
      endif

      if updateUFO = 1
         ux = ux + 2
         sprite SPRT_UFO,ux,20,IMG_UFO
         if ux > screen width()
            updateUFO = 0
            stop sound SFX_UFO
         endif
      endif



      rem loop through aliens
      for i = 1 to array count(aliens())
         if fire = 1
            if aliens(i).dead = FALSE
               if overlap(aliens(i).x,aliens(i).y,aliens(i).x+ALIEN_SX,aliens(i).y+ALIEN_SY,bullet.x,bullet.y,bullet.x+6,bullet.y+20) = 1
                  fire = 0
                  aliens(i).dead = TRUE
                  play sound SFX_FALL
                  inc hits
                  inc shots
                  offset sprite aliens(i).s, ALIEN_SX/2, ALIEN_SY/2
                  aliens(i).x = aliens(i).x + ALIEN_SX/2
                  aliens(i).y = aliens(i).y + ALIEN_SY/2
                  inc score, 10
                  if rnd(3) = 1
                     aliens(i).message = rnd(array count(messages$())-1)+1
                  else
                     aliens(i).message = -1
                  endif
               endif
            endif
         endif

         rem position sprite
         sprite aliens(i).s, aliens(i).x, aliens(i).y, aliens(i).img

         if aliens(i).dead = TRUE
            rotate sprite aliens(i).s, wrapvalue(sprite angle(aliens(i).s)+10)
            `rotate sprite aliens(i).s, wrapvalue(sprite angle(i)+10)
            if aliens(i).message > -1 then displayMessage(sprite x(aliens(i).s),sprite Y(aliens(i).s),messages$(aliens(i).message))
            aliens(i).y = aliens(i).y + 5
            if aliens(i).y > screen height()+30
               aliens(i).dead = FALSE
               array delete element aliens(), i
               inc alien_dead_count, 1
               dec i, 1
            endif
         else
            if update = 1
               if rnd(alien_fire_rate) = 1
                  addBullet(aliens(i).x+sprite width(aliens(i).s)/2, aliens(i).y+sprite height(aliens(i).s))
                  play sound SFX_ALIEN_BULLET
               endif
               aliens(i).x = aliens(i).x + direction
               if aliens(i).x+ALIEN_SX+2 >= screen width() then dropFlag = 1
               if aliens(i).x <= 2 then dropFlag = 1
               aliens(i).img = aliens(i).img + 1
               if aliens(i).img > 2 then aliens(i).img = 1
            endif
         endif
      next i

      rem if an alien hit a side, drop the aliens down further
      if dropFlag = 1
         dropFlag = 0
         if isNegative(direction) = 1
            direction = 4
         else
            direction = -4
         endif
         for i = 1 to array count(aliens())
            if aliens(i).dead = FALSE then aliens(i).y = aliens(i).y+ALIEN_SY
         next i
      endif


      REM alien bullets
      for i = 1 to array count(bullets())
         REM collision check with guarding blocks
         for b = 0 to 2
            for y = 1 to 6
               for x = 1 to 10
                  if blocks(b+1,y,x) = 1
                     xoffset = b*213 + 75
                     yoffset = 400
                     if overlap(bullets(i).x-3,bullets(i).y-3,bullets(i).x+3,bullets(i).y+3,xoffset+x*BLOCK_SIZE,yoffset+y*BLOCK_SIZE,xoffset+(x+1)*BLOCK_SIZE,yoffset+(y+1)*BLOCK_SIZE)
                        blocks(b+1,y,x) = 0
                        array delete element bullets(), i
                        play sound SFX_BLOCK_HIT
                        goto skip
                     endif
                  endif
               next x
            next y
         next b

         REM draw the bullets then update position for next loop
         drawBullet(bullets(i).x, bullets(i).y, 3)
         bullets(i).y = bullets(i).y + alien_bullet_speed

         if dead = 0 and overlap(bullets(i).x-3,bullets(i).y-3,bullets(i).x+3,bullets(i).y+3,ship.x,ship.y,ship.x+ship.sx,ship.y+ship.sy)
            array delete element bullets(), i
            dead = 1
            dec lives
            if lives < 0 then gameOver("Game Over")
            hide sprite 100
            for x = 1 to ship.sx
               for y = 1 to ship.sy
                  shipBlow(x,y).x = ship.x+x
                  shipBlow(x,y).y = ship.y+y
                  shipBlow(x,y).a = rnd(180)+180
                  shipBlow(x,y).v = rnd(10)+5
               next y
            next x
            play sound SFX_EXPLODE
         else
            if bullets(i).y > screen height() then array delete element bullets(),i : alive = 0
         endif

         REM just a label to break out of many nested loops
         skip:
      next i


      REM guarding blocks
      ink rgb(128,128,128),0

      for i = 0 to 2
         for y = 1 to 6
            for x = 1 to 10
               if blocks(i+1,y,x) = 1
                  xoffset = i*213 + 75
                  yoffset = 400
                  box xoffset+x*BLOCK_SIZE,yoffset+y*BLOCK_SIZE,xoffset+(x+1)*BLOCK_SIZE,yoffset+(y+1)*BLOCK_SIZE
               endif
            next x
         next y
      next i


      ink rgb(100,255,100),0

      if dead = 0
         REM ship controls
         gosub _CONTROLS
         REM display ship
         sprite 100, ship.x, ship.y, IMG_SHIP
      else
         lock pixels
         for x = 1 to ship.sx
            for y = 1 to ship.sy
               px = shipBlow(x,y).x + shipBlow(x,y).v*cos(shipBlow(x,y).a)*t#
               py = shipBlow(x,y).y + shipBlow(x,y).v*sin(shipBlow(x,y).a)*t# + 0.5*pGRAVITY*t#^2
               pDot(px,py,rgb(100,255,100))
            next y
         next x
         unlock pixels
         t# = t# + 0.5

         if t# >= 50
            t# = 0
            dead = 0
            rem reposition spaceship
            ship.x = 302
            sprite 100, ship.x, ship.y, IMG_SHIP
            show sprite 100
         endif
      endif

      rem update bullet
      if fire = 1
         for y = 1 to 10
            for x = 1 to 3
               if bulletImage(x,y)
                  rem draw bullet
                  box bullet.x+x*BULLET_SIZE, bullet.y+y*BULLET_SIZE,bullet.x+(x+1)*BULLET_SIZE, bullet.y+(y+1)*BULLET_SIZE
                  rem ufo collision
                  if updateUFO = 1
                     if overlap(bullet.x+x*BULLET_SIZE, bullet.y+y*BULLET_SIZE,bullet.x+(x+1)*BULLET_SIZE, bullet.y+(y+1)*BULLET_SIZE, sprite x(SPRT_UFO),sprite y(SPRT_UFO),sprite x(SPRT_UFO)+sprite width(SPRT_UFO),sprite y(SPRT_UFO)+sprite height(SPRT_UFO))
                        updateUFO = 0
                        fire = 0
                        hide sprite SPRT_UFO
                        stop sound SFX_UFO
                        play sound SFX_EXPLODE
                        inc score, 100
                        inc hits
                        inc shots
                        goto skip2
                     endif
                  endif
                  rem bullet collision with guarding blocks
                  for b = 0 to 2
                     for yy = 1 to 6
                        for xx = 1 to 10
                           if blocks(b+1,yy,xx) = 1
                              xoffset = b*213 + 75
                              yoffset = 400
                              if overlap(bullet.x+x*BULLET_SIZE, bullet.y+y*BULLET_SIZE,bullet.x+(x+1)*BULLET_SIZE, bullet.y+(y+1)*BULLET_SIZE,xoffset+xx*BLOCK_SIZE,yoffset+yy*BLOCK_SIZE,xoffset+(xx+1)*BLOCK_SIZE,yoffset+(yy+1)*BLOCK_SIZE)
                                 blocks(b+1,yy,xx) = 0
                                 play sound SFX_BLOCK_HIT
                                 fire = 0
                                 inc shots
                                 goto skip2
                              endif
                           endif
                        next xx
                     next yy
                  next b
               endif
            next x
         next y
         bullet.y = bullet.y - bullet.speed
         if bullet.y < -10 then fire = 0 : inc shots
         skip2:
      endif

      center text 320,1,"Score: "+str$(score)
      if shots > 0 then acc = hits/(shots*1.0) * 100.0
      text 1,1,"Accuracy: "+str$(acc)+"%"
      text 540,1,"Lives: "+str$(lives)
      `text 540,1,"FPS: "+str$(screen fps())

      sync
   LOOP
RETURN






REM player controls
_CONTROLS:
   speed = 2
   if rightkey() then inc ship.x,speed
   if leftkey() then dec ship.x,speed

   rem fire bullet
   if spacekey() = 1 and fire=0 and spaceFlag = 0
      spaceFlag = 1
      play sound SFX_SHIP_BULLET
      fire = 1
      bullet.x = ship.x + ship.sx/2
      bullet.y = ship.y
   endif
   if spacekey() = 0 then spaceFlag = 0

   if ship.y > screen height()-ship.sy then ship.y = screen height()-ship.sy
   if ship.y < upper_boundary then ship.y = upper_boundary
   if ship.x < 0 then ship.x = 0
   if ship.x > screen width() - ship.sx then ship.x = screen width() - ship.sx
RETURN


function isNegative(x as integer)
   a = x >> 31
endfunction a



function overlap(ax1,ay1,ax2,ay2,bx1,by1,bx2,by2)
   if ax1 < bx2 and ax2 > bx1 and ay1 < by2 and ay2 > by1 then exitfunction 1
endfunction 0



function displayMessage(x,y,t$)
   length = text width(t$)+20
   if x-length > 0 then x = x-length
   y = y - text height(t$)*2
   ink rgb(255,255,255),0
   text x+10,y+10,t$
endfunction



function addBullet(x,y)
   array insert at bottom bullets()
   i = array count(bullets())
   bullets(i).x = x
   bullets(i).y = y
endfunction



function drawBullet(cx as integer, cy as integer, radius as integer)
   lock pixels
   r2# = radius*radius
   for x = cx-radius to cx+radius
      for y = cy-radius to cy+radius
         d# = ((cx-x)^2 + (cy-y)^2)
         if d# <= r2#
            t# = d#/r2#
            pDot(x,y,fade(rgb(255,255,255), rgb(0,80,255), t#))
         endif
      next y
   next x
   unlock pixels
endfunction


REM
function pDot(x as integer, y as integer, color_value as dword )
   if x > 0 and x < screen width() and y > 0 and y < screen height()
      start = get pixels pointer()
      repeat_number = get pixels pitch()
      bits_per_pixel = bitmap depth(num)/8
      pointer = start + y*repeat_number + x*bits_per_pixel
      *pointer = color_value
   endif
endfunction


REM
function fade(a as dword, b as dword, d as float)
   r1 = rgbr(a)
   g1 = rgbg(a)
   b1 = rgbb(a)

   r2 = rgbr(b)
   g2 = rgbg(b)
   b2 = rgbb(b)

   r = r1 + (r2-r1)*d
   g = g1 + (g2-g1)*d
   b = b1 + (b2-b1)*d

   c as dword
   c = rgb(r,g,b)
endfunction c



REM Gracefully swiped from Ric!
function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#,attack#)

   outWord as word
   dword1 as dword: dword2 as dword: dword3 as dword: dword4 as dword
   dword5 as dword: dword6 as dword: dword7 as dword

   samples=int((length#/1000)*44100)

   if memblock exist(1) then delete memblock 1
   make memblock 1,samples*2+28

   ` write 28 memblock header bytes
   dword1=1      ` gg query: is this the number of channels?
   dword2=2      ` gg query: is this the number of bytes per sample?
   dword3=22050  ` gg query: seems to be half the number of samples per second - why?
   dword4=88200  ` gg query: is this the number of bytes per second?
   dword5=4      ` gg query: what does this represent?
   dword6=16     ` gg query:     (ditto)            ?
   dword7=0      ` gg query:     (ditto)            ?

   position=0
   write memblock dword 1, position, dword1 : inc position,4
   write memblock dword 1, position, dword2 : inc position,4
   write memblock dword 1, position, dword3 : inc position,4
   write memblock dword 1, position, dword4 : inc position,4
   write memblock dword 1, position, dword5 : inc position,4
   write memblock dword 1, position, dword6 : inc position,4
   write memblock dword 1, position, dword7 : inc position,4

   rem generate and write wave
   riseinloudness#=loudness#
   for x=1 to samples
      outInteger=int(sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#-fallinloudness#-riseinloudness#+tremelodepth#*sin(phi#)))*3.0
      if outInteger <-32767 then outInteger=-32767  ` gg query: is this the valid range?
      if outInteger>32767 then outInteger=32767     ` gg query:       (ditto)          ?
      outWord=outInteger
      inc theta#,vibratospeed#
      inc phi#,tremelospeed#
      dec frequency#,bend#

      if fallinloudness#<loudness#
         inc fallinloudness#,decay#
      endif

      if riseinloudness#>0
         dec riseinloudness#,attack#
      endif

      write memblock word 1, position, outWord : inc position,2
   next x

   if sound exist(soundnumber)=1 then delete sound soundnumber

   make sound from memblock 999, 1
   clone sound soundnumber, 999

   delete sound 999
   ` memblock no longer required
   delete memblock 1

endfunction


function gameOver(s$)

   if sound playing(SFX_UFO) then stop sound SFX_UFO

   repeat
      center text 320,240,s$
      if s$ = "Game Over"
         center text 320,260, "All your base are belong to them!"
      else
         center text 320,260, "All their base are belong to you!"
      endif
      center text 320,300, "Press return key to exit"
      sync
   until returnkey()
   end

endfunction


alien1:
data 0,0,1,0,0,0,0,1,0,0
data 0,0,0,1,0,0,1,0,0,0
data 0,0,1,1,1,1,1,1,0,0
data 0,1,1,0,1,1,0,1,1,0
data 1,1,1,1,1,1,1,1,1,1
data 1,0,1,1,1,1,1,1,0,1
data 1,0,1,0,0,0,0,1,0,1
data 0,0,0,1,0,0,1,0,0,0


alien2:
data 0,0,1,0,0,0,0,1,0,0
data 1,0,0,1,0,0,1,0,0,1
data 1,0,1,1,1,1,1,1,0,1
data 1,1,1,0,1,1,0,1,1,1
data 1,1,1,1,1,1,1,1,1,1
data 0,0,1,1,1,1,1,1,0,0
data 0,0,1,0,0,0,0,1,0,0
data 0,1,0,0,0,0,0,0,1,0


ship1:
data 0,0,0,1,0,0,0
data 0,0,1,1,1,0,0
data 0,0,1,1,1,0,0
data 0,1,1,1,1,1,0
data 1,1,1,1,1,1,1
data 1,1,1,1,1,1,1
data 0,1,1,1,1,1,0


block:
data 0,0,1,1,1,1,1,1,0,0
data 0,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,1,1
data 1,0,0,0,0,0,0,0,0,1


bulletData:
data 0,1,0
data 1,0,0
data 1,0,0
data 0,1,0
data 0,0,1
data 0,0,1
data 0,1,0
data 1,0,0
data 1,0,0
data 0,1,0

title:
data 0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,1,1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,1,1,1,1,0,0,1,1,1,1,1,0,1,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,1,0,0,0,0,0,1,0,0,0,1,0,0,1,1,1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0
data 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
data 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
data 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
data 1,1,1,1,1,0,1,1,0,0,1,0,1,0,0,0,1,0,0,1,1,1,0,0,1,1,1,0,0,0,1,1,1,1,1,0,1,1,1,1,0,0,1,1,1,1,1
data 0,0,1,0,0,0,1,0,1,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,1,0,0,0,0,0,1,0,0,0,1,0,1,0,0,0,0
data 0,0,1,0,0,0,1,0,1,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,1,0,1,0,0,0,0
data 0,0,1,0,0,0,1,0,1,0,1,0,1,0,0,0,1,0,1,1,1,1,1,0,1,0,0,0,1,0,1,1,1,1,1,0,1,1,1,1,0,0,1,1,1,1,1
data 0,0,1,0,0,0,1,0,1,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,1
data 0,0,1,0,0,0,1,0,1,0,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,0,0,1,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,1
data 1,1,1,1,1,0,1,0,0,1,1,0,0,0,1,0,0,0,1,0,0,0,1,0,1,1,1,0,0,0,1,1,1,1,1,0,1,0,0,0,1,0,1,1,1,1,1

ufo:
data 0,0,1,1,1,1,0,0
data 0,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,0
data 0,0,1,1,1,1,0,0

REM Project: Space Invaders
REM Created: 7/11/2006 10:41:16 AM
REM
REM ***** Main Source File *****
REM
createsound("explosion",1,100,1000,8000,0.01,0,0,0,0,0,10)
createsound("opening1",2,400,2000,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("opening2",3,350,2000,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("opening3",4,300,2000,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("opening4",5,350,1500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("opening5",6,375,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("opening6",7,256,1000,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("opening6",8,256,4000,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("opening7",9,213,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("opening9",10,150,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("shot",16,100,100,8000,0,1.5,0,0,0,0,10)
createsound("enemy,explosion",17,500,500,8000,0,0,0.05,0.4,0.5,1800,10)
createsound("move",18,256,100,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("down",19,235,100,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("ending 1",20,128,1000,8000,0,0,0,0,0,0,10)
createsound("ending 2",21,118,1000,4000,0,0,0,0,0,0,10)
createsound("ending 3",22,98,6000,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen1",23,293.67,1000,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen2",24,440,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen3",25,349.23,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen4",26,392,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen5",27,329.63,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen6",28,261.6,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen7",29,220,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen8",30,146.83,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen9",31,493.88,500,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen10",32,146.83,1000,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen11",33,329.63,1000,4000,0,0,0.05,0.3,0.05,1800,10)
createsound("titlescreen12",34,493.88,1000,4000,0,0,0.05,0.3,0.05,1800,10)
dim dotx(300)
dim doty(300)
dim shots(2)

global finnalnote=1
make camera 1
dim l(8)
dim fire(4)
dim score#(2)
dim score(2)
dim ri(2)
sync on

move camera 1,-30




make object box 50,1,1,1
make mesh from object 1,50
for i=1 to 26
add limb 50,i,1
next i
lim=0

restore topalien
for y=1 to 7
   for x=1 to 7
 if y=7 and x=3 then l(1)=lim
   if y=7 and x=5 then l(2)=lim
   read r
      if x=4 and y=4 then goto skip1
         if r=1
         offset limb 50,lim,4-x,4-y,0
         lim=lim+1
         endif
      skip1:
   next x
next y

scale object 50,100/7,100/7,100/7
make mesh from object 2,50



make object box 51,1,1,1
lim=0

for i=1 to 22
add limb 51,i,1
next i

restore twoalien
for y=1 to 7
   for x=1 to 9
   if y=5 and x=1 then l(3)=lim
   if y=5 and x=7 then l(4)=lim
   read r
      if x=5 and y=4 then goto skip2
         if r=1
         offset limb 51,lim,5-x,4-y,0
         lim=lim+1
         endif
      skip2:
   next x
next y

scale object 51,100/9,100/7,100/7
make mesh from object 3,51
position object 51,500,0,0



make object box 52,1,1,1
lim=0
for i=1 to 33
add limb 52,i,1
next i

restore threealien
for y=1 to 9
   for x=1 to 7
   if y=9 and x=1 then l(5)=lim
   if y=9 and x=7 then l(6)=lim
   read r
      if x=4 and y=5 then goto skip3
         if r=1
         offset limb 52,lim,4-x,5-y,0
         lim=lim+1
         endif
      skip3:
   next x
next y

scale object 52,100/7,100/8,100/7
make mesh from object 4,52
position object 52,500,0,0



make object box 53,1,1,1
lim=0
for i=1 to 23
add limb 53,i,1
next i

restore fouralien
for y=1 to 7
   for x=1 to 7
   if y=7 and x=3 then l(7)=lim
   if y=7 and x=5 then l(8)=lim
   read r
      if x=4 and y=4 then goto skip4
         if r=1
         offset limb 53,lim,4-x,4-y,0
         lim=lim+1
         endif
      skip4:
   next x
next y

scale object 53,100/7,100/7,100/7
make mesh from object 5,53
position object 53,500,0,0





color backdrop 1,0
make object cone 60,5
color object 60,rgb(0,0,75)
make object cone 61,1
move object up 61,2.05
color object 61,0
set ambient light 1
move object down 50,5
color object 50,69458459
p=-1
s=2
do
if sound playing(s-1)=0 and s<8 and thru<2
if s=7 and sound playing(6)=0
   s=2
   thru=thru+1
endif
play sound s
s=s+1
endif
if mouseclick()=1 then goto game
a$="The aliens were looking for a place to expand, more land, more resources."
b$="One of the reconnaissance ships found somthing amazing..."
text screen width()/2-text width(a$)/2,screen height()-text height(a$)*3,a$
text screen width()/2-text width(b$)/2,screen height()-text height(a$)*2,b$
wait 1
tic=tic+1
if tic=400 then goto part1
sync
loop


do
part1:
if sound playing(s-1)=0 and s<8 and thru<2
if s=7 and sound playing(6)=0
   s=2
   thru=thru+1
endif
play sound s
s=s+1
endif
a$="Sjxcigonsj fjxidl ixnweisj."
b$="Translation: Turn on those headlights its dark out here."
text screen width()/2-text width(a$)/2,screen height()-text height(a$)*3,a$
text screen width()/2-text width(b$)/2,screen height()-text height(a$)*2,b$
move object right 50,0.125
wait 50
right=right+1
if right>80 then goto shipleft
sync
loop

shipleft:
do
if sound playing(s-1)=0 and s<8 and thru<2
if s=7 and sound playing(6)=0
   s=2
   thru=thru+1
endif
play sound s
s=s+1
endif
if mouseclick()=1 then goto game
a$="Sjxcigonsj fjxidl ixnweisj."
b$="Translation: Turn on those headlights its dark out here."
text screen width()/2-text width(a$)/2,screen height()-text height(a$)*3,a$
text screen width()/2-text width(b$)/2,screen height()-text height(a$)*2,b$
move object left 50,0.125
wait 50
right=right+1
if right>160 then goto suckup1
sync
loop

suckup1:
set ambient light 50
do
if sound playing(s-1)=0 and s<8 and thru<2
if s=7 and sound playing(6)=0
   s=2
   thru=thru+1
endif
play sound s
s=s+1
endif
if thru=2
if sound playing(2)=0 and sound playing(6)=0 and p=-1
play sound 7
p=0
endif
if sound playing(7)=0 and p=0
play sound 9
p=1
endif
if sound playing(9)=0 and p=1
play sound 7
p=2
endif
if sound playing(7)=0 and p=2
play sound 9
p=3
endif
if sound playing(9)=0 and p=3
play sound 10
p=4
endif
if sound playing(10)=0 and p=4
play sound 9
p=5
endif
if sound playing(9)=0 and p=5
play sound 7
p=6
endif
endif
if mouseclick()=1 then goto game
a$="Axidksnlsinenshad!!!"
b$="Translation: IT'S A WORMHOLE. GET OUT OF HERE!"
text screen width()/2-text width(a$)/2,screen height()-text height(a$)*3,a$
text screen width()/2-text width(b$)/2,screen height()-text height(a$)*2,b$
move object up 50,0.06
wait 50
right=right+1
if right>250 then goto suckup2
sync
loop

suckup2:
make light 1
position light 1,0,0,250
point light 1,0,20,400
delete object 60
delete object 61
make object sphere 60,5
set ambient light 1
color object 60,rgb(0,0,100)
make object sphere 61,100
move object 61,400
move object up 61,40
color object 61,rgb(200,200,0)
do
if sound playing(s-1)=0 and s<8 and thru<2
if s=7 and sound playing(6)=0
   s=2
   thru=thru+1
endif
play sound s
s=s+1
endif
if thru=2
if sound playing(2)=0 and sound playing(6)=0 and p=-1
play sound 7
p=0
endif
if sound playing(7)=0 and p=0
play sound 9
p=1
endif
if sound playing(9)=0 and p=1
play sound 7
p=2
endif
if sound playing(7)=0 and p=2
play sound 9
p=3
endif
if sound playing(9)=0 and p=3
play sound 10
p=4
endif
if sound playing(10)=0 and p=4
play sound 9
p=5
endif
if sound playing(9)=0 and p=5
play sound 8
p=6
endif
endif
if mouseclick()=1 then goto game
a$="Dskxoien skdinklll ixelkshen."
b$="Translation: Contact our mothership. "
c$="We've found our new home."
text screen width()/2-text width(a$)/2,screen height()-text height(a$)*3,a$
text screen width()/2-text width(b$)/2,screen height()-text height(a$)*2,b$
text screen width()/2-text width(c$)/2,screen height()-text height(a$)*1,c$
wait 50
right=right+1
if right>400 then goto game
sync
loop

sw=1
p=-1



game:
for i=2 to 6
if sound playing(i)=1 then stop sound i
next i
if light exist(1)=1 then delete light 1
if object exist(61)=1 then delete object 61
if object exist(60)=1 then delete object 60
position object 50,0,-8,0
sync
move camera 1,-10
make light 5
make light 6
position light 5,0,0,30
position light 6,0,0,-30
point light 5,0,0,0
point light 6,0,0,0

make object box 57,1,1,1
make mesh from object 1,57
lim=0
for i=1 to 32
add limb 57,i,1
next i
scale object 57,100/2,100/2,100
position object 57,0,16,0
color object 57,rgb(0,0,150)

restore the
for y=1 to 5
   for x=1 to 15
   read r
      if x=7 and y=3 then goto skip7
         if r=1
         offset limb 57,lim,x-7,3-y,0
         lim=lim+1
         endif
      skip7:
   next x
   wait 100
   sync
next y



make object box 58,1,1,1
lim=0
for i=1 to 82
add limb 58,i,1
next i
scale object 58,100/2,100/2,100
position object 58,11,3,0
color object 58,rgb(100,0,0)

restore renewed
for y=1 to 5
   for x=1 to 35
   read r
      if x=18 and y=3 then goto skip8
         if r=1
         offset limb 58,lim,x-18,3-y,0
         lim=lim+1
         endif
      skip8:
   next x
   wait 100
   sync
next y



make object box 59,1,1,1
lim=0
for i=1 to 51
add limb 59,i,1
next i
scale object 59,100/2,100/2,100
position object 59,-16,0,0
color object 59,rgb(0,0,150)

restore space
for y=1 to 5
   for x=1 to 23
   read r
      if x=12 and y=3 then goto skip9
         if r=1
         offset limb 59,lim,x-23,3-y,0
         lim=lim+1
         endif
      skip9:
   next x
   wait 100
   sync
next y


make object 600,2,0
lim=0
for i=1 to 90
add limb 600,i,2
color object 600,rgb(0,0,150)

next i
position object 600,7,-10,0
scale object 600,100/2,100/2,100
restore invaders
for y=1 to 5
   for x=1 to 43
   read r
      if x=22 and y=3 then goto skip10
         if r=1
         offset limb 600,lim,x-22,3-y,0
         lim=lim+1
         endif
      skip10:
   next x
   wait 100
   sync
next y










change#=1
dif=1
a=1
life=3
dim button1(100)

set text size 40
set text font "Arial"
randomize timer()


d$="Created by Spopovich"
e$="Press the space key to continue."



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

for i=1 to 300
dotx(i)=rnd(screen width())
doty(i)=rnd(screen height())
next i


ink rgb(255,255,255),rgb(255,255,255)
move camera -5

global p1=-1
global pa=0


for i=1 to 40
if spacekey()=1 then goto outofsound
move object down 57,0.25
move object left 58,0.25
move object right 59,0.25
move object up 600,0.25
wait 50
sync
for j=1 to 300
dot dotx(j),doty(j)
next j
next i

do
position camera 1,0,0,0
turn camera right 1,3
move camera 1,-35
text screen width()/2-text width(d$)/2,screen height()/2+text height(d$)*3,d$
text screen width()/2-text width(e$)/2,screen height()/2+text height(e$)*4,e$
if color=0
color object 57,rgb(0,0,150)
color object 58,rgb(100,0,0)
color object 59,rgb(0,0,150)
color object 600,rgb(0,0,150)
color=1
goto pastcolor
endif
color=color+1
if color=3
color object 57,rgb(100,0,0)
color object 58,rgb(0,0,150)
color object 59,rgb(100,0,0)
color object 600,rgb(100,0,0)
color=0
endif
pastcolor:
song(0,1,10,23,24,25,26,33,23,24,25,26,33)
song(1,2,10,23,27,25,26,33,23,26,24,28,34)
song(2,0,6,23,25,26,23,29,32,0,0,0,0)
wait 100
ink rgb(255,255,255),rgb(255,255,255)
for i=1 to 300
dot dotx(i),doty(i)
next i
ink rgb(100,0,100),rgb(100,0,100)
sync
if spacekey()=1 then goto outofsound
loop
outofsound:
delete camera 1
delete object 600
delete object 57
delete object 58
delete object 59
set text size 20
position object 50,500,0,0
color backdrop 0
sync
ink rgb(255,255,255),rgb(255,255,255)

global m=1
global p=1
delete light 5
delete light 6
butoncheck:

song(0,1,10,23,24,25,26,33,23,24,25,26,33)

song(1,2,10,23,27,25,26,33,23,26,24,28,34)

song(2,0,6,23,25,26,23,29,32,0,0,0,0)

button("Play",20,1,1)
button("Version",20,81,2)
button("Difficulty",20,162,3)
button("Controlls",20,243,4)
button("Players",20,324,5)
if p=2 then button("co-op or duel",20,405,6)
a$="version "+str$(a)
b$="difficulty "+str$(dif)
c$="players "+str$(p)
if m=1 then d$="co-op"
if m=2 then d$="duel"
text 0,0,a$
if p=2 then text text width(a$)+10,0,d$
text screen width()-text width(b$),0,b$
text screen width()-text width(b$)-10-text width(c$),0,c$
sync
goto butoncheck

play2:
cls
a$="Loading..."
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
sync
set ambient light 50

level#=1

lim=0
make object box 100,1,1,1
make mesh from object 1,100
for i=1 to 23
add limb 100,i,1
next i
restore ship
for y=1 to 7
   for x=1 to 7
   read r
      if x=4 and y=3 then goto skip
         if r=1
         offset limb 100,lim,4-x,3-y,0
         lim=lim+1
         endif
      skip:
   next x
next y

scale object 100,100/7,100/3,100/7
make mesh from object 9,100
make camera 1
color backdrop 1,0
set camera range 1,100000


restore ship
for y=1 to 7
   for x=1 to 7
   read r
      if r=1
         if x=4 and y=2 then ink rgb(150,0,0),rgb(150,0,0)
         if x=3 and y=3 then ink rgb(0,0,150),rgb(0,0,150)
         if x=1 and y=6 then ink rgb(255,255,255),rgb(255,255,255)
         if x=4 and y=6 then ink rgb(0,0,150),rgb(0,0,150)
         if x=7 and y=6 then ink rgb(255,255,255),rgb(255,255,255)
         if x=1 and y=7 then ink rgb(0,0,150),rgb(0,0,150)
         box x*3,y*6,(x+1)*3,(y+1)*6
      endif
   next x
next y
get image 1,0,0,30,60
cls
ink rgb(255,255,255),rgb(255,255,255)
line 20,0,20,40
line 0,20,40,20
get image 3,0,0,40,40
cls

if a=1
for i=1000 to 1300
a$="Loading..."
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
make object sphere i,5
position object i,rnd(4000)-2000,rnd(2500)-1250,rnd(1000)+1000
next i
endif

if a=2 and m=1
for i=1000 to 1300
a$="Loading..."
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
make object sphere i,5
position object i,rnd(4000)-2000,rnd(2500)+1000,rnd(2000)-1000
next i
endif

if a=2 and m=2
for i=1000 to 1150
a$="Loading..."
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
make object sphere i,5
position object i,rnd(4000)-2000,rnd(2500)+1000,rnd(2000)-1000
next i
for i=1151 to 3000
a$="Loading..."
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
make object sphere i,5
position object i,rnd(4000)-2000,-1*rnd(2500)-1000,rnd(2000)-1000
next i
endif

move camera 1,-30
move object down 100,12

color limb 100,0,rgb(150,0,0)

color limb 100,14,rgb(0,0,150)

for i=1 to 12
color limb 100,i,rgb(0,0,150)
next i

for i=16 to 23
color limb 100,i,rgb(0,0,150)
next i



move=1
randomize timer()
make light 1
position light 1,object position x(100),object position y(100)+1,object position z(100)
point light 1,0,15,0

if a=2
position camera 1,object position x(100),object position y(100),object position z(100)-1
pitch camera up 1,90
endif



for i=60 to 67
make object sphere i,.2
position object i,500,0,0
if a=1 then pitch object up i, 90
turn object right i,(i-60)*45
color object i,rgb(100,0,0)
next i




if p=2
clone object 98,100

color limb 98,0,rgb(0,0,150)

color limb 98,14,rgb(150,0,0)

for i=1 to 12
color limb 98,i,rgb(150,0,0)
next i

for i=16 to 23
color limb 98,i,rgb(150,0,0)
next i
endif

sprite 4,0,0,3

if a=2 and p=2
sprite 2,screen width()/2-sprite width(4)/2,screen height()/4+sprite height(4)/2,3
sprite 3,screen width()/2-sprite width(4)/2,screen height()/4*3+sprite height(4)/2,3
endif
delete sprite 4

if m=2 then goto duel

for i=1 to 10
clone object i,50
color object i,rgb(200,0,185)
position object i,1.5*i-8,15-1,0
if a=2 then pitch object up i,90
fix object pivot i
next i

for i=11 to 20
clone object i,51
color object i,5869458459
position object i,1.5*i-23,15-1-2,0
if a=2 then pitch object up i,90
fix object pivot i
next i

for i=21 to 30
clone object i,52
color object i,69458459
position object i,1.5*i-38,15-1-4,0
if a=2 then pitch object up i,90
fix object pivot i
next i

for i=31 to 40
clone object i,53
color object i,948459
position object i,1.5*i-53,15-1-6,0
if a=2 then pitch object up i,90
fix object pivot i
next i
sprite 4,0,0,3
if a=2 and p=1 then sprite 2,screen width()/2-sprite width(4)/2,screen height()/2+5,3

if a=2 and p=2
sprite 2,screen width()/2-sprite width(4)/2,screen height()/4,3
sprite 3,screen width()/2-sprite width(4)/2,screen height()/4*3,3
make camera 2
set camera view 1,0,0,screen width(),screen height()/2
set camera view 2,0,screen height()/2,screen width(),screen height()
color backdrop 2,0
pitch camera up 2,90
position camera 2,object position x(98),object position y(98),object position z(98)-1
endif



delete sprite 4

level:

if level#<16 then change#=level#

for i=1 to 10
position object i,1.5*i-8,15-1,0
show object i
next i

for i=11 to 20
position object i,1.5*i-23,15-1-2,0
show object i
next i

for i=21 to 30
position object i,1.5*i-38,15-1-4,0
show object i
next i

for i=31 to 40
position object i,1.5*i-53,15-1-6,0
show object i
next i


for i=201 to 204
if object exist(i)=0
make object box i,1,1,1
endif
next i

position object 201,-8.5,-9.5,0
position object 202,-7.5,-9.5,0
position object 203,-8.5,-10.5,0
position object 204,-7.5,-10.5,0

for i=205 to 208
if object exist(i)=0
make object box i,1,1,1
endif
next i

position object 205,-0.5,-9.5,0
position object 206,0.5,-9.5,0
position object 207,-0.5,-10.5,0
position object 208,0.5,-10.5,0

for i=209 to 212
if object exist(i)=0
make object box i,1,1,1
endif
next i

position object 209,8.5,-9.5,0
position object 210,7.5,-9.5,0
position object 211,8.5,-10.5,0
position object 212,7.5,-10.5,0

secret=rnd(39)+1
freezetime=400
four=0


down=0
sync
set text size 40
a$="Ready"
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
sync
wait 1000
a$="GO!"
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
sync
set text size 20
wait 1000

ai#=0

sprite 1,0,0,1
do
ti=timer()
set text size 30
level$="level "+str$(Change#)
lives$=str$(life)+"X     "
text 0,0,"player 1 score "+str$(score(1))
if p=2 then text 0,text height(lives$),"player 2 score "+str$(score(2))
text screen width()/2-text width(level$)/2,0,level$
text screen width()-text width(lives$),15,lives$
freeze$="Time is frozen for two seconds!"
if freeze>1 then text screen width()/2-text width(freeze$),screen width()/2-text height(freeze$),freeze$
if p=2
ship=2
if keystate(30)=1 then gosub left
if keystate(32)=1 then gosub right
if keystate(31)=1 then gosub fire
endif
ship=0
if rightkey()=1 then gosub right
if leftkey()=1 then gosub left
if spacekey()=1 then gosub fire
if returnkey()=1 and controlkey()=1 then goto screenshot
gosub hit
if death>0
death=death-1
   for i=60 to 67
   move object i,0.025
   if death=0
      if moveo>0
         if object exist (moveo)=1 then  hide object moveo
            position object i,500,0,0
         endif
      endif
   next i
   if moveo>0
   if object exist (moveo)=1 then move object moveo,-0.25
   endif
endif
if fire(0)>0 and object exist(101)=1 then move object up 101,01
if fire(0)=1 then delete object 101
if fire(0)>0 then fire(0)=fire(0)-1
if fire(0)<5
ticker1=0
tickaway1=0
endif
if fire2>0 and object exist(102)=1  then move object down 102,01
if fire2=1 then delete object 102
if fire2>0 then fire2=fire2-1
if fire3>0 and object exist(103)=1  then move object down 103,01
if fire3=1 then delete object 103
if fire3>0 then fire3=fire3-1
if fire4>0 and object exist(104)=1  then move object down 104,01
if fire4=1 then delete object 104
if fire4>0 then fire4=fire4-1
if fire(2)>0 and object exist(105)=1  then move object up 105,01
if fire(2)=1 then delete object 105
if fire(2)>0 then fire(2)=fire(2)-1
if fire(2)<5
ticker2=0
tickaway2=0
endif
if fire(3)>0 and object exist(108)=1  then move object up 108,01
if fire(3)=1 then delete object 108
if fire(3)>0 then fire(3)=fire(3)-1
if fire(4)>0 and object exist(107)=1  then move object up 107,01
if fire(4)=1 then delete object 107
if fire(4)>0 then fire(4)=fire(4)-1
if tickaway1=1 then ticker1=ticker1+1
if tickaway2=1 then ticker2=ticker2+1

if freezetime>0 then freezetime=freezetime-1
if freeze>0 then freeze=freeze-1
if freeze=0 then ai#=ai#+1
if ai#=20-change# and freeze<1 then gosub ai
gosub hit
if a=2 then position camera 1,object position x(100),object position y(100),object position z(100)-1
if a=2 and p=2 then position camera 2,object position x(98),object position y(98),object position z(98)-1

sprite 1,screen width()-sprite width(1),sprite height(1)/2-35,1

tm=timer()
ti=25-(tm-ti)
wait ti
sync
loop

right:
if ri(ship)<18
move object right 100-ship,1
endif
if ri(ship)<18 then ri(ship)=ri(ship)+1
return

left:
if ri(ship)>-18
move object left 100-ship,1
endif
if ri(ship)>-18 then ri(ship)=ri(ship)-1
return

fire:
if object exist(101+2*ship)=0
if ship=0 then tickaway1=1
if ship=2 then tickaway2=1
play sound 16
make object box 101+2*ship,.1,1,.1
shots(ship)=shots(ship)+1
set object radius 101+2*ship,.3
position object 101+2*ship,object position x(100-ship), object position y(100-ship),object position z(100-ship)
color object 101+2*ship,rgb(150,0,0)
fire(ship)=35
endif
if ship=2 and ticker2>10
   if object exist(107)=0 and object exist(105)=1
   shots(ship)=shots(ship)+1
   ticker2=0
   tickaway2=0
   play sound 16
   make object box 107,.1,1,.1
   set object radius 107,.3
   position object 107,object position x(100-ship), object position y(100-ship),object position z(100-ship)
   color object 107,rgb(150,0,0)
   fire(4)=35
   endif
endif
if ship=0 and ticker1>10
   if object exist(108)=0 and object exist(101)=1
   shots(ship)=shots(ship)+1
   ticker1=0
   tickaway1=0
   play sound 16
   make object box 108,.1,1,.1
   set object radius 108,.3
   position object 108,object position x(100-ship), object position y(100-ship),object position z(100-ship)
   color object 108,rgb(150,0,0)
   fire(3)=35
   endif
endif
return

ai:
play sound 18
for i=1 to 40
if object exist(i)
move object right i,move
   if i<11 and i>0
      if sw=1
      offset limb i,l(1),-2,-4,0
      offset limb i,l(2),2,-4,0
      else
      offset limb i,l(1),-1,-3,0
      offset limb i,l(2),1,-3,0
      endif
   endif
if i<21 and i>10
      if sw=1
      offset limb i,l(3),-4,0,0
      offset limb i,l(4),4,0,0
      else
      offset limb i,l(3),-3,-1,0
      offset limb i,l(4),3,-1,0
      endif
   endif
if i<31 and i>20
      if sw=1
      offset limb i,l(5),-3,-3,0
      offset limb i,l(6),3,-3,0
      else
      offset limb i,l(5),-3,-4,0
      offset limb i,l(6),3,-4,0
      endif
   endif
if i<41 and i>30
      if sw=1
      offset limb i,l(7),-2,-3,0
      offset limb i,l(8),2,-3,0
      else
      offset limb i,l(7),-1,-3,0
      offset limb i,l(8),1,-3,0
      endif
   endif

endif
next i
      if sw=1
      sw=0
      else
      sw=1
      endif
k=rnd(39)+1
if object visible(k)=1 and object exist(102)=0
play sound 16
make object box 102,.1,1,.1
fire2=35
position object 102,object position x(k), object position y(k),object position z(k)
color object 102,rgb(150,0,0)
endif
   if dif>1
      k=rnd(39)+1
         if object visible(k)=1 and object exist(103)=0
            play sound 16
            make object box 103,.1,1,.1
            fire3=35
            position object 103,object position x(k), object position y(k),object position z(k)
            color object 103,rgb(150,0,0)
         endif
   endif
   if dif>2
      k=rnd(39)+1
         if object visible(k)=1 and object exist(104)=0
            play sound 16
            make object box 104,.1,1,.1
            fire4=35
            position object 104,object position x(k), object position y(k),object position z(k)
            color object 104,rgb(150,0,0)
         endif
      endif

ai#=0
four=four+move
if four=8
play sound 19
for i=1 to 40
if object exist(i)=1
move object down i,1
endif
next i
down=down+1
move=-1
endif

if four=-8
for i=1 to 40
if object exist(i)=1
move object down i,1
endif
next i
down=down+1
move=1
endif
if down=15 then goto theend
return

hit:
if object exist(101)=1
set object collision to polygons 101
o=object collision(101,0)
if o>0
if 0<o and object visible(o)=1 and o<41 or o>200 and o<250
for i=60 to 67
position object i,object position x(o),object position y(o),object position z(o)
next i
death=20
fire(0)=0
if o<41
if moveo>0 then hide object moveo
moveo=o
else
delete object o
endif
delete object 101
play sound 17
if secret=o and freezetime>0 then freeze=80

if o<200
shots(1)=shots(1)+1
score(1)=score(1)+10
score#(1)=score(1)
score#(1)=score#(1)/1000
endif
if score#(1)>int(score#(1))-0.000001 and score#(1)<int(score#(1))+0.000001 and score#(1)>0 then life=life+1
if int(score(1)+score(2))=400*level# then goto youwin
endif
endif
endif


if object exist(105)=1
set object collision to polygons 105
o=object collision(105,0)
if o>0
if 0<o and object visible(o)=1 and o<41 or o>200 and o<250
for i=60 to 67
position object i,object position x(o),object position y(o),object position z(o)
next i
death=20

if o<41
if moveo>0 then hide object moveo
moveo=o
else
delete object o
endif
delete object 105
fire(2)=0
play sound 17
if secret=o and freezetime>0 then freeze=80
if o<200
score(2)=score(2)+10
score#(2)=score(2)
score#(2)=score#(2)/1000
endif
if score#(2)>int(score#(2))-0.000001 and score#(2)<int(score#(2))+0.000001 and score#(2)>0 then life=life+1
if int(score(1)+score(2))=400*level# then goto youwin
endif
endif
endif

if object exist(107)=1
set object collision to polygons 107
o=object collision(107,0)
if o>0
if 0<o and object visible(o)=1 and o<41 or o>200 and o<250
for i=60 to 67
position object i,object position x(o),object position y(o),object position z(o)
next i
death=20

if o<41
if moveo>0 then hide object moveo
moveo=o
else
delete object o
endif
delete object 107
fire(4)=0
play sound 17
if secret=o and freezetime>0 then freeze=80
if o<200
score(2)=score(2)+10
score#(2)=score(2)
score#(2)=score#(2)/1000
endif
if score#(2)>int(score#(2))-0.000001 and score#(2)<int(score#(2))+0.000001 and score#(2)>0 then life=life+1
if int(score(1)+score(2))=400*level# then goto youwin
endif
endif
endif

if object exist(108)=1
set object collision to polygons 108
o=object collision(108,0)
if o>0
if 0<o and object visible(o)=1 and o<41 or o>200 and o<250
for i=60 to 67
position object i,object position x(o),object position y(o),object position z(o)
next i
death=20

if o<41
if moveo>0 then hide object moveo
moveo=o
else
delete object o
endif
delete object 108
fire(3)=0
play sound 17
if secret=o and freezetime>0 then freeze=80
if o<200
shots(1)=shots(1)+1
score(1)=score(1)+10
score#(1)=score(1)
score#(1)=score#(1)/1000
endif
if score#(1)>int(score#(1))-0.000001 and score#(1)<int(score#(1))+0.000001 and score#(1)>0 then life=life+1
if int(score(1)+score(2))=400*level# then goto youwin
endif
endif
endif

if object exist(102)=1
set object collision to polygons 102
o2=object collision(102,0)
if o2=100 or o2=98
if o2=98 then ship=2
if o2=100 then ship=0
delete object 102
gosub losealife
fire2=0
endif
if object exist(102)=1
o2=object collision(102,0)
if o2>200
delete object o2
delete object 102
fire2=0
endif
endif
endif
o3=0
if object exist(103)=1
set object collision to polygons 103
o3=object collision(103,0)
if o3=98 or o3=100
if o3=98 then ship=2
if o3=100 then ship=0
delete object 103
gosub losealife
fire3=0
endif
if object exist(103)=1
o3=object collision(103,0)
if o3>200
delete object o3
delete object 103
fire3=0
endif
endif
endif
o4=0
   if object exist(104)=1
      set object collision to polygons 104
         o4=object collision(104,0)
         if o4=98 or o4=100
            if o4=98 then ship=2
            if o4=100 then ship=0
            delete object 104
            gosub losealife
            fire4=0
         endif
         if object exist(104)=1
            o4=object collision(104,0)
               if o4>200
               delete object o4
               delete object 104
               fire4=0
               endif
         endif
   endif
return


youwin:
hide object moveo
moveo=0
death=0
cls
for i=60 to 67
position object i,500,0,0
next i
death=0
sync
a$="You win press any key to go to the next level!"
text 0,0,a$
if p=1
text 0,100,"shots fired "+str$(shots(0))
text 0,200,"40 hits"
endif

if p=2
text 0,100,"shots fired player one "+str$(shots(0))
text 0,200,str$(shots(1)) + " hits for player one"
text 0,300,"shots fired player two "+str$(shots(2))
text 0,400,str$(40-shots(1)) + " hits for player two"
endif
sync
wait 1000
level#=level#+1
shots(0)=0
shots(1)=0
shots(2)=0
suspend for key
goto level

function button(caption$,size,top,number)
if mousex()>screen width()/2-5*size and mousex()<screen width()/2+5*size and mousey()>top and mousey()<top+4*size then ink rgb(100,100,0), rgb(100,100,0)
   line screen width()/2-5*size,top,screen width()/2+5*size,top
   line screen width()/2-5*size,top,screen width()/2-5*size,top+4*size
   line screen width()/2-5*size,top+4*size,screen width()/2+5*size,top+4*size
   line screen width()/2+5*size,top+4*size,screen width()/2+5*size,top
   ink rgb(255,255,255),rgb(255,255,255)


   text screen width()/2-text width(caption$)/2,top+2*size-text height(caption$)/2,caption$
      if mousex()>screen width()/2-5*size and mousex()<screen width()/2+5*size and mousey()>top and mousey()<top+4*size and mouseclick()=1

   if number=1 then gosub play
   if number=2 then gosub Version
   if number=3 then gosub Difficulty
   if number=4 then gosub Controlls
   if number=5 then gosub players
   if number=6 then gosub mode
      endif
   goto back




   Play:
   goto play2
   return

   Version:
   if a=1
   global a=2
   else
   global a=1
   endif
   wait 150
   cls
   return

   Difficulty:
   if dif=1
      global dif=2
      goto difend
   endif
   if dif=2
      global dif=3
      goto difend
   endif
   if dif=3
      global dif=1
      goto difend
   endif
   difend:
   wait 150
   cls
   return

   Controlls:
   if c=1
      cls
      c=0
      goto ret
   endif
   if c=0
      text 0,300,"Arrows to move, space bar to shoot."
      text 0,350,"There are two difficulty settings."
      text 0,400,"Try first person mode!"
      text 0,450,"One enemy each time has the time freezer."
      text 0,500,"If you kill that enemy in the first ten seconds"
      text 0,550,"You will freeze time for two seconds."
      text 0,600,"2 player controlls are a=left d=right and s=fire"
      text 0,650,"Try co-op mode still only three lives for the both of you."
      text 0,700,"Try duel mode to settle who is the better space invaders player."
      c=1
   endif
   ret:
   return

   players:
   if p=1
   global p=2
   else
   global p=1
   endif
   wait 150
   cls
   return

   mode:
   if m=1
   global m=2
   else
   global m=1
   endif
   wait 150
   cls
   return

   back:

endfunction

losealife:
for i=101 to 108
if object exist(i)=1 then delete object i
next i
right=90
play sound 1
sync
hide object 100-ship
for i=60 to 67
position object i,object position x(100-ship),object position y(100-ship),object position z(100-ship)
next i
death=20
do
if death>0
death=death-1
   for i=60 to 67
   move object i,0.1
   if death=0
      position object i,500,0,0
   endif
   next i
endif
right=-right
turn camera right 1,right
move camera 1,0.1
turn camera left 1,right
if p=2 and a=2
turn camera right 2,right
move camera 2,0.1
turn camera left 2,right
endif
wait 50
sync
if death=0 then goto outofdeath
loop

outofdeath:
show object 100-ship
life=life-1
if life=0 then goto theend
set text size 40
a$="Ready"
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
sync
wait 1000
a$="GO!"
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
sync
wait 1000
set text size 20
return


topalien:
data 0,0,0,1,0,0,0
data 0,0,1,1,1,0,0
data 0,1,0,1,0,1,0
data 1,1,1,1,1,1,1
data 0,1,1,1,1,1,0
data 0,1,0,1,0,1,0
data 1,0,1,0,1,0,1

twoalien:
data 0,0,1,0,0,0,1,0,0
data 0,0,0,1,0,1,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,1,1,0,1,0,1,1,0
data 0,1,0,1,1,1,0,1,0
data 0,0,1,0,0,0,1,0,0
data 0,0,0,1,0,1,0,0,0

threealien:
data 0,0,0,0,0,0,0
data 0,0,1,1,1,0,0
data 0,1,1,1,1,1,0
data 1,1,1,1,1,1,1
data 1,1,0,1,0,1,1
data 1,1,1,1,1,1,1
data 0,0,1,0,1,0,0
data 0,1,0,1,0,1,0
data 1,0,0,0,0,0,1

fouralien:
data 0,0,1,1,1,0,0
data 0,1,1,1,1,1,0
data 1,1,0,1,0,1,1
data 0,1,1,0,1,1,0
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 0,0,1,0,1,0,0

ship:
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,1,1,1,0,0
data 1,1,1,1,1,1,1
data 0,0,1,1,1,0,0
data 1,0,0,1,0,0,1
data 1,1,1,1,1,1,1

the:
data 1,1,1,1,1,0,1,0,0,1,0,1,1,1,0
data 0,0,1,0,0,0,1,0,0,1,0,1,0,0,0
data 0,0,1,0,0,0,1,1,1,1,0,1,1,1,0
data 0,0,1,0,0,0,1,0,0,1,0,1,0,0,0
data 0,0,1,0,0,0,1,0,0,1,0,1,1,1,0

renewed:
data 1,1,1,0,1,1,1,0,1,0,0,0,1,0,1,1,1,0,1,0,0,0,0,0,0,0,1,0,1,1,1,0,1,1,0
data 1,0,1,0,1,0,0,0,1,1,0,0,1,0,1,0,0,0,1,0,0,0,0,0,0,0,1,0,1,0,0,0,1,0,1
data 1,1,1,0,1,1,1,0,1,0,1,0,1,0,1,1,1,0,0,1,0,0,1,0,0,1,0,0,1,1,1,0,1,0,1
data 1,1,0,0,1,0,0,0,1,0,0,1,1,0,1,0,0,0,0,1,0,1,0,1,0,1,0,0,1,0,0,0,1,0,1
data 1,0,1,0,1,1,1,0,1,0,0,0,1,0,1,1,1,0,0,0,1,0,0,0,1,0,0,0,1,1,1,0,1,1,0

space:
data 1,1,1,0,1,1,1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,1
data 1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,1,0,0
data 1,1,1,0,1,1,1,0,0,1,0,0,0,1,0,0,1,0,0,0,1,1,1
data 0,0,1,0,1,0,0,0,0,1,1,1,1,1,0,0,1,0,0,0,1,0,0
data 1,1,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0,1,1,0,1,1,1

invaders:
data 1,1,1,1,1,0,1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,1,0,0,1,1,1,0,1,1,1,0,1,1,1
data 0,0,1,0,0,0,1,1,0,0,1,0,0,1,0,0,0,1,0,0,0,0,1,0,1,0,0,0,1,0,1,0,1,0,0,0,1,0,1,0,1,0,0
data 0,0,1,0,0,0,1,0,1,0,1,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,1,0,1,0,1,1,1,0,1,1,1,0,1,1,1
data 0,0,1,0,0,0,1,0,0,1,1,0,0,0,1,0,1,0,0,0,0,1,1,1,1,1,0,0,1,0,1,0,1,0,0,0,1,1,0,0,0,0,1
data 1,1,1,1,1,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,1,0,1,1,0,0,1,1,1,0,1,0,1,0,1,1,1




theend:
delete sprite 1
if sprite exist(2) then delete sprite 2
if sprite exist(3) then delete sprite 3
right=0
for i=1 to 212
if object exist(i)=1 then delete object i
next i
if light exist(1)=0 then make light 1
position light 1,0,0,250
point light 1,0,20,400
delete object 60
delete object 61
make object sphere 60,5
set ambient light 1
color object 60,rgb(0,0,100)
make object sphere 61,100
move object 61,400
move object up 61,40
color object 61,rgb(200,200,0)
move camera 1,-30
for i= 1 to 50
make object i,rnd(3)+2,0
position object i,i-25,0,-150
color object i,rgb(rnd(255),rnd(255),rnd(255))
next i
s=20
do
if sound playing(s-1)=0 and s<23
play sound s
s=s+1
endif
a$="Sheydkd gaidnkl ikslirk!!!!"
b$="Translation: Destroy all life!!!!"
c$="YOU LOSE"
text screen width()/2-text width(a$)/2,screen height()-text height(a$)*3,a$
text screen width()/2-text width(b$)/2,screen height()-text height(a$)*2,b$
set text size 40
text screen width()/2-text width(c$)/2,screen height()/2-text height(a$),c$
wait 50
for i=1 to 50
move object i,1
next i
right=right+1
if right>140 then end
sync
loop

duel:
move object up 98,24
roll object right 98,180
if a=1 then fix object pivot 98
if a=2
make camera 2
pitch camera up 2,90
turn camera right 2,180
set camera view 1,0,0,screen width(),screen height()/2
set camera view 2,0,screen height()/2,screen width(),screen height()
color backdrop 2,0
scale object 100,100,100,250
scale object 98,100,100,250
endif


do
if a=2
position camera 1,object position x(100),object position y(100),object position z(100)-4
position camera 2,object position x(98),object position y(98),object position z(98)-4
endif

ship=2
if keystate(30)=1 then gosub left
if keystate(32)=1 then gosub right
if keystate(31)=1 then gosub dfire2
ship=0
if rightkey()=1 then gosub right
if leftkey()=1 then gosub left
if spacekey()=1 then gosub dfire1
if fire(0)>0 then move object up 101,03
if fire(0)=1 then delete object 101
if fire(0)>0 then fire(0)=fire(0)-1
if fire(2)>0 then move object up 102,03
if fire(2)=1 then delete object 102
if fire(2)>0 then fire(2)=fire(2)-1
if fire(3)>0 then move object down 103,03
if fire(3)=1 then delete object 103
if fire(3)>0 then fire(3)=fire(3)-1
if fire(4)>0 then move object down 104,03
if fire(4)=1 then delete object 104
if fire(4)>0 then fire(4)=fire(4)-1
gosub dhit
wait 50
sync
loop

dfire1:
if object exist(101)=0
make object box 101,.1,1,.1
play sound 16
set object radius 101,.3
position object 101,object position x(100), object position y(100),object position z(100)
color object 101,rgb(150,0,0)
fire(0)=35
goto dfire1exit
endif
if object exist(101)=1 and object exist(102)=0 and fire(0)<31
make object box 102,.1,1,.1
play sound 16
set object radius 102,.3
position object 102,object position x(100), object position y(100),object position z(100)
color object 102,rgb(150,0,0)
fire(2)=35
endif
dfire1exit:
return

dfire2:
if object exist(103)=0
make object box 103,.1,1,.1
play sound 16
set object radius 103,.3
position object 103,object position x(98), object position y(98),object position z(98)
color object 103,rgb(150,0,0)
fire(3)=35
goto dfire2exit
endif
if object exist(103)=1 and object exist(104)=0 and fire(3)<31
make object box 104,.1,1,.1
play sound 16
set object radius 104,.3
position object 104,object position x(98), object position y(98),object position z(98)
color object 104,rgb(150,0,0)
fire(4)=35
endif
dfire2exit:
return

dhit:
if object exist(101)=1
   set object collision to polygons 101
      if object collision(101,98)
      goto p1wins
      endif
endif
if object exist(102)=1
   set object collision to polygons 102
      if object collision(102,98)
      goto p1wins
      endif
endif
if object exist(103)=1
   set object collision to polygons 103
      if object collision(103,100)
      goto p2wins
      endif
endif
if object exist(104)=1
   set object collision to polygons 104
      if object collision(104,100)
      goto p2wins
      endif
endif
return

p1wins:
if sprite exist(2) then delete sprite 2
if sprite exist(3) then delete sprite 3
cls
set text size 40
a$="Player 1 Wins!"
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
sync
suspend for key
end


p2wins:
if sprite exist(2) then delete sprite 2
if sprite exist(3) then delete sprite 3
cls
set text size 40
a$="Player 2 Wins!"
text screen width()/2-text width(a$)/2,screen height()/2-text height(a$)/2,a$
sync
suspend for key
end

screenshot:
get image 2,0,0,screen width(),screen height()
save image "image.jpg",2
end

`Ric's sound creator its awsome!!!
function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#,attack#)

outWord as word
dword1 as dword: dword2 as dword: dword3 as dword: dword4 as dword
dword5 as dword: dword6 as dword: dword7 as dword

samples=int((length#/1000)*44100)

if memblock exist(1) then delete memblock 1
make memblock 1,samples*2+28

` write 28 memblock header bytes
dword1=1      ` gg query: is this the number of channels?
dword2=2      ` gg query: is this the number of bytes per sample?
dword3=22050  ` gg query: seems to be half the number of samples per second - why?
dword4=88200  ` gg query: is this the number of bytes per second?
dword5=4      ` gg query: what does this represent?
dword6=16     ` gg query:     (ditto)            ?
dword7=0      ` gg query:     (ditto)            ?

position=0
write memblock dword 1, position, dword1 : inc position,4
write memblock dword 1, position, dword2 : inc position,4
write memblock dword 1, position, dword3 : inc position,4
write memblock dword 1, position, dword4 : inc position,4
write memblock dword 1, position, dword5 : inc position,4
write memblock dword 1, position, dword6 : inc position,4
write memblock dword 1, position, dword7 : inc position,4

rem generate and write wave
riseinloudness#=loudness#
for x=1 to samples
  outInteger=int(sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#-fallinloudness#-riseinloudness#+tremelodepth#*sin(phi#)))*3.0
  if outInteger <-32767 then outInteger=-32767  ` gg query: is this the valid range?
  if outInteger>32767 then outInteger=32767     ` gg query:       (ditto)          ?
  outWord=outInteger
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#

  if fallinloudness#<loudness#
    inc fallinloudness#,decay#
  endif

  if riseinloudness#>0
    dec riseinloudness#,attack#
  endif

  write memblock word 1, position, outWord : inc position,2
next x

if sound exist(soundnumber)=1 then delete sound soundnumber

make sound from memblock 999, 1 ` assumes you won't need sound number 999!
clone sound soundnumber, 999
delete sound 999

` memblock no longer required
delete memblock 1

endfunction

function song(songnumber,playafter,endingnumber,note1,note2,note3,note4,note5,note6,note7,note8,note9,note10)

if pa=songnumber
if sound exist(finnalnote)=0
if p1=-1
play sound note1
global finnalnote=note1
p1=0
endif
endif
if sound exist(finnalnote)=1
if sound playing(finnalnote)=0 and p1=-1
play sound note1
p1=0
global finnalnote=note1
endif
endif

if 1=endingnumber
goto outofsongunct
endif
if sound playing(note1)=0 and p1=0 and sound exist(note2)=1
play sound note2
global finnalnote=note2
p1=1
endif
if 2=endingnumber
goto outofsongunct
endif
if sound playing(note2)=0 and p1=1 and sound exist(note3)=1
play sound note3
global finnalnote=note3
p1=2
endif
if 3=endingnumber
goto outofsongunct
endif
if sound playing(note3)=0 and p1=2 and sound exist(note4)=1
play sound note4
global finnalnote=note4
p1=3
endif
if 4=endingnumber
goto outofsongunct
endif
if sound playing(note4)=0 and p1=3 and sound exist(note5)=1
play sound note5
global finnalnote=note5
p1=4
endif
if 5=endingnumber
goto outofsongunct
endif
if sound playing(note5)=0 and p1=4 and sound exist(note6)=1
play sound note6
global finnalnote=note6
p1=5
endif
if 6=endingnumber
goto outofsongunct
endif
if sound playing(note6)=0 and p1=5 and sound exist(note7)=1
play sound note7
global finnalnote=note7
p1=6
endif
if 7=endingnumber
goto outofsongunct
endif
if sound playing(note7)=0 and p1=6 and sound exist(note8)=1
play sound note8
global finnalnote=note8
p1=7
endif
if 8=endingnumber
goto outofsongunct
endif
if sound playing(note8)=0 and p1=7 and sound exist(note9)=1
play sound note9
global finnalnote=note9
p1=8
endif
if 9=endingnumber
goto outofsongunct
endif
if sound playing(note9)=0 and p1=8 and sound exist(note10)=1
play sound note10
p1=9
global finnalnote=note10
endif
outofsongunct:
if p1=endingnumber-1 and sound playing(endingnumber)=0
global pa=playafter
global p1=-1
global check=0
endif
endif
endfunction

Phaelax
	 If there had been some accesibilty options added in here this would have been the winner. a great version of the game.

Spopovich
	  Difficulty settings and two gameplay modes is what edged this one into the winners circle

hide mouse
set display mode 1024,768,32
sync on


type graphic
   xpos as integer
   ypos as integer
   state as integer
   graphic_type as string
   rotation as integer

endtype

Global RIGHT_PADDLE as string ="right paddle"
GLOBAL LEFT_PADDLE as string="left paddle"
global right_pressed as integer
global left_pressed as integer



dim paddles(2) as graphic
paddles(1).xpos=384:paddles(1).ypos=650:paddles(1).graphic_type=RIGHT_PADDLE
paddles(2).xpos=628:paddles(2).ypos=650:paddles(2).graphic_type=LEFT_PADDLE

do
cls

controls()
update_doodad_state()
draw_doodads()

sync
loop


function draw_doodads()
 ink rgb(0,0,255),0
 line 368,650,275,650:line 275,650,275,50:line 646,650,739,650:line 739,650,739,50:line 739,50,275,50
 ink rgb(255,255,0),0
 circle paddles(1).xpos,paddles(1).ypos,15
 ink 0,0:box paddles(1).xpos,paddles(1).ypos-15,paddles(1).xpos+16,paddles(1).ypos+16:ink rgb(255,255,0),0
 line paddles(1).xpos,paddles(1).ypos-15,paddles(1).xpos+80,paddles(1).ypos+25+paddles(1).rotation
 line paddles(1).xpos,paddles(1).ypos+15,paddles(1).xpos+80,paddles(1).ypos+25+paddles(1).rotation
 circle paddles(2).xpos,paddles(2).ypos,15
 ink 0,0:box paddles(2).xpos-16,paddles(2).ypos-15,paddles(2).xpos,paddles(2).ypos+16:ink rgb(255,255,0),0
 line paddles(2).xpos,paddles(2).ypos-15,paddles(2).xpos-80,paddles(2).ypos+25+paddles(2).rotation
 line paddles(2).xpos,paddles(2).ypos+15,paddles(2).xpos-80,paddles(2).ypos+25+paddles(2).rotation
endfunction

function controls()
   k$=inkey$()
   if k$="" then right_pressed=0:left_pressed=0
   if k$="z" and paddles(1).state=0 and right_pressed=0
      paddles(1).state=1
      right_pressed=1
   endif
   if k$="/" and paddles(2).state=0 and left_pressed=0
      paddles(2).state=1
      left_pressed=1
   endif
endfunction

function update_doodad_state()
   if paddles(1).state=1
      if paddles(1).rotation>-50
         dec paddles(1).rotation,2
      else
         paddles(1).state=2
      endif
   endif
   if paddles(1).state=2 and right_pressed=0
      if paddles(1).rotation<0
         inc paddles(1).rotation,2
      else
         paddles(1).state=0
      endif
   endif

   if paddles(2).state=1
      if paddles(2).rotation>-50
         dec paddles(2).rotation,2
      else
         paddles(2).state=2
      endif
   endif
   if paddles(2).state=2 and left_pressed=0
      if paddles(2).rotation<0
         inc paddles(2).rotation,2
      else
         paddles(2).state=0
      endif
   endif
endfunction

REM Project: Pinball
REM Created: 7/25/2006 8:51:31 PM
REM
REM ***** Main Source File *****
REM
make camera 1
move camera 1,-30
make object box 1,0.5,30,0.5
make object box 2,0.5,30,0.5
make object box 3,20,0.5,0.5
make object box 4,20,0.5,0.5
position object 1,-9.9,0,0
position object 2,10,0,0
position object 3,0,14.75,0
position object 4,0,-14.75,0
make object box 5,6,1.5,0.5
make object box 6,6,1.5,0.5
zrotate object 5,-45
zrotate object 6,45
position object 5,-4.5,-7,0
position object 6,4.6,-7,0
make object sphere 10,1
position object 10,3,0,0
set object collision to polygons 5
set object collision to polygons 6
zrotate object 10,180

do
if leftkey()=1 and leftflip=0 then leftflip=4
if rightkey()=1 and rightflip=0 then rightflip=4
if leftflip>2
leftflip=leftflip-1
flipper(1,5,1)
endif
if leftflip>0 and leftflip<3
leftflip=leftflip-1
flipper(0,5,1)
endif
if rightflip>2
rightflip=rightflip-1
flipper(1,6,0)
endif
if rightflip>0 and rightflip<3
rightflip=rightflip-1
flipper(0,6,0)
endif
g#=g#+0.02
if l=0 then move object up 10,g#
collision()
wait 25
loop

function flipper(up,object,left)
if left=1
   move object left object,3
   if up=1
   global leftup=1
      roll object left object,24
   else
   global leftup=0
      roll object right object,24
   endif
   move object right object,3
else
   move object right object,3
   if up=1
      global rightup=1
      roll object right object,24
   else
      global rightup=0
      roll object left object,24
   endif
   move object left object,3
endif
endfunction

function collision()

   x=object position x(10)
   y=object position y(10)
   angz=object angle z(10)
   if object collision(6,10)>0
      g#=0
      move object down 10,0.2
      testagain:
      t=t+1
      if t=360
      zrotate object 10,angz
      t=0
      move object down 10,3
      endif
      roll object right 10,1
      move object up 10,0.5
      if object collision(6,10)>0
         move object up 10,-0.5
         goto testagain
      endif
      move object up 10,-0.5
    angz2=object angle z(10)-angz
    if rightup=1
    angz2=angz2*2
    v=5
    l=50
    endif
    zrotate object 10,angz
    move object up 10,0.2
    roll object left 10,angz2
   endif
endfunction

Sync On:Sync Rate 60:Autocam Off:Global n#:Global cFlag as Integer:Global LimbMatrix As Integer:Global EyeVector As Integer:Global LookAtVector As Integer:Global LookUpVector As Integer:Global DropDown as Integer:Global dd as Integer:Global tx#:Global ty#:Global tz#:Global MaxArry as Integer:Global Score as Integer:Dim KickFlag(1) as Float:Dim Kick(5):Dim cFlag(0) as Integer:Dim n(0) as Float
Dim PreLimb(0):LimbMatrix=6:EyeVector=3:LookAtVector=4:LookUpVector=5:For i = 1 to 6:   r=Make Vector3(i):Next i:r = Make Matrix4( LimbMatrix ):Make Object Sphere 1,6,8,8:Prepare_Limb(1,0,2):Delete Object 1:Make Object Sphere 1,6,15,15:Set Object Collision To Spheres 1:Make Object Box 2,100,5,120:Make Object Box 3,20,11,5:Offset Limb 3,0,8,0,0:Make Mesh From Object 3,3:Delete Object 3:Add Limb 2,1,3
Prepare_Limb(2,1,.001):Offset Limb 2,1,-20,2.6,-50:Rotate Limb 2,1,0,30,0:Color Limb 2,1,Rgb(50,50,100):Add Limb 2,2,3:Prepare_Limb(2,2,.001):Offset Limb 2,2,20,2.6,-50:Rotate Limb 2,2,0,-210,0:Color Limb 2,2,Rgb(50,50,100):Add_Limb(2,7,10,120,-50,3,0,0,0,0):Add_Limb(2,7,10,120,50,3,0,0,0,0):Add_Limb(2,100,10,7,0,3,60,0,0,0):Add_Limb(2,4,6,4,0,3,30,0,42,0):Add_Limb(2,4,6,4,-9,3,20,0,45,0):Add_Limb(2,4,6,4,9,3,20,0,48,0):Add_Limb(2,18,8,4,-30,3,-45,0,20,0):Add_Limb(2,18,8,4,30,3,-45,0,-200,0):Add_Limb(2,6,6,6,-47,3,-30,0,45,0):Add_Limb(2,6,6,6,47,3,-30,0,45,0):rr=Add_Limb(2,2,8,7,20,3,35,0,0,0)
Add_Limb(2,2,8,7,29,3,34,0,0,0):Add_Limb(2,2,8,7,38,3,33,0,0,0):Add_Limb(2,21,8,3,-31,3,-27,0,40,0):Add_Limb(2,21,8,3,31,3,-27,0,-220,0):dd=Add_Limb(2,20,8,4,-30,2.4,53,0,0,0):Add_Limb(2,5,7,5,-36,3,-41,0,20,0):Add_Limb(2,5,7,5,36,3,-41,0,-200,0):l=Add_Limb(2,100,.1,120,0,8.5,0,0,0,0):Hide Limb 2,l:Color Limb 2,0,RGB(100,100,254):Set Object Collision Off 2:Position Camera 0,70,-80:Point Camera 0,0,0:Make Object Sphere 3,9:Scale Object 3,100,40,100:Make Mesh From Object 3,3:Delete Object 3:Pitch Object Up 2,3:For i = 0 to 2:Make Object 11+i,3,0
Position Object 11+i,Limb Position X(2,6+i),Limb Position Y(2,6+i)+2.0,Limb Position Z(2,6+i):Set Object Collision To Spheres 11+i:Color Object 11+i,Rgb(255,0,0):Next i:Make Object Box 14,17,7,1:Position Object 14,Limb Position X(2,16)+1.2,Limb Position Y(2,16)+.1,Limb Position Z(2,16)+1.2:Rotate Object 14,0,40,0:Set Object Collision To Boxes 14:Color Object 14,rgb(255,0,0):Clone Object 15,14:Position Object 15,Limb Position X(2,17)-1.2,Limb Position Y(2,17)+.1,Limb Position Z(2,17)+1.2:Rotate Object 15,0,-220,0:Set Object Collision To Boxes 15:Color Object 15,rgb(255,0,0):For i = 1 to 3:Make Object Box 15+i,.5,.5,4:Position Object 15+i,16+(i*9),Limb Position Y(2,rr+(i-1))+1,36-i:Color Object 15+i,0:Set Object Collision To Boxes 15+i:Next i
For i = 1 to 3:Make Object Box 18+i,4,6.5,2:Position Object 18+i,-40+(i*5),Limb Position Y(2,dd),51:Color Object 18+i,Rgb(255,0,0):Set Object Collision To Boxes 18+i:Next i:Position Object 1,0,-20,40:Do:Balls=0:Score=0:Do:If ReturnKey() And Object Position Y(1)<-20:Balls=Balls+1:Position Object 1,35,6,45:Set Vector3 2,-(Rnd(20.0)/10.0)-.5,0,0:Endif:tx#=Object Position X(1):ty#=Object Position Y(1):tz#=Object Position Z(1):If SpaceKey()
Position Object 2,0,0,.5:Else:Position Object 2,0,0,0:Endif:LV3#=Length Vector3(2):If LV3#>2.9:Scale Vector3 2,2,2.9/LV3#:Endif:Position Object 1,Object Position X(1)+X Vector3(2),Object Position Y(1)+Y Vector3(2)-.2,Object Position Z(1)+Z Vector3(2):Kickers():c=Check_Collision(1,0,2,1,0):Position Object 1,X Vector3(20), Y Vector3(20), Z Vector3(20):Set Vector3 2,(Object Position X(1)-tx#),(Object Position Y(1)-ty#),(Object Position Z(1)-tz#):Flipper(1):Flipper(2):Sync_Flag=(Sync_Flag<3)+(Sync_Flag<2)+(SyncFlag<1):If Sync_Flag=1:Set Cursor 0,0:Print "Score: ";Score:Print "Ball:  ";Balls
Print Prelimb(20):Sync:Endif:if Balls=5 And Object Position Y(1)<-19:Exit:Endif:Loop:Wait 300:Clear Entry Buffer:Do:Set Cursor 0,0:Print "Score: ";Score:Print "Ball:  ";Balls:Print:Print "Game Over. Press Any Key":If Inkey$()<>"":Exit:Endif:Sync:Loop:Loop
Function Flipper(side):ks=(side=1)*29+(side=2)*157:ang#=(side=1)*30+(side=2)*-210:If KickFlag(side-1)<60 and (KeyState(ks) or KickFlag(side-1)>0):KickFlag(side-1)=KickFlag(side-1)+7:Rotate Limb 2,side,0,ang#-KickFlag(side-1)*((side=1)-(side=2)),0:c=Check_Collision(2,side,1,1,0):If c:Set Vector3 2,X Vector3(2),Y Vector3(2),.5+(Z Vector3(2)*(Z Vector3(2)>0)):Position Object 1,Object Position X(1)+X Vector3(2)*.15,Object Position Y(1)+Y Vector3(2)*.15,Object Position Z(1)+Z Vector3(2):Endif:Endif:If KickFlag(side-1)>59 and KeyState(ks)=0:KickFlag(side-1)=0:Rotate Limb 2,side,0,ang#,0:Endif
Endfunction:Function Kickers():k=Object Collision(1,0):Select k:Case 11,12,13:If Kick(k-11)<1:dx#=(Object Position X(1)-Object Position X(k))*.2+X Vector3(2)*.1:dy#=(Object Position Y(1)-Object Position Y(k))*.2+Y Vector3(2)*.15:dz#=(Object Position Z(1)-Object Position Z(k))*.2+Z Vector3(2)*.1:Position Object 1,Object Position X(1)-dx#,Object Position Y(1)-dy#,Object Position Z(1)-dz#:tx#=Object Position X(1):ty#=Object Position Y(1):tz#=Object Position Z(1):Position Object 1,Object Position X(1)+dx#,Object Position Y(1)+dy#,Object Position Z(1)+dz#:Kick(k-11)=7:Score=Score+10:Set Object Emissive k,Rgb(255,100,100):Endif:EndCase:Case 14
Position Object 1,Object Position X(1)-(1.5+X Vector3(2)*.2),Object Position Y(1),Object Position Z(1)-(1.5+Z Vector3(2)*.2):tx#=Object Position X(1):ty#=Object Position Y(1):tz#=Object Position Z(1):Position Object 1,Object Position X(1)+(1.5+X Vector3(2)*.2),Object Position Y(1),Object Position Z(1)+(1.5+Z Vector3(2)*.2):Set Object Emissive 14,Rgb(255,100,100):Kick(3)=7:Score = Score + 1:EndCase:Case 15:Position Object 1,Object Position X(1)+(1.5+X Vector3(2)*.2),Object Position Y(1),Object Position Z(1)-(1.5+Z Vector3(2)*.2):tx#=Object Position X(1):ty#=Object Position Y(1):tz#=Object Position Z(1):Position Object 1,Object Position X(1)-(1.5+X Vector3(2)*.2),Object Position Y(1),Object Position Z(1)+(1.5+Z Vector3(2)*.2):Set Object Emissive 15,Rgb(255,100,100):Kick(4)=7:Score = Score + 1:EndCase:Case 16,17,18
Score = Score + 2:EndCase:Case 19,20,21:Position Object 1,Object Position X(1),Object Position Y(1),Object Position Z(1)+(1.5+Z Vector3(2)*.2):tx#=Object Position X(1):ty#=Object Position Y(1):tz#=Object Position Z(1):Position Object 1,Object Position X(1),Object Position Y(1),Object Position Z(1)-(1.5+Z Vector3(2)*.2):Position Object k,0,-10,0:DropDown=DropDown+1:Kick(4)=7:Score = Score + 10:EndCase:EndSelect:For i = 11 to 15:Kick(i-11)=Kick(i-11)-(Kick(i-11)>0):If Kick(i-11)=1:Set Object Emissive i,0:Endif:A_Constant
EndFunction:Function Add_Limb(ObjectID,sx#,sy#,sz#,px#,py#,pz#,ax#,ay#,az#):Make Object Box 3,sx#,sy#,sz#:Make Mesh From Object 3,3:Delete Object 3:i=1:Do:If Limb Exist(ObjectID,i)=0:Exit:Endif:i=i+1:Loop:Add Limb ObjectID,i,3:Offset Limb ObjectID,i,px#,py#,pz#:Rotate Limb ObjectID,i,ax#,ay#,az#
EndFunction i:Function Prepare_Limb(ObjectID,LimbID,C_Factor#):arry=ObjectID*20+LimbID:max=1:If MaxArry>1:For i = 1 to MaxArry:If max<PreLimb(i):max=PreLimb(i):Endif:Next i:Endif:If MaxArry<arry:MaxArry=arry:Dim PreLimb(arry) as Integer:PreLimb(arry)=1
Dim LMX(arry,max) as Float:Dim LMY(arry,max) as Float:Dim LMZ(arry,max) as Float:Endif:Lock VertexData for Limb ObjectID,LimbID:VIC=Get Vertexdata Index Count():n=0:LMX(arry,n)=Get VertexData Position X(Get IndexData(0)):LMY(arry,n)=Get VertexData Position Y(Get IndexData(0)):LMZ(arry,n)=Get VertexData Position Z(Get IndexData(0)):c#=C_Factor#*C_Factor#:n=1:For i = 1 to VIC:tx#=Get VertexData Position X(Get IndexData(i)):ty#=Get VertexData Position Y(Get IndexData(i)):tz#=Get VertexData Position Z(Get IndexData(i)):flag=0:For j=1 to n:d#=((tx#-LMX(array,j))*(tx#-LMX(array,j))+(ty#-LMY(array,j))*(ty#-LMY(array,j))+(tz#-LMZ(array,j))*(tz#-LMZ(array,j))):if d#<c# or (tx#=LMX(arry,0) and ty#=LMY(arry,0) and tz#=LMZ(arry,0))
flag=1:Exit:Endif:Next j:If flag=0:n=n+1:If n>max:max=n:PreLimb(arry)=n:Dim LMX(arry,n) as Float:Dim LMY(arry,n) as Float:Dim LMZ(arry,n) as Float:Endif:LMX(arry,n)=tx#:LMY(arry,n)=ty#:LMZ(arry,n)=tz#:Endif:Next i:PreLimb(arry)=n:Unlock VertexData
Endfunction:Function LimbMatrix4(ResultMatrix, Object, Limb):AX#=Limb Direction X( Object, Limb ) : AY#=Limb Direction Y( Object, Limb ) : AZ#=Limb Direction Z( Object, Limb ):CX#=Cos(AX#) : SX#=Sin(AX#) : CY#=Cos(AY#) : SY#=Sin(AY#) : CZ#=Cos(AZ#) : SZ#=Sin(AZ#):Set Vector3 EyeVector, Limb Position X( Object, Limb), Limb Position Y( Object, Limb), Limb Position Z( Object, Limb):Set Vector3 LookAtVector, -1.0*SZ#*(-1.0*SX#)+CZ#*SY#*CX#+Limb Position X(Object,Limb), CZ#*(-1.0*SX#)+SZ#*SY#*CX#+Limb Position Y(Object,Limb), CY#*CX#+Limb Position Z(Object,Limb):Set Vector3 LookUpVector, -SZ#*CX#+CZ#*SY#*SX#, CZ#*CX#+SZ#*SY#*SX#, CY#*SX#:Build LookAt LHMatrix4 ResultMatrix, EyeVector, LookAtVector, LookUpVector:r=Inverse Matrix4( ResultMatrix, ResultMatrix ):#Constant A_Constant :Next i:DropDown=DropDown+(DropDown>2):If DropDown>10:Score=Score + 100:DropDown=0:For i = 1 to 3:Position Object 18+i,-40+(i*5),Limb Position Y(2,dd),51:Next i:Endif
EndFunction:Function Check_Collision(ObjectID as DWord,LimbID as DWord,TargetID as DWord,accuracy#,cycles):arry=ObjectID*20+LimbID:r=Make Vector3(arry):if Array Count(cflag(0))<arry:Dim cFlag(arry) as Integer:Dim n(arry) as Float:Endif:LimbMatrix4(LimbMatrix, ObjectID, LimbID):st=1.0/accuracy#:MC=PreLimb(arry):If cFlag(arry)=0:n(arry)=1:Set Vector3 arry,Limb Position X(ObjectID,LimbID),Limb Position Y(ObjectID,LimbID),Limb Position Z(ObjectID,LimbID):Else:if n(arry)>1:n(arry)=2:Set Vector3 arry,X Vector3(arry)+Limb Position X(ObjectID,LimbID),Y Vector3(arry)+Limb Position Y(ObjectID,LimbID),Z Vector3(arry)+Limb Position Z(ObjectID,LimbID):Endif:Endif
For i = 0+cFlag(arry) to MC step st:Set Vector3 1,LMX(arry,i),LMY(arry,i),LMZ(arry,i):Transform Coords Vector3 1, 1, LimbMatrix:d#=Intersect Object(TargetID,Limb Position X(ObjectID,LimbID),Limb Position Y(ObjectID,LimbID),Limb Position Z(ObjectID,LimbID),X Vector3(1),Y Vector3(1),Z Vector3(1)):if d#>0:Set Vector3 1,X Vector3(1)-Limb Position X(ObjectID,LimbID),Y Vector3(1)-Limb Position Y(ObjectID,LimbID),Z Vector3(1)-Limb Position Z(ObjectID,LimbID):d2#=Length Vector3(1):id2#=d2#-d#:Multiply Vector3 1,-(id2#/d2#):Set Vector3 arry,X Vector3(arry)+(Limb Position X(ObjectID,LimbID)+X Vector3(1))*id2#,Y Vector3(arry)+(Limb Position Y(ObjectID,LimbID)+Y Vector3(1))*id2#,Z Vector3(arry)+(Limb Position Z(ObjectID,LimbID)+Z Vector3(1))*id2#:n(arry)=n(arry)+id2#:Endif:Next i:cFlag(arry)=cFlag(arry)+1:if cFlag(arry)>cycles:cFlag(arry)=0:Endif:Set Vector3 arry,X Vector3(arry)/n(arry),Y Vector3(arry)/n(arry),Z Vector3(arry)/n(arry):Hit=(n(arry)>1)
EndFunction Hit


`Thanks to Dmitry K for the LimbMartix4() function!

#CONSTANT EPSILON = 0.001

GLOBAL GRAVITY# = 0.60
GLOBAL DRAG# = 0.99

#CONSTANT K = 0.70

type Vector2D
   x as float
   y as float
endtype


type BallObject
   velocity as Vector2D
   position as Vector2D
   radius as float
endtype


ball as BallObject
ball.radius = 16
ball.position.x = 320
ball.position.y = 240



sync on
sync rate 60

repeat
   cls

   rem update position
   ball.position.x = ball.position.x + ball.velocity.x
   ball.position.y = ball.position.y + ball.velocity.y

   rem apply gravity
   inc ball.velocity.y, GRAVITY#

   rem apply forces
   ball.velocity.x = ball.velocity.x*DRAG#
   ball.velocity.y = ball.velocity.y*DRAG#



   REM ===== Boundaries =====
   rem left wall
   if ball.position.x <= ball.radius
      ball.position.x = ball.radius
      ball.velocity.x = ball.velocity.x*-1
   endif
   rem right wall
   if ball.position.x >= screen width()-ball.radius
      ball.position.x = screen width()-ball.radius
      ball.velocity.x = ball.velocity.x*-1
   endif
   rem top wall
   if ball.position.y <= ball.radius
      ball.position.y = ball.radius
      ball.velocity.y = ball.velocity.y*-1
   endif
   rem bottom wall (make it have flipper force)
   if ball.position.y >= screen height()-ball.radius
      ball.position.y = screen height()-ball.radius
      ball.velocity.y = -20
   endif




   if spacekey() = 1 and flag = 0
      flag = 1
      ball.velocity.x = ball.velocity.x + sin(pa#)*20
      ball.velocity.y = ball.velocity.y + cos(pa#)*20
   endif
   if spacekey() = 0 then flag = 0


   set cursor 0,0
   print ball.velocity.x
   print ball.velocity.y



   ink rgb(255,0,0),0
   circle ball.position.x, ball.position.y, ball.radius
   x# = ball.position.x + sin(pa#)*ball.radius
   y# = ball.position.y + cos(pa#)*ball.radius
   line ball.position.x,ball.position.y,x#,y#
   if mouseclick() = 1 then pa# = wrapvalue(pa#+3)
   if mouseclick() = 2 then pa# = wrapvalue(pa#-3)

   sync
until returnkey()