Умный Муравей на делфи 7, и его передвижение

[DmitryVolkov]

Всем привет. Создал я игру Умный Муравей
И вот заместо Эллипса нужно засунуть Муравья. Как это сделать, ведь он ещё должен поворачиваться .
Закинул архивчик с игрой на Яндекс диск чтобы было понятнее посмотритеhttps://yadi.sk/d/-Ez4IshHm8X78

[VIK_aka_TOR]

желудь/орешек у вас откуда берется? изображение из какого-то файлика. так и муравья "нарисовать" повернутого в каждую из 4 сторон, и подставлять изображение с муравьем повернутым в нужную вам сторону.

[DmitryVolkov]

Мне уже говорили об этом. Я дуб в этом-_-. Вот и архив скинул кто шарит замутит. Для знающих 5 минутное дело

[VIK_aka_TOR]

да я смотрю у всех "неопытных" и "дубов" на любое дело у "опытных" уходит все 5 минут)
такой же случай
p.s. написать то может и 5 минут, но скачать, разобраться в коде что бы знать куда потратить 5 минут на написание?

в итоге получаем: найденный где-то проект + попытка не своим его доработать под требования препода.

[Человек_Борща]

Мне уже говорили об этом. Я дуб в этом-_-. Вот и архив скинул кто шарит замутит. Для знающих 5 минутное дело

Знающие тоже дуб-дубом
Слабо пройтись по картинкам в архиве,посмотреть там элипс желтый, заменить его муравьем?

[NIKOLAYY2]

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

Всем привет.
И вот заместо Эллипса нужно засунуть Муравья. Как это сделать, ведь он ещё должен поворачиваться .

У тебя там есть вот этот код на нажатие кнопок:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
  VK_UP: if Player.Y>1 then
  if Fields[Player.X, Player.Y-1]<>fWall then Dec(Player.Y);
  VK_LEFT: if Player.X>1 then
  if Fields[Player.X-1, Player.Y]<>fWall then Dec(Player.X);
  VK_RIGHT: if Player.X<FieldCount then
  if Fields[Player.X+1, Player.Y]<>fWall then Inc(Player.X);
  VK_ESCAPE: Close;
  VK_F2: NewGame;   // F2 - Новая игра, F4 - рекорды
  VK_F4: MessageBox(Handle, PAnsiChar(stats.text), 'Рекорды', MB_OK);
 end; Repaint;
end;

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

        if mastile[i, j] = 'g' then
        begin
          Image1.Canvas.StretchDraw(mr, Image4.Picture.Bitmap);
          
          //для твоего случая будет примерно так:
          Canvas.StretchDraw(вычисленная_рект_область, твоя_картинка_из_памяти);
        end;

У меня подобная игра, но я в нее еще и анимацию встроил.
Смотри на картинку я там все показал, игра отрисовывается из файла или из массива в цикле в зависимости от значений массива кодом что выше.