69              end;

    69              end;

    70 

    70 

    71 

    71 

    72 resourcestring

    72 resourcestring

    73       errmsgCreateSurface   = 'Error creating SDL surface';

    73       errmsgCreateSurface   = 'Error creating SDL surface';

    75       errmsgTransparentSet  = 'Error setting transparent color';

    74       errmsgTransparentSet  = 'Error setting transparent color';

    76       errmsgUnknownCommand  = 'Unknown command';

    75       errmsgUnknownCommand  = 'Unknown command';

    77       errmsgUnknownVariable = 'Unknown variable';

    76       errmsgUnknownVariable = 'Unknown variable';

    78       errmsgIncorrectUse    = 'Incorrect use';

    77       errmsgIncorrectUse    = 'Incorrect use';

    79       errmsgShouldntRun     = 'This program shouldn''t be run manually';

    78       errmsgShouldntRun     = 'This program shouldn''t be run manually';

   101 

   100 

   102       cMaxHHIndex      = 9;

   101       cMaxHHIndex      = 9;

   103       cMaxHHs          = 20;

   102       cMaxHHs          = 20;

   104       cMaxSpawnPoints  = 1024;

   103       cMaxSpawnPoints  = 1024;

   105       cHHSurfaceWidth     = 512;

   104       cHHSurfaceWidth     = 512;

   107 

   106 

   108       cMaxEdgePoints = 16384;

   107       cMaxEdgePoints = 16384;

   109 

   108 

   110       cHHRadius = 9;

   109       cHHRadius = 9;

   111 

   111 

   112       cKeyMaxIndex = 322;

   112       cKeyMaxIndex = 322;

   113 

   113 

   114       cMaxCaptions = 4;

   114       cMaxCaptions = 4;

   115 

   115 

   164       EXPLDoNotTouchHH      = $00000008;

   164       EXPLDoNotTouchHH      = $00000008;

   165 

   165 

   166       posCaseAmmo    = $00000001;

   166       posCaseAmmo    = $00000001;

   167       posCaseHealth  = $00000002;

   167       posCaseHealth  = $00000002;

   168 

   168 

   171       NoPointX = Low(Integer); // константа для TargetPoint, показывает, что цель не указана

   169       NoPointX = Low(Integer); // константа для TargetPoint, показывает, что цель не указана

   172 

   170 

   174       cHHFileName   = 'Hedgehog.png';

   171       cHHFileName   = 'Hedgehog.png';

   175       cCHFileName   = 'Crosshair.png';

   172       cCHFileName   = 'Crosshair.png';

   176       cThemeCFGFilename = 'theme.cfg';

   173       cThemeCFGFilename = 'theme.cfg';

   177 

   174 

   178       Fontz: array[THWFont] of THHFont = (

   175       Fontz: array[THWFont] of THHFont = (

   349                                            Timer: 0;

   346                                            Timer: 0;

   350                                            AmmoType: amDynamite);

   347                                            AmmoType: amDynamite);

   351                                     Slot: 3;

   348                                     Slot: 3;

   352                                     TimeAfterTurn: 5000));

   349                                     TimeAfterTurn: 5000));

   353 

   350 

   364 implementation

   351 implementation

   365 

   352 

   366 end.

   353 end.