4109     end;

  4109     end;

  4110 

  4110 

  4111     graves := GearsNear(hh^.Gear, gtGrave, Gear^.Radius);

  4111     graves := GearsNear(hh^.Gear, gtGrave, Gear^.Radius);

  4112 

  4112 

  4113     if Length(graves) = 0 then begin

  4113     if Length(graves) = 0 then begin

  4114         Gear^.Timer := 250;

  4115         Gear^.Timer := 250;

  4115         Gear^.doStep := @doStepIdle;

  4116         Gear^.doStep := @doStepIdle;

  4116         exit;

  4117         exit;

  4117     end;

  4118     end;

  4118 

  4119 

  4138                 DeleteGear(graves[i]);

  4139                 DeleteGear(graves[i]);

  4139                 RenderHealth(PHedgehog(resgear^.Hedgehog)^);

  4140                 RenderHealth(PHedgehog(resgear^.Hedgehog)^);

  4140                 RecountTeamHealth(Phedgehog(resgear^.Hedgehog)^.Team);

  4141                 RecountTeamHealth(Phedgehog(resgear^.Hedgehog)^.Team);

  4141             end;

  4142             end;

  4142         end;

  4143         end;

  4143         Gear^.Timer := 250;

  4145         Gear^.Timer := 250;

  4144         Gear^.doStep := @doStepIdle;

  4146         Gear^.doStep := @doStepIdle;

  4145     end;

  4147     end;

  4146 end;

  4148 end;

  4147 

  4149 

  4160             PHedgehog(graves[i]^.Hedgehog)^.Gear := nil;

  4162             PHedgehog(graves[i]^.Hedgehog)^.Gear := nil;

  4161             graves[i]^.Health := 0;

  4163             graves[i]^.Health := 0;

  4162         end;

  4164         end;

  4163         Gear^.doStep := @doStepResurrectorWork;

  4165         Gear^.doStep := @doStepResurrectorWork;

  4164     end else begin

  4166     end else begin

  4165         Gear^.Timer := 250;

  4168         Gear^.Timer := 250;

  4166         Gear^.doStep := @doStepIdle;

  4169         Gear^.doStep := @doStepIdle;

  4167     end;

  4170     end;

  4168 end;

  4171 end;

  4169 

  4172