@verb #1177:"is_crowded" this none this rxdo #1177
@program #1177:"is_crowded" this none this
"Count the number of free and total lots."
"Return true if the vacancy rate is <= 10% or there are < 50 total lots."
lots_free = lots_total = 0
for data in (this.intersection_db)
  {x, y} = data[1]
  for z in ({"NE", "NW", "SE", "SW"})
    lots_total = lots_total + 1
    if (!this:xyz_exists(x, y, z))
      lots_free = lots_free + 1
    endif
  endfor
  $command_utils:suspend_if_needed()
endfor
"player:tell(lots_free, \"/\", lots_total);"
if (lots_total < 50)
  return 1
elseif (tofloat(lots_free) / tofloat(lots_total) <= 0.1)
  return 1
endif
"Last modified by DT_Mayor (#1177) on Sun Sep  1 00:32:47 2002 MDT."
.