239
@verb #7724:"description" this none this rxdo #7165
@program #7724:"description" this none this
c = 0
text = {}
for x in (this.world.lots)
  if (x:isa(this.world.generic_claimed_lot))
    c = c + 1
    text = {@text, tostr($su:right(x in this.world.lots, 2), ": claimed by ", `$su:nn(x.builder) ! ANY => "err!"')}
  else
    text = {@text, tostr($string_utils:right(x in this.world.lots, 2), ": *** vacant ***")}
  endif
endfor
return {@text, tostr(c, "/60 lots have been claimed.")}
"Last modified by Lao-Tzu (#8084) on Sat Dec 18 11:02:28 1999 MST."
.

0