monsterconfig.pas

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

unit MonsterConfig;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmMonsterConfig=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox8: TGroupBox;
    Label23: TLabel;
    EditMonOneDropGoldCount: TSpinEdit;
    ButtonGeneralSave: TButton;
    procedure ButtonGeneralSaveClick(Sender : TObject);
    procedure EditMonOneDropGoldCountChange(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure _PROC_00569224(Sender : TObject);
    procedure _PROC_00569258(Sender : TObject);
    procedure _PROC_005692A4(Sender : TObject);
    procedure _PROC_00569367(Sender : TObject);
    procedure _PROC_0056941D(Sender : TObject);
    procedure _PROC_0056944C(Sender : TObject);
    procedure _PROC_00569454(Sender : TObject);
    procedure _PROC_005694D4(Sender : TObject);
    procedure _PROC_005694DC(Sender : TObject);
    procedure _PROC_00569500(Sender : TObject);
    procedure _PROC_00569511(Sender : TObject);
    procedure _PROC_00569835(Sender : TObject);
    procedure _PROC_0056992C(Sender : TObject);
    procedure _PROC_005699A8(Sender : TObject);
    procedure _PROC_00569BBD(Sender : TObject);
    procedure _PROC_00569D9C(Sender : TObject);
    procedure _PROC_00569EA9(Sender : TObject);
    procedure _PROC_0056A0E8(Sender : TObject);
    procedure _PROC_0056A25D(Sender : TObject);
    procedure _PROC_0056A2A0(Sender : TObject);
    procedure _PROC_0056A2D0(Sender : TObject);
    procedure _PROC_0056A2D8(Sender : TObject);
    procedure _PROC_0056A362(Sender : TObject);
    procedure _PROC_0056A3D6(Sender : TObject);
    procedure _PROC_0056A539(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmMonsterConfig: TfrmMonsterConfig;

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

implementation

{$R *.DFM}

procedure TfrmMonsterConfig.ButtonGeneralSaveClick(Sender : TObject);
begin
(*
005692C8   55                     push    ebp
005692C9   8BEC                   mov     ebp, esp
005692CB   83C4F8                 add     esp, -$08
005692CE   53                     push    ebx
005692CF   8955F8                 mov     [ebp-$08], edx
005692D2   8945FC                 mov     [ebp-$04], eax
005692D5   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
005692DA   8B80EF0D0000           mov     eax, [eax+$0DEF]
005692E0   50                     push    eax
005692E1   A1F0B56500             mov     eax, dword ptr [$0065B5F0]
005692E6   8B00                   mov     eax, [eax]

* Possible String Reference to: 'MonOneDropGoldCount'
|
005692E8   B930935600             mov     ecx, $00569330

* Possible String Reference to: 'Setup'
|
005692ED   BA4C935600             mov     edx, $0056934C
005692F2   8B18                   mov     ebx, [eax]
005692F4   FF530C                 call    dword ptr [ebx+$0C]
005692F7   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
005692FC   8B80F1110000           mov     eax, [eax+$11F1]
00569302   50                     push    eax
00569303   A1F0B56500             mov     eax, dword ptr [$0065B5F0]
00569308   8B00                   mov     eax, [eax]

* Possible String Reference to: 'MonDieDropUseItemRate'
|
0056930A   B95C935600             mov     ecx, $0056935C

* Possible String Reference to: 'Setup'
|
0056930F   BA4C935600             mov     edx, $0056934C
00569314   8B18                   mov     ebx, [eax]
00569316   FF530C                 call    dword ptr [ebx+$0C]
00569319   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TfrmMonsterConfig._PROC_00569224()
|
0056931C   E803FFFFFF             call    00569224
00569321   5B                     pop     ebx
00569322   59                     pop     ecx
00569323   59                     pop     ecx
00569324   5D                     pop     ebp
00569325   C3                     ret

*)
end;

procedure TfrmMonsterConfig.EditMonOneDropGoldCountChange(Sender : TObject);
begin
(*
00569374   55                     push    ebp
00569375   8BEC                   mov     ebp, esp
00569377   83C4F4                 add     esp, -$0C
0056937A   33C9                   xor     ecx, ecx
0056937C   894DF4                 mov     [ebp-$0C], ecx
0056937F   8955F8                 mov     [ebp-$08], edx
00569382   8945FC                 mov     [ebp-$04], eax
00569385   33C0                   xor     eax, eax
00569387   55                     push    ebp

* Possible String Reference to: '閜甸