aftengine.dpr

继续更新AFT源代码 现在解决了无法登陆游戏的问题 用0504的dbserver就可以登陆了 去掉了绿字广告 降低内存占用HOO 去掉了大量的验证问题

{$MINSTACKSIZE $00100000}
{$MAXSTACKSIZE $00100000}

program AFTEngine;

{%ToDo 'AFTEngine.todo'}

uses
  
  Forms,
  Windows,
  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},
  DBPWDlg in 'DBPWDlg.pas' {PasswordDialog},
  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 '..\Common\Grobal2.pas',
  HUtil32 in '..\Common\HUtil32.pas',
  MudUtil in '..\Common\MudUtil.pas',
  PlugIn in 'PlugIn.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},
  SDK in '..\SDK\SDK.pas',
  PlugInManage in 'PlugInManage.pas' {ftmPlugInManage},
  EncryptUnit in '..\Common\EncryptUnit.pas',
  GameCommand in 'GameCommand.pas' {frmGameCmd},
  MonsterConfig in 'MonsterConfig.pas' {frmMonsterConfig},
  UnitManage in 'UnitManage.pas',
  JClasses in 'JClasses.pas',
  ActionSpeedConfig in 'ActionSpeedConfig.pas' {frmActionSpeed},
  EDcode in 'EDcode.pas',
  CastleManage in 'CastleManage.pas' {frmCastleManage},
  Objys in 'Objys.pas',
  EPESDK in 'EPESDK.pas',
  Objmonty in 'Objmonty.pas',
  UnitRegisterSoft in 'UnitRegisterSoft.pas' {FrmRegister},
  _Const in '..\Common\_Const.pas',
  _Decode in '..\Common\_Decode.pas',
  _Function in '..\Common\_Function.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.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmSrvMsg, FrmSrvMsg);
  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);
{$IF DEBUG = 0}
  asm
    jz @@Start
    jnz @@Start
    db 0EBh
    @@Start:
  end;
{$IFEND}
  Application.Run;
end;

asm
  jz @@Start
  jnz @@Start
  db 0E8h
@@Start:
  lea eax,Start
  call eax
  jz @@end
  jnz @@end
  db 0F4h
  db 0FFh
@@end:
end.