SAIL - SortBySkill - Sortowanie jednostek wg zadanej umiejętności

Serpent pisze: ↑czw paź 10, 2019 2:12 pm Funkcja sortująca jednostki malejąco wg. zadanej umiejętności. Dozwolone są tylko umiejętności od 1 do 4.

Kod:

Export Function SortBySkill(units, class);
var i, tmp;
begin
if not units or not class in [1, 2, 3, 4] then
   exit;

tmp := [];

for i in units do
    tmp := Insert(tmp, tmp+1, GetSkill(i, class));

if not tmp then
   exit;

result := SortListByListDesc(units, tmp);
End;

Author: Serpent
Topic: https://forum.original-war.net/viewtopic.php?f=42&t=6055