hedgewars/uAI.pas
changeset 5148 73b3b4b8359c
parent 4976 088d40d8aba2
child 5162 60bc1af75c82
equal deleted inserted replaced
5147:a2ae7702bb75 5148:73b3b4b8359c
   206 
   206 
   207 if (Me^.State and gstAttacked) = 0 then TestAmmos(Actions, Me, false);
   207 if (Me^.State and gstAttacked) = 0 then TestAmmos(Actions, Me, false);
   208 BestRate:= RatePlace(Me);
   208 BestRate:= RatePlace(Me);
   209 BaseRate:= Max(BestRate, 0);
   209 BaseRate:= Max(BestRate, 0);
   210 
   210 
       
   211 if (Ammoz[Me^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) <> 0 then
       
   212     AddAction(Actions, aia_Weapon, Longword(amNothing), 100 + random(200), 0, 0);
       
   213 
   211 while (Stack.Count > 0) and (not StopThinking) and (GameFlags and gfArtillery = 0) do
   214 while (Stack.Count > 0) and (not StopThinking) and (GameFlags and gfArtillery = 0) do
   212     begin
   215     begin
   213     Pop(ticks, Actions, Me^);
   216     Pop(ticks, Actions, Me^);
   214 
   217 
   215     AddAction(Actions, Me^.Message, aim_push, 250, 0, 0);
   218     AddAction(Actions, Me^.Message, aim_push, 250, 0, 0);