GLHexen32.dpr

//------------------------------------------------------------------------------
//
//  DelphiHexen is a source port of the game Hexen and it is
//  based on original Linux Doom as published by "id Software", on
//  Hexen source as published by "Raven" software and on DelphiDoom
//  as published by Jim Valavanis.
//  Copyright (C) 2004-2022 by Jim Valavanis
//
//  This program is free software; you can redistribute it and/or
//  modify it under the terms of the GNU General Public License
//  as published by the Free Software Foundation; either version 2
//  of the License, or (at your option) any later version.
//
//  This program is distributed in the hope that it will be useful,
//  but WITHOUT ANY WARRANTY; without even the implied warranty of
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//  GNU General Public License for more details.
//
//  You should have received a copy of the GNU General Public License
//  along with this program; if not, write to the Free Software
//  Foundation, inc., 59 Temple Place - Suite 330, Boston, MA
//  02111-1307, USA.
//
//------------------------------------------------------------------------------
//  Site  : https://sourceforge.net/projects/delphidoom/
//------------------------------------------------------------------------------

{$IFDEF FPC}
{$Error: Use you must use Delphi to compile this project. }
{$ENDIF}

{$IFNDEF OPENGL}
{$Error: This project uses opengl renderer, please define "OPENGL"}
{$ENDIF}

{$IFNDEF HEXEN}
{$Error: To compile this project you must define "HEXEN"}
{$ENDIF}

{$I Doom32.inc}
{$D Hexen to Delphi Total Conversion}

program GLHexen32;

{$R *.RES}

uses
  FastMM4 in 'FASTMM4\FastMM4.pas',
  FastMM4Messages in 'FASTMM4\FastMM4Messages.pas',
  FastCode in 'FASTCODE\FastCode.pas',
  FastMove in 'FASTCODE\FastMove.pas',
  SysUtils,
  AnsiStringReplaceJOHIA32Unit12 in 'FASTCODE\AnsiStringReplaceJOHIA32Unit12.pas',
  AnsiStringReplaceJOHPASUnit12 in 'FASTCODE\AnsiStringReplaceJOHPASUnit12.pas',
  FastcodeAnsiStringReplaceUnit in 'FASTCODE\FastcodeAnsiStringReplaceUnit.pas',
  FastcodeCompareMemUnit in 'FASTCODE\FastcodeCompareMemUnit.pas',
  FastcodeCompareStrUnit in 'FASTCODE\FastcodeCompareStrUnit.pas',
  FastcodeCompareTextUnit in 'FASTCODE\FastcodeCompareTextUnit.pas',
  FastcodeCPUID in 'FASTCODE\FastcodeCPUID.pas',
  FastcodeFillCharUnit in 'FASTCODE\FastcodeFillCharUnit.pas',
  FastcodeLowerCaseUnit in 'FASTCODE\FastcodeLowerCaseUnit.pas',
  FastcodePatch in 'FASTCODE\FastcodePatch.pas',
  FastcodePosExUnit in 'FASTCODE\FastcodePosExUnit.pas',
  FastcodePosUnit in 'FASTCODE\FastcodePosUnit.pas',
  FastcodeStrCompUnit in 'FASTCODE\FastcodeStrCompUnit.pas',
  FastcodeStrCopyUnit in 'FASTCODE\FastcodeStrCopyUnit.pas',
  FastcodeStrICompUnit in 'FASTCODE\FastcodeStrICompUnit.pas',
  FastCodeStrLenUnit in 'FASTCODE\FastCodeStrLenUnit.pas',
  FastcodeStrToInt32Unit in 'FASTCODE\FastcodeStrToInt32Unit.pas',
  FastcodeUpperCaseUnit in 'FASTCODE\FastcodeUpperCaseUnit.pas',
  gl_clipper in 'OPENGL\gl_clipper.pas',
  gl_tex in 'OPENGL\gl_tex.pas',
  gl_defs in 'OPENGL\gl_defs.pas',
  gl_main in 'OPENGL\gl_main.pas',
  gl_misc in 'OPENGL\gl_misc.pas',
  gl_render in 'OPENGL\gl_render.pas',
  gl_sky in 'OPENGL\gl_sky.pas',
  gl_lights in 'OPENGL\gl_lights.pas',
  v_video in 'Base\v_video.pas',
  w_utils in 'Base\w_utils.pas',
  doomdef in 'Hexen\doomdef.pas',
  xn_strings in 'Hexen\xn_strings.pas',
  a_action in 'Hexen\a_action.pas',
  am_map in 'Hexen\am_map.pas',
  c_cmds in 'Base\c_cmds.pas',
  c_con in 'Base\c_con.pas',
  c_utils in 'Base\c_utils.pas',
  d_delphi in 'Common\d_delphi.pas',
  d_event in 'Base\d_event.pas',
  d_fpc in 'Base\d_fpc.pas',
  d_main in 'Hexen\d_main.pas',
  d_net in 'Base\d_net.pas',
  d_net_h in 'Base\d_net_h.pas',
  d_player in 'Hexen\d_player.pas',
  d_think in 'Base\d_think.pas',
  d_ticcmd in 'Base\d_ticcmd.pas',
  deh_main in 'Hexen\deh_main.pas',
  DirectX in 'Common\DirectX.pas',
  doomdata in 'Hexen\doomdata.pas',
  doomstat in 'Hexen\doomstat.pas',
  doomtype in 'Base\doomtype.pas',
  f_finale in 'Hexen\f_finale.pas',
  g_demo in 'Hexen\g_demo.pas',
  g_game in 'Hexen\g_game.pas',
  hu_lib in 'Base\hu_lib.pas',
  hu_stuff in 'Hexen\hu_stuff.pas',
  i_input in 'Base\i_input.pas',
  i_io in 'Base\i_io.pas',
  i_midi in 'Base\i_midi.pas',
  i_midi_legacy in 'Base\i_midi_legacy.pas',
  i_midi_new in 'Base\i_midi_new.pas',
  i_mp3 in 'Base\i_mp3.pas',
  i_music in 'Base\i_music.pas',
  i_net in 'Base\i_net.pas',
  i_sound in 'Base\i_sound.pas',
  i_system in 'Base\i_system.pas',
  in_stuff in 'Hexen\in_stuff.pas',
  info in 'Hexen\info.pas',
  info_h in 'Hexen\info_h.pas',
  info_rnd in 'Hexen\info_rnd.pas',
  jpg_utils in 'JPEGLIB\jpg_utils.pas',
  jpg_comapi in 'JPEGLIB\jpg_comapi.pas',
  jpg_dapimin in 'JPEGLIB\jpg_dapimin.pas',
  jpg_dapistd in 'JPEGLIB\jpg_dapistd.pas',
  jpg_dcoefct in 'JPEGLIB\jpg_dcoefct.pas',
  jpg_dcolor in 'JPEGLIB\jpg_dcolor.pas',
  jpg_dct in 'JPEGLIB\jpg_dct.pas',
  jpg_ddctmgr in 'JPEGLIB\jpg_ddctmgr.pas',
  jpg_deferr in 'JPEGLIB\jpg_deferr.pas',
  jpg_dhuff in 'JPEGLIB\jpg_dhuff.pas',
  jpg_dinput in 'JPEGLIB\jpg_dinput.pas',
  jpg_dmainct in 'JPEGLIB\jpg_dmainct.pas',
  jpg_dmarker in 'JPEGLIB\jpg_dmarker.pas',
  jpg_dmaster in 'JPEGLIB\jpg_dmaster.pas',
  jpg_dmerge in 'JPEGLIB\jpg_dmerge.pas',
  jpg_dphuff in 'JPEGLIB\jpg_dphuff.pas',
  jpg_dpostct in 'JPEGLIB\jpg_dpostct.pas',
  jpg_dsample in 'JPEGLIB\jpg_dsample.pas',
  jpg_error in 'JPEGLIB\jpg_error.pas',
  jpg_idctasm in 'JPEGLIB\jpg_idctasm.pas',
  jpg_idctflt in 'JPEGLIB\jpg_idctflt.pas',
  jpg_idctfst in 'JPEGLIB\jpg_idctfst.pas',
  jpg_IDctRed in 'JPEGLIB\jpg_IDctRed.pas',
  jpg_lib in 'JPEGLIB\jpg_lib.pas',
  jpg_memmgr in 'JPEGLIB\jpg_memmgr.pas',
  jpg_memnobs in 'JPEGLIB\jpg_memnobs.pas',
  jpg_morecfg in 'JPEGLIB\jpg_morecfg.pas',
  jpg_quant1 in 'JPEGLIB\jpg_quant1.pas',
  jpg_quant2 in 'JPEGLIB\jpg_quant2.pas',
  m_argv in 'Base\m_argv.pas',
  m_base in 'Base\m_base.pas',
  m_bbox in 'Base\m_bbox.pas',
  m_cheat in 'Base\m_cheat.pas',
  m_defs in 'Hexen\m_defs.pas',
  m_fixed in 'Base\m_fixed.pas',
  m_menu in 'Hexen\m_menu.pas',
  m_misc in 'Base\m_misc.pas',
  m_rnd in 'Base\m_rnd.pas',
  m_stack in 'Base\m_stack.pas',
  m_vectors in 'Base\m_vectors.pas',
  mp3_Args in 'MP3LIB\mp3_Args.pas',
  mp3_BitReserve in 'MP3LIB\mp3_BitReserve.pas',
  mp3_BitStream in 'MP3LIB\mp3_BitStream.pas',
  mp3_CRC in 'MP3LIB\mp3_CRC.pas',
  mp3_Header in 'MP3LIB\mp3_Header.pas',
  mp3_Huffman in 'MP3LIB\mp3_Huffman.pas',
  mp3_InvMDT in 'MP3LIB\mp3_InvMDT.pas',
  mp3_L3Tables in 'MP3LIB\mp3_L3Tables.pas',
  mp3_L3Type in 'MP3LIB\mp3_L3Type.pas',
  mp3_Layer3 in 'MP3LIB\mp3_Layer3.pas',
  mp3_MPEGPlayer in 'MP3LIB\mp3_MPEGPlayer.pas',
  mp3_OBuffer in 'MP3LIB\mp3_OBuffer.pas',
  mp3_OBuffer_MCI in 'MP3LIB\mp3_OBuffer_MCI.pas',
  mp3_OBuffer_Wave in 'MP3LIB\mp3_OBuffer_Wave.pas',
  mp3_Player in 'MP3LIB\mp3_Player.pas',
  mp3_ScaleFac in 'MP3LIB\mp3_ScaleFac.pas',
  mp3_Shared in 'MP3LIB\mp3_Shared.pas',
  mp3_SubBand1 in 'MP3LIB\mp3_SubBand1.pas',
  mp3_SubBand2 in 'MP3LIB\mp3_SubBand2.pas',
  mp3_SubBand in 'MP3LIB\mp3_SubBand.pas',
  mp3_SynthFilter in 'MP3LIB\mp3_SynthFilter.pas',
  p_acs in 'Base\p_acs.pas',
  p_anim in 'Hexen\p_anim.pas',
  udmf_ceilng in 'Base\udmf_ceilng.pas',
  udmf_doors in 'Base\udmf_doors.pas',
  p_enemy in 'Hexen\p_enemy.pas',
  p_extra in 'Hexen\p_extra.pas',
  udmf_floor in 'Base\udmf_floor.pas',
  p_inter in 'Hexen\p_inter.pas',
  udmf_telept in 'Base\udmf_telept.pas',
  udmf_lights in 'Base\udmf_lights.pas',
  p_local in 'Hexen\p_local.pas',
  p_map in 'Hexen\p_map.pas',
  p_maputl in 'Hexen\p_maputl.pas',
  p_mobj in 'Hexen\p_mobj.pas',
  p_mobj_h in 'Hexen\p_mobj_h.pas',
  udmf_plats in 'Base\udmf_plats.pas',
  p_pspr in 'Hexen\p_pspr.pas',
  p_pspr_h in 'Hexen\p_pspr_h.pas',
  p_setup in 'Hexen\p_setup.pas',
  p_sight in 'Hexen\p_sight.pas',
  p_sounds in 'Base\p_sounds.pas',
  p_spec in 'Hexen\p_spec.pas',
  p_switch in 'Hexen\p_switch.pas',
  p_terrain in 'Hexen\p_terrain.pas',
  p_things in 'Hexen\p_things.pas',
  p_tick in 'Hexen\p_tick.pas',
  p_user in 'Hexen\p_user.pas',
  po_man in 'Base\po_man.pas',
  r_bsp in 'Hexen\r_bsp.pas',
  r_camera in 'Base\r_camera.pas',
  r_data in 'Hexen\r_data.pas',
  r_defs in 'Hexen\r_defs.pas',
  r_draw in 'Hexen\r_draw.pas',
  r_hires in 'Base\r_hires.pas',
  r_intrpl in 'Base\r_intrpl.pas',
  r_lights in 'Base\r_lights.pas',
  r_main in 'Hexen\r_main.pas',
  r_mmx in 'Base\r_mmx.pas',
  r_plane in 'Hexen\r_plane.pas',
  r_sky in 'Hexen\r_sky.pas',
  r_things in 'Base\r_things.pas',
  rtl_types in 'Base\rtl_types.pas',
  s_sndseq in 'Hexen\s_sndseq.pas',
  s_sound in 'Hexen\s_sound.pas',
  sb_bar in 'Hexen\sb_bar.pas',
  sc_actordef in 'Base\sc_actordef.pas',
  sc_engine in 'Base\sc_engine.pas',
  sc_params in 'Base\sc_params.pas',
  sounds in 'Hexen\sounds.pas',
  sv_save in 'Hexen\sv_save.pas',
  tables in 'Base\tables.pas',
  v_data in 'Hexen\v_data.pas',
  z_files in 'ZLIB\z_files.pas',
  t_tga in 'TEXLIB\t_tga.pas',
  t_bmp in 'TEXLIB\t_bmp.pas',
  t_colors in 'TEXLIB\t_colors.pas',
  t_draw in 'TEXLIB\t_draw.pas',
  t_jpeg in 'TEXLIB\t_jpeg.pas',
  t_main in 'TEXLIB\t_main.pas',
  t_png in 'TEXLIB\t_png.pas',
  z_zone in 'Base\z_zone.pas',
  w_pak in 'Base\w_pak.pas',
  w_wad in 'Base\w_wad.pas',
  i_startup in 'Base\i_startup.pas' {StartUpConsoleForm},
  sc_states in 'Base\sc_states.pas',
  gl_types in 'OPENGL\gl_types.pas',
  gl_models in 'OPENGL\gl_models.pas',
  gl_lightmaps in 'OPENGL\gl_lightmaps.pas',
  t_material in 'TEXLIB\t_material.pas',
  gl_shadows in 'OPENGL\gl_shadows.pas',
  dglOpenGL in 'OPENGL\dglOpenGL.pas',
  r_dynlights in 'Base\r_dynlights.pas',
  sc_tokens in 'Base\sc_tokens.pas',
  i_tmp in 'Base\i_tmp.pas',
  i_exec in 'Base\i_exec.pas',
  gl_frustum in 'OPENGL\gl_frustum.pas',
  p_adjust in 'Base\p_adjust.pas',
  w_autoload in 'Base\w_autoload.pas',
  p_common in 'Base\p_common.pas',
  r_aspect in 'Base\r_aspect.pas',
  i_threads in 'Base\i_threads.pas',
  z_memmgr in 'Base\z_memmgr.pas',
  gl_voxels in 'OPENGL\gl_voxels.pas',
  vx_base in 'Base\vx_base.pas',
  info_fnd in 'Base\info_fnd.pas',
  mt_utils in 'Base\mt_utils.pas',
  p_params in 'Base\p_params.pas',
  nd_main in 'Base\nd_main.pas',
  am_textured in 'Base\am_textured.pas',
  p_udmf in 'Base\p_udmf.pas',
  m_crc32 in 'Base\m_crc32.pas',
  m_sshot_jpg in 'Base\m_sshot_jpg.pas',
  ps_import in 'SCRIPT\ps_import.pas',
  ps_main in 'SCRIPT\ps_main.pas',
  uPSC_dateutils in 'SCRIPT\uPSC_dateutils.pas',
  uPSC_dll in 'SCRIPT\uPSC_dll.pas',
  ps_compiler in 'SCRIPT\ps_compiler.pas',
  uPSR_dateutils in 'SCRIPT\uPSR_dateutils.pas',
  uPSR_dll in 'SCRIPT\uPSR_dll.pas',
  ps_runtime in 'SCRIPT\ps_runtime.pas',
  ps_utils in 'SCRIPT\ps_utils.pas',
  info_common in 'Base\info_common.pas',
  sc_thinker in 'Base\sc_thinker.pas',
  m_hash in 'Base\m_hash.pas',
  p_ladder in 'Base\p_ladder.pas',
  r_visplanes in 'Base\r_visplanes.pas',
  p_3dfloors in 'Base\p_3dfloors.pas',
  p_slopes in 'Base\p_slopes.pas',
  gl_slopes in 'OPENGL\gl_slopes.pas',
  ps_proclist in 'SCRIPT\ps_proclist.pas',
  uPSPreProcessor in 'SCRIPT\uPSPreProcessor.pas',
  psi_system in 'SCRIPT\psi_system.pas',
  psi_globals in 'SCRIPT\psi_globals.pas',
  ddc_base in 'SCRIPT\ddc_base.pas',
  p_mobjlist in 'Base\p_mobjlist.pas',
  m_smartpointerlist in 'Base\m_smartpointerlist.pas',
  psi_game in 'SCRIPT\psi_game.pas',
  ps_events in 'SCRIPT\ps_events.pas',
  ps_serializer in 'SCRIPT\ps_serializer.pas',
  psi_overlay in 'SCRIPT\psi_overlay.pas',
  r_earthquake in 'Base\r_earthquake.pas',
  p_affectees in 'Base\p_affectees.pas',
  t_pcx in 'TEXLIB\t_pcx.pas',
  t_pcx4 in 'TEXLIB\t_pcx4.pas',
  ps_dll in 'SCRIPT\ps_dll.pas',
  ps_keywords in 'SCRIPT\ps_keywords.pas',
  ps_defs in 'SCRIPT\ps_defs.pas',
  mdl_base in 'OPENGL\mdl_base.pas',
  mdl_md2 in 'OPENGL\mdl_md2.pas',
  mdl_ddmodel in 'OPENGL\mdl_ddmodel.pas',
  mdl_script in 'OPENGL\mdl_script.pas',
  mdl_script_functions in 'OPENGL\mdl_script_functions.pas',
  mdl_script_model in 'OPENGL\mdl_script_model.pas',
  mdl_script_proclist in 'OPENGL\mdl_script_proclist.pas',
  p_gravity in 'Base\p_gravity.pas',
  t_patch in 'TEXLIB\t_patch.pas',
  gl_ambient in 'OPENGL\gl_ambient.pas',
  r_precalc in 'Base\r_precalc.pas',
  p_bridge in 'Base\p_bridge.pas',
  w_sprite in 'Base\w_sprite.pas',
  mdl_dllmodel in 'OPENGL\mdl_dllmodel.pas',
  i_steam in 'Base\i_steam.pas',
  i_displaymodes in 'Base\i_displaymodes.pas',
  d_notifications in 'Base\d_notifications.pas',
  gl_automap in 'OPENGL\gl_automap.pas',
  sc_utils in 'Base\sc_utils.pas',
  w_folders in 'Base\w_folders.pas',
  r_subsectors in 'Base\r_subsectors.pas',
  f_wipe in 'Base\f_wipe.pas',
  r_renderstyle in 'Base\r_renderstyle.pas',
  vx_voxelsprite in 'Base\vx_voxelsprite.pas',
  w_wadwriter in 'Base\w_wadwriter.pas',
  m_sha1 in 'Base\m_sha1.pas',
  sc_evaluate_actor in 'Base\sc_evaluate_actor.pas',
  sc_evaluate in 'Base\sc_evaluate.pas',
  p_musinfo in 'Base\p_musinfo.pas',
  p_levelinfo in 'Base\p_levelinfo.pas',
  deh_base in 'Base\deh_base.pas',
  p_animdefs in 'Base\p_animdefs.pas',
  p_easyslope in 'Base\p_easyslope.pas',
  r_flatinfo in 'Base\r_flatinfo.pas',
  p_easyangle in 'Base\p_easyangle.pas',
  mn_screenshot in 'Base\mn_screenshot.pas',
  p_aaptr in 'Base\p_aaptr.pas',
  sc_consts in 'Base\sc_consts.pas',
  libflac in 'AUDIOLIB\libflac.pas',
  libogg in 'AUDIOLIB\libogg.pas',
  libsndfile in 'AUDIOLIB\libsndfile.pas',
  libvorbis in 'AUDIOLIB\libvorbis.pas',
  libm2m in 'AUDIOLIB\libm2m.pas',
  c_lib in 'C_LIB\c_lib.pas',
  scanf in 'C_LIB\scanf.pas',
  scanf_c in 'C_LIB\scanf_c.pas',
  audiolib in 'AUDIOLIB\audiolib.pas',
  p_obituaries in 'Base\p_obituaries.pas',
  p_gender in 'Base\p_gender.pas',
  libs3m in 'AUDIOLIB\libs3m.pas',
  mikmod in 'Base\mikmod.pas',
  i_mikplay in 'Base\i_mikplay.pas',
  BTMemoryModule in 'Base\BTMemoryModule.pas',
  i_s3mmusic in 'Base\i_s3mmusic.pas',
  i_mainwindow in 'Base\i_mainwindow.pas',
  i_itmusic in 'Base\i_itmusic.pas',
  i_xmmusic in 'Base\i_xmmusic.pas',
  i_modmusic in 'Base\i_modmusic.pas',
  s_externalmusic in 'Base\s_externalmusic.pas',
  info_export in 'Base\info_export.pas',
  p_bouncing in 'Base\p_bouncing.pas',
  p_simpledialog in 'Base\p_simpledialog.pas',
  s_pk3sounds in 'Base\s_pk3sounds.pas',
  p_playertrace in 'Base\p_playertrace.pas',
  p_friends in 'Base\p_friends.pas',
  sounddata in 'Hexen\sounddata.pas',
  r_translations in 'Base\r_translations.pas',
  r_ripple in 'Base\r_ripple.pas',
  xmi_consts in 'XMILIB\xmi_consts.pas',
  xmi_core in 'XMILIB\xmi_core.pas' {XMICore},
  xmi_iff in 'XMILIB\xmi_iff.pas',
  xmi_lib in 'XMILIB\xmi_lib.pas',
  i_xmimusic in 'Base\i_xmimusic.pas',
  sc_defines in 'Base\sc_defines.pas',
  p_serializer in 'Base\p_serializer.pas',
  sv_hexen in 'Hexen\sv_hexen.pas',
  p_mapinfo in 'Hexen\p_mapinfo.pas',
  gl_setup in 'OPENGL\gl_setup.pas',
  p_blockmap in 'Base\p_blockmap.pas',
  acs in 'Base\acs.pas',
  acs_common in 'Base\acs_common.pas',
  acs_error in 'Base\acs_error.pas',
  acs_misc in 'Base\acs_misc.pas',
  acs_parse in 'Base\acs_parse.pas',
  acs_pcode in 'Base\acs_pcode.pas',
  acs_strlist in 'Base\acs_strlist.pas',
  acs_symbol in 'Base\acs_symbol.pas',
  acs_token in 'Base\acs_token.pas',
  v_palettes in 'Base\v_palettes.pas',
  p_easywind in 'Base\p_easywind.pas',
  psi_map in 'SCRIPT\psi_map.pas',
  r_pk3textures in 'Base\r_pk3textures.pas',
  t_flat in 'TEXLIB\t_flat.pas',
  w_wadreader in 'Base\w_wadreader.pas';

var
  Saved8087CW: Word;

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

  ThousandSeparator := #0;
  DecimalSeparator := '.';

  try
    DoomMain;
  except
    I_FlashCachedOutput;
  end;

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

end.