Piou isles fixes patch

1 files changed, 55 insertions, 0 deletions

diff --git a/npc/006-2-1/miltaco.txt b/npc/006-2-1/miltaco.txt
new file mode 100644
index 000000000..427b9a47a
--- /dev/null
+++ b/npc/006-2-1/miltaco.txt
@@ -0,0 +1,55 @@
+// TMW2 scripts.
+// Authors:
+//    Saulc
+//    Jesusalva
+//    Reid
+//    Travolta
+// Modified by:
+//	  +seeds
+// Description:
+//    Miltaco is the barber.
+
+006-2-1,85,67,0	script	Miltaco	NPC_PIOU_BARBER,{
+     mesn;
+    mesq l("Hi! I'm Miltaco, a piou specialist in humanoid hairstyles. Do you want a hair cut?");
+
+    do
+    {
+        select
+            l("What is my current hairstyle and hair color?"),
+            l("I'd like to get a different style."),
+            l("Can you do something with my color?"),
+            l("I'm allergic to pious, goodbye.");
+
+        switch (@menu)
+        {
+            case 1:
+                BarberSayStyle 2;
+                break;
+            case 2:
+                BarberChangeStyle;
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Enjoy your new style.");
+                    l("Anything else?");
+                break;
+            case 3:
+                BarberChangeColor;
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("I hope you like this color.");
+                    l("Anything else?");
+                break;
+            case 4:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Come and visit again!");
+
+                goodbye;
+        }
+    } while (1);
+    close;
+
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 5;
+    end;
+}