697d9f54e13efd8da06351109c0fb306e754be16
[supertux.git] / src / gameloop.cpp
1 //  $Id$
2 // 
3 //  SuperTux
4 //  Copyright (C) 2000 Bill Kendrick <bill@newbreedsoftware.com>
5 //  Copyright (C) 2004 Tobias Glaesser <tobi.web@gmx.de>
6 //  Copyright (C) 2004 Ingo Ruhnke <grumbel@gmx.de>
7 //
8 //  This program is free software; you can redistribute it and/or
9 //  modify it under the terms of the GNU General Public License
10 //  as published by the Free Software Foundation; either version 2
11 //  of the License, or (at your option) any later version.
12 //
13 //  This program is distributed in the hope that it will be useful,
14 //  but WITHOUT ANY WARRANTY; without even the implied warranty of
15 //  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 //  GNU General Public License for more details.
17 // 
18 //  You should have received a copy of the GNU General Public License
19 //  along with this program; if not, write to the Free Software
20 //  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
21
22 #include <iostream>
23 #include <sstream>
24 #include <cassert>
25 #include <cstdio>
26 #include <cstdlib>
27 #include <cmath>
28 #include <cstring>
29 #include <cerrno>
30 #include <unistd.h>
31 #include <ctime>
32
33 #include "SDL.h"
34
35 #ifndef WIN32
36 #include <sys/types.h>
37 #include <ctype.h>
38 #endif
39
40 #include "defines.h"
41 #include "app/globals.h"
42 #include "gameloop.h"
43 #include "video/screen.h"
44 #include "app/setup.h"
45 #include "high_scores.h"
46 #include "gui/menu.h"
47 #include "badguy.h"
48 #include "sector.h"
49 #include "special.h"
50 #include "player.h"
51 #include "level.h"
52 #include "scene.h"
53 #include "collision.h"
54 #include "tile.h"
55 #include "particlesystem.h"
56 #include "resources.h"
57 #include "background.h"
58 #include "tilemap.h"
59 #include "app/gettext.h"
60 #include "worldmap.h"
61 #include "intro.h"
62 #include "misc.h"
63 #include "camera.h"
64 #include "statistics.h"
65
66 GameSession* GameSession::current_ = 0;
67
68 bool compare_last(std::string& haystack, std::string needle)
69 {
70 int haystack_size = haystack.size();
71 int needle_size = needle.size();
72
73 if(haystack_size < needle_size)
74   return false;
75
76 if(haystack.compare(haystack_size-needle_size, needle_size, needle) == 0)
77   return true;
78 return false;
79 }
80
81 GameSession::GameSession(const std::string& levelname_, int mode, bool flip_level_)
82   : level(0), currentsector(0), st_gl_mode(mode),
83     end_sequence(NO_ENDSEQUENCE), levelname(levelname_), flip_level(flip_level_)
84 {
85   current_ = this;
86   
87   global_frame_counter = 0;
88   game_pause = false;
89   fps_fps = 0;
90
91   fps_timer.init(true);
92   frame_timer.init(true);
93   random_timer.init(true);
94   frame_rate.set_fps(100);
95
96   context = new DrawingContext();
97
98   if(flip_levels_mode)
99     flip_level = true;
100
101   restart_level();
102 }
103
104 void
105 GameSession::restart_level()
106 {
107   game_pause   = false;
108   exit_status  = ES_NONE;
109   end_sequence = NO_ENDSEQUENCE;
110
111   fps_timer.init(true);
112   frame_timer.init(true);
113   random_timer.init(true);
114
115   last_keys.clear();
116
117   Vector tux_pos = Vector(-1,-1);
118   if (currentsector)
119     { // Tux has lost a life, so we try to respawn him at the nearest reset point
120       tux_pos = currentsector->player->base;
121     }
122   
123   delete level;
124   currentsector = 0;
125
126   level = new Level;
127   level->load(levelname);
128   if(flip_level)
129     level->do_vertical_flip();
130
131   currentsector = level->get_sector("main");
132   if(!currentsector)
133     Termination::abort("Level has no main sector.", "");
134   currentsector->activate("main");
135
136   // Set Tux to the nearest reset point
137   if(tux_pos.x != -1)
138     {
139     tux_pos = currentsector->get_best_spawn_point(tux_pos);
140     currentsector->player->base.x = tux_pos.x;
141     currentsector->player->base.y = tux_pos.y;
142     
143     // has to reset camera on swapping
144     currentsector->camera->reset(Vector(currentsector->player->base.x,
145                                         currentsector->player->base.y));
146     }
147
148   if (st_gl_mode != ST_GL_DEMO_GAME)
149     {
150       if(st_gl_mode == ST_GL_PLAY || st_gl_mode == ST_GL_LOAD_LEVEL_FILE)
151         levelintro();
152     }
153
154   global_stats.reset();
155
156   time_left.init(true);
157   start_timers();
158   currentsector->play_music(LEVEL_MUSIC);
159 }
160
161 GameSession::~GameSession()
162 {
163   delete level;
164   delete context;
165 }
166
167 void
168 GameSession::levelintro(void)
169 {
170   SoundManager::get()->halt_music();
171   
172   char str[60];
173
174   DrawingContext context;
175   currentsector->background->draw(context);
176
177   context.draw_text_center(gold_text, level->get_name(), Vector(0, 220),
178       LAYER_FOREGROUND1);
179
180   sprintf(str, "TUX x %d", player_status.lives);
181   context.draw_text_center(white_text, str, Vector(0, 240),
182       LAYER_FOREGROUND1);
183
184   if(level->get_author().size())
185     context.draw_text_center(white_small_text,
186       std::string(_("by ")) + level->get_author(), 
187       Vector(0, 400), LAYER_FOREGROUND1);
188
189
190   if(flip_level)
191     context.draw_text_center(white_text,
192       _("Level Vertically Flipped!"),
193       Vector(0, 310), LAYER_FOREGROUND1);
194
195   context.do_drawing();
196
197   SDL_Event event;
198   wait_for_event(event,1000,3000,true);
199 }
200
201 /* Reset Timers */
202 void
203 GameSession::start_timers()
204 {
205   time_left.start(level->time_left*1000);
206   Ticks::pause_init();
207   frame_rate.start();
208 }
209
210 void
211 GameSession::on_escape_press()
212 {
213   if(currentsector->player->dying || end_sequence != NO_ENDSEQUENCE)
214     return;   // don't let the player open the menu, when he is dying
215   
216   if(game_pause)
217     return;
218
219   if(st_gl_mode == ST_GL_TEST)
220     {
221       exit_status = ES_LEVEL_ABORT;
222     }
223   else if (!Menu::current())
224     {
225       /* Tell Tux that the keys are all down, otherwise
226         it could have nasty bugs, like going allways to the right
227         or whatever that key does */
228       Player& tux = *(currentsector->player);
229       tux.key_event((SDLKey)keymap.jump, UP);
230       tux.key_event((SDLKey)keymap.duck, UP);
231       tux.key_event((SDLKey)keymap.left, UP);
232       tux.key_event((SDLKey)keymap.right, UP);
233       tux.key_event((SDLKey)keymap.fire, UP);
234
235       Menu::set_current(game_menu);
236       Ticks::pause_start();
237     }
238 }
239
240 void
241 GameSession::process_events()
242 {
243   if (end_sequence != NO_ENDSEQUENCE)
244     {
245       Player& tux = *currentsector->player;
246          
247       tux.input.fire  = UP;
248       tux.input.left  = UP;
249       tux.input.right = DOWN;
250       tux.input.down  = UP; 
251
252       if (int(last_x_pos) == int(tux.base.x))
253         tux.input.up    = DOWN; 
254       else
255         tux.input.up    = UP; 
256
257       last_x_pos = tux.base.x;
258
259       SDL_Event event;
260       while (SDL_PollEvent(&event))
261         {
262           /* Check for menu-events, if the menu is shown */
263           if (Menu::current())
264             {
265               Menu::current()->event(event);
266               if(!Menu::current())
267               Ticks::pause_stop();
268             }
269
270           switch(event.type)
271             {
272             case SDL_QUIT:        /* Quit event - quit: */
273               Termination::abort("Received window close", "");
274               break;
275               
276             case SDL_KEYDOWN:     /* A keypress! */
277               {
278                 SDLKey key = event.key.keysym.sym;
279            
280                 switch(key)
281                   {
282                   case SDLK_ESCAPE:    /* Escape: Open/Close the menu: */
283                     on_escape_press();
284                     break;
285                   default:
286                     break;
287                   }
288               }
289           
290             case SDL_JOYBUTTONDOWN:
291               if (event.jbutton.button == joystick_keymap.start_button)
292                 on_escape_press();
293               break;
294             }
295         }
296     }
297   else // normal mode
298     {
299       if(!Menu::current() && !game_pause)
300         Ticks::pause_stop();
301
302       SDL_Event event;
303       while (SDL_PollEvent(&event))
304         {
305           /* Check for menu-events, if the menu is shown */
306           if (Menu::current())
307             {
308               Menu::current()->event(event);
309               if(!Menu::current())
310                 Ticks::pause_stop();
311             }
312           else
313             {
314               Player& tux = *currentsector->player;
315   
316               switch(event.type)
317                 {
318                 case SDL_QUIT:        /* Quit event - quit: */
319                   Termination::abort("Received window close", "");
320                   break;
321
322                 case SDL_KEYDOWN:     /* A keypress! */
323                   {
324                     SDLKey key = event.key.keysym.sym;
325             
326                     if(tux.key_event(key,DOWN))
327                       break;
328
329                     switch(key)
330                       {
331                       case SDLK_ESCAPE:    /* Escape: Open/Close the menu: */
332                         on_escape_press();
333                         break;
334                       default:
335                         break;
336                       }
337                   }
338                   break;
339                 case SDL_KEYUP:      /* A keyrelease! */
340                   {
341                     SDLKey key = event.key.keysym.sym;
342
343                     if(tux.key_event(key, UP))
344                       break;
345
346                     switch(key)
347                       {
348                       case SDLK_a:
349                         if(debug_mode)
350                         {
351                           char buf[160];
352                           snprintf(buf, sizeof(buf), "P: %4.1f,%4.1f",
353                               tux.base.x, tux.base.y);
354                           context->draw_text(white_text, buf,
355                               Vector(0, screen->h - white_text->get_height()),
356                               LAYER_FOREGROUND1);
357                           context->do_drawing();
358                           SDL_Delay(1000);
359                         }
360                         break;
361                       case SDLK_p:
362                         if(!Menu::current())
363                           {
364                             if(game_pause)
365                               {
366                                 game_pause = false;
367                                 Ticks::pause_stop();
368                               }
369                             else
370                               {
371                                 game_pause = true;
372                                 Ticks::pause_start();
373                               }
374                           }
375                         break;
376                       default:
377                         break;
378                       }
379                   }
380
381                         /* Check if chacrater is ASCII */
382                         char ch[2];
383                         if((event.key.keysym.unicode & 0xFF80) == 0)
384                           {
385                           ch[0] = event.key.keysym.unicode & 0x7F;
386                           ch[1] = '\0';
387                           }
388                         last_keys.append(ch);  // add to cheat keys
389
390                         // Cheating words (the goal of this is really for debugging,
391                         // but could be used for some cheating, nothing wrong with that)
392                         if(compare_last(last_keys, "grow"))
393                           {
394                           tux.grow(false);
395                           last_keys.clear();
396                           }
397                         if(compare_last(last_keys, "fire"))
398                           {
399                           tux.grow(false);
400                           tux.got_power = tux.FIRE_POWER;
401                           last_keys.clear();
402                           }
403                         if(compare_last(last_keys, "ice"))
404                           {
405                           tux.grow(false);
406                           tux.got_power = tux.ICE_POWER;
407                           last_keys.clear();
408                           }
409                         if(compare_last(last_keys, "lifeup"))
410                           {
411                           player_status.lives++;
412                           last_keys.clear();
413                           // "lifeup" activates pause cause of the 'p'
414                           // so work around to ignore it
415                             if(game_pause)
416                               {
417                                 game_pause = false;
418                                 Ticks::pause_stop();
419                               }
420                             else
421                               {
422                                 game_pause = true;
423                                 Ticks::pause_start();
424                               }
425                           }
426                         if(compare_last(last_keys, "lifedown"))
427                           {
428                           player_status.lives--;
429                           last_keys.clear();
430                           }
431                         if(compare_last(last_keys, "invincible"))
432                           {    // be invincle for the rest of the level
433                           tux.invincible_timer.start(time_left.get_left());
434                           last_keys.clear();
435                           }
436                                                                 if(compare_last(last_keys, "shrink"))
437                           {    // remove powerups
438                           tux.kill(tux.SHRINK);
439                           last_keys.clear();
440                           }
441                                                                 if(compare_last(last_keys, "kill"))
442                           {    // kill Tux
443                           tux.kill(tux.KILL);
444                           last_keys.clear();
445                           }
446                   break;
447
448                 case SDL_JOYAXISMOTION:
449                   if (event.jaxis.axis == joystick_keymap.x_axis)
450                     {
451                       if (event.jaxis.value < -joystick_keymap.dead_zone)
452                         {
453                           tux.input.left  = DOWN;
454                           tux.input.right = UP;
455                         }
456                       else if (event.jaxis.value > joystick_keymap.dead_zone)
457                         {
458                           tux.input.left  = UP;
459                           tux.input.right = DOWN;
460                         }
461                       else
462                         {
463                           tux.input.left  = DOWN;
464                           tux.input.right = DOWN;
465                         }
466                     }
467                   else if (event.jaxis.axis == joystick_keymap.y_axis)
468                     {
469                       if (event.jaxis.value > joystick_keymap.dead_zone)
470                         tux.input.down = DOWN;
471                       else if (event.jaxis.value < -joystick_keymap.dead_zone)
472                         tux.input.down = UP;
473                       else
474                         tux.input.down = UP;
475                     }
476                   break;
477
478                 case SDL_JOYHATMOTION:
479                   if(event.jhat.value & SDL_HAT_UP) {
480                     tux.input.up = DOWN;
481                     tux.input.down = UP;
482                   } else if(event.jhat.value & SDL_HAT_DOWN) {
483                     tux.input.up = UP;
484                     tux.input.down = DOWN;
485                   } else if(event.jhat.value & SDL_HAT_LEFT) {
486                     tux.input.left = DOWN;
487                     tux.input.right = UP;
488                   } else if(event.jhat.value & SDL_HAT_RIGHT) {
489                     tux.input.left = UP;
490                     tux.input.right = DOWN;
491                   } else if(event.jhat.value == SDL_HAT_CENTERED) {
492                     tux.input.left = UP;
493                     tux.input.right = UP;
494                     tux.input.up = UP;
495                     tux.input.down = UP;
496                   }
497                   break;
498             
499                 case SDL_JOYBUTTONDOWN:
500                   if (event.jbutton.button == joystick_keymap.a_button)
501                     tux.input.up = DOWN;
502                   else if (event.jbutton.button == joystick_keymap.b_button)
503                     tux.input.fire = DOWN;
504                   else if (event.jbutton.button == joystick_keymap.start_button)
505                     on_escape_press();
506                   break;
507                 case SDL_JOYBUTTONUP:
508                   if (event.jbutton.button == joystick_keymap.a_button)
509                     tux.input.up = UP;
510                   else if (event.jbutton.button == joystick_keymap.b_button)
511                     tux.input.fire = UP;
512                   break;
513
514                 default:
515                   break;
516                 }  /* switch */
517             }
518         } /* while */
519     }
520 }
521
522 void
523 GameSession::check_end_conditions()
524 {
525   Player* tux = currentsector->player;
526
527   /* End of level? */
528   Tile* endtile = collision_goal(tux->base);
529
530   if(end_sequence && !endsequence_timer.check())
531     {
532       exit_status = ES_LEVEL_FINISHED;
533       return;
534     }
535   else if(end_sequence == ENDSEQUENCE_RUNNING && endtile && endtile->data >= 1)
536     {
537       end_sequence = ENDSEQUENCE_WAITING;
538     }
539   else if(!end_sequence && endtile && endtile->data == 0)
540     {
541       end_sequence = ENDSEQUENCE_RUNNING;
542       random_timer.start(200);  // start 1st firework
543       last_x_pos = -1;
544       SoundManager::get()->play_music(level_end_song, 0);
545       endsequence_timer.start(7000); // 5 seconds until we finish the map
546       tux->invincible_timer.start(7000); //FIXME: Implement a winning timer for the end sequence (with special winning animation etc.)
547
548       // add left time to stats
549       global_stats.set_points(TIME_NEEDED_STAT, time_left.get_gone());
550     }
551   else if (!end_sequence && tux->is_dead())
552     {
553       player_status.bonus = PlayerStatus::NO_BONUS;
554
555       if (player_status.lives < 0)
556         { // No more lives!?
557           exit_status = ES_GAME_OVER;
558         }
559       else
560         { // Still has lives, so reset Tux to the levelstart
561           restart_level();
562         }
563
564       return;
565     }
566 }
567
568 void
569 GameSession::action(double frame_ratio)
570 {
571   if (exit_status == ES_NONE && !currentsector->player->growing_timer.check())
572     {
573       // Update Tux and the World
574       currentsector->action(frame_ratio);
575     }
576
577   // respawning in new sector?
578   if(newsector != "" && newspawnpoint != "") {
579     Sector* sector = level->get_sector(newsector);
580     currentsector = sector;
581     currentsector->activate(newspawnpoint);
582     currentsector->play_music(LEVEL_MUSIC);
583     newsector = newspawnpoint = "";
584   }
585
586   // on end sequence make a few fireworks
587   if(end_sequence == ENDSEQUENCE_RUNNING && !random_timer.check())
588     {
589     Vector epicenter = currentsector->camera->get_translation();
590     epicenter.x += screen->w * ((float)rand() / RAND_MAX);
591     epicenter.y += (screen->h/2) * ((float)rand() / RAND_MAX);
592
593     int red = rand() % 255;  // calculate firework color
594     int green = rand() % red;
595     currentsector->add_particles(epicenter, Vector(1.4,1.4), Vector(0,0),
596                                  45, Color(red,green,0), 3, 1300);
597
598     SoundManager::get()->play_sound(IDToSound(SND_FIREWORKS));
599     random_timer.start(rand() % 400 + 600);  // next firework
600     }
601 }
602
603 void 
604 GameSession::draw()
605 {
606   currentsector->draw(*context);
607   drawstatus(*context);
608
609   if(game_pause)
610     {
611       int x = screen->h / 20;
612       for(int i = 0; i < x; ++i)
613         {
614           context->draw_filled_rect(
615               Vector(i % 2 ? (pause_menu_frame * i)%screen->w :
616                 -((pause_menu_frame * i)%screen->w)
617                 ,(i*20+pause_menu_frame)%screen->h),
618               Vector(screen->w,10),
619               Color(20,20,20, rand() % 20 + 1), LAYER_FOREGROUND1+1);
620         }
621       context->draw_filled_rect(
622           Vector(0,0), Vector(screen->w, screen->h),
623           Color(rand() % 50, rand() % 50, rand() % 50, 128), LAYER_FOREGROUND1);
624       context->draw_text_center(blue_text, _("PAUSE - Press 'P' To Play"),
625           Vector(0, 230), LAYER_FOREGROUND1+2);
626
627       char str1[60];
628       char str2[124];
629       sprintf(str1, _("Playing: "));
630       sprintf(str2, level->name.c_str());
631
632       context->draw_text(blue_text, str1,
633           Vector((screen->w - (blue_text->get_text_width(str1) + white_text->get_text_width(str2)))/2, 340),
634           LAYER_FOREGROUND1+2);
635       context->draw_text(white_text, str2,
636           Vector(((screen->w - (blue_text->get_text_width(str1) + white_text->get_text_width(str2)))/2)+blue_text->get_text_width(str1), 340),
637           LAYER_FOREGROUND1+2);
638     }
639
640   if(Menu::current())
641     {
642       Menu::current()->draw(*context);
643       mouse_cursor->draw(*context);
644     }
645
646   context->do_drawing();
647 }
648
649 void
650 GameSession::process_menu()
651 {
652   Menu* menu = Menu::current();
653   if(menu)
654     {
655       menu->action();
656
657       if(menu == game_menu)
658         {
659           switch (game_menu->check())
660             {
661             case MNID_CONTINUE:
662               Ticks::pause_stop();
663               break;
664             case MNID_ABORTLEVEL:
665               Ticks::pause_stop();
666               exit_status = ES_LEVEL_ABORT;
667               break;
668             }
669         }
670       else if(menu == options_menu)
671         {
672           process_options_menu();
673         }
674       else if(menu == load_game_menu )
675         {
676           process_load_game_menu();
677         }
678     }
679 }
680
681 GameSession::ExitStatus
682 GameSession::run()
683 {
684   Menu::set_current(0);
685   current_ = this;
686   
687   int fps_cnt = 0;
688
689   frame_rate.start();
690
691   // Eat unneeded events
692   SDL_Event event;
693   while (SDL_PollEvent(&event)) {}
694
695   draw();
696
697   while (exit_status == ES_NONE)
698     {
699       /* Calculate the movement-factor */
700       double frame_ratio = frame_rate.get();
701
702       if(!frame_timer.check())
703         {
704           frame_timer.start(25);
705           ++global_frame_counter;
706         }
707
708       /* Handle events: */
709       currentsector->player->input.old_fire 
710         = currentsector->player->input.fire;
711
712       process_events();
713       process_menu();
714
715       // Update the world state and all objects in the world
716       // Do that with a constante time-delta so that the game will run
717       // determistic and not different on different machines
718       if(!game_pause && !Menu::current())
719         {
720           // Update the world
721           check_end_conditions();
722           if (end_sequence == ENDSEQUENCE_RUNNING)
723              action(frame_ratio/2);
724           else if(end_sequence == NO_ENDSEQUENCE)
725              action(frame_ratio);
726         }
727       else
728         {
729           ++pause_menu_frame;
730           SDL_Delay(50);
731         }
732
733       draw();
734
735       /* Time stops in pause mode */
736       if(game_pause || Menu::current())
737         {
738           continue;
739         }
740
741       frame_rate.update();
742
743       /* Handle time: */
744       if (!time_left.check() && currentsector->player->dying == DYING_NOT
745               && !end_sequence)
746         currentsector->player->kill(Player::KILL);
747
748       /* Handle music: */
749       if(currentsector->player->invincible_timer.check() && !end_sequence)
750         {
751           currentsector->play_music(HERRING_MUSIC);
752         }
753       /* are we low on time ? */
754       else if (time_left.get_left() < TIME_WARNING && !end_sequence)
755         {
756           currentsector->play_music(HURRYUP_MUSIC);
757         }
758       /* or just normal music? */
759       else if(currentsector->get_music_type() != LEVEL_MUSIC && !end_sequence)
760         {
761           currentsector->play_music(LEVEL_MUSIC);
762         }
763
764       /* Calculate frames per second */
765       if(show_fps)
766         {
767           ++fps_cnt;
768           fps_fps = (1000.0 / (float)fps_timer.get_gone()) * (float)fps_cnt;
769
770           if(!fps_timer.check())
771             {
772               fps_timer.start(1000);
773               fps_cnt = 0;
774             }
775         }
776     }
777   
778   return exit_status;
779 }
780
781 void
782 GameSession::respawn(const std::string& sector, const std::string& spawnpoint)
783 {
784   newsector = sector;
785   newspawnpoint = spawnpoint;
786 }
787
788 /* Bounce a brick: */
789 void bumpbrick(float x, float y)
790 {
791   Sector::current()->add_bouncy_brick(Vector(((int)(x + 1) / 32) * 32,
792                          (int)(y / 32) * 32));
793
794   SoundManager::get()->play_sound(IDToSound(SND_BRICK), Vector(x, y), Sector::current()->player->get_pos());
795 }
796
797 /* (Status): */
798 void
799 GameSession::drawstatus(DrawingContext& context)
800 {
801   char str[60];
802   
803   snprintf(str, 60, " %d", global_stats.get_points(SCORE_STAT));
804   context.draw_text(white_text, _("SCORE"), Vector(0, 0), LAYER_FOREGROUND1);
805   context.draw_text(gold_text, str, Vector(96, 0), LAYER_FOREGROUND1);
806
807   if(st_gl_mode == ST_GL_TEST)
808     {
809       context.draw_text(white_text, _("Press ESC To Return"), Vector(0,20),
810           LAYER_FOREGROUND1);
811     }
812
813   if(!time_left.check()) {
814     context.draw_text_center(white_text, _("TIME's UP"), Vector(0, 0),
815         LAYER_FOREGROUND1);
816   } else if (time_left.get_left() > TIME_WARNING || (global_frame_counter % 10) < 5) {
817     sprintf(str, " %d", time_left.get_left() / 1000 );
818     context.draw_text_center(white_text, _("TIME"),
819         Vector(0, 0), LAYER_FOREGROUND1);
820     context.draw_text_center(gold_text, str,
821         Vector(4*16, 0), LAYER_FOREGROUND1);
822   }
823
824   sprintf(str, " %d", player_status.distros);
825   context.draw_text(white_text, _("COINS"),
826       Vector(screen->w - white_text->get_text_width(_("COINS"))-white_text->get_text_width("   99"), 0),
827         LAYER_FOREGROUND1);
828   context.draw_text(gold_text, str,
829       Vector(screen->w - gold_text->get_text_width(" 99"), 0),LAYER_FOREGROUND1);
830
831   if (player_status.lives >= 5)
832     {
833       sprintf(str, "%dx", player_status.lives);
834       float x = screen->w - gold_text->get_text_width(str) - tux_life->w;
835       context.draw_text(gold_text, str, Vector(x, 20), LAYER_FOREGROUND1);
836       context.draw_surface(tux_life, Vector(screen->w - 16, 20),
837           LAYER_FOREGROUND1);
838     }
839   else
840     {
841       for(int i= 0; i < player_status.lives; ++i)
842         context.draw_surface(tux_life, 
843             Vector(screen->w - tux_life->w*4 +(tux_life->w*i), 20),
844             LAYER_FOREGROUND1);
845     }
846
847   context.draw_text(white_text, _("LIVES"),
848       Vector(screen->w - white_text->get_text_width(_("LIVES")) - white_text->get_text_width("   99"), 20),
849       LAYER_FOREGROUND1);
850
851   if(show_fps)
852     {
853       sprintf(str, "%2.1f", fps_fps);
854       context.draw_text(white_text, "FPS", 
855           Vector(screen->w - white_text->get_text_width("FPS     "), 40),
856           LAYER_FOREGROUND1);
857       context.draw_text(gold_text, str,
858           Vector(screen->w-4*16, 40), LAYER_FOREGROUND1);
859     }
860 }
861
862 void
863 GameSession::drawresultscreen(void)
864 {
865   char str[80];
866
867   DrawingContext context;
868   currentsector->background->draw(context);  
869
870   context.draw_text_center(blue_text, _("Result:"), Vector(0, 200),
871       LAYER_FOREGROUND1);
872
873   sprintf(str, _("SCORE: %d"), global_stats.get_points(SCORE_STAT));
874   context.draw_text_center(gold_text, str, Vector(0, 224), LAYER_FOREGROUND1);
875
876   sprintf(str, _("COINS: %d"), player_status.distros);
877   context.draw_text_center(gold_text, str, Vector(0, 256), LAYER_FOREGROUND1);
878
879   context.do_drawing();
880   
881   SDL_Event event;
882   wait_for_event(event,2000,5000,true);
883 }
884
885 std::string slotinfo(int slot)
886 {
887   std::string tmp;
888   std::string slotfile;
889   std::string title;
890   std::stringstream stream;
891   stream << slot;
892   slotfile = st_save_dir + "/slot" + stream.str() + ".stsg";
893
894   lisp_object_t* savegame = lisp_read_from_file(slotfile.c_str());
895   if (savegame)
896     {
897       LispReader reader(lisp_cdr(savegame));
898       reader.read_string("title", title);
899       lisp_free(savegame);
900     }
901
902   if (access(slotfile.c_str(), F_OK) == 0)
903     {
904       if (!title.empty())
905         tmp = "Slot " + stream.str() + " - " + title;
906       else
907         tmp = "Slot " + stream.str() + " - Savegame";
908     }
909   else
910     tmp = std::string(_("Slot")) + " " + stream.str() + " - " + std::string(_("Free"));
911
912   return tmp;
913 }
914
915 bool process_load_game_menu()
916 {
917   int slot = load_game_menu->check();
918
919   if(slot != -1 && load_game_menu->get_item_by_id(slot).kind == MN_ACTION)
920     {
921       std::stringstream stream;
922       stream << slot;
923       std::string slotfile = st_save_dir + "/slot" + stream.str() + ".stsg";
924
925       if (access(slotfile.c_str(), F_OK) != 0)
926         {
927           draw_intro();
928         }
929
930       // shrink_fade(Point((screen->w/2),(screen->h/2)), 1000);
931       fadeout(256);
932
933       DrawingContext context;
934       context.draw_text_center(white_text, "Loading...",
935                                Vector(0, screen->h/2), LAYER_FOREGROUND1);
936       context.do_drawing();
937
938       WorldMapNS::WorldMap worldmap;
939
940       // Load the game or at least set the savegame_file variable
941       worldmap.loadgame(slotfile);
942
943       worldmap.display();
944
945       Menu::set_current(main_menu);
946
947       Ticks::pause_stop();
948       return true;
949     }
950   else
951     {
952       return false;
953     }
954 }