/*
THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
*/

/*
 *
 * Kill matrix displayed at end of level.
 * This source file contains code for both newer networking protocols and IPX. Pretty much redundant stuff but lets keep a clean cut until IPX dies completly.
 *
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <stdarg.h>

#include "error.h"
#include "pstypes.h"
#include "gr.h"
#include "key.h"
#include "palette.h"
#include "game.h"
#include "window.h"
#include "gamefont.h"
#include "u_mem.h"
#include "newmenu.h"
#include "menu.h"
#include "player.h"
#include "screens.h"
#include "gamefont.h"
#include "cntrlcen.h"
#include "mouse.h"
#include "joy.h"
#include "timer.h"
#include "text.h"
#include "rbaudio.h"
#include "multi.h"
#include "kmatrix.h"
#include "gauges.h"
#include "pcx.h"

#ifdef OGL
#include "ogl_init.h"
#endif

#define CENTERING_OFFSET(x) ((300 - (70 + (x)*25 ))/2)
#define CENTERSCREEN (SWIDTH/2)

/* IPX CODE - START */

#define MAX_VIEW_TIME       F1_0*15
#define ENDLEVEL_IDLE_TIME  F1_0*10
fix StartAbortMenuTime;
char ConditionLetters[]={' ','P','E','D','E','E','V','W'};
extern void newmenu_close();

void kmatrix_ipx_reactor (char *message);
void kmatrix_ipx_phallic ();
void kmatrix_ipx_redraw_coop();

void kmatrix_ipx_draw_item( int  i, int *sorted )
{
  int j, x, y;
  char temp[10];

  y = FSPACY(50+i*9);

  // Print player name.

  gr_printf( FSPACX(CENTERING_OFFSET(N_players)), y, "%s", Players[sorted[i]].callsign );

  gr_printf (FSPACX(CENTERING_OFFSET(N_players)-15),y,"%c",ConditionLetters[Players[sorted[i]].connected]);

  for (j=0; j<N_players; j++) {

    x = FSPACX(70 + CENTERING_OFFSET(N_players) + j*25);

    if (sorted[i]==sorted[j]) {
      if (kill_matrix[sorted[i]][sorted[j]] == 0) {
        gr_set_fontcolor( BM_XRGB(10,10,10),-1 );
        gr_printf( x, y, "%d", kill_matrix[sorted[i]][sorted[j]] );
      } else {
        gr_set_fontcolor( BM_XRGB(25,25,25),-1 );
        gr_printf( x, y, "-%d", kill_matrix[sorted[i]][sorted[j]] );
      }
    } else {
      if (kill_matrix[sorted[i]][sorted[j]] <= 0) {
        gr_set_fontcolor( BM_XRGB(10,10,10),-1 );
        gr_printf( x, y, "%d", kill_matrix[sorted[i]][sorted[j]] );
      } else {
        gr_set_fontcolor( BM_XRGB(25,25,25),-1 );
        gr_printf( x, y, "%d", kill_matrix[sorted[i]][sorted[j]] );
      }
    }
  }

  if (Players[sorted[i]].net_killed_total+Players[sorted[i]].net_kills_total==0)
    sprintf (temp,"NA");
  else
   sprintf (temp,"%d%%",(int)((float)((float)Players[sorted[i]].net_kills_total/((float)Players[sorted[i]].net_killed_total+(float)Players[sorted[i]].net_kills_total))*100.0));

  x = FSPACX(60 + CENTERING_OFFSET(N_players) + N_players*25);
  gr_set_fontcolor( BM_XRGB(25,25,25),-1 );
  gr_printf( x ,y,"%4d/%s",Players[sorted[i]].net_kills_total,temp);
}

void kmatrix_ipx_draw_coop_item( int  i, int *sorted )
{
  int  x, y;

  y = FSPACY(50+i*9);

  // Print player name.

  gr_printf( FSPACX(CENTERING_OFFSET(N_players)), y, "%s", Players[sorted[i]].callsign );
  gr_printf (FSPACX(CENTERING_OFFSET(N_players)-15),y,"%c",ConditionLetters[Players[sorted[i]].connected]);

  x = CENTERSCREEN;

  gr_set_fontcolor( BM_XRGB(60,40,10),-1 );
  gr_printf( x, y, "%d", Players[sorted[i]].score );

  x = CENTERSCREEN+FSPACX(50);

  gr_set_fontcolor( BM_XRGB(60,40,10),-1 );
  gr_printf( x, y, "%d", Players[sorted[i]].net_killed_total);
}

void kmatrix_ipx_draw_names(int *sorted)
{
  int j, x, color;

  for (j=0; j<N_players; j++) {
    if (Game_mode & GM_TEAM)
      color = get_team(sorted[j]);
    else
      color = sorted[j];

    x = FSPACX (70 + CENTERING_OFFSET(N_players) + j*25);

    if (Players[sorted[j]].connected==CONNECT_DISCONNECTED)
      gr_set_fontcolor(gr_find_closest_color(31,31,31),-1);
    else
      gr_set_fontcolor(BM_XRGB(player_rgb[color].r,player_rgb[color].g,player_rgb[color].b),-1 );

    gr_printf( x, FSPACY(40), "%c", Players[sorted[j]].callsign[0] );
  }

  x = FSPACX(72 + CENTERING_OFFSET(N_players) + N_players*25);
  gr_set_fontcolor( BM_XRGB(31,31,31),-1 );
  gr_printf( x, FSPACY(40), "K/E");
}

void kmatrix_ipx_draw_coop_names(int *sorted)
{
  sorted=sorted;

  gr_set_fontcolor( BM_XRGB(63,31,31),-1 );
  gr_printf( CENTERSCREEN, FSPACY(40), "SCORE");
  gr_set_fontcolor( BM_XRGB(63,31,31),-1 );
  gr_printf( CENTERSCREEN+FSPACX(50), FSPACY(40), "DEATHS");
}

void kmatrix_ipx_draw_deaths(int *sorted)
{
  int y,x;
  char reactor_message[50];

  sorted=sorted;

  y = FSPACY(55 + 72 + 35);
  x = FSPACX(35);

  {
    int sw, sh, aw;

    gr_set_fontcolor(gr_find_closest_color(63,20,0),-1);
    gr_get_string_size("P-Playing E-Escaped D-Died", &sw, &sh, &aw);

    gr_printf( CENTERSCREEN-(sw/2), y,"P-Playing E-Escaped D-Died");

    y+=(sh+5);
    gr_get_string_size("V-Viewing scores W-Waiting", &sw, &sh, &aw);

    gr_printf( CENTERSCREEN-(sw/2), y,"V-Viewing scores W-Waiting");

  }

  y+=FSPACY(20);

  {
    int sw, sh, aw;
    gr_set_fontcolor(gr_find_closest_color(63,63,63),-1);

    if (Players[Player_num].connected==CONNECT_KMATRIX_WAITING)
    {
      gr_get_string_size("Waiting for other players...",&sw, &sh, &aw);
      gr_printf( CENTERSCREEN-(sw/2), y,"Waiting for other players...");
    }
    else
    {
      gr_get_string_size(TXT_PRESS_ANY_KEY2, &sw, &sh, &aw);
      gr_printf( CENTERSCREEN-(sw/2), y, TXT_PRESS_ANY_KEY2);
    }
  }

  if (Countdown_seconds_left <=0)
    kmatrix_ipx_reactor(TXT_REACTOR_EXPLODED);
  else
  {
    sprintf((char *)&reactor_message, "%s: %d %s  ", TXT_TIME_REMAINING, Countdown_seconds_left, TXT_SECONDS);
    kmatrix_ipx_reactor ((char *)&reactor_message);
  }

  if (Game_mode & GM_HOARD) 
    kmatrix_ipx_phallic();
}

void kmatrix_ipx_reactor (char *message)
{
  static char oldmessage[50]={0};
  int sw, sh, aw;

  grd_curcanv->cv_font = GAME_FONT;

  if (oldmessage[0]!=0)
  {
    gr_set_fontcolor(gr_find_closest_color(0,0,0),-1);
    gr_get_string_size(oldmessage, &sw, &sh, &aw);
  }

  gr_set_fontcolor(gr_find_closest_color(0,32,63),-1);
  gr_get_string_size(message, &sw, &sh, &aw);
  gr_printf( CENTERSCREEN-(sw/2), FSPACY(55+72+12), message);
  strcpy ((char *)&oldmessage,message);
}

extern int PhallicLimit,PhallicMan;

void kmatrix_ipx_phallic ()
{
  int sw, sh, aw;
  char message[80];

  if (!(Game_mode & GM_HOARD))
    return;

  if (PhallicMan==-1)
    strcpy (message,"There was no record set for this level.");
  else
    sprintf (message,"%s had the best record at %d points.",Players[PhallicMan].callsign,PhallicLimit);

  grd_curcanv->cv_font = GAME_FONT;
  gr_set_fontcolor(gr_find_closest_color(63,63,63),-1);
  gr_get_string_size(message, &sw, &sh, &aw);
  gr_printf( CENTERSCREEN-(sw/2), FSPACY(55+72+3), message);
}

void kmatrix_ipx_redraw()
{
  int i, pcx_error, color;
  int sorted[MAX_NUM_NET_PLAYERS];

  pcx_error = pcx_read_fullscr(STARS_BACKGROUND, gr_palette);
  Assert(pcx_error == PCX_ERROR_NONE);

  if (Game_mode & GM_MULTI_COOP)
  {
    kmatrix_ipx_redraw_coop();
    return;
  }

  multi_sort_kill_list();

  gr_set_current_canvas(NULL);

  grd_curcanv->cv_font = MEDIUM3_FONT;

  if (Game_mode & GM_CAPTURE)
    gr_string( 0x8000, FSPACY(10), "CAPTURE THE FLAG SUMMARY");
  else if (Game_mode & GM_HOARD)
    gr_string( 0x8000, FSPACY(10), "HOARD SUMMARY");
  else
    gr_string( 0x8000, FSPACY(10), TXT_KILL_MATRIX_TITLE);

  grd_curcanv->cv_font = GAME_FONT;

  multi_get_kill_list(sorted);

  kmatrix_ipx_draw_names(sorted);

  for (i=0; i<N_players; i++ )  {
    if (Game_mode & GM_TEAM)
      color = get_team(sorted[i]);
    else
      color = sorted[i];

    if (Players[sorted[i]].connected==CONNECT_DISCONNECTED)
      gr_set_fontcolor(gr_find_closest_color(31,31,31),-1);
    else
      gr_set_fontcolor(BM_XRGB(player_rgb[color].r,player_rgb[color].g,player_rgb[color].b),-1 );

    kmatrix_ipx_draw_item( i, sorted );
  }

  kmatrix_ipx_draw_deaths(sorted);

  gr_palette_load(gr_palette);
}

void kmatrix_ipx_redraw_coop()
{
  int i, color;
  int sorted[MAX_NUM_NET_PLAYERS];

  multi_sort_kill_list();

  gr_set_current_canvas(NULL);

  grd_curcanv->cv_font = MEDIUM3_FONT;
  gr_string( 0x8000, FSPACY(10), "COOPERATIVE SUMMARY");

  grd_curcanv->cv_font = GAME_FONT;

  multi_get_kill_list(sorted);

  kmatrix_ipx_draw_coop_names(sorted);

  for (i=0; i<N_players; i++ )  {

    color = sorted[i];

    if (Players[sorted[i]].connected==CONNECT_DIED_IN_MINE)
      gr_set_fontcolor(gr_find_closest_color(31,31,31),-1);
    else
      gr_set_fontcolor(BM_XRGB(player_rgb[color].r,player_rgb[color].g,player_rgb[color].b),-1 );

    kmatrix_ipx_draw_coop_item( i, sorted );
  }

  kmatrix_ipx_draw_deaths(sorted);

  gr_palette_load(gr_palette);
}

void kmatrix_ipx_view(int network)
{
  int i, k, done,choice;
  fix entry_time = timer_get_fixed_seconds();
  int key;
  int oldstates[MAX_PLAYERS];
  int num_ready,num_escaped;

  for (i=0;i<MAX_NUM_NET_PLAYERS;i++)
    digi_kill_sound_linked_to_object (Players[i].objnum);

  set_screen_mode( SCREEN_MENU );

  game_flush_inputs();

  done = 0;

  for (i=0;i<N_players;i++)
    oldstates[i]=Players[i].connected;

  if (network)
      multi_endlevel(&key);

  while(!done)
  {
		timer_delay2(50);
		kmatrix_ipx_redraw();

      //see if redbook song needs to be restarted
      RBACheckFinishedHook();

      k = key_inkey();
      switch( k ) {
        case KEY_ENTER:
        case KEY_SPACEBAR:
          if (is_D2_OEM)
          {
            if (Current_level_num==8)
            {
              Players[Player_num].connected=CONNECT_DISCONNECTED;
              if (network)
                multi_send_endlevel_packet();
              multi_leave_game();
				if (Game_wind)
					window_close(Game_wind);
              return;
            }
          }

          Players[Player_num].connected=CONNECT_KMATRIX_WAITING;
          if (network)	
            multi_send_endlevel_packet();
          break;

        case KEY_ESC:
          if (Game_mode & GM_NETWORK)
          {
            StartAbortMenuTime=timer_get_fixed_seconds();
            choice=nm_messagebox1( NULL,multi_endlevel_poll2, NULL, 2, TXT_YES, TXT_NO, TXT_ABORT_GAME );
          }
          else
            choice=nm_messagebox( NULL, 2, TXT_YES, TXT_NO, TXT_ABORT_GAME );
          if (choice==0)
          {
            Players[Player_num].connected=CONNECT_DISCONNECTED;
            if (network)
              multi_send_endlevel_packet();
            multi_leave_game();
			  if (Game_wind)
				  window_close(Game_wind);
            return;
          }
          break;

          case KEY_PRINT_SCREEN:
            save_screen_shot(0);
            break;

          case KEY_BACKSP:
            Int3();
            break;

          default:
            break;
      }

      if (timer_get_fixed_seconds() >= (entry_time+MAX_VIEW_TIME) && Players[Player_num].connected!=CONNECT_KMATRIX_WAITING)
      {
        if (is_D2_OEM)
        {
          if (Current_level_num==8)
          {
            Players[Player_num].connected=CONNECT_DISCONNECTED;
            if (network)
              multi_send_endlevel_packet();
            multi_leave_game();
			  if (Game_wind)
				  window_close(Game_wind);
            return;
          }
        }

        Players[Player_num].connected=CONNECT_KMATRIX_WAITING;
        if (network)
          multi_send_endlevel_packet();
      }

      if (network && (Game_mode & GM_NETWORK))
      {
        multi_endlevel_poll1();

        for (num_escaped=0,num_ready=0,i=0;i<N_players;i++)
        {
          if (Players[i].connected && i!=Player_num)
          {
            // Check timeout for idle players
            if (timer_get_fixed_seconds() > Netgame.players[i].LastPacketTime+ENDLEVEL_IDLE_TIME)
            {
              Players[i].connected = CONNECT_DISCONNECTED;
            }
          }

		  // HACK: If a player legally exits kmatrix loop he will send the previous connect byte which can invalidate us from setting him to ready and let us stuck here forever... it's stupid to solve it this way, but for now I have no better idea.
		  if ((oldstates[i]==CONNECT_END_MENU || oldstates[i]==CONNECT_KMATRIX_WAITING) && // player was viewing scores before...
			(Players[i].connected!=CONNECT_DISCONNECTED || Players[i].connected!=CONNECT_END_MENU || Players[i].connected!=CONNECT_KMATRIX_WAITING)) // ... but now he sends neither disconnect or further waiting signal - so he MUST be out of kmatrix already
			  Players[i].connected=CONNECT_KMATRIX_WAITING;

          if (Players[i].connected!=oldstates[i])
          {
            if (ConditionLetters[Players[i].connected]!=ConditionLetters[oldstates[i]])
            oldstates[i]=Players[i].connected;
            multi_send_endlevel_packet();
          }

          if (Players[i].connected==CONNECT_DISCONNECTED || Players[i].connected==CONNECT_KMATRIX_WAITING)
            num_ready++;

          if (Players[i].connected!=CONNECT_PLAYING)
            num_escaped++;
        }

        if (num_ready>=N_players)
          done=1;
        if (num_escaped>=N_players)
          Countdown_seconds_left=-1;
      }
		gr_flip();
  }

  Players[Player_num].connected=CONNECT_KMATRIX_WAITING;

  if (network)
    multi_send_endlevel_packet();  // make sure

  game_flush_inputs();

	newmenu_close();
}

/* IPX CODE - END */

/* NEW CODE - START */

#define KMATRIX_VIEW_SEC 7 // Time after reactor explosion until new level - in seconds
void kmatrix_phallic ();
void kmatrix_redraw_coop();

void kmatrix_draw_item( int  i, int *sorted )
{
	int j, x, y;
	char temp[10];

	y = FSPACY(50+i*9);
	gr_printf( FSPACX(CENTERING_OFFSET(N_players)), y, "%s", Players[sorted[i]].callsign );

	for (j=0; j<N_players; j++)
	{
		x = FSPACX(70 + CENTERING_OFFSET(N_players) + j*25);

		if (sorted[i]==sorted[j])
		{
			if (kill_matrix[sorted[i]][sorted[j]] == 0)
			{
				gr_set_fontcolor( BM_XRGB(10,10,10),-1 );
				gr_printf( x, y, "%d", kill_matrix[sorted[i]][sorted[j]] );
			}
			else
			{
				gr_set_fontcolor( BM_XRGB(25,25,25),-1 );
				gr_printf( x, y, "-%d", kill_matrix[sorted[i]][sorted[j]] );
			}
		}
		else
		{
			if (kill_matrix[sorted[i]][sorted[j]] <= 0)
			{
				gr_set_fontcolor( BM_XRGB(10,10,10),-1 );
				gr_printf( x, y, "%d", kill_matrix[sorted[i]][sorted[j]] );
			}
			else
			{
				gr_set_fontcolor( BM_XRGB(25,25,25),-1 );
				gr_printf( x, y, "%d", kill_matrix[sorted[i]][sorted[j]] );
			}
		}
	}

	if (Players[sorted[i]].net_killed_total+Players[sorted[i]].net_kills_total==0)
		sprintf (temp,"NA");
	else
		sprintf (temp,"%d%%",(int)((float)((float)Players[sorted[i]].net_kills_total/((float)Players[sorted[i]].net_killed_total+(float)Players[sorted[i]].net_kills_total))*100.0));

	x = FSPACX(60 + CENTERING_OFFSET(N_players) + N_players*25);
	gr_set_fontcolor( BM_XRGB(25,25,25),-1 );
	gr_printf( x ,y,"%4d/%s",Players[sorted[i]].net_kills_total,temp);
}

void kmatrix_draw_coop_item( int  i, int *sorted )
{
	int  x, y;

	y = FSPACY(50+i*9);
	gr_printf( FSPACX(CENTERING_OFFSET(N_players)), y, "%s", Players[sorted[i]].callsign );
	x = CENTERSCREEN;
	gr_set_fontcolor( BM_XRGB(60,40,10),-1 );
	gr_printf( x, y, "%d", Players[sorted[i]].score );
	x = CENTERSCREEN+FSPACX(50);
	gr_set_fontcolor( BM_XRGB(60,40,10),-1 );
	gr_printf( x, y, "%d", Players[sorted[i]].net_killed_total);
}

void kmatrix_draw_names(int *sorted)
{
	int j, x, color;

	for (j=0; j<N_players; j++)
	{
		if (Game_mode & GM_TEAM)
			color = get_team(sorted[j]);
		else
			color = sorted[j];

		x = FSPACX (70 + CENTERING_OFFSET(N_players) + j*25);

		if (Players[sorted[j]].connected==CONNECT_DISCONNECTED)
			gr_set_fontcolor(gr_find_closest_color(31,31,31),-1);
		else
			gr_set_fontcolor(BM_XRGB(player_rgb[color].r,player_rgb[color].g,player_rgb[color].b),-1 );

		gr_printf( x, FSPACY(40), "%c", Players[sorted[j]].callsign[0] );
	}

	x = FSPACX(72 + CENTERING_OFFSET(N_players) + N_players*25);
	gr_set_fontcolor( BM_XRGB(31,31,31),-1 );
	gr_printf( x, FSPACY(40), "K/E");
}

void kmatrix_draw_coop_names(int *sorted)
{
	sorted=sorted;

	gr_set_fontcolor( BM_XRGB(63,31,31),-1 );
	gr_printf( CENTERSCREEN, FSPACY(40), "SCORE");
	gr_set_fontcolor( BM_XRGB(63,31,31),-1 );
	gr_printf( CENTERSCREEN+FSPACX(50), FSPACY(40), "DEATHS");
}

extern int PhallicLimit,PhallicMan;

void kmatrix_phallic ()
{
	int sw, sh, aw;
	char message[80];

	if (PhallicMan==-1)
		strcpy (message,"There was no record set for this level.");
	else
		sprintf (message,"%s had the best record at %d points.",Players[PhallicMan].callsign,PhallicLimit);

	grd_curcanv->cv_font = GAME_FONT;
	gr_set_fontcolor(gr_find_closest_color(63,63,63),-1);
	gr_get_string_size(message, &sw, &sh, &aw);
	gr_printf( CENTERSCREEN-(sw/2), FSPACY(55+72+3), message);
}

void kmatrix_status_msg (fix time, int reactor)
{
	grd_curcanv->cv_font = GAME_FONT;
	gr_set_fontcolor(gr_find_closest_color(255,255,255),-1);

	if (reactor)
		gr_printf(0x8000, SHEIGHT-LINE_SPACING, "Waiting for players to finish level. Reactor time: T-%d", time);
	else
		gr_printf(0x8000, SHEIGHT-LINE_SPACING, "Level finished. Wait (%d) to proceed or ESC to Quit.", time);
}

void kmatrix_redraw()
{
	int i, pcx_error, color;
	int sorted[MAX_NUM_NET_PLAYERS];

	pcx_error = pcx_read_fullscr(STARS_BACKGROUND, gr_palette);
	Assert(pcx_error == PCX_ERROR_NONE);

	if (Game_mode & GM_MULTI_COOP)
	{
		kmatrix_redraw_coop();
	}
	else
	{
		multi_sort_kill_list();
		gr_set_current_canvas(NULL);
		grd_curcanv->cv_font = MEDIUM3_FONT;

		if (Game_mode & GM_CAPTURE)
			gr_string( 0x8000, FSPACY(10), "CAPTURE THE FLAG SUMMARY");
		else if (Game_mode & GM_HOARD)
			gr_string( 0x8000, FSPACY(10), "HOARD SUMMARY");
		else
			gr_string( 0x8000, FSPACY(10), TXT_KILL_MATRIX_TITLE);

		grd_curcanv->cv_font = GAME_FONT;
		multi_get_kill_list(sorted);
		kmatrix_draw_names(sorted);

		for (i=0; i<N_players; i++ )
		{
			if (Game_mode & GM_TEAM)
				color = get_team(sorted[i]);
			else
				color = sorted[i];

			if (Players[sorted[i]].connected==CONNECT_DISCONNECTED)
				gr_set_fontcolor(gr_find_closest_color(31,31,31),-1);
			else
				gr_set_fontcolor(BM_XRGB(player_rgb[color].r,player_rgb[color].g,player_rgb[color].b),-1 );

			kmatrix_draw_item( i, sorted );
		}
	}

	gr_palette_load(gr_palette);
}

void kmatrix_redraw_coop()
{
	int i, color;
	int sorted[MAX_NUM_NET_PLAYERS];

	multi_sort_kill_list();
	gr_set_current_canvas(NULL);
	grd_curcanv->cv_font = MEDIUM3_FONT;
	gr_string( 0x8000, FSPACY(10), "COOPERATIVE SUMMARY");
	grd_curcanv->cv_font = GAME_FONT;
	multi_get_kill_list(sorted);
	kmatrix_draw_coop_names(sorted);

	for (i=0; i<N_players; i++ )
	{
		color = sorted[i];

		if (Players[sorted[i]].connected==CONNECT_DISCONNECTED)
			gr_set_fontcolor(gr_find_closest_color(31,31,31),-1);
		else
			gr_set_fontcolor(BM_XRGB(player_rgb[color].r,player_rgb[color].g,player_rgb[color].b),-1 );

		kmatrix_draw_coop_item( i, sorted );
	}

	gr_palette_load(gr_palette);
}

void kmatrix_view(int network)
{
	int done = 0, i = 0, k = 0, choice = 0;
	fix end_time = -1;

	set_screen_mode( SCREEN_MENU );
	game_flush_inputs();

	for (i=0;i<MAX_NUM_NET_PLAYERS;i++)
		digi_kill_sound_linked_to_object (Players[i].objnum);

	while (!done)
	{
		int playing = 0;
		fix time = timer_get_fixed_seconds();
		
		timer_delay2(50);
		kmatrix_redraw();
		RBACheckFinishedHook(); //see if redbook song needs to be restarted

		if (network)
			multi_do_protocol_frame(0, 1);

		// Check if all connected players are also looking at this screen ...
		for (i = 0; i < MAX_PLAYERS; i++)
			if (Players[i].connected)
				if (Players[i].connected != CONNECT_END_MENU && Players[i].connected != CONNECT_DIED_IN_MINE)
					playing = 1;

		// ... and let the reactor blow sky high!
		if (!playing)
			Countdown_seconds_left = -1;

		// If Reactor is finished and end_time not inited, set the time when we will exit this loop
		if (end_time == -1 && Countdown_seconds_left < 0 && !playing)
			end_time = time + (KMATRIX_VIEW_SEC * F1_0);

		// Check if end_time has been reached and exit loop
		if (time >= end_time && end_time != -1)
			done = 1;

		if (playing)
			kmatrix_status_msg(Countdown_seconds_left, 1);
		else
			kmatrix_status_msg(f2i(time-end_time), 0);

		k = key_inkey();
		switch( k )
		{
			case KEY_ESC:
				if (network)
				{
					StartAbortMenuTime=timer_get_fixed_seconds();
					choice=nm_messagebox1( NULL,multi_endlevel_poll2, NULL, 2, TXT_YES, TXT_NO, TXT_ABORT_GAME );
				}
				else
					choice=nm_messagebox( NULL, 2, TXT_YES, TXT_NO, TXT_ABORT_GAME );

				if (choice==0)
				{
					Players[Player_num].connected=CONNECT_DISCONNECTED;

					if (network)
						multi_send_endlevel_packet();

					multi_leave_game();
					if (Game_wind)
						window_close(Game_wind);
					return;
				}
				break;

			case KEY_PRINT_SCREEN:
				save_screen_shot(0);
				break;

			default:
				break;
		}

		gr_flip();
	}

	if (network)
		multi_send_endlevel_packet();  // make sure

	game_flush_inputs();
	newmenu_close();

	if (is_D2_OEM)
	{
		if (Current_level_num==8)
		{
			Players[Player_num].connected=CONNECT_DISCONNECTED;

			if (network)
				multi_send_endlevel_packet();

			multi_leave_game();
			if (Game_wind)
				window_close(Game_wind);
			return;
		}
	}
}

/* NEW CODE - END */