@verb #3652:"stat*s" none none none rxdo #7446
@program #3652:"stat*s" none none none
this:update_usage(verb, player)
cage = #567
ppl = {}
mstuff = {}
for x in (cage.contents)
  owners = $mouse_utils:verb_owners(x)
  for y in (owners)
    if (!(y in ppl))
      ppl = {@ppl, y}
      mstuff = {@mstuff, {0, 0, 0, 0, 0}}
    endif
    mstuff[y in ppl][2] = mstuff[y in ppl][2] + 1
  endfor
  if (equal(owners[1], owners[2]) && equal(owners[2], owners[3]))
    mstuff[owners[1] in ppl][1] = mstuff[owners[1] in ppl][1] + 1
  endif
  mstuff[owners[1] in ppl][3] = mstuff[owners[1] in ppl][3] + 1
  mstuff[owners[2] in ppl][4] = mstuff[owners[2] in ppl][4] + 1
  mstuff[owners[3] in ppl][5] = mstuff[owners[3] in ppl][5] + 1
endfor
for x in (ppl)
  mstuff[x in ppl] = {x.name, @mstuff[x in ppl]}
endfor
player:tellcolumns({15, 8, 6, 6, 6, 6}, {"Breeder", "Purebred", "Genes", "Mate A", "Mate Q", "Choose"}, @mstuff, {"---------------", "--------", "------", "------", "------", "------"})
.