Builder Options #77
Aliases: Builder Options
6 verbs · 11 properties · 0 children
Verbs
| Verb | Spec | Flags | Definer | Lines |
|---|---|---|---|---|
check_create_flags | this none this | rxd | #77 | 6 |
show_create_flags | this none this | rxd | #77 | 5 |
parse_create_flags | this none this | rxd | #77 | 13 |
show_dig_room show_dig_exit | this none this | rxd | #77 | 7 |
parse_dig_room parse_dig_exit | this none this | rxd | #77 | 22 |
show_recycle_warn | this none this | rxd | #77 | 7 |
Properties
| Property | Definer | Flags | Owner | Value |
|---|---|---|---|---|
show_bi_create | #77 | rc | #36 | {"@create/@recycle re-use object numbers.", "@create/@recycle call create()/recycle() directly."} |
type_dig_room | #77 | rc | #36 | {1} |
type_dig_exit | #77 | rc | #36 | {1} |
names | #68 | r | #36 | {"dig_room", "dig_exit", "create_flags", "bi_create", "recycle_warn"} |
_namelist | #68 | r | #36 | "!dig_room!dig_exit!create_flags!bi_create!recycle_warn!" |
extras | #68 | r | #36 | {} |
namewidth | #68 | rc | #36 | 20 |
key | #1 | c | #36 | <clear> |
aliases | #1 | rc | #36 | {"Builder Options"} |
description | #1 | rc | #36 | {"Option package for $builder commands. See `help @build-options'."} |
object_size | #1 | r | #36 | {4803, -1090650497} |
Ancestry
Ancestors (nearest first): #68 Generic Option Package → #1 Root Class
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, crap} = 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
show_recycle_warn
Referenced by
none
Source
1name = args[2]; 2what = (verb == "show_dig_room") ? "room" | "exit"; 3if ((value = this:get(args[1], name)) == 0) 4return {0, {"@recycle w/o checking the player's intentions."}}; 5else 6return {value, {"@recycle only after checking the player's intentions."}}; 7endif