29d
@verb #2633:"@render" any none none rxd #2633
@program #2633:"@render" any none none
renderers = {@children($renderer), @children(#281)}
oro = "output_rendering_object"
curR = $eve.(oro)
if (!argstr)
  player:tell("RENDERERS:")
  for r in (renderers)
    player:tell(r == curR ? "* " | "  ", $su:nn(r))
  endfor
  return
endif
OBJ = $su:match(argstr, renderers, "name")
if (OBJ == $failed_match)
  OBJ = toobj(argstr)
  if (!(OBJ in renderers))
    return player:tell("That is not a valid renderer.")
  endif
endif
$eve.(oro) = OBJ
player:tell("Renderer set to: ", $su:nn(OBJ))
"Last modified by Slacker (#55) on Mon Jan 14 09:44:22 2002 MST."
.

0