quake2.dpr

来自「雷神之锤2(Quake2)Delphi源码」· DPR 代码 · 共 91 行

program quake2;

uses
  { ..\win32\ }
  sys_win in '..\win32\sys_win.pas',
  vid_dll in '..\win32\vid_dll.pas',
  snd_win in '..\win32\snd_win.pas',
  in_win in '..\win32\in_win.pas',
  q_shwin in '..\win32\q_shwin.pas',
  net_wins in '..\win32\net_wins.pas',
  cd_win in '..\win32\cd_win.pas',
  vid_menu in '..\win32\vid_menu.pas',
  ConProc in '..\win32\ConProc.pas',

  { ..\qcommon\ }
  crc in '..\qcommon\crc.pas',
  CPas in '..\qcommon\CPas.pas',
  cmd in '..\qcommon\Cmd.pas',
  Common in '..\qcommon\Common.pas',
  CVar in '..\qcommon\CVar.pas',
  Files in '..\qcommon\Files.pas',
  QFiles in '..\qcommon\qfiles.pas',
  CModel in '..\qcommon\CModel.pas',
  md4 in '..\qcommon\md4.pas',
  PMoveUnit in '..\qcommon\PMoveUnit.pas',
  net_chan in '..\qcommon\net_chan.pas',
  Delphi_cdecl_printf in '..\qcommon\Delphi_cdecl_printf.pas',

  { ..\game\ }
  q_shared in '..\game\q_shared.pas',
  g_local in '..\game\g_local.pas',
  m_flash in '..\game\m_flash.pas',
  GameUnit in '..\game\GameUnit.pas',

  { ..\client\ }
  cl_main in '..\client\cl_main.pas',
  Client in '..\client\Client.pas',
  ref in '..\client\ref.pas',
  menu in '..\client\menu.pas',
  Sound_h in '..\client\sound_h.pas',
  Console in '..\client\Console.pas',
  cl_scrn in '..\client\cl_scrn.pas',
  vid_h in '..\client\vid_h.pas',
  keys in '..\client\keys.pas',
  snd_loc in '..\client\snd_loc.pas',
  cl_input in '..\client\cl_input.pas',
  cl_cin in '..\client\cl_cin.pas',
  snd_dma in '..\client\snd_dma.pas',
  cl_ents in '..\client\cl_ents.pas',
  cl_pred in '..\client\cl_pred.pas',
  cl_view in '..\client\cl_view.pas',
  cl_parse in '..\client\cl_parse.pas',
  Qmenu in '..\client\qmenu.pas',
  cl_tent in '..\client\cl_tent.pas',
  cl_fx in '..\client\cl_fx.pas',
  cl_newfx in '..\client\cl_newfx.pas',
  snd_mix in '..\client\snd_mix.pas',
  snd_mem in '..\client\snd_mem.pas',
  cl_inv in '..\client\cl_inv.pas',

  { ..\server\ }
  server in '..\server\server.pas',
  sv_game in '..\server\sv_game.pas',
  sv_init in '..\server\sv_init.pas',
  sv_ccmds in '..\server\sv_ccmds.pas',
  Sv_main in '..\server\sv_main.pas',
  sv_send in '..\server\sv_send.pas',
  sv_ents in '..\server\sv_ents.pas',
  sv_user in '..\server\sv_user.pas',
  sv_world in '..\server\sv_world.pas';

{$R *.res}

{$I ../Jedi.inc}

var
  Saved8087CW: Word;

begin
  { Save the current FPU state and then disable FPU exceptions }
  Saved8087CW := Default8087CW;
  Set8087CW($133f); { Disable all fpu exceptions }

{$IFDEF COMPILER6_UP}{$WARN SYMBOL_PLATFORM OFF}{$WARN SYMBOL_DEPRECATED OFF}{$ENDIF}
  WinMain( hInstance, hPrevInst, CmdLine, CmdShow );
{$IFDEF COMPILER6_UP}{$WARN SYMBOL_PLATFORM ON}{$WARN SYMBOL_DEPRECATED ON}{$ENDIF}

  { Reset the FPU to the previous state }
  Set8087CW(Saved8087CW);
end.