hedgewars/GSHandlers.inc
branchwebgl
changeset 9236 ddd675825672
parent 9168 20ff80421736
parent 9224 bce8cf41d666
--- a/hedgewars/GSHandlers.inc	Mon Jun 17 22:54:17 2013 +0200
+++ b/hedgewars/GSHandlers.inc	Mon Jun 17 23:10:45 2013 +0200
@@ -132,17 +132,6 @@
     HH^.Gear:= nil
 end;
 
-procedure RestoreHog(HH: PHedgehog);
-begin
-    HH^.Gear:=HH^.GearHidden;
-    HH^.GearHidden:= nil;
-    InsertGearToList(HH^.Gear);
-    HH^.Gear^.State:= (HH^.Gear^.State and (not (gstHHDriven or gstInvisible or gstAttacking))) or gstAttacked;
-    AddGearCI(HH^.Gear);
-    HH^.Gear^.Active:= true;
-    ScriptCall('onHogRestore', HH^.Gear^.Uid)
-end;
-
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepDrowningGear(Gear: PGear);