spin.pas

传奇3delphi代码 请自己看吧 包括地图

unit Spin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TTimerSpeedButton=class(TForm)
    procedure _PROC_00459B60(Sender : TObject);
    procedure _PROC_00459B84(Sender : TObject);
    procedure _PROC_00459B94(Sender : TObject);
    procedure _PROC_00459BC7(Sender : TObject);
    procedure _PROC_00459C00(Sender : TObject);
    procedure _PROC_00459C60(Sender : TObject);
    procedure _PROC_00459CA4(Sender : TObject);
    procedure _PROC_00459D04(Sender : TObject);
    procedure _PROC_00459D65(Sender : TObject);
    procedure _PROC_00459DC8(Sender : TObject);
    procedure _PROC_00459E64(Sender : TObject);
    procedure _PROC_00459EA8(Sender : TObject);
    procedure _PROC_00459F23(Sender : TObject);
    procedure _PROC_00459F32(Sender : TObject);
    procedure _PROC_00459F84(Sender : TObject);
    procedure _PROC_00459F90(Sender : TObject);
    procedure _PROC_00459FE0(Sender : TObject);
    procedure _PROC_0045A05C(Sender : TObject);
    procedure _PROC_0045A1A9(Sender : TObject);
    procedure _PROC_0045A1B0(Sender : TObject);
    procedure _PROC_0045A1F0(Sender : TObject);
    procedure _PROC_0045A224(Sender : TObject);
    procedure _PROC_0045A2C2(Sender : TObject);
    procedure _PROC_0045A2D0(Sender : TObject);
    procedure _PROC_0045A2E4(Sender : TObject);
    procedure _PROC_0045A364(Sender : TObject);
    procedure _PROC_0045A3FC(Sender : TObject);
    procedure _PROC_0045A46C(Sender : TObject);
    procedure _PROC_0045A49C(Sender : TObject);
    procedure _PROC_0045A4CC(Sender : TObject);
    procedure _PROC_0045A4EC(Sender : TObject);
    procedure _PROC_0045A50C(Sender : TObject);
    procedure _PROC_0045A548(Sender : TObject);
    procedure _PROC_0045A5D0(Sender : TObject);
    procedure _PROC_0045A628(Sender : TObject);
    procedure _PROC_0045A650(Sender : TObject);
    procedure _PROC_0045A678(Sender : TObject);
    procedure _PROC_0045A6AC(Sender : TObject);
    procedure _PROC_0045A724(Sender : TObject);
    procedure _PROC_0045A758(Sender : TObject);
    procedure _PROC_0045A7D8(Sender : TObject);
    procedure Spin.Finalization(Sender : TObject);
    procedure Spin.Initialization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  TimerSpeedButton: TTimerSpeedButton;

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

implementation

{$R *.DFM}

procedure TTimerSpeedButton._PROC_00459B60(Sender : TObject);
begin
(*
00459B60   2100                   and     [eax], eax
00459B62   0000                   add     [eax], al

*)
end;

procedure TTimerSpeedButton._PROC_00459B84(Sender : TObject);
begin
(*
00459B84   0801                   or      [ecx], al
00459B86   0000                   add     [eax], al

*)
end;

procedure TTimerSpeedButton._PROC_00459B94(Sender : TObject);
begin
(*
00459B94   B8000000C8             mov     eax, $C8000000
00459B99   9D                     pop     
00459B9A   45                     inc     ebp
00459B9B   00B2018BC3E8           add     [edx+$E8C38B01], dh
00459BA1   2F                     das
00459BA2   26FD                   std
00459BA4   FFB2018BC38B           push    dword ptr [edx+$8BC38B01]
00459BAA   08FF                   or      bh, bh
00459BAC   51                     push    ecx
00459BAD   5C                     pop     esp
00459BAE   A0C89B4500             mov     al, byte ptr [$00459BC8]
00459BB3   88834C010000           mov     [ebx+$014C], al
00459BB9   8BD6                   mov     edx, esi
00459BBB   8BC3                   mov     eax, ebx
00459BBD   8B08                   mov     ecx, [eax]
00459BBF   FF5160                 call    dword ptr [ecx+$60]
00459BC2   8BC3                   mov     eax, ebx
00459BC4   5E                     pop     esi
00459BC5   5B                     pop     ebx
00459BC6   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_00459BC7(Sender : TObject);
begin
(*
00459BC7   0002                   add     [edx], al
00459BC9   0000                   add     [eax], al

*)
end;

procedure TTimerSpeedButton._PROC_00459C00(Sender : TObject);
begin
(*
00459C00   8BF9                   mov     edi, ecx
00459C02   8BF2                   mov     esi, edx
00459C04   8BD8                   mov     ebx, eax

* Reference to field TTimerSpeedButton.OFFS_01F0
|
00459C06   8BABF0010000           mov     ebp, [ebx+$01F0]
00459C0C   85ED                   test    ebp, ebp
00459C0E   744B                   jz      00459C5B
00459C10   F6432001               test    byte ptr [ebx+$20], $01
00459C14   7545                   jnz     00459C5B
00459C16   833E0F                 cmp     dword ptr [esi], +$0F
00459C19   7D06                   jnl     00459C21
00459C1B   C7060F000000           mov     dword ptr [esi], $0000000F
00459C21   8B06                   mov     eax, [esi]
00459C23   50                     push    eax
00459C24   8B07                   mov     eax, [edi]
00459C26   D1F8                   sar     eax, 1
00459C28   7903                   jns     00459C2D
00459C2A   83D000                 adc     eax, +$00
00459C2D   50                     push    eax
00459C2E   33C9                   xor     ecx, ecx
00459C30   33D2                   xor     edx, edx
00459C32   8BC5                   mov     eax, ebp
00459C34   8B28                   mov     ebp, [eax]
00459C36   FF557C                 call    dword ptr [ebp+$7C]
00459C39   8B16                   mov     edx, [esi]
00459C3B   52                     push    edx
00459C3C   8B17                   mov     edx, [edi]

* Reference to field TTimerSpeedButton.OFFS_01F0
|
00459C3E   8B83F0010000           mov     eax, [ebx+$01F0]
00459C44   8B403C                 mov     eax, [eax+$3C]
00459C47   2BD0                   sub     edx, eax
00459C49   42                     inc     edx
00459C4A   52                     push    edx
00459C4B   8BC8                   mov     ecx, eax
00459C4D   49                     dec     ecx
00459C4E   33D2                   xor     edx, edx

* Reference to field TTimerSpeedButton.OFFS_01F4
|
00459C50   8B83F4010000           mov     eax, [ebx+$01F4]
00459C56   8B18                   mov     ebx, [eax]
00459C58   FF537C                 call    dword ptr [ebx+$7C]
00459C5B   5D                     pop     ebp
00459C5C   5F                     pop     edi
00459C5D   5E                     pop     esi
00459C5E   5B                     pop     ebx
00459C5F   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_00459C60(Sender : TObject);
begin
(*
00459C60   55                     push    ebp
00459C61   8BEC                   mov     ebp, esp
00459C63   83C4F8                 add     esp, -$08
00459C66   53                     push    ebx
00459C67   56                     push    esi
00459C68   57                     push    edi
00459C69   8BF9                   mov     edi, ecx
00459C6B   8BF2                   mov     esi, edx
00459C6D   8BD8                   mov     ebx, eax
00459C6F   8B450C                 mov     eax, [ebp+$0C]
00459C72   8945FC                 mov     [ebp-$04], eax
00459C75   8B4508                 mov     eax, [ebp+$08]
00459C78   8945F8                 mov     [ebp-$08], eax
00459C7B   8D4DF8                 lea     ecx, [ebp-$08]
00459C7E   8D55FC                 lea     edx, [ebp-$04]
00459C81   8BC3                   mov     eax, ebx

* Reference to: Spin.Proc_00459BFC
|
00459C83   E874FFFFFF             call    00459BFC
00459C88   8B45FC                 mov     eax, [ebp-$04]
00459C8B   50                     push    eax
00459C8C   8B45F8                 mov     eax, [ebp-$08]
00459C8F   50                     push    eax
00459C90   8BCF                   mov     ecx, edi
00459C92   8BD6                   mov     edx, esi
00459C94   8BC3                   mov     eax, ebx

* Reference to: Controls.Proc_00431E08
|
00459C96   E86D81FDFF             call    00431E08
00459C9B   5F                     pop     edi
00459C9C   5E                     pop     esi
00459C9D   5B                     pop     ebx
00459C9E   59                     pop     ecx
00459C9F   59                     pop     ecx
00459CA0   5D                     pop     ebp
00459CA1   C20800                 ret     $0008

*)
end;

procedure TTimerSpeedButton._PROC_00459CA4(Sender : TObject);
begin
(*
00459CA4   53                     push    ebx
00459CA5   56                     push    esi
00459CA6   83C4F8                 add     esp, -$08
00459CA9   8BF2                   mov     esi, edx
00459CAB   8BD8                   mov     ebx, eax
00459CAD   8BD6                   mov     edx, esi
00459CAF   8BC3                   mov     eax, ebx

* Reference to: Controls.Proc_004307E4
|
00459CB1   E82E6BFDFF             call    004307E4

* Reference to field TTimerSpeedButton.OFFS_0038
|
00459CB6   8B4338                 mov     eax, [ebx+$38]
00459CB9   890424                 mov     [esp], eax

* Reference to field TTimerSpeedButton.OFFS_003C
|
00459CBC   8B433C                 mov     eax, [ebx+$3C]
00459CBF   89442404               mov     [esp+$04], eax
00459CC3   8D4C2404               lea     ecx, [esp+$04]
00459CC7   8BD4                   mov     edx, esp
00459CC9   8BC3                   mov     eax, ebx

* Reference to: Spin.Proc_00459BFC
|
00459CCB   E82CFFFFFF             call    00459BFC
00459CD0   8B0424                 mov     eax, [esp]

* Reference to field TTimerSpeedButton.OFFS_0038
|
00459CD3   3B4338                 cmp     eax, [ebx+$38]
00459CD6   7509                   jnz     00459CE1
00459CD8   8B442404               mov     eax, [esp+$04]

* Reference to field TTimerSpeedButton.OFFS_003C
|
00459CDC   3B433C                 cmp     eax, [ebx+$3C]
00459CDF   7416                   jz      00459CF7
00459CE1   8B0424                 mov     eax, [esp]
00459CE4   50                     push    eax
00459CE5   8B442408               mov     eax, [esp+$08]
00459CE9   50                     push    eax

* Reference to field TTimerSpeedButton.OFFS_0034
|
00459CEA   8B4B34                 mov     ecx, [ebx+$34]

* Reference to field TTimerSpeedButton.OFFS_0030
|
00459CED   8B5330                 mov     edx, [ebx+$30]
00459CF0   8BC3                   mov     eax, ebx

* Reference to: Controls.Proc_00431E08
|
00459CF2   E81181FDFF             call    00431E08
00459CF7   33C0                   xor     eax, eax
00459CF9   89460C                 mov     [esi+$0C], eax
00459CFC   59                     pop     ecx
00459CFD   5A                     pop     edx
00459CFE   5E                     pop     esi
00459CFF   5B                     pop     ebx
00459D00   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_00459D04(Sender : TObject);
begin
(*
00459D04   53                     push    ebx
00459D05   56                     push    esi
00459D06   8BD8                   mov     ebx, eax

* Reference to field TTimerSpeedButton.OFFS_01F8
|
00459D08   8BB3F8010000           mov     esi, [ebx+$01F8]
00459D0E   8A864C010000           mov     al, byte ptr [esi+$014C]
00459D14   0A052C9D4500           or      al, byte ptr [$00459D2C]
00459D1A   88864C010000           mov     [esi+$014C], al
00459D20   8BC6                   mov     eax, esi
00459D22   8B10                   mov     edx, [eax]
00459D24   FF5274                 call    dword ptr [edx+$74]
00459D27   5E                     pop     esi
00459D28   5B                     pop     ebx
00459D29   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_00459D65(Sender : TObject);
begin
(*
00459D65   E820744C66             call    6692118A
00459D6A   83E806                 sub     eax, +$06
00459D6D   7408                   jz      00459D77
00459D6F   6683E802               sub     ax, +$02
00459D73   7421                   jz      00459D96
00459D75   EB4D                   jmp     00459DC4
00459D77   8B96F0010000           mov     edx, [esi+$01F0]
00459D7D   8BC6                   mov     eax, esi

* Reference to : TTimerSpeedButton._PROC_00459EA8()
|
00459D7F   E824010000             call    00459EA8
00459D84   8B86F0010000           mov     eax, [esi+$01F0]

* Possible reference to dynamic method TPersistent.OFFS_FFEC
|
00459D8A   66BBECFF               mov     bx, $FFEC

* Reference to: System.Proc_00403148
|
00459D8E   E8B593FAFF             call    00403148
00459D93   5E                     pop     esi
00459D94   5B                     pop     ebx
00459D95   C3                     ret

00459D96   8B96F4010000           mov     edx, [esi+$01F4]
00459D9C   8BC6                   mov     eax, esi

* Reference to : TTimerSpeedButton._PROC_00459EA8()
|
00459D9E   E805010000             call    00459EA8
00459DA3   8B86F4010000           mov     eax, [esi+$01F4]

* Possible reference to dynamic method TPersistent.OFFS_FFEC
|
00459DA9   66BBECFF               mov     bx, $FFEC

* Reference to: System.Proc_00403148
|
00459DAD   E89693FAFF             call    00403148
00459DB2   5E                     pop     esi
00459DB3   5B                     pop     ebx
00459DB4   C3                     ret

00459DB5   8B86F8010000           mov     eax, [esi+$01F8]

* Possible reference to dynamic method TPersistent.OFFS_FFEC
|
00459DBB   66BBECFF               mov     bx, $FFEC

* Reference to: System.Proc_00403148
|
00459DBF   E88493FAFF             call    00403148
00459DC4   5E                     pop     esi
00459DC5   5B                     pop     ebx
00459DC6   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_00459DC8(Sender : TObject);
begin
(*
00459DC8   55                     push    ebp
00459DC9   8BEC                   mov     ebp, esp
00459DCB   53                     push    ebx
00459DCC   56                     push    esi
00459DCD   57                     push    edi
00459DCE   8BF0                   mov     esi, eax
00459DD0   84C9                   test    cl, cl
00459DD2   0F8583000000           jnz     00459E5B
00459DD8   8BC6                   mov     eax, esi