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

[DeVolf]

//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.

где я ошибся?

[††JoOD††]

вот почему так где йя выделел....?

[TAMBIK]

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

††JoOD††,
оставь пакеты как в 896 сообщение
в скрипте изменить ЗДЕСЬ
попрбуй предметы будит видить

begin
  j:=4; //смещение для ListCount
  ListCount:=ReadH(j); //количество итемов не должно превышать max!
  for i:=1 to maxitems do
    if (i<=ListCount) then begin
      BaseItems[i,1]:=ReadH(j);  //ItemType1
      BaseItems[i,2]:=ReadD(j);  //ObjectID
      BaseItems[i,3]:=ReadD(j);  //ItemID
      BaseItems[i,4]:=ReadD(j);  //LocationSlot
      BaseItems[i,5]:=ReadD(j);  //Count
                  j:=j+4; // <<== ДОБАВИТЬ   
      BaseItems[i,6]:=ReadH(j);  //ItemType2
      BaseItems[i,7]:=ReadH(j);  //CustomType1
      BaseItems[i,8]:=ReadH(j);  //isEquipped
      BaseItems[i,9]:=ReadD(j);  //BodyPart
      BaseItems[i,10]:=ReadH(j); //EnchantLevel
      BaseItems[i,11]:=ReadH(j); //CustType2
      BaseItems[i,12]:=ReadH(j); //<<== ИЗМЕНИТЬ
      //debugmsg('OID='+inttostr(BaseItems[i,2])+' ID='+inttostr(BaseItems[i,3]));
      inc(j,38);// <<== ИЗМЕНИТЬ
    end else for k:=1 to 12 do BaseItems[i,k]:=0; // забиваем нулями
  //вносим изменения в чекбоксы
  StringList.Clear;
  try

//debugmsg('OID='+inttostr(BaseItems[i,2])+' ID='+inttostr(BaseItems[i,3]));
inc(j,38);// <<== ИЗМЕНИТЬ
здесь наверно я ошибся пробуй 28

[60HD]

Сообщение от ††JoOD††

вот почему так где йя выделел....?

такаяжэ поблема =(

[alexteam]

дык. значит текущая дирректория у пх не сеттингс.
найди в скрипте
ItemsName.LoadFromFile('itemsid.ini');
пропиши полный путь к нему (чтобы точно находило)
на манер
ItemsName.LoadFromFile('d:\hp\settings\itemsid.ini ');

этот вопрос пиццотпидисят раз подымался... кстати..

[60HD]

=) а тут 100 страниц =)
у меня мозги поплавятса сначала читать.

[TAMBIK]

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

TAMBIK, ну считывай с
length(pck)-3

а как считать от конца пакета 12ый байт

[alexteam]

length(pck)-11 ? 0_о

[††JoOD††]

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

может йя выложу ссылку на сервак и каждый сам попробует с ним разобраться???прост уже второй серв и такая ошибка...как то странно выходит....

[proghunt]

Люди добрые! Кто может подсказать в чём проблема!

В L2phx 3.4.1.68 Всё ок! Конектится, видит клиент, видит чара залогиненного! Но! При выполнении скрипта на логическое условие
if FromClient then
никогда не реагирует, хотя и пакеты идут вроди бы! да и вообще, что-то отправить на клиент через скрипт невозможно! Только готовый пакет, через вкладку "посылка"! Переменные pck и buf всегда пустые

Можно в Асю 317148893

[alexteam]

предудущий пост перемещен.

1. не отмечен галкой к исполнению
2. скрипт выполняеться в вкладке дополнительно (?)
3. фигасе 0_о