hedgewars/uAI.pas
changeset 542 ec26095f1bed
parent 522 ca089787f59d
child 543 465e2ec8f05f
equal deleted inserted replaced
541:bc7be7f6d3e8 542:ec26095f1bed
   276 end;
   276 end;
   277 
   277 
   278 procedure StartThink(Me: PGear);
   278 procedure StartThink(Me: PGear);
   279 var a: TAmmoType;
   279 var a: TAmmoType;
   280 begin
   280 begin
   281 if ((Me^.State and (gstAttacking or gstHHJumping or gstFalling or gstMoving)) <> 0)
   281 if ((Me^.State and (gstAttacking or gstHHJumping or gstMoving)) <> 0)
   282    or isInMultiShoot then exit;
   282    or isInMultiShoot then exit;
   283 
   283 
   284 //DeleteCI(Me); // this might break demo 
   284 //DeleteCI(Me); // this might break demo 
   285 Me^.State:= Me^.State or gstHHThinking;
   285 Me^.State:= Me^.State or gstHHThinking;
   286 Me^.Message:= 0;
   286 Me^.Message:= 0;