Blocks - Tetris Clone - Purebasic

game development purebasic by Kenny Cason

Blocks is a Tetris like game written in Purebasic.

Blocks features 3 modes:

  • Baby Mode - simple pieces constructed from 3 bricks.
  • Normal Mode - standard tetris pieces.
  • Blocks Mode - pieces constructed from 1 - 6 bricks. 27 different pieces, including a randomly generated piece that can take on bizzare shapes. In this mode it is possible to clear 6 lines at once, earning yourself a "Block." I recommend playing it in block mode and large size for the most fun. :) Enjoy! High Scores are saved for each of the modes.

View on GitHub


Blocks was compiled using Purebasic v3.94, However, It should be fairly easy to make changes to get it to recompile in the most recent version, or just to convert it into another language.

Blocks 2D Tetris cloneBlocks 2D Tetris cloneBlocks 2D Tetris clone
Blocks 2D Tetris cloneBlocks 2D Tetris clone

Credits

Programmer

  • Kenny Cason
    Graphics Design
  • Kenny Cason
    Music
  • Nintendo
    Beta Testers
  • Kenny Cason
  • David Johnson

My old procedural code :D

If InitSprite()
Else
  MessageRequester("Blocks","DirectX v.7 or later was unable to be initialized",#MB_ICONERROR)
  End
EndIf
If InitKeyboard()
Else
  MessageRequester("Blocks","A keyboard was unable to be initialized!",#MB_ICONERROR)
  End
EndIf
If InitSound()
  UseOGGSoundDecoder()
Else
  MessageRequester("Blocks","Sound was unable to be initialized!",#MB_ICONERROR)
  End
EndIf

If InitJoystick()
  joystick = 1
Else
  joystick = 0
EndIf


OnErrorResume()

 Enumeration ; sprites
   #Block = 1;
   #BorderL = 30
   #BorderH
   #BorderTC
   #BorderV
   #BorderBC
   #Next
   #Numbers = 40
   #Letters = 50
 EndEnumeration

 Enumeration ; sound
   #Line = 1
   #Tetris
   #Blk
   #Rotate
   #lost
   #pause
   #musicA
   #musicB
   #musicC
 EndEnumeration

Procedure BitmapText(Text$,x,y)

  Text$ = UCase(Text$)
  Length = Len(Text$)
  For k=1 To Length
    A$ = Mid(Text$, k,1)
    If A$=" "
      x+20
    Else
      v = Asc(A$)
      If v>=65 And v<=90
        v = #Letters + v - 65 ; 65 ASCII 'A'
      ElseIf v>=48 And v<=57
        v = #Numbers + v - 48 ; 48 ASCII '0'
      ElseIf v=33
        v =  #Letters+26 ; 33 ASCII '!'
      EndIf
      If IsSprite(v)
        DisplayTransparentSprite(v,x,y)
        x+SpriteWidth(v)
      EndIf
    EndIf
  Next
EndProcedure

Procedure.s getName()
  name$ = InputRequester("Blocks - You have a new Hi Score!","Enter your name","")
  name$ = Trim(name$)
  If Len(name$)>10
    name$ = Mid(name$,1,10)
  EndIf
  ProcedureReturn name$
EndProcedure

Define.l score, highscore

Structure piece
  image.w
  b1x.w
  b1y.w
  b2x.w
  b2y.w
  b3x.w
  b3y.w
  b4x.w
  b4y.w
  b5x.w
  b5y.w
  b6x.w
  b6y.w
EndStructure

np.piece
cp.piece

Width = 15
Height = 25
Dim blocks.b(Width, Height)


 DataSection     ; ********* a includebinary file bigger .exe but noone can steal stuff :)

   blk1: IncludeBinary "images\1.bmp"
   blk2: IncludeBinary "images\2.bmp"
   blk3: IncludeBinary "images\3.bmp"
   blk4: IncludeBinary "images\4.bmp"
   blk5: IncludeBinary "images\5.bmp"
   blk6: IncludeBinary "images\6.bmp"
   blk7: IncludeBinary "images\7.bmp"
   blk8: IncludeBinary "images\8.bmp"
   blk9: IncludeBinary "images\9.bmp"
   blk10: IncludeBinary "images\10.bmp"
   blk11: IncludeBinary "images\11.bmp"
   blk12: IncludeBinary "images\12.bmp"
   blk13: IncludeBinary "images\13.bmp"
   blk14: IncludeBinary "images\14.bmp"
   blk15: IncludeBinary "images\15.bmp"
   blk16: IncludeBinary "images\16.bmp"
   blk17: IncludeBinary "images\17.bmp"
   blk18: IncludeBinary "images\18.bmp"
   blk19: IncludeBinary "images\19.bmp"
   blk20: IncludeBinary "images\20.bmp"
   blk21: IncludeBinary "images\21.bmp"
   blk22: IncludeBinary "images\22.bmp"
   blk23: IncludeBinary "images\23.bmp"
   blk24: IncludeBinary "images\24.bmp"
   blk25: IncludeBinary "images\25.bmp"
   blk26: IncludeBinary "images\26.bmp"
   blk27: IncludeBinary "images\27.bmp"
   blk28: IncludeBinary "images\28.bmp"
   blk29: IncludeBinary "images\29.bmp"

   bdrL: IncludeBinary "images\bdrL.bmp"
   bdrH: IncludeBinary "images\bdrH.bmp"
   bdrTC: IncludeBinary "images\bdrTC.bmp"
   bdrV: IncludeBinary "images\bdrV.bmp"
   bdrBC: IncludeBinary "images\bdrBC.bmp"

   Nxt: IncludeBinary "images\next.bmp"

   a: IncludeBinary "images\Font\A.bmp"
   b: IncludeBinary "images\Font\B.bmp"
   c: IncludeBinary "images\Font\C.bmp"
   d: IncludeBinary "images\Font\D.bmp"
   e: IncludeBinary "images\Font\E.bmp"
   f: IncludeBinary "images\Font\F.bmp"
   g: IncludeBinary "images\Font\G.bmp"
   h: IncludeBinary "images\Font\H.bmp"
   i: IncludeBinary "images\Font\I.bmp"
   j: IncludeBinary "images\Font\J.bmp"
   k: IncludeBinary "images\Font\K.bmp"
   l: IncludeBinary "images\Font\L.bmp"
   m: IncludeBinary "images\Font\M.bmp"
   n: IncludeBinary "images\Font\N.bmp"
   o: IncludeBinary "images\Font\O.bmp"
   p: IncludeBinary "images\Font\P.bmp"
   q: IncludeBinary "images\Font\Q.bmp"
   r: IncludeBinary "images\Font\R.bmp"
   s: IncludeBinary "images\Font\S.bmp"
   t: IncludeBinary "images\Font\T.bmp"
   u: IncludeBinary "images\Font\U.bmp"
   v: IncludeBinary "images\Font\V.bmp"
   w: IncludeBinary "images\Font\W.bmp"
   x: IncludeBinary "images\Font\X.bmp"
   y: IncludeBinary "images\Font\Y.bmp"
   z: IncludeBinary "images\Font\Z.bmp"
   exclam: IncludeBinary "images\Font\!.bmp"

   0: IncludeBinary "images\Font\0.bmp"
   1: IncludeBinary "images\Font\1.bmp"
   2: IncludeBinary "images\Font\2.bmp"
   3: IncludeBinary "images\Font\3.bmp"
   4: IncludeBinary "images\Font\4.bmp"
   5: IncludeBinary "images\Font\5.bmp"
   6: IncludeBinary "images\Font\6.bmp"
   7: IncludeBinary "images\Font\7.bmp"
   8: IncludeBinary "images\Font\8.bmp"
   9: IncludeBinary "images\Font\9.bmp"


   tetris: IncludeBinary "sound\tetris.wav"
   line: IncludeBinary "sound\one_line.wav"
   blk: IncludeBinary "sound\block.wav"
   rotateS: IncludeBinary "sound\rotate.wav"
   lost: IncludeBinary "sound\lost.wav"
   pause: IncludeBinary "sound\pause.wav"
   AA: IncludeBinary "sound\A.ogg" :AAA:
   BB: IncludeBinary "sound\B.ogg" :BBB:
   CC: IncludeBinary "sound\C.ogg" :CCC:
 EndDataSection


 CatchSound(#Tetris, ?tetris)
 CatchSound(#Line, ?line)
 CatchSound(#Blk, ?Blk)
 CatchSound(#Rotate, ?rotateS)
 CatchSound(#lost, ?lost)
 CatchSound(#pause, ?pause)

 CatchSound(#musicA, ?AA, ?AAA - ?AA)
 CatchSound(#musicB, ?BB, ?BBB - ?BB)
 CatchSound(#musicC, ?CC, ?CCC - ?CC)

 BackGround = #musicA

screenX = Width*24+195
screenY = Height*24+48-3
If OpenWindow(0,200,50,screenX,screenY,"Blocks",#PB_Window_SystemMenu | #PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)

   Enumeration
     #M_Baby
     #M_Normal
     #M_Blocks
     #M_SizeS
     #M_SizeM
     #M_SizeB
     #M_Reset
     #M_Level
     #M_StartHeight
     #M_ResetHiScore    
     #M_Controls
     #M_ViewHiScores
     #M_About
     #M_Exit
     #M_MusicA
     #M_MusicB
     #M_MusicC
     #M_MusicD
   EndEnumeration

    If CreateMenu(0, WindowID(0))
      MenuTitle("Mode")
        MenuItem(#M_Baby, "Baby")
        MenuItem(#M_Normal, "Normal")
        MenuItem(#M_Blocks, "Blocks")
      MenuTitle("Size")
        MenuItem(#M_SizeS, "Small  10x10")
        MenuItem(#M_SizeM, "Medium 10x20")
        MenuItem(#M_SizeB, "Big 15x25")
      MenuTitle("Options")
        MenuItem(#M_Reset, "Reset")
        MenuItem(#M_Level, "Choose Level")
        MenuItem(#M_StartHeight, "Starting Height")
        MenuItem(#M_ResetHiScore, "Reset HiScore")
        MenuItem(#M_Controls, "View Controls")
        MenuItem(#M_ViewHiScores, "View HiScores")
        MenuItem(#M_About, "About")
        MenuBar()
        MenuItem( #M_Exit, "Exit")
      MenuTitle("Sound")  
        MenuItem(#M_MusicA, "Music A")
        MenuItem(#M_MusicB, "Music B")
        MenuItem(#M_MusicC, "Music C")
        MenuItem(#M_MusicD, "None")
    EndIf

    ; open screen bigger than window that way the play area can be adjusted
  If OpenWindowedScreen(WindowID(0),0,0,screenX+240,screenY+240,0,0,0)  
    CatchSprite(#Block,?blk1,0)
    CatchSprite(#Block+1,?blk2,0)
    CatchSprite(#Block+2,?blk3,0)
    CatchSprite(#Block+3,?blk4,0)
    CatchSprite(#Block+4,?blk5,0)
    CatchSprite(#Block+5,?blk6,0)
    CatchSprite(#Block+6,?blk7,0)
    CatchSprite(#Block+7,?blk8,0)
    CatchSprite(#Block+8,?blk9,0)
    CatchSprite(#Block+9,?blk10,0)
    CatchSprite(#Block+10,?blk11,0)
    CatchSprite(#Block+11,?blk12,0)
    CatchSprite(#Block+12,?blk13,0)
    CatchSprite(#Block+13,?blk14,0)
    CatchSprite(#Block+14,?blk15,0)
    CatchSprite(#Block+15,?blk16,0)
    CatchSprite(#Block+16,?blk17,0)
    CatchSprite(#Block+17,?blk18,0)
    CatchSprite(#Block+18,?blk19,0)
    CatchSprite(#Block+19,?blk20,0)
    CatchSprite(#Block+20,?blk21,0)
    CatchSprite(#Block+21,?blk22,0)
    CatchSprite(#Block+22,?blk23,0)
    CatchSprite(#Block+23,?blk24,0)
    CatchSprite(#Block+24,?blk25,0)
    CatchSprite(#Block+25,?blk26,0)
    CatchSprite(#Block+26,?blk27,0)
    CatchSprite(#Block+27,?blk28,0)
    CatchSprite(#Block+28,?blk29,0)

    CatchSprite(#BorderL,?bdrL,0)
    CatchSprite(#BorderH,?bdrH,0)
    CatchSprite(#BorderTC,?bdrTC,0)
    CatchSprite(#BorderV,?bdrV,0)
    CatchSprite(#BorderBC,?bdrBC,0)

    CatchSprite(#Next,?Nxt,0)

    CatchSprite(#Letters+0,?a,0)
    CatchSprite(#Letters+1,?b,0)
    CatchSprite(#Letters+2,?c,0)
    CatchSprite(#Letters+3,?d,0)
    CatchSprite(#Letters+4,?e,0)
    CatchSprite(#Letters+5,?f,0)
    CatchSprite(#Letters+6,?g,0)
    CatchSprite(#Letters+7,?h,0)
    CatchSprite(#Letters+8,?i,0)
    CatchSprite(#Letters+9,?j,0)
    CatchSprite(#Letters+10,?k,0)
    CatchSprite(#Letters+11,?l,0)
    CatchSprite(#Letters+12,?m,0)
    CatchSprite(#Letters+13,?n,0)
    CatchSprite(#Letters+14,?o,0)
    CatchSprite(#Letters+15,?p,0)
    CatchSprite(#Letters+16,?q,0)
    CatchSprite(#Letters+17,?r,0)
    CatchSprite(#Letters+18,?s,0)
    CatchSprite(#Letters+19,?t,0)
    CatchSprite(#Letters+20,?u,0)
    CatchSprite(#Letters+21,?v,0)
    CatchSprite(#Letters+22,?w,0)
    CatchSprite(#Letters+23,?x,0)
    CatchSprite(#Letters+24,?y,0)
    CatchSprite(#Letters+25,?z,0)
    CatchSprite(#Letters+26,?exclam,0)

    CatchSprite(#Numbers+0,?0,0)
    CatchSprite(#Numbers+1,?1,0)
    CatchSprite(#Numbers+2,?2,0)
    CatchSprite(#Numbers+3,?3,0)
    CatchSprite(#Numbers+4,?4,0)
    CatchSprite(#Numbers+5,?5,0)
    CatchSprite(#Numbers+6,?6,0)
    CatchSprite(#Numbers+7,?7,0)
    CatchSprite(#Numbers+8,?8,0)
    CatchSprite(#Numbers+9,?9,0)

    ;Mode = 1 ; NORMAL
    Mode = 2; BLOCK
    Gosub LoadHiScore
    musicPlaying = 1
    startHeight = 0
    Gosub newGame

    Repeat

      Gosub ExamineKeyboard          
      If ElapsedMilliseconds() - time >=timeD
        timeD = LevelSpeed
        time = ElapsedMilliseconds()
        Gosub dropPiece
        Gosub Draw
      EndIf
      Gosub GetEvents
    Until playing <> 1 Or  event = #PB_Event_CloseWindow Or KeyboardPushed(#PB_Key_Escape)

    Goto GameEnd  

  Else
    MessageRequester("Tetris","A Screen unable to be initialized!",#MB_ICONERROR)  
  EndIf
Else
  MessageRequester("Tetris","A window was unable to be opened!",#MB_ICONERROR)
EndIf

; shouldn't get here.... but if it does
Goto GameEnd


;**********************************************************
;
;- Draw
;
;**********************************************************
Draw:
   ClearScreen(RGB(0,0,0))  
   Gosub DrawPieces
   Gosub DrawMenu
   If TetrisCtr > 0
     bitmapText(TetrisMsg$,(Width*24)/2-50,(Height-1)*24/2)      
     TetrisCtr-1
   EndIf
   FlipBuffers()
Return


;**********************************************************
;
;- ExamineKeyboard
;
;**********************************************************
ExamineKeyboard:
  ExamineKeyboard()
  If joystick = 1
    ExamineJoystick()
  EndIf

If ElapsedMilliseconds() - Movetime >= moveD
  Movetime = ElapsedMilliseconds()

  If KeyboardPushed(#PB_Key_Left) Or (joystick = 1 And JoystickAxisX() = -1 )
    If PieceY <= Height
      If PieceX+cp\b1x-1 >= 0 And PieceX+cp\b2x-1 >= 0 And PieceX+cp\b3x-1 >= 0 And PieceX+cp\b4x-1 >= 0 And PieceX+cp\b5x-1 >= 0 And PieceX+cp\b6x-1 >= 0 And PieceY+cp\b1y > 0 And PieceY+cp\b2y > 0 And PieceY+cp\b3y > 0 And PieceY+cp\b4y > 0 And PieceY+cp\b5y > 0 And PieceY+cp\b6y > 0
        If blocks(PieceX + cp\b1x-1, PieceY + cp\b1y) = 0 And blocks(PieceX + cp\b2x-1, PieceY + cp\b2y) = 0 And blocks(PieceX + cp\b3x-1, PieceY + cp\b3y) = 0 And blocks(PieceX + cp\b4x-1, PieceY + cp\b4y) = 0 And blocks(PieceX + cp\b5x-1, PieceY + cp\b5y) = 0 And blocks(PieceX + cp\b6x-1, PieceY + cp\b6y) = 0
          PieceX-1
        EndIf
      EndIf
    EndIf
    Gosub Draw
  EndIf


  If  KeyboardPushed(#PB_Key_Right) Or (joystick = 1 And JoystickAxisX() = 1 )
    If PieceY <= Height
      If PieceX+cp\b1x+1 < Width And PieceX+cp\b2x+1 < Width And PieceX+cp\b3x+1 < Width And PieceX+cp\b4x+1 < Width And PieceX+cp\b5x+1 < Width And PieceX+cp\b6x+1 < Width  And PieceY+cp\b1y > 0 And PieceY+cp\b2y > 0 And PieceY+cp\b3y > 0 And PieceY+cp\b4y > 0 And PieceY+cp\b5y > 0 And PieceY+cp\b6y > 0
        If blocks(PieceX + cp\b1x+1, PieceY + cp\b1y) = 0 And blocks(PieceX + cp\b2x+1, PieceY + cp\b2y) = 0 And blocks(PieceX + cp\b3x+1, PieceY + cp\b3y) = 0 And blocks(PieceX + cp\b4x+1, PieceY + cp\b4y) = 0 And blocks(PieceX + cp\b5x+1, PieceY + cp\b5y) = 0 And blocks(PieceX + cp\b6x+1, PieceY + cp\b6y) = 0         
          PieceX+1
        EndIf
      EndIf
    EndIf
    Gosub Draw
  EndIf
  If  KeyboardPushed(#PB_Key_Down) Or (joystick = 1 And JoystickAxisY() = 1 )
    Gosub Draw
    timeD = 0
  EndIf
EndIf

If ElapsedMilliseconds() - Fliptime >= flipD
  Fliptime = ElapsedMilliseconds()

  If KeyboardPushed(#PB_Key_X) Or (joystick = 1 And (JoystickButton(4) Or  JoystickButton(1) Or JoystickButton(8) ) )
    Gosub rotateL
    Gosub Draw
  EndIf
  If KeyboardPushed(#PB_Key_C) Or (joystick = 1 And (JoystickButton(3) Or  JoystickButton(2) Or JoystickButton(7) ) )
    Gosub rotateR
    Gosub Draw
  EndIf

EndIf

If KeyboardPushed(#PB_Key_R) Or (joystick = 1 And JoystickButton(9) )
  Gosub newgame
  Gosub Draw
EndIf


 Repeat
    If WindowID(0)
      Event = WindowEvent()
      If Event    
        Delay(10)
      EndIf   
    EndIf

    Gosub getEvents

    ExamineKeyboard()
    If KeyboardReleased(#PB_Key_RightAlt) Or KeyboardReleased(#PB_Key_Up);pause
      If Paused = 0
        ClearScreen(RGB(0,0,0))
        Gosub DrawMenu
        BitmapText("PAUSE",(Width*24)/2-50,(Height-1)*24/2)
        FlipBuffers()
        Paused = 1
        PlaySound(#pause)      
      Else
        Paused = 0
      EndIf
    EndIf      
 Until paused = 0

   Gosub getEvents
   If joystick = 1
    If JoystickButton(10)
        ClearScreen(RGB(0,0,0))
        Gosub DrawMenu
        BitmapText("PAUSE",(Width*24)/2-50,(Height-1)*24/2)
        FlipBuffers()
        Paused = 1
        PlaySound(#pause)
      FlipBuffers()
    EndIf
    Repeat
      If joystick = 1
        ExamineJoystick()
      EndIf
      If pausecounter < 0
        If joystick = 1
          If JoystickButton(1) Or JoystickButton(2) Or JoystickButton(3) Or JoystickButton(4) Or JoystickButton(5) Or JoystickButton(6) Or JoystickButton(7) Or JoystickButton(8)
            paused = 0
            pausecounter = 20
          EndIf
       EndIf
      Else
        pausecounter - 1
      EndIf
    Until paused = 0
  EndIf   

Return



;**********************************************************
;
;- GetEvents
;
;**********************************************************
GetEvents:
  EventID.l = WindowEvent()

    Select EventID
      Case #PB_Event_CloseWindow
        playing = 0
        Paused = 0
      Case #PB_Event_Menu      ; A Menu item has been selected         
        Select EventMenu()

          Case   #M_Baby
            If mode <> 0
              Mode = 0    
              Gosub newGame
              Paused = 0
            Else
              MessageRequester("Block","You are playing Baby Mode.",0)
            EndIf

          Case   #M_Normal
            If mode <> 1
              Mode = 1    
              Gosub newGame
              Paused = 0
            Else
              MessageRequester("Block","You are playing Normal Mode.",0)
            EndIf

          Case   #M_Blocks
            If mode <> 2  
              Mode = 2    
              Gosub newGame
              Paused = 0
            Else
              MessageRequester("Block","You are playing Block Mode.",0)
            EndIf

          Case   #M_SizeS
              Width = 10
              Height = 10    
              Gosub newGame
              Paused = 0
              ResizeWindow(0,WindowX(0),WindowY(0),Width*24+195,Height*2*24+48-3)   

          Case   #M_SizeM
              Width = 10
              Height = 20   
              Gosub newGame
              Paused = 0
              ResizeWindow(0,WindowX(0),WindowY(0),Width*24+195,Height*24+48-3)   

          Case   #M_SizeB
              Width = 15
              Height = 25   
              Gosub newGame
              Paused = 0
              ResizeWindow(0,WindowX(0),WindowY(0),Width*24+195,Height*24+48-3)     


          Case   #M_Reset
            Result = MessageRequester("Block","Are you sure that you want to Restart? "+var$,#PB_MessageRequester_YesNo)
            If Result = #PB_MessageRequester_Yes  
              t = Mode     
              Gosub newGame
              Mode = t
              Paused = 0
            EndIf

          Case   #M_Level
            var$ = InputRequester("Blocks","Choose your level 0-9","0")
            If Val(var$) >= 0 And Val(var$) <= 9            
              Result = MessageRequester("Block","Are you Sure? level "+var$,#PB_MessageRequester_YesNo)
              If Result = #PB_MessageRequester_Yes       
                Gosub newGame
                level = Val(var$)
                levelSpeed = levelSpeed - 25*level
                If levelSpeed < 25
                  levelSpeed = 25
                EndIf
                timeD = levelSpeed
                Paused = 0
              EndIf      
            Else
              MessageRequester("Blocks","Not a valid Selection",0)
            EndIf

          Case   #M_StartHeight
              s$ = InputRequester("Blocks","Input starting height 0 -"+Str(Height-5),"0")
              If Val(s$) >= 0 And Val(s$) <= Height-5
                Gosub newGame
                Paused = 0     
                For y = Height-1 To Height - Val(s$) Step -1
                  k = 0
                  For x = 0 To Width-1
                    If Random(5) >=4 And k < Width/2
                      If mode <> 2
                        blocks(x,y) = Random(7)+1
                      Else
                        blocks(x,y) = Random(26)+1
                      EndIf
                      k+1
                    EndIf
                  Next  
                Next   
              Else
                MessageRequester("Blocks","Invalid choice",0)
              EndIf

          Case #M_Controls
            MessageRequester("Blocks","Controls"+Chr(13)+"--------"+Chr(13)+"X - Rotate Counterclockwise"+Chr(13)+"C - Rotate Counterclockwise"+Chr(13)+"Right Alt/ Up Arrow - Pause"+Chr(13)+"Left & Right Arrows - Move Pieces"+Chr(13)+"Down Arrow - Speed Fall"+Chr(13)+"R - Reset"+Chr(13)+"Escape - Exit",0)

          Case #M_ViewHiScores
            MessageRequester("Blocks","Baby Mode"+Chr(13)+"--------"+Chr(13)+"Small     "+hiscoreN$+": "+Str(hiscore)+Chr(13)+"Medium  "+hiscoreMN$+": "+Str(hiscoreM)+Chr(13)+"Big        "+hiscoreBN$+": "+Str(hiscoreB)+Chr(13)+Chr(13)+"Normal Mode"+Chr(13)+"--------"+Chr(13)+"Small     "+hiscore2N$+": "+Str(hiscore2)+Chr(13)+"Medium  "+hiscore2MN$+": "+Str(hiscore2M)+Chr(13)+"Big        "+hiscore2BN$+": "+Str(hiscore2B)+Chr(13)+Chr(13)+"Blocks Mode"+Chr(13)+"--------"+Chr(13)+"Small     "+hiscore3N$+": "+Str(hiscore3)+Chr(13)+"Medium  "+hiscore3MN$+": "+Str(hiscore3M)+Chr(13)+"Big        "+hiscore3BN$+": "+Str(hiscore3B))

          Case #M_About
            MessageRequester("Blocks","Programmed by: Kenneth Cason"+Chr(13)+"Email: reddragon72455@yahoo.com",0)

          Case #M_ResetHiScore
            temp = score
            score = 0
            If Height = 10; Baby
              If mode = 0
                hiscore = 0
                hiscoreN$ = ""
              ElseIf mode = 1
                hiscore2 = 0
                hiscore2N$ = ""
              Else
                hiscore3 = 0
                hiscore3N$ = ""
              EndIf
            ElseIf Height = 20; Normal
              If mode = 0
                hiscoreM = 0
                hiscoreMN$ = ""
              ElseIf mode = 1
                hiscore2M = 0
                hiscore2MN$ = ""
              Else
                hiscore3M = 0
                hiscore3MN$ = ""
              EndIf
            ElseIf Height = 25; Blocks
              If mode = 0
                hiscoreB = 0
                hiscoreBN$ = ""
              ElseIf mode = 1
                hiscore2B = 0
                hiscore2BN$ = ""
              Else
                hiscore3B = 0
                hiscore3BN$ = ""
              EndIf
            EndIf                   
            Gosub saveHiScore
            score = temp

          Case #M_Exit
            playing = 0
            Paused = 0

          Case #M_MusicA
            If IsSound(BackGround)
              If musicPlaying = 1
                StopSound(BackGround)
              EndIf   
              StopSound(BackGround)
              BackGround = #musicA
              PlaySound(BackGround,1)
              musicPlaying = 1
            EndIf           

          Case #M_MusicB
            If IsSound(BackGround)
              If musicPlaying = 1
                StopSound(BackGround)
              EndIf
              StopSound(BackGround)
              BackGround = #musicB
              PlaySound(BackGround,1)
              musicPlaying = 1
            EndIf

          Case #M_MusicC
            If IsSound(BackGround)
              If musicPlaying = 1
                StopSound(BackGround)
              EndIf
              BackGround = #musicC
              PlaySound(BackGround,1)
              musicPlaying = 1
            EndIf

          Case #M_MusicD
            If IsSound(BackGround)
              musicPlaying = 0
              StopSound(BackGround)
            EndIf      

        EndSelect
    EndSelect
Return


;**********************************************************
;
;- DrawMenu
;
;**********************************************************
DrawMenu:
  ;********* Draw Border
  DisplaySprite(#BorderL, 0, 0)
  For k = 1 To Width
    DisplaySprite(#BorderH, k*24, 0)
  Next
  DisplaySprite(#BorderTC, Width*24, 0)
  For k = 1 To Height-1
    DisplaySprite(#BorderV, Width*24, k*24)
  Next
  DisplaySprite(#BorderBC, Width*24, Height*24)
  DisplaySprite(#BorderL, 0, Height*24)
  For k = 1 To Width-1
    DisplaySprite(#BorderH, k*24, Height*24)
  Next
  ;*********
  OffsetX = Width*24+24
  bitmapText("BLOCKS",OffsetX,10)
  bitmapText("NEXT",OffsetX,35)
    DisplaySprite(#Next,OffsetX,62)
    DisplaySprite(np\image,OffsetX+60+np\b1x*24+(4*np\b1x),94+np\b1y*24+(4*np\b1y))
    DisplaySprite(np\image,OffsetX+60+np\b2x*24+(4*np\b2x),94+np\b2y*24+(4*np\b2y))
    DisplaySprite(np\image,OffsetX+60+np\b3x*24+(4*np\b3x),94+np\b3y*24+(4*np\b3y))
    DisplaySprite(np\image,OffsetX+60+np\b4x*24+(4*np\b4x),94+np\b4y*24+(4*np\b4y))
    DisplaySprite(np\image,OffsetX+60+np\b5x*24+(4*np\b5x),94+np\b5y*24+(4*np\b5y))
    DisplaySprite(np\image,OffsetX+60+np\b6x*24+(4*np\b6x),94+np\b6y*24+(4*np\b6y))
  bitmapText("MODE",OffsetX,155)
  If mode = 0
    bitmapText(" BABY",OffsetX,180)
  ElseIf mode = 1
    bitmapText(" NORMAL",OffsetX,180)
  ElseIf mode = 2
    bitmapText(" BLOCKS",OffsetX,180)
  EndIf
  bitmapText("LEVEL",OffsetX,205)    
  bitmapText(" "+Str(level),OffsetX,230)
  bitmapText("LINES",OffsetX,255)
  bitmapText(" "+Str(lines),OffsetX,280)
  bitmapText("SCORE",OffsetX,305)
  bitmapText(" "+Str(score),OffsetX,330)
  bitmapText("HISCORE",OffsetX,355)
  bitmapText(" "+Str(hiscoreThisMode),OffsetX,380)
  bitmapText(" "+hiscoreThisModeN$,OffsetX,405)

Return


;**********************************************************
;
;- rotateL
;
;**********************************************************
rotateL:

  If CurrentPiece > 0 ; not a square
    If PieceX + cp\b1y >= 0 And PieceX + cp\b2y >= 0 And PieceX + cp\b3y >= 0 And PieceX + cp\b4y >= 0  And PieceX + cp\b5y >= 0  And PieceX + cp\b6y >= 0 And PieceX + cp\b1y < Width And PieceX + cp\b2y < Width And PieceX + cp\b3y < Width And PieceX + cp\b4y < Width  And PieceX + cp\b5y < Width And PieceX + cp\b6y < Width  And PieceY - cp\b1x < Height And PieceY - cp\b2x < Height And PieceY - cp\b3x < Height And PieceY - cp\b4x < Height  And PieceY - cp\b5x < Height  And PieceY - cp\b6x < Height And PieceY - cp\b1x >= 0 And PieceY - cp\b2x >= 0  And PieceY - cp\b3x >= 0  And PieceY - cp\b4x >= 0 And PieceY - cp\b5x >= 0 And PieceY - cp\b6x >= 0 ; flip is in bounds
      If blocks(PieceX + cp\b1y, PieceY - cp\b1x) = 0 And blocks(PieceX + cp\b2y, PieceY - cp\b2x) = 0 And blocks(PieceX + cp\b3y, PieceY - cp\b3x) = 0 And blocks(PieceX + cp\b4y, PieceY - cp\b4x) = 0 And blocks(PieceX + cp\b5y, PieceY - cp\b5x) = 0 And blocks(PieceX + cp\b6y, PieceY - cp\b6x) = 0
        t = cp\b1x
        cp\b1x = cp\b1y
        cp\b1y=-t
        t = cp\b2x
        cp\b2x = cp\b2y
        cp\b2y=-t
        t = cp\b3x
        cp\b3x = cp\b3y
        cp\b3y=-t
        t = cp\b4x
        cp\b4x = cp\b4y
        cp\b4y=-t   
        t = cp\b5x
        cp\b5x = cp\b5y
        cp\b5y=-t
        t = cp\b6x
        cp\b6x = cp\b6y
        cp\b6y=-t
      EndIf
    EndIf
  EndIf
Return

;**********************************************************
;
;- rotateR
;
;**********************************************************
rotateR:

  If CurrentPiece > 0 ; not a square
    If PieceX - cp\b1y >= 0 And PieceX - cp\b2y >= 0 And PieceX - cp\b3y >= 0 And PieceX - cp\b4y >= 0  And PieceX - cp\b5y >= 0  And PieceX - cp\b6y >= 0 And PieceX - cp\b1y < Width And PieceX - cp\b2y < Width And PieceX - cp\b3y < Width And PieceX - cp\b4y < Width  And PieceX - cp\b5y < Width And PieceX - cp\b6y < Width  And PieceY + cp\b1x < Height And PieceY + cp\b2x < Height And PieceY + cp\b3x < Height And PieceY + cp\b4x < Height  And PieceY + cp\b5x < Height  And PieceY + cp\b6x < Height And PieceY + cp\b1x >= 0 And PieceY + cp\b2x >= 0  And PieceY + cp\b3x >= 0  And PieceY + cp\b4x >= 0 And PieceY + cp\b5x >= 0 And PieceY + cp\b6x >= 0 ; flip is in bounds
      If blocks(PieceX - cp\b1y, PieceY + cp\b1x) = 0 And blocks(PieceX - cp\b2y, PieceY + cp\b2x) = 0 And blocks(PieceX - cp\b3y, PieceY + cp\b3x) = 0 And blocks(PieceX - cp\b4y, PieceY + cp\b4x) = 0 And blocks(PieceX - cp\b5y, PieceY + cp\b5x) = 0 And blocks(PieceX - cp\b6y, PieceY + cp\b6x) = 0
        t = cp\b1x
        cp\b1x = -cp\b1y
        cp\b1y=t
        t = cp\b2x
        cp\b2x = -cp\b2y
        cp\b2y=t
        t = cp\b3x
        cp\b3x = -cp\b3y
        cp\b3y=t
        t = cp\b4x
        cp\b4x = -cp\b4y
        cp\b4y=t   
        t = cp\b5x
        cp\b5x = -cp\b5y
        cp\b5y=t
        t = cp\b6x
        cp\b6x = -cp\b6y
        cp\b6y=t
      EndIf
    EndIf
  EndIf
Return

;**********************************************************
;
;- dropPiece
;
;**********************************************************
dropPiece:
  doneFalling = 0
  If (PieceY + cp\b1y+1) < Height And (PieceY + cp\b2y+1) < Height And (PieceY + cp\b3y+1) < Height And (PieceY + cp\b4y+1) < Height And (PieceY + cp\b5y+1) < Height  And (PieceY + cp\b6y+1) < Height
    If blocks(PieceX + cp\b1x, PieceY + cp\b1y+1) = 0 And blocks(PieceX + cp\b2x, PieceY + cp\b2y+1) = 0  And blocks(PieceX + cp\b3x, PieceY + cp\b3y+1) = 0 And blocks(PieceX + cp\b4x, PieceY + cp\b4y+1) = 0  And blocks(PieceX + cp\b5x, PieceY + cp\b5y+1) = 0 And blocks(PieceX + cp\b6x, PieceY + cp\b6y+1) = 0
      PieceY+1
    Else
      doneFalling = 1
    EndIf  
  Else
    doneFalling = 1
  EndIf

  If doneFalling = 1
    PlaySound(#Blk)
    If PieceY + cp\b1y >= 0
      blocks(PieceX + cp\b1x, PieceY + cp\b1y) = cp\image
    EndIf
    If PieceY + cp\b2y >= 0
      blocks(PieceX + cp\b2x, PieceY + cp\b2y) = cp\image
    EndIf
    If PieceY + cp\b3y >= 0  
      blocks(PieceX + cp\b3x, PieceY + cp\b3y) = cp\image
    EndIf
    If PieceY + cp\b4y >= 0  
      blocks(PieceX + cp\b4x, PieceY + cp\b4y) = cp\image
    EndIf  
    If PieceY + cp\b5y >= 0  
      blocks(PieceX + cp\b5x, PieceY + cp\b5y) = cp\image
    EndIf
    If PieceY + cp\b6y >= 0  
      blocks(PieceX + cp\b6x, PieceY + cp\b6y) = cp\image
    EndIf  
    score+30+10*level
    Gosub setCurrentPiece
    Gosub getNextPiece
    PieceX = Width/2
    PieceY = 0
  EndIf
  Gosub isLine
  Gosub isDead
Return

;**********************************************************
;
;- DrawPieces
;
;**********************************************************
DrawPieces:
  For x = 0 To Width-1
    For y = 0 To Height-1
      If Blocks(x,y) > 0
        DisplaySprite(blocks(x,y), x*24, y*24)
      EndIf
    Next
  Next
  If PieceY + cp\b1y >= 0
    DisplaySprite(cp\image, (PieceX + cp\b1x)*24, (PieceY + cp\b1y)*24)
  EndIf
  If PieceY + cp\b1y >= 0
    DisplaySprite(cp\image, (PieceX + cp\b2x)*24, (PieceY + cp\b2y)*24)
  EndIf
  If PieceY + cp\b1y >= 0
    DisplaySprite(cp\image, (PieceX + cp\b3x)*24, (PieceY + cp\b3y)*24)
  EndIf
  If PieceY + cp\b1y >= 0  
    DisplaySprite(cp\image, (PieceX + cp\b4x)*24, (PieceY + cp\b4y)*24)
  EndIf
  If PieceY + cp\b1y >= 0
    DisplaySprite(cp\image, (PieceX + cp\b5x)*24, (PieceY + cp\b5y)*24)
  EndIf
  If PieceY + cp\b1y >= 0
    DisplaySprite(cp\image, (PieceX + cp\b6x)*24, (PieceY + cp\b6y)*24)
  EndIf
Return

;**********************************************************
;
;- isLine
;
;**********************************************************
isLine:
  lineCtr = 0
  For y = 0 To Height-1
    blockCtr = 0
    For x = 0 To Width-1
      If Blocks(x,y) > 0
        blockCtr + 1
        If blockCtr = Width
          lines + 1
          lineCtr + 1
          For k = 0 To Width-1 ; delete Row
            blocks(k,y) = 0
          Next
          For x = 0 To Width-1 ; drop Lines
            For j = y To 1 Step -1
              blocks(x,j)= blocks(x,j-1)
            Next
          Next
        EndIf
      EndIf
    Next
  Next
  TetrisLine = 0
  If lineCtr > 0 And lineCtr < 4
    If lineCtr = 3 And mode = 0
      score+2500
      tetrisCtr = 30
      TetrisLine = 3
      TetrisMsg$ = "WHAMMO!"
      PlaySound(#Tetris)
    Else
      score+150+200*lineCtr
      PlaySound(#Line)
    EndIf
  ElseIf lineCtr = 4 ; BLOCK!!!
    tetrisCtr = 30
    score+5000
    TetrisLine = 4
    If mode = 0
      TetrisMsg$ = "GOOD!"
    Else
      TetrisMsg$ = "AWESOME!"
    EndIf
    PlaySound(#Tetris)
  ElseIf lineCtr = 5 ; BLOCK!!!
    tetrisCtr = 30
    score+10000
    TetrisLine = 5
    TetrisMsg$ = "ALMOST!"
    PlaySound(#Tetris)
  ElseIf lineCtr >= 6 ; BLOCK!!!
    tetrisCtr = 30
    score+15000
    TetrisLine = 6
    TetrisMsg$ = "BLOCK!!"
    PlaySound(#Tetris)  
  EndIf

  If lines >= level*10+10
    level + 1
    If levelSpeed >=75
      levelSpeed-25
    ElseIf levelSpeed > 30
      levelSpeed-2
    EndIf
    If levelSpeed < 30
      levelSpeed = 30
    EndIf
  EndIf  
Return


;**********************************************************
;
;- isDead
;
;**********************************************************
isDead:
For x = 0 To Width-1
  If blocks(x,0) > 0
    Gosub saveHiScore
    If IsSound(BackGround)
      StopSound(BackGround)
    EndIf
    PlaySound(#lost)
    Gosub newGame
    Delay(2000)
  EndIf
Next

Return

;**********************************************************
;
;- newGame
;
;**********************************************************
newGame:
  ; get hiscore
  If Height = 10 ; Baby Size
    If mode = 0
      hiscoreThisMode = hiscore
      hiscoreThisModeN$ = hiscoreN$
    ElseIf mode = 1
      hiscoreThisMode = hiscore2
      hiscoreThisModeN$ = hiscore2N$
    ElseIf mode = 2
      hiscoreThisMode = hiscore3
      hiscoreThisModeN$ = hiscore3N$
    EndIf
  ElseIf Height = 20 ; Normal Size
    If mode = 0
      hiscoreThisMode = hiscoreM

      hiscoreThisModeN$ = hiscoreMN$
    ElseIf mode = 1
      hiscoreThisMode = hiscore2M
      hiscoreThisModeN$ = hiscore2MN$
    ElseIf mode = 2
      hiscoreThisMode = hiscore3M
      hiscoreThisModeN$ = hiscore3MN$
    EndIf
  ElseIf Height = 25 ; big Size
    If mode = 0
      hiscoreThisMode = hiscoreB
      hiscoreThisModeN$ = hiscoreBN$
    ElseIf mode = 1
      hiscoreThisMode = hiscore2B
      hiscoreThisModeN$ = hiscore2BN$
    ElseIf mode = 2
      hiscoreThisMode = hiscore3B
      hiscoreThisModeN$ = hiscore3BN$
    EndIf   
  EndIf

  Dim blocks.b(Width,Height)
  For x = 0 To Width-1
    For y = 0 To Height-1
      Blocks(x,y) = 0
    Next
  Next
  Gosub getNextPiece
  Gosub setCurrentPiece
  Gosub getNextPiece
  level = 0
  lines = 0
  Gosub loadHiScore
  score = 0
  PieceX = Width/2
  PieceY = 0
  time = ElapsedMilliseconds()
  Movetime = ElapsedMilliseconds()
  Fliptime = ElapsedMilliseconds()
  LevelSpeed = 350
  TimeD = LevelSpeed
  MoveD = 70
  flipD = 150
  playing = 1
  If musicPlaying = 1
    If IsSound(BackGround)
      StopSound(BackGround)
      PlaySound(BackGround,1)
    EndIf
  EndIf

Return




Return

;**********************************************************
;
;- loadHiScore
;
;**********************************************************
LoadHiScore:
  If ReadFile(0, "blocks.hs")
    hiscore   = ReadLong(0)+1234567890
    hiscore2  = ReadLong(0)+1234567890
    hiscore3  = ReadLong(0)+1234567890
    hiscoreM  = ReadLong(0)+1234567890
    hiscore2M = ReadLong(0)+1234567890
    hiscore3M = ReadLong(0)+1234567890
    hiscoreB  = ReadLong(0)+1234567890
    hiscore2B = ReadLong(0)+1234567890
    hiscore3B = ReadLong(0)+1234567890

    hiscoreN$   = ReadString(0)
    hiscore2N$  = ReadString(0)
    hiscore3N$  = ReadString(0)
    hiscoreMN$   = ReadString(0)
    hiscore2MN$ = ReadString(0)
    hiscore3MN$ = ReadString(0)
    hiscoreBN$   = ReadString(0)
    hiscore2BN$ = ReadString(0)
    hiscore3BN$ = ReadString(0)
    CloseFile(0)
  EndIf
Return

;**********************************************************
;
;- saveHiScore
;
;**********************************************************
SaveHiScore:
If Height = 10 ; baby
  If score > hiscore And mode = 0
    hiscore = score
    hiscoreN$ = getName()
  ElseIf score > hiscore2 And mode = 1
    hiscore2 = score
    hiscore2N$ = getName()
  ElseIf score > hiscore3 And mode = 2
    hiscore3 = score
    hiscore3N$ = getName()
  EndIf
ElseIf Height = 20
  If score > hiscoreM And mode = 0
    hiscoreM = score
    hiscoreMN$ = getName()
  ElseIf score > hiscore2M And mode = 1
    hiscore2M = score
    hiscore2MN$ = getName()
  ElseIf score > hiscore3M And mode = 2
    hiscore3M = score
    hiscore3MN$ = getName()
  EndIf
ElseIf Height = 25
  If score > hiscoreB And mode = 0
    hiscoreB = score
    hiscoreBN$ = getName()
  ElseIf score > hiscore2B And mode = 1
    hiscore2B = score
    hiscore2BN$ = getName()
  ElseIf score > hiscore3B And mode = 2
    hiscore3B = score
    hiscore3BN$ = getName()
  EndIf
EndIf

If OpenFile(0, "blocks.hs")
  WriteLong(0,hiscore-1234567890)  ; baby size
  WriteLong(0,hiscore2-1234567890)
  WriteLong(0,hiscore3-1234567890)

  WriteLong(0,hiscoreM-1234567890)   ; Normal size
  WriteLong(0,hiscore2M-1234567890)
  WriteLong(0,hiscore3M-1234567890)

  WriteLong(0,hiscoreB-1234567890)   ; Big Size
  WriteLong(0,hiscore2B-1234567890)
  WriteLong(0,hiscore3B-1234567890)

  WriteStringN(0,hiscoreN$)  ; names
  WriteStringN(0,hiscore2N$)
  WriteStringN(0,hiscore3N$)

  WriteStringN(0,hiscoreMN$)
  WriteStringN(0,hiscore2MN$)
  WriteStringN(0,hiscore3MN$)

  WriteStringN(0,hiscoreBN$)
  WriteStringN(0,hiscore2BN$)
  WriteStringN(0,hiscore3BN$)
  CloseFile(0)
EndIf
Return


;**********************************************************
;
;- GetNextPiece
;
;**********************************************************
GetNextPiece:

If mode > 0 ; not baby
   If mode = 1 ; NORMAL MODE
     g = Random(6)
   ElseIf mode = 2 ; BLOCKS MODE
     g = Random(28)   
   EndIf

   If g = 0
     np.piece\image=#Block
     np.piece\b1x=0   ; a square
     np.piece\b1y=0   
     np.piece\b2x=1   
     np.piece\b2y=0
     np.piece\b3x=0
     np.piece\b3y=1
     np.piece\b4x=1
     np.piece\b4y=1  ; since these extra blocks arent used in this mode
     np.piece\b5x=0  ; just make the piece over another piece to make only 4 appear.
     np.piece\b5y=0
     np.piece\b6x=1
     np.piece\b6y=0    
   ElseIf g = 1
     np.piece\image=#Block+1
     np.piece\b1x=-1   ; L
     np.piece\b1y=1   
     np.piece\b2x=-1   
     np.piece\b2y=0
     np.piece\b3x=0
     np.piece\b3y=0
     np.piece\b4x=1
     np.piece\b4y=0
     np.piece\b5x=-1
     np.piece\b5y=1
     np.piece\b6x=-1
     np.piece\b6y=0
   ElseIf g = 2
     np.piece\image=#Block+2
     np.piece\b1x=-1   ; L-backwards
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0   
     np.piece\b3x=1
     np.piece\b3y=0
     np.piece\b4x=1
     np.piece\b4y=1
     np.piece\b5x=0
     np.piece\b5y=0
     np.piece\b6x=0
     np.piece\b6y=0
   ElseIf g = 3
     np.piece\image=#Block+3
     np.piece\b1x=-1   ; Line
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0  
     np.piece\b3x=1
     np.piece\b3y=0
     np.piece\b4x=2
     np.piece\b4y=0
     np.piece\b5x=-1
     np.piece\b5y=0
     np.piece\b6x=0
     np.piece\b6y=0
   ElseIf g = 4
     np.piece\image=#Block+4
     np.piece\b1x=1   ; N
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0   
     np.piece\b3x=0
     np.piece\b3y=1
     np.piece\b4x=-1
     np.piece\b4y=1
     np.piece\b5x=1
     np.piece\b5y=0
     np.piece\b6x=0
     np.piece\b6y=0
   ElseIf g = 5
     np.piece\image=#Block+5
     np.piece\b1x=1   ; N-backwards
     np.piece\b1y=1   
     np.piece\b2x=0   
     np.piece\b2y=1   
     np.piece\b3x=0
     np.piece\b3y=0
     np.piece\b4x=-1
     np.piece\b4y=0  
     np.piece\b5x=1
     np.piece\b5y=1
     np.piece\b6x=0
     np.piece\b6y=1   
   ElseIf g = 6
     np.piece\image=#Block+6
     np.piece\b1x=0   ; T
     np.piece\b1y=1   
     np.piece\b2x=-1   
     np.piece\b2y=0   
     np.piece\b3x=0   
     np.piece\b3y=0
     np.piece\b4x=1
     np.piece\b4y=0
     np.piece\b5x=0
     np.piece\b5y=1
     np.piece\b6x=-1
     np.piece\b6y=0
   ElseIf g = 7            ;********************* BLOCK ********************
     np.piece\image=#Block+7
     np.piece\b1x=0   ; dot
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0
     np.piece\b3x=0
     np.piece\b3y=0
     np.piece\b4x=0
     np.piece\b4y=0
     np.piece\b5x=0  
     np.piece\b5y=0
     np.piece\b6x=0
     np.piece\b6y=0    
   ElseIf g = 8
     np.piece\image=#Block+8
     np.piece\b1x=-1   ; Screw
     np.piece\b1y=-1   
     np.piece\b2x=-1   
     np.piece\b2y=0
     np.piece\b3x=0
     np.piece\b3y=0
     np.piece\b4x=1
     np.piece\b4y=0
     np.piece\b5x=1
     np.piece\b5y=1
     np.piece\b6x=-1
     np.piece\b6y=-1
   ElseIf g = 9
     np.piece\image=#Block+9
     np.piece\b1x=1    ; Screw backwards
     np.piece\b1y=-1   
     np.piece\b2x=1   
     np.piece\b2y=0
     np.piece\b3x=0
     np.piece\b3y=0
     np.piece\b4x=-1
     np.piece\b4y=0
     np.piece\b5x=-1
     np.piece\b5y=1
     np.piece\b6x=1
     np.piece\b6y=-1
   ElseIf g = 10
     np.piece\image=#Block+10
     np.piece\b1x=-1   ; long cross
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0  
     np.piece\b3x=1
     np.piece\b3y=0
     np.piece\b4x=0
     np.piece\b4y=-1
     np.piece\b5x=0
     np.piece\b5y=1
     np.piece\b6x=0
     np.piece\b6y=0
   ElseIf g = 11
     np.piece\image=#Block+11
     np.piece\b1x=-1   ; cross
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0  
     np.piece\b3x=1
     np.piece\b3y=0
     np.piece\b4x=0
     np.piece\b4y=-1
     np.piece\b5x=0
     np.piece\b5y=1
     np.piece\b6x=2
     np.piece\b6y=0
   ElseIf g = 12
     np.piece\image=#Block+12
     np.piece\b1x=-1   ; layers
     np.piece\b1y=-1   
     np.piece\b2x=0   
     np.piece\b2y=-1   
     np.piece\b3x=1
     np.piece\b3y=-1
     np.piece\b4x=-1
     np.piece\b4y=1  
     np.piece\b5x=0
     np.piece\b5y=1
     np.piece\b6x=1
     np.piece\b6y=1   
   ElseIf g = 13
     np.piece\image=#Block+13
     np.piece\b1x=-1   ; Y
     np.piece\b1y=-1   
     np.piece\b2x=-1   
     np.piece\b2y=0  
     np.piece\b3x=0   
     np.piece\b3y=0
     np.piece\b4x=0
     np.piece\b4y=1
     np.piece\b5x=1
     np.piece\b5y=-1
     np.piece\b6x=1
     np.piece\b6y=0
   ElseIf g = 14
     np.piece\image=#Block+14
     np.piece\b1x=-1   ; U
     np.piece\b1y=0   
     np.piece\b2x=-1   
     np.piece\b2y=1   
     np.piece\b3x=0   
     np.piece\b3y=1
     np.piece\b4x=0
     np.piece\b4y=1
     np.piece\b5x=1
     np.piece\b5y=0
     np.piece\b6x=1
     np.piece\b6y=1
   ElseIf g = 15
     np.piece\image=#Block+15
     np.piece\b1x=-2   ; 5 line
     np.piece\b1y=0   
     np.piece\b2x=-1   
     np.piece\b2y=0   
     np.piece\b3x=0   
     np.piece\b3y=0
     np.piece\b4x=1
     np.piece\b4y=0
     np.piece\b5x=2
     np.piece\b5y=0
     np.piece\b6x=2
     np.piece\b6y=0
   ElseIf g = 16
     np.piece\image=#Block+16
     np.piece\b1x=-2   ; 6 line
     np.piece\b1y=0   
     np.piece\b2x=-1   
     np.piece\b2y=0   
     np.piece\b3x=0   
     np.piece\b3y=0
     np.piece\b4x=1
     np.piece\b4y=0
     np.piece\b5x=2
     np.piece\b5y=0
     np.piece\b6x=3
     np.piece\b6y=0
   ElseIf g = 17
     np.piece\image=#Block+17
     np.piece\b1x=-1   ; 3x2 block
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0   
     np.piece\b3x=1   
     np.piece\b3y=0
     np.piece\b4x=-1
     np.piece\b4y=1
     np.piece\b5x=0
     np.piece\b5y=1
     np.piece\b6x=1
     np.piece\b6y=1
   ElseIf g = 18
     np.piece\image=#Block+18
     np.piece\b1x=-1   ; zig-zag
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=1   
     np.piece\b3x=1   
     np.piece\b3y=0
     np.piece\b4x=-1
     np.piece\b4y=0
     np.piece\b5x=-1
     np.piece\b5y=0
     np.piece\b6x=-1
     np.piece\b6y=0
   ElseIf g = 19
     np.piece\image=#Block+19
     np.piece\b1x=-1   ; 2x2 block + notch top
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0   
     np.piece\b3x=0   
     np.piece\b3y=0
     np.piece\b4x=-1
     np.piece\b4y=1
     np.piece\b5x=0
     np.piece\b5y=1
     np.piece\b6x=1
     np.piece\b6y=0
   ElseIf g = 20
     np.piece\image=#Block+20
     np.piece\b1x=-1   ; 2x2 block + notch bottom
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0   
     np.piece\b3x=0   
     np.piece\b3y=0
     np.piece\b4x=-1
     np.piece\b4y=1
     np.piece\b5x=0
     np.piece\b5y=1
     np.piece\b6x=1
     np.piece\b6y=1  
   ElseIf g = 21   ; ************* BLOCKS
     np.piece\image=#Block+21
     np.piece\b1x=0   ; Small L
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=1   
     np.piece\b3x=0   
     np.piece\b3y=0
     np.piece\b4x=0
     np.piece\b4y=0
     np.piece\b5x=0
     np.piece\b5y=0
     np.piece\b6x=0
     np.piece\b6y=0  
   ElseIf g = 22
     np.piece\image=#Block+22
     np.piece\b1x=-1   ; Big T
     np.piece\b1y=-1   
     np.piece\b2x=0   
     np.piece\b2y=-1   
     np.piece\b3x=1   
     np.piece\b3y=-1
     np.piece\b4x=0
     np.piece\b4y=0
     np.piece\b5x=0
     np.piece\b5y=1
     np.piece\b6x=0
     np.piece\b6y=0   
   ElseIf g = 23
     np.piece\image=#Block+23
     np.piece\b1x=-1   ; Short parallel, by connie :)
     np.piece\b1y=0   
     np.piece\b2x=-1  
     np.piece\b2y=1  
     np.piece\b3x=1  
     np.piece\b3y=0
     np.piece\b4x=1
     np.piece\b4y=1
     np.piece\b5x=1
     np.piece\b5y=1
     np.piece\b6x=1
     np.piece\b6y=1  
   ElseIf g = 24
     np.piece\image=#Block+24
     np.piece\b1x=-1   ; Big L backwards
     np.piece\b1y=-1   
     np.piece\b2x=0   
     np.piece\b2y=-1   
     np.piece\b3x=1   
     np.piece\b3y=-1
     np.piece\b4x=1
     np.piece\b4y=0
     np.piece\b5x=1
     np.piece\b5y=1
     np.piece\b6x=-1
     np.piece\b6y=-1
   ElseIf g = 25
     np.piece\image=#Block+25
     np.piece\b1x=-2   ; TO
     np.piece\b1y=0   
     np.piece\b2x=-1   
     np.piece\b2y=0   
     np.piece\b3x=0   
     np.piece\b3y=0
     np.piece\b4x=1
     np.piece\b4y=0
     np.piece\b5x=2
     np.piece\b5y=0
     np.piece\b6x=0
     np.piece\b6y=1
   ElseIf g = 26
     np.piece\image=#Block+26
     np.piece\b1x=-1   ; Small L
     np.piece\b1y=0  
     np.piece\b2x=0   
     np.piece\b2y=0   
     np.piece\b3x=0   
     np.piece\b3y=1
     np.piece\b4x=0
     np.piece\b4y=0
     np.piece\b5x=0
     np.piece\b5y=0
     np.piece\b6x=0
     np.piece\b6y=0  
   ElseIf g = 27
     np.piece\image=#Block+27
     np.piece\b1x=-1   ; 3 by 1 line
     np.piece\b1y=0  
     np.piece\b2x=0   
     np.piece\b2y=0   
     np.piece\b3x=1   
     np.piece\b3y=0
     np.piece\b4x=0
     np.piece\b4y=0
     np.piece\b5x=0
     np.piece\b5y=0
     np.piece\b6x=0
     np.piece\b6y=0     
   ElseIf g = 28
     np.piece\image=#Block+28
     np.piece\b1x=-1+Random(2)   ; crazy
     np.piece\b1y=-1+Random(2)   
     np.piece\b2x=-1+Random(2)   
     np.piece\b2y=-1+Random(2)   
     np.piece\b3x=-1+Random(2)   
     np.piece\b3y=-1+Random(2)
     np.piece\b4x=-1+Random(2)
     np.piece\b4y=-1+Random(2)
     np.piece\b5x=-1+Random(2)
     np.piece\b5y=-1+Random(2)
     np.piece\b6x=-1+Random(2)
     np.piece\b6y=-1+Random(2)    
   EndIf
 Else  ; BABY BLOCKS
   g = Random(8)   

   If g = 0
     np.piece\image=#Block
     np.piece\b1x=0   ; a dot
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0
     np.piece\b3x=0
     np.piece\b3y=0
   ElseIf g = 1
     np.piece\image=#Block+1
     np.piece\b1x=0   ; line
     np.piece\b1y=-1   
     np.piece\b2x=0   
     np.piece\b2y=0
     np.piece\b3x=0
     np.piece\b3y=1
   ElseIf g = 2
     np.piece\image=#Block+2
     np.piece\b1x=-1   ; spaced
     np.piece\b1y=0   
     np.piece\b2x=1   
     np.piece\b2y=0   
     np.piece\b3x=1
     np.piece\b3y=0
   ElseIf g = 3
     np.piece\image=#Block+3
     np.piece\b1x=-1   ; L
     np.piece\b1y=0   
     np.piece\b2x=0   
     np.piece\b2y=0  
     np.piece\b3x=0
     np.piece\b3y=1
   ElseIf g = 4
     np.piece\image=#Block+4
     np.piece\b1x=0   ; two line
     np.piece\b1y=0   
     np.piece\b2x=1   
     np.piece\b2y=0   
     np.piece\b3x=0
     np.piece\b3y=0
   ElseIf g = 5
     np.piece\image=#Block+5
     np.piece\b1x=-1   ; Zig
     np.piece\b1y=-1   
     np.piece\b2x=0   
     np.piece\b2y=0   
     np.piece\b3x=1
     np.piece\b3y=1
   ElseIf g = 6
     np.piece\image=#Block+6
     np.piece\b1x=-1   ; bent
     np.piece\b1y=-1   
     np.piece\b2x=0   
     np.piece\b2y=0   
     np.piece\b3x=-1   
     np.piece\b3y=1
   ElseIf g = 7           
     np.piece\image=#Block+7
     np.piece\b1x= -1+Random(1)
     np.piece\b1y= -1+Random(1)
     np.piece\b2x= -1+Random(1)
     np.piece\b2y= -1+Random(1)
     np.piece\b3x= -1+Random(1)
     np.piece\b3y= -1+Random(1)
   EndIf
     np.piece\b4x = np.piece\b1x
     np.piece\b4y = np.piece\b1y; since these extra blocks arent used in this mode
     np.piece\b5x = np.piece\b1x; just make the piece over another piece to make only 3
     np.piece\b5y = np.piece\b1y
     np.piece\b6x = np.piece\b1x
     np.piece\b6y = np.piece\b1y   

 EndIf

 Return



 Return
;**********************************************************
;
;- SetCurrentPiece
;
;**********************************************************
 SetCurrentPiece:
   CurrentPiece = g
   cp.piece\image = np.piece\image
   cp.piece\b1x = np.piece\b1x
   cp.piece\b1y = np.piece\b1y
   cp.piece\b2x = np.piece\b2x
   cp.piece\b2y = np.piece\b2y  
   cp.piece\b3x = np.piece\b3x
   cp.piece\b3y = np.piece\b3y
   cp.piece\b4x = np.piece\b4x
   cp.piece\b4y = np.piece\b4y
   cp.piece\b5x = np.piece\b5x
   cp.piece\b5y = np.piece\b5y
   cp.piece\b6x = np.piece\b6x
   cp.piece\b6y = np.piece\b6y

 Return

;**********************************************************
;
;- GameEnd
;
;**********************************************************
GameEnd:
  Gosub SaveHiScore
  End   ; :D enjoy


; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 106
; FirstLine = 85
; Folding = -
; UseIcon = images\icon.ico
; Executable = Blocks.exe


comments powered by Disqus