hedgewars/uGearsUtils.pas
changeset 12626 d972b31f8881
parent 12605 ef780eda6e48
child 12661 161c10db4f27
--- a/hedgewars/uGearsUtils.pas	Sat Sep 30 20:31:07 2017 +0200
+++ b/hedgewars/uGearsUtils.pas	Sat Sep 30 21:54:47 2017 +0200
@@ -742,7 +742,6 @@
 var tempTeam : PTeam;
     sparkles: PVisualGear;
     gX, gY: LongInt;
-    s: ansistring;
 begin
     if (Gear^.LastDamage <> nil) then
         uStats.HedgehogDamaged(Gear, Gear^.LastDamage, 0, true)
@@ -779,7 +778,6 @@
         AddVisualGear(hwRound(gear^.X), hwRound(gear^.Y), vgtExplosion);
         PlaySound(sndWarp);
         RenderHealth(gear^.Hedgehog^);
-        s:= ansistring(gear^.Hedgehog^.Name);
         ScriptCall('onGearResurrect', gear^.uid);
         gear^.State := gstWait;
         end;