Кружок нубов(Вопрос-Ответ) - Страница 131

DeVolf · 05.10.2007, 22:00

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

Код:

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

alexteam · 19.01.2010, 21:41

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

Phys1 · 20.01.2010, 02:14

Цитата:

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

Phys1, шог?

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

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

supernewbie · 21.01.2010, 10:04

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

SeregaZ · 21.01.2010, 12:21

перебор инвентаря обсуждался. где-то тут примеры от 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] - зато сам делал и мне все понятно

Ma3aXakA · 21.01.2010, 14:25

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

помагите.Все по Дитально обьяснить или в картинках или в видео ваше не че не понял если че неправильно сори

supernewbie · 21.01.2010, 17:36

Цитата:

Сообщение от 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 идом.

SeregaZ · 21.01.2010, 22:24

а во... увидел. вобщем тебе мой пример не подойдет. тебе нужен полный перебор инвентаря. уменя же инвентори апдейт - там пакет маленький всего на 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 · 22.01.2010, 02:53

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

Макся · 22.01.2010, 05:17

сразу извените за тупой вопрос, но очень нужен скрипт\пакет для телепортации в любой город ... если таков существует

ПРоблема в том что я застрял в текстурах на континенте грации сое не пашет, релог непомогает, гм"ам по**й на все а мне перса нада вытащить. Получаеться что летаю (трансформ в сову) под текстурами локаций и немогу "вылететь" наверх. Пробовал прописивать /target и имя гм-шопа\мульта\бафера\тп но ничего не получаеться.

SeregaZ · 22.01.2010, 11:36

Макся
/unstuck у вас на сервере не работает?

supernewbie
то был еще маленький скрипт

в твоем случае он будет гораааааздо больше

Добавлено через 9 минут
вот. нашел за тебя... лентяй...
http://coderx.ru/showthread.php?t=25&page=125
начиная с поста #1248 и дальше вниз ищи посты alexteam. как там что работает я незнаю, я буду делать по своему, так что мучай его теперь по этим вопросам