hedgewars/uGearsHandlersMess.pas
branch0.9.20
changeset 9885 34e8880f1f0a
parent 9881 749369ad65a9
child 9950 2759212a27de
child 9967 40750e72514b
equal deleted inserted replaced
9883:d6d3be73d427 9885:34e8880f1f0a
  5479                     Y:= HHGear^.Y
  5479                     Y:= HHGear^.Y
  5480                     end;
  5480                     end;
  5481 
  5481 
  5482                 if (Timer = iceCollideWithGround) and ((GameTicks - Power) > groundFreezingTime) then
  5482                 if (Timer = iceCollideWithGround) and ((GameTicks - Power) > groundFreezingTime) then
  5483                     begin
  5483                     begin
  5484                     FillRoundInLand(target.x, target.y, iceRadius, icePixel);
  5484                     FillRoundInLandFT(target.x, target.y, iceRadius, icePixel);
  5485                     landRect.x := min(max(target.x - iceRadius, 0), LAND_WIDTH - 1);
  5485                     landRect.x := min(max(target.x - iceRadius, 0), LAND_WIDTH - 1);
  5486                     landRect.y := min(max(target.y - iceRadius, 0), LAND_HEIGHT - 1);
  5486                     landRect.y := min(max(target.y - iceRadius, 0), LAND_HEIGHT - 1);
  5487                     landRect.w := min(2*iceRadius, LAND_WIDTH - landRect.x - 1);
  5487                     landRect.w := min(2*iceRadius, LAND_WIDTH - landRect.x - 1);
  5488                     landRect.h := min(2*iceRadius, LAND_HEIGHT - landRect.y - 1);
  5488                     landRect.h := min(2*iceRadius, LAND_HEIGHT - landRect.y - 1);
  5489                     UpdateLandTexture(landRect.x, landRect.w, landRect.y, landRect.h, true);
  5489                     UpdateLandTexture(landRect.x, landRect.w, landRect.y, landRect.h, true);