frmmain.pas

传奇3 setup!.txt文件配置工具 可根据设置生成新的setup!.txt文件

unit frmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    OpenDialog1: TOpenDialog;
    StatusBar1: TStatusBar;
    BitBtn2: TBitBtn;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    StaticText1: TStaticText;
    Edit3: TEdit;
    StaticText3: TStaticText;
    Edit4: TEdit;
    StaticText4: TStaticText;
    Edit5: TEdit;
    StaticText5: TStaticText;
    Edit6: TEdit;
    StaticText6: TStaticText;
    Edit7: TEdit;
    StaticText7: TStaticText;
    Edit8: TEdit;
    StaticText8: TStaticText;
    Edit9: TEdit;
    StaticText9: TStaticText;
    Edit10: TEdit;
    StaticText10: TStaticText;
    StaticText11: TStaticText;
    Edit11: TEdit;
    Edit12: TEdit;
    StaticText12: TStaticText;
    Edit13: TEdit;
    StaticText13: TStaticText;
    Edit14: TEdit;
    StaticText14: TStaticText;
    Edit15: TEdit;
    StaticText15: TStaticText;
    Edit16: TEdit;
    StaticText16: TStaticText;
    Edit17: TEdit;
    StaticText17: TStaticText;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    StaticText18: TStaticText;
    StaticText19: TStaticText;
    StaticText20: TStaticText;
    Edit21: TEdit;
    StaticText21: TStaticText;
    Edit22: TEdit;
    StaticText22: TStaticText;
    Edit23: TEdit;
    StaticText23: TStaticText;
    Edit24: TEdit;
    StaticText24: TStaticText;
    Edit25: TEdit;
    StaticText25: TStaticText;
    Edit26: TEdit;
    StaticText26: TStaticText;
    Edit27: TEdit;
    StaticText27: TStaticText;
    Edit28: TEdit;
    StaticText28: TStaticText;
    Edit29: TEdit;
    StaticText29: TStaticText;
    Edit30: TEdit;
    StaticText30: TStaticText;
    Edit31: TEdit;
    StaticText31: TStaticText;
    Edit32: TEdit;
    GroupBox5: TGroupBox;
    StaticText32: TStaticText;
    Edit33: TEdit;
    StaticText33: TStaticText;
    Edit34: TEdit;
    StaticText34: TStaticText;
    Edit35: TEdit;
    StaticText35: TStaticText;
    Edit36: TEdit;
    GroupBox6: TGroupBox;
    StaticText36: TStaticText;
    Edit37: TEdit;
    StaticText37: TStaticText;
    Edit38: TEdit;
    StaticText38: TStaticText;
    Edit39: TEdit;
    StaticText39: TStaticText;
    Edit40: TEdit;
    StaticText40: TStaticText;
    Edit41: TEdit;
    StaticText41: TStaticText;
    Edit42: TEdit;
    StaticText42: TStaticText;
    Edit43: TEdit;
    StaticText43: TStaticText;
    Edit44: TEdit;
    StaticText44: TStaticText;
    Edit45: TEdit;
    StaticText45: TStaticText;
    Edit46: TEdit;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    GroupBox9: TGroupBox;
    StaticText46: TStaticText;
    Edit47: TEdit;
    StaticText47: TStaticText;
    Edit48: TEdit;
    StaticText48: TStaticText;
    Edit49: TEdit;
    GroupBox10: TGroupBox;
    StaticText49: TStaticText;
    Edit50: TEdit;
    StaticText50: TStaticText;
    Edit51: TEdit;
    StaticText51: TStaticText;
    Edit52: TEdit;
    GroupBox11: TGroupBox;
    StaticText52: TStaticText;
    Edit53: TEdit;
    StaticText53: TStaticText;
    Edit54: TEdit;
    StaticText54: TStaticText;
    Edit55: TEdit;
    GroupBox12: TGroupBox;
    StaticText55: TStaticText;
    Edit56: TEdit;
    StaticText56: TStaticText;
    Edit57: TEdit;
    StaticText57: TStaticText;
    Edit58: TEdit;
    TabSheet7: TTabSheet;
    GroupBox14: TGroupBox;
    StaticText70: TStaticText;
    Edit71: TEdit;
    StaticText71: TStaticText;
    Edit72: TEdit;
    StaticText72: TStaticText;
    Edit73: TEdit;
    StaticText73: TStaticText;
    Edit74: TEdit;
    StaticText74: TStaticText;
    Edit75: TEdit;
    StaticText75: TStaticText;
    Edit76: TEdit;
    StaticText76: TStaticText;
    Edit77: TEdit;
    StaticText77: TStaticText;
    Edit78: TEdit;
    StaticText78: TStaticText;
    Edit79: TEdit;
    StaticText79: TStaticText;
    Edit80: TEdit;
    StaticText80: TStaticText;
    Edit81: TEdit;
    StaticText81: TStaticText;
    Edit82: TEdit;
    StaticText82: TStaticText;
    StaticText83: TStaticText;
    Edit83: TEdit;
    Edit84: TEdit;
    StaticText84: TStaticText;
    Edit85: TEdit;
    StaticText85: TStaticText;
    Edit86: TEdit;
    StaticText86: TStaticText;
    Edit87: TEdit;
    StaticText87: TStaticText;
    Edit88: TEdit;
    StaticText88: TStaticText;
    Edit89: TEdit;
    StaticText2: TStaticText;
    Edit2: TEdit;
    StaticText59: TStaticText;
    Edit59: TEdit;
    StaticText60: TStaticText;
    Edit60: TEdit;
    StaticText62: TStaticText;
    Edit61: TEdit;
    StaticText64: TStaticText;
    Edit62: TEdit;
    StaticText66: TStaticText;
    Edit63: TEdit;
    StaticText58: TStaticText;
    Edit64: TEdit;
    StaticText61: TStaticText;
    Edit65: TEdit;
    StaticText63: TStaticText;
    Edit66: TEdit;
    StaticText65: TStaticText;
    Edit67: TEdit;
    StaticText67: TStaticText;
    Edit68: TEdit;
    StaticText68: TStaticText;
    Edit69: TEdit;
    StaticText69: TStaticText;
    Edit70: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
    procedure GetValues;
    procedure SetValues;
  public
    { Public declarations }
  end;
type
  TEIIP = packed record
  IP : String[23];
  Port : dword;
end;

type
  TEIDSN = packed record
  IP : String[20];
  SA : String[20];
  Pass : string[20];
  DSN : string[20];

end;
type
  TEIBorn = packed record
  Map : string[11];
  X : Cardinal;
  Y : Cardinal;
end;

type
  TEICSetupInfo = packed record
    MakeItemIndexBase:Integer;//如果ItemNumber > $7FFFFFFF时则以次基数 * 1000000作为新的ItemNumber
    DwordC:Dword; //$8
    ServerName : string[$15]; //$10
    BoServiceMode:Boolean;//$26
    Boolean27:Boolean;
    View1100X_Msg:Boolean;//$28
    ViewAdmissionFailureMsg:Boolean;
    BoTestServer:Boolean;//$2A
    Boolean2B : Boolean; //$2B
    TestLevel : Integer; //$2C
    TestMoney : Cardinal;  //$30
    TestUsers : Cardinal; //$34
    IP1,IP2,IP3 : TEIIP; //$38
    HumLimitTime,MonLimitTime,ZenLimitTime,NpcLimitTime,SocLimitTime,DecLimitTime:Cardinal;//$8C
    tbLimit:array[0..7] of Integer;
    IP4 : TEIIP; //$C4
    BooleanE0:Boolean;
    tmpE1:array[0..2] of byte;
    DoubleE4:Double; //$E4
    EmergencyMapName : String[$33];//$EC
    EmergencyMapX,EmergencyMapY:Integer;//$120
    Warr : TEIBorn;//$128
    Wizard : TEIBorn; //$13C
    Taos : TEIBorn;   //$150

    DSN1 : TEIDSN; //$164
    DSN2 : TEIDSN; //$1B8

    Dword1 : Cardinal;//$20C
    ExtraExpRate : double; //$210
    ExtraMoneyRate : double;  //$218
    ExtraItemRate : double;//$220
    ExtraMonGenRate : double;  //$228
    FeedLevel : Integer;//$230
    Temp234 : array[0..3] of byte;//$234
    BoApplyEventOption:Boolean;//$238
    PathShare,  //$239
    PathGuilds,  //$29E
    PathGuildList, //$303
    PathShareV,  //$368
    PathConLog,  //$3CD
    PathRoot,    //$432
    PathEnvir,   //$497
    PathMap:String[$64];     //$4FC
    PathLogB : string[$66]; //$561
    MakeItemIndex:Integer;//$5C8
    PathMir3Exe : string[$64];  //$5CC