Files
ProgressQuest/Main.dfm
T
Eric Fredricksen 17f4c78a74 v6.4.1: Fix errors attempted v6.4 launch, interplot cinematics in particular.
Also fixed the ImpressiveGuy stuff and how the plot progress bar worked for the prologue
2022-01-07 22:50:55 -08:00

693 lines
23 KiB
ObjectPascal

object MainForm: TMainForm
Left = 238
Top = 148
Width = 682
Height = 513
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
Caption = 'Progress Quest'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020000000000000A80800001600000028000000200000004000
0000010008000000000080040000000000000000000000000000000000000000
0000000080000080000000808000800000008000800080800000C0C0C000C0DC
C000F0CAA60004040400080808000C0C0C0011111100161616001C1C1C002222
220029292900555555004D4D4D004242420039393900807CFF005050FF009300
D600FFECCC00C6D6EF00D6E7E70090A9AD000000330000006600000099000000
CC00003300000033330000336600003399000033CC000033FF00006600000066
330000666600006699000066CC000066FF000099000000993300009966000099
99000099CC000099FF0000CC000000CC330000CC660000CC990000CCCC0000CC
FF0000FF660000FF990000FFCC00330000003300330033006600330099003300
CC003300FF00333300003333330033336600333399003333CC003333FF003366
00003366330033666600336699003366CC003366FF0033990000339933003399
6600339999003399CC003399FF0033CC000033CC330033CC660033CC990033CC
CC0033CCFF0033FF330033FF660033FF990033FFCC0033FFFF00660000006600
330066006600660099006600CC006600FF006633000066333300663366006633
99006633CC006633FF00666600006666330066666600666699006666CC006699
00006699330066996600669999006699CC006699FF0066CC000066CC330066CC
990066CCCC0066CCFF0066FF000066FF330066FF990066FFCC00CC00FF00FF00
CC009999000099339900990099009900CC009900000099333300990066009933
CC009900FF00996600009966330099336600996699009966CC009933FF009999
330099996600999999009999CC009999FF0099CC000099CC330066CC660099CC
990099CCCC0099CCFF0099FF000099FF330099CC660099FF990099FFCC0099FF
FF00CC00000099003300CC006600CC009900CC00CC0099330000CC333300CC33
6600CC339900CC33CC00CC33FF00CC660000CC66330099666600CC669900CC66
CC009966FF00CC990000CC993300CC996600CC999900CC99CC00CC99FF00CCCC
0000CCCC3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF330099FF
6600CCFF9900CCFFCC00CCFFFF00CC003300FF006600FF009900CC330000FF33
3300FF336600FF339900FF33CC00FF33FF00FF660000FF663300CC666600FF66
9900FF66CC00CC66FF00FF990000FF993300FF996600FF999900FF99CC00FF99
FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCCFF00FFFF3300CCFF
6600FFFF9900FFFFCC006666FF0066FF660066FFFF00FF666600FF66FF00FFFF
66002100A5005F5F5F00777777008686860096969600CBCBCB00B2B2B200D7D7
D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F800F0FBFF00A4A0A0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000A0A
0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
0A4B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
150F0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0F150A0A0A0C
0E0E0C0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0C0E0E0C0A2311
15220E0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0F22143D234313
2243110A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A11432213430A22
23296710290A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A2210122923220A0A0A
0A514443151D0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A4B0E151544510A0A0A0A0A
0A0A294A43140E0A0A150E0E220A0A0E1D0E220A0A0E14434A030A0A0A0A0A0A
0A0A0A514A224A430E0E1443220E111543140E0E4344224A4A0A0A0A0A0A0A0A
0A0A0A514B1514220E2243150E444444444322222214150A0A0A0A0A0A0A0A0A
0A0A0A0A5174151D4A434A4A15104422234A434A1D15740A0A0A0A0A0A0A0A0A
0A0A0A0A5222444B457422224B0A0A4B222274454B44220A0A0A0A0A0A0A0A0A
0A0A0A0A510A4B4C3F4C44EA4A0A0A4A6D444C3F4C4B0A0A0A0A0A0A0A0A0A0A
0A0A0A0A0E15294B4523ECC8C44A4AE946EC23454B29150E0A0A0A0A0A0A0A0A
0A0A0A0A444A4A234AAEC8FCFCA7E9F9F946AE44234A4A430A0A0A0A0A0A0A0A
0A0A0A0A232244224AEFA7FCFC62F9F9F946EF4A224422230A0A0A0A0A0A0A0A
0A0A0A0A4B434A110A4A8DA862F9F9F969EC0A0A114A43290A0A0A0A0A0A0A0A
0A0A0A0A0A2222100A0AED46F9F9F962A7ED0A0A104322520A0A0A0A0A0A0A0A
0A0A0A0A0A4B0C030AEB46F9F9F962FCFCA7EC0A030C0A0A0A0A0A0A0A0A0A0A
0A0A0A0A0A0A0A0AED46F9F9F9E3A8FCFCFCA7ED0A0A0A0A0A0A0A0A0A0A0A0A
0A0A0A0A0A0A0AED46F9F9F9E3F7F7E6FCFCFCA7ED0A0A0A0A0A0A0A0A0A0A0A
0A0A0A0A0A0AEB46F9F9F9E3ED0A0A92E6FCFCFCA7EB0A0A0A0A0A0A0A0A0A0A
0A0A0A0A0A6D46F9F9F9E3ED0A0A0A0A92E6FCFCFCA76D0A0A0A0A0A0A0A0A0A
0A0A0A0A14B5F047F9E3F70A0A0A0A0A0AB5E6FCC8DDB5140A0A0A0A0A0A0A0A
0A0A0AAE09F3F3BCE3B50A0A0A0A0A0A0A0AB5D0DDF3F309AE0A0A0A0A0A0A0A
0A0ABCF4FFF4F4F4070A0A0A0A0A0A0A0A0A0A07F4F4F4FFDEBC0A0A0A0A0A0A
0A991BFFFFF2DDB60A0A0A0A0A0A0A0A0A0A0A0AB6DDF3FFFF1B990A0A0A0A0A
0A92B51909B5920A0A0A0A0A0A0A0A0A0A0A0A0A0A92B509DDB5920A0A0A0A0A
0A720909ECEB0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0AECEC0909720A0A0A0A0A
0AF78DAEED0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A1CAE8D920A0A0AFFFF
FFFFFFFFFFFFEFFFFFFFCFFFFFF387FFFFE107FFFFE007FFFFE081FFFF81E0FF
FE07F061860FF800001FF800007FFC00007FFC01807FFC01807FFC00003FFC00
003FFC00003FFC200C3FFE300C3FFE2004FFFFC003FFFF8001FFFF0180FFFE03
C07FFC07E03FF80FF01FF01FF80FE03FFC07E07FFE07E0FFFF07E1FFFF87}
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 200
Height = 444
Align = alLeft
TabOrder = 0
object Label1: TLabel
Left = 1
Top = 1
Width = 198
Height = 13
Align = alTop
Caption = 'Character Sheet'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 1
Top = 229
Width = 198
Height = 13
Align = alTop
Caption = 'Experience'
end
object Label4: TLabel
Left = 1
Top = 258
Width = 198
Height = 13
Align = alTop
Caption = 'Spell Book'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Traits: TListView
Left = 1
Top = 14
Width = 198
Height = 79
Align = alTop
Columns = <
item
Caption = 'Trait'
Width = 60
end
item
AutoSize = True
Caption = 'Value'
end>
ColumnClick = False
FlatScrollBars = True
HideSelection = False
Items.Data = {
6E0000000400000000000000FFFFFFFFFFFFFFFF0000000000000000044E616D
6500000000FFFFFFFFFFFFFFFF0000000000000000045261636500000000FFFF
FFFFFFFFFFFF000000000000000005436C61737300000000FFFFFFFFFFFFFFFF
0000000000000000054C6576656C}
MultiSelect = True
ReadOnly = True
RowSelect = True
TabOrder = 1
ViewStyle = vsReport
end
object Stats: TListView
Left = 1
Top = 93
Width = 198
Height = 136
Align = alTop
Columns = <
item
Caption = 'Stat'
Width = 60
end
item
AutoSize = True
Caption = 'Value'
end>
ColumnClick = False
FlatScrollBars = True
HideSelection = False
Items.Data = {
CE0000000800000000000000FFFFFFFFFFFFFFFF000000000000000003535452
00000000FFFFFFFFFFFFFFFF000000000000000003434F4E00000000FFFFFFFF
FFFFFFFF00000000000000000344455800000000FFFFFFFFFFFFFFFF00000000
0000000003494E5400000000FFFFFFFFFFFFFFFF000000000000000003574953
00000000FFFFFFFFFFFFFFFF00000000000000000343484100000000FFFFFFFF
FFFFFFFF0000000000000000064850204D617800000000FFFFFFFFFFFFFFFF00
00000000000000064D50204D6178}
MultiSelect = True
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end
object ExpBar: TProgressBar
Left = 1
Top = 242
Width = 198
Height = 16
Align = alTop
Min = 0
Max = 100
ParentShowHint = False
Position = 50
Smooth = True
ShowHint = True
TabOrder = 2
end
object Spells: TListView
Left = 1
Top = 271
Width = 198
Height = 140
Align = alClient
Columns = <
item
AutoSize = True
Caption = 'Spell'
end
item
Caption = 'Level'
Width = 60
end>
ColumnClick = False
FlatScrollBars = True
HideSelection = False
MultiSelect = True
ReadOnly = True
RowSelect = True
TabOrder = 3
ViewStyle = vsReport
end
object Cheats: TPanel
Left = 1
Top = 411
Width = 198
Height = 32
Align = alBottom
TabOrder = 4
Visible = False
object CashIn: TButton
Left = 32
Top = 4
Width = 25
Height = 25
Caption = '$'
TabOrder = 0
OnClick = CashInClick
end
object Button1: TButton
Left = 4
Top = 4
Width = 25
Height = 25
Caption = 'L+1'
TabOrder = 1
OnClick = Button1Click
end
object FinishQuest: TButton
Left = 92
Top = 4
Width = 27
Height = 25
Caption = 'Q!'
TabOrder = 2
OnClick = FinishQuestClick
end
object Button3: TButton
Left = 124
Top = 4
Width = 27
Height = 25
Caption = 'X!'
TabOrder = 3
OnClick = SpeedButton1Click
end
object CheatPlot: TButton
Left = 60
Top = 3
Width = 27
Height = 25
Caption = 'P!'
TabOrder = 4
OnClick = CheatPlotClick
end
end
end
object Panel3: TPanel
Left = 474
Top = 0
Width = 200
Height = 444
Align = alRight
TabOrder = 1
object Label3: TLabel
Left = 1
Top = 177
Width = 198
Height = 13
Align = alTop
Caption = 'Quests'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 1
Top = 1
Width = 198
Height = 13
Align = alTop
Caption = 'Plot Development'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object QuestBar: TProgressBar
Left = 1
Top = 427
Width = 198
Height = 16
Align = alBottom
Min = 0
Max = 0
ParentShowHint = False
Smooth = True
ShowHint = True
TabOrder = 0
end
object Plots: TListView
Left = 1
Top = 14
Width = 198
Height = 147
Align = alTop
Columns = <
item
AutoSize = True
Caption = 'Act'
end>
ColumnClick = False
FlatScrollBars = True
HideSelection = False
IconOptions.Arrangement = iaLeft
MultiSelect = True
ReadOnly = True
RowSelect = True
ShowColumnHeaders = False
StateImages = ImageList1
TabOrder = 1
ViewStyle = vsReport
end
object PlotBar: TProgressBar
Left = 1
Top = 161
Width = 198
Height = 16
Align = alTop
Min = 0
Max = 0
ParentShowHint = False
Smooth = True
ShowHint = True
TabOrder = 2
end
object Quests: TListView
Left = 1
Top = 190
Width = 198
Height = 237
Align = alClient
Columns = <
item
AutoSize = True
Caption = 'Quest'
end>
ColumnClick = False
FlatScrollBars = True
HideSelection = False
IconOptions.Arrangement = iaLeft
MultiSelect = True
ReadOnly = True
RowSelect = True
ShowColumnHeaders = False
StateImages = ImageList1
TabOrder = 3
ViewStyle = vsReport
end
end
object Panel2: TPanel
Left = 200
Top = 0
Width = 274
Height = 444
Align = alClient
TabOrder = 2
object InventoryLabelAlsoGameStyle: TLabel
Left = 1
Top = 176
Width = 272
Height = 13
Align = alTop
Caption = 'Inventory'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 1
Top = 414
Width = 272
Height = 13
Align = alBottom
Caption = 'Encumbrance'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 1
Top = 1
Width = 272
Height = 13
Align = alTop
Caption = 'Equipment'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Inventory: TListView
Left = 1
Top = 189
Width = 272
Height = 225
Align = alClient
Columns = <
item
AutoSize = True
Caption = 'Item'
end
item
Alignment = taRightJustify
Caption = 'Qty'
Width = 69
end>
ColumnClick = False
FlatScrollBars = True
HideSelection = False
MultiSelect = True
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end
object EncumBar: TProgressBar
Left = 1
Top = 427
Width = 272
Height = 16
Align = alBottom
Min = 0
Max = 100
ParentShowHint = False
Position = 50
Smooth = True
ShowHint = True
TabOrder = 1
end
object Equips: TListView
Left = 1
Top = 14
Width = 272
Height = 162
Align = alTop
Columns = <
item
Caption = 'Position'
Width = 60
end
item
AutoSize = True
Caption = 'Equipped'
end>
ColumnClick = False
FlatScrollBars = True
HideSelection = False
Items.Data = {
410100000B00000000000000FFFFFFFFFFFFFFFF000000000000000006576561
706F6E00000000FFFFFFFFFFFFFFFF000000000000000006536869656C640000
0000FFFFFFFFFFFFFFFF00000000000000000448656C6D00000000FFFFFFFFFF
FFFFFF0000000000000000074861756265726B00000000FFFFFFFFFFFFFFFF00
000000000000000A4272617373616972747300000000FFFFFFFFFFFFFFFF0000
0000000000000956616D62726163657300000000FFFFFFFFFFFFFFFF00000000
00000000094761756E746C65747300000000FFFFFFFFFFFFFFFF000000000000
00000847616D6265736F6E00000000FFFFFFFFFFFFFFFF000000000000000007
4375697373657300000000FFFFFFFFFFFFFFFF00000000000000000747726561
76657300000000FFFFFFFFFFFFFFFF000000000000000009536F6C6C65726574
73}
MultiSelect = True
ReadOnly = True
RowSelect = True
ShowColumnHeaders = False
TabOrder = 2
ViewStyle = vsReport
end
object vars: TPanel
Left = 188
Top = 24
Width = 77
Height = 129
Caption = 'vars'
TabOrder = 3
Visible = False
object fTask: TLabel
Left = 12
Top = 16
Width = 27
Height = 13
AutoSize = False
Caption = 'fTask'
Color = clMoneyGreen
ParentColor = False
end
object fQuest: TLabel
Left = 12
Top = 36
Width = 31
Height = 13
AutoSize = False
Caption = 'fQuest'
Color = clSkyBlue
ParentColor = False
end
object fQueue: TListBox
Left = 12
Top = 76
Width = 49
Height = 45
ItemHeight = 13
TabOrder = 0
end
end
end
object Panel4: TPanel
Left = 0
Top = 444
Width = 674
Height = 35
Align = alBottom
Caption = 'Panel4'
TabOrder = 3
object Kill: TStatusBar
Left = 1
Top = -1
Width = 672
Height = 19
Panels = <
item
Width = 50
end>
SimplePanel = True
SimpleText = 'Welcome to Progress Quest!'
end
object TaskBar: TProgressBar
Left = 1
Top = 18
Width = 672
Height = 16
Align = alBottom
Min = 0
Max = 100
Position = 50
Smooth = True
Step = 1
TabOrder = 1
end
end
object Timer1: TTimer
Enabled = False
Interval = 100
OnTimer = Timer1Timer
Left = 40
Top = 120
end
object ImageList1: TImageList
Height = 12
Width = 12
Left = 92
Top = 52
Bitmap = {
494C01010200040004000C000C00FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000300000000C00000001002000000000000009
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
28000000300000000C0000000100010000000000600000000000000000000000
000000000000000000000000FFFFFF0000100100000000007FD7FD0000000000
7FD77D00000000007FD63D00000000007FD41D00000000007FD48D0000000000
7FD5C500000000007FD7E500000000007FD7F500000000007FD7FD0000000000
0010010000000000FFFFFF000000000000000000000000000000000000000000
000000000000}
end
end