116 BotLevel:= Me^.Hedgehog^.BotLevel;

   116 BotLevel:= Me^.Hedgehog^.BotLevel;

   117 

   117 

   118 for i:= 0 to Pred(Targets.Count) do

   118 for i:= 0 to Pred(Targets.Count) do

   119     if (Targets.ar[i].Score >= 0) and (not StopThinking) then

   119     if (Targets.ar[i].Score >= 0) and (not StopThinking) then

   120         begin

   120         begin

   122             a:= CurAmmoType;

   122             a:= CurAmmoType;

   123         aa:= a;

   123         aa:= a;

   124 {$IFDEF USE_SDLTHREADS}

   124 {$IFDEF USE_SDLTHREADS}

   125         SDL_delay(0);    //ThreadSwitch was only a hint

   125         SDL_delay(0);    //ThreadSwitch was only a hint

   126 {$ELSE}

   126 {$ELSE}

   332             // find another hog in team

   332             // find another hog in team

   333             repeat

   333             repeat

   334                 itHedgehog:= Succ(itHedgehog) mod CurrentTeam^.HedgehogsNumber;

   334                 itHedgehog:= Succ(itHedgehog) mod CurrentTeam^.HedgehogsNumber;

   335             until (itHedgehog = currHedgehogIndex) or (CurrentTeam^.Hedgehogs[itHedgehog].Gear <> nil);

   335             until (itHedgehog = currHedgehogIndex) or (CurrentTeam^.Hedgehogs[itHedgehog].Gear <> nil);

   336 

   336 

   337             inc(switchesNum);

   338             inc(switchesNum);

   338         until (not (switchImmediatelyAvailable or switchAvailable))

   339         until (not (switchImmediatelyAvailable or switchAvailable))

   339             or StopThinking 

   340             or StopThinking 

   340             or (itHedgehog = currHedgehogIndex)

   341             or (itHedgehog = currHedgehogIndex)

   341             or BestActions.isWalkingToABetterPlace;

   342             or BestActions.isWalkingToABetterPlace;