hedgewars/uTriggers.pas
changeset 2716 b9ca1bfca24f
parent 2699 249adefa9c1c
child 2948 3f21a9dc93d0
--- 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.