home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gambler 34 A
/
GAMBLERCD34A.BIN
/
Utils
/
GP
/
Progs
/
GHP
/
FGHACK.DLL
/
0
/
RCDATA
/
TFGFORM
/
TFGFORM.txt
Wrap
Text File
|
1997-11-09
|
16KB
|
721 lines
object FGForm: TFGForm
Left = 454
Top = 354
BorderIcons = []
BorderStyle = bsNone
ClientHeight = 304
ClientWidth = 540
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object AppSpace: TPanel
Left = 0
Top = 0
Width = 540
Height = 304
Align = alClient
TabOrder = 0
object Panel1: TPanel
Left = 1
Top = 1
Width = 538
Height = 66
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 18
Top = 10
Width = 59
Height = 13
Caption = 'Game Name'
end
object Label2: TLabel
Left = 18
Top = 34
Width = 26
Height = 13
Caption = 'Sides'
end
object GameName: TPanel
Left = 114
Top = 5
Width = 180
Height = 22
Alignment = taLeftJustify
BevelOuter = bvLowered
TabOrder = 0
end
object EnemyName: TPanel
Left = 298
Top = 29
Width = 180
Height = 22
Alignment = taLeftJustify
BevelOuter = bvLowered
TabOrder = 1
end
object HeroName: TPanel
Left = 114
Top = 29
Width = 180
Height = 22
Alignment = taLeftJustify
BevelOuter = bvLowered
TabOrder = 2
end
end
object UnitPages: TPageControl
Left = 1
Top = 67
Width = 174
Height = 236
ActivePage = HeroPage
Align = alLeft
TabOrder = 1
OnChanging = UnitPagesChanging
object HeroPage: TTabSheet
Caption = 'Hero'
object Label14: TLabel
Left = 2
Top = 8
Width = 22
Height = 13
Caption = 'Gold'
end
object HeroList: TListBox
Left = 2
Top = 32
Width = 160
Height = 165
ItemHeight = 13
TabOrder = 0
OnClick = ListClick
end
object EdHeGold: TEdit
Left = 46
Top = 4
Width = 60
Height = 21
TabOrder = 1
Text = '0'
end
object UDGoldHe: TUpDown
Left = 106
Top = 4
Width = 12
Height = 21
Associate = EdHeGold
Min = 0
Max = 32767
Position = 0
TabOrder = 2
Wrap = False
end
end
object EnemyPage: TTabSheet
Caption = 'Enemy'
object Label15: TLabel
Left = 4
Top = 8
Width = 22
Height = 13
Caption = 'Gold'
end
object EnemyList: TListBox
Left = 2
Top = 32
Width = 160
Height = 165
ItemHeight = 13
TabOrder = 0
OnClick = ListClick
end
object EdEnGold: TEdit
Left = 46
Top = 4
Width = 60
Height = 21
TabOrder = 1
Text = '0'
end
object UDGoldEn: TUpDown
Left = 106
Top = 4
Width = 15
Height = 21
Associate = EdEnGold
Min = 0
Max = 32767
Position = 0
TabOrder = 2
Wrap = False
end
end
end
object Panel2: TPanel
Left = 175
Top = 67
Width = 364
Height = 236
Align = alClient
TabOrder = 2
object Label7: TLabel
Left = 182
Top = 6
Width = 24
Height = 13
Caption = 'Type'
end
object Label3: TLabel
Left = 8
Top = 6
Width = 28
Height = 13
Caption = 'Name'
end
object Label5: TLabel
Left = 8
Top = 34
Width = 37
Height = 13
Caption = 'Position'
end
object Label12: TLabel
Left = 8
Top = 58
Width = 53
Height = 13
Caption = 'Experience'
end
object Label13: TLabel
Left = 8
Top = 82
Width = 18
Height = 13
Caption = 'Kills'
end
object Label4: TLabel
Left = 8
Top = 106
Width = 57
Height = 13
Caption = 'Magic Items'
end
object Label6: TLabel
Left = 8
Top = 128
Width = 20
Height = 13
Caption = 'Mult'
end
object Label8: TLabel
Left = 8
Top = 154
Width = 32
Height = 13
Caption = 'Morale'
end
object Label9: TLabel
Left = 8
Top = 178
Width = 30
Height = 13
Caption = 'Status'
end
object Label10: TLabel
Left = 216
Top = 130
Width = 26
Height = 13
Caption = 'Dead'
end
object Label16: TLabel
Left = 216
Top = 154
Width = 47
Height = 13
Caption = 'Wounded'
end
object Test1: TLabel
Left = 346
Top = 8
Width = 12
Height = 13
Caption = '00'
end
object Test2: TLabel
Left = 190
Top = 106
Width = 12
Height = 13
Caption = '00'
end
object EdExp: TEdit
Left = 68
Top = 56
Width = 45
Height = 21
TabOrder = 0
Text = '0'
end
object UDExp: TUpDown
Left = 113
Top = 56
Width = 12
Height = 21
Associate = EdExp
Min = 0
Max = 255
Position = 0
TabOrder = 1
Wrap = False
end
object EdKills: TEdit
Left = 68
Top = 78
Width = 45
Height = 21
TabOrder = 2
Text = '0'
end
object UDKill: TUpDown
Left = 113
Top = 78
Width = 12
Height = 21
Associate = EdKills
Min = 0
Max = 32767
Position = 0
TabOrder = 3
Wrap = False
end
object CBType: TComboBox
Left = 232
Top = 4
Width = 110
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Peasants'
'Militia'
'Auxilia'
'Javelinmen'
'Ashiguers'
'Berserkers'
'Apprentices'
'Conjurers'
'Healers'
'Fire Wizards'
'Druids'
'Earthmasters'
'Warbands'
'Swordsmen'
'Pikemen'
'Legionarii'
'Samurai'
'Heavy Spearmen'
'Lizardmen'
'Werebears'
'Lionmen'
'Elephantmen'
'Air Warriors'
'Treemen'
'Giant'
'Earth Elemental'
'Sandmen'
'Monks of Meo'
'Bronzeman'
'Iron Giant'
'Warlord Mechanus'
'Elf Bowmen'
'Longbowmen'
'Pistoliers'
'Gunners'
'Fire Archers'
'Royal Archers'
'Slingers'
'Staff Slingers'
'Scouts'
'Foresters'
'Huntsmen'
'Trail Runners'
'Squires'
'Heavy Cavalry'
'Chariots'
'Cataphractoi'
'Power Lancers'
'Phoenix Knights'
'Fire Beetles'
'Centaurs'
'Ogre Centaurs'
'Centaur Knights'
'Unicorns'
'Elf Chariots'
'Hydra'
'Turtle Dragon'
'Ghost Riders'
'Nightmare'
'Rolling Man'
'Steamphont'
'Rolling Fort'
'Thunder Tread'
'Light Cavalry'
'Elf Knights'
'Juns'
'Riders of the Bow'
'Spirit Riders'
'Knight Gunners'
'Catapults'
'Ballistae'
'Chain Guns'
'Cannons'
'Mortars'
'Pit Cannons'
'Spatter Guns'
'Mercury Guns'
'Steam Belchers'
'Wall Blasters'
'Eagle Riders'
'Griffon Riders'
'Ogre Griffons'
'Wing Riders'
'Pegasi'
'Dragon Knights'
'Flying Snakes'
'Wyverns'
'Green Dragons'
'Lion Dragons'
'Silver Hawks'
'Phoenix Hawks'
'Silver Dragons'
'Black Dragons'
'Screamer'
'Bronze Dragon'
'Steam Hawks'
'Seekers'
'Hawk Riders'
'Roc Knights'
'Dragon Riders'
'Pegasus Riders'
'Balloon Hangers'
'Balloon Riders'
'Bicycle Riders'
'Cloud Ship'
'Bronze Gliders'
'Naphtha Droppers'
'Sky Splitter'
'Steam Castle'
'Corporal'
'Sergeant'
'Lieutenant'
'Captain'
'General'
'Borric'
'Sir Kalador'
'Loric'
'Shandel'
'Valira'
'Krindel'
'Dreggo'
'Malric'
'Xyphon'
'Priest of Handola'
'Goblins'
'Skeletons'
'Ratmen'
'Gripper'
'Lava Warriors'
'Mummy'
'Orcs'
'Ogres'
'Cobramen'
'Trolls'
'Ogre Knights'
'Shadow Warriors'
'Slave Archers'
'Goblin Archers'
'Orc Archers'
'Orc Longbowmen'
'Skeleton Archers'
'Steam Gunners'
'Skeleton Slingers'
'Goblin Scouts'
'Orc Scouts'
'Shadows'
'Ogre Hunters'
'Serpent Riders'
'Undead Cavalry'
'Mastodon'
'Rhino Knights'
'Knights of Fire'
'Shadow Knights'
'Wolf Riders'
'Barbarian Riders'
'Boar Riders'
'Bear Riders'
'Flamer'
'Disease Throwers'
'Black Ice Throwers'
'Flying Monkeys'
'Gargoyles'
'Shadow Wings'
'Lava Dragons'
'Shadow Dragons'
'Serpent Griffons'
'Lightning Throwers'
'Fire Barge'
'Zeppelin'
'Barbarians'
'Air Slammer'
'Witch of Icethorn'
'Pale Marshal'
'Kraekvar'
'Claw the Assassin'
'Grimal the Rat Lord'
'Malkin Nightwing'
'Morg the Lasher'
'Deathlord Rapax'
'Leech King'
'Goat King'
'Eagles'
'Harpies')
TabOrder = 4
end
object EdXPos: TEdit
Left = 68
Top = 30
Width = 59
Height = 21
TabOrder = 5
Text = '0'
end
object UDXPos: TUpDown
Left = 127
Top = 30
Width = 12
Height = 21
Associate = EdXPos
Min = 0
Max = 32767
Position = 0
TabOrder = 6
Wrap = False
end
object EdYPos: TEdit
Left = 144
Top = 30
Width = 60
Height = 21
TabOrder = 7
Text = '0'
end
object UDYPos: TUpDown
Left = 204
Top = 30
Width = 12
Height = 21
Associate = EdYPos
Min = 0
Max = 32767
Position = 0
TabOrder = 8
Wrap = False
end
object CKMove: TCheckBox
Left = 296
Top = 54
Width = 55
Height = 17
Caption = 'Moved'
TabOrder = 9
end
object EdName: TEdit
Left = 68
Top = 4
Width = 110
Height = 21
TabOrder = 10
end
object CBMagicItems: TComboBox
Left = 68
Top = 102
Width = 110
Height = 21
ItemHeight = 13
Items.Strings = (
''
'Magical Sword'
'Magical Axe'
'Magical Shield'
'Magical Armor'
'Magical Bow'
'Magical Crossbow'
'Magical Sling'
'Magical Staff '
'Sling'
'Magical Javelin'
'Amulet of Resistance'
'Cloak of Hiding'
'Staff of Fireballs'
'Wand of Fireballs'
'Amulet of Protection'
'Ring of Regeneration'
'Sword of Death Wounds'
'Stone of Eagle Eye'
'Boots of Rapid Movement'
'Storm Staff'
'Amulet of Blessings'
'Ring of Free Movement'
'Staff of Winds'
'Wand of Sickness'
'Skull of Crang'
'Staff of Confusion'
'Staff of Fatigue'
'Staff of Healing')
TabOrder = 11
end
object EdMult: TEdit
Left = 68
Top = 126
Width = 45
Height = 21
TabOrder = 12
Text = '0'
end
object UDMult: TUpDown
Left = 113
Top = 126
Width = 12
Height = 21
Associate = EdMult
Min = 0
Position = 0
TabOrder = 13
Wrap = False
end
object EdMorale: TEdit
Left = 68
Top = 150
Width = 45
Height = 21
TabOrder = 14
Text = '0'
end
object EdStatus: TEdit
Left = 68
Top = 174
Width = 45
Height = 21
TabOrder = 15
Text = '0'
end
object EdDead: TEdit
Left = 268
Top = 126
Width = 45
Height = 21
TabOrder = 16
Text = '0'
end
object EdWounded: TEdit
Left = 268
Top = 150
Width = 45
Height = 21
TabOrder = 17
Text = '0'
end
object UDStat: TUpDown
Left = 113
Top = 174
Width = 12
Height = 21
Associate = EdStatus
Min = 0
Position = 0
TabOrder = 18
Wrap = False
end
object UDMorale: TUpDown
Left = 113
Top = 150
Width = 12
Height = 21
Associate = EdMorale
Min = 0
Position = 0
TabOrder = 19
Wrap = False
end
object UDDead: TUpDown
Left = 313
Top = 126
Width = 12
Height = 21
Associate = EdDead
Min = 0
Position = 0
TabOrder = 20
Wrap = False
end
object UDWound: TUpDown
Left = 313
Top = 150
Width = 12
Height = 21
Associate = EdWounded
Min = 0
Position = 0
TabOrder = 21
Wrap = False
end
end
end
object MainMenu: TMainMenu
Left = 438
Top = 65532
object mFile: TMenuItem
Caption = '&File'
object mOpen: TMenuItem
Caption = '&Open'
OnClick = mOpenClick
end
object mSave: TMenuItem
Caption = '&Save'
OnClick = mSaveClick
end
object N1: TMenuItem
Caption = '-'
end
object mExit: TMenuItem
Caption = 'E&xit'
OnClick = mExitClick
end
end
object mHelp: TMenuItem
Caption = '&Help'
object mAbout: TMenuItem
Caption = '&About'
end
end
end
object OpenDlg: TOpenDialog
DefaultExt = 'SAV'
Filter = 'Fantasy General Save File|game*.sav'
InitialDir = '.'
Options = [ofPathMustExist, ofFileMustExist]
Left = 408
Top = 65532
end
end