Unify all Piano codes

7 files changed, 75 insertions, 366 deletions

diff --git a/npc/009-6/utils.txt b/npc/009-6/utils.txt
index 971bcf5b6..1053d7f6e 100644
--- a/npc/009-6/utils.txt
+++ b/npc/009-6/utils.txt
@@ -82,67 +82,7 @@ OnInit:
 
 
 009-6,34,25,0	script	Piano#RES_0096	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 "009-6", .@m$;
+    realestate_piano();
     close;
 
 OnInit:
diff --git a/npc/009-7/utils.txt b/npc/009-7/utils.txt
index bf4fef132..5bd8520c4 100644
--- a/npc/009-7/utils.txt
+++ b/npc/009-7/utils.txt
@@ -82,67 +82,7 @@ OnInit:
 
 
 009-7,34,25,0	script	Piano#RES_0097	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 "009-7", .@m$;
+    realestate_piano();
     close;
 
 OnInit:
diff --git a/npc/012-8/utils.txt b/npc/012-8/utils.txt
index 53c68e588..20e3e8a84 100644
--- a/npc/012-8/utils.txt
+++ b/npc/012-8/utils.txt
@@ -97,67 +97,7 @@ OnInit:
 
 
 012-8,34,25,0	script	Piano#RES_0128	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 "012-8", .@m$;
+    realestate_piano();
     close;
 
 OnInit:
diff --git a/npc/017-7/utils.txt b/npc/017-7/utils.txt
index 0e8275b41..10763ae52 100644
--- a/npc/017-7/utils.txt
+++ b/npc/017-7/utils.txt
@@ -98,67 +98,7 @@ OnInit:
 
 
 017-7,34,25,0	script	Piano#RES_0177	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 "017-7", .@m$;
+    realestate_piano();
     close;
 
 OnInit:
diff --git a/npc/017-8/utils.txt b/npc/017-8/utils.txt
index eab10357d..e903ac87f 100644
--- a/npc/017-8/utils.txt
+++ b/npc/017-8/utils.txt
@@ -98,67 +98,7 @@ OnInit:
 
 
 017-8,34,25,0	script	Piano#RES_0178	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 "017-8", .@m$;
+    realestate_piano();
     close;
 
 OnInit:
diff --git a/npc/024-14/utils.txt b/npc/024-14/utils.txt
index 646493b2d..7fd73a69f 100644
--- a/npc/024-14/utils.txt
+++ b/npc/024-14/utils.txt
@@ -96,67 +96,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:
diff --git a/npc/functions/estate.txt b/npc/functions/estate.txt
index e0290a12d..7bd5679da 100644
--- a/npc/functions/estate.txt
+++ b/npc/functions/estate.txt
@@ -262,3 +262,72 @@ function	script	realestate_manage	{
     return true;
 }
 
+
+// Piano Mobilia
+// realestate_piano ( {mapname} )
+function	script	realestate_piano	{
+    .@loc$=getarg(0, getmap());
+    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:
+            return; break;
+        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$;
+    return;
+}
+