106 DrawLand(WorldDx, WorldDy, Surface);

   106 DrawLand(WorldDx, WorldDy, Surface);

   107 // Water

   107 // Water

   108 r.y:= WorldDy + cWaterLine + 32;

   108 r.y:= WorldDy + cWaterLine + 32;

   109 if r.y < cScreenHeight then

   109 if r.y < cScreenHeight then

   110    begin

   110    begin

   111    r.h:= cScreenHeight - r.y;

   112    r.h:= cScreenHeight - r.y;

   112    r.x:= 0;

   113    r.x:= 0;

   113    r.w:= cScreenWidth;

   114    r.w:= cScreenWidth;

   114    SDL_FillRect(Surface, @r, cWaterColor)

   115    SDL_FillRect(Surface, @r, cWaterColor)

   115    end;

   116    end;