hedgewars/uWorld.pas
changeset 2139 5a083e71a71d
parent 2119 d07828a0748e
child 2142 48ed98cfd119
equal deleted inserted replaced
2138:b246ad6484f5 2139:5a083e71a71d
    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 div 2) + cScreenHeight div 2;
    76 //WorldDy:=  - (LAND_HEIGHT div 2) + cScreenHeight div 2;
    77 WorldDy:=  -playHeight + cScreenHeight div 2;
    77 WorldDy:=  - (LAND_HEIGHT - (playHeight div 2)) + (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;