Сообщений: 8
Написано 0 полезных сообщений (для 0 пользователей)
ИГРА ТАНК
Люди хелпппп.Короче с другом пишем игру танк столкнулись с проблемой,бота не можем заставить ездить он только дёргаетса.Мучаюсь 2 месяц чтоб его Надеюсь на помощь.Всё прилагаетсо
Сообщений: 128
Написано 20 полезных сообщений (для 43 пользователей)
Re: ИГРА ТАНК
Замени процедуру 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;
Сообщений: 128
Написано 20 полезных сообщений (для 43 пользователей)
Re: ИГРА ТАНК
Ты каждый раз устанавливал одно и то же положение врага. Теперь начальное положение устанавливается только один раз - в начале игры. Переменные типа integer в midlet pascal по умолчанию равны 0.
Сообщений: 8
Написано 0 полезных сообщений (для 0 пользователей)
Re: ИГРА ТАНК
Bruteo спс.Теперь вроде понял)))Но вот ещё беда как сделать чтобы мой танк не заезжал на бота вот чтоб на стену не заезжал это могу а чтоб на бота нет((((если можешь помоги.
Сообщений: 128
Написано 20 полезных сообщений (для 43 пользователей)
Re: ИГРА ТАНК
Также как и со стеной. Перед каждым движением сравнивай координаты танка с координатами бота. Если сравнение показывает, что сейчас столкнутся - не давай двигаться танку.
Сообщений: 8
Написано 0 полезных сообщений (для 0 пользователей)
Re: ИГРА ТАНК
В том то и беда вот как это сделать???стена то сплошная по оси х и у,а бот это уже и по х и по у.Так я и не смог этого сделать для бота.Я только учусь)))Помоги если сможешь.Буду примного благодарен))))