--- a/hedgewars/uGears.pas	Tue Dec 27 10:20:55 2005 +0000
+++ b/hedgewars/uGears.pas	Wed Dec 28 22:18:11 2005 +0000
@@ -74,7 +74,7 @@
 var CurAmmoGear: PGear = nil;
 
 implementation
-uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand;
+uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO;
 var GearsList: PGear = nil;
     RopePoints: record
                 Count: Longword;
@@ -90,6 +90,7 @@
 procedure doMakeExplosion(X, Y, Radius: integer; Mask: LongWord); forward;
 function  CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: integer): PGear; forward;
 procedure SpawnBoxOfSmth; forward;
+procedure AfterAttack; forward;
 
 {$INCLUDE GSHandlers.inc}
 {$INCLUDE HHHandlers.inc}