src/editor/Editor.lpr

   1 program Editor;
   2
   3 {$INCLUDE ../shared/a_modes.inc}
   4
   5 uses
   6   Forms, Interfaces,
   7   GL, GLExt,
   8   e_graphics in '../engine/e_graphics.pas',
   9   e_log in '../engine/e_log.pas',
  10   e_textures in '../engine/e_textures.pas',
  11   MAPSTRUCT in '../shared/MAPSTRUCT.pas',
  12   MAPREADER in '../shared/MAPREADER.pas',
  13   MAPWRITER in '../shared/MAPWRITER.pas',
  14   MAPDEF in '../shared/MAPDEF.pas',
  15   WADEDITOR in '../shared/WADEDITOR.pas',
  16   WADSTRUCT in '../shared/WADSTRUCT.pas',
  17   CONFIG in '../shared/CONFIG.pas',
  18   xstreams in '../shared/xstreams.pas',
  19   sfs in '../sfs/sfs.pas',
  20   sfsPlainFS in '../sfs/sfsPlainFS.pas',
  21   sfsZipFS in '../sfs/sfsZipFS.pas',
  22
  23   f_about in 'f_about.pas' {AboutForm},
  24   f_options in 'f_options.pas' {OptionsForm},
  25   f_main in 'f_main.pas' {MainForm},
  26   g_map in 'g_map.pas',
  27   f_mapoptions in 'f_mapoptions.pas' {MapOptionsForm},
  28   f_activationtype in 'f_activationtype.pas' {ActivationTypeForm},
  29   f_addresource in 'f_addresource.pas' {AddResourceForm},
  30   f_keys in 'f_keys.pas' {KeysForm},
  31   f_mapcheck in 'f_mapcheck.pas' {MapCheckForm},
  32   f_mapoptimization in 'f_mapoptimization.pas' {MapOptimizationForm},
  33   g_basic in 'g_basic.pas',
  34   g_textures in 'g_textures.pas',
  35   f_addresource_texture in 'f_addresource_texture.pas' {AddTextureForm},
  36   f_savemap in 'f_savemap.pas' {SaveMapForm},
  37   f_selectmap in 'f_selectmap.pas' {SelectMapForm},
  38   f_addresource_sky in 'f_addresource_sky.pas' {AddSkyForm},
  39   f_addresource_sound in 'f_addresource_sound.pas' {AddSoundForm},
  40   spectrum in 'spectrum.pas',
  41   f_saveminimap in 'f_saveminimap.pas' {SaveMiniMapForm},
  42   f_packmap in 'f_packmap.pas' {PackMapForm},
  43   f_maptest in 'f_maptest.pas' {MapTestForm},
  44   f_choosetype in 'f_choosetype.pas' {ChooseTypeForm},
  45 {$IFNDEF NOSOUND}
  46   fmod,
  47   fmoderrors,
  48   fmodpresets,
  49   fmodtypes,
  50 {$ENDIF}
  51   ImagingTypes,
  52   Imaging,
  53   ImagingUtility,
  54   g_language in 'g_language.pas',
  55   f_selectlang in 'f_selectlang.pas' {SelectLanguageForm};
  56
  57 {$IFDEF WINDOWS}
  58   {$R *.res}
  59 {$ENDIF}
  60
  61 begin
  62   Application.ExceptionDialog := aedOkMessageBox;
  63   Application.Initialize();
  64
  65   Application.CreateForm(TMainForm, MainForm);
  66   Application.CreateForm(TOptionsForm, OptionsForm);
  67   Application.CreateForm(TAboutForm, AboutForm);
  68   Application.CreateForm(TMapOptionsForm, MapOptionsForm);
  69   Application.CreateForm(TActivationTypeForm, ActivationTypeForm);
  70   Application.CreateForm(TAddResourceForm, AddResourceForm);
  71   Application.CreateForm(TKeysForm, KeysForm);
  72   Application.CreateForm(TMapCheckForm, MapCheckForm);
  73   Application.CreateForm(TMapOptimizationForm, MapOptimizationForm);
  74   Application.CreateForm(TAddTextureForm, AddTextureForm);
  75   Application.CreateForm(TSaveMapForm, SaveMapForm);
  76   Application.CreateForm(TSelectMapForm, SelectMapForm);
  77   Application.CreateForm(TAddSkyForm, AddSkyForm);
  78   Application.CreateForm(TAddSoundForm, AddSoundForm);
  79   Application.CreateForm(TSaveMiniMapForm, SaveMiniMapForm);
  80   Application.CreateForm(TPackMapForm, PackMapForm);
  81   Application.CreateForm(TMapTestForm, MapTestForm);
  82   Application.CreateForm(TChooseTypeForm, ChooseTypeForm);
  83   Application.CreateForm(TSelectLanguageForm, SelectLanguageForm);
  84
  85   if ParamStr(1) <> '' then OpenMap(ParamStr(1), '');
  86   Application.Run();
  87 end.