main/scores.c

   1 /* $Id: scores.c,v 1.6 2004-08-28 23:17:45 schaffner Exp $ */
   2 /*
   3 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
   4 SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
   5 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
   6 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
   7 IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
   8 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
   9 FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
  10 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
  11 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
  12 COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
  13 */
  14
  15 /*
  16  *
  17  * Inferno High Scores and Statistics System
  18  *
  19  */
  20
  21 #ifdef HAVE_CONFIG_H
  22 #include <conf.h>
  23 #endif
  24
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include <string.h>
  28 #include <ctype.h>
  29
  30 #include "scores.h"
  31 #include "error.h"
  32 #include "pstypes.h"
  33 #include "gr.h"
  34 #include "mono.h"
  35 #include "key.h"
  36 #include "palette.h"
  37 #include "game.h"
  38 #include "gamefont.h"
  39 #include "u_mem.h"
  40 #include "songs.h"
  41 #include "newmenu.h"
  42 #include "menu.h"
  43 #include "player.h"
  44 #include "screens.h"
  45 #include "gamefont.h"
  46 #include "mouse.h"
  47 #include "joy.h"
  48 #include "timer.h"
  49 #include "text.h"
  50 #include "d_io.h"
  51 #include "strutil.h"
  52
  53 #define VERSION_NUMBER          1
  54 #define SCORES_FILENAME         "descent.hi"
  55 #define COOL_MESSAGE_LEN        50
  56 #define MAX_HIGH_SCORES         10
  57
  58 typedef struct stats_info {
  59         char    name[CALLSIGN_LEN+1];
  60         int             score;
  61         sbyte   starting_level;
  62         sbyte   ending_level;
  63         sbyte   diff_level;
  64         short   kill_ratio;             // 0-100
  65         short   hostage_ratio;  //
  66         int             seconds;                // How long it took in seconds...
  67 } stats_info;
  68
  69 typedef struct all_scores {
  70         char                    signature[3];                   // DHS
  71         sbyte           version;                                // version
  72         char                    cool_saying[COOL_MESSAGE_LEN];
  73         stats_info      stats[MAX_HIGH_SCORES];
  74 } all_scores;
  75
  76 static all_scores Scores;
  77
  78 stats_info Last_game;
  79
  80 char scores_filename[128];
  81
  82 #define XX  (7)
  83 #define YY  (-3)
  84
  85 #define LHX(x)          ((x)*(MenuHires?2:1))
  86 #define LHY(y)          ((y)*(MenuHires?2.4:1))
  87
  88
  89 char * get_scores_filename()
  90 {
  91 #ifndef RELEASE
  92         // Only use the MINER variable for internal developement
  93         char *p;
  94         p=getenv( "MINER" );
  95         if (p)  {
  96                 sprintf( scores_filename, "%s\\game\\%s", p, SCORES_FILENAME );
  97                 Assert(strlen(scores_filename) < 128);
  98                 return scores_filename;
  99         }
 100 #endif
 101         #ifdef MACINTOSH                // put the high scores into the data folder
 102         sprintf( scores_filename, ":Data:%s", SCORES_FILENAME );
 103         #else
 104         sprintf( scores_filename, "%s", SCORES_FILENAME );
 105         #endif
 106         return scores_filename;
 107 }
 108
 109 #ifndef D2_OEM
 110 #define COOL_SAYING TXT_REGISTER_DESCENT
 111 #else
 112 #define COOL_SAYING "Get all 30 levels of D2 from 1-800-INTERPLAY"
 113 #endif
 114
 115 void scores_read()
 116 {
 117         CFILE *fp;
 118         int fsize;
 119
 120         // clear score array...
 121         memset( &Scores, 0, sizeof(all_scores) );
 122
 123         fp = cfopen(get_scores_filename(), "rb");
 124         if (fp==NULL) {
 125                 int i;
 126
 127                 // No error message needed, code will work without a scores file
 128                 sprintf( Scores.cool_saying, COOL_SAYING );
 129                 sprintf( Scores.stats[0].name, "Parallax" );
 130                 sprintf( Scores.stats[1].name, "Matt" );
 131                 sprintf( Scores.stats[2].name, "Mike" );
 132                 sprintf( Scores.stats[3].name, "Adam" );
 133                 sprintf( Scores.stats[4].name, "Mark" );
 134                 sprintf( Scores.stats[5].name, "Jasen" );
 135                 sprintf( Scores.stats[6].name, "Samir" );
 136                 sprintf( Scores.stats[7].name, "Doug" );
 137                 sprintf( Scores.stats[8].name, "Dan" );
 138                 sprintf( Scores.stats[9].name, "Jason" );
 139
 140                 for (i=0; i<10; i++)
 141                         Scores.stats[i].score = (10-i)*1000;
 142                 return;
 143         }
 144
 145         fsize = cfilelength(fp);
 146
 147         if ( fsize != sizeof(all_scores) )      {
 148                 cfclose(fp);
 149                 return;
 150         }
 151         // Read 'em in...
 152         cfread(&Scores, sizeof(all_scores), 1, fp);
 153         cfclose(fp);
 154
 155         if ( (Scores.version!=VERSION_NUMBER)||(Scores.signature[0]!='D')||(Scores.signature[1]!='H')||(Scores.signature[2]!='S') )     {
 156                 memset( &Scores, 0, sizeof(all_scores) );
 157                 return;
 158         }
 159 }
 160
 161 void scores_write()
 162 {
 163         CFILE *fp;
 164
 165         fp = cfopen(get_scores_filename(), "wb");
 166         if (fp==NULL) {
 167                 nm_messagebox( TXT_WARNING, 1, TXT_OK, "%s\n'%s'", TXT_UNABLE_TO_OPEN, get_scores_filename()  );
 168                 return;
 169         }
 170
 171         Scores.signature[0]='D';
 172         Scores.signature[1]='H';
 173         Scores.signature[2]='S';
 174         Scores.version = VERSION_NUMBER;
 175         cfwrite(&Scores,sizeof(all_scores),1, fp);
 176         cfclose(fp);
 177 }
 178
 179 void int_to_string( int number, char *dest )
 180 {
 181         int i,l,c;
 182         char buffer[20],*p;
 183
 184         sprintf( buffer, "%d", number );
 185
 186         l = strlen(buffer);
 187         if (l<=3) {
 188                 // Don't bother with less than 3 digits
 189                 sprintf( dest, "%d", number );
 190                 return;
 191         }
 192
 193         c = 0;
 194         p=dest;
 195         for (i=l-1; i>=0; i-- ) {
 196                 if (c==3) {
 197                         *p++=',';
 198                         c = 0;
 199                 }
 200                 c++;
 201                 *p++ = buffer[i];
 202         }
 203         *p++ = '\0';
 204         strrev(dest);
 205 }
 206
 207 void scores_fill_struct(stats_info * stats)
 208 {
 209                 strcpy( stats->name, Players[Player_num].callsign );
 210                 stats->score = Players[Player_num].score;
 211                 stats->ending_level = Players[Player_num].level;
 212                 if (Players[Player_num].num_robots_total > 0 )
 213                         stats->kill_ratio = (Players[Player_num].num_kills_total*100)/Players[Player_num].num_robots_total;
 214                 else
 215                         stats->kill_ratio = 0;
 216
 217                 if (Players[Player_num].hostages_total > 0 )
 218                         stats->hostage_ratio = (Players[Player_num].hostages_rescued_total*100)/Players[Player_num].hostages_total;
 219                 else
 220                         stats->hostage_ratio = 0;
 221
 222                 stats->seconds = f2i(Players[Player_num].time_total)+(Players[Player_num].hours_total*3600);
 223
 224                 stats->diff_level = Difficulty_level;
 225                 stats->starting_level = Players[Player_num].starting_level;
 226 }
 227
 228 //char * score_placement[10] = { TXT_1ST, TXT_2ND, TXT_3RD, TXT_4TH, TXT_5TH, TXT_6TH, TXT_7TH, TXT_8TH, TXT_9TH, TXT_10TH };
 229
 230 void scores_maybe_add_player(int abort_flag)
 231 {
 232         char text1[COOL_MESSAGE_LEN+10];
 233         newmenu_item m[10];
 234         int i,position;
 235
 236         #ifdef APPLE_DEMO               // no high scores in apple oem version
 237         return;
 238         #endif
 239
 240         if ((Game_mode & GM_MULTI) && !(Game_mode & GM_MULTI_COOP))
 241                 return;
 242
 243         scores_read();
 244
 245         position = MAX_HIGH_SCORES;
 246         for (i=0; i<MAX_HIGH_SCORES; i++ )      {
 247                 if ( Players[Player_num].score > Scores.stats[i].score )        {
 248                         position = i;
 249                         break;
 250                 }
 251         }
 252
 253         if ( position == MAX_HIGH_SCORES ) {
 254                 if (abort_flag)
 255                         return;
 256                 scores_fill_struct( &Last_game );
 257         } else {
 258 //--            if ( Difficulty_level < 1 )     {
 259 //--                    nm_messagebox( "GRADUATION TIME!", 1, "Ok", "If you would had been\nplaying at a higher difficulty\nlevel, you would have placed\n#%d on the high score list.", position+1 );
 260 //--                    return;
 261 //--            }
 262
 263                 if ( position==0 )      {
 264                         strcpy( text1,  "" );
 265                         m[0].type = NM_TYPE_TEXT; m[0].text = TXT_COOL_SAYING;
 266                         m[1].type = NM_TYPE_INPUT; m[1].text = text1; m[1].text_len = COOL_MESSAGE_LEN-5;
 267                         newmenu_do( TXT_HIGH_SCORE, TXT_YOU_PLACED_1ST, 2, m, NULL );
 268                         strncpy( Scores.cool_saying, text1, COOL_MESSAGE_LEN );
 269                         if (strlen(Scores.cool_saying)<1)
 270                                 sprintf( Scores.cool_saying, "No Comment" );
 271                 } else {
 272                         nm_messagebox( TXT_HIGH_SCORE, 1, TXT_OK, "%s %s!", TXT_YOU_PLACED, *(&TXT_1ST + position) );
 273                 }
 274
 275                 // move everyone down...
 276                 for ( i=MAX_HIGH_SCORES-1; i>position; i-- )    {
 277                         Scores.stats[i] = Scores.stats[i-1];
 278                 }
 279
 280                 scores_fill_struct( &Scores.stats[position] );
 281
 282                 scores_write();
 283
 284         }
 285         scores_view(position);
 286 }
 287
 288 void scores_rprintf(int x, int y, char * format, ... )
 289 {
 290         va_list args;
 291         char buffer[128];
 292         int w, h, aw;
 293         char *p;
 294
 295         va_start(args, format );
 296         vsprintf(buffer,format,args);
 297         va_end(args);
 298
 299         //replace the digit '1' with special wider 1
 300         for (p=buffer;*p;p++)
 301                 if (*p=='1') *p=132;
 302
 303         gr_get_string_size(buffer, &w, &h, &aw );
 304
 305         gr_string( LHX(x)-w, LHY(y), buffer );
 306 }
 307
 308
 309 void scores_draw_item( int  i, stats_info * stats )
 310 {
 311         char buffer[20];
 312
 313                 int y;
 314
 315         WIN(DDGRLOCK(dd_grd_curcanv));
 316                 y = 7+70+i*9;
 317
 318                 if (i==0) y -= 8;
 319
 320                 if ( i==MAX_HIGH_SCORES )       {
 321                         y += 8;
 322                         //scores_rprintf( 17+33+XX, y+YY, "" );
 323                 } else {
 324                         scores_rprintf( 17+33+XX, y+YY, "%d.", i+1 );
 325                 }
 326
 327                 if (strlen(stats->name)==0) {
 328                         gr_printf( LHX(26+33+XX), LHY(y+YY), TXT_EMPTY );
 329                         WIN(DDGRUNLOCK(dd_grd_curcanv));
 330                         return;
 331                 }
 332                 gr_printf( LHX(26+33+XX), LHY(y+YY), "%s", stats->name );
 333                 int_to_string(stats->score, buffer);
 334                 scores_rprintf( 109+33+XX, y+YY, "%s", buffer );
 335
 336                 gr_printf( LHX(125+33+XX), LHY(y+YY), "%s", MENU_DIFFICULTY_TEXT(stats->diff_level) );
 337
 338                 if ( (stats->starting_level > 0 ) && (stats->ending_level > 0 ))
 339                         scores_rprintf( 192+33+XX, y+YY, "%d-%d", stats->starting_level, stats->ending_level );
 340                 else if ( (stats->starting_level < 0 ) && (stats->ending_level > 0 ))
 341                         scores_rprintf( 192+33+XX, y+YY, "S%d-%d", -stats->starting_level, stats->ending_level );
 342                 else if ( (stats->starting_level < 0 ) && (stats->ending_level < 0 ))
 343                         scores_rprintf( 192+33+XX, y+YY, "S%d-S%d", -stats->starting_level, -stats->ending_level );
 344                 else if ( (stats->starting_level > 0 ) && (stats->ending_level < 0 ))
 345                         scores_rprintf( 192+33+XX, y+YY, "%d-S%d", stats->starting_level, -stats->ending_level );
 346
 347                 {
 348                         int h, m, s;
 349                         h = stats->seconds/3600;
 350                         s = stats->seconds%3600;
 351                         m = s / 60;
 352                         s = s % 60;
 353                         scores_rprintf( 311-42+XX, y+YY, "%d:%02d:%02d", h, m, s );
 354                 }
 355         WIN(DDGRUNLOCK(dd_grd_curcanv));
 356 }
 357
 358 void scores_view(int citem)
 359 {
 360         fix t1;
 361         int i,done,looper;
 362         int k;
 363         sbyte fades[64] = { 1,1,1,2,2,3,4,4,5,6,8,9,10,12,13,15,16,17,19,20,22,23,24,26,27,28,28,29,30,30,31,31,31,31,31,30,30,29,28,28,27,26,24,23,22,20,19,17,16,15,13,12,10,9,8,6,5,4,4,3,2,2,1,1 };
 364
 365 ReshowScores:
 366         scores_read();
 367
 368         set_screen_mode(SCREEN_MENU);
 369
 370         WINDOS( dd_gr_set_current_canvas(NULL),
 371                                 gr_set_current_canvas(NULL)
 372         );
 373
 374         nm_draw_background(0,0,grd_curcanv->cv_bitmap.bm_w, grd_curcanv->cv_bitmap.bm_h );
 375
 376         grd_curcanv->cv_font = MEDIUM3_FONT;
 377
 378 WIN(DDGRLOCK(dd_grd_curcanv));
 379         gr_string( 0x8000, LHY(15), TXT_HIGH_SCORES );
 380
 381         grd_curcanv->cv_font = SMALL_FONT;
 382
 383         gr_set_fontcolor( BM_XRGB(31,26,5), -1 );
 384         gr_string(  LHX(31+33+XX), LHY(46+7+YY), TXT_NAME );
 385         gr_string(  LHX(82+33+XX), LHY(46+7+YY), TXT_SCORE );
 386         gr_string( LHX(127+33+XX), LHY(46+7+YY), TXT_SKILL );
 387         gr_string( LHX(170+33+XX), LHY(46+7+YY), TXT_LEVELS );
 388 //      gr_string( 202, 46, "Kills" );
 389 //      gr_string( 234, 46, "Rescues" );
 390         gr_string( LHX(288-42+XX), LHY(46+7+YY), TXT_TIME );
 391
 392         if ( citem < 0 )
 393                 gr_string( 0x8000, LHY(175), TXT_PRESS_CTRL_R );
 394
 395         gr_set_fontcolor( BM_XRGB(28,28,28), -1 );
 396
 397         gr_printf( 0x8000, LHY(31), "%c%s%c  - %s", 34, Scores.cool_saying, 34, Scores.stats[0].name );
 398 WIN(DDGRUNLOCK(dd_grd_curcanv));
 399
 400         for (i=0; i<MAX_HIGH_SCORES; i++ )              {
 401                 //@@if (i==0)   {
 402                 //@@    gr_set_fontcolor( BM_XRGB(28,28,28), -1 );
 403                 //@@} else {
 404                 //@@    gr_set_fontcolor( gr_fade_table[BM_XRGB(28,28,28)+((28-i*2)*256)], -1 );
 405                 //@@}
 406
 407                 gr_set_fontcolor( BM_XRGB(28-i*2,28-i*2,28-i*2), -1 );
 408                 scores_draw_item( i, &Scores.stats[i] );
 409         }
 410
 411         gr_palette_fade_in( gr_palette,32, 0);
 412
 413 #ifdef OGL
 414         gr_update();
 415 #endif
 416
 417         game_flush_inputs();
 418
 419         done = 0;
 420         looper = 0;
 421
 422         while(!done)    {
 423                 if ( citem > -1 )       {
 424
 425                         t1      = timer_get_fixed_seconds();
 426                         while ( timer_get_fixed_seconds() < t1+F1_0/128 );
 427
 428                         //@@gr_set_fontcolor( gr_fade_table[fades[looper]*256+BM_XRGB(28,28,28)], -1 );
 429                         gr_set_fontcolor( BM_XRGB(7+fades[looper],7+fades[looper],7+fades[looper]), -1 );
 430                         looper++;
 431                         if (looper>63) looper=0;
 432                         if ( citem ==  MAX_HIGH_SCORES )
 433                                 scores_draw_item( MAX_HIGH_SCORES, &Last_game );
 434                         else
 435                                 scores_draw_item( citem, &Scores.stats[citem] );
 436                         gr_update();
 437                 }
 438
 439                 for (i=0; i<4; i++ )
 440                         if (joy_get_button_down_cnt(i)>0) done=1;
 441                 for (i=0; i<3; i++ )
 442                         if (mouse_button_down_count(i)>0) done=1;
 443
 444                 //see if redbook song needs to be restarted
 445                 songs_check_redbook_repeat();
 446
 447         #ifdef WINDOWS
 448                 {
 449                         MSG msg;
 450
 451                         DoMessageStuff(&msg);
 452
 453                         if (_RedrawScreen) {
 454                                 _RedrawScreen = FALSE;
 455                                 goto ReshowScores;
 456                         }
 457
 458                         DDGRRESTORE;
 459                 }
 460         #endif
 461
 462                 k = key_inkey();
 463                 switch( k )     {
 464                 case KEY_CTRLED+KEY_R:
 465                         if ( citem < 0 )                {
 466                                 // Reset scores...
 467                                 if ( nm_messagebox( NULL, 2,  TXT_NO, TXT_YES, TXT_RESET_HIGH_SCORES )==1 )     {
 468                                         cfile_delete(get_scores_filename());
 469                                         gr_palette_fade_out( gr_palette, 32, 0 );
 470                                         goto ReshowScores;
 471                                 }
 472                         }
 473                         break;
 474                 case KEY_BACKSP:                                Int3(); k = 0; break;
 475                 case KEY_PRINT_SCREEN:          save_screen_shot(0); k = 0; break;
 476
 477                 case KEY_ENTER:
 478                 case KEY_SPACEBAR:
 479                 case KEY_ESC:
 480                         done=1;
 481                         break;
 482                 }
 483         }
 484
 485 // Restore background and exit
 486         gr_palette_fade_out( gr_palette, 32, 0 );
 487
 488 #ifdef WINDOWS
 489         DDGRRESTORE;
 490 #endif
 491
 492         WINDOS( dd_gr_set_current_canvas(NULL),
 493                                 gr_set_current_canvas(NULL)
 494         );
 495
 496         game_flush_inputs();
 497
 498 }