castlemanage.pas

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

unit CastleManage;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmCastleManage=class(TForm)
    GroupBox1: TGroupBox;
    ListViewCastle: TListView;
    GroupBox2: TGroupBox;
    PageControlCastle: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    EditOwenGuildName: TEdit;
    GroupBox4: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    EditCastleName: TEdit;
    EditCastleGuild: TEdit;
    EditCastleHome: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    EditTotalGold: TSpinEdit;
    EditTodayIncome: TSpinEdit;
    Label7: TLabel;
    EditTechLevel: TSpinEdit;
    Label8: TLabel;
    EditPower: TSpinEdit;
    TabSheet3: TTabSheet;
    GroupBox5: TGroupBox;
    ListViewGuard: TListView;
    ButtonRefresh: TButton;
    Label9: TLabel;
    EditCastleHomeX: N.A.;
    Label10: TLabel;
    EditCastleHuang: TEdit;
    Label11: TLabel;
    EditCastleMiDao: TEdit;
    TabSheet4: TTabSheet;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    EditCastleHomeY: N.A.;
    ListViewWar: TListView;
    ButtonCastleSave: TButton;
    ButtonAdd: TButton;
    ButtonMod: TButton;
    ButtonDel: TButton;
    procedure ListViewCastleClick(Sender : TObject);
    procedure ButtonRefreshClick(Sender : TObject);
    procedure EditCastleNameChange(Sender : TObject);
    procedure ButtonCastleSaveClick(Sender : TObject);
    procedure ButtonModClick(Sender : TObject);
    procedure ButtonAddClick(Sender : TObject);
    procedure ButtonDelClick(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure ListViewWarClick(Sender : TObject);
    procedure _PROC_0056AEA4(Sender : TObject);
    procedure _PROC_0056BBDD(Sender : TObject);
    procedure _PROC_0056C18C(Sender : TObject);
    procedure _PROC_0056C438(Sender : TObject);
    procedure _PROC_0056C523(Sender : TObject);
    procedure _PROC_0056C5B8(Sender : TObject);
    procedure _PROC_0056C5E8(Sender : TObject);
    procedure _PROC_0056C5F0(Sender : TObject);
    procedure _PROC_0056C67A(Sender : TObject);
    procedure _PROC_0056C6EE(Sender : TObject);
    procedure _PROC_0056C88D(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmCastleManage: TfrmCastleManage;

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

implementation

{$R *.DFM}

procedure TfrmCastleManage.ListViewCastleClick(Sender : TObject);
begin
(*
0056BCE8   55                     push    ebp
0056BCE9   8BEC                   mov     ebp, esp
0056BCEB   83C4F4                 add     esp, -$0C
0056BCEE   8955F4                 mov     [ebp-$0C], edx
0056BCF1   8945FC                 mov     [ebp-$04], eax
0056BCF4   8B45FC                 mov     eax, [ebp-$04]
0056BCF7   8B80FC020000           mov     eax, [eax+$02FC]

* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
|           or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
0056BCFD   E8824CEEFF             call    00450984
0056BD02   8945F8                 mov     [ebp-$08], eax
0056BD05   837DF800               cmp     dword ptr [ebp-$08], +$00
0056BD09   7432                   jz      0056BD3D
0056BD0B   33D2                   xor     edx, edx
0056BD0D   8B45F8                 mov     eax, [ebp-$08]
0056BD10   8B4008                 mov     eax, [eax+$08]
0056BD13   8B08                   mov     ecx, [eax]
0056BD15   FF5118                 call    dword ptr [ecx+$18]
0056BD18   A3E81C6600             mov     dword ptr [$00661CE8], eax
0056BD1D   833DE81C660000         cmp     dword ptr [$00661CE8], +$00
0056BD24   0F95C2                 setnz   dl
0056BD27   8B45FC                 mov     eax, [ebp-$04]
0056BD2A   8B8098030000           mov     eax, [eax+$0398]
0056BD30   8B08                   mov     ecx, [eax]
0056BD32   FF5164                 call    dword ptr [ecx+$64]
0056BD35   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TfrmCastleManage._PROC_0056AEA4()
|
0056BD38   E867F1FFFF             call    0056AEA4
0056BD3D   8BE5                   mov     esp, ebp
0056BD3F   5D                     pop     ebp
0056BD40   C3                     ret

*)
end;

procedure TfrmCastleManage.ButtonRefreshClick(Sender : TObject);
begin
(*
0056BD44   55                     push    ebp
0056BD45   8BEC                   mov     ebp, esp
0056BD47   83C4F8                 add     esp, -$08
0056BD4A   8955F8                 mov     [ebp-$08], edx
0056BD4D   8945FC                 mov     [ebp-$04], eax
0056BD50   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TfrmCastleManage._PROC_0056AEA4()
|
0056BD53   E84CF1FFFF             call    0056AEA4
0056BD58   59                     pop     ecx
0056BD59   59                     pop     ecx
0056BD5A   5D                     pop     ebp
0056BD5B   C3                     ret

*)
end;

procedure TfrmCastleManage.EditCastleNameChange(Sender : TObject);
begin
(*
0056BD5C   55                     push    ebp
0056BD5D   8BEC                   mov     ebp, esp
0056BD5F   83C4F8                 add     esp, -$08
0056BD62   8955F8                 mov     [ebp-$08], edx
0056BD65   8945FC                 mov     [ebp-$04], eax
0056BD68   833DE81C660000         cmp     dword ptr [$00661CE8], +$00
0056BD6F   7410                   jz      0056BD81
0056BD71   B201                   mov     dl, $01
0056BD73   8B45FC                 mov     eax, [ebp-$04]
0056BD76   8B8094030000           mov     eax, [eax+$0394]
0056BD7C   8B08                   mov     ecx, [eax]
0056BD7E   FF5164                 call    dword ptr [ecx+$64]
0056BD81   59                     pop     ecx
0056BD82   59                     pop     ecx
0056BD83   5D                     pop     ebp
0056BD84   C3                     ret

*)
end;

procedure TfrmCastleManage.ButtonCastleSaveClick(Sender : TObject);
begin
(*
0056BD88   55                     push    ebp
0056BD89   8BEC                   mov     ebp, esp
0056BD8B   B907000000             mov     ecx, $00000007
0056BD90   6A00                   push    $00
0056BD92   6A00                   push    $00
0056BD94   49                     dec     ecx
0056BD95   75F9                   jnz     0056BD90
0056BD97   8955DC                 mov     [ebp-$24], edx
0056BD9A   8945FC                 mov     [ebp-$04], eax
0056BD9D   33C0                   xor     eax, eax
0056BD9F   55                     push    ebp

* Possible String Reference to: '镮夐