--- a/hedgewars/uTypes.pas	Tue Jul 10 11:08:35 2012 +0200
+++ b/hedgewars/uTypes.pas	Tue Jul 10 11:09:38 2012 +0200
@@ -289,6 +289,10 @@
             LastDamage: PHedgehog;
             end;
     TPGearArray = array of PGear;
+    PGearArrayS = record
+        size: LongWord;
+        ar: ^TPGearArray;
+        end;
 
     PVisualGear = ^TVisualGear;
     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);