--- 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;