Piou isles basic NPCs

1 files changed, 54 insertions, 0 deletions

diff --git a/npc/006-2-1/camilot.txt b/npc/006-2-1/camilot.txt
new file mode 100644
index 000000000..8cd6b3c07
--- /dev/null
+++ b/npc/006-2-1/camilot.txt
@@ -0,0 +1,54 @@
+// TMW2 scripts.
+// Authors:
+//    Saulc
+//    Jesusalva
+//    Reid
+//    Travolta
+//    +Seeds
+// Description:
+//    Camilot is the barber.
+
+006-2-1,85,67,0	script	Camilot	NPC_PIOU_BARBER,{
+     mesn;
+    mesq l("Hi! I'm Camilot, 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 piou, 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;
+}