configmerchant.dfm

来自「2009最新 传奇汉化0599代码 传奇汉化」· DFM 代码 · 共 434 行

object frmConfigMerchant: TfrmConfigMerchant
  Left = 48
  Top = 138
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'NPC Editor'
  ClientHeight = 468
  ClientWidth = 928
  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 Label1: TLabel
    Left = 10
    Top = 10
    Width = 81
    Height = 15
    Caption = 'Loaded NPCs:'
  end
  object ListBoxMerChant: TListBox
    Left = 10
    Top = 30
    Width = 501
    Height = 211
    Hint = 'List of NPC files'
    ItemHeight = 15
    TabOrder = 0
    OnClick = ListBoxMerChantClick
  end
  object GroupBoxNPC: TGroupBox
    Left = 10
    Top = 250
    Width = 501
    Height = 171
    Caption = 'NPC details'
    Enabled = False
    TabOrder = 1
    object Label2: TLabel
      Left = 8
      Top = 25
      Width = 71
      Height = 15
      Caption = 'Script Name:'
    end
    object Label3: TLabel
      Left = 236
      Top = 25
      Width = 85
      Height = 15
      Caption = 'Map NPC is on:'
    end
    object Label4: TLabel
      Left = 8
      Top = 55
      Width = 90
      Height = 15
      Caption = 'Co-Ordinates  X:'
    end
    object Label5: TLabel
      Left = 158
      Top = 55
      Width = 10
      Height = 15
      Caption = 'Y:'
    end
    object Label6: TLabel
      Left = 8
      Top = 85
      Width = 78
      Height = 15
      Caption = 'DisplayName:'
    end
    object Label7: TLabel
      Left = 244
      Top = 77
      Width = 52
      Height = 30
      Caption = 'Faces Direction:'
      WordWrap = True
    end
    object Label8: TLabel
      Left = 380
      Top = 85
      Width = 28
      Height = 15
      Caption = 'Appr:'
    end
    object Label10: TLabel
      Left = 236
      Top = 55
      Width = 92
      Height = 15
      Caption = 'Map Description:'
    end
    object Label11: TLabel
      Left = 336
      Top = 115
      Width = 81
      Height = 30
      Caption = 'Time between teleports (m):'
      WordWrap = True
    end
    object EditScriptName: TEdit
      Left = 88
      Top = 20
      Width = 143
      Height = 23
      Hint = 'Filename that contains the NPC script'
      TabOrder = 0
      OnChange = EditScriptNameChange
    end
    object EditMapName: TEdit
      Left = 330
      Top = 20
      Width = 151
      Height = 23
      Hint = 'Map NPC can be found on'
      TabOrder = 1
      OnChange = EditMapNameChange
    end
    object EditShowName: TEdit
      Left = 88
      Top = 80
      Width = 145
      Height = 23
      Hint = 'Name of NPC ingame'
      TabOrder = 2
      OnChange = EditShowNameChange
    end
    object CheckBoxOfCastle: TCheckBox
      Left = 104
      Top = 118
      Width = 121
      Height = 21
      Hint = 'A % of sales price goes to castle'
      Caption = 'Donates to castle'
      TabOrder = 3
      OnClick = CheckBoxOfCastleClick
    end
    object ComboBoxDir: TComboBox
      Left = 300
      Top = 80
      Width = 61
      Height = 23
      Hint = 
        'Direction the NPC faces (1 being up and counting in a clockwise ' +
        'direction)'
      Style = csDropDownList
      ItemHeight = 15
      TabOrder = 4
      OnChange = ComboBoxDirChange
    end
    object EditImageIdx: TSpinEdit
      Left = 420
      Top = 79
      Width = 61
      Height = 24
      Hint = 'Skin no in NPC.wil'
      EditorEnabled = False
      MaxValue = 65535
      MinValue = 0
      TabOrder = 5
      Value = 0
      OnChange = EditImageIdxChange
    end
    object EditX: TSpinEdit
      Left = 104
      Top = 49
      Width = 45
      Height = 24
      Hint = 'X Co-Ordinate of NPC'
      EditorEnabled = False
      MaxValue = 1000
      MinValue = 1
      TabOrder = 6
      Value = 1
      OnChange = EditXChange
    end
    object EditY: TSpinEdit
      Left = 176
      Top = 49
      Width = 47
      Height = 24
      Hint = 'Y Co-Ordinate of NPC'
      EditorEnabled = False
      MaxValue = 1000
      MinValue = 1
      TabOrder = 7
      Value = 1
      OnChange = EditYChange
    end
    object EditMapDesc: TEdit
      Left = 330
      Top = 50
      Width = 151
      Height = 23
      Enabled = False
      ReadOnly = True
      TabOrder = 8
    end
    object CheckBoxAutoMove: TCheckBox
      Left = 236
      Top = 118
      Width = 93
      Height = 21
      Hint = 'NPC can randomly teleport'
      Caption = 'Can teleport'
      TabOrder = 9
      OnClick = CheckBoxAutoMoveClick
    end
    object EditMoveTime: TSpinEdit
      Left = 430
      Top = 117
      Width = 51
      Height = 24
      Hint = 'Time between the random teleports'
      EditorEnabled = False
      MaxValue = 65535
      MinValue = 0
      TabOrder = 10
      Value = 0
      OnChange = EditMoveTimeChange
    end
  end
  object GroupBoxScript: TGroupBox
    Left = 520
    Top = 10
    Width = 401
    Height = 451
    Caption = 'Script file'
    Enabled = False
    TabOrder = 2
    object MemoScript: TMemo
      Left = 10
      Top = 160
      Width = 383
      Height = 281
      Hint = 'Selected NPC script'
      ScrollBars = ssBoth
      TabOrder = 0
      OnChange = MemoScriptChange
    end
    object ButtonScriptSave: TButton
      Left = 316
      Top = 38
      Width = 71
      Height = 31
      Hint = 'Save NPC script file'
      Caption = '&Save'
      TabOrder = 1
      OnClick = ButtonScriptSaveClick
    end
    object GroupBox3: TGroupBox
      Left = 10
      Top = 20
      Width = 295
      Height = 133
      Caption = 'Options'
      TabOrder = 2
      object Label9: TLabel
        Left = 10
        Top = 102
        Width = 57
        Height = 15
        Caption = 'PriceRate:'
      end
      object CheckBoxBuy: TCheckBox
        Left = 10
        Top = 20
        Width = 41
        Height = 21
        Caption = 'Buy'
        TabOrder = 0
        OnClick = CheckBoxBuyClick
      end
      object CheckBoxSell: TCheckBox
        Left = 10
        Top = 40
        Width = 41
        Height = 21
        Caption = 'Sell'
        TabOrder = 1
        OnClick = CheckBoxSellClick
      end
      object CheckBoxStorage: TCheckBox
        Left = 66
        Top = 40
        Width = 81
        Height = 21
        Caption = 'Storage'
        TabOrder = 2
        OnClick = CheckBoxStorageClick
      end
      object CheckBoxGetback: TCheckBox
        Left = 66
        Top = 20
        Width = 81
        Height = 21
        Caption = 'Get back'
        TabOrder = 3
        OnClick = CheckBoxGetbackClick
      end
      object CheckBoxMakedrug: TCheckBox
        Left = 166
        Top = 60
        Width = 91
        Height = 21
        Caption = 'MakeDrug'
        TabOrder = 4
        OnClick = CheckBoxMakedrugClick
      end
      object CheckBoxUpgradenow: TCheckBox
        Left = 166
        Top = 20
        Width = 99
        Height = 21
        Caption = 'Upgrade now'
        TabOrder = 5
        OnClick = CheckBoxUpgradenowClick
      end
      object CheckBoxGetbackupgnow: TCheckBox
        Left = 166
        Top = 40
        Width = 115
        Height = 21
        Caption = 'Get back upgrade'
        TabOrder = 6
        OnClick = CheckBoxGetbackupgnowClick
      end
      object CheckBoxRepair: TCheckBox
        Left = 166
        Top = 84
        Width = 91
        Height = 21
        Caption = 'Repair'
        TabOrder = 7
        OnClick = CheckBoxRepairClick
      end
      object CheckBoxS_repair: TCheckBox
        Left = 166
        Top = 104
        Width = 101
        Height = 21
        Caption = 'Special repair'
        TabOrder = 8
        OnClick = CheckBoxS_repairClick
      end
      object EditPriceRate: TSpinEdit
        Left = 80
        Top = 97
        Width = 61
        Height = 24
        Hint = 'NPC price rate, 80=80%'
        EditorEnabled = False
        MaxValue = 500
        MinValue = 60
        TabOrder = 9
        Value = 60
        OnChange = EditPriceRateChange
      end
      object CheckBoxSendMsg: TCheckBox
        Left = 66
        Top = 60
        Width = 95
        Height = 21
        Caption = '@@SendMsg'
        TabOrder = 10
        OnClick = CheckBoxSendMsgClick
      end
    end
    object ButtonReLoadNpc: TButton
      Left = 316
      Top = 78
      Width = 71
      Height = 31
      Hint = 'Reload NPC Script'
      HelpType = htKeyword
      Caption = 'Re&load'
      Enabled = False
      TabOrder = 3
      OnClick = ButtonReLoadNpcClick
    end
  end
  object ButtonSave: TButton
    Left = 10
    Top = 430
    Width = 71
    Height = 31
    Hint = 'Save NPC changes'
    Caption = 'Save(&S)'
    TabOrder = 3
    OnClick = ButtonSaveClick
  end
  object CheckBoxDenyRefStatus: TCheckBox
    Left = 378
    Top = 430
    Width = 119
    Height = 21
    Hint = 'THIS IS AN UNKNOWN COMMAND(SO FAR)'
    Caption = 'DenyRefStatus'
    TabOrder = 4
    OnClick = CheckBoxDenyRefStatusClick
  end
  object ButtonClearTempData: TButton
    Left = 210
    Top = 430
    Width = 111
    Height = 31
    Hint = 'Clear any changes made'
    Caption = '&Clear Temp Data'
    TabOrder = 5
    OnClick = ButtonClearTempDataClick
  end
  object ButtonViewData: TButton
    Left = 90
    Top = 430
    Width = 111
    Height = 31
    Hint = 'View the NPC'#39's data'
    Caption = '&View Data'
    TabOrder = 6
    Visible = False
    OnClick = ButtonClearTempDataClick
  end
end