NetHack 2.3e/worn.c