Help DB Class #15

Parent #1Owner #10Flags fertileSource MurpgCore-0.4/MurpgCore-0.4.db

2 verbs · 15 properties · 6 children

Verbs

Properties

Ancestry

• #1 Root Class

  • #15 Help DB Class

    • #28 Player Help Database
    • #29 Coder Help Database
    • #30 Architect Help Database
    • #31 Dungeon Master Help Database
    • #53 NPC Help Database
    • #54 Animate Help Database

Ancestors (nearest first): #1 Root Class

Children: #28 Player Help Database, #29 Coder Help Database, #30 Architect Help Database, #31 Dungeon Master Help Database, #53 NPC Help Database, #54 Animate Help Database

Source

"#15:find_topics(STR) this none this";
"takes one string argument, finds an exact matching topic keyword.";
"if no exact match, then finds all partial matches.";
"returns topic/article pairs.";
{?topic = "help"} = args;
matches = {};
for each in (this.index)
if (each[1] == topic)
return {each};
elseif (index(each[1], topic) == 1)
matches = {@matches, each};
endif
endfor
return matches;

"#15:add_topic this none this";
"takes one or two args, first is topic keyword, second optionally an";
"existing articlenum.  if no article specified, adds new topic and articlenum.";
"if specified, creates a new topic/article pair in index.";
"must preserve many to one topic/article relationship.";
{topic, ?article = ""} = args;
found = 0;
for each in (this.index)
if (each[1] == topic)
return {0, ((("Topic keyword %W" + topic) + "%w already exists in %W") + this.name) + "%w."};
endif
endfor
if (article != "")
if (article in properties(this))
this.index = {@this.index, {topic, article}};
return {1, ((((("Topic keyword %W" + topic) + "%w added to %W") + this.name) + "%w for %Warticle #") + tostr(article)) + "%w."};
else
return {0, ((("Specified article number %W" + tostr(article)) + "%w does not exist in %W") + this.name) + "%w."};
endif
else
article = $get_next_help_id();
value = {};
perms = "rw";
owner = $dm;
add_property(this, article, value, {owner, perms});
this.index = {@this.index, {topic, article}};
return {1, ((((((((("Topic keyword %W" + topic) + "%w added to %W") + this.name) + "%w for %Wnew article #") + article) + "%w.  Don't forget to  %Wedit ") + tostr(this)) + ".") + article) + "%w."};
endif