hedgewars/uWorld.pas
changeset 2119 d07828a0748e
parent 2047 805f7b62cff6
child 2139 5a083e71a71d
equal deleted inserted replaced
2118:0ebcc98ebc1a 2119:d07828a0748e
    71 cGearScrEdgesDist:= Min(cScreenWidth div 2 - 100, cScreenHeight div 2 - 50);
    71 cGearScrEdgesDist:= Min(cScreenWidth div 2 - 100, cScreenHeight div 2 - 50);
    72 SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
    72 SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
    73 prevPoint.X:= cScreenWidth div 2;
    73 prevPoint.X:= cScreenWidth div 2;
    74 prevPoint.Y:= cScreenHeight div 2;
    74 prevPoint.Y:= cScreenHeight div 2;
    75 WorldDx:=  - (LAND_WIDTH div 2) + cScreenWidth div 2;
    75 WorldDx:=  - (LAND_WIDTH div 2) + cScreenWidth div 2;
    76 WorldDy:=  - LAND_HEIGHT + (cScreenHeight - playHeight) div 2;
    76 //WorldDy:=  - (LAND_HEIGHT div 2) + cScreenHeight div 2;
    77 WorldDy:=  - (LAND_HEIGHT div 2) + cScreenHeight div 2;
    77 WorldDy:=  -playHeight + cScreenHeight div 2;
    78 AMxShift:= 210
    78 AMxShift:= 210
    79 end;
    79 end;
    80 
    80 
    81 procedure ShowAmmoMenu;
    81 procedure ShowAmmoMenu;
    82 const MENUSPEED = 15;
    82 const MENUSPEED = 15;