Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
const
ClassPriorityList: array of integer = [
// ID класса, приоритет
35, 1,
65, 2,
67, 2
];
type
TGroupItem = packed record
Ch: TL2Char;
Rating: integer;
end;
TGroup = packed record
Items: array [0..8] of TGroupItem;
Count: integer;
end;
var
i, j: integer;
Group: TGroup;
procedure SortGroup;
begin
end;
begin
while (true) do
begin
delay(10);
// формируем свой список группы с дополнительным полем Rating
Group.Count:= 0;
for i:= 0 to Party.Chars.count - 1 do
begin
inc(Group.Count);
Group.Items[i].Ch:= Party.Chars.items(i);
Group.Items[i].Rating:= 0;
// находим класс в списке классов и выставляем Rating по приоритету класса
for j:= 0 to high(ClassPriorityList) do
begin
if (Group.Items[i].Ch.ClassID = ClassPriorityList[j]) then
begin
Group.Items[i].Rating:= ClassPriorityList[j + 1];
break;
end;
inc(j); // увеличиваем дополнительно, чтобы по i был ID класса
end;
end;
// Сортируем
SortGroup;
// Все, теперь наша пати отсортирована по классам, можем использовать
for i:= 0 to Group.Count - 1 do
print(Group.Items[i].Ch.name);
end;
end.