Add the [Clothes Pack], containing the destroyed equipment from the player.

This item is obtained from Doomsday event epilogue.
 “Contains merge items which can be restored by a skilled NPC”.
The name of this NPC is... Perhaps, Gumi? %%M :>

4 files changed, 46 insertions, 2 deletions

diff --git a/db/re/item_db.conf b/db/re/item_db.conf
index 858b4d25..1a5ce55c 100644
--- a/db/re/item_db.conf
+++ b/db/re/item_db.conf
@@ -1805,6 +1805,23 @@ item_db: (
     Weight: 150
     Slots: 0
 },
+{
+    Id: 807
+    AegisName: "ClothesPack"
+    Name: "Clothes Pack"
+    Type: "IT_ETC"
+    Buy: 0
+    Sell: 0
+    Weight: 25
+    Trade: {
+        nodrop: true
+        notrade: true
+        noselltonpc: true
+        noauction: true
+        nomail: true
+        nogstorage: true
+    }
+},
 // Necklaces
 {
     Id: 1000
diff --git a/npc/000-2-1/arpan.txt b/npc/000-2-1/arpan.txt
index 98cd05dc..8c06ce48 100644
--- a/npc/000-2-1/arpan.txt
+++ b/npc/000-2-1/arpan.txt
@@ -7,6 +7,7 @@
 // Variable:
 //    0 ShipQuests_Arpan
 //    1 ShipQuests_Julia
+//    2 ShipQuests_ArpanMoney
 // Values:
 //    00   Has not talked to Arpan yet.
 //    01   Talked to Arpan and needs to get the clothes.
@@ -15,6 +16,10 @@
 //    10   Has not talked to Julia
 //    11   Need to see Julia
 //    12   Has been registered by Julia
+//    20   Does not knows about money
+//    21   Has not taken possession from Arpan
+//    22   Took money from Arpan
+//    23   Took money and clothes (Legacy only)
 
 000-2-1,49,36,0	script	LeftDoorCheck	NPC_HIDDEN,0,0,{
     .@q = getq(ShipQuests_Arpan);
@@ -84,6 +89,7 @@ L_EquipDone:
     close;
 }
 
+/////////////////////////////////////////////////////////////////////////////
 000-2-1,49,33,0	script	Magic Arpan	NPC_MAGIC_ARPAN,{
     .@q = getq(ShipQuests_Arpan);
     .@q_nard = getq(ShipQuests_Nard);
@@ -152,6 +158,7 @@ L_Menu:
         l("Who are you?"), L_Who,
         rif(getq(ShipQuests_ArpanMoney) == 1, lg("Do you know what happened to the gold I had when you guys saved me?")), L_WhereMoney,
         rif(getq(ShipQuests_ArpanMoney) < 2, l("Where are my old clothes?")), L_WhereOldClothes,
+        rif(getq(ShipQuests_ArpanMoney) == 2 && LEGACY, l("About my my old clothes...")), L_LegacyClothes,
         rif(!.@equipped, lg("What should I do after taking these clothes?")), L_WhatCloth,
         rif(!.@equipped, l("Thank you, I'll take them and put them on.")), -,
         l("Nothing, sorry."), -;
@@ -204,6 +211,25 @@ L_WhereOldClothes:
     Zeny += 10;
     message strcharinfo(0), l("You receive @@ E!", 10);
 
+    if (LEGACY)
+        goto L_LegacyClothes;
+
+    goto L_BeforeMenu;
+
+L_LegacyClothes:
+    if (LEGACY) {
+        mesn strcharinfo(0);
+        select
+            lg("But... I remember that my clothes were very dear to me..."),
+            l("Oh okay.");
+        mes "";
+        if (@menu == 1) {
+            mesn;
+            mesq l("Well, you can have them back, but they're yayaya, mostly destroyed. Not sure what yeye are going to do with that.");
+            getitem ClothesPack, 1;
+            setq ShipQuests_ArpanMoney, 3;
+        }
+    }
     goto L_BeforeMenu;
 
 L_WhereMoney:
diff --git a/npc/000-2-3/elmo.txt b/npc/000-2-3/elmo.txt
index c623e321..4f4714f1 100644
--- a/npc/000-2-3/elmo.txt
+++ b/npc/000-2-3/elmo.txt
@@ -21,7 +21,7 @@
         sailortalk;
     }
 
-    if (getq(ShipQuests_ArpanMoney) == 2)
+    if (getq(ShipQuests_ArpanMoney) >= 2)
     {
         got_money;
     }
diff --git a/npc/functions/quest-debug/006-ShipQuests_ArpanMoney.txt b/npc/functions/quest-debug/006-ShipQuests_ArpanMoney.txt
index 00e2fbea..0f77c1b9 100644
--- a/npc/functions/quest-debug/006-ShipQuests_ArpanMoney.txt
+++ b/npc/functions/quest-debug/006-ShipQuests_ArpanMoney.txt
@@ -15,7 +15,8 @@ function	script	QuestDebug6	{
         GenericQuestDebug ShipQuests_ArpanMoney,
             l("Does not have the quest"), 0,
             l("Elmo told about money"), 1,
-            l("Arpan gave money"), 2;
+            l("Arpan gave money"), 2,
+            l("Arpan gave clothes"), 3;
 
         if (@menuret < 0)
         {