ИГРА ТАНК

[Bekon352]

Люди хелпппп.Короче с другом пишем игру танк столкнулись с проблемой,бота не можем заставить ездить он только дёргаетса.Мучаюсь 2 месяц чтоб его Надеюсь на помощь.Всё прилагаетсо

[Bruteo]

Замени процедуру vrag на эту:

procedure Vrag;
begin
if(x1=0) then x1:=((getwidth)/3)-20; 
if(y1=0) then y1:=((getheight)/2)-4;
n1:=1;
if random(2) =0 then x1:=x1+n1;
if random(2) =1 then y1:=y1+n1;
drawImage(vragina,x1,y1);
end;

[Bekon352]

Блин враг попрежнему только дёргаетсо((((((что это дало?ничего(((

Танк почемуто возвращаетцо на исходную позицию((((почему хз(((((

[Bruteo]

Все работает. Скомпилируй заново измененный проект.

[Bekon352]

Блин мужыГ спасибо!!!!!!!!!а объяснить можешь почему так???Я просто ещё до конца не догнал)))

[Bruteo]

Ты каждый раз устанавливал одно и то же положение врага. Теперь начальное положение устанавливается только один раз - в начале игры. Переменные типа integer в midlet pascal по умолчанию равны 0.

[Bekon352]

Bruteo спс.Теперь вроде понял)))Но вот ещё беда как сделать чтобы мой танк не заезжал на бота вот чтоб на стену не заезжал это могу а чтоб на бота нет((((если можешь помоги.

[Bruteo]

Также как и со стеной. Перед каждым движением сравнивай координаты танка с координатами бота. Если сравнение показывает, что сейчас столкнутся - не давай двигаться танку.

[Bekon352]

В том то и беда вот как это сделать???стена то сплошная по оси х и у,а бот это уже и по х и по у.Так я и не смог этого сделать для бота.Я только учусь)))Помоги если сможешь.Буду примного благодарен))))

[fads]

Бекон, приеду из лагеря все сделаем)) Bruteo, спс огромное! Теперь все ясно с ботом! ЗЫ авторство за мной