hedgewars/uAIActions.pas
changeset 143 3dacbd83209b
parent 80 3c3dc6a148ca
child 144 e6084b0c9316
equal deleted inserted replaced
142:1ff0b02fe367 143:3dacbd83209b
    50       aia_LookLeft   = $80000003;
    50       aia_LookLeft   = $80000003;
    51       aia_LookRight  = $80000004;
    51       aia_LookRight  = $80000004;
    52       aia_AwareExpl  = $80000005;
    52       aia_AwareExpl  = $80000005;
    53       aia_HJump      = $80000006;
    53       aia_HJump      = $80000006;
    54       aia_LJump      = $80000007;
    54       aia_LJump      = $80000007;
       
    55       aia_Skip       = $80000008;
    55 
    56 
    56       aim_push       = $80000000;
    57       aim_push       = $80000000;
    57       aim_release    = $80000001;
    58       aim_release    = $80000001;
    58       ai_specmask    = $80000000;
    59       ai_specmask    = $80000000;
    59 
    60 
   159                           exit
   160                           exit
   160                           end else ParseCommand('-right');
   161                           end else ParseCommand('-right');
   161         aia_AwareExpl: AwareOfExplosion(X, Y, Param);
   162         aia_AwareExpl: AwareOfExplosion(X, Y, Param);
   162             aia_HJump: ParseCommand('hjump');
   163             aia_HJump: ParseCommand('hjump');
   163             aia_LJump: ParseCommand('ljump');
   164             aia_LJump: ParseCommand('ljump');
       
   165              aia_Skip: ParseCommand('skip');
   164              end else
   166              end else
   165         begin
   167         begin
   166         s:= ActionIdToStr[Action];
   168         s:= ActionIdToStr[Action];
   167         if (Param and ai_specmask) <> 0 then
   169         if (Param and ai_specmask) <> 0 then
   168            case Param of
   170            case Param of