Thread :: Программирование от Чертенка.Ру

procedure BrickOut(TDC : HDC);
var
Y, X : Integer;
K : Byte;
begin
if isBroken then
begin
BitBlt(bmPlayTmp.Canvas.Handle, 0, 0, bmPlay.Width, bmPlay.Height, TDC, 0, 0, SRCCOPY);
for Y := 0 to 14 do
for X := 0 to 12 do
begin
K := LevelBuf[Y * 13 + X];
if (K <> 0) then
begin
// выведем тень блоков
DropShadow(X * 40 + 10, Y * 20 + 88, 40, 20, bmPlayTmp.Canvas.Handle, 120);
// выведем блоки
if K = 9 then
BltTransparent(bmPlayTmp.Canvas.Handle, X * 40, Y * 20 + 78, 40, 20, bmShine.Canvas.Handle, 0, 180, 40, 20, GetPixel(bmShine.Canvas.Handle, 180, bmShine.Height - 1))
else if K = 10 then
BltTransparent(bmPlayTmp.Canvas.Handle, X * 40, Y * 20 + 78, 40, 20, bmShine.Canvas.Handle, 0, 80, 40, 20, GetPixel(bmShine.Canvas.Handle, 80, bmShine.Height - 1))
else
BltTransparent(bmPlayTmp.Canvas.Handle, X * 40, Y * 20 + 78, 40, 20, bmBrick[K - 1].Canvas.Handle, 0, 0, 40, 20, GetPixel(bmBrick[K - 1].Canvas.Handle, 0, bmBrick[K - 1].Height - 1));
end;
end;
BitBlt(TDC, 0, 0, bmPlay.Width, bmPlay.Height, bmPlayTmp.Canvas.Handle, 0, 0, SRCCOPY);
isBroken := False;
end
else
BitBlt(TDC, 0, 0, bmPlay.Width, bmPlay.Height, bmPlayTmp.Canvas.Handle, 0, 0, SRCCOPY);
end;
procedure PlayScreenOut;
const
FlashColor : array[0..7] of Integer =
($0000FF, $0080FF, $00FFFF, $00FF00,
$FFFF00, $FF0000, $FF00FF, $800080);
var
Y, X, I, J : Integer;
K : Byte;
aRect, bRect : TRect;
OBR : HBRUSH;
OPEN : HPEN;
z:dword;
begin
z:=gettickcount;
if isBusy then
Exit;
isBusy := True;
// очистим игровое поле
PatBlt(TDC, 0, 0, bmPlay.Width, bmPlay.Height, BLACKNESS);
// =======================
// рисование игрового поля
// =======================
if isLevelStart or isNewBoard then
BitBlt(TDC, 0, 0, bmPlay.Width, bmPlay.Height, bmBkTemp.Canvas.Handle, 0, 0, SRCCOPY)
else
begin
if not isPause and isAppActive then // куда двигать фон
begin
case bkScroll of
bsLeftBottom :
begin
dec(bkPoint.X);
inc(bkPoint.Y);
end;
bsLeft :
begin
dec(bkPoint.X);
bkPoint.Y := 0;
end;
bsLeftTop :
begin
dec(bkPoint.X);
dec(bkPoint.Y);
end;
bsTop :
begin
bkPoint.X := 0;
dec(bkPoint.Y);
end;
bsTopRight :
begin
inc(bkPoint.X);
dec(bkPoint.Y);
end;
bsRight :
begin
inc(bkPoint.X);
bkPoint.Y := 0;
end;
bsRightBottom :
begin
inc(bkPoint.X);
inc(bkPoint.Y);
end;
bsBottom :
begin
bkPoint.X := 0;
inc(bkPoint.Y);
end;
end;
end;
if bkPoint.X < 0 then bkPoint.X := bkWidth - 1;
if bkPoint.Y < 0 then bkPoint.Y := bkHeight - 1;
if bkPoint.X >= bkWidth then bkPoint.X := 0;
if bkPoint.Y >= bkHeight then bkPoint.Y := 0;
BitBlt(TDC, 0, 0, bmPlay.Width, bmPlay.Height, bmBkTemp.Canvas.Handle, bkPoint.X, bkPoint.Y, SRCCOPY);
end;
// ==============================
// рисование тени на игровом поле
// ==============================
DropShadow(0, 0, 20, bmPlay.Height, TDC, {bmPlay.Width, bmPlay.Height,} 120);
DropShadow(20, 0, bmPlay.Width, 14, TDC, {bmPlay.Width, bmPlay.Height,} 120);
// рисуем блоки
BrickOut(TDC); // это при постоянной прорисовке съедало половину времени
// ===============
// появление доски
// ===============
if isNewBoard then
begin
BltTransparent(TDC, BoardPos.X, BoardPos.Y, bmNewBoard.Width, 14, bmNewBoard.Canvas.Handle, 0, (NewBoard shr 1) * 14, bmNewBoard.Width, 14, GetPixel(bmNewBoard.Canvas.Handle, 0, bmNewBoard.Height - 1));
end
else
begin
if GetAsyncKeyState(VK_LEFT) < 0 then
MoveBoard(-OffsetBoard);
if GetAsyncKeyState(VK_RIGHT) < 0 then
MoveBoard(OffsetBoard);
// Мигание краев доски/Flashing edge boards
if not isLevelStart then
begin
OBR := SelectObject(bmBoard.Canvas.Handle, CreateSolidBrush(FlashColor[(FlashBoard shr 1) and 15]));
try
ExtFloodFill(bmBoard.Canvas.Handle, 0, 9, GetPixel(bmBoard.Canvas.Handle, 0, 9), FLOODFILLSURFACE);
ExtFloodFill(bmBoard.Canvas.Handle, 62, 9, GetPixel(bmBoard.Canvas.Handle, bmBoard.Width - 1, 9), FLOODFILLSURFACE);
finally
DeleteObject(SelectObject(bmBoard.Canvas.Handle, OBR));
end;
inc(FlashBoard);
end;
// рисуем мяч и его тень
if not isBallStart and not isLevelStart then
begin
DrawBitmap(BoardPos.X + ((bmBoard.Width - bmBall[0].Width) div 2) + 10, BoardPos.Y - bmBall[0].Height + 10, bmBallSh, bmBallShM, TDC);
BltTransparent(TDC, BoardPos.X + ((bmBoard.Width - bmBall[0].Width) div 2), BoardPos.Y - bmBall[0].Height, bmBall[0].Width, bmBall[0].Height, bmBall[0].Canvas.Handle, 0, 0, bmBall[0].Width, bmBall[0].Height, GetPixel(bmBall[0].Canvas.Handle, 0, bmBall[0].Height - 1));
end;
// Рисуем тень доски/Draw shade of the board
DrawBitmap(BoardPos.X + 10, BoardPos.Y + 10, bmBoardSh, bmBoardShM, TDC);
// Рисуем доску/Draw board
BltTransparent(TDC, BoardPos.X, BoardPos.Y, bmBoard.Width, bmBoard.Height, bmBoard.Canvas.Handle, 0, 0, bmBoard.Width, bmBoard.Height, GetPixel(bmBoard.Canvas.Handle, 0, bmBoard.Height - 1));
// выводим остаток досок/deduce remainder of the boards
for I := 0 to Life - 2 do
BltTransparent(TDC, I * bmMiniBoard.Width + 10, 457, bmMiniBoard.Width, bmMiniBoard.Height, bmMiniBoard.Canvas.Handle, 0, 0, bmMiniBoard.Width, bmMiniBoard.Height, GetPixel(bmMiniBoard.Canvas.Handle, 0, bmMiniBoard.Height - 1));
end;
// =======================================
// показать номер при старте нового уровня
// =======================================
if islevelStart then
begin
SetRect(aRect, 0, bmPlay.Height - 140, bmPlay.Width, bmPlay.Height - 100);
DrawPath(TDC, PChar('Уровень ' + IntToStr(Level)), aRect, 3, 0, spRightBottom, True, 'Times New Roman', 30, [fsBold, fsItalic], [tsCenter, tsSingle], $FFFFFF, $000FF);
OffsetRect(aRect, 0, 40);
DrawPath(TDC, PChar('готов'), aRect, 3, 0, spRightBottom, True, 'Times New Roman', 30, [fsBold, fsItalic], [tsCenter, tsSingle], $FFFFFF, $0000FF);
end;
// ===========
// вывод паузы
// ===========
if isPause or not isAppActive then
begin
OBR := SelectObject(TDC, CreateSolidBrush($C7FFBE));
OPEN := SelectObject(TDC, CreatePen(PS_SOLID, 2, $0000FF));
try
SetRectEmpty(aRect);
DrawShadowTextDC(TDC, 'Pause', aRect, 5, $FF0000, $C0C0C0, spRightBottom, True, 'Times New Roman', 34, [fsBold], [tsSingle, tsCenter, tsCalc]);
InflateRect(aRect, 40, 20);
OffsetRect(aRect, (bmPlay.Width - (aRect.Right - aRect.Left)) div 2 + 40, (bmPlay.Height - (aRect.Bottom - aRect.Top)) div 2 + 20);
OffsetRect(aRect, 8, 8);
FillRect(TDC, aRect, GetStockObject(BLACK_BRUSH));
OffsetRect(aRect, -8, -8);
Rectangle(TDC, aRect.Left, aRect.Top, aRect.Right, aRect.Bottom);
DrawShadowTextDC(TDC, 'Pause', aRect, 5, $FF0000, $C0C0C0, spRightBottom, True, 'Times New Roman', 34, [fsBold], [tsSingle, tsCenter]);
finally
DeleteObject(SelectObject(TDC, OPEN));
DeleteObject(SelectObject(TDC, OBR));
end;
end;
// ===========
// вывод звезд
// ===========
if not isPause and isAppActive and not islevelStart and not isNewBoard then
begin
with StarGray do
begin
for I := 0 to Count - 1 do
// видимость звезды
if Visible[I] then
begin
// остался ли блок на месте
if LevelBuf[Coo[I].Y * 13 + Coo[I].X] = 0 then
Continue;
if Delay[I] > 0 then
begin
dec(Delay[I]);
Continue;
end;
BltTransparent(TDC, Coo[I].X * 40 + 14, Coo[I].Y * 20 + 82, 11, bmStarGray.Height, bmStarGray.Canvas.Handle, Frame[I] * 11, 0, 11, 11, GetPixel(bmStarGray.Canvas.Handle, 0, bmStarGray.Height - 1));
inc(Rep[I]);
if Rep[I] > 2 then
begin
Rep[I] := 0;
inc(Frame[I]);
if Frame[I] > 9 then
begin
Frame[I] := 0;
dec(Total[I]);
if Total[I] = 0 then
begin
Visible[I] := False;
dec(Enabled);
end;
end;
end;
end;
end;
with StarBrown do
begin
for I := 0 to Count - 1 do
if Visible[I] then
begin
if LevelBuf[Coo[I].Y * 13 + Coo[I].X] = 0 then
Continue;
if Delay[I] > 0 then
begin
dec(Delay[I]);
Continue;
end;
BltTransparent(TDC, Coo[I].X * 40 + 14, Coo[I].Y * 20 + 82, 11, bmStarBrown.Height, bmStarBrown.Canvas.Handle, Frame[I] * 11, 0, 11, 11, GetPixel(bmStarBrown.Canvas.Handle, 0, bmStarBrown.Height - 1));
inc(Rep[I]);
if Rep[I] > 2 then
begin
Rep[I] := 0;
inc(Frame[I]);
if Frame[I] > 9 then
begin
Frame[I] := 0;
dec(Total[I]);
if Total[I] = 0 then
begin
Visible[I] := False;
dec(Enabled);
end;
end;
end;
end;
end;
end;
// ===================================
// вывод игрового поля на пред-игровое
// ===================================
BitBlt(bmMain.Canvas.Handle, 27, 27, bmPlay.Width, bmPlay.Height, TDC, 0, 0, SRCCOPY);
if not isLevelStart and not isNewBoard and
not isPause and isAppActive then // двигать стены
begin
inc(Wall.PipeOffset, 2);
if Wall.PipeOffset > 25 then
Wall.PipeOffset := 0;
// вывести пламя
PlotFireHead;
FireLoop;
Move(TempMem^, FireMem^, FireWidth * FireHeight);
Inverse;
StretchDIBits(bmMain.Canvas.Handle, 27, SizeY - 42, bmPlay.width, 42, 0, 0, FireWidth, FireHeight,
ResMem, DIB^, DIB_RGB_COLORS, SRCCOPY);
if isFPS then
begin
count := count + 1;
time1 := GetTickCount;
dtime := time1 - time2;
if dtime > 10 then
begin
SetRect(aRect, 34, 30, 180, 60);
DrawShadowTextDC(bmmain.Canvas.Handle, PChar(Format('FPS %d', [MulDiv(count, 1000, dtime)])), aRect, 2, $0000FF, $C0C0C0, spRightBottom, True, 'Times New Roman', 20, [fsBold], [tsLeft]);
count := 0;
time2 := time1;
end;
end;
end;
BitBlt(Wall.bmTemp.Canvas.handle, 0, 0, Wall.bmTemp.Width, Wall.bmTemp.Height, Wall.bmPipe_hr.Canvas.Handle, 25 - Wall.PipeOffset, 0, SRCCOPY);
BitBlt(bmMain.Canvas.Handle, bmMain.Width div 2, 2, Wall.bmTemp.Width, Wall.bmTemp.Height, Wall.bmTemp.canvas.Handle, 0, 0, SRCCOPY);
BitBlt(Wall.bmTemp.Canvas.handle, -7, 0, Wall.bmPipe_hl.Width, Wall.bmPipe_hl.Height, Wall.bmPipe_hl.Canvas.Handle, Wall.PipeOffset, 0, SRCCOPY);
BitBlt(bmMain.Canvas.Handle, Wall.bmCorner_l.Width - 1, 2, Wall.bmTemp.Width, Wall.bmTemp.Height, Wall.bmTemp.canvas.Handle, 0, 0, SRCCOPY);
BitBlt(bmMain.Canvas.Handle, 2, bmMain.Height - Wall.bmPipe_vl.Height + Wall.PipeOffset, Wall.bmPipe_vl.Width, Wall.bmPipe_vl.Height, Wall.bmPipe_vl.canvas.Handle, 0, 0, SRCCOPY);
BitBlt(bmMain.Canvas.Handle, bmMain.Width - Wall.bmPipe_vr.Width - 2, bmMain.Height - Wall.bmPipe_vr.Height + Wall.PipeOffset, Wall.bmPipe_vr.Width, Wall.bmPipe_vr.Height, Wall.bmPipe_vr.canvas.Handle, 0, 0, SRCCOPY);
BltTransparent(bmMain.Canvas.Handle, 0, 0, Wall.bmCorner_l.Width, Wall.bmCorner_l.Height, Wall.bmCorner_l.canvas.Handle, 0, 0, Wall.bmCorner_l.Width, Wall.bmCorner_l.Height, GetPixel(Wall.bmCorner_l.Canvas.Handle, 0, Wall.bmCorner_l.Height - 1));
BltTransparent(bmMain.Canvas.Handle, bmMain.Width - Wall.bmCorner_r.Width, 0, Wall.bmCorner_r.Width, Wall.bmCorner_r.Height, Wall.bmCorner_r.canvas.Handle, 0, 0, Wall.bmCorner_r.Width, Wall.bmCorner_r.Height, GetPixel(Wall.bmCorner_r.Canvas.Handle, 0, Wall.bmCorner_r.Height - 1));
BitBlt(bmMain.Canvas.Handle, (bmMain.Width - Wall.bmCorner_c.Width) div 2, 0, Wall.bmCorner_c.Width, Wall.bmCorner_c.Height, Wall.bmCorner_c.canvas.Handle, 0, 0, SRCCOPY);
// ===================================
// =========================
// выводим в основной канвас
// =========================
BitBlt(DC, 0, 0, bmMain.Width, bmMain.Height, bmMain.Canvas.Handle, 0, 0, SRCCOPY);
isBusy := False;
z:=gettickcount-z;
textout(dc, 200, 40, pchar(inttostr(z)), length(inttostr(z)));
end;