Discard the idea of making this a skill: Make this a command, stash it at Tamiloc.

Hack a tiny bit. Call it a day. Mission accomplished.

1 files changed, 22 insertions, 0 deletions

diff --git a/npc/003-6/tamiloc.txt b/npc/003-6/tamiloc.txt
index 6f883980d..cb2e11f1c 100644
--- a/npc/003-6/tamiloc.txt
+++ b/npc/003-6/tamiloc.txt
@@ -36,6 +36,7 @@
 
     mesn;
     mesq l("Hi! Do you want a hair cut?");
+    if (REBIRTH >= 5) mesc l("As a Savior, \"%s\" can be used anytime for minor look changes, but a barber is more convenient.", b("@suplook"));
 
     do
     {
@@ -75,9 +76,30 @@
     } while (1);
     close;
 
+OnSaviorCall:
+    if (REBIRTH < 5) end;
+    if (Sp < 200) end;
+    mesc l("How do you want to look?");
+    mesc l("* This skill cannot change your hair length or style.");
+    mesc l("Cost: %d MP", 200);
+    select
+        l("Nooo! I want my MP back!"),
+        rif(is_gm() || REBIRTH >= 5, l("I want to change my Race!")),
+        l("I want to change my hair color.");
+    mes "";
+    switch (@menu) {
+    case 2:
+        Sp -= 200; setRace();
+        break;
+    case 3:
+        Sp -= 200; BarberChangeColor();
+        break;
+    }
+    close;
 
 OnInit:
     .sex = G_FEMALE;
     .distance = 5;
+    bindatcmd "suplook", "Tamiloc::OnSaviorCall", 0, 100, 1;
     end;
 }