hedgewars/uGears.pas
changeset 3594 aeca3d8f1b29
parent 3580 85bd667955f2
child 3615 b78d7959540a
equal deleted inserted replaced
3593:ae50f63e4fa9 3594:aeca3d8f1b29
  1070                 if (roplen mod 4) = 0 then DrawSprite(sprRopeNode, x - 2, y - 2, 0)
  1070                 if (roplen mod 4) = 0 then DrawSprite(sprRopeNode, x - 2, y - 2, 0)
  1071                 end
  1071                 end
  1072         end
  1072         end
  1073     end;
  1073     end;
  1074 begin
  1074 begin
  1075     if cReducedQuality then
  1075     if (cReducedQuality and rqSimpleRope) <> 0 then
  1076         DrawRopeLinesRQ(Gear)
  1076         DrawRopeLinesRQ(Gear)
  1077     else
  1077     else
  1078         begin
  1078         begin
  1079         roplen:= 0;
  1079         roplen:= 0;
  1080         if RopePoints.Count > 0 then
  1080         if RopePoints.Count > 0 then