// ein weiser Schmied:
int i;
string *mat, mname, mgroup;
mat=m_indices(ob->QueryProp(P_MATERIAL));
i=sizeof(mat);
write("Der Schmied sagt: "+ob->Name(WER)+" besteht aus ...\n");
while(i--) {
// den Namen erkennen/aussprechen:
// Materialien werden allgemein etwas besser erkannt (zu 5%), aber
// alles aus Metall wird zu +100% besser erkannt ...
mname=MATERIALDB->MaterialName(mat[i], WER,
({5, ([MATRGROUP_METAL, 100])}));
// und nur Metalle analysieren ...
if(MATERIALDB->MaterialGroup(([mat[i]:100]),MATGROUP_METAL)>=100) {
int j;
string *mgr;
mgr=MATERIALDB->GetMatMembership(mat[i]);
j=sizeof(mgr);
mgroup=" gehoert zu ";
while(j--) {
mgroup+=MATERIALDB->GroupName(mgr[j]);
if(j>0) mgroup+=", ";
}
} else mgroup=" kenne ich nicht";
printf("%-12.12s: %s\n",mname, mgroup);
}