hedgewars/uAI.pas
changeset 11608 ed70d59479d7
parent 11538 00860966354d
child 11825 bb6503b9847e
equal deleted inserted replaced
11605:dc8de75747f9 11608:ed70d59479d7
   161                             begin
   161                             begin
   162                             AddAction(BestActions, aia_Weapon, Longword(amExtraDamage), 80, 0, 0);
   162                             AddAction(BestActions, aia_Weapon, Longword(amExtraDamage), 80, 0, 0);
   163                             AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);
   163                             AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);
   164                             AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);
   164                             AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);
   165                             end;
   165                             end;
       
   166                         if HHHasAmmo(Me^.Hedgehog^, amVampiric) > 0 then
       
   167                             begin
       
   168                             AddAction(BestActions, aia_Weapon, Longword(amVampiric), 80, 0, 0);
       
   169                             AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);
       
   170                             AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);
       
   171                             end;
   166                         end;
   172                         end;
   167 
   173 
   168                     AddAction(BestActions, aia_Weapon, Longword(a), 300 + random(400), 0, 0);
   174                     AddAction(BestActions, aia_Weapon, Longword(a), 300 + random(400), 0, 0);
   169 
   175 
   170                     if (Ammoz[a].Ammo.Propz and ammoprop_NeedTarget) <> 0 then
   176                     if (Ammoz[a].Ammo.Propz and ammoprop_NeedTarget) <> 0 then