Method code for $object_lib.see_perms()

[Turn on line numbering]

---

arg obj, @args;
var str, flag, who, encapsulate, flags;

[(encapsulate ?= ["[", "]"])] = args;
str = encapsulate[1];
flags = obj.flags();
if ('core in flags) {
    flags = flags.setremove('core);
    str += "*";
} else {
    str += "-";
}
if ('fertile in flags) {
    flags = flags.setremove('fertile);
    str += "f";
} else {
    str += "-";
}
if ('methods in flags) {
    flags = flags.setremove('methods);
    str += "m";
} else {
    str += "-";
}
if ('variables in flags) {
    flags = flags.setremove('variables);
    str += "v";
} else {
    str += "-";
}
if ('code in flags) {
    flags = flags.setremove('code);
    str += "c";
} else {
    str += "-";
}
for flag in (flags)
    str += tostr(flag)[1].uppercase();
return str + encapsulate[2];

// $#Edited: 09 Jul 97 16:35 $brandon

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]