Спасибо за помощь! Я перебрал все предложенные варианты и даже просчитывал расстояние между двумя точками по цепочке. Но остановился на этом: for k:=0 to totalsum do begin for i:=0 to totalsum-1 do begin if LTCoords[i].X > LTCoords[i+1].X then begin a[0].tile := LTCoords[i].tile; a[0].X := LTCoords[...

Добрый день! Есть процедура, которая ищет несколько типов деревьев па площади 60х60 квадратов. Не удобность в том, что чар бегает от одного угла к другому, тем самым увеличивая время добычи ресурсов. Procedure CheckLumberTiles; begin totalSum := 0; for i:=0 to 5 do begin CheckTiles := GetStaticTiles...

Подскажите пожалуйста что делать если рядом 10 разных трупов животных? Как составить список трупов и по очереди их почистить?

Есть команда 'resend в клиенте. Она обновляет все.

Помогите пожалуйста решить задачку! Есть несколько типов тайлов. Получаем несколько списков с координатами каждого тайла. b1 := GetStaticTilesArray(myX-SqFF, myY-SqFF, myX+SqFF, myY+SqFF, WorldNum, 6039, a1); b2 := GetStaticTilesArray(myX-SqFF, myY-SqFF, myX+SqFF, myY+SqFF, WorldNum, 6040, a2); b3 :...