Subversion Repositories jumper

Rev

Rev 4 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. unit Constants;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. const
  9.   // Metrik
  10.   MET_FIELD_SPACE = 3;
  11.   MET_FIELD_SIZE = 37;
  12.   MET_HALFTAB_SIZE = (MET_FIELD_SIZE+MET_FIELD_SPACE) div 2; // 20
  13.   MET_PREVIEW_SIZE_RATIO = 0.30;
  14.   MET_PERCENT_PNL_TIME = 0.28;
  15.   MET_PERCENT_PNL_STONES = 0.47;
  16.   MET_OUTER_MARGIN = 8;
  17.   MET_SHAPE_MARGIN = 3;
  18.  
  19.   // Resourcennamen
  20.   RES_JUMP = 'Jump';
  21.   RES_FINISH = 'Finish';
  22.   RES_EMPTY = 'EmptyField';
  23.   RES_GREEN = 'GreenStone';
  24.   RES_YELLOW = 'YellowStone';
  25.   RES_RED = 'RedStone';
  26.  
  27.   // Registry
  28.   REG_KEY = 'Software\ViaThinkSoft\PegSolitaire\';
  29.   REG_SOUND = 'Sound';
  30.   REG_PLAYERNAME = 'LastPlayerName';
  31.   REG_REPLAY = 'Replay';
  32.  
  33.   // Levels
  34.   LVL_EXT = '.brd';
  35.   LVL_PATH = 'Boards' + PathDelim;
  36.   LVL_FILE = LVL_PATH + '%s' + LVL_EXT;
  37.  
  38.   // Journal
  39.   JNL_EXT = '.jnl';
  40.   JNL_PATH = 'Journal' + PathDelim;
  41.   JNL_FILE = JNL_PATH + '%s' + JNL_EXT;
  42.   JNL_SEP = '|';
  43.   JNL_ENTRY = '%s' + JNL_SEP + '%s' + JNL_SEP + '%d' + JNL_SEP + '%d' + JNL_SEP + '%d' + JNL_SEP + '%d';
  44.  
  45. resourcestring
  46.   LNG_SAVED = 'History successfully saved!';
  47.   LNG_STONES_REMOVED = '%d of %d stones removed';
  48.   LNG_POINTS = 'Score: %d';
  49.   LNG_TIME = 'Time: %s';
  50.   LNG_LVL_INVALID_NO_JUMP = 'Warning! The level is not playable. There are no jumps possible.';
  51.   LNG_JUMP_LOG = '%d [%d, %d] -> %d [%d, %d];';
  52.   LNG_COULD_NOT_CREATE_DIR = 'Warning: Could not create directory "%s".';
  53.   LNG_SCORE = 'Score: %d';
  54.   LNG_REMAINING = 'Remaining stones: %d (%f%%)';
  55.   LNG_TIME_SECONDS = 'Time: %d seconds';
  56.   LNG_POINTS_PER_MINUTE = '%d points per minute';
  57.   LNG_ENTER_NAME = 'Please enter your name to get added to the high score lists.';
  58.  
  59. implementation
  60.  
  61. end.
  62.