Subversion Repositories Kolibri OS

Rev

Rev 762 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 762 Rev 775
Line 7... Line 7...
7 
  LRLRoutines,
 7 
  LRLRoutines,
8 
  LRLSprites,
 8 
  LRLSprites,
9 
  LRLLevels,
 9 
  LRLLevels,
10 
  LRLMainMenu,
 10 
  LRLMainMenu,
11 
  LRLHighScores,
 11 
  LRLHighScores,
12 
  {LRLEditor,}
 12 
  LRLEditor,
13 
  LRLIntroduction;
 13 
  LRLIntroduction;
Line 14... Line 14...
14 
 
 14 
 
15 
const
 15 
const
Line 16... Line 16...
16 
  Version: PChar = 'Lode Runner LIVE. Version 1.4b';
 16 
  Version: PChar = 'Lode Runner LIVE. Version 1.5';
17 
 
 17 
 
18 
 
 18 
 
19 
procedure LRLInitialize;
 19 
procedure LRLInitialize;
- 
 
 20 
begin
20 
begin
 21 
  ImagesInitialize;
21 
  ImagesInitialize;
 22 
  KeyboardInitialize;
22 
  KeyboardInitialize;
 23 
  MouseInitialize;
Line 70... Line 71...
70 
begin
 71 
begin
71 
  MenuSelection := 1;
 72 
  MenuSelection := 1;
72 
  repeat
 73 
  repeat
73 
    LRLSelectItem(MenuSelection);
 74 
    LRLSelectItem(MenuSelection);
74 
    if MenuSelection = 1 then LRLGameStart;
 75 
    if MenuSelection = 1 then LRLGameStart;
75 
    {if MenuSelection = 2 then LRLEditLevels;}
 76 
    if MenuSelection = 2 then LRLEditLevels;
76 
    if MenuSelection = 3 then LRLShowHighScores;
 77 
    if MenuSelection = 3 then LRLShowHighScores;
77 
  until MenuSelection = 4;
 78 
  until MenuSelection = 4;
78 
end;
 79 
end;