Tetris_20161215_005632.BAS.bak

'	PROGRAMA:		BLOCKS
' VERSÃO:			1.0
'	AUTOR:			FÁBIO MOURA DE OLIVEIRA
'	DATA: 			14/12/2016
' DESCRIÇÃO:	ESTE PROGRAMA É UM JOGO DE COMPUTADOR SEMELHANTE AO JOGO CLÁSSICO BLOCKS.

#COMPILE EXE
#DIM ALL
#INCLUDE "win32api.inc"

' No nosso jogo, blocks, cada parte do jogo é definido um nome:
' tabuleiro, local onde os blocos são colocados.
' célula, interseção entre uma linha e coluna, onde um bloco é inserido.
%CELULAS_POR_LINHA = 10
%CELULAS_POR_COLUNA = 10
%CELULAS_TOTAIS = %CELULAS_POR_LINHA * %CELULAS_POR_COLUNA

%BLOCO_LARGURA = 10
%BLOCO_ALTURA = 10


' Criar blocos
type
	celulas() as long
end type






' A última dimensão indica a cor.
Dim tabuleiro(1 TO %BLOCOS_POR_LINHA, 1 TO %BLOCOS_POR_COLUNA, 1 TO 1)



FUNCTION PBMAIN () AS LONG
	


                                                      '
	local janelaBloco as long, bitmapbloco as long
	graphic window new "Blocks v1.0 - Autor Fábio Moura", 0, 0, 500, 500 to janelaBloco
	Graphic bitmap new 500, 500 to bitmapBloco 
	
	local larguraTela, alturaTela as long
	' Obter tamanho:
	graphic get ppi to larguraTela, alturaTela
	
	' Anexa contexto gráfico.
	graphic attach janelaBloco, 0, redraw
	
	local linha as long
	do
	
	
	
		for linha = 0 to 255
			GRAPHIC line (0, linha) - (255, linha), rgb(0, 0, linha)
    next linha
		for linha = 255 to  510 
			GRAPHIC line (0, linha) - (510, linha), rgb(0, linha, 0)		
		next linha
		graphic redraw 
	loop while asc(graphic$(INKEY$)) <> 27
		
     


END FUNCTION


'***********************************************************************************************
'***********************************************************************************************
'***********************************************************************************************