hedgewars/uAIActions.pas
changeset 5419 2fed5e26ff7d
parent 4976 088d40d8aba2
child 6393 701eb3f3556a
equal deleted inserted replaced
5417:c56a6be662bf 5419:2fed5e26ff7d
   156                           Time:= GameTicks;
   156                           Time:= GameTicks;
   157                           exit
   157                           exit
   158                           end
   158                           end
   159                           else if hwRound(Me^.X) < Param then
   159                           else if hwRound(Me^.X) < Param then
   160                                begin
   160                                begin
   161                                OutError('AI: WaitXL assert (' + IntToStr(hwRound(Me^.X)) + ' < ' + IntToStr(Param) + ')', false);
   161                                //OutError('AI: WaitXL assert (' + IntToStr(hwRound(Me^.X)) + ' < ' + IntToStr(Param) + ')', false);
   162                                FreeActionsList;
   162                                FreeActionsList;
   163                                exit
   163                                exit
   164                                end
   164                                end
   165                           else begin CheckHang; exit end;
   165                           else begin CheckHang; exit end;
   166            aia_WaitXR: if hwRound(Me^.X) = Param then
   166            aia_WaitXR: if hwRound(Me^.X) = Param then
   169                           Time:= GameTicks;
   169                           Time:= GameTicks;
   170                           exit
   170                           exit
   171                           end
   171                           end
   172                           else if hwRound(Me^.X) > Param then
   172                           else if hwRound(Me^.X) > Param then
   173                                begin
   173                                begin
   174                                OutError('AI: WaitXR assert (' + IntToStr(hwRound(Me^.X)) + ' > ' + IntToStr(Param) + ')', false);
   174                                //OutError('AI: WaitXR assert (' + IntToStr(hwRound(Me^.X)) + ' > ' + IntToStr(Param) + ')', false);
   175                                FreeActionsList;
   175                                FreeActionsList;
   176                                exit
   176                                exit
   177                                end
   177                                end
   178                           else begin CheckHang; exit end;
   178                           else begin CheckHang; exit end;
   179          aia_LookLeft: if not Me^.dX.isNegative then
   179          aia_LookLeft: if not Me^.dX.isNegative then