--- a/hedgewars/uTypes.pas	Sat Jun 30 01:09:31 2012 +0400
+++ b/hedgewars/uTypes.pas	Tue Jul 03 22:44:50 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);