generic programmer extension #284

Parent #68Owner #361Flags readSource hellcore/hellcore.db

Aliases: generic programmer extension, extension, gpe

9 verbs · 36 properties · 0 children

Verbs

Properties

Ancestry

• #1 root

  • #5 generic thing

    • #68 Generic Feature Object

      • #284 generic programmer extension

Ancestors (nearest first): #68 Generic Feature Object → #5 generic thing → #1 root

Children: none

Call graph

Source

{who} = args;
if ((who.wizard || (who in this.approved_list)) || player.wizard)
return 1;
else
return 0;
endif

if (!player.wizard)
player:tell("Who do you think you are, huh?");
return;
endif
if (!valid(iobj))
iobj = $mu:match(iobjstr, children($prog));
endif
if (!valid(iobj))
player:tell("Who is '", iobjstr, "'?");
return;
endif
if (!iobj.programmer)
player:tell(iobj.name, " isn't a programmer.");
return;
endif
if (iobj in this.users)
player:tell(iobj.name, " already has ", this.name, ".");
return;
endif
iobj:add_feature(this);
iobj:tell((((($ansi.bold_on + $ansi.yellow) + "[ You have been given the programmer extension '") + this.name) + "'. ]") + $ansi.reset);
iobj:tell((((($ansi.bold_on + $ansi.yellow) + "[ Check 'help ") + tostr(this)) + "' for new commands. ]") + $ansi.reset);

if (!player.wizard)
player:tell("Who do you think you are, huh?");
return;
endif
if (!valid(iobj))
iobj = $mu:match(iobjstr, children($prog));
endif
if (!valid(iobj))
player:tell("Who is '", iobjstr, "'?");
return;
endif
if ((!iobj) in this.users)
player:tell(iobj.name, " doesn't have ", this.name);
return;
endif
iobj:remove_feature(this);
iobj:tell((((($ansi.bold_on + $ansi.yellow) + "[ Your ability to use the programmer extension '") + this.name) + "' has been revoked. ]") + $ansi.reset);

who = args[1];
if (!player.wizard)
raise(E_PERM);
endif
this.users = setadd(this.users, who);
$nets.prognet:announce(this, tostr($ansi.yellow, $ansi.bold_on, who.name, " has been granted the power of ", this.name, " [granted by ", player.name, "]."), 1);

who = args[1];
this.users = setremove(this.users, who);
$nets.prognet:announce(this, tostr($ansi.yellow, $ansi.bold_on, who.name, " no longer has ", this.name, " [", player.name, "]."), 1);

{who, object, propname} = args;
found_once = 0;
for ext in (children(#411927))
if ((player in ext.users) && (ext in player.features))
for t in (ext.trees_modifiable)
if (is_a(object, t))
found_once = 1;
if (ext.modify_all_props || (propname in ext.props_modifiable))
return 1;
endif
"otherwise, continue with next ext";
continue ext;
endif
endfor
endif
endfor
if (found_once)
player:tell("You can't modify .", propname, " on ", $su:nn(object), ".");
else
player:tell("You can't modify ", $su:nn(object), ".");
endif

verbstr = (verb == "can_remove_prop") ? "remove" | "add";
{who, object, propname} = args;
found_once = 0;
for ext in (children(#196768))
if ((player in ext.users) && (ext in player.features))
for t in (ext.trees_addable)
if (is_a(object, t))
found_once = 1;
if (ext.add_all_props || (propname in ext.props_addable))
return 1;
endif
"otherwise, continue with next ext";
continue ext;
endif
endfor
endif
endfor
if (found_once)
player:tell("You can't ", verbstr, " .", propname, " on ", $su:nn(object), ".");
else
player:tell("You can't ", verbstr, " properties to ", $su:nn(object), ".");
endif

help = pass(@args);
return {@help[1..max(1, $ - 1)], ""};

return this.f ? "" | this.description;