Тема: BuffBot
Показать сообщение отдельно
Старый 02.08.2008, 04:24   #53
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

нужно знать еще координаты бота
это просто, если бот в клиенте
delphi Код:
var  MyXpos, MyYpos, MyZpos : integer; Begin   if (ConnectName=BotName) and FromClient and pck[1]=#$48 then begin       //ValidatePosition пакет от клиента с кординатами бота     MyXpos:=ReadD(2); //получаю координату х бота     MyYpos:=ReadD(6); //получаю координату у бота     MyZpos:=ReadD(10); //получаю координату z бота   end; end.
без клиента это будет видимо сложнее...

Добавлено через 6 минут
и ID лидира наверно не нужно, отслежмвайте что приходит от лидера, Сразу берите ID таргета + координаты бота от бота + действие (0)

Добавлено через 55 минут
вот заготовка, как я бы это делал
delphi Код:
const   Leader ='ник'; //Указать имя лидера(мейна)   Bot ='ник'; //Указать ник того, кто будет брать ассист на лидера. var   TargetID : integer;   BotX, BotY, BotZ : integer; begin //Отлавливаем с сервира пакеты лидера   if (ConnectName=Leader) and FromServer then     case pck[1] of       #$A6 : //MyTargetSelected         begin           TargetID := ReadD(2);           buf :=#$04;         //Начинаем формировать пакет 04=Action           WriteD(TargetID);   //Вписываем TargetID           WriteD(BotX);       //координату х бота           WriteD(BotY);       //координату у бота           WriteD(BotZ);       //координату z бота           WriteC(0);          //и само действие "Взять в таргет"           SendToServerEx(Bot); //отправляем запрос         end     end; //case //Отлавливаем с клиента пакеты бота   if (ConnectName=Bot) and FromClient then     case pck[1] of       #$48 : //ValidatePosition         begin           BotX :=ReadD(2);   //получаю координату х бота           BotY :=ReadD(6);   //получаю координату у бота           BotZ :=ReadD(10)//получаю координату z бота         end;     end; //case ////Отлавливаем с сервира пакеты бота   if (ConnectName=Bot) and FromServer then     case pck[1] of       #$A6 : //MyTargetSelected         begin           //бот взял таргет лидера         end;     end; //case end.
тут пока бот просто берет ассист, и дальше ждет пока таргет сменится, если требуется какое либо действие, то надо подумать вот над чем - боту приходит пакет. что он взял таргет, и можно сразу что-либо делать, например -если бот танк, он может сразу кинуть хейт, или бот должен ждать следующего действия лидера...

Добавлено через 1 минуту
кстати, модераторам довно следует перенести эту тему в скриптинг

Последний раз редактировалось PanAm, 02.08.2008 в 04:24. Причина: Добавлено сообщение
PanAm вне форума   Ответить с цитированием
За это сообщение PanAm нажился спасибкой от: