⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 itemset.pas

📁 大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    Label117: TLabel;
    Label118: TLabel;
    GroupBox47: TGroupBox;
    CheckBoxUserMoveCanDupObj: TCheckBox;
    CheckBoxUserMoveCanOnItem: TCheckBox;
    Label119: TLabel;
    EditUserMoveTime: TSpinEdit;
    Label121: TLabel;
    Label124: TLabel;
    TabSheet21: TTabSheet;
    PageControl2: TPageControl;
    TabSheet23: TTabSheet;
    GroupBox52: TGroupBox;
    Label125: TLabel;
    CheckBoxAutoClearEctype: TCheckBox;
    ButtonEctypeSave: TButton;
    EditAutoClearEctype: TSpinEdit;
    ButtonClearEctype: TButton;
    CheckBoxSaveRcdPromptly: TCheckBox;
    Bevel1: TBevel;
    Label127: TLabel;
    Label132: TLabel;
    TabSheet3: TTabSheet;
    TabSheet7: TTabSheet;
    GroupBox48: TGroupBox;
    Label126: TLabel;
    Label128: TLabel;
    EditItemAcRate: TSpinEdit;
    GroupBox53: TGroupBox;
    Label129: TLabel;
    Label130: TLabel;
    GroupBox54: TGroupBox;
    Label131: TLabel;
    Label133: TLabel;
    EditItemMAcRate: TSpinEdit;
    GroupBox55: TGroupBox;
    Label134: TLabel;
    Label135: TLabel;
    procedure EditItemExpRateChange(Sender : TObject);
    procedure EditItemPowerRateChange(Sender : TObject);
    procedure ButtonItemSetSaveClick(Sender : TObject);
    procedure ButtonAddValueSaveClick(Sender : TObject);
    procedure EditMonRandomAddValueChange(Sender : TObject);
    procedure EditMakeRandomAddValueChange(Sender : TObject);
    procedure EditWeaponDCAddValueMaxLimitChange(Sender : TObject);
    procedure EditWeaponDCAddValueRateChange(Sender : TObject);
    procedure EditWeaponMCAddValueMaxLimitChange(Sender : TObject);
    procedure EditWeaponMCAddValueRateChange(Sender : TObject);
    procedure EditWeaponSCAddValueMaxLimitChange(Sender : TObject);
    procedure EditWeaponSCAddValueRateChange(Sender : TObject);
    procedure EditDressDCAddValueMaxLimitChange(Sender : TObject);
    procedure EditDressDCAddValueRateChange(Sender : TObject);
    procedure EditDressMCAddValueMaxLimitChange(Sender : TObject);
    procedure EditDressMCAddValueRateChange(Sender : TObject);
    procedure EditDressSCAddValueMaxLimitChange(Sender : TObject);
    procedure EditDressSCAddValueRateChange(Sender : TObject);
    procedure EditDressDCAddRateChange(Sender : TObject);
    procedure EditDressMCAddRateChange(Sender : TObject);
    procedure EditDressSCAddRateChange(Sender : TObject);
    procedure EditNeckLace19DCAddValueMaxLimitChange(Sender : TObject);
    procedure EditNeckLace19DCAddValueRateChange(Sender : TObject);
    procedure EditNeckLace19DCAddRateChange(Sender : TObject);
    procedure EditNeckLace19SCAddValueMaxLimitChange(Sender : TObject);
    procedure EditNeckLace19SCAddValueRateChange(Sender : TObject);
    procedure EditNeckLace19SCAddRateChange(Sender : TObject);
    procedure EditNeckLace19MCAddValueMaxLimitChange(Sender : TObject);
    procedure EditNeckLace19MCAddValueRateChange(Sender : TObject);
    procedure EditNeckLace19MCAddRateChange(Sender : TObject);
    procedure EditNeckLace202124DCAddValueMaxLimitChange(Sender : TObject);
    procedure EditNeckLace202124DCAddValueRateChange(Sender : TObject);
    procedure EditNeckLace202124DCAddRateChange(Sender : TObject);
    procedure EditNeckLace202124SCAddValueMaxLimitChange(Sender : TObject);
    procedure EditNeckLace202124SCAddValueRateChange(Sender : TObject);
    procedure EditNeckLace202124SCAddRateChange(Sender : TObject);
    procedure EditNeckLace202124MCAddValueMaxLimitChange(Sender : TObject);
    procedure EditNeckLace202124MCAddValueRateChange(Sender : TObject);
    procedure EditNeckLace202124MCAddRateChange(Sender : TObject);
    procedure EditArmRing26DCAddValueMaxLimitChange(Sender : TObject);
    procedure EditArmRing26DCAddValueRateChange(Sender : TObject);
    procedure EditArmRing26DCAddRateChange(Sender : TObject);
    procedure EditArmRing26SCAddValueMaxLimitChange(Sender : TObject);
    procedure EditArmRing26SCAddValueRateChange(Sender : TObject);
    procedure EditArmRing26SCAddRateChange(Sender : TObject);
    procedure EditArmRing26MCAddValueMaxLimitChange(Sender : TObject);
    procedure EditArmRing26MCAddValueRateChange(Sender : TObject);
    procedure EditArmRing26MCAddRateChange(Sender : TObject);
    procedure EditRing22DCAddValueMaxLimitChange(Sender : TObject);
    procedure EditRing22DCAddValueRateChange(Sender : TObject);
    procedure EditRing22DCAddRateChange(Sender : TObject);
    procedure EditRing22SCAddValueMaxLimitChange(Sender : TObject);
    procedure EditRing22SCAddValueRateChange(Sender : TObject);
    procedure EditRing22SCAddRateChange(Sender : TObject);
    procedure EditRing22MCAddValueMaxLimitChange(Sender : TObject);
    procedure EditRing22MCAddValueRateChange(Sender : TObject);
    procedure EditRing22MCAddRateChange(Sender : TObject);
    procedure EditRing23DCAddValueMaxLimitChange(Sender : TObject);
    procedure EditRing23DCAddValueRateChange(Sender : TObject);
    procedure EditRing23DCAddRateChange(Sender : TObject);
    procedure EditRing23SCAddValueMaxLimitChange(Sender : TObject);
    procedure EditRing23SCAddValueRateChange(Sender : TObject);
    procedure EditRing23SCAddRateChange(Sender : TObject);
    procedure EditRing23MCAddValueMaxLimitChange(Sender : TObject);
    procedure EditRing23MCAddValueRateChange(Sender : TObject);
    procedure EditRing23MCAddRateChange(Sender : TObject);
    procedure EditHelMetDCAddValueMaxLimitChange(Sender : TObject);
    procedure EditHelMetDCAddValueRateChange(Sender : TObject);
    procedure EditHelMetDCAddRateChange(Sender : TObject);
    procedure EditHelMetSCAddValueMaxLimitChange(Sender : TObject);
    procedure EditHelMetSCAddValueRateChange(Sender : TObject);
    procedure EditHelMetSCAddRateChange(Sender : TObject);
    procedure EditHelMetMCAddValueMaxLimitChange(Sender : TObject);
    procedure EditHelMetMCAddValueRateChange(Sender : TObject);
    procedure EditHelMetMCAddRateChange(Sender : TObject);
    procedure EditGuildRecallTimeChange(Sender : TObject);
    procedure ButtonUnKnowItemSaveClick(Sender : TObject);
    procedure EditUnknowRingDCAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowRingDCAddRateChange(Sender : TObject);
    procedure EditUnknowRingMCAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowRingMCAddRateChange(Sender : TObject);
    procedure EditUnknowRingSCAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowRingSCAddRateChange(Sender : TObject);
    procedure EditUnknowRingACAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowRingACAddRateChange(Sender : TObject);
    procedure EditUnknowRingMACAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowRingMACAddRateChange(Sender : TObject);
    procedure EditUnknowNecklaceDCAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowNecklaceDCAddRateChange(Sender : TObject);
    procedure EditUnknowNecklaceMCAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowNecklaceMCAddRateChange(Sender : TObject);
    procedure EditUnknowNecklaceSCAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowNecklaceSCAddRateChange(Sender : TObject);
    procedure EditUnknowNecklaceACAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowNecklaceACAddRateChange(Sender : TObject);
    procedure EditUnknowNecklaceMACAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowNecklaceMACAddRateChange(Sender : TObject);
    procedure EditUnknowHelMetDCAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowHelMetDCAddRateChange(Sender : TObject);
    procedure EditUnknowHelMetMCAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowHelMetMCAddRateChange(Sender : TObject);
    procedure EditUnknowHelMetSCAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowHelMetSCAddRateChange(Sender : TObject);
    procedure EditUnknowHelMetACAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowHelMetACAddRateChange(Sender : TObject);
    procedure EditUnknowHelMetMACAddValueMaxLimitChange(Sender : TObject);
    procedure EditUnknowHelMetMACAddRateChange(Sender : TObject);
    procedure EditAttackPosionRateChange(Sender : TObject);
    procedure EditAttackPosionTimeChange(Sender : TObject);
    procedure CheckBoxUserMoveCanDupObjClick(Sender : TObject);
    procedure CheckBoxUserMoveCanOnItemClick(Sender : TObject);
    procedure EditUserMoveTimeChange(Sender : TObject);
    procedure ButtonEctypeSaveClick(Sender : TObject);
    procedure CheckBoxAutoClearEctypeClick(Sender : TObject);
    procedure EditAutoClearEctypeChange(Sender : TObject);
    procedure ButtonClearEctypeClick(Sender : TObject);
    procedure CheckBoxSaveRcdPromptlyClick(Sender : TObject);
    procedure EditItemAcRateChange(Sender : TObject);
    procedure EditItemMAcRateChange(Sender : TObject);
    procedure _PROC_0055A6BC(Sender : TObject);
    procedure _PROC_0055A710(Sender : TObject);
    procedure _PROC_0055B1CD(Sender : TObject);
    procedure _PROC_0055DB3D(Sender : TObject);
    procedure _PROC_0055EA1C(Sender : TObject);
    procedure _PROC_0055ED35(Sender : TObject);
    procedure _PROC_0055EFA0(Sender : TObject);
    procedure _PROC_0055EFD0(Sender : TObject);
    procedure _PROC_0055EFD8(Sender : TObject);
    procedure _PROC_0055EFEB(Sender : TObject);
    procedure _PROC_0055EFFB(Sender : TObject);
    procedure _PROC_0055F0D6(Sender : TObject);
    procedure _PROC_0055F14F(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmItemSet: TfrmItemSet;

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

implementation

{$R *.DFM}

procedure TfrmItemSet.EditItemExpRateChange(Sender : TObject);
begin
(*
0055B214   55                     push    ebp
0055B215   8BEC                   mov     ebp, esp
0055B217   83C4F8                 add     esp, -$08
0055B21A   8955F8                 mov     [ebp-$08], edx
0055B21D   8945FC                 mov     [ebp-$04], eax
0055B220   8B45FC                 mov     eax, [ebp-$04]
0055B223   80B86408000000         cmp     byte ptr [eax+$0864], $00
0055B22A   7422                   jz      0055B24E
0055B22C   8B45FC                 mov     eax, [ebp-$04]
0055B22F   8B8014030000           mov     eax, [eax+$0314]

* Reference to : TTimerSpeedButton._PROC_0051A158()
|
0055B235   E81EEFFBFF             call    0051A158
0055B23A   8B15A4B56500           mov     edx, [$0065B5A4]
0055B240   8982350C0000           mov     [edx+$0C35], eax
0055B246   8B45FC                 mov     eax, [ebp-$04]

|
0055B249   E81AF4FFFF             call    0055A668
0055B24E   59                     pop     ecx
0055B24F   59                     pop     ecx
0055B250   5D                     pop     ebp
0055B251   C3                     ret

*)
end;

procedure TfrmItemSet.EditItemPowerRateChange(Sender : TObject);
begin
(*
0055B254   55                     push    ebp
0055B255   8BEC                   mov     ebp, esp
0055B257   83C4F8                 add     esp, -$08
0055B25A   8955F8                 mov     [ebp-$08], edx
0055B25D   8945FC                 mov     [ebp-$04], eax
0055B260   8B45FC                 mov     eax, [ebp-$04]
0055B263   80B86408000000         cmp     byte ptr [eax+$0864], $00
0055B26A   7422                   jz      0055B28E
0055B26C   8B45FC                 mov     eax, [ebp-$04]
0055B26F   8B8034030000           mov     eax, [eax+$0334]

* Reference to : TTimerSpeedButton._PROC_0051A158()
|
0055B275   E8DEEEFBFF             call    0051A158
0055B27A   8B15A4B56500           mov     edx, [$0065B5A4]
0055B280   8982310C0000           mov     [edx+$0C31], eax
0055B286   8B45FC                 mov     eax, [ebp-$04]

|
0055B289   E8DAF3FFFF             call    0055A668
0055B28E   59                     pop     ecx
0055B28F   59                     pop     ecx
0055B290   5D                     pop     ebp
0055B291   C3                     ret

*)
end;

procedure TfrmItemSet.ButtonItemSetSaveClick(Sender : TObject);
begin
(*
0055AF44   55                     push    ebp
0055AF45   8BEC                   mov     ebp, esp
0055AF47   83C4F8                 add     esp, -$08
0055AF4A   53                     push    ebx
0055AF4B   8955F8                 mov     [ebp-$08], edx
0055AF4E   8945FC                 mov     [ebp-$04], eax
0055AF51   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
0055AF56   8B80310C0000           mov     eax, [eax+$0C31]
0055AF5C   50                     push    eax
0055AF5D   A1F0B56500             mov     eax, dword ptr [$0065B5F0]
0055AF62   8B00                   mov     eax, [eax]

* Possible String Reference to: 'ItemPowerRate'
|
0055AF64   B900B15500             mov     ecx, $0055B100

* Possible String Reference to: 'Setup'
|
0055AF69   BA18B15500             mov     edx, $0055B118
0055AF6E   8B18                   mov     ebx, [eax]
0055AF70   FF530C                 call    dword ptr [ebx+$0C]
0055AF73   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
0055AF78   8B80350C0000           mov     eax, [eax+$0C35]
0055AF7E   50                     push    eax
0055AF7F   A1F0B56500             mov     eax, dword ptr [$0065B5F0]
0055AF84   8B00                   mov     eax, [eax]

* Possible String Reference to: 'ItemExpRate'
|
0055AF86   B928B15500             mov     ecx, $0055B128

* Possible String Reference to: 'Setup'
|
0055AF8B   BA18B15500             mov     edx, $0055B118
0055AF90   8B18                   mov     ebx, [eax]
0055AF92   FF530C                 call    dword ptr [ebx+$0C]
0055AF95   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
0055AF9A   8B80390C0000           mov     eax, [eax+$0C39]
0055AFA0   50                     push    eax
0055AFA1   A1F0B56500             mov     eax, dword ptr [$0065B5F0]
0055AFA6   8B00                   mov     eax, [eax]

* Possible String Reference to: 'ItemAcRate'
|
0055AFA8   B93CB15500             mov     ecx, $0055B13C

* Possible String Reference to: 'Setup'
|
0055AFAD   BA18B15500             mov     edx, $0055B118
0055AFB2   8B18                   mov     ebx, [eax]
0055AFB4   FF530C                 call    dword ptr [ebx+$0C]
0055AFB7   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
0055AFBC   8B803D0C0000           mov     eax, [eax+$0C3D]
0055AFC2   50                     push    eax
0055AFC3   A1F0B56500             mov     eax, dword ptr [$0065B5F0]
0055AFC8   8B00                   mov     eax, [eax]

* Possible String Reference to: 'ItemMacRate'
|
0055AFCA   B950B15500             mov     ecx, $0055B150

* Possible String Reference to: 'Setup'
|
0055AFCF   BA18B15500             mov     edx, $0055B118
0055AFD4   8B18                   mov     ebx, [eax]
0055AFD6   FF530C                 call    dword ptr [ebx+$0C]
0055AFD9   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
0055AFDE   8B80C7110000           mov     eax, [eax+$11C7]
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -