castleattackedit.pas

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

unit CastleAttackEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFormCastleAttackEdit=class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    EditName: TEdit;
    Label2: TLabel;
    DateTimePicker: TDateTimePicker;
    ButtonOK: TButton;
    CheckBoxAllGuild: TCheckBox;
    ListBoxGuildList: TListBox;
    ButtonCancel: TButton;
    procedure ButtonOKClick(Sender : TObject);
    procedure CheckBoxAllGuildClick(Sender : TObject);
    procedure ListBoxGuildListClick(Sender : TObject);
    procedure EditNameChange(Sender : TObject);
    procedure _PROC_0056A8E0(Sender : TObject);
    procedure _PROC_0056A910(Sender : TObject);
    procedure _PROC_0056A918(Sender : TObject);
    procedure _PROC_0056A9A2(Sender : TObject);
    procedure _PROC_0056AA16(Sender : TObject);
    procedure _PROC_0056ACC4(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FormCastleAttackEdit: TFormCastleAttackEdit;

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

implementation

{$R *.DFM}

procedure TFormCastleAttackEdit.ButtonOKClick(Sender : TObject);
begin
(*
0056A764   55                     push    ebp
0056A765   8BEC                   mov     ebp, esp
0056A767   83C4F8                 add     esp, -$08
0056A76A   8955F8                 mov     [ebp-$08], edx
0056A76D   8945FC                 mov     [ebp-$04], eax
0056A770   C605D81C660001         mov     byte ptr [$00661CD8], $01
0056A777   8B45FC                 mov     eax, [ebp-$04]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0056A77A   E861B0F1FF             call    004857E0
0056A77F   59                     pop     ecx
0056A780   59                     pop     ecx
0056A781   5D                     pop     ebp
0056A782   C3                     ret

*)
end;

procedure TFormCastleAttackEdit.CheckBoxAllGuildClick(Sender : TObject);
begin
(*
0056A784   55                     push    ebp
0056A785   8BEC                   mov     ebp, esp
0056A787   83C4F8                 add     esp, -$08
0056A78A   8955F8                 mov     [ebp-$08], edx
0056A78D   8945FC                 mov     [ebp-$04], eax
0056A790   33D2                   xor     edx, edx
0056A792   8B45FC                 mov     eax, [ebp-$04]
0056A795   8B8000030000           mov     eax, [eax+$0300]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0056A79B   E8D8E8EFFF             call    00469078
0056A7A0   8B45FC                 mov     eax, [ebp-$04]
0056A7A3   8B8010030000           mov     eax, [eax+$0310]
0056A7A9   8B10                   mov     edx, [eax]
0056A7AB   FF92C8000000           call    dword ptr [edx+$00C8]
0056A7B1   8BD0                   mov     edx, eax
0056A7B3   80F201                 xor     dl, $01
0056A7B6   8B45FC                 mov     eax, [ebp-$04]
0056A7B9   8B8000030000           mov     eax, [eax+$0300]
0056A7BF   8B08                   mov     ecx, [eax]
0056A7C1   FF5164                 call    dword ptr [ecx+$64]
0056A7C4   B201                   mov     dl, $01
0056A7C6   8B45FC                 mov     eax, [ebp-$04]
0056A7C9   8B800C030000           mov     eax, [eax+$030C]
0056A7CF   8B08                   mov     ecx, [eax]
0056A7D1   FF5164                 call    dword ptr [ecx+$64]
0056A7D4   59                     pop     ecx
0056A7D5   59                     pop     ecx
0056A7D6   5D                     pop     ebp
0056A7D7   C3                     ret

*)
end;

procedure TFormCastleAttackEdit.ListBoxGuildListClick(Sender : TObject);
begin
(*
0056A7D8   55                     push    ebp
0056A7D9   8BEC                   mov     ebp, esp
0056A7DB   83C4F0                 add     esp, -$10
0056A7DE   53                     push    ebx
0056A7DF   33C9                   xor     ecx, ecx
0056A7E1   894DF0                 mov     [ebp-$10], ecx
0056A7E4   8955F4                 mov     [ebp-$0C], edx
0056A7E7   8945FC                 mov     [ebp-$04], eax
0056A7EA   33C0                   xor     eax, eax
0056A7EC   55                     push    ebp
0056A7ED   686CA85600             push    $0056A86C

***** TRY
|
0056A7F2   64FF30                 push    dword ptr fs:[eax]
0056A7F5   648920                 mov     fs:[eax], esp
0056A7F8   8B45FC                 mov     eax, [ebp-$04]
0056A7FB   8B8014030000           mov     eax, [eax+$0314]
0056A801   8B10                   mov     edx, [eax]
0056A803   FF92CC000000           call    dword ptr [edx+$00CC]
0056A809   8945F8                 mov     [ebp-$08], eax
0056A80C   837DF800               cmp     dword ptr [ebp-$08], +$00
0056A810   7C44                   jl      0056A856
0056A812   8B45FC                 mov     eax, [ebp-$04]
0056A815   8B8014030000           mov     eax, [eax+$0314]
0056A81B   8B8018020000           mov     eax, [eax+$0218]
0056A821   8B10                   mov     edx, [eax]
0056A823   FF5214                 call    dword ptr [edx+$14]
0056A826   3B45F8                 cmp     eax, [ebp-$08]
0056A829   7E2B                   jle     0056A856
0056A82B   8D4DF0                 lea     ecx, [ebp-$10]
0056A82E   8B45FC                 mov     eax, [ebp-$04]
0056A831   8B8014030000           mov     eax, [eax+$0314]
0056A837   8B8018020000           mov     eax, [eax+$0218]
0056A83D   8B55F8                 mov     edx, [ebp-$08]
0056A840   8B18                   mov     ebx, [eax]
0056A842   FF530C                 call    dword ptr [ebx+$0C]
0056A845   8B55F0                 mov     edx, [ebp-$10]
0056A848   8B45FC                 mov     eax, [ebp-$04]
0056A84B   8B8000030000           mov     eax, [eax+$0300]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0056A851   E822E8EFFF             call    00469078
0056A856   33C0                   xor     eax, eax
0056A858   5A                     pop     edx
0056A859   59                     pop     ecx
0056A85A   59                     pop     ecx
0056A85B   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[嬪]肬嬱兡