Builder Options #71
Aliases: Builder Options
5 verbs · 17 properties · 0 children
Verbs
| Verb | Spec | Flags | Definer | Lines |
|---|---|---|---|---|
check_create_flags | this none this | rxd | #71 | 6 |
show_create_flags | this none this | rxd | #71 | 5 |
parse_create_flags | this none this | rxd | #71 | 13 |
show_dig_room show_dig_exit | this none this | rxd | #71 | 7 |
parse_dig_room parse_dig_exit | this none this | rxd | #71 | 22 |
Properties
| Property | Definer | Flags | Owner | Value |
|---|---|---|---|---|
show_bi_create | #71 | rc | #29 | {"@create/@recycle re-use object numbers.", "@create/@recycle call create()/recycle() directly."} |
type_dig_room | #71 | rc | #29 | {1} |
type_dig_exit | #71 | rc | #29 | {1} |
names | #62 | r | #29 | {"dig_room", "dig_exit", "create_flags", "bi_create"} |
_namelist | #62 | r | #29 | "!dig_room!dig_exit!create_flags!bi_create!" |
extras | #62 | r | #29 | {} |
namewidth | #62 | rc | #29 | 20 |
aliases | #1 | rc | #29 | {"Builder Options"} |
description | #1 | rc | #29 | {"Option package for $builder commands. See `help @build-options'."} |
object_size | #1 | r | #29 | {3855, 1298433815} |
hidden_verbs | #1 | rc | #29 | <clear> |
phelp_msg | #1 | rc | #29 | <clear> |
weight | #1 | rc | #29 | <clear> |
owner_verbs | #1 | rc | #29 | <clear> |
plural_name | #1 | rc | #29 | <clear> |
client_image | #1 | rc | #29 | <clear> |
listening | #1 | rc | #29 | <clear> |
Ancestry
Ancestors (nearest first): #62 Generic Option Package → #1 root
Children: none
Call graph
Source
check_create_flags
Referenced by
none
Source
1value = args[1]; 2if (m = match(value, "[^rwf]")) 3return tostr("Unknown object flag: ", value[m[1]]); 4else 5return {tostr(index(value, "r") ? "r" | "", index(value, "w") ? "w" | "", index(value, "f") ? "f" | "")}; 6endif
show_create_flags
Referenced by
none
Source
1if (value = this:get(@args)) 2return {value, {tostr("Object flags for @create: ", value)}}; 3else 4return {0, {tostr("@create leaves all object flags reset")}}; 5endif
parse_create_flags
Referenced by
none
Source
1raw = args[2]; 2if (raw == 1) 3"...+create_flags => create_flags=r"; 4return {args[1], "r"}; 5elseif (typeof(raw) == STR) 6return args[1..2]; 7elseif (typeof(raw) != LIST) 8return "???"; 9elseif (length(raw) > 1) 10return tostr("I don't understand \"", $string_utils:from_list(listdelete(raw, 1), " "), "\""); 11else 12return {args[1], raw[1]}; 13endif
show_dig_room show_dig_exit
Referenced by
none
Source
1name = args[2]; 2what = (verb == "show_dig_room") ? "room" | "exit"; 3if ((value = this:get(args[1], name)) == 0) 4return {0, {tostr("@dig ", what, "s are children of $", what, ".")}}; 5else 6return {value, {tostr("@dig ", what, "s are children of ", value, " (", valid(value) ? value.name | "invalid", ").")}}; 7endif
parse_dig_room parse_dig_exit
Referenced by
none
Source
1{oname, raw, data} = args; 2if (typeof(raw) == LIST) 3if (length(raw) > 1) 4return tostr("I don't understand \"", $string_utils:from_list(listdelete(raw, 1), " "), "\"."); 5endif 6raw = raw[1]; 7endif 8if (typeof(raw) != STR) 9return "You need to give an object id."; 10elseif ($command_utils:object_match_failed(value = player:my_match_object(raw), raw)) 11return "Option unchanged."; 12endif 13what = (verb == "parse_dig_room") ? "room" | "exit"; 14generic = #0.(what); 15if (value == generic) 16return {oname, 0}; 17else 18if (!$object_utils:isa(value, generic)) 19player:tell("Warning: ", value, " is not a descendant of $", what, "."); 20endif 21return {oname, value}; 22endif