Removed archaic MSVC(?) pragmas.
[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 <SDL_image.h>
19 #include <stdio.h>
20 #include <string.h>
21 #include <errno.h>
22
23 #include "glext.h"
24 #include "config.h"
25 #include "image.h"
26 #include "audio.h"
27 #include "demo.h"
28 #include "levels.h"
29 #include "game.h"
30 #include "gui.h"
31 #include "set.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_get_d(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 /* Option values */
214
215 static char *data_path    = NULL;
216 static char *replay_path  = NULL;
217 static int   display_info = 0;
218
219 /* Option handling */
220
221 static void parse_args(int argc, char **argv)
222 {
223     char *exec = *(argv++);
224     int missing;
225
226     const char *usage = _(
227         "Usage: %s [options ...]\n"
228         "-r, --replay file         play the replay 'file'.\n"
229         "-i, --info                display info about a replay.\n"
230         "    --data dir            use 'dir' as game data directory.\n"
231         "-v, --version             show version.\n"
232         "-h, -?, --help            show this usage message.\n"
233     );
234
235 #   define CASE(x) (strcmp(*argv, (x)) == 0)       /* Check current option */
236 #   define MAND    !(missing = (argv[1] == NULL))  /* Argument is mandatory */
237
238     while (*argv != NULL)
239     {
240         missing = 0;
241         if (CASE("-h") || CASE("-?") || CASE("--help"))
242         {
243             printf(usage, exec);
244             exit(0);
245         }
246         else if (CASE("-v") || CASE("--version"))
247         {
248             printf("%s\n", VERSION);
249             exit(0);
250         }
251         else if (CASE("--data") && MAND)
252             data_path = *(++argv);
253         else if ((CASE("-r") || CASE("--replay")) && MAND)
254             replay_path = *(++argv);
255         else if ((CASE("-i") || CASE("--info")))
256             display_info = 1;
257         else if (!missing)
258         {
259             fprintf(stderr, _("%s: unknown option %s\n"), exec, *argv);
260             fprintf(stderr, usage, exec);
261             exit(1);
262         }
263         else
264         {
265             fprintf(stderr, _("%s: option %s requires an argument\n"), exec,
266                     *argv);
267             fprintf(stderr, usage, exec);
268             exit(1);
269         }
270         argv++;
271     }
272
273 #   undef CASE
274 #   undef MAND
275
276     return;
277 }
278
279 int main(int argc, char *argv[])
280 {
281     SDL_Joystick *joy = NULL;
282     SDL_Surface *icon;
283
284     int t1, t0;
285
286     lang_init("neverball", CONFIG_LOCALE);
287
288     parse_args(argc, argv);
289
290     if (!config_data_path(data_path, SET_FILE))
291     {
292         fprintf(stderr, _("Failure to establish game data directory\n"));
293         return 1;
294     }
295
296     if (!config_user_path(NULL))
297     {
298         fprintf(stderr, _("Failure to establish config directory\n"));
299         return 1;
300     }
301
302     /* Initialize SDL system and subsystems */
303
304     if (SDL_Init(SDL_INIT_VIDEO | SDL_INIT_AUDIO | SDL_INIT_JOYSTICK) == -1)
305     {
306         fprintf(stderr, "%s\n", SDL_GetError());
307         return 1;
308     }
309
310     /* Intitialize the configuration */
311
312     config_init();
313     config_load();
314
315     /* Prepare run without GUI */
316
317     if (replay_path)
318     {
319         if (!level_replay(replay_path))
320         {
321             fprintf(stderr, _("Replay file '%s': %s\n"), replay_path,
322                     errno ? strerror(errno) : _("Not a replay file"));
323             return 1;
324         }
325         else if (display_info)
326             demo_replay_dump_info();
327     }
328
329     if (display_info)
330     {
331         if (replay_path == NULL)
332         {
333             fprintf(stderr, _("%s: --info requires --replay\n"),
334                     argv[0]);
335             return 1;
336         }
337         return 0;
338     }
339
340     /* Initialize the joystick. */
341
342     if (SDL_NumJoysticks() > 0)
343     {
344         joy = SDL_JoystickOpen(config_get_d(CONFIG_JOYSTICK_DEVICE));
345         if (joy)
346             SDL_JoystickEventState(SDL_ENABLE);
347     }
348
349     /* Initialize the audio. */
350
351     audio_bind(AUD_MENU,   3, "snd/menu.wav");
352     audio_bind(AUD_START,  1, _("snd/select.ogg"));
353     audio_bind(AUD_READY,  1, _("snd/ready.ogg"));
354     audio_bind(AUD_SET,    1, _("snd/set.ogg"));
355     audio_bind(AUD_GO,     1, _("snd/go.ogg"));
356     audio_bind(AUD_BALL,   2, "snd/ball.ogg");
357     audio_bind(AUD_BUMPS,  3, "snd/bumplil.ogg");
358     audio_bind(AUD_BUMPM,  3, "snd/bump.ogg");
359     audio_bind(AUD_BUMPL,  3, "snd/bumpbig.ogg");
360     audio_bind(AUD_COIN,   2, "snd/coin.wav");
361     audio_bind(AUD_TICK,   4, "snd/tick.ogg");
362     audio_bind(AUD_TOCK,   4, "snd/tock.ogg");
363     audio_bind(AUD_SWITCH, 5, "snd/switch.wav");
364     audio_bind(AUD_JUMP,   5, "snd/jump.ogg");
365     audio_bind(AUD_GOAL,   5, "snd/goal.wav");
366     audio_bind(AUD_SCORE,  1, _("snd/record.ogg"));
367     audio_bind(AUD_FALL,   1, _("snd/fall.ogg"));
368     audio_bind(AUD_TIME,   1, _("snd/time.ogg"));
369     audio_bind(AUD_OVER,   1, _("snd/over.ogg"));
370     audio_bind(AUD_GROW,   5, "snd/grow.ogg");
371     audio_bind(AUD_SHRINK, 5, "snd/shrink.ogg");
372
373     audio_init();
374
375     /* Require 16-bit double buffer with 16-bit depth buffer. */
376
377     SDL_GL_SetAttribute(SDL_GL_RED_SIZE,     5);
378     SDL_GL_SetAttribute(SDL_GL_GREEN_SIZE,   5);
379     SDL_GL_SetAttribute(SDL_GL_BLUE_SIZE,    5);
380     SDL_GL_SetAttribute(SDL_GL_DEPTH_SIZE,  16);
381     SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1);
382
383 #ifndef __APPLE__
384     /* Set the WM icon */
385
386     icon = IMG_Load(config_data("icon/neverball.png"));
387
388     if (icon)
389     {
390         SDL_WM_SetIcon(icon, NULL);
391         SDL_FreeSurface(icon);
392     }
393 #endif /* __APPLE__ */
394
395     /* Initialize the video. */
396
397     if (!config_mode(config_get_d(CONFIG_FULLSCREEN),
398                      config_get_d(CONFIG_WIDTH), config_get_d(CONFIG_HEIGHT)))
399     {
400         fprintf(stderr, "%s\n", SDL_GetError());
401         return 1;
402     }
403
404     SDL_WM_SetCaption(TITLE, TITLE);
405
406     /* Initialize the run state. */
407
408     init_state(&st_null);
409
410     if (replay_path)
411     {
412         level_replay(replay_path);
413         demo_play_goto(1);
414         goto_state(&st_demo_play);
415     }
416     else
417         goto_state(&st_title);
418
419     /* Run the main game loop. */
420
421     t0 = SDL_GetTicks();
422     while (loop())
423         if ((t1 = SDL_GetTicks()) > t0)
424         {
425             st_timer((t1 - t0) / 1000.f);
426             st_paint();
427             SDL_GL_SwapBuffers();
428
429             t0 = t1;
430
431             if (config_get_d(CONFIG_NICE))
432                 SDL_Delay(1);
433         }
434
435     /* Gracefully close the game */
436
437     if (SDL_JoystickOpened(0))
438         SDL_JoystickClose(joy);
439
440     SDL_Quit();
441
442     config_save();
443
444     return 0;
445 }
446
447 /*---------------------------------------------------------------------------*/
448