@verb #9595:"roshambo*_rules, @roshambo*_rules roshambo_help @roshambo_help" none none none rxd #8034
@program #9595:"roshambo*_rules, @roshambo*_rules roshambo_help @roshambo_help" none none none
" Describes the rules of all roshambo games valid in this room."
" assumes #9595 as the generic feature object. "
here = player.location
msg = described = {}
for fobj in (player.features)
  if ($object_utils:isa(fobj, #9595) && !(fobj in described))
    msg = {@msg, @fobj:my_rules()}
    described = {@described, fobj}
  endif
endfor
if ($object_utils:has_property(here, "features"))
  for fobj in (here.features)
    if ($object_utils:isa(fobj, #9595) && !(fobj in described))
      msg = {@msg, @fobj:my_rules()}
      described = {@described, fobj}
    endif
    $command_utils:suspend_if_needed(5)
  endfor
endif
for line in (msg)
  player:tell(line)
endfor
"Last modified by Pentomino (#8034) on Sun Aug 29 21:48:56 2004 MDT."
.