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

[klemberg]

NLObP, спасибо, но это уже мелочи

Блин, я понял

вот то, что мне нужно было:

var
  MEMBER_LIST:  array of string;

procedure MemberList;
var
  i, j: integer;
  memberCount: integer;
begin
  j:=96; //смещение для memberCount
  memberCount:=ReadD(j); //количество итемов не должно превышать max!

  SetLength(MEMBER_LIST, memberCount);

  for i:=0 to memberCount-1 do
  begin
      MEMBER_LIST[i]:= ReadS(j) + ';' + IntToStr(ReadD(j)) + ';' + IntToStr(ReadD(j));
      inc(j,16);
  end;
end;

begin
  //****************************************************************************
  //не обрабатываем пустые пакеты
  if pck='' then exit;

  //****************************************************************************
  if FromServer then
  begin
    case pck[1] of
      //************************************************************************
      #$53: MemberList;       //пакет 0x53 (PledgeShowMemberListAll)
    end;
  end;
end.

NLObP, спасибо огромное!!!

[OPASEN]

Вот поймал пакеты в Гм шопе на покупку и обемена колов
1.04 46 A3 00 10 C5 3D 02 00 E3 64 00 00 22 F8 FF FF 00 -пакет таргет гм Шопа
2. 21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 37 00 32 00 35 00 34 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 30 00 33 00 32 00 00 00 -Слово Обеменик нажал
3.Пакет Обемена 10 колов A7 20 00 00 00 40 0D 03 00 0A 00 00 00 00 00 00 00 00 00 00 00
4.04 44 A3 00 10 C5 3D 02 00 E3 64 00 00 22 F8 FF FF 00 -Пакет Таргет Гм шопа
5.48 19 3E 02 00 26 65 00 00 22 F8 FF FF 4C 1B 00 00 00 00 00 00 -Поговрить с гм Шопом
6.пакет я хочу купить точек 21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 37 00 32 00 35 00 32 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 30 00 31 00 39 00 00 00
7.A7 13 00 00 00 20 DF 50 00 43 00 00 00 00 00 00 00 00 00 00 00 -купил точки
Вот несколько пакетов с гм шопами Подсажите плз что нужно заменить в скрипте с помошью пакетов чтобы он сам покупал Ы блесс арм точки и менял колы