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

  L_Rand:
    set @style, rand(1,(getarraysize(@HairStyles$) -2));
    set @color, rand((15 * (Class - 1)),((getarraysize(@HairColors$) -2) + (15 * (Class - 1))));
    if((getlook(LOOK_HAIR_STYLE) == @style) || (getlook(LOOK_HAIR_COLOR) == @color))
      goto L_Rand;
    goto L_Proceed;

  L_Proceed:
    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;
    return;
}