[HolyDel]

ети четыре стороны абсолюьно разные?
вообще господа, можно отделаться и двумя циклами.
смотрим на дипломатов код и думаем.
определенно в nation дожно хранится то, кто етот юнит
N_ORC, N_HUMAN, N_ELF, N_DVORNIC_IVAN_MIHAYLOVICH.
далее перебираем
for u1.units=each u1.units
for u2.units=each u2.units
if u1\nation<>u2\nation ;юниты одной команды друг на друга никак не влияют
select u1.nation
case N_ORC
select u2.nation
case N_HUMAN
смотир что орк должен сделать с человеком
case N_ELF
... с ельфом
case N_DVORNIC_IVAN_MIHAYLOVICH
... с дворником иван - михайлычом
case N_HUMAN
... и так далее
case N_ELF
case N_DVORNIC_IVAN_MIHAYLOVICH
... если кому то пофигу, против кого он, то можно и не перебирать, например дворник должен завидев врага кричать: "А я Иван Михайлыч! и с вами не играю!"/ поетому сортировку врога можно и не делать.
endf
next
next

все ето писалось в браузере, так что за многочисленные ошибки извиняйте.