1 2 3 4 5 6 7 8 9 10 11 12 13 14
function|script|useScissors { if (rand(3)) goto L_Change; message strcharinfo(0), "Whoops!"; heal -20 - rand(Hp >> 1), 0; getitem "Scissors", 1; return; L_Change: setlook LOOK_HAIR_STYLE, rand(20); getitem "Scissors", 1; return; }