| 1 | {$INCLUDE switches}
|
|---|
| 2 | program cevo;
|
|---|
| 3 |
|
|---|
| 4 | uses
|
|---|
| 5 | Forms,
|
|---|
| 6 | StringTables in 'StringTables.pas',
|
|---|
| 7 | Directories in 'Directories.pas',
|
|---|
| 8 | Protocol in 'Protocol.pas',
|
|---|
| 9 | CmdList in 'CmdList.pas',
|
|---|
| 10 | Database in 'Database.pas',
|
|---|
| 11 | GameServer in 'GameServer.pas',
|
|---|
| 12 | CityProcessing in 'CityProcessing.pas',
|
|---|
| 13 | UnitProcessing in 'UnitProcessing.pas',
|
|---|
| 14 | Direct in 'Direct.pas' {DirectDlg} ,
|
|---|
| 15 | ScreenTools in 'ScreenTools.pas',
|
|---|
| 16 | Start in 'Start.pas' {StartDlg} ,
|
|---|
| 17 | Messg in 'Messg.pas' {MessgDlg} ,
|
|---|
| 18 | Inp in 'Inp.pas' {InputDlg} ,
|
|---|
| 19 | Back in 'Back.pas' {Background} ,
|
|---|
| 20 | Log in 'Log.pas' {LogDlg} ,
|
|---|
| 21 | PVSB in 'LocalPlayer\PVSB.pas',
|
|---|
| 22 | LocalPlayer in 'LocalPlayer\LocalPlayer.pas',
|
|---|
| 23 | ClientTools in 'LocalPlayer\ClientTools.pas',
|
|---|
| 24 | Diplomacy in 'LocalPlayer\Diplomacy.pas',
|
|---|
| 25 | Tribes in 'LocalPlayer\Tribes.pas',
|
|---|
| 26 | IsoEngine in 'LocalPlayer\IsoEngine.pas',
|
|---|
| 27 | Term in 'LocalPlayer\Term.pas' {MainScreen} ,
|
|---|
| 28 | MessgEx in 'LocalPlayer\MessgEx.pas' {MessgExDlg} ,
|
|---|
| 29 | BaseWin in 'LocalPlayer\BaseWin.pas',
|
|---|
| 30 | Help in 'LocalPlayer\Help.pas' {HelpDlg} ,
|
|---|
| 31 | Select in 'LocalPlayer\Select.pas' {ListDlg} ,
|
|---|
| 32 | CityScreen in 'LocalPlayer\CityScreen.pas' {CityDlg} ,
|
|---|
| 33 | UnitStat in 'LocalPlayer\UnitStat.pas' {UnitStatDlg} ,
|
|---|
| 34 | Draft in 'LocalPlayer\Draft.pas' {DraftDlg} ,
|
|---|
| 35 | NatStat in 'LocalPlayer\NatStat.pas' {NatStatDlg} ,
|
|---|
| 36 | Diagram in 'LocalPlayer\Diagram.pas' {DiaDlg} ,
|
|---|
| 37 | Wonders in 'LocalPlayer\Wonders.pas' {WonderDlg} ,
|
|---|
| 38 | Nego in 'LocalPlayer\Nego.pas' {NegoDlg} ,
|
|---|
| 39 | CityType in 'LocalPlayer\CityType.pas' {CityTypeDlg} ,
|
|---|
| 40 | Enhance in 'LocalPlayer\Enhance.pas' {EnhanceDlg} ,
|
|---|
| 41 | NoTerm in 'NoTerm.pas' {NoTermDlg} ,
|
|---|
| 42 | Sound in 'Sound.pas' {SoundPlayer} ,
|
|---|
| 43 | Battle in 'LocalPlayer\Battle.pas' {BattleDlg} ,
|
|---|
| 44 | Rates in 'LocalPlayer\Rates.pas' {RatesDlg} ,
|
|---|
| 45 | TechTree in 'LocalPlayer\TechTree.pas' {TechTreeDlg};
|
|---|
| 46 |
|
|---|
| 47 | {$R cevo.RES}
|
|---|
| 48 |
|
|---|
| 49 | begin
|
|---|
| 50 | DotNetClient := nil;
|
|---|
| 51 | Application.Initialize;
|
|---|
| 52 | Application.Title := 'C-evo';
|
|---|
| 53 | Application.CreateForm(TDirectDlg, DirectDlg);
|
|---|
| 54 | Application.CreateForm(TStartDlg, StartDlg);
|
|---|
| 55 | Application.CreateForm(TMessgDlg, MessgDlg);
|
|---|
| 56 | Application.CreateForm(TInputDlg, InputDlg);
|
|---|
| 57 | Application.CreateForm(TBackground, Background);
|
|---|
| 58 | Application.CreateForm(TLogDlg, LogDlg);
|
|---|
| 59 | Application.Run;
|
|---|
| 60 |
|
|---|
| 61 | end.
|
|---|
