--- a/hedgewars/uTypes.pas Fri Nov 26 10:21:53 2010 -0500
+++ b/hedgewars/uTypes.pas Fri Nov 26 15:31:57 2010 -0500
@@ -235,6 +235,7 @@
Hedgehog: PHedgehog;
Text: shortstring;
Tint: Longword;
+ uid: Longword;
end;
TStatistics = record
--- 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