1 files changed, 2 insertions, 88 deletions
diff --git a/npc/024-14/utils.txt b/npc/024-14/utils.txt
index 646493b2d..ad9c51134 100644
--- a/npc/024-14/utils.txt
+++ b/npc/024-14/utils.txt
@@ -60,33 +60,7 @@ OnInit:
 
 
 024-14,28,27,0	script	Cauldron#RES_PPL	NPC_NO_SPRITE,{
-    select
-        l("Alchemy"),
-        l("Crafting");
-    mes "";
-    if (@menu == 1) {
-        do {
-            mesc l("What will you brew today?");
-            if (AlchemySystem(CRAFT_PLAYER))
-                mesc l("Success!"), 3;
-            else
-                mesc l("That didn't work!"), 1;
-            next;
-            mesc l("Try again?");
-        } while (askyesno() == ASK_YES);
-    }
-    else if (@menu == 2) {
-        do {
-            mesc l("What will you craft today?");
-            if (SmithSystem(CRAFT_PLAYER))
-                mesc l("Success!"), 3;
-            else
-                mesc l("That didn't work!"), 1;
-            next;
-            mesc l("Try again?");
-        } while (askyesno() == ASK_YES);
-    }
-
+    realestate_cauldron();
     close;
 
 OnInit:
@@ -96,67 +70,7 @@ OnInit:
 
 
 024-14,32,26,0	script	Piano#RES_PPL	NPC_NO_SPRITE,{
-    mesc l("Do you want to play a song?");
-    mesc l("This is not saved.");
-    select
-        l("Nothing"),
-        l("Default"),
-        l("Indoors 1 (Peace)"),
-        l("Indoors 2 (Dimonds)"),
-        l("TMW Adventure"),
-        l("Sailing Away!"),
-        l("Magick Real"),
-        l("The Forest"),
-        l("Dragons and Toast"),
-        l("Unforgiving Lands"),
-        l("Arabesque (Action)"),
-        l("No Chains (Tulimshar)"),
-        l("School of Quirks (Candor)"),
-        l("Cake Town (Hurnscald)"),
-        l("Steam (LoF Village)"),
-        l("Woodland Fantasy"),
-        l("Birds in the Sunrise");
-
-    mes "";
-    .@m$="";
-    switch (@menu) {
-        case 1:
-            close;
-        case 2:
-            .@m$="8bit_the_hero.ogg"; break;
-        case 3:
-            .@m$="peace.ogg"; break;
-        case 4:
-            .@m$="peace2.ogg"; break;
-        case 5:
-            .@m$="tmw_adventure.ogg"; break;
-        case 6:
-            .@m$="sail_away.ogg"; break;
-        case 7:
-            .@m$="magick_real.ogg"; break;
-        case 8:
-            .@m$="dariunas_forest.ogg"; break;
-        case 9:
-            .@m$="dragon_and_toast.ogg"; break;
-        case 10:
-            .@m$="Unforgiving_Lands.ogg"; break;
-        case 11:
-            .@m$="Arabesque.ogg"; break;
-        case 12:
-            .@m$="mvrasseli_nochains.ogg"; break;
-        case 13:
-            .@m$="school_of_quirks.ogg"; break;
-        case 14:
-            .@m$="caketown.ogg"; break;
-        case 15:
-            .@m$="steam.ogg"; break;
-        case 16:
-            .@m$="woodland_fantasy.ogg"; break;
-        case 17:
-            .@m$="tws_birds_in_the_sunrise.ogg"; break;
-
-    }
-    changemusic "ples@"+getcharid(0), .@m$;
+    realestate_piano();
     close;
 
 OnInit: