25 

    25 

    26 {$INCLUDE "config.inc"}

    26 {$INCLUDE "config.inc"}

    27 

    27 

    28 const

    28 const

    29     sfMax = 1000;

    29     sfMax = 1000;

    31     cDefaultParamNum = 17;

    30     cDefaultParamNum = 17;

    34     cVideorecParamNum = cDefaultParamNum + 7;

    31     cVideorecParamNum = cDefaultParamNum + 7;

    36 

    32 

    37     // message constants

    33     // message constants

    38     errmsgCreateSurface   = 'Error creating SDL surface';

    34     errmsgCreateSurface   = 'Error creating SDL surface';

    39     errmsgTransparentSet  = 'Error setting transparent color';

    35     errmsgTransparentSet  = 'Error setting transparent color';

    40     errmsgUnknownCommand  = 'Unknown command';

    36     errmsgUnknownCommand  = 'Unknown command';