equal
deleted
inserted
replaced
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; |