Load more tables to quest tab.

Closes #60

MainUnit.dfm

@@ -1850,19 +1850,19 @@ object MainForm: TMainForm
               Height = 13
               Caption = 'Objectives'
             end
-            object lOfferRewardText: TLabel
+            object lRewardText: TLabel
               Left = 8
               Top = 258
               Width = 81
               Height = 13
-              Caption = 'OfferRewardText'
+              Caption = 'RewardText'
             end
-            object lRequestItemsText: TLabel
+            object lCompletionText: TLabel
               Left = 299
               Top = 258
               Width = 86
               Height = 13
-              Caption = 'RequestItemsText'
+              Caption = 'CompletionText'
             end
             object lEndText: TLabel
               Left = 584
@@ -1900,25 +1900,26 @@ object MainForm: TMainForm
               ScrollBars = ssVertical
               TabOrder = 2
             end
-            object edqtOfferRewardText: TMemo
+            object edqtRewardText: TMemo
               Left = 8
               Top = 276
               Width = 275
               Height = 153
               Hint = 
-                'First text send to the player by the NPC when completing the que' +
-                'st.'
+                'Quest gossip text shown when turning in a quest where no' +
+                'item delivery is involveds.'
               ScrollBars = ssVertical
               TabOrder = 4
             end
-            object edqtRequestItemsText: TMemo
+            object edqtCompletionText: TMemo
               Left = 296
               Top = 276
               Width = 275
               Height = 153
               Hint = 
-                'This text ist send to player, yet did not terminate the Quest an' +
-                'd speak with NPC again!'
+                'Quest gossip text shown in the final gossip dialogue window when' +
+                'turning in an item delivery quest. The quest item(s) involved in the' +
+                'quest can either be provided by the quest giver or collected by the player.'
               ScrollBars = ssVertical
               TabOrder = 5
             end
@@ -4354,13 +4355,6 @@ object MainForm: TMainForm
               Height = 13
               Caption = 'OfferRewardEmote4'
             end
-            object lbqtPointMapId: TLabel
-              Left = 6
-              Top = 11
-              Width = 54
-              Height = 13
-              Caption = 'PointMapId'
-            end
             object edqtPointX: TLabeledEdit
               Left = 78
               Top = 27
@@ -4777,44 +4771,6 @@ object MainForm: TMainForm
               Text = ''
               OnButtonClick = GetEmote
             end
-            object edqtPointMapId: TJvComboEdit
-              Left = 6
-              Top = 27
-              Width = 60
-              Height = 21
-              ButtonWidth = 22
-              ClickKey = 13
-              Glyph.Data = {
-                36030000424D3603000000000000360000002800000010000000100000000100
-                18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD79C64
-                DB9E63FFFFFFFFFFFFFFFFFFFFFFFFDA9E63D89D65FFFFFFFFFFFFFFFFFFFFFF
-                FFD79C64DB9E63FFFFFFC2773FEBB36FEDB570D19059FFFFFFFFFFFFC57D44ED
-                B571EBB26ECC9164FFFFFFFFFFFFC27840EBB36FECB470D1915AC48355D5955B
-                D89960CA8C5FFFFFFFFFFFFFC68457D8995FD6965BCE9974FFFFFFFFFFFFC380
-                52D6975DD99A61CB8D5FFFFFFFC68A65C17F54FFFFFFFFFFFFFFFFFFFFFFFFC2
-                8157C58963FFFFFFFFFFFFFFFFFFFFFFFFC68B65C17F54FFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
-              TabOrder = 0
-              Text = ''
-              OnButtonClick = GetMap
-            end
             object edqtDetailsEmoteDelay1: TLabeledEdit
               Left = 77
               Top = 65
@@ -5068,18 +5024,53 @@ object MainForm: TMainForm
               EditLabel.Caption = 'Unknown0'
               TabOrder = 6
             end
-            object edqtPOIContinent: TLabeledEdit
+            object lbqtPOIContinent: TLabel
+              Left = 8
+              Top = 52
+              Width = 54
+              Height = 13
+              Caption = 'POIContinent'
+            end
+            object edqtPOIContinent: TJvComboEdit
               Left = 8
               Top = 68
               Width = 71
               Height = 21
               Hint = 
                 'MapId of a quest point of interest (POI - Point Of Interest). PO' +
                 'I will be shown on the map when quest is active.'
-              EditLabel.Width = 63
-              EditLabel.Height = 13
-              EditLabel.Caption = 'POIContinent'
+              ButtonWidth = 22
+              ClickKey = 13
+              Glyph.Data = {
+                36030000424D3603000000000000360000002800000010000000100000000100
+                18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD79C64
+                DB9E63FFFFFFFFFFFFFFFFFFFFFFFFDA9E63D89D65FFFFFFFFFFFFFFFFFFFFFF
+                FFD79C64DB9E63FFFFFFC2773FEBB36FEDB570D19059FFFFFFFFFFFFC57D44ED
+                B571EBB26ECC9164FFFFFFFFFFFFC27840EBB36FECB470D1915AC48355D5955B
+                D89960CA8C5FFFFFFFFFFFFFC68457D8995FD6965BCE9974FFFFFFFFFFFFC380
+                52D6975DD99A61CB8D5FFFFFFFC68A65C17F54FFFFFFFFFFFFFFFFFFFFFFFFC2
+                8157C58963FFFFFFFFFFFFFFFFFFFFFFFFC68B65C17F54FFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
               TabOrder = 7
+              Text = ''
+              OnButtonClick = GetMap
             end
             object edqtPOIx: TLabeledEdit
               Left = 85

MainUnit.pas

@@ -193,15 +193,15 @@     TMainForm = class(TForm)
     gbDescription: TGroupBox;
     lDetails: TLabel;
     lObjectives: TLabel;
-    lOfferRewardText: TLabel;
-    lRequestItemsText: TLabel;
+    lRewardText: TLabel;
+    lCompletionText: TLabel;
     lEndText: TLabel;
     edqtLogTitle: TLabeledEdit;
     edqtAreaDescription: TLabeledEdit;
     edqtQuestDescription: TMemo;
     edqtLogDescription: TMemo;
-    edqtOfferRewardText: TMemo;
-    edqtRequestItemsText: TMemo;
+    edqtRewardText: TMemo;
+    edqtCompletionText: TMemo;
     edqtEndText: TMemo;
     edqtObjectiveText1: TLabeledEdit;
     edqtObjectiveText2: TLabeledEdit;
@@ -1181,8 +1181,6 @@     TMainForm = class(TForm)
     lbglmap: TLabel;
     edclmap: TJvComboEdit;
     lbclmap: TLabel;
-    lbqtPointMapId: TLabel;
-    edqtPointMapId: TJvComboEdit;
     tsCharacter: TTabSheet;
     edhtaccount: TLabeledEdit;
     edhtname: TLabeledEdit;
@@ -1428,7 +1426,8 @@     TMainForm = class(TForm)
     edqtVerifiedBuild: TLabeledEdit;
     edqtRewardArenaPoints: TLabeledEdit;
     edqtUnknown0: TLabeledEdit;
-    edqtPOIContinent: TLabeledEdit;
+    lbqtPOIContinent: TLabel;
+    edqtPOIContinent: TJvComboEdit;
     edqtPOIx: TLabeledEdit;
     edqtPOIy: TLabeledEdit;
     edqtPOIPriority: TLabeledEdit;
@@ -2626,6 +2625,41 @@ procedure TMainForm.LoadQuest(QuestID: integer);
 		edqtSpecialFlags.Text := MyQuery.FieldByName('SpecialFlags').AsString;
     MyQuery.Close;
 
+	MyQuery.SQL.Text := Format('SELECT * FROM `quest_request_items` WHERE `ID`=%d', [QuestID]);
+	MyQuery.Open;
+    if (MyQuery.Eof=false) then 
+		edqtEmoteOnComplete.Text := MyQuery.FieldByName('EmoteOnComplete').AsString;
+		edqtEmoteOnIncomplete.Text := MyQuery.FieldByName('EmoteOnIncomplete').AsString;
+		edqtCompletionText.Text := MyQuery.FieldByName('CompletionText').AsString;
+    MyQuery.Close;
+
+	MyQuery.SQL.Text := Format('SELECT * FROM `quest_offer_reward` WHERE `ID`=%d', [QuestID]);
+	MyQuery.Open;
+    if (MyQuery.Eof=false) then 
+		edqtOfferRewardEmote1.Text := MyQuery.FieldByName('Emote1').AsString;
+		edqtOfferRewardEmote2.Text := MyQuery.FieldByName('Emote2').AsString;
+		edqtOfferRewardEmote3.Text := MyQuery.FieldByName('Emote3').AsString;
+		edqtOfferRewardEmote4.Text := MyQuery.FieldByName('Emote4').AsString;
+		edqtOfferRewardEmoteDelay1.Text := MyQuery.FieldByName('EmoteDelay1').AsString;
+		edqtOfferRewardEmoteDelay2.Text := MyQuery.FieldByName('EmoteDelay2').AsString;
+		edqtOfferRewardEmoteDelay3.Text := MyQuery.FieldByName('EmoteDelay3').AsString;
+		edqtOfferRewardEmoteDelay4.Text := MyQuery.FieldByName('EmoteDelay4').AsString;
+		edqtRewardText.Text := MyQuery.FieldByName('RewardText').AsString;
+    MyQuery.Close;
+
+	MyQuery.SQL.Text := Format('SELECT * FROM `quest_details` WHERE `ID`=%d', [QuestID]);
+	MyQuery.Open;
+    if (MyQuery.Eof=false) then 
+		edqtDetailsEmote1.Text := MyQuery.FieldByName('Emote1').AsString;
+		edqtDetailsEmote2.Text := MyQuery.FieldByName('Emote2').AsString;
+		edqtDetailsEmote3.Text := MyQuery.FieldByName('Emote3').AsString;
+		edqtDetailsEmote4.Text := MyQuery.FieldByName('Emote4').AsString;
+		edqtDetailsEmoteDelay1.Text := MyQuery.FieldByName('EmoteDelay1').AsString;
+		edqtDetailsEmoteDelay2.Text := MyQuery.FieldByName('EmoteDelay2').AsString;
+		edqtDetailsEmoteDelay3.Text := MyQuery.FieldByName('EmoteDelay3').AsString;
+		edqtDetailsEmoteDelay4.Text := MyQuery.FieldByName('EmoteDelay4').AsString;
+    MyQuery.Close;
+
     MyQuery.SQL.Text := Format('SELECT * FROM `areatrigger_involvedrelation` WHERE `quest`=%d', [QuestID]);
     MyQuery.Open;
     if (MyQuery.Eof=false) then edqtAreatrigger.Text := MyQuery.FieldByName('id').AsString else