diff -r f0dcdbb9b2fe -r 215b837c16f9 hedgewars/uAI.pas
--- a/hedgewars/uAI.pas	Tue Mar 15 22:29:40 2016 +0300
+++ b/hedgewars/uAI.pas	Tue Mar 29 22:09:13 2016 +0300
@@ -163,6 +163,12 @@
                             AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);
                             AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);
                             end;
+                        if HHHasAmmo(Me^.Hedgehog^, amVampiric) > 0 then
+                            begin
+                            AddAction(BestActions, aia_Weapon, Longword(amVampiric), 80, 0, 0);
+                            AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);
+                            AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);
+                            end;
                         end;
 
                     AddAction(BestActions, aia_Weapon, Longword(a), 300 + random(400), 0, 0);