summaryrefslogtreecommitdiff
path: root/world/map/npc/functions/barber.txt
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc/functions/barber.txt')
-rw-r--r--world/map/npc/functions/barber.txt129
1 files changed, 75 insertions, 54 deletions
diff --git a/world/map/npc/functions/barber.txt b/world/map/npc/functions/barber.txt
index 8d0a32e3..f4ad055d 100644
--- a/world/map/npc/functions/barber.txt
+++ b/world/map/npc/functions/barber.txt
@@ -1,63 +1,84 @@
-//
+// The Barber script has been around since before the repository split
+// so it's hard to figure out who wrote it.
-function script Barber {
- menu
- "Change my style", L_Style,
- "Change my color", L_Color,
- "Nah, I'm fine", L_Done;
+// o11c updated it according to new scripting standards while adding pink.
- goto L_Done;
+// 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
+// or using GM commands, but scripts (such as this one) can set
+// 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 + ".";
+
+ menu
+ "Change my style", L_Style,
+ "Change my color", L_Color,
+ "Nah, I'm fine", L_Done;
L_Style:
- menu
- "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", -,
- "Surprise me", -,
- "Nah, I'm fine", L_Done;
-
-L_Process_Style:
- set @style, @menu - 1;
- if (@style == 19) set @style, rand(19);
- setlook 1, @style;
- return;
+ menu
+ "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", -,
+ // "Last normal style (currently displayed as bald)", -,
+ "Surprise me", L_RandomStyle,
+ "Nah, I'm fine", L_Done;
+
+ setlook LOOK_HAIR_STYLE, @menu - 1;
+ goto L_Done;
+
+L_RandomStyle:
+ setlook LOOK_HAIR_STYLE, rand(20);
+ goto L_Done;
L_Color:
- menu
- "Brunette", -,
- "Green", -,
- "Dark red", -,
- "Light purple", -,
- "Gray", -,
- "Blonde", -,
- "Teal", -,
- "Light red", -,
- "Blue", -,
- "Dark purple", -,
- "Black", -,
- "Surprise me", -,
- "Nah, I'm fine", L_Done;
- set @color, @menu - 1;
- if (@color == 11) set @color, rand(11);
- setlook 6, @color;
- return;
+ menu
+ "Brunette", -,
+ "Green", -,
+ "Dark red", -,
+ "Light purple", -,
+ "Gray", -,
+ "Blonde", -,
+ "Teal", -,
+ "Light red", -,
+ "Blue", -,
+ "Dark purple", -,
+ "Black", -,
+ "Pink", -,
+ "Surprise me", L_RandomColor,
+ "Nah, I'm fine", L_Done;
+
+ setlook LOOK_HAIR_COLOR, @menu - 1;
+ goto L_Done;
+
+L_RandomColor:
+ setlook LOOK_HAIR_COLOR, rand(12);
+ goto L_Done;
L_Done:
- return;
+ // cleanup
+ set @menu, 0;
+ //set @style, 0;
+ //set @color, 0;
+ return;
}