--- a/hedgewars/uTypes.pas	Tue Jun 26 23:29:41 2012 +0400
+++ b/hedgewars/uTypes.pas	Fri Jul 06 12:50:18 2012 +0400
@@ -260,6 +260,10 @@
             LastDamage: PHedgehog;
             end;
     TPGearArray = array of PGear;
+    PGearArrayS = record
+        size: LongWord;
+        ar: ^TPGearArray;
+        end;
 
     PVisualGear = ^TVisualGear;
     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);