--- a/hedgewars/CCHandlers.inc	Wed Sep 27 20:52:22 2006 +0000
+++ b/hedgewars/CCHandlers.inc	Thu Sep 28 16:34:42 2006 +0000
@@ -140,6 +140,7 @@
 procedure chLeft_p(var s: shortstring);
 begin
 if CheckNoTeamOrHH then exit;
+bShowFinger:= false;
 if not CurrentTeam.ExtDriven then SendIPC('L');
 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^ do
     Message:= Message or gm_Left
@@ -156,6 +157,7 @@
 procedure chRight_p(var s: shortstring);
 begin
 if CheckNoTeamOrHH then exit;
+bShowFinger:= false;
 if not CurrentTeam.ExtDriven then SendIPC('R');
 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^ do
     Message:= Message or gm_Right
@@ -172,6 +174,7 @@
 procedure chUp_p(var s: shortstring);
 begin
 if CheckNoTeamOrHH then exit;
+bShowFinger:= false;
 if not CurrentTeam.ExtDriven then SendIPC('U');
 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^ do
     Message:= Message or gm_Up
@@ -188,6 +191,7 @@
 procedure chDown_p(var s: shortstring);
 begin
 if CheckNoTeamOrHH then exit;
+bShowFinger:= false;
 if not CurrentTeam.ExtDriven then SendIPC('D');
 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^ do
     Message:= Message or gm_Down
@@ -204,6 +208,7 @@
 procedure chLJump(var s: shortstring);
 begin
 if CheckNoTeamOrHH then exit;
+bShowFinger:= false;
 if not CurrentTeam.ExtDriven then SendIPC('j');
 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^ do
     Message:= Message or gm_LJump
@@ -212,6 +217,7 @@
 procedure chHJump(var s: shortstring);
 begin
 if CheckNoTeamOrHH then exit;
+bShowFinger:= false;
 if not CurrentTeam.ExtDriven then SendIPC('J');
 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^ do
     Message:= Message or gm_HJump
@@ -220,6 +226,7 @@
 procedure chAttack_p(var s: shortstring);
 begin
 if CheckNoTeamOrHH then exit;
+bShowFinger:= false;
 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear^ do
      begin
      {$IFDEF DEBUGFILE}AddFileLog('/+attack: Gear.State = '+inttostr(State));{$ENDIF}
@@ -270,6 +277,7 @@
 procedure chTimer(var s: shortstring);
 begin
 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or (CurrentTeam = nil) then exit;
+bShowFinger:= false;
 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do
      if (Ammo[CurSlot, CurAmmo].Propz and ammoprop_Timerable) <> 0 then
         begin
@@ -285,6 +293,7 @@
     caSlot, caAmmo: PLongword;
 begin
 if (s[0] <> #1) or CheckNoTeamOrHH then exit;
+bShowFinger:= false;
 slot:= byte(s[1]) - 49;
 if slot > cMaxSlotIndex then exit;
 if not CurrentTeam.ExtDriven then SendIPC(char(byte(s[1]) + 79));
@@ -412,3 +421,10 @@
 dec(cVolumeDelta, 3)
 end;
 
+procedure chFindhh(var s: shortstring);
+begin
+if CheckNoTeamOrHH then exit;
+bShowFinger:= true;
+FollowGear:= CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog].Gear
+end;
+