function	script	useMirror	{
    goto L_Rand;

L_Rand:
    .@mirror_rnd = .@mirror_rnd + 1;
    @style = rand2(1, getarraysize($@hairstyle$)-1);
    @color = rand2(getarraysize($@haircolor$));
    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;
    return;
}