hedgewars/GearDrawing.inc
changeset 3863 95040bd7ace4
parent 3854 d390b0f29b0b
child 3894 9abce5468583
equal deleted inserted replaced
3862:4d462b29428e 3863:95040bd7ace4
    13 m:= 1;
    13 m:= 1;
    14 if ((Gear^.State and gstHHHJump) <> 0) and not cArtillery then m:= -1;
    14 if ((Gear^.State and gstHHHJump) <> 0) and not cArtillery then m:= -1;
    15 if (Gear^.State and gstHHDeath) <> 0 then
    15 if (Gear^.State and gstHHDeath) <> 0 then
    16     begin
    16     begin
    17     DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);
    17     DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);
       
    18     Tint(HH^.Team^.Clan^.Color);
       
    19     DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos + 8);
       
    20     Tint($FF, $FF, $FF, $FF);
    18     exit
    21     exit
    19     end
    22     end
    20 else if (Gear^.State and gstHHGone) <> 0 then
    23 else if (Gear^.State and gstHHGone) <> 0 then
    21     begin
    24     begin
    22     DrawRotatedF(sprTeleport, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, Gear^.Pos, hwSign(Gear^.dX), 0);
    25     DrawRotatedF(sprTeleport, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, Gear^.Pos, hwSign(Gear^.dX), 0);