hedgewars/uGearsHandlersMess.pas
changeset 9876 641c334eab46
parent 9873 8db0c56f7e2f
child 9881 749369ad65a9
equal deleted inserted replaced
9875:7641e99c7633 9876:641c334eab46
  5487                     Y:= HHGear^.Y
  5487                     Y:= HHGear^.Y
  5488                     end;
  5488                     end;
  5489 
  5489 
  5490                 if (Timer = iceCollideWithGround) and ((GameTicks - Power) > groundFreezingTime) then
  5490                 if (Timer = iceCollideWithGround) and ((GameTicks - Power) > groundFreezingTime) then
  5491                     begin
  5491                     begin
  5492                     FillRoundInLand(target.x, target.y, iceRadius, icePixel);
  5492                     FillRoundInLandFT(target.x, target.y, iceRadius, icePixel);
  5493                     landRect.x := min(max(target.x - iceRadius, 0), LAND_WIDTH - 1);
  5493                     landRect.x := min(max(target.x - iceRadius, 0), LAND_WIDTH - 1);
  5494                     landRect.y := min(max(target.y - iceRadius, 0), LAND_HEIGHT - 1);
  5494                     landRect.y := min(max(target.y - iceRadius, 0), LAND_HEIGHT - 1);
  5495                     landRect.w := min(2*iceRadius, LAND_WIDTH - landRect.x - 1);
  5495                     landRect.w := min(2*iceRadius, LAND_WIDTH - landRect.x - 1);
  5496                     landRect.h := min(2*iceRadius, LAND_HEIGHT - landRect.y - 1);
  5496                     landRect.h := min(2*iceRadius, LAND_HEIGHT - landRect.y - 1);
  5497                     UpdateLandTexture(landRect.x, landRect.w, landRect.y, landRect.h, true);
  5497                     UpdateLandTexture(landRect.x, landRect.w, landRect.y, landRect.h, true);