hedgewars/uWorld.pas
changeset 109 ab0340f580c2
parent 108 08f1fe6f21f8
child 110 330a2dbacd67
--- a/hedgewars/uWorld.pas	Fri Aug 11 20:00:29 2006 +0000
+++ b/hedgewars/uWorld.pas	Sat Aug 12 17:41:02 2006 +0000
@@ -99,10 +99,10 @@
 begin
 // Sky
 inc(RealTicks, Lag);
-r.h:= WorldDy;
-if r.h > 0 then
+if WorldDy > 0 then
    begin
-   if r.h > cScreenHeight then r.h:= cScreenHeight;
+   if WorldDy > cScreenHeight then r.h:= cScreenHeight
+                              else r.h:= WorldDy;
    r.x:= 0;
    r.y:= 0;
    r.w:= cScreenWidth;