25 

    25 

    26 {$INCLUDE "config.inc"}

    26 {$INCLUDE "config.inc"}

    27 

    27 

    28 const

    28 const

    29     sfMax = 1000;

    29     sfMax = 1000;

    32 

    30 

    33     // message constants

    31     // message constants

    34     errmsgCreateSurface   = 'Error creating SDL surface';

    32     errmsgCreateSurface   = 'Error creating SDL surface';

    35     errmsgTransparentSet  = 'Error setting transparent color';

    33     errmsgTransparentSet  = 'Error setting transparent color';

    36     errmsgUnknownCommand  = 'Unknown command';

    34     errmsgUnknownCommand  = 'Unknown command';