hedgewars/GSHandlers.inc
changeset 4275 24137d2be956
parent 4272 cf18de7ea3d4
child 4277 d699d23a6e1d
equal deleted inserted replaced
4272:cf18de7ea3d4 4275:24137d2be956
  4244         exit;
  4244         exit;
  4245         end;
  4245         end;
  4246 
  4246 
  4247     if ((Gear^.Message and gmAttack) <> 0) and (hh^.Gear^.Health > 0) and (TurnTimeLeft > 0) then 
  4247     if ((Gear^.Message and gmAttack) <> 0) and (hh^.Gear^.Health > 0) and (TurnTimeLeft > 0) then 
  4248         begin
  4248         begin
  4249         if Length(graves) > Gear^.Tag then Gear^.Tag:= 0;
  4249         if Length(graves) >= Gear^.Tag then Gear^.Tag:= 0;
  4250         dec(hh^.Gear^.Health);
  4250         dec(hh^.Gear^.Health);
  4251         if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then
  4251         if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then
  4252             hh^.Gear^.Damage:= 1;
  4252             hh^.Gear^.Damage:= 1;
  4253         RenderHealth(hh^);
  4253         RenderHealth(hh^);
  4254         inc(graves[Gear^.Tag]^.Health);
  4254         inc(graves[Gear^.Tag]^.Health);