597 ////////////////////////////////// TODO - ASK UNC0RR FOR A GOOD HOME FOR THIS ////////////////////////////////////

   597 ////////////////////////////////// TODO - ASK UNC0RR FOR A GOOD HOME FOR THIS ////////////////////////////////////

   598             if cWindSpeed * 1600 + dX < _0 then i:= -1

   598             if cWindSpeed * 1600 + dX < _0 then i:= -1

   599             else i:= 1;

   599             else i:= 1;

   600             if (yy > 0) and ((Land[yy-1, xx] and $FF00) = 0) then dec(yy)

   600             if (yy > 0) and ((Land[yy-1, xx] and $FF00) = 0) then dec(yy)

   601             else dec(xx, i);

   601             else dec(xx, i);

   603             dec(xx,i);

   603             dec(xx,i);

   604             if (((cReducedQuality and rqBlurryLand) = 0) and 

   604             if (((cReducedQuality and rqBlurryLand) = 0) and 

   605                     (xx >= 0) and (xx < LAND_WIDTH-4) and (yy >= 0) and (yy < LAND_HEIGHT)) or

   605                     (xx >= 0) and (xx < LAND_WIDTH-4) and (yy >= 0) and (yy < LAND_HEIGHT)) or

   606                (((cReducedQuality and rqBlurryLand) <> 0) and

   606                (((cReducedQuality and rqBlurryLand) <> 0) and

   607                     (xx >= 0) and (xx < (LAND_WIDTH div 2)-4) and (yy >= 0) and (yy < LAND_HEIGHT div 2)) then

   607                     (xx >= 0) and (xx < (LAND_WIDTH div 2)-4) and (yy >= 0) and (yy < LAND_HEIGHT div 2)) then

   621                             end;

   621                             end;

   622                     p:= @(p^[s^.pitch shr 2])

   622                     p:= @(p^[s^.pitch shr 2])

   623                     end;

   623                     end;

   624                 UpdateLandTexture(xx, 4, yy, 4)

   624                 UpdateLandTexture(xx, 4, yy, 4)

   625                 end;

   625                 end;

   627             inc(xx,i);

   627             inc(xx,i);

   628             if ((xx and LAND_WIDTH_MASK) = 0) and ((yy and LAND_HEIGHT_MASK) = 0) then Land[yy, xx]:= Land[yy, xx] or lfBasic;

   628             if ((xx and LAND_WIDTH_MASK) = 0) and ((yy and LAND_HEIGHT_MASK) = 0) then Land[yy, xx]:= Land[yy, xx] or lfBasic;

   629             if yy > 0 then

   629             if yy > 0 then

   630                 begin 

   630                 begin 

   631                 Land[yy-1, xx]:= Land[yy-1, xx] or lfBasic;

   631                 Land[yy-1, xx]:= Land[yy-1, xx] or lfBasic;