--- a/hedgewars/uAIActions.pas	Sun Dec 16 19:16:22 2007 +0000
+++ b/hedgewars/uAIActions.pas	Sun Dec 16 19:34:13 2007 +0000
@@ -127,10 +127,10 @@
        end else
        begin
        inc(timedelta);
-       if timedelta > 2500 then
+       if timedelta > 2000 then
           begin
           timedelta:= 0;
-          Actions.Count:= 0
+          FreeActionsList
           end
        end
     end;