NetHack 2.2a/worn.c