hedgewars-draft: comparison hedgewars/uAI.pas

equal deleted inserted replaced

-:0d1a1aeed00a
+:96d735b83d43
 procedure FreeActionsList;
 implementation
 uses uConsts, SDLh, uAIMisc, uAIAmmoTests, uAIActions,
 uAmmos, SysUtils{$IFDEF UNIX}{$IFNDEF ANDROID}, cthreads{$ENDIF}{$ENDIF}, uTypes,
-uVariables, uCommands, uUtils, uDebug;
+uVariables, uCommands, uUtils, uDebug, uConsole;
 var BestActions: TActions;
 CanUseAmmo: array [TAmmoType] of boolean;
 StopThinking: boolean;
-ThinkThread: TThreadID;
+ThinkThread: PSDL_Thread = nil;
 hasThread: LongInt;
 procedure FreeActionsList;
 begin
 AddFileLog('FreeActionsList called');
 var BotLevel: Byte;
 ap: TAttackParams;
 Score, i: LongInt;
 a, aa: TAmmoType;
 begin
+WriteToConsole('testing ammo');
 BotLevel:= Me^.Hedgehog^.BotLevel;
 for i:= 0 to Pred(Targets.Count) do
 if (Targets.ar[i].Score >= 0) and (not StopThinking) then
 begin
 with CurrentHedgehog^ do
 a:= CurAmmoType;
 aa:= a;
+WriteToConsole('start walking');
-ThreadSwitch();
+SDL_delay(0);
+//       ThreadSwitch();
+WriteToConsole('start walking');
 repeat
 if (CanUseAmmo[a]) and
 ((not isMoved) or ((AmmoTests[a].flags and amtest_OnTurn) = 0)) then
 begin
 BotLevel:= Me^.Hedgehog^.BotLevel;
 tmp:= random(2) + 1;
 Push(0, Actions, Me^, tmp);
 Push(0, Actions, Me^, tmp xor 3);
+WriteToConsole('start walking');
 if (Me^.State and gstAttacked) = 0 then maxticks:= Max(0, TurnTimeLeft - 5000 - LongWord(4000 * BotLevel))
 else maxticks:= TurnTimeLeft;
+WriteToConsole('start walking');
 if (Me^.State and gstAttacked) = 0 then TestAmmos(Actions, Me, false);
+WriteToConsole('start walking');
 BestRate:= RatePlace(Me);
 BaseRate:= Max(BestRate, 0);
+WriteToConsole('start walking');
 if (Ammoz[Me^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) <> 0 then
 AddAction(Actions, aia_Weapon, Longword(amNothing), 100 + random(200), 0, 0);
+WriteToConsole('start walking');
 while (Stack.Count > 0) and (not StopThinking) and (GameFlags and gfArtillery = 0) do
 begin
+WriteToConsole('start walking');
 Pop(ticks, Actions, Me^);
 AddAction(Actions, Me^.Message, aim_push, 250, 0, 0);
 if (Me^.Message and gmLeft) <> 0 then AddAction(Actions, aia_WaitXL, hwRound(Me^.X), 0, 0, 0)
 else AddAction(Actions, aia_WaitXR, hwRound(Me^.X), 0, 0, 0);
 {$HINTS OFF}
 CanGo:= HHGo(Me, @AltMe, GoInfo);
 {$HINTS ON}
 inc(ticks, GoInfo.Ticks);
 if ticks > maxticks then break;
+WriteToConsole('start walking');
 if (BotLevel < 5) and (GoInfo.JumpType = jmpHJump) then // hjump support
 if Push(ticks, Actions, AltMe, Me^.Message) then
 with Stack.States[Pred(Stack.Count)] do
 begin
 if not CanGo then break;
 inc(steps);
 Actions.actions[Pred(Actions.Count)].Param:= hwRound(Me^.X);
 Rate:= RatePlace(Me);
+WriteToConsole('start walking');
 if Rate > BestRate then
 begin
 BestActions:= Actions;
 BestRate:= Rate;
 Me^.State:= Me^.State or gstAttacked // we have better place, go there and do not use ammo
 end
 else if Rate < BestRate then break;
+WriteToConsole('start walking');
 if ((Me^.State and gstAttacked) = 0)
 and ((steps mod 4) = 0) then TestAmmos(Actions, Me, true);
+WriteToConsole('start walking');
 if GoInfo.FallPix >= FallPixForBranching then
 Push(ticks, Actions, Me^, Me^.Message xor 3); // aia_Left xor 3 = aia_Right
 end;
 if BestRate > BaseRate then exit
 function Think(Me: Pointer): ptrint;
 var BackMe, WalkMe: TGear;
 StartTicks: Longword;
 begin
+WriteToConsole('starting to think');
 InterlockedIncrement(hasThread);
+WriteToConsole('bla');
 StartTicks:= GameTicks;
+WriteToConsole('bla');
 BackMe:= PGear(Me)^;
+WriteToConsole('bla');
 if (PGear(Me)^.State and gstAttacked) = 0 then
 if Targets.Count > 0 then
 begin
+WriteToConsole('blaaa');
 WalkMe:= BackMe;
+WriteToConsole('blaa');
 Walk(@WalkMe);
+WriteToConsole('blaa');
 if (StartTicks > GameTicks - 1500) and not StopThinking then SDL_Delay(1000);
+	 WriteToConsole('bla');
 if BestActions.Score < -1023 then
 begin
+	 WriteToConsole('bla');
 BestActions.Count:= 0;
 AddAction(BestActions, aia_Skip, 0, 250, 0, 0);
+	 WriteToConsole('bla');
 end;
 end else
 else begin
 while (not StopThinking) and (BestActions.Count = 0) do
 begin
+WriteToConsole('bla loop');
 FillBonuses(true);
 WalkMe:= BackMe;
 Walk(@WalkMe);
 if not StopThinking then SDL_Delay(100)
 end
 end;
 PGear(Me)^.State:= PGear(Me)^.State and not gstHHThinking;
 Think:= 0;
-InterlockedDecrement(hasThread)
+WriteToConsole('bla');
+InterlockedDecrement(hasThread);
+WriteToConsole('bla end');
 end;
 procedure StartThink(Me: PGear);
 var a: TAmmoType;
 begin
 FillBonuses((Me^.State and gstAttacked) <> 0);
 for a:= Low(TAmmoType) to High(TAmmoType) do
 CanUseAmmo[a]:= Assigned(AmmoTests[a].proc) and HHHasAmmo(Me^.Hedgehog^, a);
 AddFileLog('Enter Think Thread');
-BeginThread(@Think, Me, ThinkThread)
+//BeginThread(@Think, Me, ThinkThread)
+ThinkThread := SDL_CreateThread(@Think, Me);
+AddFileLog('Thread started');
 end;
 procedure ProcessBot;
 const StartTicks: Longword = 0;
 cStopThinkTime = 40;

branch	hedgeroid
changeset 5504	96d735b83d43
parent 5495	272ed78e59a7
child 5516	8710987d3484