--- a/hedgewars/uTriggers.pas Tue Jan 26 04:13:37 2010 +0000
+++ b/hedgewars/uTriggers.pas Tue Jan 26 21:55:51 2010 +0000
@@ -26,6 +26,7 @@
type TTrigAction = (taSpawnGear, taSuccessFinish, taFailFinish);
procedure init_uTriggers;
+procedure free_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);
@@ -149,4 +150,9 @@
TriggerList:= nil;
end;
+procedure free_uTriggers;
+begin
+
+end;
+
end.