1 2 3 4 5 6 7 8 9 10 11 12 13 14
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: callfunc "getHeadStyles"; setlook LOOK_HAIR_STYLE, rand(1,getarraysize(@HairStyles$)); return; }