/*
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.
*/

/*
 *
 * Inferno main menu.
 *
 */

#include <stdio.h>
#include <string.h>

#include "menu.h"
#include "inferno.h"
#include "game.h"
#include "gr.h"
#include "key.h"
#include "iff.h"
#include "u_mem.h"
#include "error.h"
#include "bm.h"
#include "screens.h"
#include "joy.h"
#include "vecmat.h"
#include "effects.h"
#include "slew.h"
#include "gamemine.h"
#include "gamesave.h"
#include "palette.h"
#include "args.h"
#include "newdemo.h"
#include "timer.h"
#include "sounds.h"
#include "gameseq.h"
#include "text.h"
#include "gamefont.h"
#include "newmenu.h"
#include "scores.h"
#include "playsave.h"
#include "kconfig.h"
#include "titles.h"
#include "credits.h"
#include "texmap.h"
#include "polyobj.h"
#include "state.h"
#include "mission.h"
#include "songs.h"
#include "config.h"
#include "movie.h"
#include "gamepal.h"
#include "gauges.h"
#include "powerup.h"
#include "strutil.h"
#include "multi.h"
#ifdef USE_IPX
#include "net_ipx.h"
#endif
#ifdef USE_UDP
#include "net_udp.h"
#endif
#ifdef EDITOR
#include "editor/editor.h"
#endif


// Menu IDs...
enum MENUS
{
    MENU_NEW_GAME = 0,
    MENU_GAME,
    MENU_EDITOR,
    MENU_VIEW_SCORES,
    MENU_QUIT,
    MENU_LOAD_GAME,
    MENU_SAVE_GAME,
    MENU_DEMO_PLAY,
    MENU_LOAD_LEVEL,
    MENU_CONFIG,
    MENU_REJOIN_NETGAME,
    MENU_DIFFICULTY,
    MENU_HELP,
    MENU_NEW_PLAYER,
    #if defined(USE_UDP) || defined (USE_IPX)
        MENU_MULTIPLAYER,
    #endif

    MENU_SHOW_CREDITS,
    MENU_ORDER_INFO,
    MENU_PLAY_SONG,

    #ifdef USE_UDP
    MENU_START_UDP_NETGAME,
    MENU_JOIN_MANUAL_UDP_NETGAME,
    MENU_JOIN_LIST_UDP_NETGAME,
    #endif
    #ifdef USE_IPX
    MENU_START_IPX_NETGAME,
    MENU_JOIN_IPX_NETGAME,
    MENU_START_KALI_NETGAME, // xKali support (not Windows Kali! Windows Kali is over IPX!)
    MENU_JOIN_KALI_NETGAME,
    #endif
};

//ADD_ITEM("Start netgame...", MENU_START_NETGAME, -1 );
//ADD_ITEM("Send net message...", MENU_SEND_NET_MESSAGE, -1 );

#define ADD_ITEM(t,value,key)  do { m[num_options].type=NM_TYPE_MENU; m[num_options].text=t; menu_choice[num_options]=value;num_options++; } while (0)

// Function Prototypes added after LINTING
void do_option(int select);
void do_new_game_menu(void);
void do_multi_player_menu();
extern void newmenu_close();
extern void ReorderPrimary();
extern void ReorderSecondary();

//returns the number of demo files on the disk
int newdemo_count_demos();

// ------------------------------------------------------------------------
int autodemo_menu_check(newmenu *menu, d_event *event, void *userdata )
{
	int curtime;

	menu = menu;
	userdata = userdata;
	
	if (event->type == EVENT_KEY_COMMAND)
	{
		// Don't allow them to hit ESC in the main menu.
		if (((d_event_keycommand *)event)->keycode==KEY_ESC)
			return 1;
	}
	else if (event->type != EVENT_IDLE)
		return 0;

	curtime = timer_get_fixed_seconds();
	if ( keyd_time_when_last_pressed+i2f(25) < curtime || GameArg.SysAutoDemo  )
	{
		int n_demos;
		n_demos = newdemo_count_demos();

try_again:;
		if (((d_rand() % (n_demos+1)) == 0) && !GameArg.SysAutoDemo)
		{
#ifndef SHAREWARE
#ifdef OGL
			Screen_mode = -1;
#endif
			PlayMovie("intro.mve",0);
			songs_play_song(SONG_TITLE,1);
			set_screen_mode(SCREEN_MENU);
			return -3; //exit menu to force redraw even if not going to game mode. -3 tells menu system not to restore
#endif // end of ifndef shareware
		}
		else
		{
			if (curtime < 0) curtime = 0;
			keyd_time_when_last_pressed = curtime;			// Reset timer so that disk won't thrash if no demos.
			newdemo_start_playback(NULL);		// Randomly pick a file, assume native endian (crashes if not)
			if (Newdemo_state == ND_STATE_PLAYBACK)
			{
				Function_mode = FMODE_GAME;
				return -3; //exit menu to get into game mode. -3 tells menu system not to restore
			}
			else
				goto try_again;	//keep trying until we get a demo that works
		}
	}

	return 0;
}

static int main_menu_choice = 0;

//	-----------------------------------------------------------------------------
//	Create the main menu.
void create_main_menu(newmenu_item *m, int *menu_choice, int *callers_num_options)
{
	int	num_options;

	#ifndef DEMO_ONLY
	num_options = 0;

	set_screen_mode (SCREEN_MENU);

	ADD_ITEM(TXT_NEW_GAME,MENU_NEW_GAME,KEY_N);

	ADD_ITEM(TXT_LOAD_GAME,MENU_LOAD_GAME,KEY_L);
#if defined(USE_UDP) || defined(USE_IPX)
	ADD_ITEM(TXT_MULTIPLAYER_,MENU_MULTIPLAYER,-1);
#endif

	ADD_ITEM(TXT_OPTIONS_, MENU_CONFIG, -1 );
	ADD_ITEM(TXT_CHANGE_PILOTS,MENU_NEW_PLAYER,unused);
	ADD_ITEM(TXT_VIEW_DEMO,MENU_DEMO_PLAY,0);
	ADD_ITEM(TXT_VIEW_SCORES,MENU_VIEW_SCORES,KEY_V);
	if (cfexist("orderd2.pcx")) /* SHAREWARE */
		ADD_ITEM(TXT_ORDERING_INFO,MENU_ORDER_INFO,-1);
	ADD_ITEM(TXT_CREDITS,MENU_SHOW_CREDITS,-1);
	#endif
	ADD_ITEM(TXT_QUIT,MENU_QUIT,KEY_Q);

	#ifndef RELEASE
	if (!(Game_mode & GM_MULTI ))	{
		//m[num_options].type=NM_TYPE_TEXT;
		//m[num_options++].text=" Debug options:";

		ADD_ITEM("  Load level...",MENU_LOAD_LEVEL ,KEY_N);
		#ifdef EDITOR
		ADD_ITEM("  Editor", MENU_EDITOR, KEY_E);
		#endif
	}

	//ADD_ITEM( "  Play song", MENU_PLAY_SONG, -1 );
	#endif

	*callers_num_options = num_options;
}

//returns number of item chosen
int DoMenu() 
{
	int menu_choice[25];
	newmenu_item m[25];
	int num_options = 0;

	if ( Players[Player_num].callsign[0]==0 )	{
		RegisterPlayer();
		return 0;
	}

	load_palette(MENU_PALETTE,0,1);		//get correct palette

	do {
		create_main_menu(m, menu_choice, &num_options); // may have to change, eg, maybe selected pilot and no save games.

		keyd_time_when_last_pressed = timer_get_fixed_seconds();		// .. 20 seconds from now!
		if (main_menu_choice < 0 )
			main_menu_choice = 0;
		main_menu_choice = newmenu_do2( "", NULL, num_options, m, autodemo_menu_check, NULL, main_menu_choice, Menu_pcx_name);
		if ( main_menu_choice > -1 ) do_option(menu_choice[main_menu_choice]);
	} while( Function_mode==FMODE_MENU );

	return main_menu_choice;
}

extern void show_order_form(void);	// John didn't want this in inferno.h so I just externed it.

int select_song_callback(listbox *lb, d_event *event, void *userdata)
{
	int citem = listbox_get_citem(lb);
	
	userdata = userdata;
	if (event->type != EVENT_NEWMENU_SELECTED)
		return 0;
	
	if (citem > -1)
		songs_play_song( citem, 0 );
	
	return 1;	// stay in menu until user escapes
}

//returns flag, true means quit menu
void do_option ( int select) 
{
	switch (select) {
		case MENU_NEW_GAME:
			do_new_game_menu();
			break;
		case MENU_GAME:
			break;
		case MENU_DEMO_PLAY:
		{
			char demo_file[PATH_MAX];
			if (get_filename(TXT_SELECT_DEMO, ".dem", demo_file, 1))
				newdemo_start_playback(demo_file);
			break;
		}
		case MENU_LOAD_GAME:
			state_restore_all(0, 0, NULL);
			break;
		#ifdef EDITOR
		case MENU_EDITOR:
			Function_mode = FMODE_EDITOR;
			init_cockpit();
			break;
		#endif
		case MENU_VIEW_SCORES:
			scores_view(-1);
			break;
#if 1 //def SHAREWARE
		case MENU_ORDER_INFO:
			show_order_form();
			break;
#endif
		case MENU_QUIT:
			#ifdef EDITOR
			if (! SafetyCheck()) break;
			#endif
			Function_mode = FMODE_EXIT;
			break;
		case MENU_NEW_PLAYER:
			RegisterPlayer();		//1 == allow escape out of menu
			break;

#ifndef RELEASE

		case MENU_PLAY_SONG:
		{
			char * m[MAX_NUM_SONGS];
			int i;

			for (i=0;i<Num_songs;i++)
				m[i] = Songs[i].filename;
			newmenu_listbox( "Select Song", Num_songs, m, 1, select_song_callback, NULL );
			break;
		}
		case MENU_LOAD_LEVEL:
			if (Current_mission || select_mission(0, "Load Level\n\nSelect mission"))
			{
				newmenu_item m;
				char text[10]="";
				int new_level_num;
	
				m.type=NM_TYPE_INPUT; m.text_len = 10; m.text = text;
	
				newmenu_do( NULL, "Enter level to load", 1, &m, NULL, NULL );
	
				new_level_num = atoi(m.text);
	
				if (new_level_num!=0 && new_level_num>=Last_secret_level && new_level_num<=Last_level)  {
					StartNewGame(new_level_num);
				}
			}
			break;

#endif //ifndef RELEASE


#ifdef USE_UDP
		case MENU_START_UDP_NETGAME:
			multi_protocol = MULTI_PROTO_UDP;
			net_udp_start_game();
			break;
		case MENU_JOIN_MANUAL_UDP_NETGAME:
			multi_protocol = MULTI_PROTO_UDP;
			net_udp_manual_join_game();
			break;
		case MENU_JOIN_LIST_UDP_NETGAME:
			multi_protocol = MULTI_PROTO_UDP;
			//net_udp_list_join_game();
			break;
#endif
#ifdef USE_IPX
		case MENU_START_IPX_NETGAME:
			multi_protocol = MULTI_PROTO_IPX;
			ipxdrv_set(NETPROTO_IPX);
			net_ipx_start_game();
			break;
		case MENU_JOIN_IPX_NETGAME:
			multi_protocol = MULTI_PROTO_IPX;
			ipxdrv_set(NETPROTO_IPX);
			net_ipx_join_game();
			break;
		case MENU_START_KALI_NETGAME:
			multi_protocol = MULTI_PROTO_IPX;
			ipxdrv_set(NETPROTO_KALINIX);
			net_ipx_start_game();
			break;
		case MENU_JOIN_KALI_NETGAME:
			multi_protocol = MULTI_PROTO_IPX;
			ipxdrv_set(NETPROTO_KALINIX);
			net_ipx_join_game();
			break;
#endif
#if defined(USE_UDP) || defined(USE_IPX)
		case MENU_MULTIPLAYER:
			do_multi_player_menu();
			break;
#endif
		case MENU_CONFIG:
			do_options_menu();
			break;
		case MENU_SHOW_CREDITS:
			songs_stop_all();
			credits_show(NULL);
			break;
		default:
			Error("Unknown option %d in do_option",select);
			break;
	}

}

void delete_player_saved_games(char * name)
{
	int i;
	char filename[FILENAME_LEN + 9];
	
	for (i=0;i<10; i++)
	{
		sprintf( filename, GameArg.SysUsePlayersDir? "Players/%s.sg%x" : "%s.sg%x", name, i );
		
		PHYSFS_delete(filename);
	}
}

int fname_sort_func(char **e0, char **e1)
{
	return stricmp(*e0, *e1);
}

enum file_mode
{
	FILE_PLAYER_MODE = 1,
	FILE_DEMO_MODE
};

typedef struct file_list
{
	enum file_mode	mode;
	char			**list;		// just to free it in below callback
} file_list;

int filename_menu_handler( listbox *lb, d_event *event, file_list *l )
{
	char **items = listbox_get_items(lb);
	int citem = listbox_get_citem(lb);

	if (event->type != EVENT_KEY_COMMAND)
		return 0;
	
	switch (((d_event_keycommand *)event)->keycode)
	{
		case KEY_CTRLED+KEY_D:
			if ( ((l->mode == FILE_PLAYER_MODE)&&(citem>0)) || ((l->mode == FILE_DEMO_MODE)&&(citem>=0)) )
			{
				int x = 1;
				if (l->mode == FILE_PLAYER_MODE)
					x = nm_messagebox( NULL, 2, TXT_YES, TXT_NO, "%s %s?", TXT_DELETE_PILOT, items[citem]+(((l->mode == FILE_PLAYER_MODE) && items[citem][0]=='$')?1:0) );
				else if (l->mode == FILE_DEMO_MODE)
					x = nm_messagebox( NULL, 2, TXT_YES, TXT_NO, "%s %s?", TXT_DELETE_DEMO, items[citem]+(((l->mode == FILE_DEMO_MODE) && items[citem][0]=='$')?1:0) );
 				if (x==0)	{
					char * p;
					char plxfile[PATH_MAX];
					int ret;
					char name[PATH_MAX];
					
					p = items[citem] + strlen(items[citem]);
					if (l->mode == FILE_PLAYER_MODE)
						*p = '.';
					
					strcpy(name, (l->mode == FILE_DEMO_MODE) ? DEMO_DIR : (((l->mode == FILE_PLAYER_MODE) && GameArg.SysUsePlayersDir) ? "Players/" : ""));
					strcat(name,items[citem]);
					
					ret = !PHYSFS_delete(name);
					if (l->mode == FILE_PLAYER_MODE)
						*p = 0;
					
					if ((!ret) && (l->mode == FILE_PLAYER_MODE))	{
						delete_player_saved_games( items[citem] );
						// delete PLX file
						sprintf(plxfile, GameArg.SysUsePlayersDir? "Players/%.8s.plx" : "%.8s.plx", items[citem]);
						if (cfexist(plxfile))
							PHYSFS_delete(plxfile);
					}
					
					if (ret) {
						if (l->mode == FILE_PLAYER_MODE)
							nm_messagebox( NULL, 1, TXT_OK, "%s %s %s", TXT_COULDNT, TXT_DELETE_PILOT, items[citem]+(((l->mode == FILE_PLAYER_MODE) && items[citem][0]=='$')?1:0) );
						else if (l->mode == FILE_DEMO_MODE)
							nm_messagebox( NULL, 1, TXT_OK, "%s %s %s", TXT_COULDNT, TXT_DELETE_DEMO, items[citem]+(((l->mode == FILE_DEMO_MODE) && items[citem][0]=='$')?1:0) );
					}
					else
						listbox_delete_item(lb, citem);
				}

				return 1;
			}
			break;

		case KEY_CTRLED+KEY_C:
			if (l->mode == FILE_DEMO_MODE)
			{
				int x = 1;
				char bakname[PATH_MAX];
				
				// Get backup name
				change_filename_extension(bakname, items[citem]+(((l->mode == FILE_DEMO_MODE) && items[citem][0]=='$')?1:0), DEMO_BACKUP_EXT);
				x = nm_messagebox( NULL, 2, TXT_YES, TXT_NO,	"Are you sure you want to\n"
								  "swap the endianness of\n"
								  "%s? If the file is\n"
								  "already endian native, D1X\n"
								  "will likely crash. A backup\n"
								  "%s will be created", items[citem]+(((l->mode == FILE_DEMO_MODE) && items[citem][0]=='$')?1:0), bakname );
				if (!x)
					newdemo_swap_endian(items[citem]);
				
				return 1;
			}
			break;
	}

	return 0;
}

int get_filename(char *title, char *type, char *filename, int allow_abort_flag)
{
	char **m;
	char **f;
	file_list *l;
	char *types[] = { type, NULL };
	int i = 0, NumItems;
	int citem = 0;
	
	MALLOC(l, file_list, 1);
	if (!l)
		return 0;

	l->mode = 0;
	if (!stricmp(type, ".plr"))
		l->mode = FILE_PLAYER_MODE;
	else if (!stricmp(type, ".dem"))
		l->mode = FILE_DEMO_MODE;

	l->list = PHYSFSX_findFiles((l->mode == FILE_DEMO_MODE) ? DEMO_DIR : (((l->mode == FILE_PLAYER_MODE) && GameArg.SysUsePlayersDir) ? "Players/" : ""), types);
	if (!l->list)
	{
		d_free(l);
		return 0;	// memory error
	}
	if ( !*l->list && (l->mode == FILE_DEMO_MODE) && (citem > -1) )
	{
		nm_messagebox( NULL, 1, TXT_OK, "%s %s\n%s", TXT_NO_DEMO_FILES, TXT_USE_F5, TXT_TO_CREATE_ONE);
		PHYSFS_freeList(l->list);
		d_free(l);
		return 0;
	}
	else if ( !*l->list && (l->mode == FILE_PLAYER_MODE) )	{
		strcpy(filename, TXT_CREATE_NEW);	// make a new player without showing listbox
		PHYSFS_freeList(l->list);
		d_free(l);
		return 0;
	}
	else if ( !*l->list )	{
		nm_messagebox(NULL, 1, "Ok", "%s\n '%s' %s", TXT_NO_FILES_MATCHING, type, TXT_WERE_FOUND);
		PHYSFS_freeList(l->list);
		d_free(l);
		return 0;
	}	// else create a player file
	
	
	for (NumItems = 0; l->list[NumItems] != NULL; NumItems++) {}
	if (l->mode == FILE_PLAYER_MODE)
		NumItems++;

	MALLOC(m, char *, NumItems);
	if (m == NULL)
	{
		PHYSFS_freeList(l->list);
		d_free(l);
		return 0;
	}

	if (l->mode == FILE_PLAYER_MODE)
		m[i++] = TXT_CREATE_NEW;

	for (f = l->list; *f != NULL; f++)
	{
		m[i++] = *f;

		if (l->mode == FILE_PLAYER_MODE)
		{
			char *p;
			
			p = strchr(*f, '.');
			if (p)
				*p = '\0';		// chop the .plr
			if ((p - *f) > 8)
				*f[8] = 0;		// sorry guys, can only have up to eight chars for the player name
		}
	}

	// Sort by name, except the <Create New Player> string if applicable
	qsort(&m[l->mode == FILE_PLAYER_MODE ? 1 : 0], NumItems - (l->mode == FILE_PLAYER_MODE), sizeof(char *), (int (*)( const void *, const void * ))fname_sort_func);

	if (l->mode == FILE_PLAYER_MODE)
		for ( i=0; i<NumItems; i++ )
			if (!stricmp(Players[Player_num].callsign, m[i]) )
				citem = i;

	citem = newmenu_listbox1(title, NumItems, m, allow_abort_flag, citem, (int (*)(listbox *, d_event *, void *))filename_menu_handler, (void *)l->mode);

	if ( citem > -1 )
		strncpy( filename, m[citem] + (((l->mode == FILE_PLAYER_MODE) && m[citem][0]=='$')?1:0), PATH_MAX );

	PHYSFS_freeList(l->list);
	d_free(m);
	d_free(l);
	
	if (citem < 0)
		return 0;	// aborted

	return 1;
}

int do_difficulty_menu()
{
	int s;
	newmenu_item m[5];

	m[0].type=NM_TYPE_MENU; m[0].text=MENU_DIFFICULTY_TEXT(0);
	m[1].type=NM_TYPE_MENU; m[1].text=MENU_DIFFICULTY_TEXT(1);
	m[2].type=NM_TYPE_MENU; m[2].text=MENU_DIFFICULTY_TEXT(2);
	m[3].type=NM_TYPE_MENU; m[3].text=MENU_DIFFICULTY_TEXT(3);
	m[4].type=NM_TYPE_MENU; m[4].text=MENU_DIFFICULTY_TEXT(4);

	s = newmenu_do1( NULL, TXT_DIFFICULTY_LEVEL, NDL, m, NULL, NULL, Difficulty_level);

	if (s > -1 )	{
		if (s != Difficulty_level)
		{
			PlayerCfg.DefaultDifficulty = s;
			write_player_file();
		}
		Difficulty_level = s;
		return 1;
	}
	return 0;
}

void do_new_game_menu()
{
	int new_level_num,player_highest_level;

    if (!select_mission(0, "New Game\n\nSelect mission"))
        return;
    
	new_level_num = 1;

	player_highest_level = get_highest_level();

	if (player_highest_level > Last_level)
		player_highest_level = Last_level;
	if (player_highest_level > 1) {
		newmenu_item m[4];
		char info_text[80];
		char num_text[10];
		int choice;
		int n_items;

try_again:
		sprintf(info_text,"%s %d",TXT_START_ANY_LEVEL, player_highest_level);

		m[0].type=NM_TYPE_TEXT; m[0].text = info_text;
		m[1].type=NM_TYPE_INPUT; m[1].text_len = 10; m[1].text = num_text;
		n_items = 2;

		strcpy(num_text,"1");

		choice = newmenu_do( NULL, TXT_SELECT_START_LEV, n_items, m, NULL, NULL );

		if (choice==-1 || m[1].text[0]==0)
			return;

		new_level_num = atoi(m[1].text);

		if (!(new_level_num>0 && new_level_num<=player_highest_level)) {
			m[0].text = TXT_ENTER_TO_CONT;
			nm_messagebox( NULL, 1, TXT_OK, TXT_INVALID_LEVEL); 
			goto try_again;
		}
	}

	Difficulty_level = PlayerCfg.DefaultDifficulty;

	if (!do_difficulty_menu())
		return;

	StartNewGame(new_level_num);

}

void do_sound_menu();
void input_config();
void change_res();
void do_graphics_menu();
void do_misc_menu();

int options_menuset(newmenu *menu, d_event *event, void *userdata)
{
	switch (event->type)
	{
		case EVENT_IDLE:	// FIXME: Should become EVENT_ITEM_CHANGED later
			if ( newmenu_get_citem(menu)==4)
			{
				gr_palette_set_gamma(newmenu_get_items(menu)[4].value);
			}
			return 0;	// for idle events
			break;
			
		case EVENT_NEWMENU_SELECTED:
			switch(newmenu_get_citem(menu))
			{
				case  0: do_sound_menu();		break;
				case  2: input_config();		break;
				case  5: change_res();			break;
				case  6: do_graphics_menu();		break;
				case  8: ReorderPrimary();		break;
				case  9: ReorderSecondary();		break;
				case 10: do_misc_menu();		break;
			}
			break;	// stay in menu until escape
			
		case EVENT_CLOSE:
			write_player_file();
			break;
			
			default:
			return 0;
	}

	userdata++;		//kill warning
	
	return 1;
}

int gcd(int a, int b)
{
	if (!b)
		return a; 

	return gcd(b, a%b);
}

int change_res_poll() { return 0; }

void change_res()
{
	newmenu_item m[15];
	u_int32_t modes[15];
	int i = 0, mc = 0, num_presets = 0;
	char customres[16], aspect[16];
	int fullscreenc;
	u_int32_t screen_mode = 0, aspect_mode = 0;

	// the list of pre-defined resolutions
	if (gr_check_mode(SM(320,200)))		{ m[mc].type = NM_TYPE_RADIO; m[mc].text = "320x200 (16x10)"; m[mc].value = (Game_screen_mode == SM(320,200)); m[mc].group = 0; modes[mc] = SM(320,200); mc++; }
	if (gr_check_mode(SM(640,480)))		{ m[mc].type = NM_TYPE_RADIO; m[mc].text = "640x480 (4x3)"; m[mc].value = (Game_screen_mode == SM(640,480)); m[mc].group = 0; modes[mc] = SM(640,480); mc++; }
	if (gr_check_mode(SM(800,600)))		{ m[mc].type = NM_TYPE_RADIO; m[mc].text = "800x600 (4x3)"; m[mc].value = (Game_screen_mode == SM(800,600)); m[mc].group = 0; modes[mc] = SM(800,600); mc++; }
	if (gr_check_mode(SM(1024,768)))	{ m[mc].type = NM_TYPE_RADIO; m[mc].text = "1024x768 (4x3)"; m[mc].value = (Game_screen_mode == SM(1024,768)); m[mc].group = 0; modes[mc] = SM(1024,768); mc++; }
	if (gr_check_mode(SM(1280,800)))	{ m[mc].type = NM_TYPE_RADIO; m[mc].text = "1280x800 (16x10)"; m[mc].value = (Game_screen_mode == SM(1280,800)); m[mc].group = 0; modes[mc] = SM(1280,800); mc++; }
	if (gr_check_mode(SM(1280,1024)))	{ m[mc].type = NM_TYPE_RADIO; m[mc].text = "1280x1024 (5x4)"; m[mc].value = (Game_screen_mode == SM(1280,1024)); m[mc].group = 0; modes[mc] = SM(1280,1024); mc++; }
	if (gr_check_mode(SM(1440,900)))	{ m[mc].type = NM_TYPE_RADIO; m[mc].text = "1440x900 (16x10)"; m[mc].value = (Game_screen_mode == SM(1440,900)); m[mc].group = 0; modes[mc] = SM(1440,900); mc++; }
	if (gr_check_mode(SM(1600,1200)))	{ m[mc].type = NM_TYPE_RADIO; m[mc].text = "1600x1200 (4x3)"; m[mc].value = (Game_screen_mode == SM(1600,1200)); m[mc].group = 0; modes[mc] = SM(1600,1200); mc++; }
	if (gr_check_mode(SM(1920,1200)))	{ m[mc].type = NM_TYPE_RADIO; m[mc].text = "1920x1200 (16x10)"; m[mc].value = (Game_screen_mode == SM(1920,1200)); m[mc].group = 0; modes[mc] = SM(1920,1200); mc++; }
	num_presets = mc;

	// now see which field is true and break there
	m[mc].value=0;
	for (i = 0; i < mc; i++)
		if (m[mc].value)
			break;

	// the field for custom resolution and aspect
	m[mc].type = NM_TYPE_RADIO; m[mc].text = "use custom values"; m[mc].value = (i == mc); m[mc].group = 0; modes[mc] = 0; mc++;
	m[mc].type = NM_TYPE_TEXT; m[mc].text = "resolution:"; mc++;
	sprintf(customres, "%ix%i", SM_W(Game_screen_mode), SM_H(Game_screen_mode));
	m[mc].type = NM_TYPE_INPUT; m[mc].text = customres; m[mc].text_len = 11; modes[mc] = 0; mc++;
	m[mc].type = NM_TYPE_TEXT; m[mc].text = "aspect:"; mc++;
	sprintf(aspect, "%ix%i", GameCfg.AspectY, GameCfg.AspectX);
	m[mc].type = NM_TYPE_INPUT; m[mc].text = aspect; m[mc].text_len = 11; modes[mc] = 0; mc++;

	// fullscreen toggle
	fullscreenc = mc; m[mc].type = NM_TYPE_CHECK; m[mc].text = "Fullscreen"; m[mc].value = gr_check_fullscreen(); mc++;

	// create the menu
	i = newmenu_do1(NULL, "Screen Resolution", mc, m, change_res_poll, NULL, 0);

	// menu is done, now do what we need to do

	// now check for fullscreen toggle and apply if necessary
	if (m[fullscreenc].value != gr_check_fullscreen())
		gr_toggle_fullscreen();

	// check which preset field was selected
	for (i = 0; (m[i].value == 0) && (i < num_presets); i++);

	if (modes[i]==0) // no preset selected, use custom values and set screen_mode and aspect
	{
		if (!strchr(customres, 'x'))
			return;

		screen_mode = SM(atoi(customres), atoi(strchr(customres, 'x')+1));
		if (SM_W(screen_mode) < 320 || SM_H(screen_mode) < 200) // oh oh - the resolution is too small. Revert!
		{
			nm_messagebox( TXT_WARNING, 1, "OK", "Entered resolution is too small.\nReverting ..." );
			return;
		}
		if (strchr(aspect, 'x')) // we even have a custom aspect set up
		{
			aspect_mode = SM(atoi(aspect), atoi(strchr(aspect, 'x')+1));
			GameCfg.AspectY = SM_W(aspect_mode)/gcd(SM_W(aspect_mode),SM_H(aspect_mode));
			GameCfg.AspectX = SM_H(aspect_mode)/gcd(SM_W(aspect_mode),SM_H(aspect_mode));
		}
	}
	else // a preset field is selected - set screen_mode and aspect
	{
		screen_mode = modes[i];
		GameCfg.AspectY = SM_W(screen_mode)/gcd(SM_W(screen_mode),SM_H(screen_mode));
		GameCfg.AspectX = SM_H(screen_mode)/gcd(SM_W(screen_mode),SM_H(screen_mode));
	}


	// clean up and apply everything
	newmenu_close();
	set_screen_mode(SCREEN_MENU);
	Game_screen_mode = screen_mode;
	gr_set_mode(Game_screen_mode);
	init_cockpit();
	game_init_render_buffers(SM_W(screen_mode), SM_H(screen_mode), VR_NONE);
}

int input_menuset(newmenu *menu, d_event *event, void *userdata)
{
	int i;
	int oc_type = PlayerCfg.ControlType;
	newmenu_item *items = newmenu_get_items(menu);
	int citem = newmenu_get_citem(menu);

	userdata = userdata;

	switch (event->type)
	{
		case EVENT_IDLE:	// FIXME: Should become EVENT_ITEM_CHANGED later
			for (i=0; i<4; i++ )
				if (items[i].value) PlayerCfg.ControlType = i;
			
			if (PlayerCfg.ControlType == 2) PlayerCfg.ControlType = CONTROL_MOUSE;
			if (PlayerCfg.ControlType == 3) PlayerCfg.ControlType = CONTROL_JOYMOUSE;
			
			if (oc_type != PlayerCfg.ControlType) {
				kc_set_controls();
			}
			
			PlayerCfg.JoystickSensitivityX = items[10].value;
			PlayerCfg.JoystickSensitivityY = items[11].value;
			PlayerCfg.JoystickDeadzone = items[12].value;
			PlayerCfg.MouseSensitivityX = items[15].value;
			PlayerCfg.MouseSensitivityY = items[16].value;
			PlayerCfg.MouseFilter = items[17].value;
			return 0;	// for idle events
			break;
			
		case EVENT_NEWMENU_SELECTED:
			i = PlayerCfg.ControlType;
			if (i == CONTROL_MOUSE) i = 2;
			if (i == CONTROL_JOYMOUSE) i = 3;

			switch (citem)
			{
				case 5:
					kconfig(i, items[i].text);
					break;
				case 6:
					kconfig(0, "KEYBOARD");
					break;
				case 7:
					kconfig(4, "WEAPON KEYS");
					break;
				case 19:
					show_help();
					break;
				case 20:
					show_netgame_help();
					break;
				case 21:
					show_newdemo_help();
					break;
			}
			break;		// stay in menu
			
		default:
			return 0;
	}
	
	return 1;
}

void input_config()
{
	newmenu_item m[22];
	int i;
	int nitems = 22;

	m[0].type = NM_TYPE_RADIO;  m[0].text = "KEYBOARD"; m[0].value = 0; m[0].group = 0;
	m[1].type = NM_TYPE_RADIO;  m[1].text = "JOYSTICK"; m[1].value = 0; m[1].group = 0;
	m[2].type = NM_TYPE_RADIO;  m[2].text = "MOUSE";    m[2].value = 0; m[2].group = 0;
	m[3].type = NM_TYPE_RADIO;  m[3].text = "JOYSTICK & MOUSE"; m[3].value = 0; m[3].group = 0;
	m[4].type = NM_TYPE_TEXT;   m[4].text = "";
	m[5].type = NM_TYPE_MENU;   m[5].text = TXT_CUST_ABOVE;
	m[6].type = NM_TYPE_MENU;   m[6].text = TXT_CUST_KEYBOARD;
	m[7].type = NM_TYPE_MENU;   m[7].text = "CUSTOMIZE WEAPON KEYS";
	m[8].type = NM_TYPE_TEXT;   m[8].text = "";
	m[9].type = NM_TYPE_TEXT;   m[9].text = "Joystick";
	m[10].type = NM_TYPE_SLIDER; m[10].text="X Sensitivity"; m[10].value=PlayerCfg.JoystickSensitivityX; m[10].min_value = 0; m[10].max_value = 16;
	m[11].type = NM_TYPE_SLIDER; m[11].text="Y Sensitivity"; m[11].value=PlayerCfg.JoystickSensitivityY; m[11].min_value = 0; m[11].max_value = 16;
	m[12].type = NM_TYPE_SLIDER; m[12].text="Deadzone"; m[12].value=PlayerCfg.JoystickDeadzone; m[12].min_value=0; m[12].max_value = 16;
	m[13].type = NM_TYPE_TEXT;   m[13].text = "";
	m[14].type = NM_TYPE_TEXT;   m[14].text = "Mouse";
	m[15].type = NM_TYPE_SLIDER; m[15].text="X Sensitivity"; m[15].value=PlayerCfg.MouseSensitivityX; m[15].min_value = 0; m[15].max_value = 16;
	m[16].type = NM_TYPE_SLIDER; m[16].text="Y Sensitivity"; m[16].value=PlayerCfg.MouseSensitivityY; m[16].min_value = 0; m[16].max_value = 16;
	m[17].type = NM_TYPE_CHECK;  m[17].text="Mouse Smoothing/Filtering"; m[17].value=PlayerCfg.MouseFilter;
	m[18].type = NM_TYPE_TEXT;   m[18].text = "";
	m[19].type = NM_TYPE_MENU;   m[19].text = "GAME SYSTEM KEYS";
	m[20].type = NM_TYPE_MENU;   m[20].text = "NETGAME SYSTEM KEYS";
	m[21].type = NM_TYPE_MENU;   m[21].text = "DEMO SYSTEM KEYS";

	i = PlayerCfg.ControlType;
	if (i == CONTROL_MOUSE) i = 2;
	if (i==CONTROL_JOYMOUSE) i = 3;
	m[i].value = 1;

	newmenu_do1(NULL, TXT_CONTROLS, nitems, m, input_menuset, NULL, 5);
}

void do_graphics_menu()
{
	newmenu_item m[9];
	int i = 0, j = 0;

	do {
		m[0].type = NM_TYPE_TEXT;   m[0].text="Texture Filtering:";
		m[1].type = NM_TYPE_RADIO;  m[1].text = "None (Classical)";       m[1].value = 0; m[1].group = 0;
		m[2].type = NM_TYPE_RADIO;  m[2].text = "Bilinear";               m[2].value = 0; m[2].group = 0;
		m[3].type = NM_TYPE_RADIO;  m[3].text = "Trilinear";              m[3].value = 0; m[3].group = 0;
		m[4].type = NM_TYPE_TEXT;   m[4].text="";
		m[5].type = NM_TYPE_CHECK;  m[5].text="Transparency Effects";     m[5].value = PlayerCfg.OglAlphaEffects;
		m[6].type = NM_TYPE_CHECK;  m[6].text="Vectorial Reticle";        m[6].value = PlayerCfg.OglReticle;
		m[7].type = NM_TYPE_CHECK;  m[7].text="VSync";                    m[7].value = GameCfg.VSync;
		m[8].type = NM_TYPE_CHECK;  m[8].text="4x multisampling";         m[8].value = GameCfg.Multisample;

		m[GameCfg.TexFilt+1].value=1;

		i = newmenu_do1( NULL, "Graphics Options", sizeof(m)/sizeof(*m), m, NULL, NULL, i );

		if (GameCfg.VSync != m[7].value || GameCfg.Multisample != m[8].value)
			nm_messagebox( NULL, 1, TXT_OK, "To apply VSync or 4x Multisample\nyou need to restart the program");

		for (j = 0; j <= 2; j++)
			if (m[j+1].value)
				GameCfg.TexFilt = j;
		PlayerCfg.OglAlphaEffects = m[5].value;
		PlayerCfg.OglReticle = m[6].value;
		GameCfg.VSync = m[7].value;
		GameCfg.Multisample = m[8].value;
		gr_set_attributes();
		gr_set_mode(Game_screen_mode);
	} while( i>-1 );
}

void set_extmusic_volume(int volume);

int sound_menuset(newmenu *menu, d_event *event, void *userdata)
{
	newmenu_item *items = newmenu_get_items(menu);

	if (event->type != EVENT_IDLE)	// FIXME: Should become EVENT_ITEM_CHANGED later
		return 0;
	
	userdata = userdata;

	if ( GameCfg.DigiVolume != items[0].value )     {
		GameCfg.DigiVolume = items[0].value;
		digi_set_digi_volume( (GameCfg.DigiVolume*32768)/8 );
		digi_play_sample_once( SOUND_DROP_BOMB, F1_0 );
	}

	if (GameCfg.MusicVolume != items[1].value )   {
		GameCfg.MusicVolume = items[1].value;
		if (EXT_MUSIC_ON)
			set_extmusic_volume(GameCfg.MusicVolume);
		else
			digi_set_midi_volume( (GameCfg.MusicVolume*128)/8 );
	}

	return 0;
}

void do_sound_menu()
{
#ifdef USE_SDLMIXER
	newmenu_item m[10];
#else
	newmenu_item m[7];
#endif
	int i = 0;
	int nitems;

	do {
		if (GameCfg.SndEnableRedbook && GameCfg.JukeboxOn)
			GameCfg.JukeboxOn = 0;

		nitems = 0;

		m[nitems].type = NM_TYPE_SLIDER; m[nitems].text=TXT_FX_VOLUME; m[nitems].value=GameCfg.DigiVolume; m[nitems].min_value=0; m[nitems++].max_value=8; 
		m[nitems].type = NM_TYPE_SLIDER; m[nitems].text="music volume"; m[nitems].value=GameCfg.MusicVolume; m[nitems].min_value=0; m[nitems++].max_value=8;
		m[nitems].type = NM_TYPE_TEXT; m[nitems++].text="";
		m[nitems].type = NM_TYPE_RADIO; m[nitems].text = "MIDI Music enabled"; m[nitems].value = (!GameCfg.SndEnableRedbook && !GameCfg.JukeboxOn); m[nitems].group = 0; nitems++;
		m[nitems].type = NM_TYPE_RADIO;  m[nitems].text="CD Music enabled"; m[nitems].value=GameCfg.SndEnableRedbook; m[nitems].group = 0; nitems++;
#ifdef USE_SDLMIXER
		m[nitems].type = NM_TYPE_RADIO; m[nitems].text="jukebox enabled"; m[nitems].value=GameCfg.JukeboxOn; m[nitems].group = 0; nitems++;
		m[nitems].type = NM_TYPE_TEXT; m[nitems++].text="path to music for jukebox:";
		m[nitems].type = NM_TYPE_INPUT; m[nitems].text = GameCfg.JukeboxPath; m[nitems++].text_len = NM_MAX_TEXT_LEN-1;
#endif
		m[nitems].type = NM_TYPE_CHECK;  m[nitems].text="Force Descent ][ CD track order"; m[nitems++].value=GameCfg.OrigTrackOrder;
		m[nitems].type = NM_TYPE_CHECK;  m[nitems].text=TXT_REVERSE_STEREO; m[nitems++].value=GameCfg.ReverseStereo;
		
		i = newmenu_do1( NULL, "Sound Effects & Music", nitems, m, sound_menuset, NULL, i );

		GameCfg.ReverseStereo = m[nitems - 1].value;
		GameCfg.OrigTrackOrder = m[nitems - 2].value;
		if ((GameCfg.SndEnableRedbook != m[4].value)
#ifdef USE_SDLMIXER
			|| (GameCfg.JukeboxOn != m[5].value) || (GameCfg.JukeboxOn)
#endif
			)
		{
			GameCfg.SndEnableRedbook = m[4].value;
#ifdef USE_SDLMIXER
			GameCfg.JukeboxOn = m[5].value;
#endif
			ext_music_stop();
			ext_music_unload();
			ext_music_select_system(GameCfg.JukeboxOn ? EXT_MUSIC_JUKEBOX : EXT_MUSIC_REDBOOK);
			if (Function_mode == FMODE_GAME)
				songs_play_level_song( Current_level_num );
			else
				songs_play_song(SONG_TITLE, 1);
		}

	} while( i>-1 );
}

#define ADD_CHECK(n,txt,v)  do { m[n].type=NM_TYPE_CHECK; m[n].text=txt; m[n].value=v;} while (0)

void do_misc_menu()
{
	newmenu_item m[8];
	int i = 0;

	do {
		ADD_CHECK(0, "Ship auto-leveling", PlayerCfg.AutoLeveling);
		ADD_CHECK(1, "Show reticle", PlayerCfg.ReticleOn);
		ADD_CHECK(2, "Missile view", PlayerCfg.MissileViewEnabled);
		ADD_CHECK(3, "Headlight on when picked up", PlayerCfg.HeadlightActiveDefault );
		ADD_CHECK(4, "Show guided missile in main display", PlayerCfg.GuidedInBigWindow );
		ADD_CHECK(5, "Escort robot hot keys",PlayerCfg.EscortHotKeys);
		ADD_CHECK(6, "Persistent Debris",PlayerCfg.PersistentDebris);
		ADD_CHECK(7, "Screenshots w/o HUD",PlayerCfg.PRShot);

		i = newmenu_do1( NULL, "Misc Options", sizeof(m)/sizeof(*m), m, NULL, NULL, i );
			
		PlayerCfg.AutoLeveling		= m[0].value;
		PlayerCfg.ReticleOn		= m[1].value;
		PlayerCfg.MissileViewEnabled   	= m[2].value;
		PlayerCfg.HeadlightActiveDefault= m[3].value;
		PlayerCfg.GuidedInBigWindow	= m[4].value;
		PlayerCfg.EscortHotKeys		= m[5].value;
		PlayerCfg.PersistentDebris	= m[6].value;
		PlayerCfg.PRShot 		= m[7].value;

	} while( i>-1 );

}

#if defined(USE_UDP) || defined(USE_IPX)
void do_multi_player_menu()
{
	int menu_choice[12];
	newmenu_item m[12];
	int choice = 0, num_options = 0;
	int old_game_mode;

	do {
		old_game_mode = Game_mode;
		num_options = 0;

#ifdef USE_UDP
		m[num_options].type=NM_TYPE_TEXT; m[num_options].text="UDP:"; num_options++;
		m[num_options].type=NM_TYPE_MENU; m[num_options].text="HOST GAME"; menu_choice[num_options]=MENU_START_UDP_NETGAME; num_options++;
		m[num_options].type=NM_TYPE_MENU; m[num_options].text="FIND LAN GAMES"; menu_choice[num_options]=MENU_JOIN_LIST_UDP_NETGAME; num_options++;
		//m[num_options].type=NM_TYPE_MENU; m[num_options].text="FIND LAN/ONLINE GAMES"; menu_choice[num_options]=MENU_JOIN_LIST_UDP_NETGAME; num_options++;
		m[num_options].type=NM_TYPE_MENU; m[num_options].text="JOIN GAME MANUALLY"; menu_choice[num_options]=MENU_JOIN_MANUAL_UDP_NETGAME; num_options++;
#endif

#ifdef USE_IPX
		m[num_options].type=NM_TYPE_TEXT; m[num_options].text=""; num_options++;
		m[num_options].type=NM_TYPE_TEXT; m[num_options].text="IPX:"; num_options++;
		m[num_options].type=NM_TYPE_MENU; m[num_options].text="HOST GAME"; menu_choice[num_options]=MENU_START_IPX_NETGAME; num_options++;
		m[num_options].type=NM_TYPE_MENU; m[num_options].text="JOIN GAME"; menu_choice[num_options]=MENU_JOIN_IPX_NETGAME; num_options++;
#ifdef __LINUX__
		m[num_options].type=NM_TYPE_TEXT; m[num_options].text=""; num_options++;
		m[num_options].type=NM_TYPE_TEXT; m[num_options].text="XKALI:"; num_options++;
		m[num_options].type=NM_TYPE_MENU; m[num_options].text="HOST GAME"; menu_choice[num_options]=MENU_START_KALI_NETGAME; num_options++;
		m[num_options].type=NM_TYPE_MENU; m[num_options].text="JOIN GAME"; menu_choice[num_options]=MENU_JOIN_KALI_NETGAME; num_options++;
#endif
#endif

		choice = newmenu_do1( NULL, TXT_MULTIPLAYER, num_options, m, NULL, NULL, choice );
		
		if ( choice > -1 )
			do_option(menu_choice[choice]);
	
		if (old_game_mode != Game_mode)
			break;          // leave menu

	} while( choice > -1 );
}
#endif

void do_options_menu()
{
	newmenu_item m[11];

	m[ 0].type = NM_TYPE_MENU;   m[ 0].text="Sound effects & music...";
	m[ 1].type = NM_TYPE_TEXT;   m[ 1].text="";
	m[ 2].type = NM_TYPE_MENU;   m[ 2].text=TXT_CONTROLS_;
	m[ 3].type = NM_TYPE_TEXT;   m[ 3].text="";

	m[ 4].type = NM_TYPE_SLIDER;
	m[ 4].text = TXT_BRIGHTNESS;
	m[ 4].value = gr_palette_get_gamma();
	m[ 4].min_value = 0;
	m[ 4].max_value = 16;

	m[ 5].type = NM_TYPE_MENU;   m[ 5].text="Screen resolution...";
#ifdef OGL
	m[ 6].type = NM_TYPE_MENU;   m[ 6].text="Graphics Options...";
#else
	m[ 6].type = NM_TYPE_TEXT;   m[ 6].text="";
#endif

	m[ 7].type = NM_TYPE_TEXT;   m[ 7].text="";
	m[ 8].type = NM_TYPE_MENU;   m[ 8].text="Primary autoselect ordering...";
	m[ 9].type = NM_TYPE_MENU;   m[ 9].text="Secondary autoselect ordering...";
	m[10].type = NM_TYPE_MENU;   m[10].text="Misc Options...";

	newmenu_do1( NULL, TXT_OPTIONS, sizeof(m)/sizeof(*m), m, options_menuset, NULL, 0 );
}