58c
@verb #6:"tell_contents" this none this rxdo #60
@program #6:"tell_contents" this none this
contents = args[1]
if (`this.dark ! E_PROPNF => 0')
  return
endif
players = things = {}
for x in (contents)
  if (is_player(x))
    players = {@players, x:title_menu()}
  else
    things = {@things, `x:title_menu() ! ANY => x'}
  endif
endfor
if (!things)
  $msg:mtell("thing_none")
elseif (length(things) == 1)
  $msg:mtell("thing_sing", things[1])
else
  $msg:mtell("thing_plur", things)
endif
if (!players)
  $msg:mtell("player_none")
elseif (length(players) == 1)
  $msg:mtell("player_sing", players[1])
else
  $msg:mtell("player_plur", players)
endif
"BEGIN snow angel hack"
"if (this.angel > 1000)"
"  player:tell(\"You see some absolutely <i>superb</i> snow angels here.\");"
"elseif (this.angel > 400)"
"  player:tell(\"You see some excellent looking snow angels here.\");"
"elseif (this.angel > 200)"
"  player:tell(\"You see some nice snow angels here.\");"
"elseif (this.angel > 100)"
"  player:tell(\"You see some average looking snow angels here.\");"
"elseif (this.angel > 50)"
"  player:tell(\"You notice some snow angels here, covered by a layer of snow.\");"
"elseif (this.angel > 0)"
"  player:tell(\"You notice the remnants of a few snow angels, buried underneath a few layers of snow.\");"
"endif"
"Last modified by Dax (#789) on Mon Dec 19 02:41:16 2005 MST."
.

0