svmain2.pas

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

unit svMain2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmMain=class(TForm)
    GateSocket: TServerSocket;
    Memo1: TMemo;
    Timer1: TTimer;
    RunTimer: TTimer;
    DBSocket: TClientSocket;
    ConnectTimer: TTimer;
    StartTimer: TTimer;
    Panel1: TPanel;
    SaveVariableTimer: TTimer;
    LbRunTime: TLabel;
    TCloseTimer: TTimer;
    LbUserCount: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    Label4: TLabel;
    LogUDP: TNMUDP;
    LbTimeCount: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure GateSocketClientConnect(Sender : TObject);
    procedure GateSocketClientDisconnect(Sender : TObject);
    procedure GateSocketClientError(Sender : TObject);
    procedure GateSocketClientRead(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure Timer1Timer(Sender : TObject);
    procedure RunTimerTimer(Sender : TObject);
    procedure ConnectTimerTimer(Sender : TObject);
    procedure DBSocketConnect(Sender : TObject);
    procedure DBSocketDisconnect(Sender : TObject);
    procedure DBSocketError(Sender : TObject);
    procedure DBSocketRead(Sender : TObject);
    procedure FormCloseQuery(Sender : TObject);
    procedure StartTimerTimer(Sender : TObject);
    procedure SaveVariableTimerTimer(Sender : TObject);
    procedure TCloseTimerTimer(Sender : TObject);
    procedure Panel1DblClick(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure _PROC_0049D435(Sender : TObject);
    procedure _PROC_0049E863(Sender : TObject);
    procedure _PROC_0049E8A3(Sender : TObject);
    procedure _PROC_0049EBD9(Sender : TObject);
    procedure _PROC_0049F0F4(Sender : TObject);
    procedure _PROC_0049F1B5(Sender : TObject);
    procedure _PROC_0049F1E4(Sender : TObject);
    procedure _PROC_0049F214(Sender : TObject);
    procedure _PROC_0049F461(Sender : TObject);
    procedure _PROC_0049F4D0(Sender : TObject);
    procedure _PROC_0049F5C5(Sender : TObject);
    procedure _PROC_0049F624(Sender : TObject);
    procedure _PROC_0049F6A8(Sender : TObject);
    procedure _PROC_0049F72C(Sender : TObject);
    procedure _PROC_0049F7B0(Sender : TObject);
    procedure _PROC_0049FA91(Sender : TObject);
    procedure _PROC_004A0463(Sender : TObject);
    procedure _PROC_004A04E1(Sender : TObject);
    procedure _PROC_004A0909(Sender : TObject);
    procedure _PROC_004A15C1(Sender : TObject);
    procedure _PROC_004A166C(Sender : TObject);
    procedure _PROC_004A1710(Sender : TObject);
    procedure _PROC_004A1DD4(Sender : TObject);
    procedure _PROC_004A2283(Sender : TObject);
    procedure _PROC_004A255D(Sender : TObject);
    procedure svMain2.Initialization(Sender : TObject);
    procedure svMain2.Finalization(Sender : TObject);
    procedure Proc_0049F657(Sender : TObject);
    procedure Proc_0049F68A(Sender : TObject);
    procedure Proc_0049F795(Sender : TObject);
    procedure Proc_0049F71A(Sender : TObject);
    procedure Proc_0049F79E(Sender : TObject);
    procedure Proc_0049F73B(Sender : TObject);
    procedure Proc_0049F762(Sender : TObject);
    procedure Proc_0049F6E7(Sender : TObject);
    procedure Proc_0049F76B(Sender : TObject);
    procedure Proc_0049F708(Sender : TObject);
    procedure Proc_0049F711(Sender : TObject);
    procedure Proc_004A1F6F(Sender : TObject);
    procedure Proc_0049F7BF(Sender : TObject);
    procedure Proc_0049F34F(Sender : TObject);
    procedure Proc_0049F843(Sender : TObject);
    procedure Proc_0049F894(Sender : TObject);
    procedure Proc_0049F810(Sender : TObject);
    procedure Proc_0049F89D(Sender : TObject);
    procedure Proc_0049F819(Sender : TObject);
    procedure Proc_0049F861(Sender : TObject);
    procedure Proc_0049F882(Sender : TObject);
    procedure Proc_0049F8A3(Sender : TObject);
    procedure Proc_0049F954(Sender : TObject);
    procedure Proc_0049F8D0(Sender : TObject);
    procedure Proc_0049F90C(Sender : TObject);
    procedure Proc_0049FA5C(Sender : TObject);
    procedure Proc_0049F9D8(Sender : TObject);
    procedure Proc_0049D3B8(Sender : TObject);
    procedure Proc_0049F460(Sender : TObject);
    procedure Proc_0049FA90(Sender : TObject);
    procedure Proc_0049D434(Sender : TObject);
    procedure Proc_004A08E3(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmMain: TFrmMain;

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

implementation

{$R *.DFM}

procedure TFrmMain.GateSocketClientConnect(Sender : TObject);
begin
(*
004A1D4C   55                     push    ebp
004A1D4D   8BEC                   mov     ebp, esp
004A1D4F   83C4F4                 add     esp, -$0C
004A1D52   894DF8                 mov     [ebp-$08], ecx
004A1D55   8955F4                 mov     [ebp-$0C], edx
004A1D58   8945FC                 mov     [ebp-$04], eax
004A1D5B   8B55F8                 mov     edx, [ebp-$08]
004A1D5E   A1903B5000             mov     eax, dword ptr [$00503B90]

* Reference to: Unit_004AAA60.Proc_004AAD18
|
004A1D63   E8B08F0000             call    004AAD18
004A1D68   8BE5                   mov     esp, ebp
004A1D6A   5D                     pop     ebp
004A1D6B   C3                     ret

*)
end;

procedure TFrmMain.GateSocketClientDisconnect(Sender : TObject);
begin
(*
004A1D6C   55                     push    ebp
004A1D6D   8BEC                   mov     ebp, esp
004A1D6F   83C4F4                 add     esp, -$0C
004A1D72   894DF8                 mov     [ebp-$08], ecx
004A1D75   8955F4                 mov     [ebp-$0C], edx
004A1D78   8945FC                 mov     [ebp-$04], eax
004A1D7B   8B55F8                 mov     edx, [ebp-$08]
004A1D7E   A1903B5000             mov     eax, dword ptr [$00503B90]

* Reference to: Unit_004AAA60.Proc_004AAFC0
|
004A1D83   E838920000             call    004AAFC0
004A1D88   8BE5                   mov     esp, ebp
004A1D8A   5D                     pop     ebp
004A1D8B   C3                     ret

*)
end;

procedure TFrmMain.GateSocketClientError(Sender : TObject);
begin
(*
004A1D8C   55                     push    ebp
004A1D8D   8BEC                   mov     ebp, esp
004A1D8F   83C4F4                 add     esp, -$0C
004A1D92   894DF8                 mov     [ebp-$08], ecx
004A1D95   8955F4                 mov     [ebp-$0C], edx
004A1D98   8945FC                 mov     [ebp-$04], eax
004A1D9B   8B4D08                 mov     ecx, [ebp+$08]
004A1D9E   8B55F8                 mov     edx, [ebp-$08]
004A1DA1   A1903B5000             mov     eax, dword ptr [$00503B90]

* Reference to: Unit_004AAA60.Proc_004AAFDC
|
004A1DA6   E831920000             call    004AAFDC
004A1DAB   8BE5                   mov     esp, ebp
004A1DAD   5D                     pop     ebp
004A1DAE   C20800                 ret     $0008

*)
end;

procedure TFrmMain.GateSocketClientRead(Sender : TObject);
begin
(*
004A1DB4   55                     push    ebp
004A1DB5   8BEC                   mov     ebp, esp
004A1DB7   83C4F4                 add     esp, -$0C
004A1DBA   894DF8                 mov     [ebp-$08], ecx
004A1DBD   8955F4                 mov     [ebp-$0C], edx
004A1DC0   8945FC                 mov     [ebp-$04], eax
004A1DC3   8B55F8                 mov     edx, [ebp-$08]
004A1DC6   A1903B5000             mov     eax, dword ptr [$00503B90]

* Reference to: Unit_004AAA60.Proc_004AB008
|
004A1DCB   E838920000             call    004AB008
004A1DD0   8BE5                   mov     esp, ebp
004A1DD2   5D                     pop     ebp
004A1DD3   C3                     ret

*)
end;

procedure TFrmMain.FormCreate(Sender : TObject);
begin
(*
0049D560   55                     push    ebp
0049D561   8BEC                   mov     ebp, esp
0049D563   B958000000             mov     ecx, $00000058
0049D568   6A00                   push    $00
0049D56A   6A00                   push    $00
0049D56C   49                     dec     ecx
0049D56D   75F9                   jnz     0049D568
0049D56F   51                     push    ecx
0049D570   53                     push    ebx
0049D571   8955D8                 mov     [ebp-$28], edx
0049D574   8945FC                 mov     [ebp-$04], eax
0049D577   33C0                   xor     eax, eax
0049D579   55                     push    ebp

* Possible String Reference to: '