diff -r dc8de75747f9 -r ed70d59479d7 hedgewars/uAI.pas
--- a/hedgewars/uAI.pas	Mon Mar 14 22:04:39 2016 +0300
+++ b/hedgewars/uAI.pas	Fri Mar 18 13:27:30 2016 -0400
@@ -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);