# HG changeset patch
# User smxx
# Date 1265810011 0
# Node ID a3efbf1c4500b7d81d78005fa88128eb55aa8760
# Parent  ac4b69e5f9f7f9b973366f8f22814444ad90eb92
Engine:
* Submit gear UID to script functions instead of gear pointer on gear add/delete

diff -r ac4b69e5f9f7 -r a3efbf1c4500 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Wed Feb 10 10:03:13 2010 +0000
+++ b/hedgewars/uGears.pas	Wed Feb 10 13:53:31 2010 +0000
@@ -425,7 +425,7 @@
 InsertGearToList(gear);
 AddGear:= gear;
 
-ScriptCall('onGearAdd', LongInt(gear));
+ScriptCall('onGearAdd', gear^.uid);
 end;
 
 procedure DeleteGear(Gear: PGear);
@@ -434,7 +434,7 @@
     k: boolean;
 begin
 
-ScriptCall('onGearDelete', LongInt(gear));
+ScriptCall('onGearDelete', gear^.uid);
 
 DeleteCI(Gear);