WANDS
boolean is_wood[WANDS];
for (i = 0; i < WANDS; i++) {
struct id id_wands[WANDS] = {
obj->which_kind = get_rand(0, (WANDS - 1));
max = WANDS - 1;
rw_id(id_wands, fp, WANDS, 1);
r_write(fp, is_wood, (WANDS * sizeof(boolean)));
rw_id(id_wands, fp, WANDS, 0);
r_read(fp, is_wood, (WANDS * sizeof(boolean)));
for (i = 0; i < WANDS; i++) {