hedgewars/uWorld.pas
changeset 109 ab0340f580c2
parent 108 08f1fe6f21f8
child 110 330a2dbacd67
equal deleted inserted replaced
108:08f1fe6f21f8 109:ab0340f580c2
    97     end;
    97     end;
    98 
    98 
    99 begin
    99 begin
   100 // Sky
   100 // Sky
   101 inc(RealTicks, Lag);
   101 inc(RealTicks, Lag);
   102 r.h:= WorldDy;
   102 if WorldDy > 0 then
   103 if r.h > 0 then
   103    begin
   104    begin
   104    if WorldDy > cScreenHeight then r.h:= cScreenHeight
   105    if r.h > cScreenHeight then r.h:= cScreenHeight;
   105                               else r.h:= WorldDy;
   106    r.x:= 0;
   106    r.x:= 0;
   107    r.y:= 0;
   107    r.y:= 0;
   108    r.w:= cScreenWidth;
   108    r.w:= cScreenWidth;
   109    SDL_FillRect(Surface, @r, cSkyColor)
   109    SDL_FillRect(Surface, @r, cSkyColor)
   110    end;
   110    end;