hedgewars/uVisualGears.pas
changeset 15772 95db10dcad71
parent 15585 f8c1492601fe
child 15773 da1bb21e6fbf
equal deleted inserted replaced
15771:aa4a4e222308 15772:95db10dcad71
   263                                         Tint($FF, $FF, $FF,  $66);
   263                                         Tint($FF, $FF, $FF,  $66);
   264                                         DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
   264                                         DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
   265                                         end
   265                                         end
   266                                     else if (Gear^.Tex <> nil) and (((Gear^.State = 0) and ((Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.Team = CurrentTeam))) or (Gear^.State = 2)) then
   266                                     else if (Gear^.Tex <> nil) and (((Gear^.State = 0) and ((Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.Team = CurrentTeam))) or (Gear^.State = 2)) then
   267                                         DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
   267                                         DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
   268                vgtSmallDamageTag: DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
   268                vgtSmallDamageTag: if Gear^.Tex <> nil then
       
   269                                     DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
   269                vgtHealthTag: if Gear^.Tex <> nil then
   270                vgtHealthTag: if Gear^.Tex <> nil then
   270                                begin
   271                                begin
   271                                if Gear^.Frame = 0 then
   272                                if Gear^.Frame = 0 then
   272                                    DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
   273                                    DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
   273                                else
   274                                else