hedgewars/uGearsRender.pas
changeset 15622 237d691e5069
parent 15621 969f67193d0b
child 15624 adbd2bcf7159
equal deleted inserted replaced
15621:969f67193d0b 15622:237d691e5069
   414     sign:= hwSign(Gear^.dX);
   414     sign:= hwSign(Gear^.dX);
   415     if IsHogFacingLeft(Gear) then
   415     if IsHogFacingLeft(Gear) then
   416         hogLR:= -1
   416         hogLR:= -1
   417     else
   417     else
   418         hogLR:= 1;
   418         hogLR:= 1;
       
   419     if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtBlowTorch) then
       
   420         hogLR:= CurAmmoGear^.Tag;
   419 
   421 
   420     if (Gear^.State and gstHHDeath) <> 0 then
   422     if (Gear^.State and gstHHDeath) <> 0 then
   421         begin
   423         begin
   422         DrawSprite(sprHHDeath, ox - 16, oy - 26, Gear^.Pos);
   424         DrawSprite(sprHHDeath, ox - 16, oy - 26, Gear^.Pos);
   423         Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
   425         Tint(HH^.Team^.Clan^.Color shl 8 or $FF);