--- a/hedgewars/uTriggers.pas	Sat Jan 16 17:30:37 2010 +0000
+++ b/hedgewars/uTriggers.pas	Mon Jan 18 05:36:08 2010 +0000
@@ -25,6 +25,7 @@
 
 type TTrigAction = (taSpawnGear, taSuccessFinish, taFailFinish);
 
+procedure init_uTriggers;
 procedure AddTriggerSpawner(id, Ticks, Lives: Longword; GearType: TGearType; X, Y: LongInt; GearTriggerId: Longword);
 procedure AddTriggerSuccess(id, Ticks, Lives: Longword);
 procedure AddTriggerFail(id, Ticks, Lives: Longword);
@@ -44,7 +45,7 @@
                 SpawnGearTriggerId: Longword;
                 Next: PTrigger;
                 end;
-var TriggerList: PTrigger = nil;
+var TriggerList: PTrigger;
 
 function AddTrigger(id, Ticks, Lives: Longword): PTrigger;
 var tmp: PTrigger;
@@ -143,4 +144,9 @@
   end
 end;
 
+procedure init_uTriggers;
+begin
+	TriggerList:= nil;
+end;
+
 end.