Igromania 1999 August/Igromania_1999-08.iso/DLH/dlh_8_99.exe/1098.DLM/wh2/Editor.exe/0/RCDATA/TDARK/TDARK.txt

Text File | 1998-05-22 | 21KB | 935 lines

object Dark: TDark
  Left = 197
  Top = 130
  BorderStyle = bsSingle
  Caption = 'Dark Omen Editor'
  ClientHeight = 278
  ClientWidth = 459
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 459
    Height = 177
    ActivePage = TabAbout
    Align = alTop
    HotTrack = True
    MultiLine = True
    TabOrder = 1
    object TabAbout: TTabSheet
      Caption = 'About'
      object About: TImage
        Left = 0
        Top = 0
        Width = 451
        Height = 149
        Align = alClient
        Picture.Data = {<image001.bmp>}
        Transparent = True
      end
      object Label13: TLabel
        Left = 112
        Top = 136
        Width = 63
        Height = 12
        Caption = 'V1.6 - Release 3'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -9
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
    end
    object TabBasics: TTabSheet
      Caption = 'Basics'
      object Label11: TLabel
        Left = 0
        Top = 88
        Width = 55
        Height = 13
        Caption = 'Shield Slots'
      end
      object Label34: TLabel
        Left = 0
        Top = 40
        Width = 55
        Height = 13
        Caption = 'Men In Unit'
      end
      object Label1: TLabel
        Left = 0
        Top = 64
        Width = 46
        Height = 13
        Caption = 'Men alive'
      end
      object Label9: TLabel
        Left = 160
        Top = 88
        Width = 59
        Height = 13
        Caption = 'Gold Shields'
      end
      object Label33: TLabel
        Left = 160
        Top = 64
        Width = 31
        Height = 13
        Caption = 'Ranks'
      end
      object Label12: TLabel
        Left = 0
        Top = 112
        Width = 53
        Height = 13
        Caption = 'Experience'
      end
      object Label35: TLabel
        Left = 160
        Top = 40
        Width = 51
        Height = 13
        Caption = 'Gold Coins'
      end
      object Banner: TImage
        Left = 384
        Top = 40
        Width = 58
        Height = 83
        Hint = 'Click banner to change...'
        AutoSize = True
        IncrementalDisplay = True
        ParentShowHint = False
        Picture.Data = {<image002.bmp>}
        ShowHint = True
        Visible = False
      end
      object Label37: TLabel
        Left = 0
        Top = 16
        Width = 28
        Height = 13
        Caption = 'Name'
      end
      object Label36: TLabel
        Left = 320
        Top = 40
        Width = 34
        Height = 13
        Hint = 'Click banner to change...'
        Caption = 'Banner'
        ParentShowHint = False
        ShowHint = True
        Visible = False
      end
      object MenUnit: TEdit
        Left = 64
        Top = 32
        Width = 57
        Height = 21
        TabOrder = 0
        OnChange = MenUnitChange
      end
      object Armourslots: TEdit
        Left = 64
        Top = 80
        Width = 57
        Height = 21
        TabOrder = 1
        OnChange = ArmourslotsChange
      end
      object Gold: TEdit
        Left = 232
        Top = 80
        Width = 57
        Height = 21
        TabOrder = 2
        OnChange = GoldChange
      end
      object Experience: TEdit
        Left = 64
        Top = 104
        Width = 57
        Height = 21
        TabOrder = 3
        OnChange = ExperienceChange
      end
      object Ranks: TEdit
        Left = 232
        Top = 56
        Width = 57
        Height = 21
        TabOrder = 4
        OnChange = RanksChange
      end
      object MenAlive: TEdit
        Left = 64
        Top = 56
        Width = 57
        Height = 21
        TabOrder = 5
        OnChange = MenAliveChange
      end
      object GoldCoin: TEdit
        Left = 232
        Top = 32
        Width = 57
        Height = 21
        TabOrder = 6
        OnChange = GoldCoinChange
      end
      object GameName: TEdit
        Left = 64
        Top = 8
        Width = 225
        Height = 21
        Hint = 'Name of savegame...'
        MaxLength = 49
        TabOrder = 7
        OnChange = GameNameChange
      end
    end
    object TabHero: TTabSheet
      Caption = 'Hero'
      object Label14: TLabel
        Left = 0
        Top = 40
        Width = 50
        Height = 13
        Caption = 'Movement'
      end
      object Label42: TLabel
        Left = 0
        Top = 136
        Width = 41
        Height = 13
        Caption = 'Weapon'
      end
      object Label41: TLabel
        Left = 0
        Top = 112
        Width = 36
        Height = 13
        Caption = 'Armour '
      end
      object Label21: TLabel
        Left = 0
        Top = 88
        Width = 36
        Height = 13
        Caption = 'Attacks'
      end
      object Label17: TLabel
        Left = 0
        Top = 64
        Width = 40
        Height = 13
        Caption = 'Strength'
      end
      object Label20: TLabel
        Left = 160
        Top = 88
        Width = 39
        Height = 13
        Caption = 'Initiative'
      end
      object Label18: TLabel
        Left = 160
        Top = 64
        Width = 53
        Height = 13
        Caption = 'Toughness'
      end
      object Label15: TLabel
        Left = 160
        Top = 40
        Width = 61
        Height = 13
        Caption = 'Weapon skill'
      end
      object Label43: TLabel
        Left = 240
        Top = 112
        Width = 31
        Height = 13
        Caption = 'Missile'
      end
      object Label22: TLabel
        Left = 328
        Top = 88
        Width = 52
        Height = 13
        Caption = 'Leadership'
      end
      object Label16: TLabel
        Left = 328
        Top = 40
        Width = 55
        Height = 13
        Caption = 'Ballistic skill'
      end
      object Label19: TLabel
        Left = 328
        Top = 64
        Width = 40
        Height = 13
        Caption = 'Wounds'
      end
      object Label10: TLabel
        Left = 0
        Top = 16
        Width = 28
        Height = 13
        Caption = 'Name'
      end
      object LblMace: TLabel
        Left = 240
        Top = 16
        Width = 27
        Height = 13
        Caption = 'Mage'
      end
      object Lmovement: TEdit
        Left = 64
        Top = 32
        Width = 57
        Height = 21
        TabOrder = 0
        OnChange = LmovementChange
      end
      object LStrength: TEdit
        Left = 64
        Top = 56
        Width = 57
        Height = 21
        TabOrder = 1
        OnChange = LStrengthChange
      end
      object Lattacks: TEdit
        Left = 64
        Top = 80
        Width = 57
        Height = 21
        TabOrder = 2
        OnChange = LattacksChange
      end
      object Larmour: TComboBox
        Left = 64
        Top = 104
        Width = 161
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          'No Shields'
          '1 Shield'
          '2 Shields'
          '3 Shields'
          '4 Shields'
          '5 Shields'
          '3 Shields and regenerate'
          'Treeman'#39's Armour'
          'Wrath'#39's Armour')
        TabOrder = 3
        OnChange = LarmourChange
      end
      object Lweapon: TComboBox
        Left = 64
        Top = 128
        Width = 161
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          'Hands/Claws'
          'Sword'
          'Two handed sword'
          'Halberd or Spear'
          'Flail'
          'Wight blade')
        TabOrder = 4
        OnChange = LweaponChange
      end
      object LWeaponskill: TEdit
        Left = 232
        Top = 32
        Width = 57
        Height = 21
        TabOrder = 5
        OnChange = LWeaponskillChange
      end
      object Ltoughnes: TEdit
        Left = 232
        Top = 56
        Width = 57
        Height = 21
        TabOrder = 6
        OnChange = LtoughnesChange
      end
      object Liniative: TEdit
        Left = 232
        Top = 80
        Width = 57
        Height = 21
        TabOrder = 7
        OnChange = LiniativeChange
      end
      object lmissile: TComboBox
        Left = 288
        Top = 104
        Width = 161
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          '(None)'
          'Ballista'
          'Cannon'
          'Crossbow'
          'Elven bow'
          'Mortar'
          'Normal Bow'
          'Pistol'
          'Rock lobber'
          'Screaming skulls '
          'Short Bow'
          'Steam tank cannon')
        TabOrder = 8
        OnChange = lmissileChange
      end
      object Lleadership: TEdit
        Left = 392
        Top = 80
        Width = 57
        Height = 21
        TabOrder = 9
        OnChange = LleadershipChange
      end
      object Lwounds: TEdit
        Left = 392
        Top = 56
        Width = 57
        Height = 21
        TabOrder = 10
        OnChange = LwoundsChange
      end
      object Lballistic: TEdit
        Left = 392
        Top = 32
        Width = 57
        Height = 21
        TabOrder = 11
        OnChange = LWeaponskillChange
      end
      object HeroName: TEdit
        Left = 64
        Top = 8
        Width = 153
        Height = 21
        MaxLength = 21
        TabOrder = 12
        OnChange = HeroNameChange
      end
      object mace: TComboBox
        Left = 288
        Top = 8
        Width = 161
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          '(None)'
          'Dread King'
          'Hands of Nagash'
          'Mannfred von Carstein'
          'Master Necromancer'
          'Necromancer'
          'Necromancer Lord'
          'Night Goblin Shaman (multi)'
          'Orc Shaman (multi)'
          'Shaman Lord'
          'Vamp Lord')
        TabOrder = 13
        OnChange = maceChange
      end
      object Enable: TCheckBox
        Left = 288
        Top = 128
        Width = 97
        Height = 13
        Caption = 'Enable'
        TabOrder = 14
        OnClick = EnableClick
      end
      object Multiplayer: TCheckBox
        Left = 352
        Top = 128
        Width = 97
        Height = 17
        Caption = 'Multiplayer'
        TabOrder = 15
        OnClick = MultiplayerClick
      end
    end
    object TabUnit: TTabSheet
      Caption = 'Unit'
      object Label23: TLabel
        Left = 0
        Top = 64
        Width = 50
        Height = 13
        Caption = 'Movement'
      end
      object Label26: TLabel
        Left = 0
        Top = 88
        Width = 40
        Height = 13
        Caption = 'Strength'
      end
      object Label30: TLabel
        Left = 176
        Top = 88
        Width = 36
        Height = 13
        Caption = 'Attacks'
      end
      object Label4: TLabel
        Left = 240
        Top = 136
        Width = 41
        Height = 13
        Caption = 'Weapon'
      end
      object Label3: TLabel
        Left = 0
        Top = 136
        Width = 36
        Height = 13
        Caption = 'Armour '
      end
      object Label6: TLabel
        Left = 240
        Top = 112
        Width = 31
        Height = 13
        Caption = 'Missile'
      end
      object Label31: TLabel
        Left = 328
        Top = 16
        Width = 52
        Height = 13
        Caption = 'Leadership'
      end
      object Label25: TLabel
        Left = 328
        Top = 40
        Width = 55
        Height = 13
        Caption = 'Ballistic skill'
      end
      object Label28: TLabel
        Left = 328
        Top = 64
        Width = 40
        Height = 13
        Caption = 'Wounds'
      end
      object Label29: TLabel
        Left = 312
        Top = 88
        Width = 39
        Height = 13
        Caption = 'Initiative'
      end
      object Label27: TLabel
        Left = 160
        Top = 64
        Width = 53
        Height = 13
        Caption = 'Toughness'
      end
      object Label24: TLabel
        Left = 160
        Top = 40
        Width = 61
        Height = 13
        Caption = 'Weapon skill'
      end
      object Label8: TLabel
        Left = 0
        Top = 16
        Width = 28
        Height = 13
        Caption = 'Name'
      end
      object Label32: TLabel
        Left = 0
        Top = 112
        Width = 24
        Height = 13
        Caption = 'Type'
      end
      object Label5: TLabel
        Left = 0
        Top = 40
        Width = 31
        Height = 13
        Caption = 'Speed'
      end
      object Umovement: TEdit
        Left = 64
        Top = 56
        Width = 57
        Height = 21
        TabOrder = 0
        OnChange = UmovementChange
      end
      object UStrength: TEdit
        Left = 64
        Top = 80
        Width = 57
        Height = 21
        TabOrder = 1
        OnChange = UStrengthChange
      end
      object UAttacks: TEdit
        Left = 240
        Top = 80
        Width = 57
        Height = 21
        TabOrder = 2
        OnChange = UAttacksChange
      end
      object Armour: TComboBox
        Left = 64
        Top = 128
        Width = 161
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          'No Shields'
          '1 Shield'
          '2 Shields'
          '3 Shields'
          '4 Shields'
          '5 Shields'
          '3 Shields and regenerate'
          'Treeman'#39's Armour'
          'Wrath'#39's Armour')
        TabOrder = 3
        OnChange = ArmourChange
      end
      object Weapons: TComboBox
        Left = 288
        Top = 128
        Width = 161
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          'Hands/Claws'
          'Sword'
          'Two handed sword'
          'Halberd or Spear'
          'Flail'
          'Wight blade')
        TabOrder = 4
        OnChange = WeaponsChange
      end
      object Misile: TComboBox
        Left = 288
        Top = 104
        Width = 161
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          '(None)'
          'Ballista'
          'Cannon'
          'Crossbow'
          'Elven bow'
          'Mortar'
          'Normal Bow'
          'Pistol'
          'Rock lobber'
          'Screaming skulls '
          'Short Bow'
          'Steam tank cannon')
        TabOrder = 5
        OnChange = MisileChange
      end
      object Uleadership: TEdit
        Left = 392
        Top = 8
        Width = 57
        Height = 21
        TabOrder = 6
        OnChange = UleadershipChange
      end
      object Uwounds: TEdit
        Left = 392
        Top = 56
        Width = 57
        Height = 21
        TabOrder = 7
        OnChange = UwoundsChange
      end
      object Uballistic: TEdit
        Left = 392
        Top = 32
        Width = 57
        Height = 21
        TabOrder = 8
        OnChange = UballisticChange
      end
      object Uweaponskill: TEdit
        Left = 240
        Top = 32
        Width = 57
        Height = 21
        TabOrder = 9
        OnChange = UweaponskillChange
      end
      object Utoughness: TEdit
        Left = 240
        Top = 56
        Width = 57
        Height = 21
        TabOrder = 10
        OnChange = UtoughnessChange
      end
      object Uiniative: TEdit
        Left = 392
        Top = 80
        Width = 57
        Height = 21
        TabOrder = 11
        OnChange = UiniativeChange
      end
      object UnitName: TEdit
        Left = 64
        Top = 8
        Width = 153
        Height = 21
        MaxLength = 29
        TabOrder = 12
        OnChange = UnitNameChange
      end
      object UnitType: TComboBox
        Left = 64
        Top = 104
        Width = 161
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          '(None)'
          'Dread King'
          'Dwarf Infantry'
          'Human Artillery'
          'Human Cavalry'
          'Human Infantry'
          'Human Wizards'
          'Mercenary Crossbowmen'
          'Monsters'
          'Night Goblin Archers'
          'Night Goblins'
          'Ogres'
          'Skeleton Archers'
          'Skeleton Horsemen/Black Grail'
          'Skull Catapult'
          'Undead Chariot (unpredicatable)'
          'Undead on foot'
          'Undead wizards'
          'Wood Elf Archers'
          'Wood Elf infantry')
        TabOrder = 13
        OnChange = UnitTypeChange
      end
      object Uspeed: TComboBox
        Left = 64
        Top = 32
        Width = 57
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          'Fast'
          'Normal'
          'Low')
        TabOrder = 14
        OnChange = UspeedChange
      end
    end
    object TabMagic: TTabSheet
      Caption = 'Unit Magic'
      object Label7: TLabel
        Left = 0
        Top = 136
        Width = 57
        Height = 13
        Caption = 'Magic Book'
      end
      object Book: TComboBox
        Left = 64
        Top = 128
        Width = 161
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          '(None)'
          'Bright book'
          'Dark Book'
          'Ice Book'
          'Waaagh Book')
        TabOrder = 0
      end
      object Spell: TCheckListBox
        Left = 0
        Top = 8
        Width = 464
        Height = 117
        Hint = 'Max 9 spells per unit.'
        BorderStyle = bsNone
        Color = clBtnFace
        Columns = 3
        ItemHeight = 13
        Items.Strings = (
          'Banner of Arcane Warding'
          'Banner of Defiance'
          'Banner of Wraith'
          'Book of Ashur'
          'Dragon Helm'
          'Enchanted Shield'
          'Grudgebringer'
          'Heart of Woe'
          'Hellfire'
          'Horn of Urgok'
          'Mork'#39's War Banner'
          'Potion of Strength'
          'Ring of Volans'
          'Runefang'
          'Shield of Ptolos'
          'Skabskrath'
          'Spelleater Shield'
          'Staff of Osiris'
          'Storm Sword '
          'Wand of Jet')
        TabOrder = 1
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'Extra Magic'
      Enabled = False
      object Spell1: TCheckListBox
        Left = 0
        Top = 8
        Width = 464
        Height = 129
        Hint = 'Max 9 spells per unit.'
        BorderStyle = bsNone
        Color = clBtnFace
        Columns = 3
        ItemHeight = 13
        Items.Strings = (
          'Banner of Arcane Warding'
          'Banner of Defiance'
          'Banner of Wraith'
          'Book of Ashur'
          'Dragon Helm'
          'Enchanted Shield'
          'Grudgebringer'
          'Heart of Woe'
          'Hellfire'
          'Horn of Urgok'
          'Mork'#39's War Banner'
          'Potion of Strength'
          'Ring of Volans'
          'Runefang'
          'Shield of Ptolos'
          'Skabskrath'
          'Spelleater Shield'
          'Staff of Osiris'
          'Storm Sword '
          'Wand of Jet')
        TabOrder = 0
      end
    end
  end
  object ListBox1: TListBox
    Left = 0
    Top = 179
    Width = 459
    Height = 99
    Align = alBottom
    ItemHeight = 13
    TabOrder = 0
    OnClick = ListBox1Click
  end
  object SaveDlg: TSaveDialog
    Filter = 'Dark Omen SaveGame|darkomen.*'
    InitialDir = 'C:\games\wh_do\savegame'
    Left = 384
    Top = 240
  end
  object OpenDlg: TOpenDialog
    Filter = 'Dark Omen SaveGame|darkomen.*'
    InitialDir = 'C:\games\wh_do\savegame'
    Title = 'Load Savegame'
    Left = 416
    Top = 240
  end
  object MainMenu1: TMainMenu
    Left = 384
    Top = 192
    object Files: TMenuItem
      Caption = '&Files'
      object Open: TMenuItem
        Caption = '&Open...'
        OnClick = OpenClick
      end
      object Save: TMenuItem
        Caption = '&Save'
        Enabled = False
        OnClick = SaveClick
      end
      object SaveAs: TMenuItem
        Caption = 'Save &As...'
        Enabled = False
        OnClick = SaveAsClick
      end
      object Close: TMenuItem
        Caption = '&Close'
        Enabled = False
        OnClick = CloseClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Help: TMenuItem
      Caption = '&Help'
      Visible = False
      object Contents: TMenuItem
        Caption = '&Contents'
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = '&About'
      end
    end
  end
end