Rev 4 | Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | daniel-mar | 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. |