ДА БУДЕТ БOT!

[Grinch]

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

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

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

[Denis63RUS]

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

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

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

Вот полный:

//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 и через совпадение по названию клана, но хотелось бы по всё по уму

[Silmaril]

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

[Denis63RUS]

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

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

Странно, но у меня такого нет в описании пакета Вылажи плиз своё описание пакета 03

[DashKAaa]

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

[NLObP]

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

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

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

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

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

[Rackot]

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

[VORON]

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

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

если я не ошибаюсь.. то... клиент от сервера получает инфу об наличии бафов тока в момент их наложения.. в пакете ЭБНОРМАЛ СТАТУС АПДЕЙТ.. возможно етот пакет приходит еще когдато.. тока хз когда.. в нем циклом перечисляются наложенные бафы и время до их окончания.. и еще чета.. стартонув скрипт в момент когда уже бафы- лежат- неимеет смысла так как ты неполучиш пакет ЭБНОРМАЛ СТАТУС АПДЕЙТ.. имеет смысл скрипт запускать заранее.. перед бафом.. тогда возможно отслеживать все наложенные бафы..

[Silmaril]

из пакетс.ини
03=CharInfo:d(X)d(Y)d(Z)-(4)h(ObjectID)s(Name)d(Race)d(Sex)d(ClassID)-(4)i(Head)i(RHand)i(LHand)i(Gloves)i(Chest)i(Legs) i(Feet)i(Back)i(LRHand)i(Hair)d(PvPFlag)d(Carma)d( MSpeed)d(PSpeed)d(PvpFlag)d(Karma)d(RunSpeed)d(Wal kSpeed)d(SwimRunSpeed)d(SwimWalkSpeed)d(FlRunSpeed )d(FlWalkSpeed)d(FlyRunSpeed)d(FlyWalkSpeed)f(Move mentSpeedMultiplier)f(AttackSpeedMultiplier)f(Coll isionRadius)f(CollisionHeight)d(HairStyle)d(HairCo lor)d(Face)d(AccessLevel)s(Title)d(ClanId)d(ClanCr estId)d(AllyId)d(AllyCrestId)d(SiegeFlags)b(Sittin g)b(Running)b(InCombat)b(AlikeDead)b(Invisible)b(M ountType)b(PrivateStoreType)

на шоках работает
256-односторонний вар, 257-двусторонний
на ближайших осадах остальные значения выясню

[xkor]

интересно а когда тя несколько бьют то таргет с одного на другого всёвремя прыгает?