fsrvvalue.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit FSrvValue;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmServerValue=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    BitBtn1: TBitBtn;
    CbViewHack: TCheckBox;
    CkViewAdmfail: TCheckBox;
    GroupBox1: TGroupBox;
    Label8: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    EGateLoad: TSpinEdit;
    EAvailableBlock: TSpinEdit;
    ECheckBlock: TSpinEdit;
    ESendBlock: TSpinEdit;
    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;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    EditZenMonRate: TSpinEdit;
    EditProcessTime: TSpinEdit;
    EditZenMonTime: TSpinEdit;
    EditProcessMonsterInterval: TSpinEdit;
    ButtonDefault: TButton;
    Label18: TLabel;
    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);
    procedure EditProcessMonsterIntervalChange(Sender : TObject);
    procedure _PROC_0051AB64(Sender : TObject);
    procedure _PROC_0051AB88(Sender : TObject);
    procedure _PROC_0051AF07(Sender : TObject);
    procedure _PROC_0051B6E8(Sender : TObject);
    procedure _PROC_0051B999(Sender : TObject);
    procedure _PROC_0051B9C8(Sender : TObject);
    procedure _PROC_0051B9D0(Sender : TObject);
    procedure _PROC_0051BA5A(Sender : TObject);
    procedure _PROC_0051BACE(Sender : TObject);
    procedure _PROC_0051BE28(Sender : TObject);
    procedure _PROC_0051C1D6(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmServerValue: TFrmServerValue;

{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TFrmServerValue.BitBtn1Click(Sender : TObject);
begin
(*
0051ABCC   55                     push    ebp
0051ABCD   8BEC                   mov     ebp, esp
0051ABCF   83C4F4                 add     esp, -$0C
0051ABD2   53                     push    ebx
0051ABD3   33C9                   xor     ecx, ecx
0051ABD5   894DF8                 mov     [ebp-$08], ecx
0051ABD8   8955F4                 mov     [ebp-$0C], edx
0051ABDB   8945FC                 mov     [ebp-$04], eax
0051ABDE   33C0                   xor     eax, eax
0051ABE0   55                     push    ebp

* Possible String Reference to: '镠涱