hedgewars/uAI.pas
changeset 250 d7f744a9bf28
parent 196 993cf173218b
child 295 8834f3cb620e
equal deleted inserted replaced
249:ff85fa029541 250:d7f744a9bf28
   131           if Push(ticks, Actions, AltMe, Me^.Message) then
   131           if Push(ticks, Actions, AltMe, Me^.Message) then
   132              with ThinkStack.States[Pred(ThinkStack.Count)] do
   132              with ThinkStack.States[Pred(ThinkStack.Count)] do
   133                   begin
   133                   begin
   134                   AddAction(MadeActions, aia_HJump, 0, 305);
   134                   AddAction(MadeActions, aia_HJump, 0, 305);
   135                   AddAction(MadeActions, aia_HJump, 0, 350);
   135                   AddAction(MadeActions, aia_HJump, 0, 350);
       
   136                   if (Me.dX < 0) then AddAction(MadeActions, aia_WaitXL, round(AltMe.X), 0)
       
   137                                  else AddAction(MadeActions, aia_WaitXR, round(AltMe.X), 0);
   136                   end;
   138                   end;
   137        if (BotLevel < 3) and (GoInfo.JumpType = jmpLJump) then // ljump support
   139        if (BotLevel < 3) and (GoInfo.JumpType = jmpLJump) then // ljump support
   138           if Push(ticks, Actions, AltMe, Me^.Message) then
   140           if Push(ticks, Actions, AltMe, Me^.Message) then
   139              with ThinkStack.States[Pred(ThinkStack.Count)] do
   141              with ThinkStack.States[Pred(ThinkStack.Count)] do
       
   142                   begin
   140                   AddAction(MadeActions, aia_LJump, 0, 305);
   143                   AddAction(MadeActions, aia_LJump, 0, 305);
       
   144                   if (Me.dX < 0) then AddAction(MadeActions, aia_WaitXL, round(AltMe.X), 0)
       
   145                                  else AddAction(MadeActions, aia_WaitXR, round(AltMe.X), 0);
       
   146                   end;
   141 
   147 
   142        if not CanGo then break;
   148        if not CanGo then break;
   143        inc(steps);
   149        inc(steps);
   144        Actions.actions[Actions.Count - 2].Param:= round(Me.X);
   150        Actions.actions[Actions.Count - 2].Param:= round(Me.X);
   145        Rate:= RatePlace(Me);
   151        Rate:= RatePlace(Me);