26c
@verb #8045:"@sgen*erics" any none none rdo #8045
@program #8045:"@sgen*erics" any none none
"Copied from Oblivion (#7951):@sgen Aug 20 19:37:57 1998"
if (argstr != "")
  for x in [#1..max_object()]
    if (x.f)
      if (index(x.name, argstr) || index(x:title(), argstr))
        player:tell($su:left(tostr(x), 7) + $su:left(x:title(), 50) + " by " + x.owner:title())
      endif
    endif
  endfor
else
  for x in [#1..max_object()]
    if (x.f)
      player:tell($su:left(tostr(x), 7) + $su:left(x:title(), 50) + " by " + x.owner:title())
    endif
  endfor
endif
player:tell("--DONE LOOKUP--")
.

0