Initial commit

33 files changed, 1020 insertions, 0 deletions

diff --git a/npc/functions/quest-debug/000-ShipQuests_Julia.txt b/npc/functions/quest-debug/000-ShipQuests_Julia.txt
new file mode 100644
index 000000000..e4e0ec2cd
--- /dev/null
+++ b/npc/functions/quest-debug/000-ShipQuests_Julia.txt
@@ -0,0 +1,37 @@
+// Julia quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug0	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Julia";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Julia));
+        mes "---";
+        mes l("Related quests:");
+        mes "ShipQuests_Nard: " + getq(ShipQuests_Nard);
+        mes "ShipQuests_ChefGado: " + getq(ShipQuests_ChefGado);
+        mes "General_Narrator: " + getq(General_Narrator);
+        next;
+
+        GenericQuestDebug ShipQuests_Julia,
+            menuimage("actions/manage", l("Debug Nard quest")), -1,
+            menuimage("actions/manage", l("Debug Gado quest")), -2,
+            menuimage("actions/manage", l("Debug Narrator")), -3,
+            l("Does not have the quest"), 0,
+            l("Got the quest"), 1,
+            l("Completed"), 2;
+
+        switch (@menuret)
+        {
+            case -1: callfunc "QuestDebug4"; break;
+            case -2: callfunc "QuestDebug17"; break;
+            case -3: callfunc "QuestDebug28"; break;
+            default: if (@menuret < 0) return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/001-ShipQuests_Arpan.txt b/npc/functions/quest-debug/001-ShipQuests_Arpan.txt
new file mode 100644
index 000000000..26c496466
--- /dev/null
+++ b/npc/functions/quest-debug/001-ShipQuests_Arpan.txt
@@ -0,0 +1,27 @@
+// Arpan quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug1	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Arpan";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Arpan));
+        next;
+
+        GenericQuestDebug ShipQuests_Arpan,
+            l("Arpan is waiting for you"), 0,
+            l("Arpan told you to open the chest"), 1,
+            l("You opened the chest"), 2,
+            l("Completed"), 3;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/002-ShipQuests_Alige.txt b/npc/functions/quest-debug/002-ShipQuests_Alige.txt
new file mode 100644
index 000000000..36d0ce23e
--- /dev/null
+++ b/npc/functions/quest-debug/002-ShipQuests_Alige.txt
@@ -0,0 +1,27 @@
+// Alige quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug2	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Alige";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Alige));
+        next;
+
+        GenericQuestDebug ShipQuests_Alige,
+            l("Does not have the quest"), 0,
+            l("First encounter"), 1,
+            l("Alige asks for food"), 2,
+            l("Completed"), 3;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/003-ShipQuests_Peter.txt b/npc/functions/quest-debug/003-ShipQuests_Peter.txt
new file mode 100644
index 000000000..e08e1eb24
--- /dev/null
+++ b/npc/functions/quest-debug/003-ShipQuests_Peter.txt
@@ -0,0 +1,30 @@
+// Peter quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug3	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Peter";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Peter));
+        next;
+
+        GenericQuestDebug ShipQuests_Peter,
+            l("Does not have the quest"), 0,
+            l("Peter needs help"), 6,
+            l("Peter asks to kill rattos"), 1,
+            l("Killed rattos"), 2,
+            l("Got no reward"), 3,
+            l("Peter asks to kill rattos again"), 4,
+            l("Peter gave reward"), 5;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/004-ShipQuests_Nard.txt b/npc/functions/quest-debug/004-ShipQuests_Nard.txt
new file mode 100644
index 000000000..9ec51cd87
--- /dev/null
+++ b/npc/functions/quest-debug/004-ShipQuests_Nard.txt
@@ -0,0 +1,38 @@
+// Nard quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug4	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Nard";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Nard));
+        mes "---";
+        mes l("Subquests:");
+        mes "ShipQuests_Gugli: " + getq(ShipQuests_Gugli);
+        mes "ShipQuests_ChefGado: " + getq(ShipQuests_ChefGado);
+        next;
+
+        GenericQuestDebug ShipQuests_Nard,
+            l("Does not have the quest"), 0,
+            l("Nard asks to help crew"), 1,
+            menuimage("actions/manage", l("Debug Gugli quest")), -1,
+            l("Completed Gugli's task"), 2,
+            l("Nard asks to solve conflict"), 3,
+            menuimage("actions/manage", l("Debug Gado quest")), -2,
+            l("Solved conflict"), 4,
+            l("Official crew member"), 5,
+            l("Talked to narrator"), 6;
+
+        switch (@menuret)
+        {
+            case -1: callfunc "QuestDebug16"; break;
+            case -2: callfunc "QuestDebug17"; break;
+            default: if (@menuret < 0) return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/005-ShipQuests_Knife.txt b/npc/functions/quest-debug/005-ShipQuests_Knife.txt
new file mode 100644
index 000000000..a5ec1ae86
--- /dev/null
+++ b/npc/functions/quest-debug/005-ShipQuests_Knife.txt
@@ -0,0 +1,25 @@
+// Knife quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug5	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Knife";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Knife));
+        next;
+
+        GenericQuestDebug ShipQuests_Knife,
+            l("Does not have the quest"), 0,
+            l("Got the knife"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/006-ShipQuests_ArpanMoney.txt b/npc/functions/quest-debug/006-ShipQuests_ArpanMoney.txt
new file mode 100644
index 000000000..00e2fbea8
--- /dev/null
+++ b/npc/functions/quest-debug/006-ShipQuests_ArpanMoney.txt
@@ -0,0 +1,26 @@
+// Money quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug6	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_ArpanMoney";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_ArpanMoney));
+        next;
+
+        GenericQuestDebug ShipQuests_ArpanMoney,
+            l("Does not have the quest"), 0,
+            l("Elmo told about money"), 1,
+            l("Arpan gave money"), 2;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/007-ShipQuests_Door.txt b/npc/functions/quest-debug/007-ShipQuests_Door.txt
new file mode 100644
index 000000000..88aa00abe
--- /dev/null
+++ b/npc/functions/quest-debug/007-ShipQuests_Door.txt
@@ -0,0 +1,25 @@
+// Door quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug7	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Door";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Door));
+        next;
+
+        GenericQuestDebug ShipQuests_Door,
+            l("Does not have the quest"), 0,
+            l("Heard conversation"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/008-ShipQuests_Couwan.txt b/npc/functions/quest-debug/008-ShipQuests_Couwan.txt
new file mode 100644
index 000000000..3df0cdbf0
--- /dev/null
+++ b/npc/functions/quest-debug/008-ShipQuests_Couwan.txt
@@ -0,0 +1,26 @@
+// Couwan quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug8	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Couwan";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Couwan));
+        next;
+
+        GenericQuestDebug ShipQuests_Couwan,
+            l("Does not have the quest"), 0,
+            l("Couwan asks to deliver box"), 1,
+            l("Delivered box, got reward"), 2;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/009-ShipQuests_TreasureChest.txt b/npc/functions/quest-debug/009-ShipQuests_TreasureChest.txt
new file mode 100644
index 000000000..97adef46f
--- /dev/null
+++ b/npc/functions/quest-debug/009-ShipQuests_TreasureChest.txt
@@ -0,0 +1,25 @@
+// Treasure chest quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug9	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_TreasureChest";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_TreasureChest));
+        next;
+
+        GenericQuestDebug ShipQuests_TreasureChest,
+            l("Does not have the quest"), 0,
+            l("Opened treasure chest"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/010-ShipQuests_Ale.txt b/npc/functions/quest-debug/010-ShipQuests_Ale.txt
new file mode 100644
index 000000000..e54221224
--- /dev/null
+++ b/npc/functions/quest-debug/010-ShipQuests_Ale.txt
@@ -0,0 +1,25 @@
+// Part of Gugli quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug10	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Ale";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Ale));
+        next;
+
+        GenericQuestDebug ShipQuests_Ale,
+            l("Does not have the quest"), 0,
+            l("Got the package"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/011-ShipQuests_Astapolos.txt b/npc/functions/quest-debug/011-ShipQuests_Astapolos.txt
new file mode 100644
index 000000000..aca065edb
--- /dev/null
+++ b/npc/functions/quest-debug/011-ShipQuests_Astapolos.txt
@@ -0,0 +1,25 @@
+// Part of Gugli quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug11	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Astapolos";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Astapolos));
+        next;
+
+        GenericQuestDebug ShipQuests_Astapolos,
+            l("Does not have the quest"), 0,
+            l("Got the package"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/012-ShipQuests_Gulukan.txt b/npc/functions/quest-debug/012-ShipQuests_Gulukan.txt
new file mode 100644
index 000000000..fac7ccded
--- /dev/null
+++ b/npc/functions/quest-debug/012-ShipQuests_Gulukan.txt
@@ -0,0 +1,25 @@
+// Part of Gugli quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug12	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Gulukan";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Gulukan));
+        next;
+
+        GenericQuestDebug ShipQuests_Gulukan,
+            l("Does not have the quest"), 0,
+            l("Got the package"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/013-ShipQuests_Jalad.txt b/npc/functions/quest-debug/013-ShipQuests_Jalad.txt
new file mode 100644
index 000000000..9ae6ed2a2
--- /dev/null
+++ b/npc/functions/quest-debug/013-ShipQuests_Jalad.txt
@@ -0,0 +1,25 @@
+// Part of Gugli quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug13	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Jalad";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Jalad));
+        next;
+
+        GenericQuestDebug ShipQuests_Jalad,
+            l("Does not have the quest"), 0,
+            l("Got the package"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/014-ShipQuests_QMuller.txt b/npc/functions/quest-debug/014-ShipQuests_QMuller.txt
new file mode 100644
index 000000000..8a25ee653
--- /dev/null
+++ b/npc/functions/quest-debug/014-ShipQuests_QMuller.txt
@@ -0,0 +1,25 @@
+// Part of Gugli quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug14	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_QMuller";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_QMuller));
+        next;
+
+        GenericQuestDebug ShipQuests_QMuller,
+            l("Does not have the quest"), 0,
+            l("Got the package"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/015-ShipQuests_Tibbo.txt b/npc/functions/quest-debug/015-ShipQuests_Tibbo.txt
new file mode 100644
index 000000000..84280ebfe
--- /dev/null
+++ b/npc/functions/quest-debug/015-ShipQuests_Tibbo.txt
@@ -0,0 +1,25 @@
+// Part of Gugli quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug15	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Tibbo";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Tibbo));
+        next;
+
+        GenericQuestDebug ShipQuests_Tibbo,
+            l("Does not have the quest"), 0,
+            l("Got the package"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/016-ShipQuests_Gugli.txt b/npc/functions/quest-debug/016-ShipQuests_Gugli.txt
new file mode 100644
index 000000000..e4868ff48
--- /dev/null
+++ b/npc/functions/quest-debug/016-ShipQuests_Gugli.txt
@@ -0,0 +1,48 @@
+// Part of Gugli quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug16	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_Gugli";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_Gugli));
+        mes "---";
+        mes l("Subquests:");
+        mes "ShipQuests_Ale: " + getq(ShipQuests_Ale);
+        mes "ShipQuests_Astapolos: " + getq(ShipQuests_Astapolos);
+        mes "ShipQuests_Gulukan: " + getq(ShipQuests_Gulukan);
+        mes "ShipQuests_Jalad: " + getq(ShipQuests_Jalad);
+        mes "ShipQuests_QMuller: " + getq(ShipQuests_QMuller);
+        mes "ShipQuests_Tibbo: " + getq(ShipQuests_Tibbo);
+        next;
+
+        GenericQuestDebug ShipQuests_Gugli,
+            l("Does not have the quest"), 0,
+            l("Gugli asks to collect packages"), 1,
+            menuimage("actions/manage", l("Reset subquests")), -1,
+            menuimage("actions/manage", l("Set subquests as completed")), -2,
+            l("Got reward from gugli"), 2;
+
+        switch (@menuret)
+        {
+            case 0:
+            case 2:
+            case -1:
+            case -2:
+                .@v = (@menuret == -2 || @menuret == 2);
+                setq ShipQuests_Ale, .@v;
+                setq ShipQuests_Astapolos, .@v;
+                setq ShipQuests_Gulukan, .@v;
+                setq ShipQuests_Jalad, .@v;
+                setq ShipQuests_QMuller, .@v;
+                setq ShipQuests_Tibbo, .@v;
+                break;
+            default: if (@menuret < 0) return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/017-ShipQuests_ChefGado.txt b/npc/functions/quest-debug/017-ShipQuests_ChefGado.txt
new file mode 100644
index 000000000..05e8cdb09
--- /dev/null
+++ b/npc/functions/quest-debug/017-ShipQuests_ChefGado.txt
@@ -0,0 +1,30 @@
+// Gado quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug17	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ShipQuests_ChefGado";
+        mes "---";
+        mes l("Quest state: @@", getq(ShipQuests_ChefGado));
+        next;
+
+        GenericQuestDebug ShipQuests_ChefGado,
+            l("Does not have the quest"), 0,
+            l("Nard asks to solve conflict"), 1,
+            l("Got poison from Gado"), 2,
+            l("Poisoned Julia"), 3,
+            l("Completed, Gado wins"), 4,
+            l("Completed, Julia wins (returned poison)"), 5,
+            l("Completed, Julia wins"), 6;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/018-General_Cookies.txt b/npc/functions/quest-debug/018-General_Cookies.txt
new file mode 100644
index 000000000..16c7bcd75
--- /dev/null
+++ b/npc/functions/quest-debug/018-General_Cookies.txt
@@ -0,0 +1,25 @@
+// Cookie quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug18	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "General_Cookies";
+        mes "---";
+        mes l("Quest state: @@", getq(General_Cookies));
+        next;
+
+        GenericQuestDebug General_Cookies,
+            l("Does not have the quest"), 0,
+            l("Got a cookie"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/019-ArtisQuests_LazyBrother.txt b/npc/functions/quest-debug/019-ArtisQuests_LazyBrother.txt
new file mode 100644
index 000000000..41733adf8
--- /dev/null
+++ b/npc/functions/quest-debug/019-ArtisQuests_LazyBrother.txt
@@ -0,0 +1,28 @@
+// Lazy brother quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug19	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ArtisQuests_LazyBrother";
+        mes "---";
+        mes l("Quest state: @@", getq(ArtisQuests_LazyBrother));
+        next;
+
+        GenericQuestDebug ArtisQuests_LazyBrother,
+            l("Does not have the quest"), 0,
+            l("Katja asked for help"), 1,
+            l("Found bobo, didn't tell Katja"), 2,
+            l("Told bobo to go home"), 3,
+            l("Katja gave reward"), 4;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/020-ArtisQuests_Urchin.txt b/npc/functions/quest-debug/020-ArtisQuests_Urchin.txt
new file mode 100644
index 000000000..3a092e478
--- /dev/null
+++ b/npc/functions/quest-debug/020-ArtisQuests_Urchin.txt
@@ -0,0 +1,26 @@
+// Urchin quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug20	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ArtisQuests_Urchin";
+        mes "---";
+        mes l("Quest state: @@", getq(ArtisQuests_Urchin));
+        next;
+
+        GenericQuestDebug ArtisQuests_Urchin,
+            l("Does not have the quest"), 0,
+            l("Moon needs @@", l("Croc Claw")), 1,
+            l("Found @@, got exp", l("Croc Claw")), 2;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/021-ArtisQuests_CatchPiou.txt b/npc/functions/quest-debug/021-ArtisQuests_CatchPiou.txt
new file mode 100644
index 000000000..f9c45339e
--- /dev/null
+++ b/npc/functions/quest-debug/021-ArtisQuests_CatchPiou.txt
@@ -0,0 +1,26 @@
+// Piou quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug21	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ArtisQuests_CatchPiou";
+        mes "---";
+        mes l("Quest state: @@", getq(ArtisQuests_CatchPiou));
+        next;
+
+        GenericQuestDebug ArtisQuests_CatchPiou,
+            l("Does not have the quest"), 0,
+            l("Salem asks to catch piou"), 1,
+            l("Returned piou to Salem"), 2;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/022-ArtisQuests_Fishman.txt b/npc/functions/quest-debug/022-ArtisQuests_Fishman.txt
new file mode 100644
index 000000000..0a193e6fe
--- /dev/null
+++ b/npc/functions/quest-debug/022-ArtisQuests_Fishman.txt
@@ -0,0 +1,26 @@
+// Eugene quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug22	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ArtisQuests_Fishman";
+        mes "---";
+        mes l("Quest state: @@", getq(ArtisQuests_Fishman));
+        next;
+
+        GenericQuestDebug ArtisQuests_Fishman,
+            l("Does not have the quest"), 0,
+            l("Eugene needs tentacles"), 1,
+            l("Gave tentacles, got reward"), 2;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/023-ArtisQuests_QOnan.txt b/npc/functions/quest-debug/023-ArtisQuests_QOnan.txt
new file mode 100644
index 000000000..02eaa8f60
--- /dev/null
+++ b/npc/functions/quest-debug/023-ArtisQuests_QOnan.txt
@@ -0,0 +1,27 @@
+// Q'Onan quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug23	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ArtisQuests_QOnan";
+        mes "---";
+        mes l("Quest state: @@", getq(ArtisQuests_QOnan));
+        next;
+
+        GenericQuestDebug ArtisQuests_QOnan,
+            l("Does not have the quest"), 0,
+            l("Q'Onan asks to find chest"), 1,
+            l("Found the chest"), 2,
+            l("Gave to Q'Onan, got reward"), 3;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/026-General_Rumly.txt b/npc/functions/quest-debug/026-General_Rumly.txt
new file mode 100644
index 000000000..c533c27a0
--- /dev/null
+++ b/npc/functions/quest-debug/026-General_Rumly.txt
@@ -0,0 +1,27 @@
+// Rumly quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug26	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "General_Rumly";
+        mes "---";
+        mes l("Quest state: @@", getq(General_Rumly));
+        next;
+
+        GenericQuestDebug General_Rumly,
+            l("Does not have the quest"), 0,
+            l("Rumly needs your help"), 1,
+            l("Rumly wants @@", l("Plushroom")), 2,
+            l("Gave @@ to Rumly", l("Plushroom")), 3;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/027-ArtisQuests_Enora.txt b/npc/functions/quest-debug/027-ArtisQuests_Enora.txt
new file mode 100644
index 000000000..9121ceb30
--- /dev/null
+++ b/npc/functions/quest-debug/027-ArtisQuests_Enora.txt
@@ -0,0 +1,49 @@
+// Newbie quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug27	{
+    do
+    {
+        clear();
+        setnpcdialogtitle(l("Quest debug"));
+        mes("ArtisQuests_Enora");
+        mes("---");
+        mes(l("Quest state: @@, @@",
+            getq(ArtisQuests_Enora),
+            getq2(ArtisQuests_Enora)));
+        next();
+
+        GenericQuestDebug(ArtisQuests_Enora,
+            l("Does not have the quest"), 0,
+            l("Enora asks to visit Chelios"), 1,
+            l("Chelios asks to visit Lloyd"), 2,
+            l("Lloyd gave package"), 3,
+            l("Chelios made sword"), 4,
+            l("Enora asks to visit Resa"), 5,
+            l("Resa gave package"), 6,
+            l("Enora asks to visit Q'Pid"), 7,
+            l("Lost the riddle"), 8,
+            l("Ivan gave package"), 9,
+            l("Enora asks to kill fluffies"), 10,
+            l("Completed, got reward"), 11);
+
+        switch (@menuret)
+        {
+            case 0:
+            case 1:
+            case 2:
+            case 3:
+            case 4:
+            case 5:
+            case 6:
+            case 7:
+            case 8:
+            case 9:
+            case 10: setq(ArtisQuests_Enora, getq(ArtisQuests_Enora), 0); break;
+            case 11: setq(ArtisQuests_Enora, getq(ArtisQuests_Enora), 10); break;
+            default: if (@menuret < 0) return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/028-General_Narrator.txt b/npc/functions/quest-debug/028-General_Narrator.txt
new file mode 100644
index 000000000..408668b7a
--- /dev/null
+++ b/npc/functions/quest-debug/028-General_Narrator.txt
@@ -0,0 +1,25 @@
+// Narrator debug
+// Author:
+//    gumi
+
+function	script	QuestDebug28	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "General_Narrator";
+        mes "---";
+        mes l("Quest state: @@", getq(General_Narrator));
+        next;
+
+        GenericQuestDebug General_Narrator,
+            l("Game introduction"), 0,
+            l("Visited Artis at least once"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/029-ArtisQuests_Fexil.txt b/npc/functions/quest-debug/029-ArtisQuests_Fexil.txt
new file mode 100644
index 000000000..9c0d7945d
--- /dev/null
+++ b/npc/functions/quest-debug/029-ArtisQuests_Fexil.txt
@@ -0,0 +1,27 @@
+// Fexil quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug29	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ArtisQuests_Fexil";
+        mes "---";
+        mes l("Quest state: @@", getq(ArtisQuests_Fexil));
+        next;
+
+        GenericQuestDebug ArtisQuests_Fexil,
+            l("Does not have the quest"), 0,
+            l("Lloyd gave pass"), 1,
+            l("Fexil needs help"), 2,
+            l("Fexil wants to buy fur"), 3;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/030-ArtisQuests_Lloyd.txt b/npc/functions/quest-debug/030-ArtisQuests_Lloyd.txt
new file mode 100644
index 000000000..0afb019c8
--- /dev/null
+++ b/npc/functions/quest-debug/030-ArtisQuests_Lloyd.txt
@@ -0,0 +1,25 @@
+// Lloyd quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug30	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ArtisQuests_Lloyd";
+        mes "---";
+        mes l("Quest state: @@", getq(ArtisQuests_Lloyd));
+        next;
+
+        GenericQuestDebug ArtisQuests_Lloyd,
+            l("Does not have the quest"), 0,
+            l("Registered"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/031-General_Janus.txt b/npc/functions/quest-debug/031-General_Janus.txt
new file mode 100644
index 000000000..f97b4fbeb
--- /dev/null
+++ b/npc/functions/quest-debug/031-General_Janus.txt
@@ -0,0 +1,31 @@
+// Janus quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug31	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "General_Janus";
+        mes "---";
+        mes l("Quest state: @@", getq(General_Janus));
+        next;
+
+        GenericQuestDebug General_Janus,
+            l("Does not have the quest"), 0,
+            l("Talked to Janus"), 1,
+            l("Can create party"), 2,
+            l("Can create guild"), 3;
+
+        switch (@menuret)
+        {
+            case 0:
+            case 1: skill NV_BASIC, min(6, getskilllv(NV_BASIC)), 0; break;
+            case 2:
+            case 3: skill NV_BASIC, max(7, getskilllv(NV_BASIC)), 0; break;
+            default: if (@menuret < 0) return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/032-ArtisQuests_MonaDad.txt b/npc/functions/quest-debug/032-ArtisQuests_MonaDad.txt
new file mode 100644
index 000000000..68ba67fe9
--- /dev/null
+++ b/npc/functions/quest-debug/032-ArtisQuests_MonaDad.txt
@@ -0,0 +1,25 @@
+// Mona quest debug
+// Author:
+//    gumi
+
+function	script	QuestDebug32	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "ArtisQuests_MonaDad";
+        mes "---";
+        mes l("Quest state: @@", getq(ArtisQuests_MonaDad));
+        next;
+
+        GenericQuestDebug ArtisQuests_MonaDad,
+            l("Does not have the quest"), 0,
+            l("Mona's dad is missing"), 1;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/033-Artis_Legion_Progress.txt b/npc/functions/quest-debug/033-Artis_Legion_Progress.txt
new file mode 100644
index 000000000..c4ea5558a
--- /dev/null
+++ b/npc/functions/quest-debug/033-Artis_Legion_Progress.txt
@@ -0,0 +1,30 @@
+// Mona quest debug
+// Authors:
+//    gumi
+//    monwarez
+
+function	script	QuestDebug33	{
+    do
+    {
+        clear;
+        setnpcdialogtitle l("Quest debug");
+        mes "Artis_Legion_Progress";
+        mes "---";
+        mes l("Quest state: @@", getq(Artis_Legion_Progress));
+        next;
+
+        GenericQuestDebug Artis_Legion_Progress,
+            l("Does not have the quest"), 0,
+            l("Sent to training"), 1,
+            l("Finished  training"), 2,
+            l("Sent to battle"), 3,
+            l("Finished battle"), 4,
+            l("Sent to Q'Anon"), 5;
+
+        if (@menuret < 0)
+        {
+            return;
+        }
+
+    } while (1);
+}
diff --git a/npc/functions/quest-debug/functions.txt b/npc/functions/quest-debug/functions.txt
new file mode 100644
index 000000000..f89adfab7
--- /dev/null
+++ b/npc/functions/quest-debug/functions.txt
@@ -0,0 +1,109 @@
+// Evol functions.
+// Author:
+//     gumi
+// Description:
+//     generic quest debug functions
+
+
+
+// GenericQuestDebug
+//     makes a generic quest debug menu for the given quest when the server
+//     is in debug mode.
+
+function	script	GenericQuestDebug	{
+    if (!debug && !is_admin())
+    {
+        select
+            menuimage("actions/back", l("Go back"));
+
+        @menuret = -0x7FFFFFFF;
+        return 1;
+    }
+
+    mes l("Choose desired quest state:");
+
+    deletearray .@vals;
+    .@menustr$ = menuimage("actions/abort", l("Do nothing")) + ":";
+    .@vals[0] = -0x7FFFFFFF;
+    .@cnt = 1;
+
+    for (.@f = 1; .@f < getargcount(); .@f += 2)
+    {
+        if (getarg(.@f) != "")
+        {
+            .@qv = getarg(.@f + 1);
+            .@s$ = menuimage("actions/" + (.@qv ? "edit" : "reset"), "[" + .@qv + "] " + getarg(.@f));
+            .@menustr$ += (.@qv < 0 ? getarg(.@f) : .@s$) + ":";
+            .@vals[.@cnt] = .@qv;
+            ++.@cnt;
+        }
+    }
+
+    if (is_admin())
+    {
+        .@menustr$ += menuimage("actions/nuke", l("Set state manually"));
+        .@vals[.@cnt] = -0x7FFFFFFE;
+    }
+
+
+    @menu = 255;
+    @menuret = -1;
+    select(.@menustr$);
+    if (@menu == 255)
+        return -1;
+
+    --@menu;
+    if (@menu < 0 || @menu >= getarraysize(.@vals))
+        return -1;
+
+    @menuret = .@vals[@menu];
+
+    switch (@menuret)
+    {
+        case -0x7FFFFFFE: input @menuret; setq getarg(0,0), @menuret;
+        case -0x7FFFFFFF: return 1;
+    }
+
+    if (@menuret >= 0)
+    {
+        setq getarg(0,0), @menuret;
+    }
+    return;
+}
+
+
+
+// selectd
+//     like a normal select() but gives access to quest debug
+//
+//     quest id can either be passed as first argument
+//     or as the .quest_debug npc variable
+
+function	script	selectd	{
+    .@menustr$ = rif(debug, menuaction(l("debug")));
+    .@count = getargcount();
+    .@f = 0;
+    .@questID = getvariableofnpc(.quest_debug, strnpcinfo(0));
+
+    if (.@count > 1 && !isstr(getarg(0)))
+    {
+        ++.@f;
+        .@questID = getarg(0);
+    }
+
+    for (; .@f < .@count; ++.@f)
+    {
+        .@menustr$ += ":" + getarg(.@f);
+    }
+
+    @menu = 255;
+    select .@menustr$;
+
+    switch (@menu)
+    {
+        case -1:
+        case 255: return -1;
+        default: @menu -= 1; return @menu; // FIXME: here I would have done `return --@menu;` but hercules prevents this
+        case 1: callfunc "QuestDebug" + .@questID; closedialog; end;
+    }
+}