hedgewars/uAI.pas
changeset 111 30ca06092a64
parent 95 1ef5e2c41115
child 136 89970b70b076
equal deleted inserted replaced
110:330a2dbacd67 111:30ca06092a64
   253             WalkMe:= BackMe;
   253             WalkMe:= BackMe;
   254             Walk(@WalkMe)
   254             Walk(@WalkMe)
   255             end
   255             end
   256       end;
   256       end;
   257 
   257 
   258 Me.State:= Me.State and not gstHHThinking;
   258 Me.State:= Me.State and not gstHHThinking
   259 ThinkThread:= nil
       
   260 end;
   259 end;
   261 
   260 
   262 procedure StartThink(Me: PGear);
   261 procedure StartThink(Me: PGear);
   263 var a: TAmmoType;
   262 var a: TAmmoType;
   264 begin
   263 begin