--- a/hedgewars/uGears.pas	Sun Apr 12 06:01:17 2009 +0000
+++ b/hedgewars/uGears.pas	Sun Apr 12 12:50:43 2009 +0000
@@ -106,6 +106,8 @@
 procedure HedgehogChAngle(Gear: PGear); forward;
 procedure ShotgunShot(Gear: PGear); forward;
 procedure PickUp(HH, Gear: PGear); forward;
+procedure HHSetWeapon(Gear: PGear); forward;
+
 
 {$INCLUDE GSHandlers.inc}
 {$INCLUDE HHHandlers.inc}