mirror of
https://bitbucket.org/grumdrig/pq.git
synced 2026-09-29 00:33:59 -06:00
377 lines
11 KiB
ObjectPascal
377 lines
11 KiB
ObjectPascal
object NewGuyForm: TNewGuyForm
|
|
Left = 474
|
|
Top = 177
|
|
BorderIcons = []
|
|
BorderStyle = bsDialog
|
|
Caption = 'Progress Quest - New Character'
|
|
ClientHeight = 458
|
|
ClientWidth = 509
|
|
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}
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Race: TRadioGroup
|
|
Left = 8
|
|
Top = 48
|
|
Width = 185
|
|
Height = 401
|
|
Caption = 'Race'
|
|
Items.Strings = (
|
|
'Half Orc'
|
|
'Half Man'
|
|
'Half Halfling'
|
|
'Double Hobbit'
|
|
'Gobhobbit'
|
|
'Low Elf'
|
|
'Dung Elf'
|
|
'Talking Pony'
|
|
'Gyrognome'
|
|
'Lesser Dwarf'
|
|
'Crested Dwarf'
|
|
'Eel Man'
|
|
'Panda Man'
|
|
'Trans-Kobold'
|
|
'Enchanted Motorcycle'
|
|
'Will o'#39' the Wisp'
|
|
'Battle-Finch'
|
|
'Double Wookiee'
|
|
'Skraeling'
|
|
'Demicanadian'
|
|
'Land Squid')
|
|
TabOrder = 0
|
|
end
|
|
object Klass: TRadioGroup
|
|
Left = 200
|
|
Top = 48
|
|
Width = 185
|
|
Height = 365
|
|
Caption = 'Class'
|
|
Items.Strings = (
|
|
'Ur-Paladin'
|
|
'Voodoo Princess'
|
|
'Robot Monk'
|
|
'Mu-Fu Monk'
|
|
'Mage Illusioner'
|
|
'Shiv-Knight'
|
|
'Inner Mason'
|
|
'Fighter/Organist'
|
|
'Puma Burgular'
|
|
'Runeloremaster'
|
|
'Hunter Strangler'
|
|
'Battle-Felon'
|
|
'Tickle-Mimic'
|
|
'Slow Poisoner'
|
|
'Bastard Lunatic'
|
|
'Jungle Clown'
|
|
'Birdrider'
|
|
'Vermineer')
|
|
TabOrder = 1
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 392
|
|
Top = 48
|
|
Width = 109
|
|
Height = 365
|
|
Caption = 'Stats'
|
|
TabOrder = 2
|
|
object Label3: TLabel
|
|
Left = 22
|
|
Top = 60
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'CON'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 22
|
|
Top = 156
|
|
Width = 22
|
|
Height = 13
|
|
Caption = 'CHA'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 22
|
|
Top = 132
|
|
Width = 21
|
|
Height = 13
|
|
Caption = 'WIS'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 22
|
|
Top = 108
|
|
Width = 18
|
|
Height = 13
|
|
Caption = 'INT'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 22
|
|
Top = 84
|
|
Width = 22
|
|
Height = 13
|
|
Caption = 'DEX'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 22
|
|
Top = 36
|
|
Width = 22
|
|
Height = 13
|
|
Caption = 'STR'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 22
|
|
Top = 204
|
|
Width = 24
|
|
Height = 13
|
|
Caption = 'Total'
|
|
end
|
|
object CHA: TPanel
|
|
Left = 52
|
|
Top = 152
|
|
Width = 37
|
|
Height = 21
|
|
BevelOuter = bvLowered
|
|
Caption = '18'
|
|
TabOrder = 0
|
|
end
|
|
object WIS: TPanel
|
|
Left = 52
|
|
Top = 128
|
|
Width = 37
|
|
Height = 21
|
|
BevelOuter = bvLowered
|
|
Caption = '18'
|
|
TabOrder = 1
|
|
end
|
|
object INT: TPanel
|
|
Left = 52
|
|
Top = 104
|
|
Width = 37
|
|
Height = 21
|
|
BevelOuter = bvLowered
|
|
Caption = '18'
|
|
TabOrder = 2
|
|
end
|
|
object DEX: TPanel
|
|
Left = 52
|
|
Top = 80
|
|
Width = 37
|
|
Height = 21
|
|
BevelOuter = bvLowered
|
|
Caption = '18'
|
|
TabOrder = 3
|
|
end
|
|
object CON: TPanel
|
|
Left = 52
|
|
Top = 56
|
|
Width = 37
|
|
Height = 21
|
|
BevelOuter = bvLowered
|
|
Caption = '18'
|
|
TabOrder = 4
|
|
end
|
|
object STR: TPanel
|
|
Left = 52
|
|
Top = 32
|
|
Width = 37
|
|
Height = 21
|
|
BevelOuter = bvLowered
|
|
Caption = '18'
|
|
TabOrder = 5
|
|
end
|
|
object Reroll: TButton
|
|
Left = 18
|
|
Top = 284
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Roll'
|
|
TabOrder = 6
|
|
OnClick = RerollClick
|
|
end
|
|
object Total: TPanel
|
|
Left = 52
|
|
Top = 200
|
|
Width = 37
|
|
Height = 21
|
|
BevelOuter = bvLowered
|
|
Caption = '18'
|
|
Color = clWhite
|
|
TabOrder = 7
|
|
end
|
|
object Unroll: TButton
|
|
Left = 18
|
|
Top = 316
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Unroll'
|
|
Enabled = False
|
|
TabOrder = 8
|
|
OnClick = UnrollClick
|
|
end
|
|
end
|
|
object Sold: TButton
|
|
Left = 342
|
|
Top = 424
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Sold!'
|
|
Default = True
|
|
TabOrder = 3
|
|
OnClick = SoldClick
|
|
end
|
|
object Name: TLabeledEdit
|
|
Left = 8
|
|
Top = 20
|
|
Width = 165
|
|
Height = 21
|
|
EditLabel.Width = 28
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'Name'
|
|
LabelPosition = lpAbove
|
|
LabelSpacing = 3
|
|
MaxLength = 30
|
|
TabOrder = 4
|
|
end
|
|
object OldRolls: TListBox
|
|
Left = 396
|
|
Top = 228
|
|
Width = 21
|
|
Height = 13
|
|
ItemHeight = 13
|
|
TabOrder = 5
|
|
Visible = False
|
|
end
|
|
object Button2: TButton
|
|
Left = 426
|
|
Top = 424
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 6
|
|
end
|
|
object Account: TLabeledEdit
|
|
Left = 200
|
|
Top = 20
|
|
Width = 185
|
|
Height = 21
|
|
EditLabel.Width = 40
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'Account'
|
|
LabelPosition = lpAbove
|
|
LabelSpacing = 3
|
|
TabOrder = 7
|
|
Visible = False
|
|
end
|
|
object Password: TLabeledEdit
|
|
Left = 392
|
|
Top = 20
|
|
Width = 109
|
|
Height = 21
|
|
EditLabel.Width = 46
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'Password'
|
|
LabelPosition = lpAbove
|
|
LabelSpacing = 3
|
|
PasswordChar = '*'
|
|
TabOrder = 8
|
|
Visible = False
|
|
end
|
|
object Gen: TButton
|
|
Left = 176
|
|
Top = 20
|
|
Width = 17
|
|
Height = 22
|
|
Caption = '?'
|
|
TabOrder = 9
|
|
OnClick = GenClick
|
|
end
|
|
object PoorCodeDesign: TNMURL
|
|
Left = 336
|
|
Top = 268
|
|
end
|
|
object ApplicationEvents1: TApplicationEvents
|
|
OnMinimize = ApplicationEvents1Minimize
|
|
Left = 332
|
|
Top = 208
|
|
end
|
|
end
|