Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uWorld.pas
changeset 755 edf26e9554ac
parent 753 40fc0deb388f
child 756 2b307457fd68
equal deleted inserted replaced
754:94ac14829085 755:edf26e9554ac 
   180    r.y:= 0;
 
   180    r.y:= 0;
 
   181    r.w:= cScreenWidth;
 
   181    r.w:= cScreenWidth;
 
   182 //   SDL_FillRect(Surface, @r, cSkyColor)
 
   182 //   SDL_FillRect(Surface, @r, cSkyColor)
 
   183    end;
 
   183    end;
 
   184 // background
 
   184 // background
 
   185 //DrawRepeated(sprSky, WorldDx * 3 div 8);
 
   185 DrawRepeated(sprSky, WorldDx * 3 div 8);
 
   186 //DrawRepeated(sprHorizont, WorldDx * 3 div 5);
 
   186 DrawRepeated(sprHorizont, WorldDx * 3 div 5);
 
   187 
   187 
   188 // Waves
 
   188 // Waves
 
   189 {$WARNINGS OFF}
 
   189 {$WARNINGS OFF}
 
   190 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx + (RealTicks shr 6)      ) and $FF), cWaterLine + WorldDy - 64, 0, Surface);
 
   190 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx + (RealTicks shr 6)      ) and $FF), cWaterLine + WorldDy - 64, 0, Surface);
 
   191 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx - (RealTicks shr 6) + 192) and $FF), cWaterLine + WorldDy - 48, 0, Surface);
 
   191 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx - (RealTicks shr 6) + 192) and $FF), cWaterLine + WorldDy - 48, 0, Surface);
 
   201    r.x:= 0;
 
   201    r.x:= 0;
 
   202    r.w:= cScreenWidth;
 
   202    r.w:= cScreenWidth;
 
   203 //   SDL_FillRect(Surface, @r, cWaterColor)
 
   203 //   SDL_FillRect(Surface, @r, cWaterColor)
 
   204    end;
 
   204    end;
 
   205 
   205 
   206 //DrawGears(Surface);
 
   206 DrawGears(Surface);
 
   207 
   207 
   208 // Waves
 
   208 // Waves
 
   209 {$WARNINGS OFF}
 
   209 {$WARNINGS OFF}
 
   210 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx + (RealTicks shr 6) +  64) and $FF), cWaterLine + WorldDy - 32, 0, Surface);
 
   210 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx + (RealTicks shr 6) +  64) and $FF), cWaterLine + WorldDy - 32, 0, Surface);
 
   211 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx - (RealTicks shr 6) + 128) and $FF), cWaterLine + WorldDy - 16, 0, Surface);
 
   211 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx - (RealTicks shr 6) + 128) and $FF), cWaterLine + WorldDy - 16, 0, Surface);
hedgewars