116 FreeActionsList;

   116 FreeActionsList;

   117 TargetPoint.X:= NoPointX;

   117 TargetPoint.X:= NoPointX;

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

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

   119 tteam:= CurrentTeam;

   119 tteam:= CurrentTeam;

   120 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do

   120 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do

   122 

   126 

   123 repeat

   127 repeat

   124   CurrentTeam:= CurrentTeam.Next;

   128   CurrentTeam:= CurrentTeam.Next;

   125   if CurrentTeam = nil then CurrentTeam:= TeamsList;

   129   if CurrentTeam = nil then CurrentTeam:= TeamsList;

   126   th:= CurrentTeam.CurrHedgehog;

   130   th:= CurrentTeam.CurrHedgehog;

   134 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do

   138 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do

   135      begin

   139      begin

   136      AttacksNum:= 0;

   140      AttacksNum:= 0;

   137      with Gear^ do

   141      with Gear^ do

   138           begin

   142           begin

   139           State:= gstHHDriven;

   144           State:= gstHHDriven;

   140           Active:= true

   145           Active:= true

   141           end;

   146           end;

   142      FollowGear:= Gear

   149      FollowGear:= Gear

   143      end;

   150      end;

   144 ResetKbd;

   151 ResetKbd;

   145 cWindSpeed:= (GetRandom * 2 - 1) * cMaxWindSpeed;

   152 cWindSpeed:= (GetRandom * 2 - 1) * cMaxWindSpeed;

   146 AddGear(0, 0, gtATSmoothWindCh, 0, 0, 0, 1).Tag:= round(72 * cWindSpeed / cMaxWindSpeed);

   153 AddGear(0, 0, gtATSmoothWindCh, 0, 0, 0, 1).Tag:= round(72 * cWindSpeed / cMaxWindSpeed);