fsrvvalue.pas

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

unit FSrvValue;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmServerValue=class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    EHum: TSpinEdit;
    EMon: TSpinEdit;
    EZen: TSpinEdit;
    ESoc: TSpinEdit;
    ENpc: TSpinEdit;
    BitBtn1: TBitBtn;
    Label6: TLabel;
    EDec: TSpinEdit;
    Label7: TLabel;
    Label8: TLabel;
    ECheckBlock: TSpinEdit;
    ESendBlock: TSpinEdit;
    Label9: TLabel;
    EAvailableBlock: TSpinEdit;
    Label10: TLabel;
    EGateLoad: TSpinEdit;
    CbViewHack: TCheckBox;
    CkViewAdmfail: TCheckBox;
    procedure EHumKeyPress(Sender : TObject);
    procedure FSrvValue.Finalization(Sender : TObject);
    procedure FSrvValue.Initialization(Sender : TObject);
    procedure Proc_004A6108(Sender : TObject);
    procedure Proc_004A5CE8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmServerValue: TFrmServerValue;

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

implementation

{$R *.DFM}

procedure TFrmServerValue.EHumKeyPress(Sender : TObject);
begin
(*
004A5F9C   55                     push    ebp
004A5F9D   8BEC                   mov     ebp, esp
004A5F9F   83C4F0                 add     esp, -$10
004A5FA2   53                     push    ebx
004A5FA3   33DB                   xor     ebx, ebx
004A5FA5   895DF0                 mov     [ebp-$10], ebx
004A5FA8   894DF4                 mov     [ebp-$0C], ecx
004A5FAB   8955F8                 mov     [ebp-$08], edx
004A5FAE   8945FC                 mov     [ebp-$04], eax
004A5FB1   33C0                   xor     eax, eax
004A5FB3   55                     push    ebp

* Possible String Reference to: '閬瞩