Subversion Repositories jumper

Rev

Rev 8 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

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