function|script|useMirror
{
    callfunc "getHeadStyles";
    goto L_Rand;

L_Rand:
    set @mirror_rnd, @mirror_rnd + 1;
    set @style, rand(1,getarraysize(@HairStyles$));
    set @color, rand((15 * (Class - 1)),((15 * (Class - 1)) + (getarraysize(@HairColors$) - 1)));
    if(((getlook(LOOK_HAIR_STYLE) == @style) || (getlook(LOOK_HAIR_COLOR) == @color)) && @mirror_rnd < 15)
        goto L_Rand;
    if(@fixedMirror)
        setlook LOOK_HAIR_STYLE, @style;
    setlook LOOK_HAIR_COLOR, @color;
    //if(!@fixedMirror) getitem "SilverMirror", 1; <== this can be used in the future to have a portable hair color changer (like scissors but for the color)
    set @fixedMirror, 0;
    set @mirror_rnd, 0;
    return;
}