ARKANOID - odbijanje

Code:

Procedure BallBrickReflect;
 Begin
  For C1 := 1 to Ball.SirinaN Do Begin
   For C2 := 1 to Ball.VisinaN Do Begin
    (** Sad ovde treba da se ispita da li ce se lopta odbiti od zida **)
   End;
  End;
 End;

Code:

Procedure BallBrickReflect;
 Begin
  For C1 := 1 to Brk.SirinaN Do Begin
   For C2 := 1 to Brk.VisinaN Do Begin
    If Brk.Block[C1, C2] = FALSE Then Begin

    If (Ball.X > Brk.X + C1 * Brk.X1 - Ball.Radius - Abs(Ball.XMove)) and
       (Ball.X < Brk.X + (C1 + 1) * Brk.X1 + Ball.Radius + Abs(Ball.XMove))
      Then
     If ((Ball.Y > Brk.Y + C2 * Brk.Y1 - Ball.Radius - Abs(Ball.YMove)) and
        (Ball.Y < Brk.Y + C2 * Brk.Y1) and (Ball.YMove > 0)) or
        ((Ball.Y < Brk.Y + (C2 + 1) * Brk.Y1 + Ball.Radius + Abs(Ball.YMove))
    and (Ball.Y > Brk.Y + (C2 + 1) * Brk.Y1) and (Ball.YMove < 0)) Then Begin
      Ball.YMove := -Ball.YMove;
      Brk.Block[C1, C2] := TRUE;
      BrickDelete;
     End;

    If (Ball.Y > Brk.Y + C2 * Brk.Y1 - Ball.Radius) and
       (Ball.Y < Brk.Y + (C2 + 1) * Brk.Y1 + Ball.Radius)
      Then
     If ((Ball.X > Brk.X + C1 * Brk.X1 - Ball.Radius - Abs(Ball.XMove)) and
        (Ball.X < Brk.X + C1 * Brk.X1) and (Ball.XMove > 0)) or
        ((Ball.X < Brk.X + (C1 + 1) * Brk.X1 + Ball.Radius + Abs(Ball.XMove))
    and (Ball.X > Brk.X + (C1 + 1) * Brk.X1) and (Ball.XMove < 0)) Then Begin
      Ball.XMove := -Ball.XMove;
      Brk.Block[C1, C2] := TRUE;
      BrickDelete;
     End;
    End;
   End;
  End;
 End;

Code:

#include <windows.h>

#define TIMER  1000

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);

// Global variables

long x1 = 50;
long x2 = 50;
long Ballx = 50;
long Bally = 50;
BOOL movingright = TRUE;
BOOL movingdown = TRUE;
HPEN hBlackPen;
HPEN hWhitePen;
HBRUSH hBlackBrush;
HBRUSH hWhiteBrush;
HDC hGlobalDC;

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
    HWND hWnd;
    MSG msg;
    WNDCLASS wcl;
    
    // Register window class
    
    wcl.style = 0;
    wcl.lpfnWndProc = WndProc;
    wcl.cbClsExtra = 0;
    wcl.cbWndExtra = 0;
    wcl.hInstance = hInstance;
    wcl.hIcon = LoadIcon(NULL, IDI_WINLOGO);
    wcl.hCursor = LoadCursor(NULL, IDC_ARROW);
    wcl.hbrBackground = (HBRUSH)GetStockObject(BLACK_BRUSH);
    wcl.lpszMenuName = NULL;
    wcl.lpszClassName = "WinPongClass";
    RegisterClass(&wcl);
    
    // Create window
    
    hWnd = CreateWindow("WinPongClass", "WinPong", WS_VISIBLE | WS_POPUPWINDOW | WS_CAPTION,
        (GetSystemMetrics(SM_CXFULLSCREEN) - 500) / 2, (GetSystemMetrics(SM_CYFULLSCREEN) - 400) / 2,
        500, 400, NULL, NULL, hInstance, NULL);
    
    // Get window's device context
        
    hGlobalDC = GetDC(hWnd);
    
    // Create drawing pens and brushes
        
    hBlackPen = CreatePen(PS_SOLID, 0, RGB(0, 0, 0));
    hWhitePen = CreatePen(PS_SOLID, 0, RGB(255, 255, 255));
    hBlackBrush = (HBRUSH)GetStockObject(BLACK_BRUSH);
    hWhiteBrush = (HBRUSH)GetStockObject(WHITE_BRUSH);

    // Draw playing blocks
    
    SelectObject(hGlobalDC, (HGDIOBJ)hWhitePen);
    SelectObject(hGlobalDC, (HGDIOBJ)hWhiteBrush);
    RoundRect(hGlobalDC, x1, 10, x1 + 50, 24, 10, 10);
    RoundRect(hGlobalDC, x2, 350, x1 + 50, 364, 10, 10);
    
    // Create timer
    
    SetTimer(hWnd, TIMER, 40, NULL);
    
    // Message loop
        
    while (GetMessage(&msg, 0, 0, 0))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
    
    return 0;
}

LRESULT CALLBACK WndProc(HWND hwnd, UINT message, WPARAM wparam, LPARAM lparam)
{
    switch (message)
    {
        // Process timer and move the ball
        
        case WM_TIMER:
            SelectObject(hGlobalDC, (HGDIOBJ)hBlackPen);
            SelectObject(hGlobalDC, (HGDIOBJ)hBlackBrush);
            Ellipse(hGlobalDC, Ballx, Bally, Ballx + 15, Bally + 15);
            if (Ballx > 470) movingright = FALSE;
            if (Ballx < 10) movingright = TRUE;
            if (Bally < 30)
            {
                if ((Ballx > x1 - 5) && (Ballx < x1 + 55)) movingdown = TRUE; else SendMessage(hwnd, WM_CLOSE, 0, 0);
            }
            if (Bally > 320)
            {
                if ((Ballx > x2 - 5) && (Ballx < x2 + 55)) movingdown = FALSE; else SendMessage(hwnd, WM_CLOSE, 0, 0);
            }
            if (movingright == TRUE) Ballx += 6; else Ballx -= 6;
            if (movingdown == TRUE) Bally += 6; else Bally -= 6;
            SelectObject(hGlobalDC, (HGDIOBJ)hWhitePen);
            SelectObject(hGlobalDC, (HGDIOBJ)hWhiteBrush);
            Ellipse(hGlobalDC, Ballx, Bally, Ballx + 15, Bally + 15);
            break;
            
        // Process keyboard and move playing blocks
            
        case WM_CHAR:
            if ((TCHAR)wparam == 'a')
            {
                SelectObject(hGlobalDC, (HGDIOBJ)hBlackPen);
                SelectObject(hGlobalDC, (HGDIOBJ)hBlackBrush);
                RoundRect(hGlobalDC, x1, 10, x1 + 50, 24, 10, 10);
                x1 -= 10;
                SelectObject(hGlobalDC, (HGDIOBJ)hWhitePen);
                SelectObject(hGlobalDC, (HGDIOBJ)hWhiteBrush);
                RoundRect(hGlobalDC, x1, 10, x1 + 50, 24, 10, 10);
            }
            if ((TCHAR)wparam == 's')
            {
                SelectObject(hGlobalDC, (HGDIOBJ)hBlackPen);
                SelectObject(hGlobalDC, (HGDIOBJ)hBlackBrush);
                RoundRect(hGlobalDC, x1, 10, x1 + 50, 24, 10, 10);
                x1 += 10;
                SelectObject(hGlobalDC, (HGDIOBJ)hWhitePen);
                SelectObject(hGlobalDC, (HGDIOBJ)hWhiteBrush);
                RoundRect(hGlobalDC, x1, 10, x1 + 50, 24, 10, 10);
            }
            if ((TCHAR)wparam == '1')
            {
                SelectObject(hGlobalDC, (HGDIOBJ)hBlackPen);
                SelectObject(hGlobalDC, (HGDIOBJ)hBlackBrush);
                RoundRect(hGlobalDC, x2, 350, x2 + 50, 364, 10, 10);
                x2 -= 10;
                SelectObject(hGlobalDC, (HGDIOBJ)hWhitePen);
                SelectObject(hGlobalDC, (HGDIOBJ)hWhiteBrush);
                RoundRect(hGlobalDC, x2, 350, x2 + 50, 364, 10, 10);
            }
            if ((TCHAR)wparam == '2')
            {
                SelectObject(hGlobalDC, (HGDIOBJ)hBlackPen);
                SelectObject(hGlobalDC, (HGDIOBJ)hBlackBrush);
                RoundRect(hGlobalDC, x2, 350, x2 + 50, 364, 10, 10);
                x2 += 10;
                SelectObject(hGlobalDC, (HGDIOBJ)hWhitePen);
                SelectObject(hGlobalDC, (HGDIOBJ)hWhiteBrush);
                RoundRect(hGlobalDC, x2, 350, x2 + 50, 364, 10, 10);
            }
            break;
            
        // Process the close signal
        
        case WM_CLOSE:
            DeleteObject((HGDIOBJ)hBlackPen);
            DeleteObject((HGDIOBJ)hWhitePen);
            DeleteObject((HGDIOBJ)hBlackBrush);
            DeleteObject((HGDIOBJ)hWhiteBrush);
            KillTimer(hwnd, TIMER);
            MessageBox(hwnd, "See ya...", "WinPong", MB_OK);
            DestroyWindow(hwnd);
            PostQuitMessage(0);
    }
    return DefWindowProc(hwnd, message, wparam, lparam);    
}