hedgewars/uWorld.pas
changeset 2268 053eb81e60ee
parent 2226 e35b62cb7a1c
child 2269 00f5704f5f39
equal deleted inserted replaced
2267:ad372e549cc5 2268:053eb81e60ee
    65 	fpsTexture: PTexture = nil;
    65 	fpsTexture: PTexture = nil;
    66 
    66 
    67 procedure InitWorld;
    67 procedure InitWorld;
    68 begin
    68 begin
    69 cWaveWidth:= SpritesData[sprWater].Width;
    69 cWaveWidth:= SpritesData[sprWater].Width;
    70 cWaveHeight:= SpritesData[sprWater].Height;
    70 //cWaveHeight:= SpritesData[sprWater].Height;
       
    71 cWaveHeight:= 32;
    71 cGearScrEdgesDist:= Min(cScreenWidth div 2 - 100, cScreenHeight div 2 - 50);
    72 cGearScrEdgesDist:= Min(cScreenWidth div 2 - 100, cScreenHeight div 2 - 50);
    72 SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
    73 SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2);
    73 prevPoint.X:= 0;
    74 prevPoint.X:= 0;
    74 prevPoint.Y:= cScreenHeight div 2;
    75 prevPoint.Y:= cScreenHeight div 2;
    75 WorldDx:=  - (LAND_WIDTH div 2) + cScreenWidth div 2;
    76 WorldDx:=  - (LAND_WIDTH div 2) + cScreenWidth div 2;