function|script|useShockSweet
{
    if (rand(5))
        goto L_Change;
    message strcharinfo(0), "Yuck, this tastes like earwax!";
    itemheal -20 - (Hp >> 2), 0;
    end;

L_Change:
    setlook LOOK_HAIR_COLOR, HC_WHITE;
    message strcharinfo(0), "Gah! That was some strong stuff!";
    sc_start sc_poison, 1, 20;
    misceffect 15, strcharinfo(0);
    end;
}