editrcd.pas

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

unit EditRcd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmEditRcd=class(TForm)
    PageControl: TPageControl;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    EditLevel: TSpinEdit;
    EditGold: TSpinEdit;
    EditGameGold: TSpinEdit;
    EditGamePoint: TSpinEdit;
    Label16: TLabel;
    EditCreditPoint: TSpinEdit;
    Label10: TLabel;
    EditPayPoint: TSpinEdit;
    Label17: TLabel;
    EditPKPoint: TSpinEdit;
    Label18: TLabel;
    EditContribution: TSpinEdit;
    GroupBox3: TGroupBox;
    ListViewMagic: TListView;
    GroupBox4: TGroupBox;
    ListViewUserItem: TListView;
    GroupBox5: TGroupBox;
    ListViewStorage: TListView;
    ButtonSaveData: TButton;
    ButtonExportData: TButton;
    ButtonImportData: TButton;
    SaveDialog: TSaveDialog;
    OpenDialog: TOpenDialog;
    CheckBoxIsMaster: TCheckBox;
    EditMasterName: TEdit;
    EditDearName: TEdit;
    EditPassword: TEdit;
    EditAccount: TEdit;
    EditChrName: TEdit;
    EditIdx: TEdit;
    Label11: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    EditHomeX: TSpinEdit;
    EditHomeY: TSpinEdit;
    EditHomeMap: TEdit;
    EditCurX: TSpinEdit;
    EditCurY: TSpinEdit;
    EditCurMap: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    EditHeroName: TEdit;
    Label19: TLabel;
    Label20: TLabel;
    EditHeroMasterName: TEdit;
    procedure ButtonExportDataClick(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure EditPasswordChange(Sender : TObject);
    procedure _PROC_004D4614(Sender : TObject);
    procedure _PROC_004D46BD(Sender : TObject);
    procedure _PROC_004D46E8(Sender : TObject);
    procedure _PROC_004D4818(Sender : TObject);
    procedure _PROC_004D4C95(Sender : TObject);
    procedure _PROC_004D4F54(Sender : TObject);
    procedure _PROC_004D5099(Sender : TObject);
    procedure _PROC_004D52B5(Sender : TObject);
    procedure _PROC_004D53AF(Sender : TObject);
    procedure _PROC_004D5880(Sender : TObject);
    procedure _PROC_004D58B0(Sender : TObject);
    procedure _PROC_004D58B8(Sender : TObject);
    procedure _PROC_004D593E(Sender : TObject);
    procedure _PROC_004D5AF0(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmEditRcd: TfrmEditRcd;

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

implementation

{$R *.DFM}

procedure TfrmEditRcd.ButtonExportDataClick(Sender : TObject);
begin
(*
004D4F28   3B906C030000           cmp     edx, [eax+$036C]
004D4F2E   7506                   jnz     004D4F36

* Reference to : TfrmEditRcd._PROC_004D4F54()
|
004D4F30   E81F000000             call    004D4F54
004D4F35   C3                     ret

004D4F36   3B9070030000           cmp     edx, [eax+$0370]
004D4F3C   7507                   jnz     004D4F45

|
004D4F3E   E855010000             call    004D5098
004D4F43   EB0D                   jmp     004D4F52
004D4F45   3B9068030000           cmp     edx, [eax+$0368]
004D4F4B   7505                   jnz     004D4F52

|
004D4F4D   E862030000             call    004D52B4
004D4F52   C3                     ret

*)
end;

procedure TfrmEditRcd.FormCreate(Sender : TObject);
begin
(*
004D43F4   C3                     ret

*)
end;

procedure TfrmEditRcd.EditPasswordChange(Sender : TObject);
begin
(*
004D53F0   55                     push    ebp
004D53F1   8BEC                   mov     ebp, esp
004D53F3   B927000000             mov     ecx, $00000027
004D53F8   6A00                   push    $00
004D53FA   6A00                   push    $00
004D53FC   49                     dec     ecx
004D53FD   75F9                   jnz     004D53F8
004D53FF   53                     push    ebx
004D5400   56                     push    esi
004D5401   57                     push    edi
004D5402   8BD8                   mov     ebx, eax
004D5404   33C0                   xor     eax, eax
004D5406   55                     push    ebp

* Possible String Reference to: '檩牝