5146     if w < 128 then w:= w+128;

  5146     if w < 128 then w:= w+128;

  5147     if w > 255 then w:= 255;

  5147     if w > 255 then w:= 255;

  5148     w:= (w shl RShift) or (w shl BShift) or (w shl GShift) or (LandPixels[y,x] and AMask);

  5148     w:= (w shl RShift) or (w shl BShift) or (w shl GShift) or (LandPixels[y,x] and AMask);

  5149     //LandPixels[y, x]:= w;

  5149     //LandPixels[y, x]:= w;

  5150     LandPixels[y, x]:= addBgColor(w, c);

  5150     LandPixels[y, x]:= addBgColor(w, c);

  5151 

  5152 

  5152     Land[y, x] := land[y, x] or lfIce;

  5153     Land[y, x] := land[y, x] or lfIce;

  5153 end;

  5154 end;

  5154 

  5155 

  5155 procedure DrawIce(Gear: PGear; x, y: Longint); 

  5156 procedure DrawIce(Gear: PGear; x, y: Longint);