Skip to content
This repository was archived by the owner on Jun 9, 2022. It is now read-only.

Commit 564ae4a

Browse files
FaqFaq
committed
Load more tables to quest tab.
Closes #60
1 parent 4aa48ca commit 564ae4a

File tree

2 files changed

+91
-66
lines changed

2 files changed

+91
-66
lines changed

‎MainUnit.dfm‎

Lines changed: 50 additions & 59 deletions
Original file line numberDiff line numberDiff line change
@@ -1850,19 +1850,19 @@ object MainForm: TMainForm
18501850
Height = 13
18511851
Caption = 'Objectives'
18521852
end
1853-
object lOfferRewardText: TLabel
1853+
object lRewardText: TLabel
18541854
Left = 8
18551855
Top = 258
18561856
Width = 81
18571857
Height = 13
1858-
Caption = 'OfferRewardText'
1858+
Caption = 'RewardText'
18591859
end
1860-
object lRequestItemsText: TLabel
1860+
object lCompletionText: TLabel
18611861
Left = 299
18621862
Top = 258
18631863
Width = 86
18641864
Height = 13
1865-
Caption = 'RequestItemsText'
1865+
Caption = 'CompletionText'
18661866
end
18671867
object lEndText: TLabel
18681868
Left = 584
@@ -1900,25 +1900,26 @@ object MainForm: TMainForm
19001900
ScrollBars = ssVertical
19011901
TabOrder = 2
19021902
end
1903-
object edqtOfferRewardText: TMemo
1903+
object edqtRewardText: TMemo
19041904
Left = 8
19051905
Top = 276
19061906
Width = 275
19071907
Height = 153
19081908
Hint =
1909-
'First text send to the player by the NPC when completing the que' +
1910-
'st.'
1909+
'Quest gossip text shown when turning in a quest where no' +
1910+
'item delivery is involveds.'
19111911
ScrollBars = ssVertical
19121912
TabOrder = 4
19131913
end
1914-
object edqtRequestItemsText: TMemo
1914+
object edqtCompletionText: TMemo
19151915
Left = 296
19161916
Top = 276
19171917
Width = 275
19181918
Height = 153
19191919
Hint =
1920-
'This text ist send to player, yet did not terminate the Quest an' +
1921-
'd speak with NPC again!'
1920+
'Quest gossip text shown in the final gossip dialogue window when' +
1921+
'turning in an item delivery quest. The quest item(s) involved in the' +
1922+
'quest can either be provided by the quest giver or collected by the player.'
19221923
ScrollBars = ssVertical
19231924
TabOrder = 5
19241925
end
@@ -4354,13 +4355,6 @@ object MainForm: TMainForm
43544355
Height = 13
43554356
Caption = 'OfferRewardEmote4'
43564357
end
4357-
object lbqtPointMapId: TLabel
4358-
Left = 6
4359-
Top = 11
4360-
Width = 54
4361-
Height = 13
4362-
Caption = 'PointMapId'
4363-
end
43644358
object edqtPointX: TLabeledEdit
43654359
Left = 78
43664360
Top = 27
@@ -4777,44 +4771,6 @@ object MainForm: TMainForm
47774771
Text = ''
47784772
OnButtonClick = GetEmote
47794773
end
4780-
object edqtPointMapId: TJvComboEdit
4781-
Left = 6
4782-
Top = 27
4783-
Width = 60
4784-
Height = 21
4785-
ButtonWidth = 22
4786-
ClickKey = 13
4787-
Glyph.Data = {
4788-
36030000424D3603000000000000360000002800000010000000100000000100
4789-
18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF
4790-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4791-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4792-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4793-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4794-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4795-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4796-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4797-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4798-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD79C64
4799-
DB9E63FFFFFFFFFFFFFFFFFFFFFFFFDA9E63D89D65FFFFFFFFFFFFFFFFFFFFFF
4800-
FFD79C64DB9E63FFFFFFC2773FEBB36FEDB570D19059FFFFFFFFFFFFC57D44ED
4801-
B571EBB26ECC9164FFFFFFFFFFFFC27840EBB36FECB470D1915AC48355D5955B
4802-
D89960CA8C5FFFFFFFFFFFFFC68457D8995FD6965BCE9974FFFFFFFFFFFFC380
4803-
52D6975DD99A61CB8D5FFFFFFFC68A65C17F54FFFFFFFFFFFFFFFFFFFFFFFFC2
4804-
8157C58963FFFFFFFFFFFFFFFFFFFFFFFFC68B65C17F54FFFFFFFFFFFFFFFFFF
4805-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4806-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4807-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4808-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4809-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4810-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4811-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4812-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
4813-
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
4814-
TabOrder = 0
4815-
Text = ''
4816-
OnButtonClick = GetMap
4817-
end
48184774
object edqtDetailsEmoteDelay1: TLabeledEdit
48194775
Left = 77
48204776
Top = 65
@@ -5068,18 +5024,53 @@ object MainForm: TMainForm
50685024
EditLabel.Caption = 'Unknown0'
50695025
TabOrder = 6
50705026
end
5071-
object edqtPOIContinent: TLabeledEdit
5027+
object lbqtPOIContinent: TLabel
5028+
Left = 8
5029+
Top = 52
5030+
Width = 54
5031+
Height = 13
5032+
Caption = 'POIContinent'
5033+
end
5034+
object edqtPOIContinent: TJvComboEdit
50725035
Left = 8
50735036
Top = 68
50745037
Width = 71
50755038
Height = 21
50765039
Hint =
50775040
'MapId of a quest point of interest (POI - Point Of Interest). PO' +
50785041
'I will be shown on the map when quest is active.'
5079-
EditLabel.Width = 63
5080-
EditLabel.Height = 13
5081-
EditLabel.Caption = 'POIContinent'
5042+
ButtonWidth = 22
5043+
ClickKey = 13
5044+
Glyph.Data = {
5045+
36030000424D3603000000000000360000002800000010000000100000000100
5046+
18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF
5047+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5048+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5049+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5050+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5051+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5052+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5053+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5054+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5055+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD79C64
5056+
DB9E63FFFFFFFFFFFFFFFFFFFFFFFFDA9E63D89D65FFFFFFFFFFFFFFFFFFFFFF
5057+
FFD79C64DB9E63FFFFFFC2773FEBB36FEDB570D19059FFFFFFFFFFFFC57D44ED
5058+
B571EBB26ECC9164FFFFFFFFFFFFC27840EBB36FECB470D1915AC48355D5955B
5059+
D89960CA8C5FFFFFFFFFFFFFC68457D8995FD6965BCE9974FFFFFFFFFFFFC380
5060+
52D6975DD99A61CB8D5FFFFFFFC68A65C17F54FFFFFFFFFFFFFFFFFFFFFFFFC2
5061+
8157C58963FFFFFFFFFFFFFFFFFFFFFFFFC68B65C17F54FFFFFFFFFFFFFFFFFF
5062+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5063+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5064+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5065+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5066+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5067+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5068+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5069+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
5070+
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
50825071
TabOrder = 7
5072+
Text = ''
5073+
OnButtonClick = GetMap
50835074
end
50845075
object edqtPOIx: TLabeledEdit
50855076
Left = 85

‎MainUnit.pas‎

Lines changed: 41 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -193,15 +193,15 @@ TMainForm = class(TForm)
193193
gbDescription: TGroupBox;
194194
lDetails: TLabel;
195195
lObjectives: TLabel;
196-
lOfferRewardText: TLabel;
197-
lRequestItemsText: TLabel;
196+
lRewardText: TLabel;
197+
lCompletionText: TLabel;
198198
lEndText: TLabel;
199199
edqtLogTitle: TLabeledEdit;
200200
edqtAreaDescription: TLabeledEdit;
201201
edqtQuestDescription: TMemo;
202202
edqtLogDescription: TMemo;
203-
edqtOfferRewardText: TMemo;
204-
edqtRequestItemsText: TMemo;
203+
edqtRewardText: TMemo;
204+
edqtCompletionText: TMemo;
205205
edqtEndText: TMemo;
206206
edqtObjectiveText1: TLabeledEdit;
207207
edqtObjectiveText2: TLabeledEdit;
@@ -1181,8 +1181,6 @@ TMainForm = class(TForm)
11811181
lbglmap: TLabel;
11821182
edclmap: TJvComboEdit;
11831183
lbclmap: TLabel;
1184-
lbqtPointMapId: TLabel;
1185-
edqtPointMapId: TJvComboEdit;
11861184
tsCharacter: TTabSheet;
11871185
edhtaccount: TLabeledEdit;
11881186
edhtname: TLabeledEdit;
@@ -1428,7 +1426,8 @@ TMainForm = class(TForm)
14281426
edqtVerifiedBuild: TLabeledEdit;
14291427
edqtRewardArenaPoints: TLabeledEdit;
14301428
edqtUnknown0: TLabeledEdit;
1431-
edqtPOIContinent: TLabeledEdit;
1429+
lbqtPOIContinent: TLabel;
1430+
edqtPOIContinent: TJvComboEdit;
14321431
edqtPOIx: TLabeledEdit;
14331432
edqtPOIy: TLabeledEdit;
14341433
edqtPOIPriority: TLabeledEdit;
@@ -2626,6 +2625,41 @@ procedure TMainForm.LoadQuest(QuestID: integer);
26262625
edqtSpecialFlags.Text := MyQuery.FieldByName('SpecialFlags').AsString;
26272626
MyQuery.Close;
26282627

2628+
MyQuery.SQL.Text := Format('SELECT * FROM `quest_request_items` WHERE `ID`=%d', [QuestID]);
2629+
MyQuery.Open;
2630+
if (MyQuery.Eof=false) then
2631+
edqtEmoteOnComplete.Text := MyQuery.FieldByName('EmoteOnComplete').AsString;
2632+
edqtEmoteOnIncomplete.Text := MyQuery.FieldByName('EmoteOnIncomplete').AsString;
2633+
edqtCompletionText.Text := MyQuery.FieldByName('CompletionText').AsString;
2634+
MyQuery.Close;
2635+
2636+
MyQuery.SQL.Text := Format('SELECT * FROM `quest_offer_reward` WHERE `ID`=%d', [QuestID]);
2637+
MyQuery.Open;
2638+
if (MyQuery.Eof=false) then
2639+
edqtOfferRewardEmote1.Text := MyQuery.FieldByName('Emote1').AsString;
2640+
edqtOfferRewardEmote2.Text := MyQuery.FieldByName('Emote2').AsString;
2641+
edqtOfferRewardEmote3.Text := MyQuery.FieldByName('Emote3').AsString;
2642+
edqtOfferRewardEmote4.Text := MyQuery.FieldByName('Emote4').AsString;
2643+
edqtOfferRewardEmoteDelay1.Text := MyQuery.FieldByName('EmoteDelay1').AsString;
2644+
edqtOfferRewardEmoteDelay2.Text := MyQuery.FieldByName('EmoteDelay2').AsString;
2645+
edqtOfferRewardEmoteDelay3.Text := MyQuery.FieldByName('EmoteDelay3').AsString;
2646+
edqtOfferRewardEmoteDelay4.Text := MyQuery.FieldByName('EmoteDelay4').AsString;
2647+
edqtRewardText.Text := MyQuery.FieldByName('RewardText').AsString;
2648+
MyQuery.Close;
2649+
2650+
MyQuery.SQL.Text := Format('SELECT * FROM `quest_details` WHERE `ID`=%d', [QuestID]);
2651+
MyQuery.Open;
2652+
if (MyQuery.Eof=false) then
2653+
edqtDetailsEmote1.Text := MyQuery.FieldByName('Emote1').AsString;
2654+
edqtDetailsEmote2.Text := MyQuery.FieldByName('Emote2').AsString;
2655+
edqtDetailsEmote3.Text := MyQuery.FieldByName('Emote3').AsString;
2656+
edqtDetailsEmote4.Text := MyQuery.FieldByName('Emote4').AsString;
2657+
edqtDetailsEmoteDelay1.Text := MyQuery.FieldByName('EmoteDelay1').AsString;
2658+
edqtDetailsEmoteDelay2.Text := MyQuery.FieldByName('EmoteDelay2').AsString;
2659+
edqtDetailsEmoteDelay3.Text := MyQuery.FieldByName('EmoteDelay3').AsString;
2660+
edqtDetailsEmoteDelay4.Text := MyQuery.FieldByName('EmoteDelay4').AsString;
2661+
MyQuery.Close;
2662+
26292663
MyQuery.SQL.Text := Format('SELECT * FROM `areatrigger_involvedrelation` WHERE `quest`=%d', [QuestID]);
26302664
MyQuery.Open;
26312665
if (MyQuery.Eof=false) then edqtAreatrigger.Text := MyQuery.FieldByName('id').AsString else

0 commit comments

Comments
 (0)