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

[Shadow_1329]

Спасибо! Я в игре реализовал управление следующим образом:ты тыкаешь на танк левой кнопой мыши и он выделяется. Управляешь им на стрелочках. Правой снимаешь выделение. Выделять можно все танки =)!
Осталось написать АИ и сделать менюшки!

[Shadow_1329]

Вот я сделал так:

function Collision(c:char): boolean;// проверка столкновения танка с непроходимой ячейкой
begin
For i:=1 to MaxRusTanks do
  Result:=False;
  if ((map[Rt[i].Ux+50,Rt[i].Uy+50]='c') or (map[Rt[i].Ux,Rt[i].Uy]='c')) then // это я и сам не понимаю
     Result:=True;
end;

И передвижение

for i:=1 to MaxRusTanks do
 begin
 if Rt[i].Up=true and ((Collision('1') or (Collision('3')))) then // это если код ячейки равен 1 или 3 то можно проезжать
  begin
  Rt[i].Utexture.LoadFromFile('../Images/Tanks/Russian/RussianTankUp1.bmp');
  Rt[i].Uy:=Rt[i].Uy-1;
  end;
 end;

Но после этого он у меня вообще вверх не едет!

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

Rt[i].Utexture.LoadFromFile('../Images/Tanks/Russian/RussianTankUp1.bmp');

Сколько можно повторять?Операции загрузки должны быть только в FormCreate.
Может сейчас у тебя все и работает, но когда код будет сложнее, врагов больше а спрайтов сотни то ты потонешь в ошибках, тормозах и проблемах с памятью. Из-за постоянной загрузки во время игры доступной памяти становится меньше и меньше.Через определенное время игра вылетает.

Но после этого он у меня вообще вверх не едет!

Научись делать комментарии (//).Может тебе код и понятен, но когда возникают вопросы и ошибки другие его могут и не понять.

[Shadow_1329]

Я исправил посмотри вверху

[Shadow_1329]

А можно создать звуковую переменную например Grass:Tbitmap только не
Tbitmap а звук?

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

Что конкретно тебе нужно? Ты хочешь воспроизводить звук при взаимодействии с определенной поверхностью?

[Shadow_1329]

Ну, да, только я не хочу загружать из файла во время игра а сразу хочу его загрузить в переменную и потом ее воспроизводить, а то при загрузки во время игры тормозит сильно(испытал уже это)! С моментом воспроизведения все сделал, вот только из файла воспроизводить не хочу!

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

Посмотри свою-же тему про воспроизведение звуков,мой пост под номером 20. Там понятно обьяснено и пример есть.

[Shadow_1329]

Спасибо! Сейчас попробую!

[Shadow_1329]

type RusTanks = packed record
Ux:integer;
Uy:integer;
UWidth:integer;
Uheight:integer;
Utexture:Tbitmap;
Selected:boolean;
Up,Down,Left,Right:boolean;
UBorn:boolean;
end;

var
  Form1: TForm1;
  map:array[1..32,1..24] of char;// скелет карты
  mp:array[1..32,1..24] of MPBit;// массив текстур карты
  gx,gy,x,y,sx,sy:integer;//положение камеры по х и у, переменные для мыши, скорость по х и у
  buf:Tbitmap;// буфер
  m,n,i,k:integer;// переменные для масивов
  Grass:TBitmap;// текстура травы(под штаб)
  MaxRusTanks:integer;//Текущее кол-во танков у русских
  MaxGermTanks:integer;//Текущее кол-во танков у немцев
  RT:array[1..20] of RusTanks;//Массив танков русских
  GT:array[1..20] of GermTanks;//Массив танков немцев
  Ugo:boolean;\\ ходить или не ходить


for i:=1 to MaxRusTanks do
if Rt[i].Selected = true then
if (map[round(Rt[i].Ux+sx)div 50,round(Rt[i].Uy+sy)div 50]='2')or
     (map[round(Rt[i].Ux+sx)div 50,round(Rt[i].Uy+sy+50)div 50]='2')or
     (map[round(Rt[i].Ux+sx+50)div 50,round(Rt[i].Uy+sy)div 50]='2')or
     (map[round(Rt[i].Ux+sx+50)div 50,round(Rt[i].Uy+sy+50)div 50]='2')then
     begin
    sx:=0;
    sy:=0;
    Ugo:=false;
    end;

Вот что у меня за фигня! Танк обрабатывает только для клеток с деревьями('2') на расстоянии Х+50 и У+50 от каждого дерева. Разобаться не могу с этим! Гирина и длина танка 50х50, скорость 5,