hedgewars/GSHandlers.inc
changeset 9224 bce8cf41d666
parent 9145 6b51a32e48ed
parent 8817 0d3014097240
child 9236 ddd675825672
child 9251 6c238c897213
--- a/hedgewars/GSHandlers.inc	Thu Jun 13 22:04:22 2013 +0200
+++ b/hedgewars/GSHandlers.inc	Thu Jun 13 22:27:23 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);