Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix background and horizont positions when zooming
authorunc0rr
Thu, 10 Sep 2009 12:46:56 +0000
changeset 2373 e3989519731b
parent 2372 f3e7a066c2b8
child 2374 d584bb4b836e
Fix background and horizont positions when zooming
hedgewars/CCHandlers.inc file | annotate | diff | comparison | revisions
hedgewars/uWorld.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/CCHandlers.inc	Thu Sep 10 12:42:01 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Thu Sep 10 12:46:56 2009 +0000
@@ -687,7 +687,7 @@
 
 procedure chZoomOut(var s: shortstring);
 begin
-if ZoomValue > 0.5 then ZoomValue:= ZoomValue - 0.25;
+if ZoomValue > 1.0 then ZoomValue:= ZoomValue - 0.25;
 end;
 
 procedure chChat(var s: shortstring);
--- a/hedgewars/uWorld.pas	Thu Sep 10 12:42:01 2009 +0000
+++ b/hedgewars/uWorld.pas	Thu Sep 10 12:46:56 2009 +0000
@@ -287,8 +287,7 @@
     w:= SpritesData[spr].Width;
     i:= Shift mod w;
     if i > 0 then dec(i, w);
-    dec(i, sw);
-    //addfilelog(inttostr(sw));
+    dec(i, w * (sw div w + 1));
     repeat
       DrawSprite(spr, i, WorldDy + LAND_HEIGHT - SpritesData[spr].Height, 0);
       inc(i, w)
hedgewars