138 begin

   138 begin

   139 FreeActionsList;

   139 FreeActionsList;

   140 TargetPoint.X:= NoPointX;

   140 TargetPoint.X:= NoPointX;

   141 TryDo(CurrentTeam <> nil, 'nil Team', true);

   141 TryDo(CurrentTeam <> nil, 'nil Team', true);

   142 

   142 

   144      if Gear <> nil then

   144      if Gear <> nil then

   145         begin

   145         begin

   146         AttacksNum:= 0;

   146         AttacksNum:= 0;

   147         Gear^.Message:= 0;

   147         Gear^.Message:= 0;

   148         Gear^.Z:= cHHZ;

   148         Gear^.Z:= cHHZ;

   150         RemoveGearFromList(Gear);

   150         RemoveGearFromList(Gear);

   151         InsertGearToList(Gear)

   151         InsertGearToList(Gear)

   152         end;

   152         end;

   153 

   153 

   154 c:= CurrentTeam^.Clan^.ClanIndex;

   154 c:= CurrentTeam^.Clan^.ClanIndex;

   168       end

   168       end

   169     until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) or (PrevTeam = CurrTeam);

   169     until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) or (PrevTeam = CurrTeam);

   170 until CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil;

   170 until CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil;

   171 

   171 

   172 CurrentHedgehog:= @(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]);

   172 CurrentHedgehog:= @(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]);

   173 with CurrentHedgehog^ do

   174 with CurrentHedgehog^ do

   174      begin

   175      begin

   175      with Gear^ do

   176      with Gear^ do

   176           begin

   177           begin

   177           Z:= cCurrHHZ;

   178           Z:= cCurrHHZ;