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 cWaveHeight:= 32;

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

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

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

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

    74 prevPoint.X:= 0;

    75 prevPoint.X:= 0;

    75 prevPoint.Y:= cScreenHeight div 2;

    76 prevPoint.Y:= cScreenHeight div 2;

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

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