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.
|
---|