📄 configmerchant.pas
字号:
unit ConfigMerchant;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmConfigMerchant=class(TForm)
GroupBoxNPC: TGroupBox;
Label2: TLabel;
EditScriptName: TEdit;
Label3: TLabel;
EditMapName: TEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
EditShowName: TEdit;
Label7: TLabel;
Label8: TLabel;
CheckBoxOfCastle: TCheckBox;
ComboBoxDir: TComboBox;
EditImageIdx: TSpinEdit;
EditX: TSpinEdit;
EditY: TSpinEdit;
GroupBoxScript: TGroupBox;
MemoScript: TMemo;
ButtonSave: TButton;
CheckBoxDenyRefStatus: TCheckBox;
Label10: TLabel;
EditMapDesc: TEdit;
CheckBoxAutoMove: TCheckBox;
Label11: TLabel;
EditMoveTime: TSpinEdit;
ButtonClearTempData: TButton;
ButtonScriptSave: TButton;
ButtonReLoadNpc: TButton;
ListBoxMerChant: TListBox;
Label9: TLabel;
EditPriceRate: TSpinEdit;
CheckBoxUpgradenow: TCheckBox;
CheckBoxStorage: TCheckBox;
CheckBoxSendMsg: TCheckBox;
CheckBoxSell: TCheckBox;
CheckBoxS_repair: TCheckBox;
CheckBoxRepair: TCheckBox;
CheckBoxMakedrug: TCheckBox;
CheckBoxGetbackupgnow: TCheckBox;
CheckBoxGetback: TCheckBox;
CheckBoxBuy: TCheckBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure ListBoxMerChantClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure ButtonSaveClick(Sender : TObject);
procedure CheckBoxDenyRefStatusClick(Sender : TObject);
procedure EditXChange(Sender : TObject);
procedure EditYChange(Sender : TObject);
procedure EditShowNameChange(Sender : TObject);
procedure EditImageIdxChange(Sender : TObject);
procedure CheckBoxOfCastleClick(Sender : TObject);
procedure CheckBoxBuyClick(Sender : TObject);
procedure CheckBoxSellClick(Sender : TObject);
procedure CheckBoxGetbackClick(Sender : TObject);
procedure CheckBoxStorageClick(Sender : TObject);
procedure CheckBoxUpgradenowClick(Sender : TObject);
procedure CheckBoxGetbackupgnowClick(Sender : TObject);
procedure CheckBoxRepairClick(Sender : TObject);
procedure CheckBoxS_repairClick(Sender : TObject);
procedure CheckBoxMakedrugClick(Sender : TObject);
procedure EditPriceRateChange(Sender : TObject);
procedure ButtonScriptSaveClick(Sender : TObject);
procedure ButtonReLoadNpcClick(Sender : TObject);
procedure EditScriptNameChange(Sender : TObject);
procedure EditMapNameChange(Sender : TObject);
procedure ComboBoxDirChange(Sender : TObject);
procedure MemoScriptChange(Sender : TObject);
procedure CheckBoxSendMsgClick(Sender : TObject);
procedure CheckBoxAutoMoveClick(Sender : TObject);
procedure EditMoveTimeChange(Sender : TObject);
procedure ButtonClearTempDataClick(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button3Click(Sender : TObject);
procedure _PROC_00555638(Sender : TObject);
procedure _PROC_00555664(Sender : TObject);
procedure _PROC_00555A39(Sender : TObject);
procedure _PROC_00555AC8(Sender : TObject);
procedure _PROC_00556658(Sender : TObject);
procedure _PROC_00556B9D(Sender : TObject);
procedure _PROC_005575E0(Sender : TObject);
procedure _PROC_00557610(Sender : TObject);
procedure _PROC_00557618(Sender : TObject);
procedure _PROC_0055762B(Sender : TObject);
procedure _PROC_0055763B(Sender : TObject);
procedure _PROC_005576A2(Sender : TObject);
procedure _PROC_00557716(Sender : TObject);
procedure _PROC_005589AB(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmConfigMerchant: TfrmConfigMerchant;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmConfigMerchant.ListBoxMerChantClick(Sender : TObject);
begin
(*
00555CAC 55 push ebp
00555CAD 8BEC mov ebp, esp
00555CAF 83C4EC add esp, -$14
00555CB2 33C9 xor ecx, ecx
00555CB4 894DEC mov [ebp-$14], ecx
00555CB7 894DF0 mov [ebp-$10], ecx
00555CBA 8955F4 mov [ebp-$0C], edx
00555CBD 8945FC mov [ebp-$04], eax
00555CC0 33C0 xor eax, eax
00555CC2 55 push ebp
00555CC3 6853605500 push $00556053
***** TRY
|
00555CC8 64FF30 push dword ptr fs:[eax]
00555CCB 648920 mov fs:[eax], esp
00555CCE 33D2 xor edx, edx
00555CD0 8B45FC mov eax, [ebp-$04]
00555CD3 8B8044030000 mov eax, [eax+$0344]
00555CD9 8B08 mov ecx, [eax]
00555CDB FF91CC000000 call dword ptr [ecx+$00CC]
00555CE1 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmConfigMerchant._PROC_00555638()
|
00555CE4 E84FF9FFFF call 00555638
00555CE9 8B45FC mov eax, [ebp-$04]
00555CEC C680AC03000000 mov byte ptr [eax+$03AC], $00
00555CF3 8B45FC mov eax, [ebp-$04]
00555CF6 8B8068030000 mov eax, [eax+$0368]
00555CFC 8B10 mov edx, [eax]
00555CFE FF92CC000000 call dword ptr [edx+$00CC]
00555D04 8945F8 mov [ebp-$08], eax
00555D07 837DF800 cmp dword ptr [ebp-$08], +$00
00555D0B 0F8C27030000 jl 00556038
00555D11 8B45FC mov eax, [ebp-$04]
00555D14 8B8068030000 mov eax, [eax+$0368]
00555D1A 8B8018020000 mov eax, [eax+$0218]
00555D20 8B55F8 mov edx, [ebp-$08]
00555D23 8B08 mov ecx, [eax]
00555D25 FF5118 call dword ptr [ecx+$18]
00555D28 8B55FC mov edx, [ebp-$04]
00555D2B 8982A8030000 mov [edx+$03A8], eax
00555D31 8B45FC mov eax, [ebp-$04]
00555D34 8B80A8030000 mov eax, [eax+$03A8]
00555D3A 8B90880B0000 mov edx, [eax+$0B88]
00555D40 8B45FC mov eax, [ebp-$04]
00555D43 8B8000030000 mov eax, [eax+$0300]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00555D49 E82A33F1FF call 00469078
00555D4E 8D45F0 lea eax, [ebp-$10]
00555D51 8B55FC mov edx, [ebp-$04]
00555D54 8B92A8030000 mov edx, [edx+$03A8]
00555D5A 83C20F add edx, +$0F
* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
| or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
00555D5D E822F5EAFF call 00405284
00555D62 8B55F0 mov edx, [ebp-$10]
00555D65 8B45FC mov eax, [ebp-$04]
00555D68 8B8008030000 mov eax, [eax+$0308]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00555D6E E80533F1FF call 00469078
00555D73 8B45FC mov eax, [ebp-$04]
00555D76 8B80A8030000 mov eax, [eax+$03A8]
00555D7C 8B804C070000 mov eax, [eax+$074C]
00555D82 8B504C mov edx, [eax+$4C]
00555D85 8B45FC mov eax, [ebp-$04]
00555D88 8B804C030000 mov eax, [eax+$034C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00555D8E E8E532F1FF call 00469078
00555D93 8B45FC mov eax, [ebp-$04]
00555D96 8B80A8030000 mov eax, [eax+$03A8]
00555D9C 8B5030 mov edx, [eax+$30]
00555D9F 8B45FC mov eax, [ebp-$04]
00555DA2 8B8030030000 mov eax, [eax+$0330]
* Reference to : TTimerSpeedButton._PROC_0051A218()
|
00555DA8 E86B44FCFF call 0051A218
00555DAD 8B45FC mov eax, [ebp-$04]
00555DB0 8B80A8030000 mov eax, [eax+$03A8]
00555DB6 8B5034 mov edx, [eax+$34]
00555DB9 8B45FC mov eax, [ebp-$04]
00555DBC 8B8034030000 mov eax, [eax+$0334]
* Reference to : TTimerSpeedButton._PROC_0051A218()
|
00555DC2 E85144FCFF call 0051A218
00555DC7 8D45EC lea eax, [ebp-$14]
00555DCA 8B55FC mov edx, [ebp-$04]
00555DCD 8B92A8030000 mov edx, [edx+$03A8]
00555DD3 83C220 add edx, +$20
* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
| or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
00555DD6 E8A9F4EAFF call 00405284
00555DDB 8B55EC mov edx, [ebp-$14]
00555DDE 8B45FC mov eax, [ebp-$04]
00555DE1 8B8018030000 mov eax, [eax+$0318]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00555DE7 E88C32F1FF call 00469078
00555DEC 8B45FC mov eax, [ebp-$04]
00555DEF 8B80A8030000 mov eax, [eax+$03A8]
00555DF5 0FBE90700B0000 movsx edx, byte ptr [eax+$0B70]
00555DFC 8B45FC mov eax, [ebp-$04]
00555DFF 8B8028030000 mov eax, [eax+$0328]
00555E05 8B08 mov ecx, [eax]
00555E07 FF91D0000000 call dword ptr [ecx+$00D0]
00555E0D 8B45FC mov eax, [ebp-$04]
00555E10 8B80A8030000 mov eax, [eax+$03A8]
00555E16 0FB79070060000 movzx edx, word ptr [eax+$0670]
00555E1D 8B45FC mov eax, [ebp-$04]
00555E20 8B802C030000 mov eax, [eax+$032C]
* Reference to : TTimerSpeedButton._PROC_0051A218()
|
00555E26 E8ED43FCFF call 0051A218
00555E2B 8B45FC mov eax, [ebp-$04]
00555E2E 8B80A8030000 mov eax, [eax+$03A8]
00555E34 8A90910B0000 mov dl, byte ptr [eax+$0B91]
00555E3A 8B45FC mov eax, [ebp-$04]
00555E3D 8B8024030000 mov eax, [eax+$0324]
00555E43 8B08 mov ecx, [eax]
00555E45 FF91CC000000 call dword ptr [ecx+$00CC]
00555E4B 8B45FC mov eax, [ebp-$04]
00555E4E 8B80A8030000 mov eax, [eax+$03A8]
00555E54 8A90C00B0000 mov dl, byte ptr [eax+$0BC0]
00555E5A 8B45FC mov eax, [ebp-$04]
00555E5D 8B8050030000 mov eax, [eax+$0350]
00555E63 8B08 mov ecx, [eax]
00555E65 FF91CC000000 call dword ptr [ecx+$00CC]
00555E6B 8B45FC mov eax, [ebp-$04]
00555E6E 8B80A8030000 mov eax, [eax+$03A8]
00555E74 8B90C40B0000 mov edx, [eax+$0BC4]
00555E7A 8B45FC mov eax, [ebp-$04]
00555E7D 8B8058030000 mov eax, [eax+$0358]
* Reference to : TTimerSpeedButton._PROC_0051A218()
|
00555E83 E89043FCFF call 0051A218
00555E88 8B45FC mov eax, [ebp-$04]
00555E8B 8B80A8030000 mov eax, [eax+$03A8]
00555E91 8A90CC0B0000 mov dl, byte ptr [eax+$0BCC]
00555E97 8B45FC mov eax, [ebp-$04]
00555E9A 8B8098030000 mov eax, [eax+$0398]
00555EA0 8B08 mov ecx, [eax]
00555EA2 FF91CC000000 call dword ptr [ecx+$00CC]
00555EA8 8B45FC mov eax, [ebp-$04]
00555EAB 8B80A8030000 mov eax, [eax+$03A8]
00555EB1 8A90CD0B0000 mov dl, byte ptr [eax+$0BCD]
00555EB7 8B45FC mov eax, [ebp-$04]
00555EBA 8B8080030000 mov eax, [eax+$0380]
00555EC0 8B08 mov ecx, [eax]
00555EC2 FF91CC000000 call dword ptr [ecx+$00CC]
00555EC8 8B45FC mov eax, [ebp-$04]
00555ECB 8B80A8030000 mov eax, [eax+$03A8]
00555ED1 8A90D10B0000 mov dl, byte ptr [eax+$0BD1]
00555ED7 8B45FC mov eax, [ebp-$04]
00555EDA 8B8094030000 mov eax, [eax+$0394]
00555EE0 8B08 mov ecx, [eax]
00555EE2 FF91CC000000 call dword ptr [ecx+$00CC]
00555EE8 8B45FC mov eax, [ebp-$04]
00555EEB 8B80A8030000 mov eax, [eax+$03A8]
00555EF1 8A90D00B0000 mov dl, byte ptr [eax+$0BD0]
00555EF7 8B45FC mov eax, [ebp-$04]
00555EFA 8B8078030000 mov eax, [eax+$0378]
00555F00 8B08 mov ecx, [eax]
00555F02 FF91CC000000 call dword ptr [ecx+$00CC]
00555F08 8B45FC mov eax, [ebp-$04]
00555F0B 8B80A8030000 mov eax, [eax+$03A8]
00555F11 8A90D20B0000 mov dl, byte ptr [eax+$0BD2]
00555F17 8B45FC mov eax, [ebp-$04]
00555F1A 8B8074030000 mov eax, [eax+$0374]
00555F20 8B08 mov ecx, [eax]
00555F22 FF91CC000000 call dword ptr [ecx+$00CC]
00555F28 8B45FC mov eax, [ebp-$04]
00555F2B 8B80A8030000 mov eax, [eax+$03A8]
00555F31 8A90D30B0000 mov dl, byte ptr [eax+$0BD3]
00555F37 8B45FC mov eax, [ebp-$04]
00555F3A 8B8090030000 mov eax, [eax+$0390]
00555F40 8B08 mov ecx, [eax]
00555F42 FF91CC000000 call dword ptr [ecx+$00CC]
00555F48 8B45FC mov eax, [ebp-$04]
00555F4B 8B80A8030000 mov eax, [eax+$03A8]
00555F51 8A90D40B0000 mov dl, byte ptr [eax+$0BD4]
00555F57 8B45FC mov eax, [ebp-$04]
00555F5A 8B8088030000 mov eax, [eax+$0388]
00555F60 8B08 mov ecx, [eax]
00555F62 FF91CC000000 call dword ptr [ecx+$00CC]
00555F68 8B45FC mov eax, [ebp-$04]
00555F6B 8B80A8030000 mov eax, [eax+$03A8]
00555F71 8A90D50B0000 mov dl, byte ptr [eax+$0BD5]
00555F77 8B45FC mov eax, [ebp-$04]
00555F7A 8B8084030000 mov eax, [eax+$0384]
00555F80 8B08 mov ecx, [eax]
00555F82 FF91CC000000 call dword ptr [ecx+$00CC]
00555F88 8B45FC mov eax, [ebp-$04]
00555F8B 8B80A8030000 mov eax, [eax+$03A8]
00555F91 8A90CE0B0000 mov dl, byte ptr [eax+$0BCE]
00555F97 8B45FC mov eax, [ebp-$04]
00555F9A 8B808C030000 mov eax, [eax+$038C]
00555FA0 8B08 mov ecx, [eax]
00555FA2 FF91CC000000 call dword ptr [ecx+$00CC]
00555FA8 8B45FC mov eax, [ebp-$04]
00555FAB 8B80A8030000 mov eax, [eax+$03A8]
00555FB1 8A90D60B0000 mov dl, byte ptr [eax+$0BD6]
00555FB7 8B45FC mov eax, [ebp-$04]
00555FBA 8B807C030000 mov eax, [eax+$037C]
00555FC0 8B08 mov ecx, [eax]
00555FC2 FF91CC000000 call dword ptr [ecx+$00CC]
00555FC8 8B45FC mov eax, [ebp-$04]
00555FCB 8B80A8030000 mov eax, [eax+$03A8]
00555FD1 8B908C0B0000 mov edx, [eax+$0B8C]
00555FD7 8B45FC mov eax, [ebp-$04]
00555FDA 8B8070030000 mov eax, [eax+$0370]
* Reference to : TTimerSpeedButton._PROC_0051A218()
|
00555FE0 E83342FCFF call 0051A218
00555FE5 8B45FC mov eax, [ebp-$04]
00555FE8 8B803C030000 mov eax, [eax+$033C]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -