OSPEAR
froom(7, OSPEAR, rnd(5)); /* a spear */
case OSPEAR:
OENERGYRING, ODEXRING, OSTRRING, OSPEAR, OBELT, ORING,
{20, OSPEAR, 0, 3},