function|script|useScissors|{
    if (rand(3))
        goto L_Change;
    message strcharinfo(0), "Whoops!";
    itemheal -20 - rand(Hp >> 1), 0;
    getitem "Scissors", 1;
    end;

L_Change:
    setlook LOOK_HAIR_STYLE, rand(20);
    getitem "Scissors", 1;
    end;
}