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

L_Rand:
    @mirror_rnd = @mirror_rnd + 1;
    @style = rand(1,getarraysize(@HairStyles$));
    @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)
    @fixedMirror = 0;
    @mirror_rnd = 0;
    return;
}