functionconfig.dfm
来自「2009最新 传奇汉化0599代码 传奇汉化」· DFM 代码 · 共 2,370 行 · 第 1/5 页
DFM
2,370 行
Left = 78
Top = 39
Width = 53
Height = 24
EditorEnabled = False
MaxValue = 9999
MinValue = 0
TabOrder = 1
Value = 100
OnChange = EditMasterDieMutinyRateChange
end
object EditMasterDieMutinyPower: TSpinEdit
Left = 78
Top = 65
Width = 53
Height = 24
EditorEnabled = False
MaxValue = 9999
MinValue = 0
TabOrder = 2
Value = 100
OnChange = EditMasterDieMutinyPowerChange
end
object EditMasterDieMutinySpeed: TSpinEdit
Left = 78
Top = 91
Width = 53
Height = 24
EditorEnabled = False
MaxValue = 9999
MinValue = 0
TabOrder = 3
Value = 100
OnChange = EditMasterDieMutinySpeedChange
end
end
object GroupBox47: TGroupBox
Left = 251
Top = 139
Width = 149
Height = 79
TabOrder = 4
object Label112: TLabel
Left = 12
Top = 43
Width = 26
Height = 13
Caption = 'Time:'
end
object CheckBoxBBMonAutoChangeColor: TCheckBox
Left = 9
Top = 17
Width = 131
Height = 19
Caption = 'Mon auto change color?'
TabOrder = 0
OnClick = CheckBoxBBMonAutoChangeColorClick
end
object EditBBMonAutoChangeColorTime: TSpinEdit
Left = 78
Top = 39
Width = 53
Height = 24
EditorEnabled = False
MaxValue = 9999
MinValue = 1
TabOrder = 1
Value = 100
OnChange = EditBBMonAutoChangeColorTimeChange
end
end
end
object MonSaySheet: TTabSheet
Caption = 'MonSay'
object GroupBox40: TGroupBox
Left = 9
Top = 9
Width = 148
Height = 53
TabOrder = 0
object CheckBoxMonSayMsg: TCheckBox
Left = 9
Top = 17
Width = 122
Height = 19
Hint = 'Allow mobs to talk'
Caption = 'Enable MonSay'
Checked = True
State = cbChecked
TabOrder = 0
OnClick = CheckBoxMonSayMsgClick
end
end
object ButtonMonSayMsgSave: TButton
Left = 407
Top = 300
Width = 71
Height = 22
Hint = 'Save settings'
Caption = '&Save'
TabOrder = 1
OnClick = ButtonMonSayMsgSaveClick
end
end
object TabSheet1: TTabSheet
Caption = 'Magics'
ImageIndex = 1
object MagicPageControl: TPageControl
Left = 0
Top = 0
Width = 486
Height = 296
ActivePage = TabSheet18
MultiLine = True
TabOrder = 0
TabPosition = tpBottom
object TabSheet36: TTabSheet
Caption = 'Rage'
ImageIndex = 31
object GroupBox17: TGroupBox
Left = 9
Top = 9
Width = 157
Height = 53
Caption = 'Magic attack rage?'
TabOrder = 0
object Label12: TLabel
Left = 9
Top = 20
Width = 29
Height = 13
Caption = 'Rage:'
end
object EditMagicAttackRage: TSpinEdit
Left = 74
Top = 16
Width = 57
Height = 22
Hint =
'Range an object must be withing before it can be attacked by a m' +
'agic(distance) attack'
EditorEnabled = False
MaxValue = 20
MinValue = 1
TabOrder = 0
Value = 10
OnChange = EditMagicAttackRageChange
end
end
end
object TabSheet11: TTabSheet
Caption = 'Thrusting'
ImageIndex = 10
object GroupBox9: TGroupBox
Left = 9
Top = 9
Width = 122
Height = 44
Caption = 'Limit thrusting'
TabOrder = 0
object CheckBoxLimitSwordLong: TCheckBox
Left = 9
Top = 17
Width = 54
Height = 19
Hint = 'Limit the thrusting power rate'
Caption = 'Limit on'
TabOrder = 0
OnClick = CheckBoxLimitSwordLongClick
end
end
object GroupBox10: TGroupBox
Left = 9
Top = 61
Width = 139
Height = 44
Caption = 'Power rate'
TabOrder = 1
object Label4: TLabel
Left = 9
Top = 22
Width = 26
Height = 13
Caption = 'Rate:'
end
object Label10: TLabel
Left = 104
Top = 22
Width = 23
Height = 13
Caption = '/100'
end
object EditSwordLongPowerRate: TSpinEdit
Left = 48
Top = 16
Width = 48
Height = 22
Hint = 'Power transferred to area affected by thrusting'
EditorEnabled = False
MaxValue = 1000
MinValue = 1
TabOrder = 0
Value = 100
OnChange = EditSwordLongPowerRateChange
end
end
end
object FiresWordTab: TTabSheet
Caption = 'FlamingSword'
end
object TabSheet18: TTabSheet
Caption = 'Eshock'
ImageIndex = 17
object GroupBox38: TGroupBox
Left = 147
Top = 9
Width = 123
Height = 44
Caption = 'Taming level'
TabOrder = 0
object Label98: TLabel
Left = 9
Top = 22
Width = 29
Height = 13
Caption = 'Level:'
end
object EditMagTammingLevel: TSpinEdit
Left = 48
Top = 16
Width = 66
Height = 22
Hint = 'Minimum level of tameable mob'
EditorEnabled = False
MaxValue = 65535
MinValue = 1
TabOrder = 0
Value = 1
OnChange = EditMagTammingLevelChange
end
end
object GroupBox39: TGroupBox
Left = 9
Top = 61
Width = 131
Height = 79
TabOrder = 1
object Label99: TLabel
Left = 9
Top = 22
Width = 63
Height = 13
Caption = 'Target Level:'
end
object Label100: TLabel
Left = 9
Top = 48
Width = 44
Height = 13
Caption = 'HP Rate:'
end
object EditMagTammingTargetLevel: TSpinEdit
Left = 76
Top = 16
Width = 44
Height = 22
Hint = 'Minimum level a mob will be when tamed?'
EditorEnabled = False
MaxValue = 65535
MinValue = 1
TabOrder = 0
Value = 1
OnChange = EditMagTammingTargetLevelChange
end
object EditMagTammingHPRate: TSpinEdit
Left = 76
Top = 42
Width = 44
Height = 22
Hint = 'Rate HP of mob will drop whilst tamed'
EditorEnabled = False
MaxValue = 65535
MinValue = 1
TabOrder = 1
Value = 1
OnChange = EditMagTammingHPRateChange
end
end
object GroupBox45: TGroupBox
Left = 9
Top = 9
Width = 131
Height = 44
Caption = 'Max amount of pets'
TabOrder = 2
object Label111: TLabel
Left = 9
Top = 22
Width = 39
Height = 13
Caption = 'Amount:'
end
object EditTammingCount: TSpinEdit
Left = 76
Top = 16
Width = 44
Height = 22
Hint = 'Max no of pets that can be tamed'
EditorEnabled = False
MaxValue = 65535
MinValue = 1
TabOrder = 0
Value = 2
OnChange = EditTammingCountChange
end
end
end
object TabSheet20: TTabSheet
Caption = 'FireWall'
ImageIndex = 19
object GroupBox46: TGroupBox
Left = 9
Top = 9
Width = 122
Height = 44
Caption = 'FireWall in safezone'
TabOrder = 0
object CheckBoxFireCrossInSafeZone: TCheckBox
Left = 9
Top = 17
Width = 105
Height = 19
Hint = 'Allow firewall to be casted in a safezone'
Caption = 'Allow'
TabOrder = 0
OnClick = CheckBoxFireCrossInSafeZoneClick
end
end
end
object TabSheet28: TTabSheet
Caption = 'TurnUndead'
ImageIndex = 27
object GroupBox37: TGroupBox
Left = 9
Top = 9
Width = 122
Height = 44
Caption = 'Turn undead level'
TabOrder = 0
object Label97: TLabel
Left = 9
Top = 22
Width = 29
Height = 13
Caption = 'Level:'
end
object EditMagTurnUndeadLevel: TSpinEdit
Left = 48
Top = 16
Width = 66
Height = 24
Hint = 'Minimum level a mob must be before turn undead will work on it?'
EditorEnabled = False
MaxValue = 65535
MinValue = 1
TabOrder = 0
Value = 1
OnChange = EditMagTurnUndeadLevelChange
end
end
end
object TabSheet22: TTabSheet
Caption = 'ThunderStorm'
ImageIndex = 21
object GroupBox15: TGroupBox
Left = 9
Top = 9
Width = 122
Height = 44
Caption = 'Range'
TabOrder = 0
object Label9: TLabel
Left = 9
Top = 22
Width = 25
Height = 13
Caption = 'Cells:'
end
object EditElecBlizzardRange: TSpinEdit
Left = 48
Top = 16
Width = 66
Height = 24
Hint = 'Distance in cells surroundinbg player spell affects'
EditorEnabled = False
MaxValue = 12
MinValue = 1
TabOrder = 0
Value = 1
OnChange = EditElecBlizzardRangeChange
end
end
end
object TabSheet21: TTabSheet
Caption = 'FlameDisruptor'
ImageIndex = 20
object GroupBox13: TGroupBox
Left = 9
Top = 9
Width = 122
Height = 44
Caption = 'Range'
TabOrder = 0
object Label7: TLabel
Left = 9
Top = 22
Width = 25
Height = 13
Caption = 'Cells:'
end
object EditFireBoomRage: TSpinEdit
Left = 48
Top = 16
Width = 66
Height = 22
Hint = 'Distance in cells surroundinbg player spell affects'
EditorEnabled = False
MaxValue = 12
MinValue = 1
TabOrder = 0
Value = 1
OnChange = EditFireBoomRageChange
end
end
end
object TabSheet29: TTabSheet
Caption = 'IceStorm'
ImageIndex = 28
object GroupBox14: TGroupBox
Left = 9
Top = 9
Width = 122
Height = 44
Caption = 'Range'
TabOrder = 0
object Label8: TLabel
Left = 9
Top = 22
Width = 25
Height = 13
Hint = 'Distance in cells surroundinbg player spell affects'
Caption = 'Cells:'
end
object EditSnowWindRange: TSpinEdit
Left = 48
Top = 16
Width = 66
Height = 22
Hint = 'Distance in cells surroundinbg player spell affects'
EditorEnabled = False
MaxValue = 12
MinValue = 1
TabOrder = 0
Value = 1
OnChange = EditSnowWindRangeChange
end
end
end
object TabSheet6: TTabSheet
Caption = 'Posion'
ImageIndex = 4
object GroupBox16: TGroupBox
Left = 9
Top = 9
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?