/*
$generic_wizard:@cat*alog any to any


2-12-92 C. Regis Wilson
Lists all the objects between the given numbers, that is:

@cat #1 to #4 
(poundsigns unnecessary) lists all objects from 1 to 4.

*/
if (player.wizard)
  if (dobjstr && iobjstr)
    tmp_lst = {};
    dobjstr = tostr(tonum(toobj(dobjstr)));
    iobjstr = tostr(tonum(toobj(iobjstr)));
    iobjstr = (tonum(iobjstr) > tonum(max_object())) ? tostr(tonum(max_object())) | iobjstr;
    for thing in [tonum(dobjstr)..tonum(iobjstr)]
      thing = toobj(thing);
      if (valid(thing))
        tmp_lst={@tmp_lst,thing};
      endif
    endfor
    player:tell($string_utils:names_of(tmp_lst));
  endif
endif