5428         // now really resurrect the hogs with the hp saved in the graves

  5428         // now really resurrect the hogs with the hp saved in the graves

  5429         for i:= 0 to graves.size - 1 do

  5429         for i:= 0 to graves.size - 1 do

  5430             if graves.ar^[i]^.Health > 0 then

  5430             if graves.ar^[i]^.Health > 0 then

  5431                 begin

  5431                 begin

  5432                 resgear := AddGear(hwRound(graves.ar^[i]^.X), hwRound(graves.ar^[i]^.Y), gtHedgehog, gstWait, _0, _0, 0);

  5432                 resgear := AddGear(hwRound(graves.ar^[i]^.X), hwRound(graves.ar^[i]^.Y), gtHedgehog, gstWait, _0, _0, 0);

  5433                 resgear^.Hedgehog := graves.ar^[i]^.Hedgehog;

  5434                 resgear^.Hedgehog := graves.ar^[i]^.Hedgehog;

  5434                 resgear^.Health := graves.ar^[i]^.Health;

  5435                 resgear^.Health := graves.ar^[i]^.Health;

  5435                 PHedgehog(graves.ar^[i]^.Hedgehog)^.Gear := resgear;

  5436                 PHedgehog(graves.ar^[i]^.Hedgehog)^.Gear := resgear;

  5436                 graves.ar^[i]^.Message:= graves.ar^[i]^.Message or gmDestroy;

  5437                 graves.ar^[i]^.Message:= graves.ar^[i]^.Message or gmDestroy;

  5437                 graves.ar^[i]^.Active:= true;

  5438                 graves.ar^[i]^.Active:= true;