1da
@verb #5450:"commands_cmd" this none this rxdo #9988
@program #5450:"commands_cmd" this none this
commands = {}
for x in ($object_utils:all_verbs(this))
  if (length(x) > 4 && $object_utils:has_callable_verb(this, x) && x[length(x) - 3..length(x)] == "_cmd")
    commands = {@commands, x[1..length(x) - 4]}
  endif
endfor
player:tell({"Valid commands are:", @$string_utils:columnize(commands, 4)})
"Last modified by Dax (#789) on Tue Jun  2 14:21:32 1998 EDT."
.

0