740 

   740 

   741 procedure ResurrectHedgehog(var gear: PGear);

   741 procedure ResurrectHedgehog(var gear: PGear);

   742 var tempTeam : PTeam;

   742 var tempTeam : PTeam;

   743     sparkles: PVisualGear;

   743     sparkles: PVisualGear;

   744     gX, gY: LongInt;

   744     gX, gY: LongInt;

   746 begin

   745 begin

   747     if (Gear^.LastDamage <> nil) then

   746     if (Gear^.LastDamage <> nil) then

   748         uStats.HedgehogDamaged(Gear, Gear^.LastDamage, 0, true)

   747         uStats.HedgehogDamaged(Gear, Gear^.LastDamage, 0, true)

   749     else

   748     else

   750         uStats.HedgehogDamaged(Gear, CurrentHedgehog, 0, true);

   749         uStats.HedgehogDamaged(Gear, CurrentHedgehog, 0, true);

   777     if gear <> nil then

   776     if gear <> nil then

   778         begin

   777         begin

   779         AddVisualGear(hwRound(gear^.X), hwRound(gear^.Y), vgtExplosion);

   778         AddVisualGear(hwRound(gear^.X), hwRound(gear^.Y), vgtExplosion);

   780         PlaySound(sndWarp);

   779         PlaySound(sndWarp);

   781         RenderHealth(gear^.Hedgehog^);

   780         RenderHealth(gear^.Hedgehog^);

   783         ScriptCall('onGearResurrect', gear^.uid);

   781         ScriptCall('onGearResurrect', gear^.uid);

   784         gear^.State := gstWait;

   782         gear^.State := gstWait;

   785         end;

   783         end;

   786     RecountTeamHealth(tempTeam);

   784     RecountTeamHealth(tempTeam);

   787 end;

   785 end;