482
@verb #8438:"@size" any any any rdo #8438
@program #8438:"@size" any any any
OBJ = player:my_match_object(index(argstr, ":") ? argstr[1..index(argstr, ":") - 1] | argstr[1..index(argstr, ".") == 0 ? $ | index(argstr, ".") - 1])
if (!valid(OBJ))
  return player:tell("Couldn't match that object...")
endif
if (!index(argstr, ":") && !index(argstr, "."))
  return player:tell("Object size of ", $string_utils:nn(OBJ), " is ", $string_utils:group_number(OBJ:object_bytes()), " bytes.")
elseif (index(argstr, ":"))
  vnum = index(argstr, ":") + 1
  code = ``verb_code(OBJ, argstr[vnum..$]) ! E_VERBNF => E_VERBNF' ! E_PERM => E_PERM'
  if (code in {E_VERBNF, E_PERM})
    return player:Tell(code)
  endif
  return player:tell(OBJ, ":", argstr[vnum..$], " is ", $string_utils:group_number(value_bytes(code)), " bytes.")
elseif (index(argstr, "."))
  pname = argstr[index(argstr, ".") + 1..$]
  size = ``value_bytes(OBJ.(pname)) ! E_PROPNF => E_PROPNF' ! E_PERM => E_PERM'
  if (size in {E_PROPNF, E_PERM})
    return player:Tell(size)
  endif
  player:tell(OBJ, ".", pname, " is ", $string_utils:group_number(size), " bytes.")
endif
.

0