?? fsrvvalue.pas

?? M2原代碼 M2原代碼
?? PAS
字號:
unit FSrvValue;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Spin, M2Share;

type
  TFrmServerValue = class(TForm)
    BitBtn1: TBitBtn;
    CbViewHack: TCheckBox;
    CkViewAdmfail: TCheckBox;
    GroupBox1: TGroupBox;
    Label8: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    EGateLoad: TSpinEdit;
    EAvailableBlock: TSpinEdit;
    ECheckBlock: TSpinEdit;
    ESendBlock: TSpinEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    EHum: TSpinEdit;
    EMon: TSpinEdit;
    EZen: TSpinEdit;
    ESoc: TSpinEdit;
    ENpc: TSpinEdit;
    EDec: TSpinEdit;
    GroupBox3: TGroupBox;
    Label15: TLabel;
    EditZenMonRate: TSpinEdit;
    Label16: TLabel;
    EditProcessTime: TSpinEdit;
    EditZenMonTime: TSpinEdit;
    Label17: TLabel;
    Label18: TLabel;
    ButtonDefault: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure EditZenMonRateChange(Sender: TObject);
    procedure EditZenMonTimeChange(Sender: TObject);
    procedure EditProcessTimeChange(Sender: TObject);
    procedure ESendBlockChange(Sender: TObject);
    procedure ECheckBlockChange(Sender: TObject);
    procedure EGateLoadChange(Sender: TObject);
    procedure EHumChange(Sender: TObject);
    procedure EMonChange(Sender: TObject);
    procedure EZenChange(Sender: TObject);
    procedure ESocChange(Sender: TObject);
    procedure ENpcChange(Sender: TObject);
    procedure EAvailableBlockChange(Sender: TObject);
    procedure CbViewHackClick(Sender: TObject);
    procedure CkViewAdmfailClick(Sender: TObject);
    procedure ButtonDefaultClick(Sender: TObject);
  private
    boOpened:Boolean;
    boModValued:Boolean;
    procedure ModValue();
    procedure uModValue();
    procedure RefShow();
    { Private declarations }
  public
    function AdjuestServerConfig():Boolean;
    { Public declarations }
  end;

var
  FrmServerValue: TFrmServerValue;

implementation

uses HUtil32;

{$R *.dfm}

{ TFrmServerValue }

procedure TFrmServerValue.ModValue;
begin
  boModValued:=True;
  BitBtn1.Enabled:=True;
end;

procedure TFrmServerValue.uModValue;
begin
  boModValued:=False;
  BitBtn1.Enabled:=False;
end;

function TFrmServerValue.AdjuestServerConfig: Boolean;
begin
  boOpened:=False;
  uModValue();
  RefShow();
  boOpened:=True;
  ShowModal;
  Result:=True;
end;

procedure TFrmServerValue.BitBtn1Click(Sender: TObject);
var
  tBool:String;
begin
    Config.WriteInteger('Server','HumLimit',g_dwHumLimit);
    Config.WriteInteger('Server','MonLimit',g_dwMonLimit);
    Config.WriteInteger('Server','ZenLimit',g_dwZenLimit);
    Config.WriteInteger('Server','SocLimit',g_dwSocLimit);
    Config.WriteInteger('Server','DecLimit',nDecLimit);
    Config.WriteInteger('Server','NpcLimit',g_dwNpcLimit);
    Config.WriteInteger('Server','SendBlock',g_Config.nSendBlock);
    Config.WriteInteger('Server','CheckBlock',g_Config.nCheckBlock);
    Config.WriteInteger('Server','GateLoad',g_Config.nGateLoad);
    if g_Config.boViewHackMessage then
      tBool:='TRUE'
    else tBool:='FLASE';
    Config.WriteString('Server','ViewHackMessage',tBool);
    if g_Config.boViewAdmissionFailure then
      tBool:='TRUE'
    else tBool:='FLASE';
    Config.WriteString('Server','ViewAdmissionFailure',tBool);

  Config.WriteInteger('Setup','GenMonRate',g_Config.nMonGenRate);
  Config.WriteInteger('Server','ProcessMonstersTime',g_Config.dwProcessMonstersTime);
  Config.WriteInteger('Server','RegenMonstersTime',g_Config.dwRegenMonstersTime);
  uModValue();  
end;

procedure TFrmServerValue.FormCreate(Sender: TObject);
begin
  ESendBlock.Hint:='與網關之間一次傳輸數據塊大小(字節)。';
  ECheckBlock.Hint:='與網關之間傳輸指定大小數據后，進行一次自檢。';
  EGateLoad.Hint:='設置與網關傳輸負載測試數據量大小。';

  EHum.Hint:='處理人物數據分配時間。';
  EMon.Hint:='處理怪物數據分配時間。';
  EZen.Hint:='刷新怪物數據分配時間。';
  ESoc.Hint:='處理網關數據分配時間。';
  ENpc.Hint:='處理NPC數據分配時間。';

  EditZenMonRate.Hint:='刷怪倍率，倍率除以10為實際倍率(設置為10則為1:1)，此倍率以刷怪文件設置為準，數字越大，刷怪數量越小。';
  EditZenMonTime.Hint:='刷怪間隔控制，數字越大，刷怪速度越慢。';
  EditProcessTime.Hint:='處理怪物間隔時間，此設置數字越大，怪物行動越慢。';
end;



procedure TFrmServerValue.EditZenMonRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMonGenRate:=EditZenMonRate.Value;
  ModValue();
end;

procedure TFrmServerValue.EditZenMonTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwRegenMonstersTime:=EditZenMonTime.Value;
  ModValue();
end;

procedure TFrmServerValue.EditProcessTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwProcessMonstersTime:=EditProcessTime.Value;
  ModValue();
end;

procedure TFrmServerValue.ESendBlockChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nSendBlock:=_MAX(10,ESendBlock.Value);
  ModValue();
end;

procedure TFrmServerValue.ECheckBlockChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nCheckBlock:=_MAX(10,ECheckBlock.Value);
  ModValue();
end;

procedure TFrmServerValue.EGateLoadChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nGateLoad:=EGateLoad.Value;
  ModValue();
end;

procedure TFrmServerValue.EHumChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_dwHumLimit:=_MIN(150,EHum.Value);
  ModValue();
end;

procedure TFrmServerValue.EMonChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_dwMonLimit:=_MIN(150,EMon.Value);
  ModValue();
end;

procedure TFrmServerValue.EZenChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_dwZenLimit:=_MIN(150,EZen.Value);
  ModValue();
end;

procedure TFrmServerValue.ESocChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_dwSocLimit:=_MIN(150,ESoc.Value);
  ModValue();
end;

procedure TFrmServerValue.ENpcChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_dwNpcLimit:=_MIN(150,ENpc.Value);
  ModValue();
end;

procedure TFrmServerValue.EAvailableBlockChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nAvailableBlock:=_MAX(10,EAvailableBlock.Value);
  ModValue();
end;

procedure TFrmServerValue.CbViewHackClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boViewHackMessage:=CbViewHack.Checked;
  ModValue();
end;

procedure TFrmServerValue.CkViewAdmfailClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boViewAdmissionFailure:=CkViewAdmfail.Checked;
  ModValue();
end;

procedure TFrmServerValue.RefShow;
begin
  EHum.Value:=g_dwHumLimit;
  EMon.Value:=g_dwMonLimit;
  EZen.Value:=g_dwZenLimit;
  ESoc.Value:=g_dwSocLimit;
  EDec.Value:=nDecLimit;
  ENpc.Value:=g_dwNpcLimit;
  ESendBlock.Value:=g_Config.nSendBlock;
  ECheckBlock.Value:=g_Config.nCheckBlock;
  EAvailableBlock.Value:=g_Config.nAvailableBlock;
  EGateLoad.Value:=g_Config.nGateLoad;
  CbViewHack.Checked:=g_Config.boViewHackMessage;
  CkViewAdmfail.Checked:=g_Config.boViewAdmissionFailure;

  EditZenMonRate.Value:=g_Config.nMonGenRate;
  EditZenMonTime.Value:=g_Config.dwRegenMonstersTime;
  EditProcessTime.Value:=g_Config.dwProcessMonstersTime;
end;

procedure TFrmServerValue.ButtonDefaultClick(Sender: TObject);
begin
  if Application.MessageBox('是否確認恢復默認設置？', '確認信息', MB_YESNO + MB_ICONQUESTION) <> IDYES then begin
    exit;
  end;
  g_dwHumLimit:=30;
  g_dwMonLimit:=10;
  g_dwZenLimit:=5;
  g_dwSocLimit:=10;
  nDecLimit:=20;
  g_dwNpcLimit:=5;
  g_Config.nSendBlock:=1024;
  g_Config.nCheckBlock:=8000;
  g_Config.nAvailableBlock:=8000;
  g_Config.nGateLoad:=0;;
  g_Config.boViewHackMessage:=False;
  g_Config.boViewAdmissionFailure:=False;

  g_Config.nMonGenRate:=10;
  g_Config.dwRegenMonstersTime:=200;
  g_Config.dwProcessMonstersTime:=50;
  RefShow();
end;

end.
?? 文件大小 946 K
?? 上傳用戶 cdcgl
?? 所屬分類 Delphi控件源碼
??? 相關標簽

#代碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? fsrvvalue.pas

?? 快捷鍵說明
