View/Edit #13:@garbage

Switch to edit mode.

1:  usage = {"Usage: @garbage [start] to [end]", "Displays available objects from start to end."}
2:  if (player != this)
3:    return $msg:mtell("huh")
4:  endif
5:  dobjstr && dobjstr[1] == "#" && (dobjstr = dobjstr[2..$])
6:  iobjstr && iobjstr[1] == "#" && (iobjstr = iobjstr[2..$])
7:  if ($string_utils:is_numeric(dobjstr) && toint(dobjstr) >= 0)
8:    start = toint(dobjstr)
9:  else
10:   return this:tell(usage)
11: endif
12: if (!(end = min(toint(iobjstr), toint(max_object()))))
13:   if (!iobjstr)
14:     end = toint(max_object())
15:   elseif (iobjstr != tostr(end))
16:     return this:tell(usage)
17:   endif
18: endif
19: lwidth = length(tostr(max_object()))
20: space = $string_utils:space(lwidth)
21: text = {space + "          1111111111222222222233333333334444444444", space + "01234567890123456789012345678901234567890123456789"}
22: for y in [start / 50..end / 50]
23:   s = $string_utils:right(tostr(ln = y * 50), lwidth)
24:   for j in [ln..min(ln + 49, end)]
25:     o = toobj(j)
26:     s = s + (j < start ? " " | (valid(o) ? o.owner == this ? "#" | (parent(o) == $garbage ? "*" | (is_player(o) ? "@" | ".")) | "X"))
27:   endfor
28:   text = {@text, s}
29:   $command_utils:suspend_if_needed()
30: endfor
31: player:tell(text)
32: player:tell("  . - object in use  # - your object  * - garbage  @ - player")
33: "Last modified by Dax (#789) on Tue May  3 14:11:54 2005 MDT."

[home | help | who | search | setup | code]