hedgewars/uAI.pas
changeset 7426 55b49cc1f33a
parent 7416 2f2f78fc65a3
child 7437 a46ce1812419
equal deleted inserted replaced
7423:ec8f690f3e0f 7426:55b49cc1f33a
   413         if not StopThinking then
   413         if not StopThinking then
   414             SDL_Delay(100)
   414             SDL_Delay(100)
   415         end
   415         end
   416     end;
   416     end;
   417 
   417 
   418 PGear(Me)^.State:= PGear(Me)^.State and not gstHHThinking;
   418 PGear(Me)^.State:= PGear(Me)^.State and (not gstHHThinking);
   419 Think:= 0;
   419 Think:= 0;
   420 InterlockedDecrement(hasThread)
   420 InterlockedDecrement(hasThread)
   421 end;
   421 end;
   422 
   422 
   423 procedure StartThink(Me: PGear);
   423 procedure StartThink(Me: PGear);