hedgewars/uGears.pas
changeset 5490 18c6049b5ae3
parent 5482 c047e70c53f4
child 5493 49769489af37
child 5498 fac3c15707d2
equal deleted inserted replaced
5489:f7ec6e5ad054 5490:18c6049b5ae3
  1067                 RecountTeamHealth(CurrentHedgehog^.Team);
  1067                 RecountTeamHealth(CurrentHedgehog^.Team);
  1068                 i:= 0;
  1068                 i:= 0;
  1069                 while i < vampDmg do
  1069                 while i < vampDmg do
  1070                     begin
  1070                     begin
  1071                     vg:= AddVisualGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), vgtHealth);
  1071                     vg:= AddVisualGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), vgtHealth);
  1072                     if vg <> nil then vg^.Frame:= 10;
  1072                     if vg <> nil then vg^.Tint:= $FF0000FF;
  1073                     inc(i, 5);
  1073                     inc(i, 5);
  1074                     end;
  1074                     end;
  1075                 end
  1075                 end
  1076             end;
  1076             end;
  1077         if ((GameFlags and gfKarma) <> 0) and
  1077         if ((GameFlags and gfKarma) <> 0) and