hedgewars/GSHandlers.inc
branchcmake_pascal
changeset 8817 0d3014097240
parent 8744 6c87486fd89b
child 9224 bce8cf41d666
--- a/hedgewars/GSHandlers.inc	Tue Mar 19 18:02:06 2013 +0100
+++ b/hedgewars/GSHandlers.inc	Tue Mar 19 18:32:03 2013 +0100
@@ -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);