1 files changed, 28 insertions, 16 deletions
diff --git a/npc/024-15/lilanna.txt b/npc/024-15/lilanna.txt
index fab4ca3f5..5c349a9b8 100644
--- a/npc/024-15/lilanna.txt
+++ b/npc/024-15/lilanna.txt
@@ -19,6 +19,7 @@ L_Loop:
         l("Thanks."),
         l("What ANISE INC. Does?"),
         l("How to use best Warp Technology?"),
+        l("I would like to buy a Warp Crystal."),
         rif(countitem(BrokenWarpCrystal), l("My warp crystal broke!"));
     mes "";
     switch (@menu) {
@@ -60,6 +61,11 @@ L_Loop:
             next;
             break;
         case 4:
+            openshop();
+            closeclientdialog;
+            end;
+            break;
+        case 5:
             FixSelect();
             break;
     }
@@ -96,25 +102,25 @@ function FixSelect {
         mes l("You have: @@ Broken crystals", countitem(BrokenWarpCrystal));
         select
             l("Don't fix."),
-            rif(true, l("Candor - 2,500 GP")),
-            rif(TELEPORTERS & TP_TULIM, l("Tulimshar - 7,500 GP")),
-            rif(TELEPORTERS & TP_HURNS, l("Hurnscald - 7,500 GP")),
-            rif(TELEPORTERS & TP_NIVAL, l("Nivalis - 7,500 GP")),
-            rif(TELEPORTERS & TP_FROST|TP_HALIN, l("Land Of Fire - 12,000 GP")),
-            rif(TELEPORTERS & TP_HALIN, l("Halinarzo - 20,000 GP")),
-            rif(TELEPORTERS & TP_FROST, l("Frostia - 30,000 GP")),
-            rif(TELEPORTERS & TP_LILIT, l("Lilit - 50,000 GP (not exchangeable)"));
+            rif(true, l("Candor - @@ GP", format_number(1500))),
+            rif(TELEPORTERS & TP_TULIM, l("Tulimshar - @@ GP", format_number(2500))),
+            rif(TELEPORTERS & TP_HURNS, l("Hurnscald - @@ GP", format_number(2500))),
+            rif(TELEPORTERS & TP_NIVAL, l("Nivalis - @@ GP", format_number(2500))),
+            rif(TELEPORTERS & TP_FROST|TP_HALIN, l("Land Of Fire - @@ GP", format_number(5000))),
+            rif(TELEPORTERS & TP_HALIN, l("Halinarzo - @@ GP", format_number(10000))),
+            rif(TELEPORTERS & TP_FROST, l("Frostia - @@ GP", format_number(10000))),
+            rif(TELEPORTERS & TP_LILIT, l("Lilit - @@ GP (not exchangeable)", format_number(20000)));
         mes "";
         switch (@menu) {
             case 1: return;
-            case 2: FixCrystal(CandorWarpCrystal, 2500); break;
-            case 3: FixCrystal(TulimWarpCrystal, 7500); break;
-            case 4: FixCrystal(HurnsWarpCrystal, 7500); break;
-            case 5: FixCrystal(NivalWarpCrystal, 7500); break;
-            case 6: FixCrystal(LoFWarpCrystal, 12000); break;
-            case 7: FixCrystal(HalinWarpCrystal, 20000); break;
-            case 8: FixCrystal(FrostiaWarpCrystal, 30000); break;
-            case 9: FixCrystal(LilitWarpCrystal, 50000); break;
+            case 2: FixCrystal(CandorWarpCrystal, 1500); break;
+            case 3: FixCrystal(TulimWarpCrystal, 2500); break;
+            case 4: FixCrystal(HurnsWarpCrystal, 2500); break;
+            case 5: FixCrystal(NivalWarpCrystal, 2500); break;
+            case 6: FixCrystal(LoFWarpCrystal, 5000); break;
+            case 7: FixCrystal(HalinWarpCrystal, 10000); break;
+            case 8: FixCrystal(FrostiaWarpCrystal, 10000); break;
+            case 9: FixCrystal(LilitWarpCrystal, 20000); break;
         }
     } while (countitem(BrokenWarpCrystal));
     return;
@@ -159,9 +165,15 @@ OnInit:
              "wait", 10, 0;
     initialmove;
     initnpctimer;
+    tradertype(NST_MARKET);
+    sellitem BrokenWarpCrystal, 50000, 1;
 
     .sex = G_MALE;
     .distance = 5;
     end;
+
+OnClock2358:
+    restoreshopitem BrokenWarpCrystal, 50000, 1;
+    end;
 }