hedgewars/uWorld.pas
changeset 23 16322d14f068
parent 13 7a5db822fd3f
child 39 b78e7185ed13
--- a/hedgewars/uWorld.pas	Sun Dec 04 15:28:31 2005 +0000
+++ b/hedgewars/uWorld.pas	Sun Dec 04 19:06:56 2005 +0000
@@ -108,6 +108,7 @@
 r.y:= WorldDy + cWaterLine + 32;
 if r.y < cScreenHeight then
    begin
+   if r.y < 0 then r.y:= 0;
    r.h:= cScreenHeight - r.y;
    r.x:= 0;
    r.w:= cScreenWidth;