hedgewars/uGearsRender.pas
changeset 4881 35e6269227b6
parent 4810 76315fdfb7a5
child 4883 7cddc9201a1d
equal deleted inserted replaced
4880:07e9849c6a70 4881:35e6269227b6
   942                     HHGear:= Gear^.Hedgehog^.Gear;
   942                     HHGear:= Gear^.Hedgehog^.Gear;
   943                     if not Gear^.Hedgehog^.Unplaced then DrawRotatedF(sprTeleport, x + 1, y - 3, Gear^.Pos, hwSign(Gear^.dX), 0);
   943                     if not Gear^.Hedgehog^.Unplaced then DrawRotatedF(sprTeleport, x + 1, y - 3, Gear^.Pos, hwSign(Gear^.dX), 0);
   944                     DrawRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0);
   944                     DrawRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0);
   945                     end;
   945                     end;
   946         gtSwitcher: DrawSprite(sprSwitch, x - 16, y - 56, (GameTicks shr 6) mod 12);
   946         gtSwitcher: DrawSprite(sprSwitch, x - 16, y - 56, (GameTicks shr 6) mod 12);
       
   947        gtStructure,
   947           gtTarget: begin
   948           gtTarget: begin
   948                     Tint($FF, $FF, $FF, round($FF * Gear^.Timer / 1000));
   949                     Tint($FF, $FF, $FF, round($FF * Gear^.Timer / 1000));
   949                     DrawSprite(sprTarget, x - 16, y - 16, 0);
   950                     DrawSprite(sprTarget, x - 16, y - 16, 0);
   950                     Tint($FF, $FF, $FF, $FF);
   951                     Tint($FF, $FF, $FF, $FF);
   951                     end;
   952                     end;