m2serversqlcombine.dpr

乐都SQL版传奇全套代码,绝对可编译

//DB 都没搞懂 我要了也没用  王清 QQ286251099 2008.3.23 
program M2ServerSQLCombine;

uses

  ExceptionLog,
  Forms,
  Windows,
  ComObj,
  Activex,
  Graphics,
  svMain in 'svMain.pas' {FrmMain},
  LocalDB in 'LocalDB.pas' {FrmDB},
  InterServerMsg in 'InterServerMsg.pas' {FrmSrvMsg},
  InterMsgClient in 'InterMsgClient.pas' {FrmMsgClient},
  IdSrvClient in 'IdSrvClient.pas' {FrmIDSoc},
  FSrvValue in 'FSrvValue.pas' {FrmServerValue},
  DBLogDlg in 'DBLogDlg.pas' {LoginDialog},
  UsrEngn in 'UsrEngn.pas',
  ObjNpc in 'ObjNpc.pas',
  ObjMon2 in 'ObjMon2.pas',
  ObjMon in 'ObjMon.pas',
  ObjGuard in 'ObjGuard.pas',
  ObjBase in 'ObjBase.pas',
  ObjAxeMon in 'ObjAxeMon.pas',
  NoticeM in 'NoticeM.pas',
  Mission in 'Mission.pas',
  Magic in 'Magic.pas',
  M2Share in 'M2Share.pas',
  ItmUnit in 'ItmUnit.pas',
  Guild in 'Guild.pas',
  FrnEngn in 'FrnEngn.pas',
  Event in 'Event.pas',
  Envir in 'Envir.pas',
  Castle in 'Castle.pas',
  RunDB in 'RunDB.pas',
  RunSock in 'RunSock.pas',
  Grobal2 in 'Grobal2.pas',
  HUtil32 in 'HUtil32.pas',
  MudUtil in 'MudUtil.pas',
  GeneralConfig in 'GeneralConfig.pas' {frmGeneralConfig},
  GameConfig in 'GameConfig.pas' {frmGameConfig},
  FunctionConfig in 'FunctionConfig.pas' {frmFunctionConfig},
  ObjRobot in 'ObjRobot.pas',
  BnkEngn in 'BnkEngn.pas',
  ViewSession in 'ViewSession.pas' {frmViewSession},
  ViewOnlineHuman in 'ViewOnlineHuman.pas' {frmViewOnlineHuman},
  ViewLevel in 'ViewLevel.pas' {frmViewLevel},
  ViewList in 'ViewList.pas' {frmViewList},
  OnlineMsg in 'OnlineMsg.pas' {frmOnlineMsg},
  HumanInfo in 'HumanInfo.pas' {frmHumanInfo},
  ViewKernelInfo in 'ViewKernelInfo.pas' {frmViewKernelInfo},
  ConfigMerchant in 'ConfigMerchant.pas' {frmConfigMerchant},
  ItemSet in 'ItemSet.pas' {frmItemSet},
  ConfigMonGen in 'ConfigMonGen.pas' {frmConfigMonGen},
  EncryptUnit in 'EncryptUnit.pas',
  GameCommand in 'GameCommand.pas' {frmGameCmd},
  MonsterConfig in 'MonsterConfig.pas' {frmMonsterConfig},
  UnitManage in 'UnitManage.pas',
  ActionSpeedConfig in 'ActionSpeedConfig.pas' {frmActionSpeed},
  EDcode in 'EDcode.pas',
  CastleManage in 'CastleManage.pas' {frmCastleManage},
  about in 'about.pas' {Formabout},
  CastleAttackEdit in 'CastleAttackEdit.pas' {FormCastleAttackEdit},
  mylist in 'mylist.pas',
  DataModule_Sql in 'DataModule_Sql.pas' {DataModule_mir200: TDataModule},
  MD5 in 'md5.pas',
  MyUnits in 'MyUnits.pas';

{$R *.res}

procedure Start();
begin
{$IF DEBUG = 0}
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
{$IFEND}
  g_Config.nServerFile_CRCA := CalcFileCRC(Application.ExeName);

  Application.Initialize;
  Application.HintPause := 100;
  Application.HintShortPause := 100;
  Application.HintHidePause := 5000;
{$IF DEBUG = 0}
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
{$IFEND}
  Application.Title := '传奇SQLM2引擎';
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmSrvMsg, FrmSrvMsg);
  Application.CreateForm(TFormabout, Formabout);
  Application.CreateForm(TFormCastleAttackEdit, FormCastleAttackEdit);
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
  Application.CreateForm(TFrmMsgClient, FrmMsgClient);
{$IF DEBUG = 0}
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
{$IFEND}
  Application.CreateForm(TFrmIDSoc, FrmIDSoc);
{$IF DEBUG = 0}
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
{$IFEND}
  Application.CreateForm(TFrmServerValue, FrmServerValue);
{$IF DEBUG = 0}
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
{$IFEND}
  //  Application.CreateForm(TftmPlugInManage, ftmPlugInManage);
{$IF DEBUG = 0}
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
{$IFEND}
  Application.CreateForm(TfrmGameCmd, frmGameCmd);
{$IF DEBUG = 0}
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
{$IFEND}
  Application.CreateForm(TfrmMonsterConfig, frmMonsterConfig);
 // Application.CreateForm(TDataModule_mir200, DataModule_mir200);
{$IF DEBUG = 0}
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
{$IFEND}
  Application.Run;
end;
Begin
CoInitialize(nil);
 Start;

end.