actionspeedconfig.pas

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

unit ActionSpeedConfig;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmActionSpeed=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox3: TGroupBox;
    Label15: TLabel;
    EditRunLongHitIntervalTime: TSpinEdit;
    CheckBoxControlRunLongHit: TCheckBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    EditActionIntervalTime: TSpinEdit;
    CheckBoxControlActionInterval: TCheckBox;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    EditRunHitIntervalTime: TSpinEdit;
    CheckBoxControlRunHit: TCheckBox;
    GroupBox5: TGroupBox;
    Label3: TLabel;
    EditWalkHitIntervalTime: TSpinEdit;
    CheckBoxControlWalkHit: TCheckBox;
    GroupBox6: TGroupBox;
    Label4: TLabel;
    EditRunMagicIntervalTime: TSpinEdit;
    CheckBoxControlRunMagic: TCheckBox;
    ButtonSave: TButton;
    ButtonDefault: TButton;
    ButtonClose: TButton;
    CheckBoxIncremeng: TCheckBox;
    Label5: TLabel;
    procedure ButtonCloseClick(Sender : TObject);
    procedure ButtonDefaultClick(Sender : TObject);
    procedure ButtonSaveClick(Sender : TObject);
    procedure CheckBoxControlActionIntervalClick(Sender : TObject);
    procedure EditActionIntervalTimeChange(Sender : TObject);
    procedure CheckBoxControlRunLongHitClick(Sender : TObject);
    procedure EditRunLongHitIntervalTimeChange(Sender : TObject);
    procedure CheckBoxControlRunHitClick(Sender : TObject);
    procedure EditRunHitIntervalTimeChange(Sender : TObject);
    procedure CheckBoxControlWalkHitClick(Sender : TObject);
    procedure EditWalkHitIntervalTimeChange(Sender : TObject);
    procedure CheckBoxIncremengClick(Sender : TObject);
    procedure CheckBoxControlRunMagicClick(Sender : TObject);
    procedure EditRunMagicIntervalTimeChange(Sender : TObject);
    procedure _PROC_0051E700(Sender : TObject);
    procedure _PROC_0051E724(Sender : TObject);
    procedure _PROC_0051E760(Sender : TObject);
    procedure _PROC_0051E818(Sender : TObject);
    procedure _PROC_0051E938(Sender : TObject);
    procedure _PROC_0051EA80(Sender : TObject);
    procedure _PROC_0051F180(Sender : TObject);
    procedure _PROC_0051F1B0(Sender : TObject);
    procedure _PROC_0051F1B8(Sender : TObject);
    procedure _PROC_0051F242(Sender : TObject);
    procedure _PROC_0051F2B6(Sender : TObject);
    procedure _PROC_0051F4F9(Sender : TObject);
    procedure _PROC_00521B25(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmActionSpeed: TfrmActionSpeed;

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

implementation

{$R *.DFM}

procedure TfrmActionSpeed.ButtonCloseClick(Sender : TObject);
begin
(*
0051E770   55                     push    ebp
0051E771   8BEC                   mov     ebp, esp
0051E773   83C4F0                 add     esp, -$10
0051E776   33C9                   xor     ecx, ecx
0051E778   894DF4                 mov     [ebp-$0C], ecx
0051E77B   894DF0                 mov     [ebp-$10], ecx
0051E77E   8955F8                 mov     [ebp-$08], edx
0051E781   8945FC                 mov     [ebp-$04], eax
0051E784   33C0                   xor     eax, eax
0051E786   55                     push    ebp
0051E787   680CE85100             push    $0051E80C

***** TRY
|
0051E78C   64FF30                 push    dword ptr fs:[eax]
0051E78F   648920                 mov     fs:[eax], esp
0051E792   8B45FC                 mov     eax, [ebp-$04]
0051E795   80B86903000000         cmp     byte ptr [eax+$0369], $00
0051E79C   750A                   jnz     0051E7A8
0051E79E   8B45FC                 mov     eax, [ebp-$04]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0051E7A1   E83A70F6FF             call    004857E0
0051E7A6   EB49                   jmp     0051E7F1
0051E7A8   6A24                   push    $24
0051E7AA   8D55F4                 lea     edx, [ebp-$0C]

* Possible String Reference to: 'h芿'
|
0051E7AD   B868E75100             mov     eax, $0051E768

|
0051E7B2   E8458AEEFF             call    004071FC
0051E7B7   8B45F4                 mov     eax, [ebp-$0C]

* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
0051E7BA   E8216DEEFF             call    004054E0
0051E7BF   50                     push    eax
0051E7C0   8D55F0                 lea     edx, [ebp-$10]

* Possible String Reference to: 'h芿'
|
0051E7C3   B860E75100             mov     eax, $0051E760

|
0051E7C8   E82F8AEEFF             call    004071FC
0051E7CD   8B45F0                 mov     eax, [ebp-$10]

* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
0051E7D0   E80B6DEEFF             call    004054E0
0051E7D5   50                     push    eax
0051E7D6   8B45FC                 mov     eax, [ebp-$04]

* Reference to: Controls.TWinControl.GetHandle(TWinControl):HWND;
|           or: QComCtrls.TTrackBar.GetHandle(TTrackBar):QClxSliderH;
|           or: QComCtrls.TCustomViewControl.GetHandle(TCustomViewControl):QListViewH;
|           or: QComCtrls.TCustomViewControl.ViewportHandle(TCustomViewControl):QWidgetH;
|           or: QComCtrls.TCustomHeaderControl.GetHandle(TCustomHeaderControl):QHeaderH;
|           or: QComCtrls.TCustomSpinEdit.GetHandle(TCustomSpinEdit):QClxSpinBoxH;
|
0051E7D9   E86A10F5FF             call    0046F848
0051E7DE   50                     push    eax
*)
end;

procedure TfrmActionSpeed.ButtonDefaultClick(Sender : TObject);
begin
(*
0051E948   55                     push    ebp
0051E949   8BEC                   mov     ebp, esp
0051E94B   83C4F0                 add     esp, -$10
0051E94E   33C9                   xor     ecx, ecx
0051E950   894DF4                 mov     [ebp-$0C], ecx
0051E953   894DF0                 mov     [ebp-$10], ecx
0051E956   8955F8                 mov     [ebp-$08], edx
0051E959   8945FC                 mov     [ebp-$04], eax
0051E95C   33C0                   xor     eax, eax
0051E95E   55                     push    ebp

* Possible String Reference to: '辋^