hedgewars: comparison hedgewars/uAI.pas

equal deleted inserted replaced

-:7ee319134713
+:bc7b1d228a2c
 procedure FreeActionsList;
 implementation
 uses uConsts, SDLh, uAIMisc, uAIAmmoTests, uAIActions,
 uAmmos, SysUtils{$IFNDEF USE_SDLTHREADS} {$IFDEF UNIX}, cthreads{$ENDIF} {$ENDIF}, uTypes,
-uVariables, uCommands, uUtils, uDebug;
+uVariables, uCommands, uUtils, uDebug, uAILandMarks;
 var BestActions: TActions;
 CanUseAmmo: array [TAmmoType] of boolean;
 StopThinking: boolean;
 {$IFDEF USE_SDLTHREADS}
 if (Ammoz[a].Ammo.Propz and ammoprop_OscAim) <> 0 then
 begin
 AddAction(BestActions, aia_attack, aim_push, 350 + random(200), 0, 0);
 AddAction(BestActions, aia_attack, aim_release, 1, 0, 0);
-AddAction(BestActions, aia_Down, aim_push, 100 + random(150), 0, 0);
+if abs(ap.Angle) > 32 then
-AddAction(BestActions, aia_Down, aim_release, 32, 0, 0);
+begin
+AddAction(BestActions, aia_Down, aim_push, 100 + random(150), 0, 0);
+AddAction(BestActions, aia_Down, aim_release, 32, 0, 0);
+end;
 AddAction(BestActions, aia_waitAngle, ap.Angle, 250, 0, 0);
 AddAction(BestActions, aia_attack, aim_push, 1, 0, 0);
 AddAction(BestActions, aia_attack, aim_release, 1, 0, 0);
 end else
 if (Ammoz[a].Ammo.Propz and ammoprop_AttackingPut) = 0 then
 begin
 AddAction(BestActions, aia_attack, aim_push, 650 + random(300), 0, 0);
 AddAction(BestActions, aia_attack, aim_release, ap.Power, 0, 0);
 end;
+if (Ammoz[a].Ammo.Propz and ammoprop_Track) <> 0 then
+begin
+AddAction(BestActions, aia_waitAmmoXY, 0, 12, ap.ExplX, ap.ExplY);
+AddAction(BestActions, aia_attack, aim_push, 1, 0, 0);
+AddAction(BestActions, aia_attack, aim_release, 7, 0, 0);
+end;
 if ap.ExplR > 0 then
 AddAction(BestActions, aia_AwareExpl, ap.ExplR, 10, ap.ExplX, ap.ExplY);
 end
 end;
 if a = High(TAmmoType) then
 or StopThinking
 end
 end;
 procedure Walk(Me: PGear; var Actions: TActions);
-const FallPixForBranching = cHHRadius * 2 + 8;
+const FallPixForBranching = cHHRadius;
 var
 ticks, maxticks, steps, tmp: Longword;
 BaseRate, BestRate, Rate: integer;
 GoInfo: TGoInfo;
 CanGo: boolean;
 inc(ticks, GoInfo.Ticks);
 if ticks > maxticks then
 break;
 if (BotLevel < 5) and (GoInfo.JumpType = jmpHJump) then // hjump support
-if Push(ticks, Actions, AltMe, Me^.Message) then
+// check if we could go backwards and maybe ljump over a gap after this hjump
+if Push(ticks, Actions, AltMe, Me^.Message xor 3) then
+begin
 with Stack.States[Pred(Stack.Count)] do
 begin
 if Me^.dX.isNegative then
 AddAction(MadeActions, aia_LookRight, 0, 200, 0, 0)
 else
 if Me^.dX.isNegative then
 AddAction(MadeActions, aia_LookLeft, 0, 200, 0, 0)
 else
 AddAction(MadeActions, aia_LookRight, 0, 200, 0, 0);
 end;
+// but first check walking forward
+Push(ticks, Stack.States[Pred(Stack.Count)].MadeActions, AltMe, Me^.Message)
+end;
 if (BotLevel < 3) and (GoInfo.JumpType = jmpLJump) then // ljump support
 begin
-// push current position so we proceed from it after checking jump opportunities
+// at final check where we go after jump walking backward
+if Push(ticks, Actions, AltMe, Me^.Message xor 3) then
+with Stack.States[Pred(Stack.Count)] do
+AddAction(MadeActions, aia_LJump, 0, 305 + random(50), 0, 0);
+// push current position so we proceed from it after checking jump+forward walk opportunities
 if CanGo then Push(ticks, Actions, Me^, Me^.Message);
-// first check where we go after jump
+// first check where we go after jump walking forward
 if Push(ticks, Actions, AltMe, Me^.Message) then
 with Stack.States[Pred(Stack.Count)] do
 AddAction(MadeActions, aia_LJump, 0, 305 + random(50), 0, 0);
 break
 end;
 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;
 if ((Me^.State and gstAttacked) = 0) and ((steps mod 4) = 0) then
+begin
+if (steps > 4) and checkMark(hwRound(Me^.X), hwRound(Me^.Y), markWasHere) then
+break;
+addMark(hwRound(Me^.X), hwRound(Me^.Y), markWasHere);
 TestAmmos(Actions, Me, true);
+end;
 if GoInfo.FallPix >= FallPixForBranching then
 Push(ticks, Actions, Me^, Me^.Message xor 3); // aia_Left xor 3 = aia_Right
 end {while};
 if BestRate > BaseRate then
 if not StopThinking then
 SDL_Delay(100)
 end
 end;
-PGear(Me)^.State:= PGear(Me)^.State and not gstHHThinking;
+PGear(Me)^.State:= PGear(Me)^.State and (not gstHHThinking);
 Think:= 0;
 InterlockedDecrement(hasThread)
 end;
 procedure StartThink(Me: PGear);
 begin
 if ((Me^.State and (gstAttacking or gstHHJumping or gstMoving)) <> 0)
 or isInMultiShoot then
 exit;
-//DeleteCI(Me); // this might break demo
+//DeleteCI(Me); // this will break demo/netplay
+clearAllMarks;
 Me^.State:= Me^.State or gstHHThinking;
 Me^.Message:= 0;
 BestActions.Count:= 0;
 BestActions.Pos:= 0;
 StartThink(Gear);
 StartTicks:= GameTicks
 end else
 begin
-(*
+{if not scoreShown then
-if not scoreShown then
 begin
 if BestActions.Score > 0 then ParseCommand('/say Expected score = ' + inttostr(BestActions.Score div 1024), true);
 scoreShown:= true
-end;*)
+end;}
 ProcessAction(BestActions, Gear)
 end
 else if ((GameTicks - StartTicks) > cMaxAIThinkTime)
 or (TurnTimeLeft <= cStopThinkTime) then
 StopThinking:= true

changeset 7628	bc7b1d228a2c
parent 7453	92bdcd69bf2a
child 7787	67c96b9c179c