--- a/hedgewars/uConsole.pas	Tue Dec 27 10:20:55 2005 +0000
+++ b/hedgewars/uConsole.pas	Wed Dec 28 22:18:11 2005 +0000
@@ -44,7 +44,6 @@
 procedure WriteLnToConsole(s: shortstring);
 procedure KeyPressConsole(Key: Longword);
 procedure ParseCommand(CmdStr: shortstring);
-procedure AfterAttack; // экспортируется только для вызова из CurrAmmoGear
 
 implementation
 {$J+}
@@ -235,23 +234,6 @@
 
 {$INCLUDE CCHandlers.inc}
 
-procedure AfterAttack;
-begin
-with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^,
-     CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do
-     begin
-        Inc(AttacksNum);
-        State:= State and not gstAttacking;
-        if Ammo[CurSlot, CurAmmo].NumPerTurn >= AttacksNum then isInMultiShoot:= true
-           else begin
-           TurnTimeLeft:= Ammoz[Ammo[CurSlot, CurAmmo].AmmoType].TimeAfterTurn;
-           State:= State or gstAttacked;
-           OnUsedAmmo(Ammo)
-           end;
-     AttackBar:= 0
-     end
-end;
-
 initialization
 InitConsole;
 RegisterVariable('quit'    , vtCommand, @chQuit         );