equal
deleted
inserted
replaced
88 begin |
88 begin |
89 for x:= 0 to Pred(Width) do |
89 for x:= 0 to Pred(Width) do |
90 if LandPixels[cpY + y, cpX + x] = 0 then |
90 if LandPixels[cpY + y, cpX + x] = 0 then |
91 begin |
91 begin |
92 LandPixels[cpY + y, cpX + x]:= p^[x]; |
92 LandPixels[cpY + y, cpX + x]:= p^[x]; |
93 if (p^[x] and $FF000000) <> 0 then Land[cpY + y, cpX + x]:= COLOR_LAND; |
93 if (p^[x] and AMask) <> 0 then Land[cpY + y, cpX + x]:= COLOR_LAND; |
94 end; |
94 end; |
95 p:= @(p^[Image^.pitch div 4]); |
95 p:= @(p^[Image^.pitch shr 2]); |
96 end; |
96 end; |
97 |
97 |
98 if SDL_MustLock(Image) then |
98 if SDL_MustLock(Image) then |
99 SDL_UnlockSurface(Image); |
99 SDL_UnlockSurface(Image); |
100 WriteLnToConsole(msgOK) |
100 WriteLnToConsole(msgOK) |
379 WaterColorArray[2].a := 255; |
379 WaterColorArray[2].a := 255; |
380 WaterColorArray[1]:= WaterColorArray[0]; |
380 WaterColorArray[1]:= WaterColorArray[0]; |
381 WaterColorArray[3]:= WaterColorArray[2]; |
381 WaterColorArray[3]:= WaterColorArray[2]; |
382 |
382 |
383 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); // sky color |
383 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); // sky color |
384 cExplosionBorderColor:= c2.value or $FF000000; |
384 cExplosionBorderColor:= c2.value or AMask; |
385 |
385 |
386 ReadLn(f, s); |
386 ReadLn(f, s); |
387 if MusicFN = '' then MusicFN:= s; |
387 if MusicFN = '' then MusicFN:= s; |
388 |
388 |
389 ReadLn(f, cCloudsNumber); |
389 ReadLn(f, cCloudsNumber); |