38 	Frames: Longword = 0;

    38 	Frames: Longword = 0;

    39 	WaterColor, DeepWaterColor: TSDL_Color;

    39 	WaterColor, DeepWaterColor: TSDL_Color;

    40 

    40 

    41 implementation

    41 implementation

    42 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, GL,

    42 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, GL,

    44 

    44 

    45 const FPS: Longword = 0;

    45 const FPS: Longword = 0;

    46       CountTicks: Longword = 0;

    46       CountTicks: Longword = 0;

    47       SoundTimerTicks: Longword = 0;

    47       SoundTimerTicks: Longword = 0;

    48       prevPoint: TPoint = (X: 0; Y: 0);

    48       prevPoint: TPoint = (X: 0; Y: 0);

    66 cGearScrEdgesDist:= Min(cScreenWidth div 2 - 100, cScreenHeight div 2 - 50);

    66 cGearScrEdgesDist:= Min(cScreenWidth div 2 - 100, cScreenHeight div 2 - 50);

    67 SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);

    67 SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);

    68 prevPoint.X:= cScreenWidth div 2;

    68 prevPoint.X:= cScreenWidth div 2;

    69 prevPoint.Y:= cScreenHeight div 2;

    69 prevPoint.Y:= cScreenHeight div 2;

    70 WorldDx:=  - (LAND_WIDTH div 2) + cScreenWidth div 2;

    70 WorldDx:=  - (LAND_WIDTH div 2) + cScreenWidth div 2;

    71 WorldDy:=  - (LAND_HEIGHT div 2) + cScreenHeight div 2;

    72 WorldDy:=  - (LAND_HEIGHT div 2) + cScreenHeight div 2;

    72 AMxShift:= 210

    73 AMxShift:= 210

    73 end;

    74 end;

    74 

    75 

    75 procedure ShowAmmoMenu;

    76 procedure ShowAmmoMenu;