hedgewars/GSHandlers.inc
changeset 4325 ca254d2a46ac
parent 4319 81391b54b078
child 4327 224efdd648e1
equal deleted inserted replaced
4323:b0a07fcfcc40 4325:ca254d2a46ac
  4282         exit;
  4282         exit;
  4283         end;
  4283         end;
  4284 
  4284 
  4285     if ((Gear^.Message and gmAttack) <> 0) and (hh^.Gear^.Health > 0) and (TurnTimeLeft > 0) then 
  4285     if ((Gear^.Message and gmAttack) <> 0) and (hh^.Gear^.Health > 0) and (TurnTimeLeft > 0) then 
  4286         begin
  4286         begin
  4287         if Length(graves) >= Gear^.Tag then Gear^.Tag:= 0;
  4287         if Length(graves) <= Gear^.Tag then Gear^.Tag:= 0;
  4288         dec(hh^.Gear^.Health);
  4288         dec(hh^.Gear^.Health);
  4289         if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then
  4289         if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then
  4290             hh^.Gear^.Damage:= 1;
  4290             hh^.Gear^.Damage:= 1;
  4291         RenderHealth(hh^);
  4291         RenderHealth(hh^);
  4292         inc(graves[Gear^.Tag]^.Health);
  4292         inc(graves[Gear^.Tag]^.Health);