#include "menu.h" #include "file.h" #include "cmd.h" #include "gib.h" #include "draw.h" #include "key.h" #include "string.h" #include "cbuf.h" #include "options.h" #include "servlist.h" #include "system.h" #include "debug.h" #include "HUD.h" #include "client_menu.h" #include "gui/InputLine.h" #include "gui/Rect.h" //FIXME shouldn't need these entity self; .float nextthink; .float frame; .void () think; float () random = #7; string [6] dot_name = { "gfx/menudot1.lmp", "gfx/menudot2.lmp", "gfx/menudot3.lmp", "gfx/menudot4.lmp", "gfx/menudot5.lmp", "gfx/menudot6.lmp", }; void (integer x, integer y) spinner = { local integer i = (integer) (time * 10) % 6; local qpic_t p = Draw_CachePic (dot_name[i], 1); Draw_Pic (x, y, p); }; integer do_single_player; string [32] quitMessage = { /* .........1.........2.... */ " Are you gonna quit ", " this game just like ", " everything else? ", " ", " Milord, methinks that ", " thou art a lowly ", " quitter. Is this true? ", " ", " Do I need to bust your ", " face open for trying ", " to quit? ", " ", " Man, I oughta smack you", " for trying to quit! ", " Press Y to get ", " smacked out. ", " Press Y to quit like a ", " big loser in life. ", " Press N to stay proud ", " and successful! ", " If you press Y to ", " quit, I will summon ", " Satan all over your ", " hard drive! ", " Um, Asmodeus dislikes ", " his children trying to ", " quit. Press Y to return", " to your Tinkertoys. ", " If you quit now, I'll ", " throw a blanket-party ", " for you next time! ", " " }; integer quit_index; // ********* LOAD / SAVE #define MAX_SAVEGAMES 12 string [MAX_SAVEGAMES] filenames; integer [MAX_SAVEGAMES] loadable; integer load_cursor; integer save_cursor; void () scan_saves = { local integer i; local QFile f; for (i = 0; i < MAX_SAVEGAMES; i++) { if (!filenames[i]) filenames[i] = str_new (); loadable[i] = 0; f = File_Open (sprintf ("s%i.sav", i), "rz"); if (!f) { str_copy (filenames[i], "--- UNUSED SLOT ---"); continue; } Qgetline (f); str_copy (filenames[i], Qgetline (f)); loadable[i] = 1; Qclose (f); } }; integer (string text, integer key) load_f = { scan_saves (); Menu_SelectMenu ("load"); return 0; }; integer (string text, integer key) save_f = { scan_saves (); Menu_SelectMenu ("save"); return 0; }; void () load_save_f = { scan_saves (); if (Cmd_Argv (0) == "menu_load") Menu_SelectMenu ("load"); else Menu_SelectMenu ("save"); }; integer (integer x, integer y) load_draw = { local integer i; Draw_CenterPic (x + 160, y + 4, Draw_CachePic ("gfx/p_load.lmp", 1)); for (i=0 ; i< MAX_SAVEGAMES; i++) Draw_String (x + 16, y + 32 + 8 * i, filenames[i]); Draw_Character (x + 8, y + 32 + load_cursor * 8, 12 + (integer) (time * 4) & 1); return 1; }; integer (integer x, integer y) save_draw = { local integer i; Draw_CenterPic (x + 160, y + 4, Draw_CachePic ("gfx/p_save.lmp", 1)); for (i=0 ; i< MAX_SAVEGAMES; i++) Draw_String (x + 16, y + 32 + 8 * i, filenames[i]); Draw_Character (x + 8, y + 32 + save_cursor * 8, 12 + (integer) (time * 4) & 1); return 1; }; integer (integer key, integer unicode, integer down) load_keyevent = { switch (key) { case QFK_DOWN: case QFM_WHEEL_DOWN: load_cursor++; load_cursor %= MAX_SAVEGAMES; return 1; case QFK_UP: case QFM_WHEEL_UP: load_cursor += MAX_SAVEGAMES - 1; load_cursor %= MAX_SAVEGAMES; return 1; case QFK_RETURN: case QFM_BUTTON1: if (loadable[load_cursor]) { Menu_SelectMenu (NIL); Cbuf_AddText (sprintf ("load s%i.sav\n", load_cursor)); } return 1; } return 0; }; integer (integer key, integer unicode, integer down) save_keyevent = { switch (key) { case QFK_DOWN: case QFM_WHEEL_DOWN: save_cursor++; save_cursor %= MAX_SAVEGAMES; return 1; case QFK_UP: case QFM_WHEEL_UP: save_cursor += MAX_SAVEGAMES - 1; save_cursor %= MAX_SAVEGAMES; return 1; case QFK_RETURN: case QFM_BUTTON1: Menu_SelectMenu (NIL); Cbuf_AddText (sprintf ("save s%i.sav\n", save_cursor)); return 1; } return 0; }; void () load_menu = { Menu_Begin (0, 0, "load"); Menu_FadeScreen (1); Menu_KeyEvent (load_keyevent); Menu_Draw (load_draw); Menu_End (); Cmd_AddCommand ("menu_load", load_save_f); }; void () save_menu = { Menu_Begin (0, 0, "save"); Menu_FadeScreen (1); Menu_KeyEvent (save_keyevent); Menu_Draw (save_draw); Menu_End (); Cmd_AddCommand ("menu_save", load_save_f); }; // ********* QUIT integer () quit = { Menu_SelectMenu ("quit"); quit_index = (integer) (random () * 8); quit_index &= 7; return 0; }; integer (string text, integer key) quit_f = { quit (); return 0; }; integer (integer key, integer unicode, integer down) quit_keyevent = { if (key == 'y') { Menu_Quit (); return 1; } if (key == 'n') { Menu_SelectMenu (NIL); return 1; } return 0; }; integer (integer x, integer y) quit_draw = { text_box (x + 56, y + 76, 24, 4); Draw_String (x + 64, y + 84, quitMessage[quit_index * 4 + 0]); Draw_String (x + 64, y + 92, quitMessage[quit_index * 4 + 1]); Draw_String (x + 64, y + 100, quitMessage[quit_index * 4 + 2]); Draw_String (x + 64, y + 108, quitMessage[quit_index * 4 + 3]); return 1; }; void () quit_menu = { Menu_Begin (0, 0, "quit"); Menu_FadeScreen (1); Menu_KeyEvent (quit_keyevent); Menu_Draw (quit_draw); Menu_End (); }; integer (string text, integer key) sp_start = { Menu_SelectMenu (NIL); Cbuf_AddText ("disconnect\n"); Cbuf_AddText ("maxplayers 1\n"); Cbuf_AddText ("coop 0\n"); Cbuf_AddText ("deathmatch 0\n"); Cbuf_AddText ("teamplay 0\n"); Cbuf_AddText ("listen 0\n"); Cbuf_AddText ("noexit 0\n"); Cbuf_AddText ("samelevel 0\n"); Cbuf_AddText ("map start\n"); return 0; }; void () single_player_menu = { Menu_Begin (54, 32, ""); Menu_FadeScreen (1); Menu_Pic (16, 4, "gfx/qplaque.lmp"); Menu_CenterPic (160, 4, "gfx/ttl_sgl.lmp"); Menu_Pic (72, 32, "gfx/sp_menu.lmp"); Menu_Cursor (spinner); Menu_Item (54, 32, "", sp_start, 0); Menu_Item (54, 52, "", load_f, 0); Menu_Item (54, 72, "", save_f, 0); Menu_End (); }; // ********* MULTIPLAYER integer JoiningGame; integer lanConfig_cursor; string my_tcpip_address; string lanConfig_portname; string lanConfig_joinname; #define NUM_LANCONFIG_CMDS 3 integer [NUM_LANCONFIG_CMDS] lanConfig_cursor_table = { 72, 92, 124 }; InputLine lanConfig_port_il; InputLine lanConfig_join_il; InputLine input_active; integer (integer x, integer y) join_draw = { local integer f = x + (320 - 26 * 8) / 2; text_box (f, y + 134, 24, 4); Draw_String (f, y + 142, " Commonly used to play "); Draw_String (f, y + 150, " over the Internet, but "); Draw_String (f, y + 158, " also used on a Local "); Draw_String (f, y + 166, " Area Network. "); return 0; }; integer (integer x, integer y) lanconfig_draw = { local integer basex = 54 + x; local string startJoin = JoiningGame ? "Join Game" : "New Game"; local string protocol = "UDP"; Draw_String (basex, y + 32, sprintf ("%s - %s", startJoin, protocol)); basex += 8; Draw_String (basex, y + 52, "Address:"); Draw_String (basex + 9 * 8, y + 52, "127.0.0.1"); Draw_String (basex, y + lanConfig_cursor_table[0], "Port"); [lanConfig_port_il setBasePos:x y:y]; [lanConfig_port_il cursor:lanConfig_cursor == 0 && input_active]; [lanConfig_port_il draw]; Draw_String (basex + 9 * 8, y + lanConfig_cursor_table[0], lanConfig_portname); if (JoiningGame) { Draw_String (basex, y + lanConfig_cursor_table[1], "Search for local " "games..."); Draw_String (basex, y + 108, "Join game at:"); [lanConfig_join_il setBasePos:x y:y]; [lanConfig_join_il cursor:lanConfig_cursor == 2 && input_active]; [lanConfig_join_il draw]; Draw_String (basex + 16, y + lanConfig_cursor_table[2], lanConfig_joinname); } else { text_box (basex, y + lanConfig_cursor_table[1] - 8, 2, 1); Draw_String (basex + 8, y + lanConfig_cursor_table[1], "OK"); } if (!input_active) Draw_Character (basex - 8, y + lanConfig_cursor_table[lanConfig_cursor], 12 + (integer) (time * 4) & 1); return 0; }; integer (integer key, integer unicode, integer down) lanconfig_keyevent = { if (input_active) [input_active processInput:(key >= 256 ? key : unicode)]; switch (key) { case QFK_DOWN: case QFM_WHEEL_DOWN: if (!input_active) { lanConfig_cursor ++; lanConfig_cursor %= NUM_LANCONFIG_CMDS; } break; case QFK_UP: case QFM_WHEEL_UP: if (!input_active) { lanConfig_cursor += NUM_LANCONFIG_CMDS - 1; lanConfig_cursor %= NUM_LANCONFIG_CMDS; } break; case QFK_RETURN: if (input_active) { input_active = NIL; } else { if (lanConfig_cursor == 0) { input_active = lanConfig_port_il; } else if (JoiningGame) { if (lanConfig_cursor == 2) { input_active = lanConfig_join_il; } } } break; } return 1; }; void () lanconfig_menu = { Menu_Begin (54, 92, ""); Menu_FadeScreen (1); Menu_Pic (16, 4, "gfx/qplaque.lmp"); Menu_CenterPic (160, 4, "gfx/p_multi.lmp"); Menu_Draw (lanconfig_draw); Menu_KeyEvent (lanconfig_keyevent); Menu_End (); }; void () join_menu = { Menu_Begin (54, 32, ""); Menu_FadeScreen (1); Menu_Pic (16, 4, "gfx/qplaque.lmp"); Menu_CenterPic (160, 4, "gfx/p_multi.lmp"); Menu_Pic (72, 32, "gfx/dim_modm.lmp"); Menu_Pic (72, 51, "gfx/dim_drct.lmp"); Menu_Pic (72, 70, "gfx/dim_ipx.lmp"); Menu_Pic (72, 89, "gfx/netmen4.lmp"); lanconfig_menu (); Menu_Draw (join_draw); Menu_Cursor (spinner); Menu_End (); }; integer (integer key, integer unicode, integer down) multi_player_keyevent = { if (key == QFK_RETURN) { JoiningGame = (Menu_GetIndex () == 0); } return 0; }; void () multi_player_menu = { Menu_Begin (54, 52, ""); Menu_FadeScreen (1); Menu_Pic (16, 4, "gfx/qplaque.lmp"); Menu_CenterPic (160, 4, "gfx/p_multi.lmp"); Menu_Pic (72, 32, "gfx/mp_menu.lmp"); Menu_KeyEvent (multi_player_keyevent); join_menu (); if (do_single_player) Menu_Item (54, 52, "", quit_f, 0); Menu_Item (54, 72, "", quit_f, 0); Menu_Cursor (spinner); Menu_End (); }; void () help_menu = { Menu_Item (54, 92, "", quit_f, 0); }; void () main_menu = { Menu_Begin (0, 0, "main"); Menu_FadeScreen (1); Menu_Pic (16, 4, "gfx/qplaque.lmp"); Menu_CenterPic (160, 4, "gfx/ttl_main.lmp"); if (do_single_player) Menu_Pic (71,32, "gfx/mainmenu.lmp"); else Menu_SubPic (71,52, "gfx/mainmenu.lmp", 0, 20, 240, 92); Menu_Cursor (spinner); if (do_single_player) single_player_menu (); switch (gametype ()) { case "netquake": multi_player_menu (); break; case "quakeworld": server_list_menu (); break; default: break; } MENU_options (); help_menu (); Menu_Item (54, 112, "", quit_f, 0); Menu_End (); }; void () menu_init = { lanConfig_port_il = [[InputLineBox alloc] initWithBounds:[[Rect alloc] initWithComponents:126 :lanConfig_cursor_table[0] - 8 :8 :4] promptCharacter:' ']; [lanConfig_port_il setWidth:10]; lanConfig_join_il = [[InputLineBox alloc] initWithBounds:[[Rect alloc] initWithComponents:70 :lanConfig_cursor_table[2] - 8 :24 :4] promptCharacter:' ']; [lanConfig_join_il setWidth:26]; switch (gametype ()) { case "netquake": do_single_player = 1; break; case "quakeworld": do_single_player = 0; break; default: break; } main_menu (); quit_menu (); load_menu (); save_menu (); Menu_TopMenu ("main"); Menu_SetQuit (quit); };