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';

    42     msgLoading           = 'Loading ';

    40     msgLoading           = 'Loading ';

    43     msgOK                = 'ok';

    41     msgOK                = 'ok';

    44     msgFailed            = 'failed';

    42     msgFailed            = 'failed';

    45     msgFailedSize        = 'failed due to size';

    43     msgFailedSize        = 'failed due to size';

    46     msgGettingConfig     = 'Getting game config...';

    44     msgGettingConfig     = 'Getting game config...';

    47 

    48 

    48     // color constants

    49     // color constants

    49     cWhiteColorChannels : TSDL_Color = (r:$FF; g:$FF; b:$FF; unused:$FF);

    50     cWhiteColorChannels : TSDL_Color = (r:$FF; g:$FF; b:$FF; unused:$FF);

    50     cNearBlackColorChannels : TSDL_Color = (r:$00; g:$00; b:$10; unused:$FF);

    51     cNearBlackColorChannels : TSDL_Color = (r:$00; g:$00; b:$10; unused:$FF);

    51 

    52