hedgewars/uAI.pas
changeset 12710 1ab53b945140
parent 12709 8673892ebf24
child 12712 31f7e0a31736
equal deleted inserted replaced
12709:8673892ebf24 12710:1ab53b945140
   469             begin
   469             begin
   470             BestActions.Count:= 0;
   470             BestActions.Count:= 0;
   471 
   471 
   472             FillBonuses(false);
   472             FillBonuses(false);
   473 
   473 
       
   474             // Hog has no idea what to do. Use tardis or skip
   474             if not bonuses.activity then
   475             if not bonuses.activity then
   475                 AddAction(BestActions, aia_Skip, 0, 250, 0, 0);
   476                 if ((HHHasAmmo(Me^.Hedgehog^, amTardis) > 0)) and (random(3) < 1) then
       
   477                     // Tardis brings hog to a random place. Perfect for clueless AI
       
   478                     begin
       
   479                     AddAction(BestActions, aia_Weapon, Longword(amTardis), 80, 0, 0);
       
   480                     AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);
       
   481                     AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);
       
   482                     end
       
   483                 else
       
   484                     AddAction(BestActions, aia_Skip, 0, 250, 0, 0);
   476             end;
   485             end;
   477 
   486 
   478         end else SDL_Delay(100)
   487         end else SDL_Delay(100)
   479 else
   488 else
   480     begin
   489     begin