NetHack 1.3d/worn.c