1 /* ScummVM - Graphic Adventure Engine
2 *
3 * ScummVM is the legal property of its developers, whose names
4 * are too numerous to list here. Please refer to the COPYRIGHT
5 * file distributed with this source distribution.
6 *
7 * This program is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU General Public License
9 * as published by the Free Software Foundation; either version 2
10 * of the License, or (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
20 *
21 */
22
23 #include "common/system.h"
24
25 #include "sludge/event.h"
26 #include "sludge/function.h"
27 #include "sludge/graphics.h"
28 #include "sludge/people.h"
29 #include "sludge/saveload.h"
30 #include "sludge/sound.h"
31 #include "sludge/sludge.h"
32 #include "sludge/sludger.h"
33 #include "sludge/timing.h"
34
35 namespace Sludge {
36
37 extern VariableStack *noStack;
38
main_loop(Common::String filename)39 int main_loop(Common::String filename) {
40
41 if (!initSludge(filename)) {
42 return 0;
43 }
44
45 g_sludge->_gfxMan->initGfx();
46
47 startNewFunctionNum(0, 0, NULL, noStack);
48
49 g_sludge->_evtMan->startGame();
50 g_sludge->_timer->init();
51
52 while (!g_sludge->_evtMan->quit()) {
53 g_sludge->_evtMan->checkInput();
54 g_sludge->_peopleMan->walkAllPeople();
55 if (g_sludge->_evtMan->handleInput()) {
56 runAllFunctions();
57 handleSaveLoad();
58 }
59 sludgeDisplay();
60 g_sludge->_soundMan->handleSoundLists();
61 g_sludge->_timer->waitFrame();
62 }
63
64 killSludge();
65
66 // Load next game
67 if (!g_sludge->launchNext.empty()) {
68 Common::String name = g_sludge->launchNext;
69 g_sludge->launchNext.clear();
70 main_loop(name);
71 }
72
73 return (0);
74 }
75
76 }
77 // End of namespace Sludge
78