1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Function WndProc(hWnd: HWND; // Handle okna
  message: UINT; // Zpráva pro okno
  wParam: WPARAM; // Doplòkové informace
  lParam: LPARAM): // Doplòkové informace
LRESULT; stdcall;
begin
..
  Case message Of // Vìtvení podle pøíchozí zprávy
    WM_MOUSEMOVE: Begin
        If (Amenue = gmInGame) Then Begin
          If Mouse.X < LOWORD(lParam) Then Begin
            If ReverseCamera Then
              Camerasoll := (Camerasoll + CameraStep) Mod 360
            Else
              Camerasoll := (Camerasoll + 360 - CameraStep) Mod 360;
          End;
          If Mouse.X > LOWORD(lParam) Then Begin
            If ReverseCamera Then
              Camerasoll := (Camerasoll + 360 - CameraStep) Mod 360
            Else
              Camerasoll := (Camerasoll + CameraStep) Mod 360;
          End;
          If (mouse.x <= ((screenwidth - appwidth) Div 2) - (appwidth Div 2) + 40) Or
            (mouse.x >= ((screenwidth - appwidth) Div 2) + (appwidth Div 2) - 40) Or
            (mouse.y <= ((screenheight - appheight) Div 2) - (appheight Div 2) + 40) Or
            (mouse.y >= ((screenheight - appheight) Div 2) + (appheight Div 2) - 40)
            Then Begin
            SetCursorPos(screenwidth Div 2, screenheight Div 2);
            Mouse.X := screenwidth Div 2;
            Mouse.y := screenheight Div 2;
          End;
          Mouse.X := LOWORD(lParam);
          Mouse.Y := HIWORD(lParam);
        End
        Else Begin
          Mouse.X := LOWORD(lParam);
          Mouse.Y := HIWORD(lParam);
        End;
        tmp := [];
        If Mouse.LButton Then include(tmp, ssleft);
        If Mouse.RButton Then include(tmp, ssRight);
        dummy.MouseMove(Nil, tmp, mouse.x, mouse.y);

        Result := 0;
      End;
..
end; // End case
end;