}{0TT@6bI4я попросил товарища Долгий написать скрипт

Не помню чтобы меня просили написать скрипт, но моя идея в целом похожа на скрипт Jewill'а. Только я тот ещё программист (не особо понимаю таблицы. 2D массивы мне ближе). Стоит учесть что есть ещё недели добычи 2х(дерево + руда), а также такие же на Серу+Ртуть и Кристаллы+Самоцветы, название которых не помню. И ещё неделя золота.

Добавлено через 3 часа 6 минут

JewillГрустно это, хотя и логично. Просто мне кажется вот эти манипуляции с отниманием не есть правильное решение.
Хотя, просто по личному опыту и опыту всего этого топика, иногда правильного решения нет, точнее оно есть, но не реализуемо.
В любом случае, спасибо, не буду мучаться в попытках перепрыгнуть ниваловские эвенты.

Можно ещё через while 1 do это сделать. Где шахты, которые не проходят чек на наличие существ, становятся нейтральными.

Добавлено через 18 минут

--Назовите все шахты одинаковым именем плюс номер от 1 и далее: Например mine1, mine2, mine3, mine4 и т.д.                                                                                                                  
                                   

while 1 do
 sleep(10);
 for i = 1,"количество шахт на карте" do  --"количество шахт на карте" заменить на номер
  if GetObjectCreatures("mine"..i,"IDсущества") == 0 and GetObjectOwner("mine"..i) ~= 0 then --заменить "IDсущества" на необходимое ID существа
   SetObjectOwner("mine"..i,0);
  end;
 end;
end;

Добавлено через 1 час 2 минуты
Правда нужно что-то, что остановит онейтраливание шахты, когда герой захватывает её и кладет существ в гарнизон. Иначе шахта станет нейтральной и придётся драться с этими существами. Нужно что-то по типу региона вокруг активного тайла шахты и условия что если в регионе нет героя то выполняется SetObjectOwner("mine"..i,0);. Но я думаю есть идея получше, но в голову пока не приходит.