ДА БУДЕТ БOT! - Страница 43

NLObP · 10.06.2008, 18:49

Цитата:

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

> IDBot1:=pck[18]+pck[19]+pck[20]+pck[21];
что за извращенство? ))) разве IDBot1:=readd(18); не проще?

а понил, вероятно для совместимости со старыми версями

Не, это просто, кому как нравится.

DashKAaa · 11.06.2008, 09:07

Цитата:

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

У меня появился небольшой вопросик, из-за чего мошут быть тормоза в клиенте при большом скоплении народа? Т.е. если я ползуюсь LPacketHack, в нем работает скрипт, например на самоупотребление банок на ЦП/ХП, то при походе на осаду или на РБ начинаються жуткие тормоза. 100% это не из-за железа, т.к. оно просто пока ещё не может тормозить

, насчёт интернета я не уверен но без программы всё вроде бы норм, бывают "подвесы" но не сильные, инет 128 кБ/с. Кто может поделиться советами по этому поводу? (изменение графики с минимальных на максимальные настройки в игре ниго не даёт)

у меня 9 окон на пакет хаке, в местах больших скоплений мобов, не каких лагов не наблюдал вообще, если только спустя 2 дня без рестарта и постоянного ботерства в 12 валкеров и 9пакет хак-окон.

конфиг своего железа скажи, какой скрпт на цп юзаешь и под какие хроники?

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

Цитата:

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

Не могли бы вы подсказать пакеты для других бафов?
Death Wishper
Greater Might
Greater Shield

не проще самому отловить ?
hstr('2F DA 04 00 00 00 00 00 00 00'); // ДЕФ ВИСПЕР
hstr('2F 6C 05 00 00 00 00 00 00 00'); // гритер ПА
hstr('2F 6D 05 00 00 00 00 00 00 00'); // гритер ПД

Denis63RUS · 11.06.2008, 14:17

Цитата:

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

конфиг своего железа скажи, какой скрпт на цп юзаешь и под какие хроники?

Конфиг железа:
Корпус: АТХ
БП: Термалтейк 600 ВТ
Мать: ASUS P5K Premium/AP
Проц: Intel Q6600 (степинг B3

)c кулером Термалтейк BT
Видео: GF 8800 GTS (640)
Память: 2х1 GB Corsar C4
Жесткий: 320 GB Seageate SATA2

Система не разогнана!

Скрипт:

PHP код:


			
//by mks

//помошник в PvP и PK.

//пьет CP и HP пробирки в нужное время(можно добавить и MP для пвп серваков), и освобождает вас от небоходимости зажатия клавиши Ctrl, которая так меня раздражает!(думаю это раздражает и не только меня)

///////////////////////////////////////////////////////

///////////////Master PvP by MKS v.1.0/////////////////

///////////////////////////////////////////////////////



//после активации скрипта необходимо выпить сначала банку CP, потом HP для получения их ID

const

   Name='BblXyX0Jlb';  //ник перса

var

   CurHP,MaxHP,CurCP,MaxCP: integer;

   CPuse,HPuse,ObName: string;



   TimerCP,TimerHP: TTimer;



procedure Init; //Вызывается при включении скрипта

begin

  TimerCP:=TTimer.Create(nil);

  TimerCP.OnTimer:=@OnTimerCP;

  TimerCP.enabled:=false;

  TimerCP.interval:=800;  //интервал 1сек, т.к. чаще пить CP всеравно не будет, дабы не засорять трафик



  TimerHP:=TTimer.Create(nil);

  TimerHP.OnTimer:=@OnTimerHP;

  TimerHP.enabled:=false;

  TimerHP.interval:=13000; //интервал 15сек, т.к. действие одной бутылки = 15сек

end;



procedure OnTimerCP(Sender: TObject);

begin

  buf:=CPuse;

  SendToServerEx(Name);

end;

procedure OnTimerHP(Sender: TObject);

begin

  buf:=HPuse;

  SendToServerEx(Name);

end;



procedure Free; //Вызывается при выключении скрипта

begin

  TimerCP.free;

  TimerHP.free;

  HPuse:='';

  CPuse:='';

end;



//основная часть скрипта

//вызывается при приходе каждого пакета если скрипт включен

begin

//пьем сначала CP, потом HP банку что б запомнить их ID(я решил взять эти пакеты целиком, дабы не усложнять)

  if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse='') then CPuse:=pck;

  if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse<>pck) and (HPuse='') then HPuse:=pck;



if FromServer and (ConnectName=Name) and (pck[1]=#$04) then

ObName:=pck[18]+pck[19]+pck[20]+pck[21];

//считываем текущие и максимальные значения CP и HP

if FromServer and (pck[1]+pck[6]=#$0E#$04) and (pck[2]+pck[3]+pck[4]+pck[5]=ObName) then

  begin

    CurHP:=ReadD(14);

    MaxHP:=ReadD(22);

    CurCP:=ReadD(30);

    MaxCP:=ReadD(38);

  end;



end.

На сервере стоит интерлюдия

Добавлено через 7 минут
Да и чуть не забыл, играю обычно через 1,79 ИГ валкер, + 5 ботов через 10.8.6 ООГ валкер. LPacketHack перехватывает только клиента, ООГ идут естественно через WP 5,07. Вот, вроде всё выложил

NLObP · 11.06.2008, 14:41

А скрипт у тебя работате? Что-то я не вижу чтобы он лечил и восстанавливал СР. Нет проверок, что пора пить банки. И сами таймеры выключены.

Grinch · 11.06.2008, 14:43

Цитата:

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

А скрипт у тебя работате? Что-то я не вижу чтобы он лечил и восстанавливал СР. Нет проверок, что пора пить банки. И сами таймеры выключены.

спс а то думал что я уже чего то не понимаю.

Denis63RUS · 11.06.2008, 16:48

Цитата:

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

А скрипт у тебя работате? Что-то я не вижу чтобы он лечил и восстанавливал СР. Нет проверок, что пора пить банки. И сами таймеры выключены.

DDDD
Извеняюсь, скрипт скапировал неправильно , а я и непосмотрел даже^^

Вот полный:

delphi Код:

//by mks
//помошник в PvP и PK.
//пьет CP и HP пробирки в нужное время(можно добавить и MP для пвп серваков), и освобождает вас от небоходимости зажатия клавиши Ctrl, которая так меня раздражает!(думаю это раздражает и не только меня)
///////////////////////////////////////////////////////
///////////////Master PvP by MKS v.1.0/////////////////
///////////////////////////////////////////////////////

//после активации скрипта необходимо выпить сначала банку CP, потом HP для получения их ID
const
   Name='XakuM';  //ник перса
var
   CurHP,MaxHP,CurCP,MaxCP: integer;
   CPuse,HPuse,ObName: string;

   TimerCP,TimerHP: TTimer;

procedure Init; //Вызывается при включении скрипта
begin
  TimerCP:=TTimer.Create(nil);
  TimerCP.OnTimer:=@OnTimerCP;
  TimerCP.enabled:=false;
  TimerCP.interval:=800;  //интервал 1сек, т.к. чаще пить CP всеравно не будет, дабы не засорять трафик

  TimerHP:=TTimer.Create(nil);
  TimerHP.OnTimer:=@OnTimerHP;
  TimerHP.enabled:=false;
  TimerHP.interval:=13000; //интервал 15сек, т.к. действие одной бутылки = 15сек
end;

procedure OnTimerCP(Sender: TObject);
begin
  buf:=CPuse;
  SendToServerEx(Name);
end;
procedure OnTimerHP(Sender: TObject);
begin
  buf:=HPuse;
  SendToServerEx(Name);
end;

procedure Free; //Вызывается при выключении скрипта
begin
  TimerCP.free;
  TimerHP.free;
  HPuse:='';
  CPuse:='';
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//пьем сначала CP, потом HP банку что б запомнить их ID(я решил взять эти пакеты целиком, дабы не усложнять)
  if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse='') then CPuse:=pck;
  if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse<>pck) and (HPuse='') then HPuse:=pck;

if FromServer and (ConnectName=Name) and (pck[1]=#$04) then
ObName:=pck[18]+pck[19]+pck[20]+pck[21];
//считываем текущие и максимальные значения CP и HP
if FromServer and (pck[1]+pck[6]=#$0E#$04) and (pck[2]+pck[3]+pck[4]+pck[5]=ObName) then
  begin
    CurHP:=ReadD(14);
    MaxHP:=ReadD(22);
    CurCP:=ReadD(30);
    MaxCP:=ReadD(38);
  end;

//если вы используете не грэйтер CP то вместо 200 подставьте кол-во CP сколько восстанавливает 1 банка
if (CurCP<MaxCP-200) and (CPuse<>'') then TimerCP.enabled:=true else TimerCP.enabled:=false;
if (CurHP<MaxHP) and (HPuse<>'') then TimerHP.enabled:=true else TimerHP.enabled:=false;

end.

Добавлено через 9 минут
Да, и ещё один вопрос, который начинал обсуждаться в ветке пакеты, но там ответа я не нашёл. Хочу написать скрипт на сигнализациюю о появлении в области досягаемости врага (т.е. клан вара), только никак немогу найти в каком пакете приходит информация о них

Я думал что в CharInfo, но пока там ненашёл, можно конечно сделать и проще, через Пакет CharInfo и через совпадение по названию клана, но хотелось бы по всё по уму

DashKAaa · 11.06.2008, 19:22

Этот скрипт под интерлюду на ЦП не пашет вообще

NLObP · 12.06.2008, 09:58

Цитата:

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

Этот скрипт под интерлюду на ЦП не пашет вообще

Скорее всего только из-за неправильных смещений

Код:

    CurHP:=ReadD(14);
    MaxHP:=ReadD(22);
    CurCP:=ReadD(30);
    MaxCP:=ReadD(38);

а так должен работать. Почему бы не работать? Руками пьются бутылки СР?

Silmaril · 12.06.2008, 16:08

Denis63RUS, посмотри SiedgeFlag в пакете 03, вроде оно

Rackot · 12.06.2008, 20:25

Вопрос, а каким образом лучше реализовать автодетект наличия на себе селф бафов(ака Батл Роар, Рэйдж у дестроера) и соответсвенно при обнаружении отсутсвия таковых и при условии что бафы откатились,юзать их снова?
//мб вопрос ламерский и не в то теме Оо