npc/items/scissors.txt


1
2
3
4
5
6
7
8
9
10
11
12

function	script	useScissors	{
    getitem "Scissors", 1;
    if (rand(3))
        goto L_Change;
    message strcharinfo(0), "Whoops!";
    heal -20 - rand(Hp >> 1), 0; // ???
    return;

L_Change:
    setlook LOOK_HAIR_STYLE, rand(1,getarraysize($@hairstyle$)-1);
    return;
}