Fixed level data not being freed by conf state. This allowed OpenGL state to leak...
[neverball] / ball / main.c
1 /*
2  * Copyright (C) 2003 Robert Kooima
3  *
4  * NEVERBALL is  free software; you can redistribute  it and/or modify
5  * it under the  terms of the GNU General  Public License as published
6  * by the Free  Software Foundation; either version 2  of the License,
7  * or (at your option) any later version.
8  *
9  * This program is distributed in the hope that it will be useful, but
10  * WITHOUT  ANY  WARRANTY;  without   even  the  implied  warranty  of
11  * MERCHANTABILITY or  FITNESS FOR A PARTICULAR PURPOSE.   See the GNU
12  * General Public License for more details.
13  */
14
15 /*---------------------------------------------------------------------------*/
16
17 #include <SDL.h>
18 #include <stdio.h>
19 #include <string.h>
20 #include <errno.h>
21
22 #include "glext.h"
23 #include "config.h"
24 #include "image.h"
25 #include "audio.h"
26 #include "demo.h"
27 #include "levels.h"
28 #include "game.h"
29 #include "gui.h"
30 #include "set.h"
31 #include "text.h"
32
33 #include "st_conf.h"
34 #include "st_title.h"
35 #include "st_demo.h"
36 #include "st_level.h"
37 #include "st_pause.h"
38
39 #define TITLE "Neverball"
40
41 /*---------------------------------------------------------------------------*/
42
43 static void shot(void)
44 {
45     static char filename[MAXSTR];
46     static int  num = 0;
47
48     sprintf(filename, "screen%02d.png", num++);
49
50     image_snap(filename);
51 }
52
53 /*---------------------------------------------------------------------------*/
54
55 static void toggle_wire(void)
56 {
57     static int wire = 0;
58
59     if (wire)
60     {
61         glPolygonMode(GL_FRONT_AND_BACK, GL_FILL);
62         glEnable(GL_TEXTURE_2D);
63         glEnable(GL_LIGHTING);
64         wire = 0;
65     }
66     else
67     {
68         glPolygonMode(GL_FRONT_AND_BACK, GL_LINE);
69         glDisable(GL_TEXTURE_2D);
70         glDisable(GL_LIGHTING);
71         wire = 1;
72     }
73 }
74
75 static void toggle_fullscreen(void)
76 {
77     int x, y;
78
79     SDL_GetMouseState(&x, &y);
80     config_mode(!config_get_d(CONFIG_FULLSCREEN), config_get_d(CONFIG_WIDTH),
81                 config_get_d(CONFIG_HEIGHT));
82     SDL_WarpMouse(x, y);
83 }
84
85 /*---------------------------------------------------------------------------*/
86
87 static int loop(void)
88 {
89     SDL_Event e;
90     int d = 1;
91     int c;
92
93     while (d && SDL_PollEvent(&e))
94     {
95         switch (e.type)
96         {
97         case SDL_QUIT:
98             return 0;
99
100         case SDL_MOUSEMOTION:
101             st_point(+e.motion.x,
102                      -e.motion.y + config_get_d(CONFIG_HEIGHT),
103                      +e.motion.xrel,
104                      config_get_d(CONFIG_MOUSE_INVERT)
105                      ? +e.motion.yrel : -e.motion.yrel);
106             break;
107
108         case SDL_MOUSEBUTTONDOWN:
109             d = st_click((e.button.button == SDL_BUTTON_LEFT) ? -1 : 1, 1);
110             break;
111
112         case SDL_MOUSEBUTTONUP:
113             d = st_click((e.button.button == SDL_BUTTON_LEFT) ? -1 : 1, 0);
114             break;
115
116         case SDL_KEYDOWN:
117
118             c = e.key.keysym.sym;
119
120             if (config_tst_d(CONFIG_KEY_FORWARD, c))
121                 st_stick(config_get_d(CONFIG_JOYSTICK_AXIS_Y), -JOY_MAX);
122
123             else if (config_tst_d(CONFIG_KEY_BACKWARD, c))
124                 st_stick(config_get_d(CONFIG_JOYSTICK_AXIS_Y), +JOY_MAX);
125
126             else if (config_tst_d(CONFIG_KEY_LEFT, c))
127                 st_stick(config_get_d(CONFIG_JOYSTICK_AXIS_X), -JOY_MAX);
128
129             else if (config_tst_d(CONFIG_KEY_RIGHT, c))
130                 st_stick(config_get_d(CONFIG_JOYSTICK_AXIS_X), +JOY_MAX);
131
132             else switch (c)
133             {
134             case SDLK_F11:   toggle_fullscreen();       break;
135             case SDLK_F10:   shot();                    break;
136             case SDLK_F9:    config_tgl_d(CONFIG_FPS);  break;
137             case SDLK_F8:    config_tgl_d(CONFIG_NICE); break;
138
139             case SDLK_F7:
140                 if (config_cheat())
141                     toggle_wire();
142                 break;
143
144             case SDLK_RETURN:
145                 d = st_buttn(config_get_d(CONFIG_JOYSTICK_BUTTON_A), 1);
146                 break;
147             case SDLK_ESCAPE:
148                 d = st_buttn(config_get_d(CONFIG_JOYSTICK_BUTTON_EXIT), 1);
149                 break;
150
151             default:
152                 if (SDL_EnableUNICODE(-1))
153                     d = st_keybd(e.key.keysym.unicode, 1);
154                 else
155                     d = st_keybd(e.key.keysym.sym, 1);
156             }
157
158             break;
159
160         case SDL_KEYUP:
161
162             c = e.key.keysym.sym;
163
164             if (config_tst_d(CONFIG_KEY_FORWARD, c))
165                 st_stick(config_get_d(CONFIG_JOYSTICK_AXIS_Y), 1);
166
167             else if (config_tst_d(CONFIG_KEY_BACKWARD, c))
168                 st_stick(config_get_d(CONFIG_JOYSTICK_AXIS_Y), 1);
169
170             else if (config_tst_d(CONFIG_KEY_LEFT, c))
171                 st_stick(config_get_d(CONFIG_JOYSTICK_AXIS_X), 1);
172
173             else if (config_tst_d(CONFIG_KEY_RIGHT, c))
174                 st_stick(config_get_d(CONFIG_JOYSTICK_AXIS_X), 1);
175
176             else switch (c)
177             {
178             case SDLK_RETURN:
179                 d = st_buttn(config_get_d(CONFIG_JOYSTICK_BUTTON_A), 0);
180                 break;
181             case SDLK_ESCAPE:
182                 d = st_buttn(config_get_d(CONFIG_JOYSTICK_BUTTON_EXIT), 0);
183                 break;
184
185             default:
186                 d = st_keybd(e.key.keysym.sym, 0);
187             }
188
189         case SDL_ACTIVEEVENT:
190             if (e.active.state == SDL_APPINPUTFOCUS)
191                 if (e.active.gain == 0 && config_get_grab())
192                     goto_pause();
193             break;
194
195         case SDL_JOYAXISMOTION:
196             st_stick(e.jaxis.axis, e.jaxis.value);
197             break;
198
199         case SDL_JOYBUTTONDOWN:
200             d = st_buttn(e.jbutton.button, 1);
201             break;
202
203         case SDL_JOYBUTTONUP:
204             d = st_buttn(e.jbutton.button, 0);
205             break;
206         }
207     }
208     return d;
209 }
210
211 /*---------------------------------------------------------------------------*/
212
213 static char *data_path = NULL;
214 static char *demo_path = NULL;
215
216 static unsigned int display_info = 0;
217 static unsigned int replay_demo  = 0;
218
219 #define usage \
220     L_(                                                                   \
221         "Usage: %s [options ...]\n"                                       \
222         "Options:\n"                                                      \
223         "  -h, --help                show this usage message.\n"          \
224         "  -v, --version             show version.\n"                     \
225         "  -d, --data <dir>          use 'dir' as game data directory.\n" \
226         "  -r, --replay <file>       play the replay 'file'.\n"           \
227         "  -i, --info                display info about a replay.\n"      \
228     )
229
230 #define argument_error(option) { \
231     fprintf(stderr, L_("Option '%s' requires an argument.\n"),  option); \
232 }
233
234 static void parse_args(int argc, char **argv)
235 {
236     int i;
237
238     /* Scan argument list. */
239
240     for (i = 1; i < argc; i++)
241     {
242         if (strcmp(argv[i], "-h") == 0 || strcmp(argv[i], "--help")    == 0)
243         {
244             printf(usage, argv[0]);
245             exit(EXIT_SUCCESS);
246         }
247
248         if (strcmp(argv[i], "-v") == 0 || strcmp(argv[i], "--version") == 0)
249         {
250             printf("%s\n", VERSION);
251             exit(EXIT_SUCCESS);
252         }
253
254         if (strcmp(argv[i], "-d") == 0 || strcmp(argv[i], "--data")    == 0)
255         {
256             if (i + 1 == argc)
257             {
258                 argument_error(argv[i]);
259                 exit(EXIT_FAILURE);
260             }
261             data_path = argv[++i];
262             continue;
263         }
264
265         if (strcmp(argv[i], "-r") == 0 || strcmp(argv[i], "--replay")  == 0)
266         {
267             if (i + 1 == argc)
268             {
269                 argument_error(argv[i]);
270                 exit(EXIT_FAILURE);
271             }
272             demo_path = argv[++i];
273             continue;
274         }
275
276         if (strcmp(argv[i], "-i") == 0 || strcmp(argv[i], "--info")    == 0)
277         {
278             display_info = 1;
279             continue;
280         }
281     }
282
283     /* Resolve conflicts. */
284
285     if (demo_path)
286         replay_demo = display_info ? 0 : 1;
287     else
288         if (display_info)
289         {
290             /* FIXME, I'm a required option. */
291             fputs(L_("Option '--info' requires '--replay'.\n"), stderr);
292             exit(EXIT_FAILURE);
293         }
294 }
295
296 #undef usage
297 #undef argument_error
298
299 /*---------------------------------------------------------------------------*/
300
301 int main(int argc, char *argv[])
302 {
303     SDL_Joystick *joy = NULL;
304     SDL_Surface *icon;
305
306     int t1, t0;
307
308     lang_init("neverball", CONFIG_LOCALE);
309
310     text_init();
311
312     parse_args(argc, argv);
313
314     if (!config_data_path(data_path, SET_FILE))
315     {
316         fputs(L_("Failure to establish game data directory\n"), stderr);
317         return 1;
318     }
319
320     if (!config_user_path(NULL))
321     {
322         fputs(L_("Failure to establish config directory\n"), stderr);
323         return 1;
324     }
325
326     /* Initialize SDL system and subsystems */
327
328     if (SDL_Init(SDL_INIT_VIDEO | SDL_INIT_AUDIO | SDL_INIT_JOYSTICK) == -1)
329     {
330         fprintf(stderr, "%s\n", SDL_GetError());
331         return 1;
332     }
333
334     /* Intitialize the configuration */
335
336     config_init();
337     config_load();
338
339     /* Dump replay information and exit. */
340
341     if (display_info)
342     {
343         if (!level_replay(demo_path))
344         {
345             fprintf(stderr, L_("Replay file '%s': %s\n"), demo_path,
346                     errno ?  strerror(errno) : L_("Not a replay file"));
347             return 1;
348         }
349         demo_replay_dump_info();
350         return 0;
351     }
352
353     /* Initialize the joystick. */
354
355     if (SDL_NumJoysticks() > 0)
356     {
357         joy = SDL_JoystickOpen(config_get_d(CONFIG_JOYSTICK_DEVICE));
358         if (joy)
359             SDL_JoystickEventState(SDL_ENABLE);
360     }
361
362     /* Initialize the audio. */
363
364     audio_init();
365
366     /* Require 16-bit double buffer with 16-bit depth buffer. */
367
368     SDL_GL_SetAttribute(SDL_GL_RED_SIZE,     5);
369     SDL_GL_SetAttribute(SDL_GL_GREEN_SIZE,   5);
370     SDL_GL_SetAttribute(SDL_GL_BLUE_SIZE,    5);
371     SDL_GL_SetAttribute(SDL_GL_DEPTH_SIZE,  16);
372     SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1);
373
374 #ifndef __APPLE__
375     if ((icon = load_surface("icon/neverball.png")))
376     {
377         SDL_WM_SetIcon(icon, NULL);
378         free(icon->pixels);
379         SDL_FreeSurface(icon);
380     }
381 #endif /* __APPLE__ */
382
383     /* Initialize the video. */
384
385     if (!config_mode(config_get_d(CONFIG_FULLSCREEN),
386                      config_get_d(CONFIG_WIDTH), config_get_d(CONFIG_HEIGHT)))
387     {
388         fprintf(stderr, "%s\n", SDL_GetError());
389         return 1;
390     }
391
392     SDL_WM_SetCaption(TITLE, TITLE);
393
394     init_state(&st_null);
395
396     /* Initialise demo playback. */
397
398     if (replay_demo)
399     {
400         level_replay(demo_path);
401         demo_play_goto(1);
402         goto_state(&st_demo_play);
403     }
404     else
405         goto_state(&st_title);
406
407     /* Run the main game loop. */
408
409     t0 = SDL_GetTicks();
410     while (loop())
411         if ((t1 = SDL_GetTicks()) > t0)
412         {
413             st_timer((t1 - t0) / 1000.f);
414             st_paint();
415             SDL_GL_SwapBuffers();
416
417             t0 = t1;
418
419             if (config_get_d(CONFIG_NICE))
420                 SDL_Delay(1);
421         }
422
423     /* Gracefully close the game */
424
425     if (SDL_JoystickOpened(0))
426         SDL_JoystickClose(joy);
427
428     SDL_Quit();
429
430     config_save();
431
432     text_quit();
433
434     return 0;
435 }
436
437 /*---------------------------------------------------------------------------*/
438