Создаю стратегию.

[Shadow_1329]

А там про проходимость есть?

[Levsha100]

Я полностью согласен с pu4koff.
Сейчас пишу игру, и в принципе делаю почти также.

[Beermonza]

Shadow_1329, ...с полноценным поиском пути.

[Beermonza]

Значится так, ...пример совсем сырой, на сколько хватило времени. Танк один, создан прям в коде по ячейке массива UnitsMas[1], если нужно танки, заполняем следующие ячейки и по правилам. Еще чего нет, ...нет выделения, доделайте самостоятельно, условие на GTSelected, плюс разделение клавиш мыши на правую и леву, в каждой свои действия, ...коордмнаты карты найдете как определять, туда цикл на проверку массива юнитов, если координаты совпадают то значит выделен один танк, все остальные, что в игре GTSelected := False;
На поиске пути использован готовый модуль, немного подправленный PathFind.pas
Анимацию танка сделал новую, psd-файлы Фотошопа там же, может пригодится.

В общем, заценивайте, и потом по ходу разбор полетов, вопросы и пр.

[Вадим Буренков]

Неплохо, правда система поиска пути несовершенна(в примере если постараться можно наехать и на дерево, и на еж, и на дом).
А с использованием типа конечно удобно, но классами тоже ничем не хуже.

[Shadow_1329]

Отлично. Правда я не очень там понял. Много информации! Попытаюсь все что я узнал внедрить в свою стратегию. Пойду разбираться в коде проходимости. Спасибо за помощь!

[Shadow_1329]

И еще я вместо PathFind свой напишу алгоритм(только что его придумал).
Просто для меня использовать дополнительные библиотеки - это кара. Я вручную забабахаю(постараюсь). Но все равно спасиб!

[pu4koff]

Сообщение от Beermonza

В общем, заценивайте, и потом по ходу разбор полетов, вопросы и пр.

Меня корёжит наличие goto и отсутствие else и case блоков, где им самое место (Где клавиши обрабатываются, например, case самое место, ну на край if/else использовать, а не кучу отдельных if'ов)

[Beermonza]

pu4koff, а меня никакой метод не корёжит, может я просто индивид некорёжистый ))) ...case требует внутри себя четкие значения, по пунктам или перечисление, в условиях If можно использовать переменные, считывающиеся с файла конфигурации, по крайней мере я это вижу сразу.
goto - срадни jump в ассемблере, уж там это никого не корёжит, меня здесь тоже, ...если я напишу else и так условия одно в другое заверну, то потеряю зримую логику кода, ...это проверено временем.

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

Сообщение от pu4koff

Где клавиши обрабатываются, например, case самое место

Может я хочу сразу две клавиши жать, вправо и вниз.

[pu4koff]

Сообщение от Beermonza

goto - срадни jump в ассемблере, уж там это никого не корёжит, меня здесь тоже, ...если я напишу else и так условия одно в другое заверну, то потеряю зримую логику кода, ...это проверено временем.

Ну как говорится на вкус и цвет... Просто goto - потенциальный грабель, на который можно легко наступить. Помню на первом курсе первую мою лабораторную работу не приняли именно из-за goto. Пришлось на if'ы переделывать, но таки благодарен, что так меня сразу отучили от этого оператора.
Но, хозяин-барин, как говорится

Сообщение от Beermonza

Может я хочу сразу две клавиши жать, вправо и вниз.

Только тут:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
// сдвиг для карты
  If Key = VK_RIGHT then Inc(MapDispX, 1);
  If Key = VK_LEFT then Inc(MapDispX, -1);
  If Key = VK_UP then Inc(MapDispY, -1);
  If Key = VK_DOWN then Inc(MapDispY, 1);
...

это не сработает всё равно (событие срабатывает при нажатии клавишу, а соответственно если нажать влево и ввверх, то карта поедет или влево или вверх, но не по диагонали), но зато лишние проверки выполняются каждый раз
а case как раз сюда подошел бы как влитой