<(Auto Target)>

NLObP · 16.05.2008, 15:32

Этот скрипт формирует не правильный пакет. Вот немного исправленный.

delphi Код:

// Автоматическое взятие в таргет атакующего вас игрока или моба
// Чтобы включить скрипт используйте в игре социальное действие - Yes
// Чтобы выключить скрипт используйте в игре социальное действие - No
// Автор: Furious
// Версия: 0.4
// исправления by NLObP

const
  Name='NLObP';  //имя чара для которого включаем скрипт

var
AttackerID, TargetID, Status: Integer;
MyID, MyXpos, MyYpos, MyZpos, i: integer;

procedure TargetAttacker(Attacker: Integer);
begin
  buf:=#$04;
  WriteD(Attacker);
  WriteD(MyXpos);
  WriteD(MyYpos);
  WriteD(MyZpos);
  WriteC(00);
  SendToServerEx(Name);
end;
procedure SendMsg(Msg:string);
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(Msg);
  SendToClientEx(Name);
end;

//***************************************************************
// вызывается при приходе каждого пакета, если скрипт включен
//***************************************************************
begin
  //****************************************************************************
  if (ConnectName=Name) and FromServer then begin
    case pck[1] of
      #$04: begin
          //пакет с инфой о моём чаре
          i:=2;
          MyXpos:=ReadD(i); //получаю координату х моего чара
          MyYpos:=ReadD(i); //получаю координату у моего чара
          MyZpos:=ReadD(i); //получаю координату z моего чара
          //Запоминаем ИД
          i:=18;
          MyID:=ReadD(i); //получаю ид моего чара
      end;
      //***************************************************************
      //05=Attack:d(AttackerID)h(targetID)d(Damage)b(Flags)d(X)d(Y)d(Z)d(ListHits)h(targetID)d(damage)b(flags)
      //48=MagicSkillUse:h(CharID)h(targetID)h(skillID)d(skillLvl)d(hitTime)d(reuseDelay)d(X)d(Y)d(Z)w(count)d(d)d(d)d(d)
      #$05,#$48: begin
          if Status=1 then begin
              AttackerID:=ReadD(2);
              TargetID:=ReadD(6);
              if (AttackerID<>TargetID) and (MyID=TargetID) then TargetAttacker(AttackerID);
          end;
      end;
    end;
  end;
  //****************************************************************************
  if (ConnectName=Name) and FromClient then begin
    case pck[1] of
      #$1B: begin
        //C>Пакет RequestSicialAction #$1B
        case ReadD(2) of
          //социальное действие Yes для начала ловли
          6: begin
            Status:=1;
            SendMsg('Автоматическое взятие в цель включено!');
            //не передаем серверу
            pck:='';
          end;
          //социальное действие No для окончания
          5: begin
            Status:=0;
            SendMsg('Автоматическое взятие в цель включено!');
            //не передаем серверу
            pck:='';
          end;
        end;
      end;
      //ValidatePosition пакет от клиента с моими кординатами
      #$48: begin
        MyXpos:=ReadD(2);  //получаю координату х моего чара
        MyYpos:=ReadD(6);  //получаю координату у моего чара
        MyZpos:=ReadD(10); //получаю координату z моего чара
      end;
    end;
  end;
end.

black1 · 16.05.2008, 16:22

Супер код!тольк проблема я и на старый не жаловался потомучто не работает не то и не другое

Может что не правельно делаю скрипт не работает

дык прошу помогите как написать пакет!!(ПАКЕТ)
чтоб отправить серву или принять где что посмотреть как? прям чтоб самому сделать потому что кроме кнопки послать клиенту и серверу не видно чтоб чет работало
(вот как у меня все выгледит
Doublexbmw.narod.ru/bbbb.JPG

и кстате а как вапще происходит он на таргет берет? по каким данным опишите плиз

nezabudkin · 16.05.2008, 17:13

Цитата:

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

Супер код!тольк проблема я и на старый не жаловался потомучто не работает не то и не другое

(вот как у меня все выгледит
Doublexbmw.narod.ru/bbbb.JPG
и кстате а как вапще происходит он на таргет берет? по каким данным опишите плиз

Если на скрин посмотреть, то у тебя там чето с перехватом в пакетхаке не так! В списке соединений должно было твое имя появиться!

black1 · 16.05.2008, 17:24

вот пип что делать кто подскажет прогу как настроить
я вроде ток ееё распакавал и запустил потом включаю л2 вожжу акк когда список серверов включаю прогу дык
и потом скрип
Как правельно ннадо включить прогу настроить всмысле?

Кстате пытался вставить скрипт в закладку дополнительно дык сервер разрыает соеденение тудже когда посылаю

И на сервере работают проги к примеру l2control дык там есть авто таргет только не мобов а персонажей

ChiterEPT · 28.05.2008, 01:54

Цитата:

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

Может что не правельно делаю скрипт не работает

А ты всегда TestInit врубаешь??? попробуй без него просто поставь галочку у скрипта и все...

Цитата:

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

слов нет вдруг может тока тебе другую программу замутить надо с поддержкой фастскрипта.
Коллеги модеры я хз конечно но я за! закрытие топика голосуем если кто то против закрытия чистим флуд сами, налицо нежелание юзать поиск и задавать конкретные вопросы.

Может я и не в тему отвечаю поскольку вопрос был задан модерам, но все же выскажу свое мнение.
Если человек попросил помощи, то может стоит ему помочь,а не отправлять в поиск и "задавать конкретные вопросы.". Куда уж конкретнее? А выражение ищите в теме "ДА БУДЕТ БОТ" вообще звучит как приговор, ищите ответа в 30 страницах форумного флуда.
Короче суть в другом: Если вы не хотите или не считаете нужным помогать кому-то, хотябы, не мешайте другим это делать!

Silmaril · 28.05.2008, 11:26

ChiterEPT, а с какого перепугу вопще ктото должен кому то помогать? тут все на добровольной основе, есть у кого есть скрипт старый ненужный

, тот его сюда выложил.
А халява -------> там, в лесу

ChiterEPT · 29.05.2008, 00:17

Цитата:

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

ChiterEPT, а с какого перепугу вопще ктото должен кому то помогать?

Никто никому ничего не должен!!! Просто мне например не в лом ответить или подсказать. Дело в другом. Зачем тему закрывать? Может найдется тот кто найдет время и поможет...

Цитата:

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

'для новичков' ну или чайников, нубов и тд.

АрхАнгел без обид. А ты родился всезнайкой? Или все же по началу был тем же нубом и чайником и так же просил кого-то тебе помочь?

Grinch · 29.05.2008, 10:21

Цитата:

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

А ты всегда TestInit врубаешь??? попробуй без него просто поставь галочку у скрипта и все...

Может я и не в тему отвечаю поскольку вопрос был задан модерам, но все же выскажу свое мнение.
Если человек попросил помощи, то может стоит ему помочь,а не отправлять в поиск и "задавать конкретные вопросы.". Куда уж конкретнее? А выражение ищите в теме "ДА БУДЕТ БОТ" вообще звучит как приговор, ищите ответа в 30 страницах форумного флуда.
Короче суть в другом: Если вы не хотите или не считаете нужным помогать кому-то, хотябы, не мешайте другим это делать!

смотри шире из-за таким тем вообще на форуме найти ничего нельзя, так что позиция модеров 1 юзай поиск, так как ответ на его вопрос есть как минимум в 5 топиках, просто надо приложить капельку усилий, а флуд в теме Да будет бот удалён если кто не заметил иначе там было бы страниц 60

Добавлено через 2 минуты

Цитата:

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

А я соглаcен с модерами, каждый день (ну может не каждый, но часто) появляется новичок, который требует чтобы ему всё разжевали.
И это уже даже меня напрягает, хотя я сдесь не так давно прописался, что говорить о старожилах. Причем некоторые так безнадежно тупят, что только диву даешься, как так можно.

Grinch, чтобы задавать конкретные вопросы, нужно хоть что понимать, но...
Так что я думаю надо в каждом разделе форума надо большущими красными буквами сделать раздел 'для новичков' ну или чайников, нубов и тд. Сделать его по типу недавно появившегося FaQ, только немного побольше и добавить туда описание программы (опять же поподробнее).
И если появиться очередной тупой вопрос, отправлять в этот раздел и закрывать тему.

новый раздел, да время будет больше фаг сделаем, над этим работают сейчас 3 модера по мере своих сил, которые не безграничны