gameconfig.dfm

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

        Width = 191
        Height = 61
        Caption = 'PK brown(warning) Flag '
        TabOrder = 2
        object Label54: TLabel
          Left = 10
          Top = 25
          Width = 31
          Height = 15
          Caption = 'Time:'
        end
        object Label148: TLabel
          Left = 120
          Top = 25
          Width = 48
          Height = 15
          Caption = 'seconds'
        end
        object EditPKFlagTime: TSpinEdit
          Left = 55
          Top = 20
          Width = 58
          Height = 24
          Hint = 'Player will get warning flag for set time'
          EditorEnabled = False
          MaxValue = 2000
          MinValue = 1
          TabOrder = 0
          Value = 60
          OnChange = EditPKFlagTimeChange
        end
      end
      object GroupBox25: TGroupBox
        Left = 10
        Top = 180
        Width = 191
        Height = 61
        Caption = 'When player  Pk'#39's'
        TabOrder = 3
        object Label55: TLabel
          Left = 122
          Top = 25
          Width = 34
          Height = 15
          Caption = 'points'
        end
        object Label149: TLabel
          Left = 8
          Top = 25
          Width = 24
          Height = 15
          Caption = 'Add:'
        end
        object EditKillHumanAddPKPoint: TSpinEdit
          Left = 55
          Top = 20
          Width = 58
          Height = 24
          MaxValue = 2000
          MinValue = 1
          TabOrder = 0
          Value = 100
          OnChange = EditKillHumanAddPKPointChange
        end
      end
      object GroupBox32: TGroupBox
        Left = 210
        Top = 10
        Width = 331
        Height = 215
        Caption = 'PK settings'
        TabOrder = 4
        object Label58: TLabel
          Left = 140
          Top = 17
          Width = 55
          Height = 15
          Caption = 'gain level:'
        end
        object Label65: TLabel
          Left = 140
          Top = 47
          Width = 55
          Height = 15
          Caption = 'lose level:'
        end
        object Label66: TLabel
          Left = 140
          Top = 77
          Width = 44
          Height = 15
          Caption = 'win exp:'
        end
        object Label56: TLabel
          Left = 140
          Top = 107
          Width = 53
          Height = 15
          Caption = 'Lose exp:'
        end
        object Label67: TLabel
          Left = 10
          Top = 99
          Width = 57
          Height = 30
          Caption = 'Level difference:'
          WordWrap = True
        end
        object Label114: TLabel
          Left = 140
          Top = 137
          Width = 88
          Height = 15
          Caption = 'PK Protect level:'
        end
        object Label115: TLabel
          Left = 111
          Top = 167
          Width = 113
          Height = 15
          Caption = 'Red PK protect level:'
        end
        object CheckBoxKillHumanWinLevel: TCheckBox
          Left = 10
          Top = 15
          Width = 103
          Height = 21
          Hint = 'When players kill they win set level(s)'
          Caption = 'Kill, gain level'
          TabOrder = 0
          OnClick = CheckBoxKillHumanWinLevelClick
        end
        object CheckBoxKilledLostLevel: TCheckBox
          Left = 10
          Top = 37
          Width = 121
          Height = 21
          Hint = 'When killed players loses set level(s)'
          Caption = 'Killed, lose level'
          TabOrder = 1
          OnClick = CheckBoxKilledLostLevelClick
        end
        object CheckBoxKilledLostExp: TCheckBox
          Left = 10
          Top = 77
          Width = 121
          Height = 21
          Hint = 'When killed the player loses set exp'
          Caption = 'Killed. lose exp'
          TabOrder = 2
          OnClick = CheckBoxKilledLostExpClick
        end
        object CheckBoxKillHumanWinExp: TCheckBox
          Left = 10
          Top = 57
          Width = 121
          Height = 21
          Hint = 'When players kill they win set exp'
          Caption = 'Kill, win exp'
          TabOrder = 3
          OnClick = CheckBoxKillHumanWinExpClick
        end
        object EditKillHumanWinLevel: TSpinEdit
          Left = 230
          Top = 12
          Width = 91
          Height = 24
          Hint = 'Levels gained when player PK'#39's'
          EditorEnabled = False
          MaxValue = 100
          MinValue = 1
          TabOrder = 4
          Value = 1
          OnChange = EditKillHumanWinLevelChange
        end
        object EditKilledLostLevel: TSpinEdit
          Left = 230
          Top = 42
          Width = 91
          Height = 24
          Hint = 'Levels lost when player killed'
          EditorEnabled = False
          MaxValue = 100
          MinValue = 1
          TabOrder = 5
          Value = 1
          OnChange = EditKilledLostLevelChange
        end
        object EditKillHumanWinExp: TSpinEdit
          Left = 230
          Top = 72
          Width = 91
          Height = 24
          Hint = 'Exp gained when player PK'#39's'
          Increment = 1000
          MaxValue = 200000000
          MinValue = 1
          TabOrder = 6
          Value = 1
          OnChange = EditKillHumanWinExpChange
        end
        object EditKillHumanLostExp: TSpinEdit
          Left = 230
          Top = 102
          Width = 91
          Height = 24
          Hint = 'Exp lost when killed'
          Increment = 1000
          MaxValue = 200000000
          MinValue = 1
          TabOrder = 7
          Value = 100
          OnChange = EditKillHumanLostExpChange
        end
        object EditHumanLevelDiffer: TSpinEdit
          Left = 72
          Top = 110
          Width = 51
          Height = 24
          EditorEnabled = False
          MaxValue = 100
          MinValue = 1
          TabOrder = 8
          Value = 10
          OnChange = EditHumanLevelDifferChange
        end
        object CheckBoxPKLevelProtect: TCheckBox
          Left = 10
          Top = 137
          Width = 111
          Height = 16
          Hint = 'Enable level protections'
          Caption = 'PK Level Protect'
          Checked = True
          State = cbChecked
          TabOrder = 9
          OnClick = CheckBoxPKLevelProtectClick
        end
        object EditPKProtectLevel: TSpinEdit
          Left = 230
          Top = 132
          Width = 91
          Height = 24
          Hint = 'Players at this level and lower cant be killed by other players'
          EditorEnabled = False
          MaxValue = 65535
          MinValue = 1
          TabOrder = 10
          Value = 10
          OnChange = EditPKProtectLevelChange
        end
        object EditRedPKProtectLevel: TSpinEdit
          Left = 230
          Top = 162
          Width = 91
          Height = 24
          Hint = 
            '????PK??,???????????????????????????????????????????????????????' +
            '?'
          EditorEnabled = False
          MaxValue = 65535
          MinValue = 1
          TabOrder = 11
          Value = 10
          OnChange = EditRedPKProtectLevelChange
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Miscellaneous'
      ImageIndex = 5
      object GroupBox17: TGroupBox
        Left = 390
        Top = 10
        Width = 191
        Height = 211
        Caption = 'Run through cheats'
        TabOrder = 0
        object CheckBoxDisHumRun: TCheckBox
          Left = 13
          Top = 21
          Width = 140
          Height = 17
          Hint = 'Enable to disable the player from running through:'
          Caption = 'Disable Runthrough'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = CheckBoxDisHumRunClick
        end
        object CheckBoxRunHum: TCheckBox
          Left = 34
          Top = 40
          Width = 79
          Height = 16
          Hint = 'Other players'
          Caption = 'Humans'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = CheckBoxRunHumClick
        end
        object CheckBoxRunMon: TCheckBox
          Left = 34
          Top = 64
          Width = 55
          Height = 16
          Hint = 'Mobs'
          Caption = 'Mobs'
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = CheckBoxRunMonClick
        end
        object CheckBoxWarDisHumRun: TCheckBox
          Left = 34
          Top = 126
          Width = 151
          Height = 17
          Caption = 'War Disable HumRun'
          Checked = True
          State = cbChecked
          TabOrder = 3
          OnClick = CheckBoxWarDisHumRunClick
        end
        object CheckBoxRunNpc: TCheckBox
          Left = 34
          Top = 84
          Width = 63
          Height = 16
          Hint = 'NPC'#39's'
          Caption = 'NPC'#39's'
          Checked = True
          State = cbChecked
          TabOrder = 4
          OnClick = CheckBoxRunNpcClick
        end
        object CheckBoxGMRunAll: TCheckBox
          Left = 34
          Top = 149
          Width = 127
          Height = 16
          Hint = 'When disabled a GM player will always run'
          Caption = 'GM will always run'
          TabOrder = 5
          OnClick = CheckBoxGMRunAllClick
        end
        object CheckBoxRunGuard: TCheckBox
          Left = 34
          Top = 104
          Width = 63
          Height = 16
          Hint = 'Guards (Archers are classed as mobs)'
          Caption = 'Guards'
          Checked = True
          State = cbChecked
          TabOrder = 6
          OnClick = CheckBoxRunGuardClick
        end
      end
      object ButtonOptionSave3: TButton
        Left = 460
        Top = 226
        Width = 81
        Height = 32
        Hint = 'Save settings'
        Caption = '&Save'
        TabOrder = 1
        OnClick = ButtonOptionSave3Click
      end
      object GroupBox53: TGroupBox
        Left = 10
        Top = 10
        Width = 191
        Height = 131
        Caption = 'Trading'
        TabOrder = 2
        object Label20: TLabel
          Left = 10
          Top = 25
          Width = 77
          Height = 15
          Caption = 'Time allowed:'
        end
        object Label104: TLabel
          Left = 10
          Top = 55
          Width = 74
          Height = 15
          Caption = 'Confirm time:'
        end
        object Label105: TLabel
          Left = 142
          Top = 25
          Width = 43
          Height = 15
          Caption = 'Minutes'
        end
        object Label106: TLabel
          Left = 142
          Top = 54
          Width = 43
          Height = 15
          Caption = 'Minutes'
        end
        object EditTryDealTime: TSpinEdit
          Left = 93
          Top = 20
          Width = 46
          Height = 24
          Hint = 'Tim allow to make a deal before it times out'
          EditorEnabled = False
          MaxValue = 10
          MinValue = 1
          TabOrder = 0
          Value = 3
          OnChange = EditTryDealTimeChange
        end
        object EditDealOKTime: TSpinEdit
          Left = 93
          Top = 50
          Width = 46
          Height = 24
          Hint = 
            'Time allowed for second player to review and confirm deal after ' +
            'first player confirms'
          EditorEnabled = False
          MaxValue = 10
          MinValue = 1
          TabOrder = 1
          Value = 1
          OnChange = EditDealOKTimeChange
        end
        object CheckBoxCanNotGetBackDeal: TCheckBox
          Left = 14
          Top = 80
          Width = 115
          Height = 16
          Hint = 'Once a player confirms the deal they cannot back out'
          Caption = 'Cannot get back'
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = CheckBoxCanNotGetBackDealClick
        end
        object CheckBoxDisableDeal: TCheckBox
          Left = 14
          Top = 100
          Width = 107
          Height = 16
          Hint = 'Disables the trading system when enabled'
          Caption = 'Disable trading'
          TabOrder = 3
          OnClick = CheckBoxDisableDealClick
        end
      end
      object GroupBox26: TGroupBox
        Left = 10
        Top = 160
        Width = 191
        Height = 61
        Caption = 'GreenPosion(HP)'
        TabOrder = 3
        object Label57: TLabel
          Left = 18
          Top = 25
          Width = 31
          Height = 15
          Caption = 'Time:'
        end
        object Label150: TLabel
          Left = 116
          Top = 25
          Width = 49
          Height = 15
          Caption = 'Seconds'
        end
        object EditPosionDecHealthTime: TSpinEdit
          Left = 56
          Top = 20
          Width = 55
          Height = 24
          Hint = 'Time it takes to drop 1 HP when poisoned'
          Increment = 100
          MaxValue = 20000
          MinValue = 1
          TabOrder = 0
          Value = 10
          OnChange = EditPosionDecHealthTimeChange
        end
      end
      object GroupBox27: TGroupBox
        Left = 212
        Top = 160
        Width = 165
        Height = 61
        Caption = 'RedPosion(AC)'
        TabOrder = 4
        object Label59: TLabel
          Left = 10
          Top = 25
          Width = 31
          Height = 15
          Caption = 'Time:'
        end
        object Label151: TLabel
          Left = 104
          Top = 25
          Width = 49
          Height = 15
          Caption = 'Seconds'
        end
        object EditPosionDamagarmor: TSpinEdit
          Left = 47
          Top = 20
          Width = 50
          Height = 24
          Hint = 'Time to drop 1 AC point when poisoned'