function	script	fixHeadStyles	{
    callfunc "getHeadStyles";
    if (!HELLOWORLD)
        goto L_RandomHair;
    set @style, getlook(LOOK_HAIR); // FIXME: this needs to be a param in the future
    set @color, getlook(LOOK_HAIR_COLOR); // FIXME: this needs to be a param in the future
    debugmes "Login OK";
    return;
    if (@color >= 123 && @color <= HC_WHITE) // convert shock white
        @color = (HC_WHITE - Class) + 1;
    if (@color < 105 && ((@color - (15 * (Class - 1))) < 0 || @color > ((15 * (Class - 1)) + (getarraysize(@HairColors$) - 1))))
        set @color, 15 * (Class - 1); // it is possible to style color 0 but not style 0 since style is treated as an item
    setlook LOOK_HAIR_COLOR, @color; // FIXME: this needs to be a param in the future
    return;

L_RandomHair:
    HELLOWORLD=true;
    //resetstatus; // <= important! gives 48 stat points
    debugmes "Set random look....";
    setlook LOOK_HAIR, rand(1, getarraysize(@HairStyles$));
    setlook LOOK_HAIR_COLOR, rand(15);
    return;
}

function	script	getHeadStyles	{
    cleararray @HairStyles$, "", getarraysize(@HairStyles$);
    cleararray @HairColors$, "", getarraysize(@HairColors$);

    if   (Class == 2) goto L_Tritan;
    else if (Class == 3) goto L_Ifriton;
    else if (Class == 4) goto L_Gispaan;
    else if (Class == 5) goto L_Sparron;
    else set Class, 1; // we can not style custom classes, so reset when using the barber
    goto L_Talpan;

L_Talpan:
    setarray @HairStyles$[0],
        "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", "Long and Clipped";
    setarray @HairColors$[0],
        "Brunette", "Green", "Dark red", "Light purple", "Gray", "Blonde",
        "Teal", "Light red", "Blue", "Dark purple", "Black", "Pink",
        "Brown";//, "(free slot)", "(free slot)";
    return;

L_Tritan:
    setarray @HairStyles$[0],
        "1",  "2",  "3",  "4",  "5",
        "6",  "7",  "8",  "9",  "10",
        "11", "12", "13", "14", "15",
        "16", "17", "18", "19", "20";
    setarray @HairColors$[0],
        "1",  "2",  "3",  "4",  "5",
        "6",  "7",  "8",  "9",  "10",
        "11", "12", "13", "14", "15";
    return;

L_Gispaan:
    setarray @HairStyles$[0],
        "1",  "2",  "3",  "4",  "5",
        "6",  "7",  "8",  "9",  "10",
        "11", "12", "13", "14", "15",
        "16", "17", "18", "19", "20";
    setarray @HairColors$[0],
        "1",  "2",  "3",  "4",  "5",
        "6",  "7",  "8",  "9",  "10",
        "11", "12", "13", "14", "15";
    return;

L_Sparron:
    setarray @HairStyles$[0],
        "1",  "2",  "3",  "4",  "5",
        "6",  "7",  "8",  "9",  "10",
        "11", "12", "13", "14", "15",
        "16", "17", "18", "19", "20";
    setarray @HairColors$[0],
        "1",  "2",  "3",  "4",  "5",
        "6",  "7",  "8",  "9",  "10",
        "11", "12", "13", "14", "15";
    return;

L_Ifriton:
    setarray @HairStyles$[0],
        "1",  "2",  "3",  "4",  "5",
        "6",  "7",  "8",  "9",  "10",
        "11", "12", "13", "14", "15",
        "16", "17", "18", "19", "20";
    setarray @HairColors$[0],
        "1",  "2",  "3",  "4",  "5",
        "6",  "7",  "8",  "9",  "10",
        "11", "12", "13", "14", "15";
    return;
}

// Hairstyle config
// set array of style and colors
-	script	hairstyle_config	NPC_HIDDEN,{
    end;

OnInit:
    setarray $@hairstyle$[0], "(none)", "Bald", "Bowl cut", "Combed back",
       "Emo", "Mohawk", "Pompadour", "Center parting", "Long and slick",
       "Short and curly", "Pigtails", "Long and curly", "Parted",
       "Perky ponytail", "Wave", "Mane", "Bun", "Wavy", "Bunches",
       "Long ponytail", "Infinitely long", "Choppy", "Wild", "Punk",
       "Imperial", "Side strand", "Messy", "Flat ponytail",
       "Tapered Nape";

    setarray $@haircolor$[0], "Off black", "Ash brown", "Dark brown",
       "Dark copper", "Auburn brown", "Honey brown", "Copper blonde",
       "Golden blonde", "Pure platinum", "Cherry blossom", "Pinky pink",
       "Fire red", "Light violet", "Purple plum", "Navy blue",
       "Lagoon blue", "Twisted teal", "Spring Green", "Forest Green",
       "Silver Grey", "Esperia Blue";

    setarray $@REFEXP[0], 400, 900, 2250, 6500, 15000;
    end;
}