L2phx script buff Summnoner

[BerkooT]

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

принять пати, смотреть список бафа - если нет баф коня и цель не мертва и цель маг - (вызвать коня) - бафнуть. и все. Бег за ведущим - давно рассматривался - и есть алгоритмы. Таймер нафиг не нужен, бо надо бафать по факту. Если б ты прислал именно то что я просил (имеет место быть переписка в личке) - давно написал бы, но ты ж не лог дал, а лишь самовырезаные кусочки.
И не 20 минут. Клиент установить, найти сервер где пх работает...Это далеко не 20 минут. 120 - это офигенно быстро. Ты же сам не говоришь на каком сервере пробовать.

А собсно - найди "Сумасшедший бафер" (кактотак) - так все принципы описаны

Объясните как лог сделать, организую

Добавлено через 4 часа 11 минут

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

принять пати, смотреть список бафа - если нет баф коня и цель не мертва и цель маг - (вызвать коня) - бафнуть. и все. Бег за ведущим - давно рассматривался - и есть алгоритмы. Таймер нафиг не нужен, бо надо бафать по факту. Если б ты прислал именно то что я просил (имеет место быть переписка в личке) - давно написал бы, но ты ж не лог дал, а лишь самовырезаные кусочки.
И не 20 минут. Клиент установить, найти сервер где пх работает...Это далеко не 20 минут. 120 - это офигенно быстро. Ты же сам не говоришь на каком сервере пробовать.

А собсно - найди "Сумасшедший бафер" (кактотак) - так все принципы описаны

Готово сделал логи, отослал в личку..

[BerkooT]

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

Объясните как лог сделать, организую

Добавлено через 4 часа 11 минут


Готово сделал логи, отослал в личку..

Это логи я перелазил ) формат pLog , rawLog

P/s почисти сообщение тебе нельзя пм отсылать, превышен лимит..

[Roman32]

PHP код:

//                  Управление вторым окном                                  
//                                         by spiritofsands                  
//                                                          Hellbound version
// © http://coderx.ru/showthread.php?t=3603       - развитие проекта         

const
        namemain='Zlo11';     // ник главного чара         
        nameslave='Opasniy11';       // ник второго окна          
        logmsg=False;               // писать лог в приват главе 
        
{ Команды управления начинаются префиксом "-" и оканчиваются статусом "y" или "n" (у-вкл, n-выкл)
  Например:
  -buy y
  Все команды:
  -buy y/n    - вкл./выкл. синхронная продажа (нпц)
  -sell y/n   - вкл./выкл. синхронная покупка (у нпц)
  -dialog y/n - вкл./выкл. синхронній диалог (с нпц)
  -skill y/n  - вкл./выкл. синхронное использование скиллов
  -go y/n     - вкл./выкл. ходьба рядом
  -u y/n      - синхронный /unstuck
  -gorod y/n  - уменьшение/увеличение дистанции между чарами
  Если написать в пм второму окну, оно напишет в общий чат ваше сообщение                                                                                               }
var
        ToX,ToY,ToZ,OrigX,OrigY,OrigZ,i,mid,tid,tx,ty,tz,rand,lenmodif : integer;
        com,usedskill:string;
        going,skilling:TTimer;
        buy,sell,dialog,skill,go:boolean; 
procedure sendPM(Msg:string);
 begin
 buf:=#$4A;
 writed(0);
 writed(2);
 writes('Assist-script');   // ник в чате
 writes(' '+msg);
 sendtoclientex(namemain);
 end;
procedure Init;
 begin
 sendPM('Вас приветствует скрипт Assist');
 sendPM('Возьмите себя в цель');
 lenmodif:=100;   // расстояние между чарами (лучше оставить как есть)
 buy:=true;
 sell:=true;
 dialog:=true;
 skill:=true;
 go:=true;
 going:=TTimer.Create(nil);
 going.OnTimer:=@ongoing;
 going.enabled:=false;
 skilling:=TTimer.Create(nil);
 skilling.OnTimer:=@onskilling;
 skilling.enabled:=false;
 end;
procedure sendbuf(bufer,name:string);
 begin
 buf:=bufer;
 sendtoserverex(name);
 end; 
function randlen:integer;
 begin
 randomize;
 case round(random) of
 1:
  begin
  randomize;
  result:=round(random*lenmodif);
  end;
 0:
  begin
  randomize;
  result:=-(round(random*lenmodif));
  end;
 end;
 end; 
procedure ongoing(Sender: TObject);
 begin
 randomize;
 going.interval:=1000+round(random()*1000);             // спасибо SeregaZ
 buf:=#$01;   {#$0F}
 writemask('ddddddd',[tox+randlen,toy+randlen,toz,origx,origy,origz,1]);
 {randlen;
 writed(tox+rand);
 randlen;
 writed(toy+rand);
 writed(toz);                     old method
 writed(origx);
 writed(origy);
 writed(origz);
 writed(1);}
 sendtoserverEx(nameslave);    
 going.enabled:=false;
 end;
procedure onskilling(Sender: TObject);
 begin
 randomize;
 skilling.interval:=1000+round(random()*1000);
 sendbuf(usedskill,nameslave); 
 skilling.enabled:=false;
 end;
procedure Free;
 begin
  going.Free;
 end;
//                                          Начало                                                              
 begin 
 if pck='' then exit;
 if (pck[1]=#$04)   {#$1f} and (connectname=namemain) and (mid=0) then   // узнаем ид главного чара
  begin                       
  mid:=readd(2);
  pck:='';
  If logmsg=true then sendPM('Ваш ИД запомнен');
  end;
  
 if fromserver and (connectname=nameslave) then
  case pck[1] of
  #$29:   {#$39}                                                         // пати
   begin
   If logmsg=true then sendPM('Принят запрос на группу');
   if (reads(2))=namemain then
    begin
    If logmsg=true then sendPM('Вхожу в группу '+namemain+'а');
    sendbuf(hstr('2A01000000'),nameslave);   {#$43}   // подтверждение пати
    end;
   end;
  end;
 if fromclient and (connectname=namemain) then
  case pck[1] of
  #$04:   {#$1f}   // главный чар выделил кого-то
   begin
   i:=2;  
   tid:=readd(i);
   tx:=readd(i);
   ty:=readd(i);
   tz:=readd(i);
   buf:=#$04;   {#$1f}   // передача данных второму окну                                                                                                                  
   writemask('ddddc', [Tid, Tx, Ty, tz, 0]);
   sendtoserverEx(nameslave); 
   If logmsg=true then sendPM('В цели');
   end;
  #$21:   {#$23}   // разговор с npc
   begin
   if dialog=true then
    begin
    sendbuf(pck,nameslave);
    If logmsg=true then sendPM('Paзговор с нпц');
    end;
   end;
  #$37:   {#$48}   // отмена цели
   begin
   sendbuf(pck,nameslave);
   If logmsg=true then sendPM('Цель отменена');
   end;
  #$2F:   {#$39}   // использование скиллов
   begin
    usedskill:=pck;
    If logmsg=true then sendPM('Скилл использован');
    if skill=true then skilling.enabled:=true;   // исп. скилл через интервал  
   end;
  #$38:   {#$49}   // сообщение
   begin
   i:=2;
   com:=reads(i);
   if (readd(i)=2) and (reads(i)=nameslave) then
    begin
    pck:='';
    buf:=#$38;   {#$49}
    writes(com);
    writed(0);   // в какой чат пишет бот (0=общий)
    sendtoserverex(nameslave);
    end;
   if com[1]='-' then   // команда
    begin
     pck:='';
     if com[2]='u' then
      begin
      sendbuf(hstr('AA34000000'),nameslave);   {#$B3}
      sendbuf(hstr('AA34000000'),namemain);   {#$B3}
      end;
     if com[2]+com[3]+com[4]+com[5] = 'buy ' then
      begin
      if com[6] = 'y' then 
       begin
       sendPM('Синхронная покупка разрешена');
       buy:=true;
       end;
      if com[6] = 'n' then 
       begin
       sendPM('Синхронная покупка запрещена');
       buy:=false;
       end;
      end;
     if com[2]+com[3]+com[4]+com[5]+com[6] = 'sell ' then
      begin
      if com[7] = 'y' then 
       begin
       sendPM('Синхронная продажа разрешена');
       sell:=true;
       end;
      if com[7] = 'n' then 
       begin
       sendPM('Синхронная продажа запрещена');
       sell:=false;
       end;
      end;
     if com[2]+com[3]+com[4]+com[5]+com[6]+com[7]+com[8] = 'dialog ' then
      begin
      if com[9] = 'y' then 
       begin
       sendPM('Синхронный диалог с нпц разрешен');
       dialog:=true;
       end;
      if com[9] = 'n' then 
       begin
       sendPM('Синхронный диалог с нпц запрещен');
       dialog:=false;
       end;
      end;
     if com[2]+com[3]+com[4]+com[5]+com[6]+com[7] = 'skill ' then
      begin
      if com[8] = 'y' then 
       begin
       sendPM('Синхронное использование скиллов разрешено');
       skill:=true;
       end;
      if com[8] = 'n' then 
       begin
       sendPM('Синхронное использование скиллов запрещено');
       skill:=false;
       end;
      end;
     if com[2]+com[3]+com[4] = 'go ' then
      begin
      if com[5] = 'y' then 
       begin
       sendPM('Следование за главным персонажем разрешено');
       go:=true;
       end;
      if com[5] = 'n' then 
       begin
       sendPM('Следование за главным персонажем запрещено');
       go:=false;
       end;
      end; 
     if com[2]+com[3]+com[4]+com[5]+com[6]+com[7] = 'gorod ' then
      begin
      if com[8]='y' then lenmodif:=40;   // уменьшение расстояния между чарами
      if com[8]='n' then lenmodif:=100;   // восстановление расстояния между чарами
      end;
    end;
   end;
  #$01:   {#$0F}   //  обновляем координаты гл. чара
  begin
  i:=2;
  tox:=readd(i);
  toy:=readd(i);
  toz:=readd(i);
  origx:=readd(i);
  origy:=readd(i);
  origz:=readd(i);
  if go=true then going.enabled:=true;   // идем через интервал  
  end;
  #$1F:   {#$40}   // покупка вещей у нпц
   begin
   if buy=true then
    begin
    sendbuf(pck,nameslave);
    If logmsg=true then sendPM('Покупаю');
    end;
   end;
  #$1E:   {#$37}   // продажа вещей нпц
   begin
   if sell=true then
    begin
    sendbuf(pck,nameslave);
    If logmsg=true then sendPM('Продаю');
    end;
   end;
  #$D0:   // xz что о_О
   begin
   sendbuf(pck,nameslave);
   end; 
  end;
 end. 


/////////////////////////////скрипт что бегал за тобой/////////////////////
2F 34 05 00 00 00 00 00 00 00 - вызов коня
45 F2 03 00 00 00 00 00 00 00 - БАФ С КОНЯ а это поставь в посылку с задержкой сколько надо)