summaryrefslogtreecommitdiff
path: root/world/map/npc/functions
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc/functions')
-rw-r--r--world/map/npc/functions/barber.txt54
1 files changed, 48 insertions, 6 deletions
diff --git a/world/map/npc/functions/barber.txt b/world/map/npc/functions/barber.txt
index f4ad055d..09282106 100644
--- a/world/map/npc/functions/barber.txt
+++ b/world/map/npc/functions/barber.txt
@@ -2,6 +2,7 @@
// so it's hard to figure out who wrote it.
// o11c updated it according to new scripting standards while adding pink.
+// ... and added the code that shows your old color/style.
// Note: there is a soft limit of 12 colors (0-11) and 20 styles (0-19)
// This is the number that can be set when creating a character
@@ -9,11 +10,23 @@
// any value 0-255
function|script|Barber|{
- // TODO do something like this, but with names
- //set @style, getlook(LOOK_HAIR_STYLE);
- //set @color, getlook(LOOK_HAIR_COLOR);
- //mes "Your current style is " + @style + " and your current color is " + @color + ".";
+ set @style, getlook(LOOK_HAIR_STYLE);
+ set @color, getlook(LOOK_HAIR_COLOR);
+ set @style$, "Unknown";
+ set @color$, "Unknown";
+ if (@style >= 0 && @style < 20)
+ set @style$, $@HairStyles$[@style];
+ if (@color >= 0 && color < 20)
+ set @color$, $@HairColors$[@color];
+ if (@color == 127)
+ set @color$, "Shocked White";
+
+ mes "Your current style is " + @style$ + " and your current color is " + @color$ + ".";
+ set @style$, "";
+ set @color$, "";
+
+L_Main:
menu
"Change my style", L_Style,
"Change my color", L_Color,
@@ -44,6 +57,9 @@ L_Style:
"Surprise me", L_RandomStyle,
"Nah, I'm fine", L_Done;
+ if (@menu - 1 == @style)
+ goto L_SameStyle;
+
setlook LOOK_HAIR_STYLE, @menu - 1;
goto L_Done;
@@ -51,6 +67,10 @@ L_RandomStyle:
setlook LOOK_HAIR_STYLE, rand(20);
goto L_Done;
+L_SameStyle:
+ mes "Your hair was already that style";
+ goto L_Main;
+
L_Color:
menu
"Brunette", -,
@@ -68,6 +88,9 @@ L_Color:
"Surprise me", L_RandomColor,
"Nah, I'm fine", L_Done;
+ if (@menu - 1 == @color)
+ goto L_SameColor;
+
setlook LOOK_HAIR_COLOR, @menu - 1;
goto L_Done;
@@ -75,10 +98,29 @@ L_RandomColor:
setlook LOOK_HAIR_COLOR, rand(12);
goto L_Done;
+L_SameColor:
+ mes "Your hair was already that color";
+ goto L_Main;
+
L_Done:
// cleanup
set @menu, 0;
- //set @style, 0;
- //set @color, 0;
+ set @style, 0;
+ set @color, 0;
+ return;
+}
+
+// Since this is a function, not an NPC, OnInit doesn't work
+// So call this from a real NPC's OnInit (001-1/barber.txt)
+function|script|OnInitBarber|{
+ setarray $@HairStyles$,
+ "Bald", "Flat ponytail", "Bowl cut", "Combed back", "Emo", "Mohawk",
+ "Pompadour", "Center parting/Short and slick", "Long and slick",
+ "Short and curly", "Pigtails", "Long and curly", "Parted",
+ "Perky ponytail", "Wave", "Mane", "Bun", "Shoulder Length Flick",
+ "Fizzy", "Bald";
+ setarray $@HairColors$,
+ "Brunette", "Green", "Dark red", "Light purple", "Gray", "Blonde",
+ "Teal", "Light red", "Blue", "Dark purple", "Black", "Pink";
return;
}