hedgewars/uAIActions.pas
changeset 15395 56f2c70723c8
parent 14512 184df3900ec4
child 15396 7a3d70c364fd
equal deleted inserted replaced
15394:7718bdf60d45 15395:56f2c70723c8
   204                     else
   204                     else
   205                         begin
   205                         begin
   206                         CheckHang(Me);
   206                         CheckHang(Me);
   207                         exit
   207                         exit
   208                         end;
   208                         end;
   209             aia_LookLeft:
   209             aia_LookLeft: begin
       
   210                 if (Me^.State and gstMoving) <> 0 then
       
   211                     exit;
       
   212             
   210                 if not Me^.dX.isNegative then
   213                 if not Me^.dX.isNegative then
   211                     begin
   214                 begin
   212                     ParseCommand('+left', true);
   215                     if (Me^.Message and gmLeft) = 0 then
       
   216                         ParseCommand('+left', true);
   213                     exit
   217                     exit
   214                     end
   218                     end
   215                 else
   219                 else
   216                     ParseCommand('-left', true);
   220                     ParseCommand('-left', true);
   217             aia_LookRight:
   221             end;
       
   222             aia_LookRight: begin
       
   223                 if (Me^.State and gstMoving) <> 0 then
       
   224                     exit;
       
   225             
   218                 if Me^.dX.isNegative then
   226                 if Me^.dX.isNegative then
   219                     begin
   227                 begin
   220                     ParseCommand('+right', true);
   228                     if (Me^.Message and gmRight) = 0 then
       
   229                         ParseCommand('+right', true);
   221                     exit
   230                     exit
   222                     end
   231                     end
   223                 else ParseCommand('-right', true);
   232                 else ParseCommand('-right', true);
       
   233             end;
   224             aia_AwareExpl:
   234             aia_AwareExpl:
   225                 AwareOfExplosion(X, Y, Param);
   235                 AwareOfExplosion(X, Y, Param);
   226 
   236 
   227             aia_HJump:
   237             aia_HJump:
   228                 ParseCommand('hjump', true);
   238                 ParseCommand('hjump', true);