1c1
@verb #4457:"@share" none none none rxdo #4457
@program #4457:"@share" none none none
meh = {}
player != this && raise(E_PERM)
for x in (this.oldgrads)
  meh = {@meh, $gu:mg(@x, tostr(this.gmodes[x in this.oldgrads]))}
endfor
this.location:announce_all(player:title(), " has ", length(this.oldgrads) * 2 - length(this.gmodes), " color schemes: ", $su:english_list(meh))
"Last modified by Rubbie (#4457) on Tue Aug  8 04:14:02 2000 MDT."
.

0