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

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

где я ошибся?

[TAMBIK]

вот ты выкладывал все нормально

ItemList
0064 h UnholyDefElementPower: 0 (0x0000)
0066 d RemainingTime: -1 (0xFFFFFFFF)
[Конец повторяющегося блока 1/51]
[Начало повторяющегося блока 2/51]
0070 h ItemTypeID: 0 (0x0000)
0072 d ObjectID: 268582457 (0x10023E39)
0076 d ItemID: Серьга Татеосса ID:858 (0x035A) (0x0000035A)
0080 d LocationSlot: 2 (0x00000002)

а это ненормально

0062 h  HolyDefElementPower: 0 (0x0000)
0064 h  UnholyDefElementPower: 0 (0x0000)
              [Конец повторяющегося блока  1/17]
              [Начало повторяющегося блока 2/17]
0066 h  ItemTypeID: 65535 (0xFFFF)
0068 d  ObjectID: 65535 (0x0000FFFF)
0072 d  ItemID: Unknown Items ID:268572801(10021881) (0x10021881)
0076 d  LocationSlot: 858 (0x0000035A)

сделай чтобы в пакете ItemList правильно считовалось
и правильный пакет выложи

[††JoOD††]

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

[TAMBIK]

††JoOD††,
во все правильно

[††JoOD††]

ну тамбик давай йя те дам ссылку на серв у мя один фиг не чё не видет?????
Тамбик а может быть это ошибка в самом скрипте???

Добавлено через 9 минут
йя не наю что и делать?(

[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

[††JoOD††]

ща попробую

Добавлено через 17 минут
а почему после того как йя закрываю скрипт появляется в том участке скрипта ошибка???

procedure Free; //Вызывается при выключении скрипта
begin
BaseItems:=nil; //нельзя так делать с массивом
ShowInf.Enabled:=false; ShowInf.Interval:=0; ShowInf.Free; ShowInf.OnTimer:=nil;
timer.Enabled:=false; timer.Interval:=0; timer.Free; timer.OnTimer:=nil;

StringList.Clear;
ItemsName.Clear;

Добавлено через 20 минут
(((((((((((нет...бля ща плакать буду чесное слово((((МОЖ йя чё ваааааще не так делаю...не понимаю((((((((((((((((((ТЕРПЕНИЕ ЛОПНУЛО((

всё йя не ною а дальше здраво рассуждаю(

[alexteam]

ShowInf.Enabled:=false; ShowInf.Interval:=0; ShowInf.Free; ShowInf.OnTimer:=nil;

заменить на ShowInf.Free;

timer.Enabled:=false; timer.Interval:=0; timer.Free; timer.OnTimer:=nil;

на timer.Free;

[††JoOD††]

alexteam вот эту строку ShowInf.Enabled:=false; ShowInf.Interval:=0; ShowInf.Free; ShowInf.OnTimer:=nil; заменить на строчку ShowInf.Free;????????????

а можите ещё раз проверить вот это???

[alexteam]

а я по китайски написал ?

[alexteam]

все 4 действия в той строчек сводяться к одному ".free" при чем обращаться к обьекту после .free - самоубийство. что там и делается.