hedgewars/uGearsRender.pas
changeset 13572 a71e6856ffab
parent 13405 4c813650fe17
child 13573 e896ff1b1d96
equal deleted inserted replaced
13571:fb81633f17fa 13572:a71e6856ffab
  1566                           if RealTicks mod 2 = 0 then
  1566                           if RealTicks mod 2 = 0 then
  1567                                 begin
  1567                                 begin
  1568                                 i:= random(100)+100;
  1568                                 i:= random(100)+100;
  1569                                 if Gear^.Target.X <> NoPointX then
  1569                                 if Gear^.Target.X <> NoPointX then
  1570                                     begin
  1570                                     begin
  1571                                     DrawLine(Gear^.Target.X, Gear^.Target.Y, hwRound(HHGear^.X), hwRound(HHGear^.Y), 4.0, i, i, $FF, $40);
  1571                                     DrawLineWrapped(hwRound(HHGear^.X), hwRound(HHGear^.Y), Gear^.Target.X, Gear^.Target.Y, 4.0, hwSign(HHGear^.dX) < 0, Gear^.FlightTime, i, i, $FF, $40);
  1572                                     end
  1572                                     end
  1573                                 else
  1573                                 else
  1574                                     begin
  1574                                     begin
  1575                                     DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
  1575                                     DrawLineWrapped(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, hwSign(HHGear^.dX) < 0, Gear^.FlightTime, i, i, $FF, $40);
  1576                                     end;
  1576                                     end;
  1577                                 end
  1577                                 end
  1578                           end
  1578                           end
  1579                       end;
  1579                       end;
  1580             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, 
  1580             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag,