gameconfig.dfm

来自「2009最新 传奇汉化0599代码 传奇汉化」· DFM 代码 · 共 2,590 行 · 第 1/5 页

object frmGameConfig: TfrmGameConfig
  Left = 267
  Top = 262
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Game Configurations'
  ClientHeight = 331
  ClientWidth = 629
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '??'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object GameConfigControl: TPageControl
    Left = 10
    Top = 2
    Width = 611
    Height = 321
    ActivePage = TabSheet6
    MultiLine = True
    TabOrder = 0
    OnChanging = GameConfigControlChanging
    object GeneralSheet: TTabSheet
      Caption = 'General'
      ImageIndex = 2
      object GroupBoxInfo: TGroupBox
        Left = 210
        Top = 66
        Width = 181
        Height = 55
        Caption = 'Version:'
        TabOrder = 0
        object Label16: TLabel
          Left = 10
          Top = 25
          Width = 48
          Height = 15
          Caption = 'Number:'
        end
        object EditSoftVersionDate: TEdit
          Left = 80
          Top = 20
          Width = 91
          Height = 23
          Hint = 
            'Current client software version required to access and play on s' +
            'erver. Current version: dd/mm/yyyy'
          TabOrder = 0
          Text = '20020522'
          OnChange = EditSoftVersionDateChange
        end
      end
      object GroupBox5: TGroupBox
        Left = 210
        Top = 6
        Width = 181
        Height = 55
        Caption = 'Console show user count'
        TabOrder = 1
        object Label17: TLabel
          Left = 10
          Top = 25
          Width = 31
          Height = 15
          Caption = 'Time:'
        end
        object Label15: TLabel
          Left = 122
          Top = 25
          Width = 49
          Height = 15
          Caption = 'Seconds'
        end
        object EditConsoleShowUserCountTime: TSpinEdit
          Left = 53
          Top = 20
          Width = 60
          Height = 24
          Hint = 'Time between creating usercount in M2 message window'
          EditorEnabled = False
          Increment = 10
          MaxValue = 2000
          MinValue = 10
          TabOrder = 0
          Value = 300
          OnChange = EditConsoleShowUserCountTimeChange
        end
      end
      object GroupBox6: TGroupBox
        Left = 10
        Top = 125
        Width = 191
        Height = 125
        Caption = 'Line notice'
        TabOrder = 2
        object Label18: TLabel
          Left = 10
          Top = 25
          Width = 31
          Height = 15
          Caption = 'Time:'
        end
        object Label19: TLabel
          Left = 10
          Top = 55
          Width = 33
          Height = 15
          Caption = 'Color:'
        end
        object Label21: TLabel
          Left = 10
          Top = 85
          Width = 33
          Height = 15
          Caption = 'Prefix:'
        end
        object Label14: TLabel
          Left = 135
          Top = 25
          Width = 49
          Height = 15
          Caption = 'Seconds'
        end
        object EditShowLineNoticeTime: TSpinEdit
          Left = 64
          Top = 19
          Width = 65
          Height = 24
          Hint = 'Displays the line notices at the set interval'
          EditorEnabled = False
          Increment = 10
          MaxValue = 2000
          MinValue = 10
          TabOrder = 0
          Value = 180
          OnChange = EditShowLineNoticeTimeChange
        end
        object ComboBoxLineNoticeColor: TComboBox
          Left = 64
          Top = 50
          Width = 65
          Height = 23
          Style = csDropDownList
          ItemHeight = 0
          TabOrder = 1
          OnChange = ComboBoxLineNoticeColorChange
        end
        object EditLineNoticePreFix: TEdit
          Left = 64
          Top = 80
          Width = 65
          Height = 23
          Hint = 'Prefix shown before a line notice'
          MaxLength = 20
          TabOrder = 2
          Text = '[!]'
          OnChange = EditLineNoticePreFixChange
        end
      end
      object ButtonGeneralSave: TButton
        Left = 460
        Top = 206
        Width = 81
        Height = 32
        Hint = 'Save settings'
        Caption = '&Save'
        TabOrder = 3
        OnClick = ButtonGeneralSaveClick
      end
      object GroupBox35: TGroupBox
        Left = 400
        Top = 0
        Width = 181
        Height = 111
        Caption = 'Messages'
        TabOrder = 4
        object CheckBoxShowMakeItemMsg: TCheckBox
          Left = 10
          Top = 18
          Width = 121
          Height = 21
          Hint = 
            'Creates an alert in the M2 message window when an item is made m' +
            'anually'
          Caption = 'Show GM @Make'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = CheckBoxShowMakeItemMsgClick
        end
        object CbViewHack: TCheckBox
          Left = 10
          Top = 38
          Width = 127
          Height = 21
          Caption = 'View hack attempts'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = CbViewHackClick
        end
        object CkViewAdmfail: TCheckBox
          Left = 10
          Top = 58
          Width = 111
          Height = 21
          Caption = 'View admin fail'
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = CkViewAdmfailClick
        end
        object CheckBoxShowExceptionMsg: TCheckBox
          Left = 10
          Top = 78
          Width = 143
          Height = 21
          Caption = 'Show exception msgs'
          Checked = True
          State = cbChecked
          TabOrder = 3
          OnClick = CheckBoxShowExceptionMsgClick
        end
      end
      object GroupBox51: TGroupBox
        Left = 10
        Top = 6
        Width = 191
        Height = 115
        Caption = 'Online count'
        TabOrder = 5
        object Label98: TLabel
          Left = 10
          Top = 45
          Width = 29
          Height = 15
          Caption = 'Rate:'
        end
        object Label99: TLabel
          Left = 10
          Top = 75
          Width = 42
          Height = 15
          Caption = 'Interval:'
        end
        object Label100: TLabel
          Left = 130
          Top = 75
          Width = 43
          Height = 15
          Caption = 'Minutes'
        end
        object EditSendOnlineCountRate: TSpinEdit
          Left = 65
          Top = 40
          Width = 60
          Height = 24
          EditorEnabled = False
          MaxValue = 2000
          MinValue = 10
          TabOrder = 0
          Value = 10
          OnChange = EditSendOnlineCountRateChange
        end
        object EditSendOnlineTime: TSpinEdit
          Left = 65
          Top = 70
          Width = 60
          Height = 24
          Hint = 'Displays the usercount at the set interval'
          EditorEnabled = False
          Increment = 10
          MaxValue = 200000
          MinValue = 5
          TabOrder = 1
          Value = 10
          OnChange = EditSendOnlineTimeChange
        end
        object CheckBoxSendOnlineCount: TCheckBox
          Left = 10
          Top = 18
          Width = 159
          Height = 21
          Hint = 'Displays the total user online in message window'
          Caption = 'Show usercount ingame'
          TabOrder = 2
          OnClick = CheckBoxSendOnlineCountClick
        end
      end
      object GroupBox52: TGroupBox
        Left = 210
        Top = 125
        Width = 181
        Height = 125
        Caption = 'Power rates'
        TabOrder = 6
        object Label101: TLabel
          Left = 10
          Top = 25
          Width = 54
          Height = 15
          Caption = 'Monsters:'
        end
        object Label102: TLabel
          Left = 10
          Top = 55
          Width = 34
          Height = 15
          Caption = 'items:'
        end
        object Label103: TLabel
          Left = 10
          Top = 85
          Width = 19
          Height = 15
          Caption = 'AC:'
        end
        object EditMonsterPowerRate: TSpinEdit
          Left = 85
          Top = 20
          Width = 86
          Height = 24
          EditorEnabled = False
          MaxValue = 20000
          MinValue = 1
          TabOrder = 0
          Value = 10
          OnChange = EditMonsterPowerRateChange
        end
        object EditEditItemsPowerRate: TSpinEdit
          Left = 85
          Top = 50
          Width = 86
          Height = 24
          EditorEnabled = False
          MaxValue = 20000000
          MinValue = 1
          TabOrder = 1
          Value = 10
          OnChange = EditEditItemsPowerRateChange
        end
        object EditItemsACPowerRate: TSpinEdit
          Left = 85
          Top = 80
          Width = 86
          Height = 24
          EditorEnabled = False
          MaxValue = 2000
          MinValue = 1
          TabOrder = 2
          Value = 10
          OnChange = EditItemsACPowerRateChange
        end
      end
      object GroupBox73: TGroupBox
        Left = 400
        Top = 125
        Width = 181
        Height = 52
        Caption = 'Client connections'
        TabOrder = 7
        object CheckBoxCanOldClientLogon: TCheckBox
          Left = 10
          Top = 20
          Width = 161
          Height = 21
          Hint = 
            'Allow older clients to log in - Set to Off as default for securi' +
            'ty'
          Caption = 'Allow use of older clients'
          TabOrder = 0
          OnClick = CheckBoxCanOldClientLogonClick
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Server mode'
      ImageIndex = 7
      object GroupBox28: TGroupBox
        Left = 34
        Top = 10
        Width = 151
        Height = 111
        Caption = 'Server modes'
        TabOrder = 0
        object CheckBoxTestServer: TCheckBox
          Left = 10
          Top = 18
          Width = 87
          Height = 21
          Hint = 'Server will run in test mode'
          Caption = 'Test Server'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = CheckBoxTestServerClick
        end
        object CheckBoxServiceMode: TCheckBox
          Left = 10
          Top = 38
          Width = 91
          Height = 21
          Caption = 'Service Mode'
          TabOrder = 1
          OnClick = CheckBoxServiceModeClick
        end
        object CheckBoxVentureMode: TCheckBox
          Left = 10
          Top = 58
          Width = 101
          Height = 21
          Caption = 'Venture Mode'
          TabOrder = 2
          OnClick = CheckBoxVentureModeClick
        end
        object CheckBoxNonPKMode: TCheckBox
          Left = 10
          Top = 78
          Width = 103
          Height = 21
          Hint = 'When enabled players cant kill other players'
          Caption = 'Disable PK'#39'ing'
          Checked = True
          State = cbChecked
          TabOrder = 3
          OnClick = CheckBoxNonPKModeClick
        end
      end
      object GroupBox29: TGroupBox
        Left = 34
        Top = 130
        Width = 181
        Height = 121
        Caption = 'Test server mode'
        TabOrder = 1
        object Label61: TLabel
          Left = 10
          Top = 25
          Width = 32
          Height = 15
          Caption = 'Level:'
        end
        object Label62: TLabel
          Left = 10
          Top = 55
          Width = 29
          Height = 15
          Caption = 'Gold:'
        end
        object Label63: TLabel
          Left = 10
          Top = 85
          Width = 57
          Height = 15
          Caption = 'UserLimit:'
        end
        object EditTestLevel: TSpinEdit
          Left = 85
          Top = 20
          Width = 86
          Height = 24
          Hint = 
            'The level a player starts with when the server is run in test mo' +
            'de'
          MaxValue = 20000
          MinValue = 0
          TabOrder = 0
          Value = 0
          OnChange = EditTestLevelChange
          OnKeyDown = EditTestLevelKeyDown
        end
        object EditTestGold: TSpinEdit
          Left = 85
          Top = 50
          Width = 86
          Height = 24
          Hint = 
            'Gold given to a player when they start if the server when it'#39's r' +
            'un in test mode'
          Increment = 1000
          MaxValue = 20000000
          MinValue = 0
          TabOrder = 1
          Value = 0
          OnChange = EditTestGoldChange
        end
        object EditTestUserLimit: TSpinEdit
          Left = 85
          Top = 80
          Width = 86
          Height = 24
          Hint = 'Maximum no of users when the server is run in test mode'
          Increment = 10
          MaxValue = 2000
          MinValue = 0
          TabOrder = 2
          Value = 300
          OnChange = EditTestUserLimitChange
        end
      end
      object GroupBox30: TGroupBox
        Left = 420
        Top = 10
        Width = 130
        Height = 55
        Caption = 'Starting permission'
        TabOrder = 2
        object Label60: TLabel
          Left = 8
          Top = 24
          Width = 32