BURN
case BURN:
type = BURN;
if(Levitation && type != BURN){ /* riv05!a3 */
(oep->engr_type == BURN) ? "burned" : "engraved");
(type == ENGRAVE) ? "engrave" : (type == BURN) ? "burn" : "write");
if(type == BURN) otmp->spe++;
case BURN: