Sorry your browser is not supported!

//DBPro Coding Challenges "Not your average breakout game" entry
//27.11.2009
//by valle
#CONSTANT FIELDW 800
#CONSTANT FIELDH 600
#CONSTANT XTILES 6
#CONSTANT YTILES 4

`maximale Aulösung einstellen
load dll "user32.dll",1
SCREENW = call dll(1,"GetSystemMetrics",0)
SCREENH = call dll(1,"GetSystemMetrics",1)
delete dll 1

set display mode SCREENW, SCREENH, 32
sync on : sync rate 0 : sync
hide mouse

gosub FirstInit
gosub NewGame

FirstInit:
   type tVec
      x as float
      y as float
   endtype
   
   type tBall
      p as tVec
      v as tVec
      radius as integer
      combo as integer
      comboScore as integer
   endtype
   
   type tBlock
      p as tVec
      size as tVec
      layer as boolean
      on as boolean
      fade as float
      colour as dword
   endtype
   
   type tPaddle
      p as tVec
      oldX as integer
      v as integer
      vTimer as float
      size as tVec
      aimOn as boolean
      aimAngle as float
   endtype
   
   type tGame
      round as integer
      state as integer :`0 = fade in ; 1 = shoot ball ; 2 = play ; 3 = wait for next round ; 4 = game over
      fadeIn as float
      fadeOut as float
      fieldPos as tVec
      blockSize as tVec
      frontLayer as boolean
      layerState as float
      tiles as integer
      layer1Blocks as integer
      layer2Blocks as integer
      allBlocks as integer
      score as integer
      scoreFlash as float
      timeScore as float
      showTimeScore as integer
      nextRoundTimer as float
      roundEnd as boolean
      gameEnd as boolean
      gameOverTime as float
      newHighScore as boolean
      newHighLevel as boolean
      highScore as integer
      highLevel as integer
   endtype
   
   dT as float
   pl as tPaddle
   ball as tBall
   global game as tGame
   game.tiles = XTILES*YTILES
   dim block(game.tiles-1) as tBlock
   tempStr as string
   
   game.fieldPos.x = (SCREENW-FIELDW)/2
   game.fieldPos.y = (SCREENH-FIELDH)/2
   game.blockSize.x = ((FIELDW-200)/XTILES)-10
   game.blockSize.y = 20
   if file exist("breakout_score")=1
      open to read 1, "breakout_score"
      read long 1, game.highScore
      read long 1, game.highLevel
      close file 1
   endif
   ball.radius = 8
   pl.size.x = 90 : pl.size.y = 20
   pl.p.y = FIELDH-50
   index = 0
   for x = 0 to XTILES-1
      for y = 0 to YTILES-1
         block(index).p.x = 100+x*((FIELDW-200)/XTILES)
         block(index).p.y = 50+y*30
         block(index).size.x = game.blockSize.x
         block(index).size.y = game.blockSize.y
         inc index
      next y
   next x
   
   //BlockImage
   for y = 0 to game.blockSize.y
         ink rgb(255-y*4, 255-y*4, 255-y*4), 0
      line 0, y, game.blockSize.x, y
   next y
   remstart for x = 0 to game.blockSize.x
      lock pixels
      for y = 0 to game.blockSize.y
         dist = sqrt((x-game.blockSize.x/2)^2+(y-game.blockSize.y)^2)
         dot x, y, rgb(255-dist*2, 255-dist*2, 255-dist*2)
      next y
      unlock pixels
   next x remend
   
   get image 1, 0, 0, game.blockSize.x, game.blockSize.y, 1
   sprite 1, 0, 0, 1 : set sprite 1, 0, 1 : hide sprite 1
   //PaddleImage
   for y = 0 to pl.size.y
      ink rgb(255-y*3, 255-y*3, 255-y*3), 0
      line 0, y, pl.size.x, y
   next y
   get image 2, 0, 0, pl.size.x, pl.size.y, 1
   sprite 2, 0, 0, 2 : set sprite 2, 0, 1 : hide sprite 2
   
   //BallImage
   cls
   for x = 0 to ball.radius*2
      for y = 0 to ball.radius*2
         dist = sqrt((x-ball.radius)^2+(y-ball.radius)^2)
         if dist < ball.radius then dot x, y, rgb(255-dist*3, 255-dist*3, 255-dist*3)
      next y
   next x
   get image 3, 0, 0, ball.radius*2, ball.radius*2, 1
   sprite 3, 0, 0, 3 : set sprite 3, 0, 1 : hide sprite 3
   offset sprite 3, ball.radius, ball.radius
return

NewGame:
   game.round = 0
   game.score = 0
   game.gameEnd = 0
   pl.aimOn = 1
   gosub NewRound
   gosub main
return

NewRound:
   inc game.round
   if game.round mod 3 = 0
      pl.aimAngle = 270
      pl.aimOn = 1
   else
      pl.aimOn = 0
   endif
   ball.combo = 0 : ball.comboScore = 0
   game.state = 0
   game.fadeIn = 0
   pl.p.x = FIELDW/2-pl.size.x/2
   ball.p.x = FIELDW/2
   ball.p.y = FIELDH/2
   for t = 0 to game.tiles-1
      block(t).on = 1
      block(t).layer = rnd(1)
   next t
   game.frontLayer = 0
   game.layerState = 0.2
   game.timeScore = 4000
   game.roundEnd = 0
return

main:
   oldTime = timer()
   do
      
      dT = (timer()-oldTime)*0.001
      oldTime = timer()
      
      gosub Process
      gosub DrawGame
   
      sync
   loop
return

Process:
   select game.state
      case 0:
         if pl.aimOn = 0
            inc game.fadeIn, dT
         else
            inc game.fadeIn, dT*0.5
         endif
         game.layerState = 0.3-game.fadeIn*0.3
         if game.fadeIn >= 1 then inc game.state
         ball.p.x = pl.p.x+pl.size.x/2
         ball.p.y = pl.p.y-ball.radius
      endcase
      case 1:
         ball.p.x = pl.p.x+pl.size.x/2
         ball.p.y = pl.p.y-ball.radius
         if mouseclick()=1
            if pl.aimOn
               speed = 300+game.round*75
               ball.v.x = cos(pl.aimAngle)*speed
               ball.v.y = sin(pl.aimAngle)*speed
            else
               ball.v.y = -300-game.round*75
               ball.v.x = pl.v*5``-75+rnd(1)*150
            endif
            inc game.state
         endif
      endcase
      case 2:
         inc ball.p.x, ball.v.x*dT
         inc ball.p.y, ball.v.y*dT
         //Ballkollision
         if ball.v.y < 0
            if ball.p.y-ball.radius < 0
               ball.p.y = ball.radius : ball.v.y = abs(ball.v.y)
            endif
            for t = 0 to game.tiles-1
               if block(t).on and block(t).layer = game.frontLayer
                  if ball.p.x+ball.radius > block(t).p.x and ball.p.x-ball.radius < block(t).p.x+block(t).size.x
                     if ball.p.y-ball.radius < block(t).p.y+block(t).size.y
                        if ball.p.y-ball.radius > block(t).p.y+block(t).size.y-20
                           ball.p.y = block(t).p.y+block(t).size.y+ball.radius
                           inc ball.v.x, -20+rnd(40)
                           ball.v.y = abs(ball.v.y)
                           block(t).on = 0 : block(t).fade = 1.0
                           inc ball.combo
                           if ball.combo > 2
                              inc game.score, 100+(ball.combo-2)*50
                              inc ball.comboScore, (ball.combo-2)*50
                           else
                              inc game.score, 100
                           endif
                           game.scoreFlash = 1.0
                        endif
                     endif
                  endif
               endif
            next t
         endif
         if ball.v.y > 0
            if ball.p.y+ball.radius > FIELDH
               game.state = 4
               game.gameOverTime = 0
               //gosub NewGame
            endif
            for t = 0 to game.tiles-1
               if block(t).on and block(t).layer = game.frontLayer
                  if ball.p.x+ball.radius > block(t).p.x and ball.p.x-ball.radius < block(t).p.x+block(t).size.x
                     if ball.p.y+ball.radius > block(t).p.y
                        if ball.p.y+ball.radius < block(t).p.y+20
                           ball.p.y = block(t).p.y-ball.radius
                           inc ball.v.x, -20+rnd(40)
                           ball.v.y = -abs(ball.v.y)
                           block(t).on = 0 : block(t).fade = 1.0
                           inc ball.combo
                           if ball.combo > 2
                              inc game.score, 100+(ball.combo-2)*50
                              inc ball.comboScore, (ball.combo-2)*50
                           else
                              inc game.score, 100
                           endif
                           game.scoreFlash = 1.0
                        endif
                     endif
                  endif
               endif
            next t
         endif
         if ball.v.x < 0
            if ball.p.x-ball.radius < 0
               ball.p.x = ball.radius : ball.v.x = abs(ball.v.x)
            endif
            for t = 0 to game.tiles-1
               if block(t).on and block(t).layer = game.frontLayer
                  if ball.p.y+ball.radius > block(t).p.y and ball.p.y-ball.radius < block(t).p.y+block(t).size.y
                     if ball.p.x-ball.radius < block(t).p.x+block(t).size.x
                        if ball.p.x-ball.radius > block(t).p.x+block(t).size.x-20
                           ball.p.x = block(t).p.x+block(t).size.x+ball.radius
                           inc ball.v.y, -20+rnd(40)
                           ball.v.x = abs(ball.v.x)
                           block(t).on = 0 : block(t).fade = 1.0
                           inc ball.combo
                           if ball.combo > 2
                              inc game.score, 100+(ball.combo-2)*50
                              inc ball.comboScore, (ball.combo-2)*50
                           else
                              inc game.score, 100
                           endif
                           game.scoreFlash = 1.0
                        endif
                     endif
                  endif
               endif
            next t
         endif
         if ball.v.x > 0
            if ball.p.x+ball.radius > FIELDW
               ball.p.x = FIELDW-ball.radius : ball.v.x = -abs(ball.v.x)
            endif
            for t = 0 to game.tiles-1
               if block(t).on and block(t).layer = game.frontLayer
                  if ball.p.y+ball.radius > block(t).p.y and ball.p.y-ball.radius < block(t).p.y+block(t).size.y
                     if ball.p.x+ball.radius > block(t).p.x
                        if ball.p.x+ball.radius < block(t).p.x+20
                           ball.p.x = block(t).p.x-ball.radius
                           inc ball.v.y, -20+rnd(40)
                           ball.v.x = -abs(ball.v.x)
                           block(t).on = 0 : block(t).fade = 1.0
                           inc ball.combo
                           if ball.combo > 2
                              inc game.score, 100+(ball.combo-2)*50
                              inc ball.comboScore, (ball.combo-2)*50
                           else
                              inc game.score, 100
                           endif
                           game.scoreFlash = 1.0
                        endif
                     endif
                  endif
               endif
            next t
         endif
         
         //timeScore
         dec game.timeScore, dT*50
         if game.timeScore < 0 then game.timeScore = 0 
         
         //wie viele Blocks insd noch übrig
         game.allBlocks = 0
         game.layer1Blocks = 0
         game.layer2Blocks = 0
         for t = 0 to game.tiles-1
            if block(t).on 
               inc game.allBlocks
               if block(t).layer = 0
                  inc game.layer1Blocks
               else
                  inc game.layer2Blocks
               endif
            endif
         next t
         
         if (game.frontLayer = 0 and game.layer1blocks = 0) or (game.frontLayer = 1 and game.layer2blocks = 0)
            game.frontLayer = 1-game.frontLayer
         endif
         
         //Nächste Runde
         if game.allBlocks <= 0
            //if game.timeScore > 0
               //inc game.score, game.timeScore
               //game.scoreFlash = 1.0
            //endif
            //gosub NewRound
            inc game.state
            game.nextRoundTimer = 0
         endif
         
         
         //Ballkollision mit Spieler
         if ball.v.y > 0
            if ball.p.x+ball.radius > pl.p.x and ball.p.x -ball.radius < pl.p.x+pl.size.x
               if ball.p.y+ball.radius > pl.p.y and ball.p.y+ball.radius < pl.p.y+20
                  if pl.aimOn
                     speed = sqrt((ball.v.x)^2+(ball.v.y)^2)
                     ball.v.x = cos(pl.aimAngle)*speed
                     ball.v.y = sin(pl.aimAngle)*speed
                  else
                     ball.v.y = -abs(ball.v.y)
                     inc ball.v.x, (ball.p.x-(pl.p.x+pl.size.x/2))*5+pl.v*5
                  endif
                  ball.combo = 0 : ball.comboScore = 0
                  if game.frontLayer = 0
                     if game.layer2Blocks > 0 then game.frontLayer = 1
                  else
                     if game.layer1Blocks > 0 then game.frontLayer = 0
                  endif
               endif
            endif
         endif
      endcase
      
      case 3:
         if game.roundEnd = 0
            //Nächste Runde
            if game.timeScore > 0
               inc game.score, game.timeScore
               game.scoreFlash = 1.0
            endif
            game.showTimeScore = game.timeScore
            game.roundEnd = 1
         endif
         inc game.nextRoundTimer, dT
         if game.nextRoundTimer >= 1
            gosub NewRound
         endif
      endcase
      
      case 4:
         inc game.gameOverTime, dT*0.5
         if game.gameOverTime > 1 then game.gameOverTime = 1
         if game.gameEnd = 0
            //GameOver
            for t = 0 to game.tiles-1
               if block(t).on
                  block(t).on = 0
                  block(t).fade = (block(t).layer = game.frontLayer)*0.5+rnd(50)*0.01
               endif
            next t
            if game.score > game.highScore
               game.highScore = game.score
               game.newHighScore = 1
            else
               game.newHighScore = 0
            endif
            if game.round > game.highLevel
               game.highLevel = game.round
               game.newHighLevel = 1
            else
               game.newHighLevel = 0
            endif
            if game.newHighScore = 1 or game.newHighLevel = 1
               if file exist("breakout_score")=1
                  open to read 1, "breakout_score"
                  read long 1, old_hs : read long 1, old_hl
                  close file 1
                  delete file "breakout_score"
               else
                  old_hs = 0 : old_hl = 0
               endif
                  
               open to write 1, "breakout_score"
               if game.newHighScore = 1
                  write long 1, game.highScore
               else
                  write long 1, old_hs
               endif
               if game.newHighLevel = 1
                  write long 1, game.highLevel
               else
                  write long 1, old_hl
               endif
               close file 1
            endif
            game.gameEnd = 1
         endif
         if mouseclick() then gosub NewGame
      endcase
      
   endselect
   
   //Tote Blocks ausfaden
   if game.state = 4
      For t = 0 to game.tiles-1
         if block(t).on = 0
            dec block(t).fade, dT
         endif
      next t
   else
      For t = 0 to game.tiles-1
         if block(t).on = 0
            dec block(t).fade, dT*4
         endif
      next t   
   endif
   
   //Spieler kontrollieren
   pl.p.x = mousex()-game.fieldPos.x-pl.size.x/2
   if pl.p.x < 0 then pl.p.x = 0
   if pl.p.x+pl.size.x > FIELDW then pl.p.x = FIELDW-pl.size.x
   inc pl.vTimer, dT
   if pl.vTimer >= 0.05
      pl.v = int(pl.p.x)-pl.oldX
      pl.oldX = int(pl.p.x)
      pl.vTimer = 0
   endif
   if mousex()<game.fieldPos.x+pl.size.x/2
      position mouse game.fieldPos.x+pl.size.x/2, mousey()
   endif
   if mousex()>game.fieldPos.x+FIELDW-pl.size.x/2
      position mouse game.fieldPos.x+FIELDW-pl.size.x/2, mousey()
   endif
   if pl.aimOn
      dec pl.aimAngle, mousemovez()*0.1
      if pl.aimAngle < 190 then pl.aimAngle = 190
      if pl.aimAngle > 350 then pl.aimAngle = 350 
   endif
   
   //Scoreflash
   dec game.scoreFlash, dt
   if game.scoreFlash < 0 then game.scoreFlash = 0
   
   //Layer wechseln
   if game.frontLayer = 1 and game.state <> 0
      inc game.layerState, dT*2
      if game.layerState > 1 then game.layerState = 1
   else
      dec game.layerState, dT*2
      if game.layerState < 0 then game.layerState = 0
   endif
   
   //game.fieldPos.x = (SCREENW-FIELDW)/2+sin(alpha#)*50
   //inc alpha#, dT*45
   
return

DrawGame:
   //Field
   cls
   ink 0xffffffff, 0
   box game.fieldPos.x-2, game.fieldPos.y-2, game.fieldPos.x+FIELDW+2, game.fieldPos.y+FIELDH+2
   ink 0, 0
   box game.fieldPos.x, game.fieldPos.y, game.fieldPos.x+FIELDW, game.fieldPos.y+FIELDH

   if game.state = 0
      ink 0xffcccccc, 0
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-10, "Level "+str$(game.round)
      if pl.aimOn
         ink 0xffccffcc, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2+5, "Aiming Level! Mousewheel!"
      endif
   endif

   if game.state <> 4
      //Player
      paste sprite 2, game.fieldPos.x+pl.p.x, game.fieldPos.y+pl.p.y
      if pl.aimOn
         ink -1, 0
         x = game.fieldPos.x+pl.p.x+pl.size.x/2
         y = game.fieldPos.y+pl.p.y
         line x, y, x+cos(pl.aimAngle)*50, y+sin(pl.aimAngle)*50
      endif
   endif
   //Blocks
   for t = 0 to game.tiles-1
      if block(t).on or block(t).fade > 0
         if block(t).layer = 0
            colour = interpolate_color(rgb(200, 200, 200), rgb(40, 40, 40), game.layerState, 2)
         else
            colour = interpolate_color(rgb(40, 40, 40), rgb(200, 200, 200), game.layerState, 2)
         endif
         if block(t).on = 0
            colour = interpolate_color(0xff00ff00, 0xffff00ff, block(t).fade, 0)
            py = 8-block(t).fade*8
         else
            py = 0
         endif
         set sprite diffuse 1, rgbr(colour), rgbg(colour), rgbb(colour)
         paste sprite 1, game.fieldPos.x+block(t).p.x, game.fieldPos.y+block(t).p.y-py
      endif
   next t
   if game.state <> 4
      //Ball
      paste sprite 3, game.fieldPos.x+ball.p.x, game.fieldPos.y+ball.p.y
      if ball.combo > 2 and game.state <> 3
         ink 0xff44ff44, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-5, "Combo : "+str$(ball.combo)
         ink 0xffff44ff, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2+10, "+"+str$(ball.comboScore)
      endif
   endif
   
   if game.state <> 4
      ink 0xffaaaaaa, 0
      text game.fieldPos.x+2, game.fieldPos.y+2, "level "+str$(game.round)
      colour = interpolate_color(0xffffffff, 0xff00ff00, game.scoreFlash, 3)
      ink colour, 0
      text game.fieldPos.x+2+game.scoreFlash*4, game.fieldPos.y+17, str$(game.score)
      if game.timeScore > 0
         ink 0xffffffff, 0
         text game.fieldPos.x+2, game.fieldPos.y+32, "+"+str$(int(game.timeScore))
      endif
      if game.highScore > 0
         tempStr = "hs "+str$(game.highScore)
         text game.fieldPos.x+FIELDW-text width(tempStr)-2, game.fieldPos.y+2, tempStr
         tempStr = "bl "+str$(game.highLevel)
         text game.fieldPos.x+FIELDW-text width(tempStr)-2, game.fieldPos.y+17, tempStr
      endif
   else
      ink 0xffdddddd
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-70*game.gameOverTime, "game over"
      if game.newHighScore
         ink 0xff00ff00, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-45*game.gameOverTime, "new highscore!"      
      endif
      if game.newHighLevel
         ink 0xffff0000, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-30*game.gameOverTime, "new best level!"
      endif
      ink 0xffaaaaaa
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-15*game.gameOverTime, "level "+space$(len(str$(game.round)))
      ink 0xffff0000
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-15*game.gameOverTime, "      "+str$(game.round)
      ink 0xffaaaaaa
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2, "score "+space$(len(str$(game.score)))
      ink 0xff00ff00
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2, "      "+str$(game.score)
      ink 0xffdddddd
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2+25*game.gameOverTime, "click to replay"
   endif
   
   if game.state = 3
      colour = interpolate_color(0xff888888, 0xffffffff, game.nextRoundTimer, 3)
      ink colour, 0
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-game.nextRoundTimer*20, "good!"
      if game.showTimeScore > 0
         ink 0xff00ff00
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2+15-game.nextRoundTimer*20, "+"+str$(game.showTimeScore)
      endif
   endif
return

function interpolate_color(color1 as dword, color2 as dword, prog as float, mode)
   color3 as dword
   `--
   r1 = rgbr(color1) : g1 = rgbg(color1) : b1 = rgbb(color1)
   r2 = rgbr(color2) : g2 = rgbg(color2) : b2 = rgbb(color2)
   r = interpolate(r1, r2, prog, mode)
   g = interpolate(g1, g2, prog, mode)
   b = interpolate(b1, b2, prog, mode)
   color3 = rgb(r, g, b)
endfunction color3

function interpolate(num1 as float, num2 as float, progress as float, mode)
   local res as float
   local true_progress as float
   `--
   select mode
      case 0 : true_progress = progress                     : endcase :`linear
      case 1 : true_progress = sin(-90+progress*90)+1       : endcase :`Anfang langsam
      case 2 : true_progress = sin(progress*90)             : endcase :`Ende langsam
      case 3 : true_progress = sin(-90+progress*180)/2+0.5  : endcase :`Anfang und Ende langsam
   endselect
   res = num1+(num2-num1)*true_progress
endfunction res

//DBPro Coding Challenges "Not your average breakout game" final entry
//27.11.2009
//by valle
#CONSTANT FIELDW 800
#CONSTANT FIELDH 600

`maximale Aulösung einstellen
load dll "user32.dll",1
SCREENW = call dll(1,"GetSystemMetrics",0)
SCREENH = call dll(1,"GetSystemMetrics",1)
delete dll 1

set display mode SCREENW, SCREENH, 32
sync on : sync rate 0 : sync
hide mouse

gosub FirstInit
gosub NewGame

FirstInit:
   type tVec
      x as float
      y as float
   endtype
   
   type tBall
      p as tVec
      v as tVec
      radius as integer
      combo as integer
      comboScore as integer
   endtype
   
   type tBallTrail
      p as tVec
      alpha as float
   endtype
   
   type tBlock
      p as tVec
      size as tVec
      layer as boolean
      on as boolean
      fade as float
      colour as dword
   endtype
   
   type tPaddle
      p as tVec
      oldX as integer
      v as integer
      vTimer as float
      size as tVec
      aimOn as boolean
      aimAngle as float
   endtype
   
   type tGame
      round as integer
      state as integer :`0 = fade in ; 1 = shoot ball ; 2 = play ; 3 = wait for next round ; 4 = game over
      fadeIn as float
      fadeOut as float
      fieldPos as tVec
      blockSize as tVec
      frontLayer as boolean
      layerState as float
      tiles as integer
      layer1Blocks as integer
      layer2Blocks as integer
      allBlocks as integer
      score as integer
      scoreFlash as float
      timeScore as float
      showTimeScore as integer
      nextRoundTimer as float
      roundEnd as boolean
      gameEnd as boolean
      gameOverTime as float
      newHighScore as boolean
      newHighLevel as boolean
      highScore as integer
      highLevel as integer
   endtype
   
   dT as float
   pl as tPaddle
   ball as tBall
   global game as tGame
   tempStr as string
   dim ballTrail(20) as tBallTrail
      ballTrailTimer as float
   
   game.fieldPos.x = (SCREENW-FIELDW)/2
   game.fieldPos.y = (SCREENH-FIELDH)/2
   if file exist("breakout_score")=1
      open to read 1, "breakout_score"
      read long 1, game.highScore
      read long 1, game.highLevel
      close file 1
   endif
   ball.radius = 8
   pl.size.x = 90 : pl.size.y = 20
   pl.p.y = FIELDH-50

   
   remstart for x = 0 to game.blockSize.x
      lock pixels
      for y = 0 to game.blockSize.y
         dist = sqrt((x-game.blockSize.x/2)^2+(y-game.blockSize.y)^2)
         dot x, y, rgb(255-dist*2, 255-dist*2, 255-dist*2)
      next y
      unlock pixels
   next x remend
   
   //PaddleImage
   for y = 0 to pl.size.y
      ink rgb(255-y*3, 255-y*3, 255-y*3), 0
      line 0, y, pl.size.x, y
   next y
   get image 2, 0, 0, pl.size.x, pl.size.y, 1
   sprite 2, 0, 0, 2 : set sprite 2, 0, 1 : hide sprite 2
   
   //BallImage
   cls
   for x = 0 to ball.radius*2
      for y = 0 to ball.radius*2
         dist = sqrt((x-ball.radius)^2+(y-ball.radius)^2)
         if dist < ball.radius then dot x, y, rgb(255-dist*3, 255-dist*3, 255-dist*3)
      next y
   next x
   get image 3, 0, 0, ball.radius*2, ball.radius*2, 1
   sprite 3, 0, 0, 3 : set sprite 3, 0, 1 : hide sprite 3
   offset sprite 3, ball.radius, ball.radius
   
   //bg
   cls
   for y = 0 to FIELDH
      ink interpolate_color( 0xff202020, 0, y*1.0/FIELDH, 2), 0
      line 0, y, FIELDW, y
   next y
   get image 4, 0, 0, FIELDW, FIELDH, 1
   sprite 4, 0, 0, 4 : set sprite 4, 0, 0 : hide sprite 4
return

NewGame:
   game.round = 0
   game.score = 0
   game.gameEnd = 0
   pl.aimOn = 1
   gosub NewRound
   gosub main
return

NewRound:
   inc game.round
   if game.round mod 3 = 0
      pl.aimAngle = 270
      pl.aimOn = 1
   else
      pl.aimOn = 0
   endif
   ball.combo = 0 : ball.comboScore = 0
   game.state = 0
   game.fadeIn = 0
   pl.p.x = FIELDW/2-pl.size.x/2
   ball.p.x = FIELDW/2
   ball.p.y = pl.p.y-ball.radius
   game.frontLayer = 0
   game.layerState = 0.2
   game.timeScore = 4000
   game.roundEnd = 0
   
   For t = 0 to 20
      ballTrail(t).p.x = ball.p.x
      ballTrail(t).p.y = ball.p.y
   next t
   
   //Blocks erschaffen
   if game.round < 9
      XTILES = 4+game.round-1
      YTILES = 2+game.round-1
   else
      XTILES = 12
      YTILES = 10
   endif
   game.tiles = XTILES*YTILES
   game.blockSize.x = ((FIELDW-200)/XTILES)-10
   game.blockSize.y = 20
   //undim block()
   dim block(game.tiles-1) as tBlock
   index = 0
   for x = 0 to XTILES-1
      for y = 0 to YTILES-1
         block(index).p.x = 100+x*((FIELDW-200)/XTILES)
         block(index).p.y = 50+y*30
         block(index).size.x = game.blockSize.x
         block(index).size.y = game.blockSize.y
         block(index).on = 1
         block(index).layer = rnd(1)
         inc index
      next y
   next x
   //BlockImage
   for y = 0 to game.blockSize.y
      ink rgb(255-y*6, 255-y*6, 255-y*6), 0
      line 0, y, game.blockSize.x, y
   next y
   ink 0, 0
   dot 0, 0 : dot game.blockSize.x-1, 0
   dot 0, game.blockSize.y-1 : dot game.blockSize.x-1, game.blockSize.y-1
   get image 1, 0, 0, game.blockSize.x, game.blockSize.y, 1
   sprite 1, 0, 0, 1 : set sprite 1, 0, 1 : hide sprite 1
return

main:
   oldTime = timer()
   do
      
      dT = (timer()-oldTime)*0.001
      oldTime = timer()
      
      gosub Process
      gosub DrawGame
   
      sync
   loop
return

Process:
   select game.state
      case 0:
         if pl.aimOn = 0
            inc game.fadeIn, dT
         else
            inc game.fadeIn, dT*0.5
         endif
         game.layerState = 0.3-game.fadeIn*0.3
         if game.fadeIn >= 1 then inc game.state
         ball.p.x = pl.p.x+pl.size.x/2
         ball.p.y = pl.p.y-ball.radius
      endcase
      case 1:
         ball.p.x = pl.p.x+pl.size.x/2
         ball.p.y = pl.p.y-ball.radius
         if mouseclick()=1
            speed = 300+game.round*75
            if speed > 625 then speed = 625
            if pl.aimOn
               speed = speed
               ball.v.x = cos(pl.aimAngle)*speed
               ball.v.y = sin(pl.aimAngle)*speed
            else
               ball.v.y = -speed
               ball.v.x = pl.v*5``-75+rnd(1)*150
            endif
            inc game.state
         endif
      endcase
      case 2:
         inc ball.p.x, ball.v.x*dT
         inc ball.p.y, ball.v.y*dT
         //Ballkollision
         if ball.v.y < 0
            if ball.p.y-ball.radius < 0
               ball.p.y = ball.radius : ball.v.y = abs(ball.v.y)
            endif
            for t = 0 to game.tiles-1
               if block(t).on and block(t).layer = game.frontLayer
                  if ball.p.x+ball.radius > block(t).p.x and ball.p.x-ball.radius < block(t).p.x+block(t).size.x
                     if ball.p.y-ball.radius < block(t).p.y+block(t).size.y
                        if ball.p.y-ball.radius > block(t).p.y+block(t).size.y-20
                           ball.p.y = block(t).p.y+block(t).size.y+ball.radius
                           inc ball.v.x, -20+rnd(40)
                           ball.v.y = abs(ball.v.y)
                           block(t).on = 0 : block(t).fade = 1.0
                           inc ball.combo
                           if ball.combo > 2
                              inc game.score, 100+(ball.combo-2)*50
                              inc ball.comboScore, (ball.combo-2)*50
                           else
                              inc game.score, 100
                           endif
                           game.scoreFlash = 1.0
                        endif
                     endif
                  endif
               endif
            next t
         endif
         if ball.v.y > 0
            if ball.p.y+ball.radius > FIELDH
               game.state = 4
               game.gameOverTime = 0
               //gosub NewGame
            endif
            for t = 0 to game.tiles-1
               if block(t).on and block(t).layer = game.frontLayer
                  if ball.p.x+ball.radius > block(t).p.x and ball.p.x-ball.radius < block(t).p.x+block(t).size.x
                     if ball.p.y+ball.radius > block(t).p.y
                        if ball.p.y+ball.radius < block(t).p.y+20
                           ball.p.y = block(t).p.y-ball.radius
                           inc ball.v.x, -20+rnd(40)
                           ball.v.y = -abs(ball.v.y)
                           block(t).on = 0 : block(t).fade = 1.0
                           inc ball.combo
                           if ball.combo > 2
                              inc game.score, 100+(ball.combo-2)*50
                              inc ball.comboScore, (ball.combo-2)*50
                           else
                              inc game.score, 100
                           endif
                           game.scoreFlash = 1.0
                        endif
                     endif
                  endif
               endif
            next t
         endif
         if ball.v.x < 0
            if ball.p.x-ball.radius < 0
               ball.p.x = ball.radius : ball.v.x = abs(ball.v.x)
            endif
            for t = 0 to game.tiles-1
               if block(t).on and block(t).layer = game.frontLayer
                  if ball.p.y+ball.radius > block(t).p.y and ball.p.y-ball.radius < block(t).p.y+block(t).size.y
                     if ball.p.x-ball.radius < block(t).p.x+block(t).size.x
                        if ball.p.x-ball.radius > block(t).p.x+block(t).size.x-20
                           ball.p.x = block(t).p.x+block(t).size.x+ball.radius
                           inc ball.v.y, -20+rnd(40)
                           ball.v.x = abs(ball.v.x)
                           block(t).on = 0 : block(t).fade = 1.0
                           inc ball.combo
                           if ball.combo > 2
                              inc game.score, 100+(ball.combo-2)*50
                              inc ball.comboScore, (ball.combo-2)*50
                           else
                              inc game.score, 100
                           endif
                           game.scoreFlash = 1.0
                        endif
                     endif
                  endif
               endif
            next t
         endif
         if ball.v.x > 0
            if ball.p.x+ball.radius > FIELDW
               ball.p.x = FIELDW-ball.radius : ball.v.x = -abs(ball.v.x)
            endif
            for t = 0 to game.tiles-1
               if block(t).on and block(t).layer = game.frontLayer
                  if ball.p.y+ball.radius > block(t).p.y and ball.p.y-ball.radius < block(t).p.y+block(t).size.y
                     if ball.p.x+ball.radius > block(t).p.x
                        if ball.p.x+ball.radius < block(t).p.x+20
                           ball.p.x = block(t).p.x-ball.radius
                           inc ball.v.y, -20+rnd(40)
                           ball.v.x = -abs(ball.v.x)
                           block(t).on = 0 : block(t).fade = 1.0
                           inc ball.combo
                           if ball.combo > 2
                              inc game.score, 100+(ball.combo-2)*50
                              inc ball.comboScore, (ball.combo-2)*50
                           else
                              inc game.score, 100
                           endif
                           game.scoreFlash = 1.0
                        endif
                     endif
                  endif
               endif
            next t
         endif
         
         //timeScore
         dec game.timeScore, dT*50
         if game.timeScore < 0 then game.timeScore = 0 
         
         //wie viele Blocks insd noch übrig
         game.allBlocks = 0
         game.layer1Blocks = 0
         game.layer2Blocks = 0
         for t = 0 to game.tiles-1
            if block(t).on 
               inc game.allBlocks
               if block(t).layer = 0
                  inc game.layer1Blocks
               else
                  inc game.layer2Blocks
               endif
            endif
         next t
         
         if (game.frontLayer = 0 and game.layer1blocks = 0) or (game.frontLayer = 1 and game.layer2blocks = 0)
            game.frontLayer = 1-game.frontLayer
         endif
         
         //Nächste Runde
         if game.allBlocks <= 0
            //if game.timeScore > 0
               //inc game.score, game.timeScore
               //game.scoreFlash = 1.0
            //endif
            //gosub NewRound
            inc game.state
            game.nextRoundTimer = 0
         endif
         
         
         //Ballkollision mit Spieler
         if ball.v.y > 0
            if ball.p.x+ball.radius > pl.p.x and ball.p.x -ball.radius < pl.p.x+pl.size.x
               if ball.p.y+ball.radius > pl.p.y and ball.p.y+ball.radius < pl.p.y+20
                  if pl.aimOn
                     speed = sqrt((ball.v.x)^2+(ball.v.y)^2)
                     ball.v.x = cos(pl.aimAngle)*speed
                     ball.v.y = sin(pl.aimAngle)*speed
                  else
                     ball.v.y = -abs(ball.v.y)
                     inc ball.v.x, (ball.p.x-(pl.p.x+pl.size.x/2))*5+pl.v*5
                  endif
                  ball.combo = 0 : ball.comboScore = 0
                  if game.frontLayer = 0
                     if game.layer2Blocks > 0 then game.frontLayer = 1
                  else
                     if game.layer1Blocks > 0 then game.frontLayer = 0
                  endif
               endif
            endif
         endif
      endcase
      
      case 3:
         if game.roundEnd = 0
            //Nächste Runde
            if game.timeScore > 0
               inc game.score, game.timeScore
               game.scoreFlash = 1.0
            endif
            game.showTimeScore = game.timeScore
            game.roundEnd = 1
         endif
         inc game.nextRoundTimer, dT
         if game.nextRoundTimer >= 1
            gosub NewRound
         endif
      endcase
      
      case 4:
         inc game.gameOverTime, dT*0.5
         if game.gameOverTime > 1 then game.gameOverTime = 1
         if game.gameEnd = 0
            //GameOver
            for t = 0 to game.tiles-1
               if block(t).on
                  block(t).on = 0
                  block(t).fade = (block(t).layer = game.frontLayer)*0.5+rnd(50)*0.01
               endif
            next t
            if game.score > game.highScore
               game.highScore = game.score
               game.newHighScore = 1
            else
               game.newHighScore = 0
            endif
            if game.round > game.highLevel
               game.highLevel = game.round
               game.newHighLevel = 1
            else
               game.newHighLevel = 0
            endif
            if game.newHighScore = 1 or game.newHighLevel = 1
               if file exist("breakout_score")=1
                  open to read 1, "breakout_score"
                  read long 1, old_hs : read long 1, old_hl
                  close file 1
                  delete file "breakout_score"
               else
                  old_hs = 0 : old_hl = 0
               endif
                  
               open to write 1, "breakout_score"
               if game.newHighScore = 1
                  write long 1, game.highScore
               else
                  write long 1, old_hs
               endif
               if game.newHighLevel = 1
                  write long 1, game.highLevel
               else
                  write long 1, old_hl
               endif
               close file 1
            endif
            game.gameEnd = 1
         endif
         if mouseclick() then gosub NewGame
      endcase
      
   endselect
   
   //Tote Blocks ausfaden
   if game.state = 4
      For t = 0 to game.tiles-1
         if block(t).on = 0
            dec block(t).fade, dT
         endif
      next t
   else
      For t = 0 to game.tiles-1
         if block(t).on = 0
            dec block(t).fade, dT*4
         endif
      next t   
   endif
   
   if game.state <> 3
      //BallTrail
      inc ballTrailTimer, dT
      if ballTrailTimer >= 0.05
         //inc ballTrailIndex
         //if ballTrailIndex > 20
            //ballTrailIndex = 0
         //endif
         for t = 20 to 1 step -1
            ballTrail(t).p.x = ballTrail(t-1).p.x-1+rnd(2)
            ballTrail(t).p.y = ballTrail(t-1).p.y-1+rnd(2)
         next t
         ballTrail(0).p.x = ball.p.x
         ballTrail(0).p.y = ball.p.y
         //ballTrail(0).alpha = 128
         ballTrailTimer = 0
      endif
   endif
   
   //Spieler kontrollieren
   pl.p.x = mousex()-game.fieldPos.x-pl.size.x/2
   if pl.p.x < 0 then pl.p.x = 0
   if pl.p.x+pl.size.x > FIELDW then pl.p.x = FIELDW-pl.size.x
   inc pl.vTimer, dT
   if pl.vTimer >= 0.05
      pl.v = int(pl.p.x)-pl.oldX
      pl.oldX = int(pl.p.x)
      pl.vTimer = 0
   endif
   if mousex()<game.fieldPos.x+pl.size.x/2
      position mouse game.fieldPos.x+pl.size.x/2, mousey()
   endif
   if mousex()>game.fieldPos.x+FIELDW-pl.size.x/2
      position mouse game.fieldPos.x+FIELDW-pl.size.x/2, mousey()
   endif
   if pl.aimOn
      dec pl.aimAngle, mousemovez()*0.1
      if pl.aimAngle < 190 then pl.aimAngle = 190
      if pl.aimAngle > 350 then pl.aimAngle = 350 
   endif
   
   //Scoreflash
   dec game.scoreFlash, dt
   if game.scoreFlash < 0 then game.scoreFlash = 0
   
   //Layer wechseln
   if game.frontLayer = 1 and game.state <> 0
      inc game.layerState, dT*2
      if game.layerState > 1 then game.layerState = 1
   else
      dec game.layerState, dT*2
      if game.layerState < 0 then game.layerState = 0
   endif
   


   //game.fieldPos.x = (SCREENW-FIELDW)/2+sin(alpha#)*50
   //inc alpha#, dT*45
   
return

DrawGame:
   //Field
   cls
   ink 0xffffffff, 0
   box game.fieldPos.x-2, game.fieldPos.y-2, game.fieldPos.x+FIELDW+2, game.fieldPos.y+FIELDH+2
   //ink 0, 0
   //box game.fieldPos.x, game.fieldPos.y, game.fieldPos.x+FIELDW, game.fieldPos.y+FIELDH
   //box game.fieldPos.x, game.fieldPos.y, game.fieldPos.x+FIELDW, game.fieldPos.y+FIELDH, 0xff222222, 0, 0xff222222, 0
   paste sprite 4, game.fieldPos.x, game.fieldPos.y

   if game.state <> 4
      //Player
      paste sprite 2, game.fieldPos.x+pl.p.x, game.fieldPos.y+pl.p.y
      if pl.aimOn
         ink -1, 0
         x = game.fieldPos.x+pl.p.x+pl.size.x/2
         y = game.fieldPos.y+pl.p.y
         line x, y, x+cos(pl.aimAngle)*50, y+sin(pl.aimAngle)*50
      endif
   endif
   //Blocks
   for t = 0 to game.tiles-1
      if block(t).on or block(t).fade > 0
         if block(t).layer = 0
            colour = interpolate_color(rgb(185, 200, 185), rgb(50, 40, 40), game.layerState, 2)
         else
            colour = interpolate_color(rgb(50, 40, 40), rgb(185, 200, 185), game.layerState, 2)
         endif
         if block(t).on = 0
            colour = interpolate_color(0xff00ff00, 0xffff00ff, block(t).fade, 0)
            py = 8-block(t).fade*8
         else
            py = 0
         endif
         set sprite diffuse 1, rgbr(colour), rgbg(colour), rgbb(colour)
         paste sprite 1, game.fieldPos.x+block(t).p.x, game.fieldPos.y+block(t).p.y-py
      endif
   next t
   
   //Trails
   For t = 0 to 19
      ink rgb(200-t*8, t*2, 50-t*2), 0
      x1 = game.fieldPos.x+ballTrail(t).p.x : y1 = game.fieldPos.y+ballTrail(t).p.y
      x2 = game.fieldPos.x+ballTrail(t+1).p.x : y2 = game.fieldPos.y+ballTrail(t+1).p.y
      line x1, y1, x2, y2
   next t
   
   if game.state <> 4
      //Ball
      set sprite alpha 3, 255
      paste sprite 3, game.fieldPos.x+ball.p.x, game.fieldPos.y+ball.p.y
      if ball.combo > 2 and game.state <> 3
         ink 0xff44ff44, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-5, "Combo : "+str$(ball.combo)
         ink 0xffff44ff, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2+10, "+"+str$(ball.comboScore)
      endif
   endif
   
   //Text 
   if game.state = 0
      ink 0xffcccccc, 0
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-10, "Level "+str$(game.round)
      if pl.aimOn
         ink 0xffccffcc, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2+5, "Aiming Level! Mousewheel!"
      endif
   endif
   
   if game.state <> 4
      ink 0xffaaaaaa, 0
      text game.fieldPos.x+2, game.fieldPos.y+2, "level "+str$(game.round)
      colour = interpolate_color(0xffffffff, 0xff00ff00, game.scoreFlash, 3)
      ink colour, 0
      text game.fieldPos.x+2+game.scoreFlash*4, game.fieldPos.y+17, str$(game.score)
      if game.timeScore > 0
         ink 0xffffffff, 0
         text game.fieldPos.x+2, game.fieldPos.y+32, "+"+str$(int(game.timeScore))
      endif
      if game.highScore > 0
         tempStr = "hs "+str$(game.highScore)
         text game.fieldPos.x+FIELDW-text width(tempStr)-2, game.fieldPos.y+2, tempStr
         tempStr = "bl "+str$(game.highLevel)
         text game.fieldPos.x+FIELDW-text width(tempStr)-2, game.fieldPos.y+17, tempStr
      endif
   else
      ink 0xffdddddd, 0
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-70*game.gameOverTime, "game over"
      if game.newHighScore
         ink 0xff00ff00, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-45*game.gameOverTime, "new highscore!"      
      endif
      if game.newHighLevel
         ink 0xffff0000, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-30*game.gameOverTime, "new best level!"
      endif
      ink 0xffaaaaaa, 0
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-15*game.gameOverTime, "level "+space$(len(str$(game.round)))
      ink 0xffff0000, 0
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-15*game.gameOverTime, "      "+str$(game.round)
      ink 0xffaaaaaa, 0
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2, "score "+space$(len(str$(game.score)))
      ink 0xff00ff00, 0
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2, "      "+str$(game.score)
      ink 0xffdddddd, 0
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2+25*game.gameOverTime, "click to replay"
   endif
   
   if game.state = 3
      colour = interpolate_color(0xff888888, 0xffffffff, game.nextRoundTimer, 3)
      ink colour, 0
      center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2-game.nextRoundTimer*20, "good!"
      if game.showTimeScore > 0
         ink 0xff00ff00, 0
         center text game.fieldPos.x+FIELDW/2, game.fieldPos.y+FIELDH/2+15-game.nextRoundTimer*20, "+"+str$(game.showTimeScore)
      endif
   endif
return

function interpolate_color(color1 as dword, color2 as dword, prog as float, mode)
   color3 as dword
   `--
   r1 = rgbr(color1) : g1 = rgbg(color1) : b1 = rgbb(color1)
   r2 = rgbr(color2) : g2 = rgbg(color2) : b2 = rgbb(color2)
   r = interpolate(r1, r2, prog, mode)
   g = interpolate(g1, g2, prog, mode)
   b = interpolate(b1, b2, prog, mode)
   color3 = rgb(r, g, b)
endfunction color3

function interpolate(num1 as float, num2 as float, progress as float, mode)
   local res as float
   local true_progress as float
   `--
   select mode
      case 0 : true_progress = progress                     : endcase :`linear
      case 1 : true_progress = sin(-90+progress*90)+1       : endcase :`Anfang langsam
      case 2 : true_progress = sin(progress*90)             : endcase :`Ende langsam
      case 3 : true_progress = sin(-90+progress*180)/2+0.5  : endcase :`Anfang und Ende langsam
   endselect
   res = num1+(num2-num1)*true_progress
endfunction res

` Project: Breakout Challenge by Rich Dersheimer
` Started: Wednesday, November 18, 2009
set display mode 800,600,32
disable escapekey
gosub InitializeVariables
gosub MakeFiles
gosub LoadFiles
gosub MakeGraphics
gosub MakeBackdrop
sync on
sync
nGameMode = 0
`********************************************************
` main program loop *************************************
`********************************************************
do
    if nGameMode = 0 then gosub StartScreen
    if nGameMode = 1 then gosub PlayGame
    if nGameMode = 2 then gosub EditGame
    if nGameMode = 3 then gosub EndGame
loop
`********************************************************
` end of main program loop ******************************
`********************************************************
end
`*******************
StartScreen:
show mouse
` get difficulty level
do
    ink cBlack,cBlack
    box 320,400,480,430
    box 200,400,300,430
    box 500,400,600,430
    box 300,450,500,480
    box 300,500,500,530
    ink cWhite,cBlack
    center text 400,350,"Choose your difficulty level"        
    center text 400,400,"NORMAL"
    center text 250,400,"EASY"
    center text 550,400,"HARD"
    center text 400,450,"START EDITOR"
    center text 400,500,"QUIT GAME"
    nDiffChoice = 0
    
    if keystate(1) ` ESC key - quit game
        for x = 1 to 3
            delete sound x
        next x
        undim Brick()
        end
    endif
    
    if mousex()>=300 and mousex()<=500 and mousey()>=500 and mousey()<=530
    	nDiffChoice = 7
    	ink cWhite,cBlack
    	box 300,500,500,530
    	ink cBlack,cBlack
    	center text 400,500,"QUIT GAME"
	endif    
    
    if mousex()>=300 and mousex()<=500 and mousey()>=450 and mousey()<=480
    	nDiffChoice = 6
    	ink cWhite,cBlack
    	box 300,450,500,480
    	ink cBlack,cBlack
    	center text 400,450,"START EDITOR"
	endif
    
    if mousex()>=200 and mousex()<=300 and mousey()>=400 and mousey()<=430
        nDiffChoice = 3
        ink cWhite,cBlack
        box 200,400,300,430
        ink cBlack,cBlack
        center text 250,400,"EASY"
    endif
    
    if mousex()>=320 and mousex()<=480 and mousey()>=400 and mousey()<=430
        nDiffChoice = 2
        ink cWhite,cBlack
        box 320,400,480,430
        ink cBlack,cBlack
        center text 400,400,"NORMAL"
    endif

    if mousex()>=500 and mousex()<=600 and mousey()>=400 and mousey()<=430
        nDiffChoice = 1
        ink cWhite,cBlack
        box 500,400,600,430
        ink cBlack,cBlack
        center text 550,400,"HARD"
    endif
    
    if mouseclick()=1 and nDiffChoice=7
        for x = 1 to 3
            delete sound x
        next x
        undim Brick()
        end
	endif
	
    if mouseclick()=1 and nDiffChoice=6
    	nGameMode = 2 ` edit game
    	wait 200
    	return
	endif
	
    if mouseclick()=1 and nDiffChoice<>0
        nGameDifficulty = nDiffChoice
        nGameMode = 1 ` play game
        wait 200
        return
    endif       
    sync
loop
return
`*******************
PlayGame:   
nLevel = 1          ` the current Brick array level
nTotalLevel = 1     ` the highest level reached
nInstructionsOn = 1 ` 0 = don't show instructions, 1 = show instructions
nDirection = 2      ` 1 = move spaceship left, 2 = move spaceship right
nBallOnPaddle = 1   ` 0 = ball is not on paddle, 1 = ball is on paddle
scale sprite 1000,100
scale sprite 1001,100
if nGameDifficulty = 3 then Difficulty$="Easy":nNewBallScore=1000
if nGameDifficulty = 2 then Difficulty$="Normal":nNewBallScore=2000
if nGameDifficulty = 1 then Difficulty$="Hard":nNewBallScore=3000
nBalls = (nGameDifficulty*2)-1
nScore = 0
nGameSpeed = 7
gosub NewLevel
show sprite 1000
show sprite 1001
hide mouse
nTime = timer()
nSpriteTimer = timer()

do
if keystate(18) ` E - starts the game editor
    nGameMode = 2
    return
endif

if keystate(1) ` ESC key - quit game
    nGameMode = 3
    wait 100
    return
endif

if timer() > nTime + nGameSpeed
    ` reset the game timer
    nTime = timer()             
    ` limit the paddle to inside the borders        
    nPaddleX = mousex()
    if nPaddleX < 70 then nPaddleX = 70
    if nPaddleX > 730 then nPaddleX = 730
    ` limit the mouse to the playing field
    if mousex()<50 then position mouse nPaddleX,300
    if mousey()<50 then position mouse nPaddleX,300
    if mousey() > 500 then position mouse nPaddleX,300
    if mousex() > 765 then position mouse nPaddleX,300
    ` move the paddle
    nOldPaddleX = sprite x(1001)
    sprite 1001,nPaddleX,580,iPaddle1
    
    if mouseclick() = 1 and nBallOnPaddle
        nBallOnPaddle = 0
        rotate sprite 1000,180
        nInstructionsOn = 0
    endif
    
    ` move the ball
    if nBallOnPaddle
        sprite 1000,nPaddleX,555,iBall
    else
        oldBallX = sprite x(1000)
        oldBallY = sprite y(1000)
        move sprite 1000,6
    endif
    
    ` move the spaceship
    sprite 1005,sprite x(1005)+nDirection,350,nSpaceshipImage    
    
    ` and loop through the frames
    if timer()>nSpriteTimer + 50
    	inc nSpaceshipImage
    	if nSpaceshipImage = 106 then nSpaceshipImage = 101
    	set sprite image 1005,nSpaceshipImage
    	nSpriteTimer = timer()
    endif
    
    ` spaceship reaches right side of screen   
    if sprite x(1005) > 950
        nDirection = -1
        if sprite visible(1005)
            if rnd(4) = 1
                hide sprite 1005
                stop sound 3
            endif
        else
            if rnd(4) = 1  and nInstructionsOn = 0
                show sprite 1005
                loop sound 3
            endif
        endif
    endif
    
    ` spaceship reaches left side of screen
    if sprite x(1005) < -150
        nDirection = 1
        if sprite visible(1005) 
            if rnd(4) = 1
                hide sprite 1005
                stop sound 3
            endif
        else
            if rnd(4) = 1 and nInstructionsOn = 0
                show sprite 1005
                loop sound 3
            endif
        endif
    endif
    
    ` find the latest object to collide with the ball
    nOldCollision = nCollision
    nCollision = sprite collision(1000,0)
    
    ` this checks for a collision between the ball and a block
    if nCollision > 0 and nCollision <= nNumberOfSprites
        select sprite image(nCollision)
            case iSoftBrick
                delete sprite nCollision
                inc nScore,5
                dec nNumberOfBricks
            endcase
            
            case iHardBrick
                bounce(nCollision)                
                delete sprite nCollision
                inc nScore,5            
                dec nNumberOfBricks
            endcase
            
            case iBarrierBrick
                if nCollision <> nOldCollision
                    bounce(nCollision)
                endif                
            endcase
            
            case iGoldBrick
                bounce(nCollision)
                delete sprite nCollision
                inc nScore,100                
                dec nNumberOfBricks
            endcase
            
            case iPaddleBrick
                bounce(nCollision)
                delete sprite nCollision
                inc nScore,5
                dec nNumberOfBricks
                scale sprite 1001,200
                nBigPaddleTimer = timer()+(10000*nGameDifficulty)
            endcase
            
            case iBallBigBrick
                bounce(nCollision)
                delete sprite nCollision
                inc nScore,5
                dec nNumberOfBricks
                scale sprite 1000,200
                nBigBallTimer = timer()+(10000*nGameDifficulty)
            endcase
            
            case iKillerBrick
                delete sprite nCollision
                inc nScore,25
                dec nBalls
                dec nNumberOfBricks
                play sound 2
                nBallOnPaddle = 1
                if nBalls < 1 
                    nGameMode = 3
                    return
                endif
            endcase
            
            case iRandomBrick
                delete sprite nCollision
                rotate sprite 1000, rnd(359)
                inc nScore,5
                dec nNumberOfBricks
            endcase
        endselect                       
        if not sound playing(1) then play sound 1        
        nOldCollision = nCollision
    endif
    
    ` the ball hits the top border - mirror angle
    if sprite y(1000) < 65
        rotate sprite 1000, wrapvalue(180-sprite angle(1000))
        nOldCollision = 0
        if not sound playing(1) then play sound 1
    endif
    
    ` the ball hits a side border - flip angle
    if sprite x(1000) < 45 or sprite x(1000) > 755
        rotate sprite 1000, wrapvalue(360 - sprite angle(1000))
        nOldCollision = 0
        if not sound playing(1) then play sound 1
    endif

    ` the ball hits the paddle
    if nCollision = 1001 and nBallOnPaddle = 0
        ` mirror the ball direction
        nSpriteAngle = sprite angle(1000)
        nSpriteAngle = wrapvalue(180-nSpriteAngle)
        ` add in some angle from the paddle movement
        nPaddleMovement = (nPaddleX-nOldPaddleX)*3
        if nPaddleMovement > 90 then nPaddleMovement = 90
        if nPaddleMovement < -90 then nPaddleMovement = -90
        nSpriteAngle = wrapvalue(nSpriteAngle+nPaddleMovement)
        ` make sure the ball is not travelling downward after the change
        if nSpriteAngle > 80 and nSpriteAngle < 180 then nSpriteAngle = 80
        if nSpriteAngle > 179 and nSpriteAngle < 280 then nSpriteAngle = 280
        ` set the new ball angle
        rotate sprite 1000, nSpriteAngle
        if not sound playing(1) then play sound 1
    endif
    
    ` the ball hits the spaceship
    if nCollision = 1005 and sprite visible(1005)
        rotate sprite 1000,rnd(359)
        if not sound playing(1) then play sound 1
    endif
        
    ` the ball leaves the playing field
    if sprite y(1000) > 600 or sprite y(1000) < 0 or sprite x(1000) > 800 or sprite x(1000) < 0
        dec nBalls
        play sound 2
        nBallOnPaddle = 1
        scale sprite 1000,100
        scale sprite 1001,100
        if nBalls < 1
            nGameMode = 3
            return
        endif
    endif
    
    ` right clicking the mouse
    if mouseclick()=2
        wait 500
        dec nBalls
        play sound 2
        nBallOnPaddle = 1
        scale sprite 1000,100
        scale sprite 1001,100
        if nBalls < 1
            nGameMode = 3
            return
        endif
    endif
    
    ` check score for new ball
    if nScore >= nNewBallScore
        inc nBalls
        inc nNewBallScore,(4-nGameDifficulty)*1000
    endif

    ` check for all bricks killed - new level
    if nNumberOfBricks <= 0
        inc nLevel
        inc nTotalLevel
        if nLevel = 11
            nLevel = 1
            dec nGameSpeed
            if nGameSpeed < 3 then nGameSpeed = 3                        
        endif
        gosub NewLevel
        nBallOnPaddle = 1
    endif
    
    ` check for big ball timer to expire
    if sprite scale x(1000) <> 100 and timer()>nBigBallTimer then scale sprite 1000,100
    
    ` check for big paddle timer to expire
    if sprite scale x(1001) <> 100 and timer()>nBigPaddleTimer then scale sprite 1001,100
        
    ` display info
    ink cWhite,cBlack
    set text size 30
    text 20,5,"Difficulty: "+Difficulty$+"    Level: "+ str$(nTotalLevel)+ "     Balls: "+str$(nBalls)+"     Score: "+str$(nScore)
    if nInstructionsOn then gosub ShowInstructions
    sync    
endif    

loop
return
`*******************
NewLevel:
` clear all bricks
for s = 1 to 220
    if sprite exist(s) then delete sprite s
next s

` hide the spaceship
hide sprite 1005
stop sound 3

` build the level
nNumberOfSprites = 0
nNumberOfBricks = 0
for y = 1 to 10
    for x = 1 to 22
        nBrickType = Brick(nLevel,x,y)
        
        if nBrickType < 1 or nBrickType > 8
            cls
            set text size 20
            ink cWhite,cBlack
            print "ERROR OF BRICKTYPE ";nBrickType;" AT LEVEL ";nLevel;" X:";x;" Y:";y
            sync
            wait key
        endif
        
        inc nNumberOfSprites
        if nBrickType <> 3 then inc nNumberOfBricks
        sprite nNumberOfSprites,x*30+55,y*20+70,nBrickType
        offset sprite nNumberOfSprites,15,10
    next x
next y

gosub MakeNewBackdrop
return
`*******************
ShowInstructions:
set text size 20
ink cWhite,cBlack
paste image iSoftBrick,100,310
paste image iHardBrick,100,340
paste image iBarrierBrick,100,370
paste image iGoldBrick,100,400
paste image iPaddleBrick,100,430
paste image iBallBigBrick,100,460
paste image iKillerBrick,100,490
paste image iRandomBrick,100,520

text 130,310," - Soft brick, no bounce, 5 pts."
text 130,340," - Hard brick, 5 pts."
text 130,370," - Barrier brick, not destroyed, 0 pts."
text 130,400," - Gold bonus brick, 100 pts."
text 130,430," - Paddle Size Powerup brick, 5 pts."
text 130,460," - Ball Size Powerup brick, 5 pts."
text 130,490," - Ball Killer brick, 25 pts."
text 130,520," - Random bounce brick, 5 pts."

if nGameMode = 1
    center text 600,310,"Left-click to launch the ball."
    center text 600,340,"Moving the paddle will change"
    center text 600,360,"the ball's bounce angle."
    center text 600,400,"If the ball ever gets stuck,"
    center text 600,420,"you may right-click to destroy"
    center text 600,440,"the ball and launch a new one."
    center text 600,480,"Press 'E' to start the editor."
    center text 600,520,"Press the ESCAPE key to quit."
endif

if nGameMode = 2
    center text 580,310,"Use PgUp and PgDn to change level."
    center text 580,340,"Left-click a brick type to choose it."
    center text 580,370,"Left-click a brick to change that"
    center text 580,390,"brick to the current brick type."
    center text 580,410,"(You can click and drag, too.)"    
    center text 580,440,"Press S to save changes to the bricks file."
    center text 580,470,"Press L to load in the bricks file."
    center text 580,500,"Press P to play the game."
    center text 580,530,"Press the ESCAPE key to quit."
endif

return
`*******************
EditGame:
hide sprite 1000
hide sprite 1001
nScore = 0
nLevel = 1
gosub NewLevel
nCursorBrickType = 1
sprite 1006,0,0,nBrickType
offset sprite 1006,sprite width(1006)/2,sprite height(1006)/2
scale sprite 1006,75
set sprite priority 1006,1

do
    gosub ShowInstructions
    sprite 1006,mousex(),mousey(),nCursorBrickType
    ink cWhite,cBlack
    set text size 30
    
    if keystate(1) ` ESC key - quit game
        nGameMode = 3
        wait 100
        return
    endif
    
    if keystate(25) ` P - play the game
        delete sprite 1006
        for x = 1 to 220
            if sprite exist(x) then delete sprite x
        next x
        nGameMode = 0
        return        
    endif
    
    if keystate(38) ` L - load from the bricks file
        if file exist("BRICKS.DAT")
            text 20,5,"LOADING FILE..."
            sync
            load array "BRICKS.DAT", Brick(10,22,10)
            wait 2000
            nLevel = 1
            gosub NewLevel
        else
            text 20,5,"BRICKS.DAT FILE NOT FOUND!"
            sync
            wait 2000
        endif
    endif
    
    if keystate(31) ` S - save to the bricks file            
        if file exist("BRICKS.DAT")
            delete file "BRICKS.DAT"
        endif
        text 20,5,"SAVING FILE..."
        sync
        save array "BRICKS.DAT", Brick(10,22,10)
        wait 2000        
    endif
    
    ` The dump to data file creates data statements
    ` that can be cut and and pasted back into the
    ` program code, thus satifying the requirements
    ` for no media, per challenge contest rules.
    if keystate(32) ` D - dump to the data file            
        if file exist("BRICKSDUMP.TXT")
            delete file "BRICKSDUMP.TXT"
        endif
        text 20,5,"SAVING DATA STATEMENTS FILE..."
        sync
        open to write 1,"BRICKSDUMP.TXT"
        for L = 1 to 10
            write string 1,"REM LEVEL "+str$(L)
            for R = 1 to 10
                a$="data "+chr$(34)
                for C = 1 to 22
                    a$=a$+str$(Brick(L,C,R))
                next C
                a$=a$+chr$(34)
                write string 1,a$
            next R
        next L
        close file 1
        wait 2000        
    endif
    
    if keystate(201) ` PgUp - go up a level
        inc nLevel
        if nLevel = 11 then nLevel = 1
        gosub NewLevel
        wait 200
    endif
    
    if keystate(209) ` PgDn - go down a level
        dec nLevel
        if nLevel = 0 then nLevel = 10
        gosub NewLevel
        wait 200
    endif
    
    if mousex()>99 and mousex()<131 and mousey()>309 and mousey()<540
        nCursorBrick = ((mousey()-280)/30)
    else
        nCursorBrick = 0
    endif    
    
    if mousex()>69 and mousex()<731 and mousey()>79 and mousey()<281
        nCursorX = (mousex()-40)/30
        nCursorY = (mousey()-60)/20
        nThisSprite = nCursorX+((nCursorY-1)*22)
    else
        nCursorX = 0
        nCursorY = 0
        nThisSprite = 0
    endif
    
    if mouseclick()=1 and nCursorBrick <> 0
        nCursorBrickType = nCursorBrick
    endif
    
    if mouseclick()=1 and nCursorX+nCursorY <>0
        if sprite exist(nThisSprite)
            set sprite image nThisSprite,nCursorBrickType
            Brick(nLevel,nCursorX,nCursorY)=nCursorBrickType
        endif
    endif
    
    text 20,5,"EDIT MODE - Level: " + str$(nLevel)
    sync
loop
return
`*******************
EndGame:

hide sprite 1000
hide sprite 1001
hide sprite 1005
if sprite exist(1006) then delete sprite 1006
stop sound 3

for x = 1 to 220
    if sprite exist(x) then delete sprite x
next x

` check if the player's score is high enough to post
nLowScoreForLevel = val(Scores$(nGameDifficulty,5,2))
if nScore > nLowScoreForLevel
	for x = 1 to 3
		Initials$(x)="?"
	next x
	x=1
	while Initials$(3)="?"
		center text 400,300,"Your score is high enough to post!"
		center text 400,330,"Type your initials..."
		box 319,400,362,403
		box 368,400,412,403
		box 418,400,461,403
		center text 295+50*x,370,Initials$(x)			
			
		for y = 1 to 3
			center text 295+50*y,370,Initials$(y)
		next y
			
		sync			
		wait key
		a$=inkey$()		
		a$=upper$(a$)
			
		if find sub string$(Test$,a$)>0
			Initials$(x)=a$
			inc x
		endif
	endwhile	
	
	`swap the score up the array until it reaches its proper spot	
	for nSpot = 4 to 1 step -1
		if nScore > val(Scores$(nGameDifficulty,nSpot,2))
			TempScore$=Scores$(nGameDifficulty,nSpot,2)
			TempInitials$=Scores$(nGameDifficulty,nSpot,1)
			Scores$(nGameDifficulty,nSpot,2)=str$(nScore)
			Scores$(nGameDifficulty,nSpot,1)=Initials$(1)+Initials$(2)+Initials$(3)
			Scores$(nGameDifficulty,nSpot+1,2)=TempScore$
			Scores$(nGameDifficulty,nSpot+1,1)=TempInitials$
		endif
	next nSpot	
	
	` now save the scoreboard file
	if file exist("SCORES.DAT") then delete file "SCORES.DAT"
	save array "SCORES.DAT", Scores$(3,5,2)
endif

show mouse
do
    set text size 30
    ink cWhite,cBlack
    text 20,5,"Difficulty: "+Difficulty$+"    Level: "+ str$(nTotalLevel)+ "     Balls: "+str$(nBalls)+"     Score: "+str$(nScore)
    set text size 50
    center text 400,270,"G A M E   O V E R"
    set text size 30
    ink cBlack,cBlack
    box 200,320,390,350
    box 410,320,600,350
    ink cWhite,cBlack
    center text 295,320,"PLAY AGAIN"
    center text 505,320,"QUIT GAME"
    nEndChoice = 0
    
    set text size 20
    text 100,375,"EASY GAME"
    text 300,375,"NORMAL GAME"
    text 500,375,"HARD GAME"
    set text size 30

    for nDifficulty = 1 to 3
    	for nPlayer = 1 to 5
    		text 500-(nDifficulty-1)*200,370+nPlayer*30,Scores$(nDifficulty,nPlayer,1)+"  "+Scores$(nDifficulty,nPlayer,2)
    	next nPlayer
    next nDifficulty
    
    if keystate(1) ` ESC key - quit game
        for x = 1 to 3
            delete sound x
        next x
        undim Brick()
        end
    endif
        
    if mousex()>=200 and mousex()<=390 and mousey()>=320 and mousey()<=350
        nEndChoice = 1
        ink cWhite,cBlack
        box 200,320,390,350
        ink cBlack,cBlack
        center text 295,320,"PLAY AGAIN"
    endif
    
    if mousex()>=410 and mousex()<=600 and mousey()>=320 and mousey()<=350
        nEndChoice = 2
        ink cWhite,cBlack
        box 410,320,600,350
        ink cBlack,cBlack
        center text 505,320,"QUIT GAME"
    endif
    
    if mouseclick()=1 and nEndChoice<>0
        if nEndChoice = 2
            for x = 1 to 3
                delete sound x
            next x
            undim Brick()
            end
        endif
        if nEndChoice = 1
            nGameMode = 0
            wait 200
            return
        endif  
    endif
    sync
loop
return
`*******************
MakeFiles:
if not file exist("BRICKS.DAT") ` is there a Brick data file?
    for nLevel = 1 to 10
        for nRow = 1 to 10
            read a$
            for nColumn = 1 to 22
                Brick(nLevel,nColumn,nRow) = val(mid$(a$,nColumn))
            next nColumn
        next nRow
    next nLevel
    save array "BRICKS.DAT", Brick(10,22,10)
    nLevel = 1
endif

if not file exist("SCORES.DAT") ` is there a high score file?
    for nScoreDifficulty = 1 to 3
      	for nScoreEntry = 1 to 5
           	Scores$(nScoreDifficulty,nScoreEntry,1)="???"
           	Scores$(nScoreDifficulty,nScoreEntry,2)="0"
        next nScoreEntry
    next nScoreDifficulty
    save array "SCORES.DAT", Scores$(3,5,2)        
endif
return
`*******************
InitializeVariables:
set bitmap format 21
create bitmap 1,800,600
set current bitmap 0

` some color constants
#constant cWhite = rgb(255,255,255)
#constant cLightGrey = rgb(200,200,200)
#constant cGrey = rgb(128,128,128)
#constant cDarkGrey = rgb(50,50,50)
#constant cBlack = rgb(0,0,0)
#constant cLightRed = rgb(255,100,100)
#constant cRed = rgb(255,0,0)
#constant cDarkRed = rgb(50,0,0)
#constant cLightGreen = rgb(150,255,100)
#constant cGreen = rgb(0,255,0)
#constant cDarkGreen = rgb(0,50,0)
#constant cLightBlue = rgb(100,100,255)
#constant cBlue = rgb(0,0,255)
#constant cDarkBlue = rgb(0,0,50)
#constant cLightCyan = rgb(150,200,255)
#constant cCyan = rgb(0,200,255)
#constant cDarkCyan = rgb(0,25,50)
#constant cLightMagenta = rgb(255,100,205)
#constant cMagenta = rgb(255,0,205)
#constant cDarkMagenta = rgb(50,0,50)
#constant cYellow = rgb(255,255,0)
#constant cGold = rgb(255,175,0)
#constant cDarkGold = rgb(155,65,0)

` some constants for the Brick types and images
#constant iSoftBrick = 1
#constant iHardBrick = 2
#constant iBarrierBrick = 3
#constant iGoldBrick = 4
#constant iPaddleBrick = 5
#constant iBallBigBrick = 6
#constant iKillerBrick = 7
#constant iRandomBrick = 8
#constant iNullBrick = 9
#constant iBall = 10
#constant iPaddle1 = 11
#constant iBackdrop = 12
#constant iSpaceship = 13
#constant iRedLight = 14

` three textures for the spaceship
#constant tRed = 16
#constant tGrey = 17
#constant tYellow = 18

global oldBallX, oldBallY as integer

` these are the sound effects
createsound("blip",1,50,80,6000,-.4,2.0,0.1,10,1.2,0.2,10)
createsound("kill",2,30,50,16000,0.00,1.5,.0,0,0,0,100)
createsound("ship",3,1200,600,3000,10,0.1,0,0,0,0,10)
set sound volume 3,85
set sound speed 3,1500
nGameSpeed = 7
nLevel = 1
Test$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
dim Brick(10,22,10)
dim Scores$(3,5,2)
dim Initials$(3)
randomize timer()
set text font "ariel"
set window title "Breakout Challenge by Rich Dersheimer"
return
`*******************
LoadFiles:
load array "BRICKS.DAT", Brick(10,22,10)
load array "SCORES.DAT", Scores$(3,5,2)
return
`*******************
MakeGraphics:
` textures for spaceship body and lights
ink cRed,cBlack
box 0,0,15,15
get image tRed,0,0,15,15,3
ink cLightGrey,cBlack
box 0,0,15,15
get image tGrey,0,0,15,15,3
ink cYellow,cBlack
box 0,0,15,15
get image tYellow,0,0,15,15,3
ink cBlack,cBlack
box 0,0,15,15

` set up the camera
backdrop on
color backdrop 0
autocam off
position camera 0,0,-500
point camera 0,0,0
set ambient light 50

` this is the spaceship
make object sphere 2,60,36,36
scale object 2,100,60,100
position object 2,0,75,0
texture object 2,tGrey
make object cone 3,150
scale object 3,100,10,100
position object 3,0,60,0
rotate object 3,180,0,0
texture object 3,tGrey

` the spaceship lights
make object sphere 4,6,36,36
texture object 4,tYellow
position object 4,-60,62,-50
make object sphere 5,6,36,36
texture object 5,tYellow
position object 5,60,62,-50
make object sphere 6,6,36,36
texture object 6,tYellow
position object 6,30,63,-60
make object sphere 7,6,36,36
texture object 7,tYellow
position object 7,-30,63,-60
make object sphere 8,6,36,36
texture object 8,tYellow
position object 8,0,63,-70

` the red light
make object sphere 9,6,36,36
texture object 9,tRed
position object 9,0,150,-70

` this is the ball
make object sphere 1,20,36,36
texture object 1,tYellow
scale object 1,100,100,1

` grab the ball and spaceship images
sync
set camera view 0,0,0,0
get image iBall,390,290,410,310
get image iSpaceship,326,205,474,248,1
get image iRedLight,395,120,405,130,1

for y = 1 to 5
	paste image iSpaceShip,0,(y-1)*43
next y
paste image iRedLight,3,20,1
paste image iRedLight,35,61,1
paste image iRedLight,69,102,1
paste image iRedLight,103,146,1
paste image iRedLight,135,192,1

` grab the frames for the animated spaceship
for y = 1 to 5
	get image 100+y,0,(y-1)*43,147,((y-1)*43)+43
next y
	
` delete the ball and spaceship parts
for x = 1 to 9
    delete object x
next x

` this is the paddle
ink cWhite,cWhite
box 10,0,70,20
get image iPaddle1,10,0,70,10

` this is the pinkish or "soft" Brick
box 0,0,30,20,cGrey,cLightGrey,cDarkGrey,cGrey
box 1,1,29,19,cDarkRed,cLightRed,cDarkRed,cLightRed
get image iSoftBrick,0,0,30,20

` this is red or "hard" Brick
box 1,1,29,19,cDarkRed,cRed,cDarkRed,cRed
get image iHardBrick,0,0,30,20

` this is the grey or "barrier" Brick
ink cGrey,cBlack
box 1,1,29,19
get image iBarrierBrick,0,0,30,20

` this is the ball killer Brick
box 1,1,29,19,cBlack,cGrey,cBlack,cDarkGrey
get image iKillerBrick,0,0,30,20

` this is the big paddle Brick
box 1,1,29,19,cDarkCyan,cLightCyan,cDarkCyan,cLightCyan
get image iPaddleBrick,0,0,30,20

` this is the big ball Brick
box 1,1,29,19,cDarkGreen,cLightGreen,cDarkGreen,cLightGreen
get image iBallBigBrick,0,0,30,20

` this is the golden bonus Brick
box 1,1,29,19,cDarkGold,cGold,cDarkGold,cGold
get image iGoldBrick,0,0,30,20

` this is the random bounce Brick
box 1,1,29,18,cDarkMagenta,cLightMagenta,cDarkmagenta,cLightMagenta
get image iRandomBrick,0,0,30,20

` now get the sprites
` the ball
sprite 1000,400,570,iBall
offset sprite 1000,sprite width(1000)/2,sprite height(1000)/2
hide sprite 1000

` the paddle
sprite 1001,400,580,iPaddle1
offset sprite 1001,sprite width(1001)/2,sprite height(1001)/2
hide sprite 1001

` the spaceship
nSpaceshipImage = 101
sprite 1005,600,350,nSpaceshipImage
offset sprite 1005,sprite width(1005)/2,sprite height(1005)/2
hide sprite 1005

return
`*******************
MakeNewBackdrop:
set current bitmap 1
box 41,61,760,600,cBlue,cDarkBlue,cBlue,cDarkBlue
restore Quotes
for x=1 to rnd(13)+1
	read Quote1$
	read Quote2$
	read Quote3$
next x
ink cBlack,cBlack
set text size 40
center text 400,100,Quote1$
center text 400,150,Quote2$
ink cLightBlue,cBlack
center text 397,97,Quote1$
center text 397,147,Quote2$
ink cBlack,cBlack
set text size 25
set text to italic
center text 400,200,Quote3$
ink cLightBlue,cBlack
center text 398,198,Quote3$
set text to normal
backdrop off
delete image iBackdrop
get image iBackdrop,0,0,799,599
texture backdrop iBackdrop
set current bitmap 0
return
`*******************
MakeBackdrop:
set current bitmap 1
ink cBlack,cBlack
box 0,0,800,600
box 41,61,760,600,cBlue,cDarkBlue,cBlue,cDarkBlue

ink cDarkBlue,cBlack
set text to bold
set text size 90
center text 400,90,"B R E A K O U T"
center text 400,180,"C H A L L E N G E"
ink cBlue,cBlack
center text 395,85,"B R E A K O U T"
center text 395,175,"C H A L L E N G E"
set text to normal
set text size 30

` top border
for x = 10 to 760 step 30
    box x,40,x+30,60,cGrey,cLightGrey,cdarkGrey,cGrey
    ink cGrey,cBlack
    box x+1,41,x+29,59
next x
` left and right borders
for y = 60 to 600 step 20
    box 10,y,40,y+20,cGrey,cLightGrey,cDarkGrey,cGrey
    ink cGrey,cBlack
    box 11,y+1,39,y+19
    box 760,y,790,y+20,cGrey,cLightGrey,cDarkGrey,cGrey
    ink cGrey,cBlack
    box 761,y+1,789,y+19   
next y

get image iBackdrop,0,0,799,599
set current bitmap 0
texture backdrop iBackdrop
return
`*******************
function bounce(nBrick as integer)
nDifferenceX = ABS(sprite x(nBrick) - oldBallX)
nDifferenceY = ABS(sprite y(nBrick) - oldBallY)
nCurrentAngle = sprite angle(1000)
if nDifferenceX > nDifferenceY
    nNewAngle = wrapvalue(360 - sprite angle(1000))
endif
if nDifferenceX < nDifferenceY
    nNewAngle = wrapvalue(180 - sprite angle(1000))
endif
if nDifferenceX = nDifferenceY
    nNewAngle = wrapvalue(360 - sprite angle(1000))
    nNewAngle = wrapvalue(180 - nNewAngle)
endif
rotate sprite 1000,nNewAngle
endfunction
`*******************
`DB Sound Creator by Ric, and:
`Tommy S - Original waveform code
`Green Gandalf - Memblock format
`Lampton Worm - Load/Save format
`Lampton Worm/Raven - Real time parameter editor
`Xtom - GUI/parameter editor

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
dword2=2
dword3=22050
dword4=88200
dword5=4
dword6=16
dword7=0
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
  if outInteger>32767 then outInteger=32767
  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
delete memblock 1
endfunction
`*******************
` There are 10 levels, each with 10 rows of 22 bricks.
` That means there are 220 Brick sprites possible.
` After the player has completed all 10 levels, they
` start at level 1 again, but the ball moves faster.
` So on, and so on, until they've lost all their balls. :)
` These data statements are used to build
` the BRICKS.DAT file, if it doesn't exist.

REM LEVEL 1
data "2222222222222222222222"
data "2111111111441111111112"
data "2111111111441111111112"
data "2111111111441111111112"
data "2111111111441111111112"
data "2118811111881111188112"
data "2111111111111111111112"
data "2111111111111111111112"
data "2111111111111111111112"
data "2522262222882222622252"
REM LEVEL 2
data "2222222444444442222222"
data "2111111111111111111112"
data "2151111111111111111612"
data "2111111111111111111112"
data "2111111111111111111112"
data "2888888333333338888882"
data "2111111111111111111112"
data "2111111111111111111112"
data "2111111111111111111112"
data "2222222222222222222222"
REM LEVEL 3
data "2222222222222222222222"
data "2511881111881111881152"
data "2111441111881111441112"
data "2111441111111111441112"
data "8111881111111111881118"
data "2111331111111111331112"
data "2111111111111111111112"
data "2111111111111111111112"
data "2611111111111111111162"
data "2822222222332222222282"
REM LEVEL 4
data "4444444444444444444444"
data "6111111111111111111116"
data "1111111111111111111111"
data "1111111111221111111111"
data "1111111111221111111111"
data "1111111111111111111111"
data "5111311111111111131115"
data "8888888888888888888888"
data "2222222222222222222222"
data "3332222222222222222333"
REM LEVEL 5
data "6411188882728888811146"
data "2211111112221111111122"
data "2211111111111111111122"
data "2211111111111111111122"
data "2251111111111111111522"
data "2288888888888888888822"
data "2244444444444444444422"
data "2233333333333333333322"
data "2222222222222222222222"
data "2222222222222222222222"
REM LEVEL 6
data "4411111162222511111144"
data "4411111124444211111144"
data "3311111211111121111133"
data "1111112111111112111111"
data "1111121111111111211111"
data "1111211111111111121111"
data "1112111111111111112111"
data "1121111111111111111211"
data "3222222222222222222223"
data "2828282828228282828282"
REM LEVEL 7
data "8111111111441111111118"
data "1111111111441111111111"
data "1122222222222222222211"
data "2223111111441111113222"
data "6221311111441111131226"
data "2221135111441115311222"
data "1121113111441113111211"
data "1122222222222222222211"
data "1111111111111111111111"
data "8888888888888888888888"
REM LEVEL 8
data "1111111118111111111114"
data "8121311211711114131281"
data "1411512411416821111111"
data "1121811112112111184111"
data "1131112111111381111111"
data "8811111141111112511213"
data "1111211218211411111111"
data "2141111631112121142841"
data "1112841281121813811811"
data "1181111111111111111112"
REM LEVEL 9
data "2222222222222222222222"
data "2222222222222222222222"
data "2244111116361111114422"
data "2244111118381111114422"
data "2288111118381111118822"
data "2288111118381111118822"
data "2244111118381111114422"
data "2244111115351111114422"
data "2222222222322222222222"
data "2222222222222222222222"
REM LEVEL 10
data "4444444444444444444444"
data "1222211222112221121121"
data "1211121121121112121121"
data "1211121121121111121121"
data "5211121121121111121126"
data "1222211121121111122221"
data "1221111121121111121121"
data "1212111121121111121121"
data "1211211121121112121121"
data "8288828222882228828828"

Quotes:
data "Adversity causes some men to"
data "break, others to break records."
data "William Arthur Ward"

data "I found Rome a city of brick,"
data "I left it a city of marble."
data "Augustus Caesar"

data "The road to the City of Emeralds"
data "is paved with yellow brick."
data "L. Frank Baum"

data "That city is well fortified which"
data "has a wall of men instead of brick."
data "Plutarch"

data "The shell must break"
data "before the bird can fly."
data "Alfred Lord Tennyson"

data "A bruised reed shall he not break, and"
data "the smoking flax shall he not quench."
data "Isaiah"

data "When did morning ever break,"
data "and find such beaming eyes awake?"
data "Thomas Moore"

data "All and all, you're just"
data "another brick in the wall."
data "Pink Floyd"

data "Now I know I've got a heart,"
data "because it's breaking."
data "The Tin Woodsman"

data "Supreme excellence consists in breaking"
data "the enemy's resistance without fighting."
data "Sun Tzu"

data "Some people make promises for the"
data "pleasure of breaking them."
data "William Hazlitt"

data "The breaking of a wave cannot"
data "explain the whole sea."
data "Vladimir Nabokov"

data "Omelettes are not made"
data "without breaking eggs."
data "Maximillen Robespierre"

data "What's breaking into a bank"
data "compared with founding a bank?"
data "Bertolt Brecht"

Category                  Rich (Notes)        Valle (Notes)
------------------------------------------------------------
Core Breakout Game         100                  100
Professionalism             40 (1)               50
Completeness                50 (2)               40 (3)
Improvements               150 (4)              150 (5)
Effects                    150 (6)              150 (7)
Well documented code        50                   50
Judge's choice               0                    5 (8)

Notes:
1) -5 Ball bouncing off paddle was difficult to control. -5 Other
ball physics ("stickiness" & horizontal movement). 
2) Ability to choose difficulty, multiple balls, replay options,
editor w/ save & load, complete help! Wow!!!.
3) Complete game with replay-ability. 1 ball and then game over
-5. No difficulty levels -5.
4) Multiple Brick Types +50, Way Cool Flying Saucer +50, Variety
of bonuses +50. Sound Effects +50. (150 maximum)
5) Bonus for multi-bricks +50. Foregound/Background alternating
bricks +50, Aiming ball +50 (150 maximum)
6) Colorful Bricks +50, Flashing lights on flying saucer +50,
Growing/Shrinking paddle & ball +50
7) String trail behind ball +50, floating scores/bonuses +50,
Great effects on bricks (foreground/background and brick fade-out)
+50.
8) Giving the bonus was tough. Rich had a lot going for his game:
Editor, Save/Load, Flying Saucer, Sound Effects, Colorful board,
and just - WOW! Rich's game-play on the other hand left me wanting
to just lose. The ball would go almost nearly horizontally across
the screen and take an eternity to get back down to the paddle.
When I finally was able to hit the ball, it would go back up
equally slow. Patience ran out and I was hitting [Esc] to end it,
which I found I couldn't without entering some initials (another good feature, by the way).

On the other hand, I found Valle's game very pleasant to play. I
enjoyed the tail-string and the foreground/background brick
concept (very unique). The floating/fading bricks, scores, and
bonuses were also pleasant. The physics were fairly reasonable and
I felt like I had some control over the ball.


==================================================================
Final Scores:

Rich = 540
Valle = 545
==================================================================

If it were not for the maximums on the scoring, especially in the
completeness and effects categories, I think Rich would have won
this contest hands down. Rich, your game has all the components.
Work on the game-play (mainly physics) and you will have a
masterpiece. I would really like to see what can become of your
breakout game with a little more work.

`Environment Setup
set display mode 1024,768,32,1
sync on
hide mouse
backdrop on
color backdrop 0

`Vector and Matrix types
type Vector
  x                     as float
  y                     as float
  z                     as float
  w                     as float
endtype

type Matrix
  _11 as float : _12 as float : _13 as float : _14 as float
  _21 as float : _22 as float : _23 as float : _24 as float
  _31 as float : _32 as float : _33 as float : _34 as float
  _41 as float : _42 as float : _43 as float : _44 as float
endtype

global v as Vector
global m as Matrix

`Types
type SnowParticle
  Position              as Vector
  Velocity              as Vector
  Acceleration          as Vector
  Life                  as dword
endtype

type ForceField
  Position              as Vector
  FieldStrength         as float
endtype

TempVec as Vector
TempSnow as SnowParticle
TempField as ForceField

`Used to transform a point from World to View space
ViewMatrix as Matrix

`Setup the camera
CameraPosition as Vector : SetVec(-75,0,-75,1) : CameraPosition=v
CameraRotation as Vector : SetVec(0,45,0,1) : CameraRotation=v
CameraSpeed as float : CameraSpeed=1.0

`Particles and Fields
ParticleCount=3000
dim Snow(ParticleCount) as SnowParticle
FieldCount=0
dim Fields(0) as ForceField

`Define the vertices of the Emitter.  (This is just for representation)
dim Emitter(3) as Vector
SetVec(100,100,100,1) : Emitter(0)=v
SetVec(100,100,-100,1) : Emitter(1)=v
SetVec(-100,100,-100,1) : Emitter(2)=v
SetVec(-100,100,100,1) : Emitter(3)=v

`User Variables
CurrentView=0
CurrentStrength#=50

gosub InitSnow

do
  set cursor 0,0
  print "FPS: ";screen fps()
  print "T - Toggle View (Experimental)"
  print "Q - Subtract Field Strength"
  print "E - Add Field Strength"
  print "Current Field Strength: ";CurrentStrength#
  gosub HandlePlayer
  gosub RecalcViewMatrix
  gosub ApplyForces
  gosub Draw
  sync
loop

suspend for key
end

InitSnow:
  `The timing is such that when the last particle falls from through the spawning plane, the first particle on the ground will follow.
  `Thus creating seamless snowfall.
  for a=1 to ParticleCount
    SetVec(rnd(200)-100,rnd(400)-100,rnd(200)-100,1) : TempSnow.Position=v
    SetVec(0,0,0,1) : TempSnow.Velocity=v : TempSnow.Acceleration=v
    TempSnow.Life=400*(TempSnow.Position.y+100)/200.0+400
    Snow(a)=TempSnow
  next a
  return

HandlePlayer:
  `Mouse look
  CameraRotation.x=wrapvalue(CameraRotation.x+mousemovey()/11.0)
  CameraRotation.y=wrapvalue(CameraRotation.y+mousemovex()/11.0)
  
  if CurrentView=0
    `User Controlled (WASD)
    CameraPosition.y=0
    if keystate(17) then inc CameraPosition.x,CameraSpeed*sin(CameraRotation.y) : inc CameraPosition.z,CameraSpeed*cos(CameraRotation.y)
    if keystate(31) then dec CameraPosition.x,CameraSpeed*sin(CameraRotation.y) : dec CameraPosition.z,CameraSpeed*cos(CameraRotation.y)
    if keystate(32) then inc CameraPosition.x,CameraSpeed*sin(CameraRotation.y+90) : inc CameraPosition.z,CameraSpeed*cos(CameraRotation.y+90)
    if keystate(30) then dec CameraPosition.x,CameraSpeed*sin(CameraRotation.y+90) : dec CameraPosition.z,CameraSpeed*cos(CameraRotation.y+90)
  else
    `Snow Particle
    CameraPosition=Snow(1).Position
  endif
  
  `Insert a new field when the space key is pressed
  if spacekey() and SpaceHold=0
    SpaceHold=1
    array insert at bottom Fields(0)
    inc FieldCount
    TempField.Position=CameraPosition : TempField.Position.y=0
    TempField.FieldStrength=CurrentStrength#
    Fields(FieldCount)=TempField
  endif
  if spacekey()=0 and SpaceHold=1 then SpaceHold=0
  
  `Toggle between the user controlled view and the snow particle view
  if keystate(20) and THold=0 then THold=1 : CurrentView=(CurrentView+1)%%2
  if keystate(20)=0 and THold=1 then THold=0
  
  `Affect the strength of the next field
  if keystate(16) then dec CurrentStrength#,0.5
  if keystate(18) then inc CurrentStrength#,0.5 
  return

RecalcViewMatrix:
  `Create the view matrix using the camera's rotation and position.
  `Rotation
  CreateXRotationMatrix(-CameraRotation.x) : ViewMatrix=m
  CreateYRotationMatrix(-CameraRotation.y) : MultiplyMatrices(ViewMatrix,m) : ViewMatrix=m
  CreateZRotationMatrix(-CameraRotation.z) : MultiplyMatrices(ViewMatrix,m) : ViewMatrix=m
  `Translation
  SetIdentityMatrix()
  m._14=-CameraPosition.x
  m._24=-CameraPosition.y
  m._34=-CameraPosition.z
  `This matrix will translate a vector, and then rotate it into view space.
  MultiplyMatrices(ViewMatrix,m) : ViewMatrix=m
  return

ApplyForces:
  for a=1 to ParticleCount
    TempSnow=Snow(a)
    SetVec(0,0,0,1) : TempSnow.Acceleration=v
    
    `Apply Gravity
    dec TempSnow.Velocity.y,0.1
    
    `Apply Fields
    for b=1 to FieldCount
      TempField=Fields(b)
      SubtractVec(TempField.Position,TempSnow.Position) `The vector from the snow particle to the field
      SqrDistanceToField#=SqrLengthVec(v)
      if SqrDistanceToField#>0
        v.y=0 `Flatten vector
        NormalizeVec(v) : TempVec=v
        FieldEffect#=Sign(TempField.FieldStrength)*TempField.FieldStrength*TempField.FieldStrength/SqrDistanceToField#  `The field is exponentially stronger with proximity
        SetVec(0,1,0,1) : CrossVec(TempVec,v)   `Get the vector that's tangent to the circle with a center at the field and an edge defined by the snow
        LerpVec(TempVec,v,0.2)  `Blend it with the vector that points to the field
        ScaleVec(v,FieldEffect#)  `Apply the distance
        AddVec(v,TempSnow.Acceleration) : TempSnow.Acceleration=v
      endif
    next b
    
    AddVec(TempSnow.Acceleration,TempSnow.Velocity) : TempSnow.Velocity=v   `Acceleration affects Velocity
    AddVec(TempSnow.Velocity,TempSnow.Position) : TempSnow.Position=v       `and Velocity affects Position
    
    `Dampen Velocity
    ScaleVec(TempSnow.Velocity,0.8) : TempSnow.Velocity=v
    
    `Keep snow on the "ground"
    if TempSnow.Position.y<-100 then TempSnow.Position.y=-100
    
    `Respawn snow if it has lived too long
    dec TempSnow.Life
    if TempSnow.Life=0
      SetVec(rnd(200)-100,100,rnd(200)-100,1) : TempSnow.Position=v
      SetVec(0,0,0,1) : TempSnow.Velocity=v : TempSnow.Acceleration=v
      TempSnow.Life=800
    endif
    Snow(a)=TempSnow
  next a
  return
  
Draw:
  `Draw each snow particle
  for a=1 to ParticleCount
    TempSnow=Snow(a)
    TransformVec(ViewMatrix,TempSnow.Position)
    if v.z>0
      v.x=(screen width()/2)*(1+v.x*tan(60)/v.z)
      v.y=(screen height()/2)*(1-v.y*tan(60)/v.z)
      dot v.x,v.y
    endif
  next a
  `Draw the field markers
  for a=1 to FieldCount
    TempField=Fields(a)
    TransformVec(ViewMatrix,TempField.Position)
    if v.z>0
      v.x=(screen width()/2)*(1+v.x*tan(60)/v.z)
      v.y=(screen height()/2)*(1-v.y*tan(60)/v.z)
      ink rgb(255,0,0),0 : circle v.x,v.y,150*tan(60)/v.z
      ink rgb(0,255,0),0 : circle v.x,v.y,220*tan(60)/v.z
      ink rgb(255,255,255),0 
    endif
  next a
  `Draw the lines representing the spawning plane
  for a=0 to 3
    TempVec=Emitter(a)  `Vertex 1
    TransformVec(ViewMatrix,TempVec) : TempVec=v
    v=Emitter((a+1)%%4) `Vertex 2 (if a=3, the index wraps back to 0)
    TransformVec(ViewMatrix,v)
    if TempVec.z>0 and v.z>0
      TempVec.x=(screen width()/2)*(1+TempVec.x*tan(60)/TempVec.z)
      TempVec.y=(screen height()/2)*(1-TempVec.y*tan(60)/TempVec.z)
      v.x=(screen width()/2)*(1+v.x*tan(60)/v.z)
      v.y=(screen height()/2)*(1-v.y*tan(60)/v.z)
      line TempVec.x,TempVec.y,v.x,v.y
    endif
  next a
  return

function CapVec(vec as Vector,Length as float)
  NormalizeVec(vec)
  ScaleVec(v,Length)
endfunction

function SetVec(x as float,y as float,z as float,w as float)
  v.x=x : v.y=y : v.z=z : v.w=w
endfunction

function AddVec(vec1 as Vector,vec2 as Vector)
  v.x=vec1.x+vec2.x
  v.y=vec1.y+vec2.y
  v.z=vec1.z+vec2.z
  v.w=1.0
endfunction

function SubtractVec(vec1 as Vector,vec2 as Vector)
  v.x=vec1.x-vec2.x
  v.y=vec1.y-vec2.y
  v.z=vec1.z-vec2.z
  v.w=1.0
endfunction

function ScaleVec(vec as Vector,scale as float)
  v.x=vec.x*scale
  v.y=vec.y*scale
  v.z=vec.z*scale
  v.w=1.0
endfunction

function CrossVec(vec1 as Vector,vec2 as Vector)
  v.x=vec1.y*vec2.z-vec1.z*vec2.y
  v.y=vec1.z*vec2.x-vec1.x*vec2.z
  v.z=vec1.x*vec2.y-vec1.y*vec2.x
  v.w=1.0
endfunction

function LengthVec(vec as Vector)
  Result#=sqrt(vec.x*vec.x+vec.y*vec.y+vec.z*vec.z)
endfunction Result#

function SqrLengthVec(vec as Vector)
  Result#=vec.x*vec.x+vec.y*vec.y+vec.z*vec.z
endfunction Result#

function NormalizeVec(vec as Vector)
  Length#=LengthVec(vec)
  v.x=vec.x/Length#
  v.y=vec.y/Length#
  v.z=vec.z/Length#
  v.w=1.0
endfunction

function LerpVec(vec1 as Vector,vec2 as Vector,value as float)
  v.x=vec1.x*value+vec2.x*(1.0-value)
  v.y=vec1.y*value+vec2.y*(1.0-value)
  v.z=vec1.z*value+vec2.z*(1.0-value)
  v.w=1.0
endfunction
  
function TransformVec(mat as Matrix,vec as Vector)
  v.x=vec.x*mat._11+vec.y*mat._12+vec.z*mat._13+vec.w*mat._14
  v.y=vec.x*mat._21+vec.y*mat._22+vec.z*mat._23+vec.w*mat._24
  v.z=vec.x*mat._31+vec.y*mat._32+vec.z*mat._33+vec.w*mat._34
  v.w=vec.x*mat._41+vec.y*mat._42+vec.z*mat._43+vec.w*mat._44
endfunction

function SetIdentityMatrix()
  m._11=1 : m._12=0 : m._13=0 : m._14=0
  m._21=0 : m._22=1 : m._23=0 : m._24=0
  m._31=0 : m._32=0 : m._33=1 : m._34=0
  m._41=0 : m._42=0 : m._43=0 : m._44=1
endfunction

function MultiplyMatrices(mat1 as Matrix,mat2 as Matrix)
  m._11=mat1._11*mat2._11+mat1._12*mat2._21+mat1._13*mat2._31+mat1._14*mat2._41
  m._12=mat1._11*mat2._12+mat1._12*mat2._22+mat1._13*mat2._32+mat1._14*mat2._42
  m._13=mat1._11*mat2._13+mat1._12*mat2._23+mat1._13*mat2._33+mat1._14*mat2._43
  m._14=mat1._11*mat2._14+mat1._12*mat2._24+mat1._13*mat2._34+mat1._14*mat2._44
  
  m._21=mat1._21*mat2._11+mat1._22*mat2._21+mat1._23*mat2._31+mat1._24*mat2._41
  m._22=mat1._21*mat2._12+mat1._22*mat2._22+mat1._23*mat2._32+mat1._24*mat2._42
  m._23=mat1._21*mat2._13+mat1._22*mat2._23+mat1._23*mat2._33+mat1._24*mat2._43
  m._24=mat1._21*mat2._14+mat1._22*mat2._24+mat1._23*mat2._34+mat1._24*mat2._44
  
  m._31=mat1._31*mat2._11+mat1._32*mat2._21+mat1._33*mat2._31+mat1._34*mat2._41
  m._32=mat1._31*mat2._12+mat1._32*mat2._22+mat1._33*mat2._32+mat1._34*mat2._42
  m._33=mat1._31*mat2._13+mat1._32*mat2._23+mat1._33*mat2._33+mat1._34*mat2._43
  m._34=mat1._31*mat2._14+mat1._32*mat2._24+mat1._33*mat2._34+mat1._34*mat2._44
  
  m._41=mat1._41*mat2._11+mat1._42*mat2._21+mat1._43*mat2._31+mat1._44*mat2._41
  m._42=mat1._41*mat2._12+mat1._42*mat2._22+mat1._43*mat2._32+mat1._44*mat2._42
  m._43=mat1._41*mat2._13+mat1._42*mat2._23+mat1._43*mat2._33+mat1._44*mat2._43
  m._44=mat1._41*mat2._14+mat1._42*mat2._24+mat1._43*mat2._34+mat1._44*mat2._44
endfunction

function CreateXRotationMatrix(ang as float)
  m._11=1.0 : m._12=0.0 : m._13=0.0 : m._14=0.0
  m._21=0.0 : m._22=cos(ang) : m._23=-sin(ang) : m._24=0.0
  m._31=0.0 : m._32=sin(ang) : m._33=cos(ang) : m._34=0.0
  m._41=0.0 : m._42=0.0 : m._43=0.0 : m._44=1.0
endfunction

function CreateYRotationMatrix(ang as float)
  m._11=cos(ang) : m._12=0.0 : m._13=sin(ang) : m._14=0.0
  m._21=0.0 : m._22=1.0 : m._23=0.0 : m._24=0.0
  m._31=-sin(ang) : m._32=0.0 : m._33=cos(ang) : m._34=0.0
  m._41=0.0 : m._42=0.0 : m._43=0.0 : m._44=1.0
endfunction

function CreateZRotationMatrix(ang as float)
  m._11=cos(ang) : m._12=-sin(ang) : m._13=0.0 : m._14=0.0
  m._21=sin(ang) : m._22=cos(ang) : m._23=0.0 : m._24=0.0
  m._31=0.0 : m._32=0.0 : m._33=1.0 : m._34=0.0
  m._41=0.0 : m._42=0.0 : m._43=0.0 : m._44=1.0
endfunction

function Sign(x as float)
  if x>0 then exitfunction 1
  if x<0 then exitfunction -1
endfunction 0

autocam off
sync on
hide mouse
`snow particles
for i= 1 to 3000
make object box i,1,1,1
set object cull i,0
position object i,-100+rnd(400),-200+rnd(500),0
set object light i,10
next i
`little house
make object box 5000,20,20,20:color object 5000,rgb(220,220,220)
position object 5000,150,-90,30

`floor
make object box 5001,1300,1,1300
position object 5001,150,-100,0
`house roof
make object box 5002,15,15,20
zrotate object 5002,45:color object 5002,rgb(200,0,0)
position object 5002,150,-80,31

`mountains
make object cone 5003,500
position object 5003,-100,-50,500:scale object 5003,100,30,100:set object emissive 5003,rgb(155,155,155)
clone object 6000,5003:position object 6000,120,-20,650
clone object 6001,5003:position object 6001,300,-40,500
clone object 6002,5003:position object 6002,-500,30,800:scale object 6002,400,100,200

`snowman
make object sphere 7000,50
position object 7000,100,-80,-50:set object emissive 7000,rgb(140,140,140)
clone object 7001,7000:move object up 7001,20:scale object 7001,80,80,80
clone object 7002,7001:move object up 7002,20:scale object 7002,50,50,50
make object cone 7003,15:scale object 7003,60,200,60
color object 7003,rgb(250,150,0)
xrotate object 7003,90:position object 7003,115,-35,-60
yrotate object 7003,120
make object sphere 7004,50:scale object 7004,200,30,30
position object 7004,100,-55,-50:yrotate object 7004,270
set object emissive 7004,rgb(140,140,140)


`crown **************************************************************
gross=2
height=25

 make object cylinder 10000,20

set object cull 10000,0
set object emissive 10000,rgb(155,155,0)
    lock vertexdata for limb 10000,0

    	for i = 0 to 62 step 6
        	x# = get vertexdata position x(i)
        	y# = get vertexdata position y(i)
        	z# = get vertexdata position z(i)
      		set vertexdata position i,(x#*gross),y#+height,(z#*gross)
    	next i

    unlock vertexdata
set object normals 10000
position object 10000,100,-25,-50
`*********************************************************************


position camera 190,-90,-150
point camera 150,-30,0

do
color backdrop rgb(200,200,200)
`moving particles
for i= 1 to 3000
if rnd(10)=2 then zrotate object i,45:move object down i,rnd(3)
if rnd(10)=3 then zrotate object i,-45:move object down i,rnd(3)
move object down i,0.3
if object position y(i)<-100 then position object i,-100+rnd(400),100+rnd(300),0
next i
sync
loop

Rem Project: Snowfall Challenge
Rem Created: Thursday, December 31, 2009
Rem  Author: Rich Dersheimer

set window position 0,0
set window layout 0, 0, 3
set display mode desktop width(), desktop height(), 32, 1
hide mouse
color backdrop 0
sync on
randomize timer()

#constant cWhite = rgb(200,200,255)
#constant cBlue = rgb(0,0,150)
#constant nSprites = 300
dim nSpriteSpeed(nSprites)
dim nSpriteRotation(nSprites)

global HC,VC,SW,SH as integer
HC = screen width()/2
VC = screen height()/2
SW = screen width()
SH = screen height()
center text HC,VC,"Making snow..."
sync

for nSprite = 1 to nSprites
	make_snowflake(nSprite)
	size_snowflake(nSprite)
	sprite nSprite,rnd(SW),rnd(SH+80)-80,nSprite
	nSpriteRotation(nSprite) = rnd(1)
	if nSpriteRotation(nSprite) = 0 then nSpriteRotation(nSprite) = -1
next nSprite

do
	for nSprite = 1 to nSprites
		sprite nSprite,sprite x(nSprite)+rnd(2)-1,sprite y(nSprite)+nSpriteSpeed(nSprite),nSprite
		rotate sprite nSprite,wrapvalue(sprite angle(nSprite)+nSpriteRotation(nSprite))
		if sprite y(nSprite) > SH+80
			sprite nSprite,rnd(SW),-80,nSprite
			size_snowflake(nSprite)
		endif
	next nSprite
	sync
	if inkey$()<>"" then end
	if mousemovex() or mousemovey() then end
loop

end

function make_snowflake(nFlake as integer)
cls
vOffset = 1
vChange = 1

for x = 0 to 40
	if rnd(2) = 0 then vChange = vChange * -1
	vOffset = vOffset + vChange
	if vOffset < 1 then vOffset = 1
	if vOffset > 8 then vOffset = 8
	box HC+x,VC-vOffset,HC+x+1,VC,cWhite,cBlue,cWhite,cBlue
	box HC+x,VC,HC+x+1,VC+vOffset,cBlue,cWhite,cBlue,cWhite
	box HC-x,VC-vOffset,HC-x-1,VC,cWhite,cBlue,cWhite,cBlue
	box HC-x,VC,HC-x-1,VC+vOffset,cBlue,cWhite,cBlue,cWhite
next x

get image 1000,HC-40,VC-8,HC+40,VC+8,1
cls
sprite 1000,-100,-100,1000
offset sprite 1000,40,8
rotate sprite 1000,0
paste sprite 1000,400,400
rotate sprite 1000,120
paste sprite 1000,400,400
rotate sprite 1000,240
paste sprite 1000,400,400

get image nFlake,360,360,440,440
sprite nFlake,-100,-100,nFlake
endfunction

function size_snowflake(nFlake as integer)
nSize = rnd(6)+1
select nSize
	case 7
		scale sprite nFlake,100
		nSpriteSpeed(nFlake) = 5
		set sprite priority nFlake, 3
	endcase
	
	case 6
		scale sprite nFlake,60
		nSpriteSpeed(nFlake) = 4
		set sprite priority nFlake, 2
	endcase
	
	case 5
		scale sprite nFlake,60
		nSpriteSpeed(nFlake) = 4
		set sprite priority nFlake, 2
	endcase

	case 1
		scale sprite nFlake,30
		nSpriteSpeed(nFlake) = 3
		set sprite priority nFlake, 1
	endcase
	
	case 2
		scale sprite nFlake,30
		nSpriteSpeed(nFlake) = 3
		set sprite priority nFlake, 1
	endcase
	
	case 3
		scale sprite nFlake,30
		nSpriteSpeed(nFlake) = 3
		set sprite priority nFlake, 1
	endcase
	
	case 4
		scale sprite nFlake,30
		nSpriteSpeed(nFlake) = 3
		set sprite priority nFlake, 1
	endcase
	
endselect
nSpriteRotation(nFlake) = nSpriteRotation(nFlake) * -1	
endfunction