menu.pas

雷神之锤2(Quake2)Delphi源码

  s_options_lookspring_box.generic.type_ := MTYPE_SPINCONTROL;
  s_options_lookspring_box.generic.x := 0;
  s_options_lookspring_box.generic.y := 80;
  s_options_lookspring_box.generic.name := 'lookspring';
  s_options_lookspring_box.generic.callback := LookspringFunc;
  s_options_lookspring_box.itemnames := @yesno_names;

  s_options_lookstrafe_box.generic.type_ := MTYPE_SPINCONTROL;
  s_options_lookstrafe_box.generic.x := 0;
  s_options_lookstrafe_box.generic.y := 90;
  s_options_lookstrafe_box.generic.name := 'lookstrafe';
  s_options_lookstrafe_box.generic.callback := LookstrafeFunc;
  s_options_lookstrafe_box.itemnames := @yesno_names;

  s_options_freelook_box.generic.type_ := MTYPE_SPINCONTROL;
  s_options_freelook_box.generic.x := 0;
  s_options_freelook_box.generic.y := 100;
  s_options_freelook_box.generic.name := 'free look';
  s_options_freelook_box.generic.callback := FreeLookFunc;
  s_options_freelook_box.itemnames := @yesno_names;

  s_options_crosshair_box.generic.type_ := MTYPE_SPINCONTROL;
  s_options_crosshair_box.generic.x := 0;
  s_options_crosshair_box.generic.y := 110;
  s_options_crosshair_box.generic.name := 'crosshair';
  s_options_crosshair_box.generic.callback := CrosshairFunc;
  s_options_crosshair_box.itemnames := @crosshair_names;
  {
   s_options_noalttab_box.generic.type_ := MTYPE_SPINCONTROL;
   s_options_noalttab_box.generic.x	:= 0;
   s_options_noalttab_box.generic.y	:= 110;
   s_options_noalttab_box.generic.name	:= 'disable alt-tab';
   s_options_noalttab_box.generic.callback := NoAltTabFunc;
   s_options_noalttab_box.itemnames := @yesno_names;
  }
  s_options_joystick_box.generic.type_ := MTYPE_SPINCONTROL;
  s_options_joystick_box.generic.x := 0;
  s_options_joystick_box.generic.y := 120;
  s_options_joystick_box.generic.name := 'use joystick';
  s_options_joystick_box.generic.callback := JoystickFunc;
  s_options_joystick_box.itemnames := @yesno_names;

  s_options_customize_options_action.generic.type_ := MTYPE_ACTION;
  s_options_customize_options_action.generic.x := 0;
  s_options_customize_options_action.generic.y := 140;
  s_options_customize_options_action.generic.name := 'customize controls';
  s_options_customize_options_action.generic.callback := CustomizeControlsFunc;

  s_options_defaults_action.generic.type_ := MTYPE_ACTION;
  s_options_defaults_action.generic.x := 0;
  s_options_defaults_action.generic.y := 150;
  s_options_defaults_action.generic.name := 'reset defaults';
  s_options_defaults_action.generic.callback := ControlsResetDefaultsFunc;

  s_options_console_action.generic.type_ := MTYPE_ACTION;
  s_options_console_action.generic.x := 0;
  s_options_console_action.generic.y := 160;
  s_options_console_action.generic.name := 'go to console';
  s_options_console_action.generic.callback := ConsoleFunc;

  ControlsSetMenuItemValues();

  Menu_AddItem(@s_options_menu, @s_options_sfxvolume_slider);
  Menu_AddItem(@s_options_menu, @s_options_cdvolume_box);
  Menu_AddItem(@s_options_menu, @s_options_quality_list);
  Menu_AddItem(@s_options_menu, @s_options_compatibility_list);
  Menu_AddItem(@s_options_menu, @s_options_sensitivity_slider);
  Menu_AddItem(@s_options_menu, @s_options_alwaysrun_box);
  Menu_AddItem(@s_options_menu, @s_options_invertmouse_box);
  Menu_AddItem(@s_options_menu, @s_options_lookspring_box);
  Menu_AddItem(@s_options_menu, @s_options_lookstrafe_box);
  Menu_AddItem(@s_options_menu, @s_options_freelook_box);
  Menu_AddItem(@s_options_menu, @s_options_crosshair_box);
  Menu_AddItem(@s_options_menu, @s_options_joystick_box);
  Menu_AddItem(@s_options_menu, @s_options_customize_options_action);
  Menu_AddItem(@s_options_menu, @s_options_defaults_action);
  Menu_AddItem(@s_options_menu, @s_options_console_action);
end;

procedure Options_MenuDraw;
begin
  M_Banner('m_banner_options');
  Menu_AdjustCursor(@s_options_menu, 1);
  Menu_Draw(@s_options_menu);
end;

function Options_MenuKey(Key: Integer): PChar;
begin
  result := Default_MenuKey(@s_options_menu, key);
end;

procedure M_Menu_Options_f;
begin
  Options_MenuInit();
  M_PushMenu(@Options_MenuDraw, @Options_MenuKey);
end;

{
====================================

VIDEO MENU

====================================
}

procedure M_Menu_Video_f;
begin
  VID_MenuInit();
  M_PushMenu(@VID_MenuDraw, @VID_MenuKey);
end;

{
=======================================

END GAME MENU

=======================================
}
// All static
var
  credits_start_time: Integer;
  credits: PPChar;
  creditsIndex: array[0..255] of Char;
  creditsBuffer: PChar;
const
  idcredits: array[0..86] of PChar = (
    '+QUAKE II BY ID SOFTWARE',
    '',
    '+PROGRAMMING',
    'John Carmack',
    'John Cash',
    'Brian Hook',
    '',
    '+ART',
    'Adrian Carmack',
    'Kevin Cloud',
    'Paul Steed',
    '',
    '+LEVEL DESIGN',
    'Tim Willits',
    'American McGee',
    'Christian Antkow',
    'Paul Jaquays',
    'Brandon James',
    '',
    '+BIZ',
    'Todd Hollenshead',
    'Barrett (Bear) Alexander',
    'Donna Jackson',
    '',
    '',
    '+SPECIAL THANKS',
    'Ben Donges for beta testing',
    '',
    '',
    '',
    '',
    '',
    '',
    '+ADDITIONAL SUPPORT',
    '',
    '+LINUX PORT AND CTF',
    'Dave "Zoid" Kirsch',
    '',
    '+CINEMATIC SEQUENCES',
    'Ending Cinematic by Blur Studio - ',
    'Venice, CA',
    '',
    'Environment models for Introduction',
    'Cinematic by Karl Dolgener',
    '',
    'Assistance with environment design',
    'by Cliff Iwai',
    '',
    '+SOUND EFFECTS AND MUSIC',
    'Sound Design by Soundelux Media Labs.',
    'Music Composed and Produced by',
    'Soundelux Media Labs.  Special thanks',
    'to Bill Brown, Tom Ozanich, Brian',
    'Celano, Jeff Eisner, and The Soundelux',
    'Players.',
    '',
    '"Level Music" by Sonic Mayhem',
    'www.sonicmayhem.com',
    '',
    '"Quake II Theme Song"',
    '(C) 1997 Rob Zombie. All Rights',
    'Reserved.',
    '',
    'Track 10 ("Climb") by Jer Sypult',
    '',
    'Voice of computers by',
    'Carly Staehlin-Taylor',
    '',
    '+THANKS TO ACTIVISION',
    '+IN PARTICULAR:',
    '',
    'John Tam',
    'Steve Rosenthal',
    'Marty Stratton',
    'Henk Hartong',
    '',
    'Quake II(tm) (C)1997 Id Software, Inc.',
    'All Rights Reserved.  Distributed by',
    'Activision, Inc. under license.',
    'Quake II(tm), the Id Software name,',
    'the "Q II"(tm) logo and id(tm)',
    'logo are trademarks of Id Software,',
    'Inc. Activision(R) is a registered',
    'trademark of Activision, Inc. All',
    'other trademarks and trade names are',
    'properties of their respective owners.',
    nil
    );

  xatcredits: array[0..136] of PChar = (
    '+QUAKE II MISSION PACK: THE RECKONING',
    '+BY',
    '+XATRIX ENTERTAINMENT, INC.',
    '',
    '+DESIGN AND DIRECTION',
    'Drew Markham',
    '',
    '+PRODUCED BY',
    'Greg Goodrich',
    '',
    '+PROGRAMMING',
    'Rafael Paiz',
    '',
    '+LEVEL DESIGN / ADDITIONAL GAME DESIGN',
    'Alex Mayberry',
    '',
    '+LEVEL DESIGN',
    'Mal Blackwell',
    'Dan Koppel',
    '',
    '+ART DIRECTION',
    'Michael "Maxx" Kaufman',
    '',
    '+COMPUTER GRAPHICS SUPERVISOR AND',
    '+CHARACTER ANIMATION DIRECTION',
    'Barry Dempsey',
    '',
    '+SENIOR ANIMATOR AND MODELER',
    'Jason Hoover',
    '',
    '+CHARACTER ANIMATION AND',
    '+MOTION CAPTURE SPECIALIST',
    'Amit Doron',
    '',
    '+ART',
    'Claire Praderie-Markham',
    'Viktor Antonov',
    'Corky Lehmkuhl',
    '',
    '+INTRODUCTION ANIMATION',
    'Dominique Drozdz',
    '',
    '+ADDITIONAL LEVEL DESIGN',
    'Aaron Barber',
    'Rhett Baldwin',
    '',
    '+3D CHARACTER ANIMATION TOOLS',
    'Gerry Tyra, SA Technology',
    '',
    '+ADDITIONAL EDITOR TOOL PROGRAMMING',
    'Robert Duffy',
    '',
    '+ADDITIONAL PROGRAMMING',
    'Ryan Feltrin',
    '',
    '+PRODUCTION COORDINATOR',
    'Victoria Sylvester',
    '',
    '+SOUND DESIGN',
    'Gary Bradfield',
    '',
    '+MUSIC BY',
    'Sonic Mayhem',
    '',
    '',
    '',
    '+SPECIAL THANKS',
    '+TO',
    '+OUR FRIENDS AT ID SOFTWARE',
    '',
    'John Carmack',
    'John Cash',
    'Brian Hook',
    'Adrian Carmack',
    'Kevin Cloud',
    'Paul Steed',
    'Tim Willits',
    'Christian Antkow',
    'Paul Jaquays',
    'Brandon James',
    'Todd Hollenshead',
    'Barrett (Bear) Alexander',
    'Dave "Zoid" Kirsch',
    'Donna Jackson',
    '',
    '',
    '',
    '+THANKS TO ACTIVISION',
    '+IN PARTICULAR:',
    '',
    'Marty Stratton',
    'Henk "The Original Ripper" Hartong',
    'Kevin Kraff',
    'Jamey Gottlieb',
    'Chris Hepburn',
    '',
    '+AND THE GAME TESTERS',
    '',
    'Tim Vanlaw',
    'Doug Jacobs',
    'Steven Rosenthal',
    'David Baker',
    'Chris Campbell',
    'Aaron Casillas',
    'Steve Elwell',
    'Derek Johnstone',
    'Igor Krinitskiy',
    'Samantha Lee',
    'Michael Spann',
    'Chris Toft',
    'Juan Valdes',
    '',
    '+THANKS TO INTERGRAPH COMPUTER SYTEMS',
    '+IN PARTICULAR:',
    '',
    'Michael T. Nicolaou',
    '',
    '',
    'Quake II Mission Pack: The Reckoning',
    '(tm) (C)1998 Id Software, Inc. All',
    'Rights Reserved. Developed by Xatrix',
    'Entertainment, Inc. for Id Software,',
    'Inc. Distributed by Activision Inc.',
    'under license. Quake(R) is a',
    'registered trademark of Id Software,',
    'Inc. Quake II Mission Pack: The',
    'Reckoning(tm), Quake II(tm), the Id',
    'Software name, the ''Q II''(tm) logo',
    'and id(tm) logo are trademarks of Id',
    'Software, Inc. Activision(R) is a',
    'registered trademark of Activision,',
    'Inc. Xatrix(R) is a registered',
    'trademark of Xatrix Entertainment,',
    'Inc. All other trademarks and trade',
    'names are properties of their',
    'respective owners.', nil
    );

  roguecredits: array[0..109] of PChar = (
    '+QUAKE II MISSION PACK 2: GROUND ZERO',
    '+BY',
    '+ROGUE ENTERTAINMENT, INC.',
    '',
    '+PRODUCED BY',
    'Jim Molinets',
    '',
    '+PROGRAMMING',
    'Peter Mack',
    'Patrick Magruder',
    '',
    '+LEVEL DESIGN',
    'Jim Molinets',
    'Cameron Lamprecht',
    'Berenger Fish',
    'Robert Selitto',
    'Steve Tietze',
    'Steve Thoms',
    '',
    '+ART DIRECTION',
    'Rich Fleider',
    '',
    '+ART',
    'Rich Fleider',
    'Steve Maines',
    'Won Choi',
    '',
    '+ANIMATION SEQUENCES',
    'Creat Studios',
    'Steve Maines',
    '',
    '+ADDITIONAL LEVEL DESIGN',
    'Rich Fleider',
    'Steve Maines',
    'Peter Mack',
    '',
    '+SOUND',
    'James Grunke',
    '',
    '+GROUND ZERO THEME',
    '+AND',
    '+MUSIC BY',
    'Sonic Mayhem',
    '',
    '+VWEP MODELS',
    'Brent "Hentai" Dill',
    '',
    '',
    '',
    '+SPECIAL THANKS',
    '+TO',
    '+OUR FRIENDS AT ID SOFTWARE',
    '',
    'John Carmack',
    'John Cash',
    'Brian Hook',
    'Adrian Carmack',
    'Kevin Cloud',
    'Paul Steed',
    'Tim Willits',
    'Christian Antkow',
    'Paul Jaquays',
    'Brandon James',
    'Todd Hollenshead',
    'Barrett (Bear) Alexander',
    'Katherine Anna Kang',
    'Donna Jackson',
    'Dave "Zoid" Kirsch',
    '',
    '',
    '',
    '+THANKS TO ACTIVISION',
    '+IN PARTICULAR:',
    '',
    'Marty Stratton',
    'Henk Hartong',
    'Mitch Lasky',
    'Steve Rosenthal',
    'Steve Elwell',
    '',
    '+AND THE GAME TESTERS',
    '',
    'The Ranger Clan',
    'Dave "Zoid" Kirsch',
    'Nihilistic Software',
    'Robert Duffy',
    '',
    'And Countless Others',
    '',
    '',
    '',
    'Quake II Mission Pack 2: Ground Zero',
    '(tm) (C)1998 Id Software, Inc. All',
    'Rights Reserved. Developed by Rogue',
    'Entertainment, Inc. for Id Software,',