hedgewars/uAIActions.pas
changeset 740 5ac69a012b69
parent 676 2aa3082937ac
child 742 29609363c36c
equal deleted inserted replaced
739:b6849ece8fee 740:5ac69a012b69
   125        PrevX:= hwRound(Me^.X);
   125        PrevX:= hwRound(Me^.X);
   126        timedelta:= 0
   126        timedelta:= 0
   127        end else
   127        end else
   128        begin
   128        begin
   129        inc(timedelta);
   129        inc(timedelta);
   130        if timedelta > 2000 then
   130        if timedelta > 1700 then
   131           begin
   131           begin
   132           timedelta:= 0;
   132           timedelta:= 0;
   133           FreeActionsList
   133           FreeActionsList
   134           end
   134           end
   135        end
   135        end