Кружок нубов(Вопрос-Ответ)

[QaK]

Phys1, шог?
HellCeZaR, попробуй переименовать экзешник и заголовок пакетхака.

[Phys1]

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

Phys1, шог?

на шоке можно чтото сделать новичку?

и еше у меня тут на одном сервере вылезает ошибка что я сделал нетак скрин: _http://dump.ru/file/4177179

[tiranosaur]

#$87: begin
if readd(2)=0 then begin
msg.Lines.Add('Улучшили ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(good);
end else begin
msg.Lines.Add('Сломали ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(broken);
end;
// CurEnchLvl:=0; //начнем с начала. Расскоментировать для блессет скроллов
end;

как в этой части сделать чтобы к переменной предположим Х добавлялась 1 при поломке? знаю в си имеет вид Х+=1

и еще помогите пжл запустить бота рыбака в OUT режиме. чет ошибки на отключение выдает. использую версии phx 3.5.28.151 и 3.5.33.164 выдает ошибки на дисконнект

или подскажите пжл где искать. запарился ужо

[alexteam]

"value := value + 1" == "inc(value)" == "inc(value, 1)"

[supernewbie]

Помогите пожалуйсто мне) Я так понимаю, читать из пакета можно командой Read(D), но вот скажем как можно выловить по ИДу вещи из инвенторя, ИД объекта? И как потом вставить этот ИД в WriteD...
ЗЫ я уже перерыл полфорума( мб я тупой но не нашел ничего, разжуйте мне пож)

[SeregaZ]

перебор инвентаря обсуждался. где-то тут примеры от alexteam были
я пока плюнул на этот перебор. мне нужен был id свитка пробуждения - пока каждый раз запуская скрипт - тыкаю вручную свиток и он запоминает его айди и дальше уже сам будит на пвп воротах сопати от слипа:

PHP код:

  if FromServer and (pck[1]=#$27) and (idsvitka = '0') //чтение id свитка
  then begin 
     iditema:=pck[12]+pck[13]+pck[14]+pck[15];
     if (iditema=HStr('95 17 00 00'))  //свиток пробуждения
     then begin 
        idsvitka:=pck[8]+pck[9]+pck[10]+pck[11];
        buf:=#$4A;
        WriteD(0);
        WriteD(10);
        WriteS('');
        WriteS('айди свитка определен: ' + idsvitka);
        SendToClient;
     end;
  end; 


сам пакет инвентори апдейт:
27 01 00 02 00 04 00 13 08 76 40 95 17 00 00 7E 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00

95 17 00 00 это айди свитка по базе
13 08 76 40 это айди предмета в игре

реад конечно круче, чем всякие мазохизмы с pck[8]+pck[9]+pck[10]+pck[11] - зато сам делал и мне все понятно

[supernewbie]

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

перебор инвентаря обсуждался. где-то тут примеры от alexteam были
я пока плюнул на этот перебор. мне нужен был id свитка пробуждения - пока каждый раз запуская скрипт - тыкаю вручную свиток и он запоминает его айди и дальше уже сам будит на пвп воротах сопати от слипа:

PHP код:

  if FromServer and (pck[1]=#$27) and (idsvitka = '0') //чтение id свитка
  then begin 
     iditema:=pck[12]+pck[13]+pck[14]+pck[15];
     if (iditema=HStr('95 17 00 00'))  //свиток пробуждения
     then begin 
        idsvitka:=pck[8]+pck[9]+pck[10]+pck[11];
        buf:=#$4A;
        WriteD(0);
        WriteD(10);
        WriteS('');
        WriteS('айди свитка определен: ' + idsvitka);
        SendToClient;
     end;
  end; 


сам пакет инвентори апдейт:
27 01 00 02 00 04 00 13 08 76 40 95 17 00 00 7E 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00

95 17 00 00 это айди свитка по базе
13 08 76 40 это айди предмета в игре

реад конечно круче, чем всякие мазохизмы с pck[8]+pck[9]+pck[10]+pck[11] - зато сам делал и мне все понятно

что-то я не понял что он делает, мне надо чтобы он читал из инвенторя по ИДу итема ид объекта. И потом вставить этот ИД в другой пакет. И что за пакет 27? Я просто вообще ничего не знаю

Добавлено через 4 минуты
Блин, а теперь и вовсе ругается(

PHP код:

const
     Name='10';
var
   timer:TTimer;
procedure Init;
begin
     timer:=TTimer.Create(nil);
     timer.interval:=2000;
     timer.OnTimer:=@fireTimer;
     timer.enabled:=true;
end;
procedure Free;
begin
     timer.free;
end;
procedure fireTimer(Sender: TObject);
begin

  
end;
begin
  if FromServer and (pck[1]=#$14) and (idsvitka = '0') //чтение id свитка <<<< Вот на эту строку
  then begin 
     iditema:=pck[12]+pck[13]+pck[14]+pck[15];
     if (iditema=HStr('B6 05 00 00'))  //свиток пробуждения
     then begin 
        idsvitka:=pck[8]+pck[9]+pck[10]+pck[11];
        buf:=#$17;
        WriteD(idsvitka);
        WriteD(1);
        WriteD(115176);
        WriteD(-178666); 
        WriteD(-937);
        SendToServer;    

  end;  
    timer.enabled:=false;       
    

end;


end. 


Что не так тут?(

Добавлено через 1 час 38 минут
Вообщем мне надо сделать чтобы у меня сканировался инвентарь, и выбрасывался предмет с 1 идом.

[Ma3aXakA]

Кто может помоч как разобраца в l2phx.3.5.33.164.Во всех придыдуших версиях все понял а в этой не фурычупомагите.Все по Дитально обьяснить или в картинках или в видео ваше не че не понял если че неправильно сори

[SeregaZ]

а во... увидел. вобщем тебе мой пример не подойдет. тебе нужен полный перебор инвентаря. уменя же инвентори апдейт - там пакет маленький всего на 1-2 вещи, которые изменяются в данный момент.
тебе надо разбирать пакет 1B - ItemListPacket
вот пример пакета:
1B 01 00 10 00 00 00 89 ED 8A 40 5A 03 00 00 01 00 00 00 02 00 00 00 01 00 06 00 00 00 00 00 00 00 00 00 2D 75 8A 40 98 03 00 00 01 00 00 00 02 00 00 00 01 00 08 00 00 00 00 00 00 00 01 00 26 49 89 40 ED 18 00 00 01 00 00 00 01 00 00 00 01 00 00 10 00 00 00 00 00 00 01 00 DA BC 8A 40 EE 18 00 00 01 00 00 00 01 00 00 00 01 00 40 00 00 00 00 00 00 00 00 00 92 E1 8A 40 79 03 00 00 01 00 00 00 02 00 00 00 01 00 30 00 00 00 00 00 00 00 01 00 74 13 8B 40 EB 18 00 00 01 00 00 00 01 00 00 00 01 00 00 80 00 00 00 00 00 00 00 00 D6 E9 8A 40 B4 19 00 00 01 00 00 00 00 00 00 00 01 00 00 40 00 00 00 00 00 00 00 00 AB 9D 8A 40 5A 03 00 00 01 00 00 00 02 00 00 00 01 00 06 00 00 00 00 00 00 00 00 00 CF D8 8A 40 79 03 00 00 01 00 00 00 02 00 00 00 01 00 30 00 00 00 00 00 00 00 01 00 11 3D 88 40 6F 02 00 00 01 00 00 00 01 00 00 00 01 00 00 20 00 00 00 00 00 00 01 00 EC A8 8A 40 AD 02 00 00 01 00 00 00 01 00 00 00 01 00 01 00 00 00 00 00 00 00 01 00 B4 00 8A 40 EC 18 00 00 01 00 00 00 01 00 00 00 01 00 00 02 00 00 00 00 00 00 00 00 A0 04 8B 40 C2 19 00 00 01 00 00 00 00 00 00 00 00 00 00 40 00 00 00 00 00 00 04 00 30 99 8A 40 41 05 00 00 53 02 00 00 05 00 00 00 00 00 00 01 00 00 00 00 00 00 04 00 9F FE 8A 40 BB 05 00 00 CE 03 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 D9 8D 8A 40 39 00 00 00 7A 43 04 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00

как я сделал (точней еще не доделал) - сперва читаем количество предметов - отмечено синим - 16 штук.
потом прогоняем через цикл 16 раз, с выделением в нем ID предмета по базе и сравниваем со своим, который ищем.
это в примере сережка ТТ. к примеру если мы её ищем, то её ID в игре будут предидущие 4 позиции. выделил зеленым.

кароче не ленись. ищи пример от alexteam там про перебор инвентаря.

[supernewbie]

О, госпади, то есть тот ГРОМАДНЕЙШИЙ скрипт был на всего лишь жалкое какое-то нахождение ИДа?! О госпади... ну ладно...