Make output of GetCharactersInInstance for perl more user-friendly.

This commit is contained in:
JJ 2014-11-03 12:35:07 -05:00
parent cff9e05626
commit 38f1e8847c

View File

@ -2876,11 +2876,16 @@ XS(XS__GetCharactersInInstance) {
if (charid_list.size() > 0) if (charid_list.size() > 0)
{ {
charid_string = itoa(charid_list.size()); charid_string = itoa(charid_list.size());
charid_string += " player(s) in instance. CharID list: "; charid_string += " player(s) in instance: ";
auto iter = charid_list.begin(); auto iter = charid_list.begin();
while (iter != charid_list.end()) while (iter != charid_list.end())
{ {
char char_name[64];
database.GetCharName(*iter, char_name);
charid_string += char_name;
charid_string += "(";
charid_string += itoa(*iter); charid_string += itoa(*iter);
charid_string += ")";
++iter; ++iter;
if (iter != charid_list.end()) if (iter != charid_list.end())
charid_string += ", "; charid_string += ", ";