--- a/hedgewars/uVisualGears.pas	Fri Nov 26 10:21:53 2010 -0500
+++ b/hedgewars/uVisualGears.pas	Fri Nov 26 15:31:57 2010 -0500
@@ -97,6 +97,7 @@
         );
 
 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;
+const VGCounter: Longword = 0;
 var gear: PVisualGear;
     t: Longword;
     sp: real;
@@ -124,6 +125,7 @@
       exit
     end;
 
+inc(VGCounter);
 New(gear);
 FillChar(gear^, sizeof(TVisualGear), 0);
 gear^.X:= real(X);
@@ -132,6 +134,7 @@
 gear^.doStep:= doStepHandlers[Kind];
 gear^.State:= 0;
 gear^.Tint:= $FFFFFFFF;
+gear^.uid:= VGCounter;
 
 with gear^ do
     case Kind of