hedgewars/uAI.pas
changeset 5163 1620a02d5282
parent 5162 60bc1af75c82
child 5286 22c1f4833a86
child 5388 73ef8e437231
--- a/hedgewars/uAI.pas	Tue Apr 19 12:35:43 2011 +0400
+++ b/hedgewars/uAI.pas	Tue Apr 19 14:20:52 2011 +0400
@@ -86,6 +86,7 @@
               begin
               BestActions:= Actions;
               inc(BestActions.Score, Score);
+         addfilelog('AI: curr score ' + inttostr(bestactions.score));
 
               if (ap.Angle > 0) then AddAction(BestActions, aia_LookRight, 0, 200, 0, 0)
               else if (ap.Angle < 0) then AddAction(BestActions, aia_LookLeft, 0, 200, 0, 0);
@@ -282,6 +283,7 @@
       if (StartTicks > GameTicks - 1500) and not StopThinking then SDL_Delay(2000);
       if BestActions.Score < -1023 then
          begin
+         addfilelog('AI: best score ' + inttostr(bestactions.score));
          BestActions.Count:= 0;
          AddAction(BestActions, aia_Skip, 0, 250, 0, 0);
          end;
@@ -312,7 +314,7 @@
 
 BestActions.Count:= 0;
 BestActions.Pos:= 0;
-BestActions.Score:= Low(integer);
+BestActions.Score:= Low(LongInt);
 
 StopThinking:= false;
 ThinkingHH:= Me;