37       aia_AwareExpl  = $8005;

    37       aia_AwareExpl  = $8005;

    38       aia_HJump      = $8006;

    38       aia_HJump      = $8006;

    39       aia_LJump      = $8007;

    39       aia_LJump      = $8007;

    40       aia_Skip       = $8008;

    40       aia_Skip       = $8008;

    41       aia_Wait       = $8009;

    41       aia_Wait       = $8009;

    42 

    43 

    43       aim_push       = $8000;

    44       aim_push       = $8000;

    44       aim_release    = $8001;

    45       aim_release    = $8001;

    45       ai_specmask    = $8000;

    46       ai_specmask    = $8000;

    46 

    47 

   174                           end else ParseCommand('-right', true);

   175                           end else ParseCommand('-right', true);

   175         aia_AwareExpl: AwareOfExplosion(X, Y, Param);

   176         aia_AwareExpl: AwareOfExplosion(X, Y, Param);

   176             aia_HJump: ParseCommand('hjump', true);

   177             aia_HJump: ParseCommand('hjump', true);

   177             aia_LJump: ParseCommand('ljump', true);

   178             aia_LJump: ParseCommand('ljump', true);

   178              aia_Skip: ParseCommand('skip', true);

   179              aia_Skip: ParseCommand('skip', true);

   179              end else

   181              end else

   180         begin

   182         begin

   181         s:= ActionIdToStr[Action];

   183         s:= ActionIdToStr[Action];

   182         if (Param and ai_specmask) <> 0 then

   184         if (Param and ai_specmask) <> 0 then

   183            case Param of

   185            case Param of