0,0 → 1,86 |
program LodeRunnerLive; |
|
{$apptype gui} |
|
|
uses |
LRLRoutines, |
LRLSprites, |
LRLLevels, |
LRLMainMenu, |
LRLHighScores, |
{LRLEditor,} |
LRLIntroduction; |
|
const |
Version: PChar = 'Lode Runner LIVE. Version 1.4b'; |
|
|
procedure LRLInitialize; |
begin |
ImagesInitialize; |
KeyboardInitialize; |
ScreenMode(1); |
ScreenTitle := Version; |
end; |
|
|
procedure LRLDeinitialize; |
begin |
ImagesDeinitialize; |
end; |
|
|
procedure LRLGameStart; |
var |
cl: Integer; |
begin |
Palette256Set(LRLPalette^); |
|
ShowLives := True; |
ShowScore := True; |
ShowLevel := True; |
LRLLives := 5; |
LRLScore := 0; |
|
cl := 1; |
repeat |
LRLPlayLevel(cl); |
KeyboardFlush; |
|
if GameResult = 10 then |
begin |
Inc(LRLLives); |
LRLScore := LRLScore + 10000 * Longint(cl); |
Inc(cl); |
end else |
Dec(LRLLives); |
until (LRLLives = 0) or (GameResult = 100); |
|
if (GameResult <> 100) and LRLBestScore(LRLScore) then |
begin |
LRLInsertScore(LRLEnterName, LRLScore); |
LRLShowHighScores; |
end; |
end; |
|
procedure LRLShell; |
var |
MenuSelection: word; |
begin |
MenuSelection := 1; |
repeat |
LRLSelectItem(MenuSelection); |
if MenuSelection = 1 then LRLGameStart; |
{if MenuSelection = 2 then LRLEditLevels;} |
if MenuSelection = 3 then LRLShowHighScores; |
until MenuSelection = 4; |
end; |
|
|
begin |
LRLInitialize; |
LRLIntro; |
LRLShell; |
LRLDeinitialize; |
end. |