localhuman.pas

类似文明的游戏源代码。

{$INCLUDE switches}

unit LocalHuman;

interface

procedure Client(Command,Player:integer;var Data); stdcall;

implementation

uses
Term,CityScreen,Draft,MessgEx,Select,CityType,Help,UnitStat,log,Diagram,
NatStat,Enhance,

Forms;

var
FormsCreated: boolean;

procedure Client;
begin
if not FormsCreated then
  begin
  FormsCreated:=true;
  Application.CreateForm(TMainScreen, MainScreen);
  Application.CreateForm(TCityDlg, CityDlg);
  Application.CreateForm(TSelectDlg, SelectDlg);
  Application.CreateForm(TCityListDlg, CityListDlg);
  Application.CreateForm(TMessgExDlg, MessgExDlg);
  Application.CreateForm(TDraftDlg, DraftDlg);
  Application.CreateForm(TCityTypeDlg, CityTypeDlg);
  Application.CreateForm(THelpDlg, HelpDlg);
  Application.CreateForm(TUnitStatDlg, UnitStatDlg);
  Application.CreateForm(TDiaDlg, DiaDlg);
  Application.CreateForm(TNatStatDlg, NatStatDlg);
  Application.CreateForm(TEnhanceDlg, EnhanceDlg);
  end;
MainScreen.Client(Command,Player,Data);
end;

initialization
FormsCreated:=false;

end.