hedgewars/uAIActions.pas
changeset 676 2aa3082937ac
parent 544 9e068d2398ca
child 740 5ac69a012b69
equal deleted inserted replaced
675:28e294a496cb 676:2aa3082937ac
   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 > 2500 then
   130        if timedelta > 2000 then
   131           begin
   131           begin
   132           timedelta:= 0;
   132           timedelta:= 0;
   133           Actions.Count:= 0
   133           FreeActionsList
   134           end
   134           end
   135        end
   135        end
   136     end;
   136     end;
   137 
   137 
   138 begin
   138 begin