[Помогите]Прикрутить таймер к скрипту

[afonbka]

Неа, не работает вообще не пьет банки...

Добавлено через 36 секунд

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

19 D9 03 21 10 00 00 00 00 - юзание хп банки?

да. узание хп банки, чтобы не писать процедуру определения обектида.

[NLObP]

afonbka, дай лог пакетов при лечении банками, чтобы точно написать скрипт.

Вот скрипт для С4

//автоматическое использование НР пробирок by NLObP
// 1-Изменяем Name='NLObP';
// 2-бросаем, подбираем или выпиваем Heal Potion

//Работа проверена на L2C4 Protocol 660 LocalServer "L2J FORTRESS"

const
    Name='NLObP';

var
    ColvoHP, CharObjID, ItemObjID: integer;
    MaxHP, CurHP: integer;
    TimerHP: TTimer;
    Status: boolean;

procedure OnTimerHP(Sender: TObject);
begin
    if ColvoHP=0 then exit;
    buf:=#$14;
    WriteD(ItemObjID);
    WriteD(00);
    SendToServerEx(Name);
    ColvoHP:=ColvoHP-1; //количество хилок
    if ColvoHP=0 then begin
      Say('Хилок='+inttostr(ColvoHP));
      Say('Кончились хилки! Закупите Heal Potion!');
    end;
end;

procedure Say(msg:string);
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(Name);
  WriteS(msg);
  SendToClientEx(Name);
end;

procedure InitStats;
var
  i: integer;
begin
  //Запоминаем ИД
  i:=18;
  CharObjID:=ReadD(i);
  //смещение переменное, зависит от имени (LenName*2+2)
  i:=i+(Length(Name)*2+2)+44;
  MaxHP:=ReadD(i);
  CurHP:=ReadD(i);
  //Say('MaxHP='+inttostr(MaxHP)+'CurHP='+inttostr(CurHP));
  if ItemObjID=0 then exit;
  if (CurHP<=MaxHP-50) then TimerHP.enabled:=true else TimerHP.enabled:=false;
end;

procedure StatsUpdate;
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do begin
    case pck[i*8+10] of
      #$09: CurHP:=ReadD(i*8+14);
      #$0A: MaxHP:=ReadD(i*8+14);
    end;
  end;
  if ItemObjID=0 then exit;
  if (CurHP<=MaxHP-50) then TimerHP.enabled:=true else TimerHP.enabled:=false;
end;

//******************************************************************************
procedure ObjtoColvo(ItemObjID:integer);
var
  i: integer;
begin
  if ItemObjID=0 then exit;
  for i:=0 to ReadD(4)-1 do begin
    if ItemObjID=ReadD(i*28+8) then ColvoHP:=ReadD(i*28+16); //количество хилок
  end;
end;

//******************************************************************************
//                 Вызывается при включении скрипта
//******************************************************************************
procedure Init;
begin
    status:=false;
    CharObjID:=0;
    ItemObjID:=0;
    timerHP:=TTimer.Create(nil);
    timerHP.OnTimer:=@OnTimerHP;
    timerHP.enabled:=false;
    timerHP.interval:=5000; //время отката лечения
    Say('Для начала работы скрипта бросаем, подбираем или выпиваем Heal Potion!');
end;

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

//******************************************************************************
//       Вызывается при приходе каждого пакета, если скрипт включен
//******************************************************************************
begin
 //******************************************************************************
  //не обрабатываем пустые пакеты
  if pck='' then exit;

 //******************************************************************************
 //InventoryUpdate
 if FromServer and (ConnectName=Name) and (pck[1]=#$27) and ((ReadD(12)=1060) or (ReadD(12)=1061)) then begin //Healing Potion, Lesser Healing Potion
    ItemObjID:=ReadD(8);
    ColvoHP:=ReadD(16); //количество хилок
    if status then exit;
    Say('Автоматическое использование Нeal Рotion готово к работе!');
    Say('Хилок='+inttostr(ColvoHP));
    status:=true;
 end;

 //******************************************************************************
 //ItemList
 if FromServer and (ConnectName=Name) and (pck[1]=#$1B) and status then begin
    ObjtoColvo(ItemObjID); //количество хилок
    //Say('Хилок='+inttostr(ColvoHP));
 end;

 //******************************************************************************
 //UserInfo
 if FromServer and (ConnectName=Name) and (pck[1]=#$04) then InitStats;

 //******************************************************************************
 //StatusUpdate
 if FromServer and (ConnectName=Name) and (pck[1]=#$0E) and (CharObjID=ReadD(2)) then StatsUpdate;

end.

PS: требуется поправить ID пакетов и смещения в пакетах

[NLObP]

afonbka, можно всего сеанса. Тот скрипт для С4.

[afonbka]

Вот.. Зашел в игру, открыл инвентарь, выпил банку, вышел из игры.

[afonbka]

Я понимаю что для С4, пробывал модифицировать под фрею, но увы.. без результатно, запускается нормально, но не глотает банки, видать не определяет хп, и интересно откуда берутся ети цифры Read (33) например. В моем случае пакет 18 (статусупдейт) Read(14) = CurHP Read(11) = MaxHP

[dyh9l]

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

Я понимаю что для С4, пробывал модифицировать под фрею, но увы.. без результатно, запускается нормально, но не глотает банки, видать не определяет хп, и интересно откуда берутся ети цифры Read (33) например. В моем случае пакет 18 (статусупдейт) Read(14) = CurHP Read(11) = MaxHP

цифры берутся из расшифровки пакета

[afonbka]

а, понятно.. что нечего не понятно в расшифровке вродебы не указывается под каким ид тот или иной параметр пакета. Это я про детальную расшифровку (та что в окне phx) может быть другая какая есть..

[supernewbie]

это не ид, а номер байта

[afonbka]

или хотябы подскажите как сделать, чтобы в этом скрипте хп проверялось только у заданного конекта, а не у всех окон. Вот скрипт.

//автоматическое использование НР пробирок
const
    Name = 'UberWark';

var MyID:Word;
    OID:String;

begin
 if FromServer and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<=ReadD(11)) then
    begin
     buf:=HStr('19 D9 03 21 10 00 00 00 00');    
     SendToServerEx(Name);
    end;
end.

Определяет хп у всех окон, например у бд неполное хп, варк жрет банки, у свс не полное хп, варк жрет банки, в общем определяет хп у всех окон, но пакет на питье отправляет все правильно. Прошу помоч реализовать

В общем надо, чтоыб вот эту процедуру

begin
 if FromServer and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<=ReadD(11)) then

скрипт выполнял толькона конекте (Name) То есть UberWark

Добавлено через 22 минуты
Думаю что вот так ето делается?

if FromServer and (ConnectName=Name)

Добавлено через 4 минуты
Но теперь он их пьет непереставая, несмотря неначье хп. Прошу помоч разобратся...

Добавлено через 9 минут
Вот так вот помоему получилось:

 if FromServer and (ConnectName=(Name))

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

Хотя нет, все также пьет по старому не перестовая и не смотря неначье хп. Помогите решить проблему.

[Breadfan]

if FromServer and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then

=>>

if FromServer and (connectname=name) and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (connectname=name) and (pck[1]=#$18) and (ReadD(2)=MyID) then