hedgewars/uWorld.pas
changeset 282 b1e3387389b6
parent 281 5b483aa9f2ab
child 284 22ce72bd637f
equal deleted inserted replaced
281:5b483aa9f2ab 282:b1e3387389b6
    55     AMxLeft, AMxCurr, SlotsNum: integer;
    55     AMxLeft, AMxCurr, SlotsNum: integer;
    56 
    56 
    57 procedure InitWorld;
    57 procedure InitWorld;
    58 begin
    58 begin
    59 cWaterSprCount:= 1 + cScreenWidth div (SpritesData[sprWater].Width);
    59 cWaterSprCount:= 1 + cScreenWidth div (SpritesData[sprWater].Width);
    60 cScreenEdgesDist:= Min(cScreenWidth div 4, cScreenHeight div 4);
    60 cScreenEdgesDist:= Min(cScreenWidth div 2 - 100, cScreenHeight div 2 - 50);
    61 SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
    61 SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
    62 prevPoint.X:= cScreenWidth div 2;
    62 prevPoint.X:= cScreenWidth div 2;
    63 prevPoint.Y:= cScreenHeight div 2;
    63 prevPoint.Y:= cScreenHeight div 2;
    64 WorldDx:=  - 1024 + cScreenWidth div 2;
    64 WorldDx:=  - 1024 + cScreenWidth div 2;
    65 WorldDy:=  - 512 + cScreenHeight div 2;
    65 WorldDy:=  - 512 + cScreenHeight div 2;