775         begin

   775         begin

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

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

   777         PlaySound(sndWarp);

   777         PlaySound(sndWarp);

   778         RenderHealth(gear^.Hedgehog^);

   778         RenderHealth(gear^.Hedgehog^);

   779         s:= ansistring(gear^.Hedgehog^.Name);

   779         s:= ansistring(gear^.Hedgehog^.Name);

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

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

   782         gear^.State := gstWait;

   781         gear^.State := gstWait;

   783         end;

   782         end;

   784     RecountTeamHealth(tempTeam);

   783     RecountTeamHealth(tempTeam);

   785 end;

   784 end;