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

GERRARD · 06.06.2009, 20:27

[quote=QaK;31566]погугли=)

я искал ниче не нашол если можешь дай плз ссылку,там ГМ шоп не просто выбрать точку и ок нажимать,а надо из 1 окна во 2 перетянуть скока надо и ОК нажать,вот с него мне надо точки скупать,если мож дай ссылку на такой скрипт

QaK · 08.06.2009, 12:01

GERRARD, если у кого-то есть готовый скрипт, и он согласится его выложить - тогда забирай, если нет - жди, когда появится кто-нить добрый, который этот скрипт напишет, или, как вариант, предложи цену за скрипт.

Flash · 06.06.2009, 18:03

Ребят а какая хлапа(версия) под грацию(первая часть)нужна?
И исчо вот у меня например из l2phx.3.4.1.80 вылетает,т.е йа гружу её и спустя несколько секунд она сворачиваецо в трей(исразу же офаецо)...и так происходит со многими версиями,подскажите из-за чего и как с этим бороцо...

InnocentManiac · 08.06.2009, 22:43

помогите пожалуйста,при отправлении пакета вылетает вот такая штука в чате "You will be kicked for illegal action, GM informed." и вылитает дисконект,версия l2phx.3.5.11.118

8tomat8 · 08.06.2009, 23:02

InnocentManiac,
"You will be kicked for illegal action, GM informed."
Дословный перевод
"Вы будете выкинуты из игры за не легальное действие, ГМ проинформирован"
Это по тому что то та дырка в которую ты пытаешся потыкать уже заклеена)))
Или же не правельный пакет)

klemberg · 09.06.2009, 12:34

Помогите пожалуйста нубу.
Пока что со всем получалось разобраться, но столкнулся с разбором пакета PledgeShowMemberListAll

Помогите распарсить пакет-список и получить данные о сокланах в виде:
ник;класс;лвл

Плиз. Просто не въехал как парсить списки и, думаю, это будет хорошим примером-семплом на будущее.
Если пропустил эту инфу на форуме - ткните носом плиз.

Спасибо.

QaK · 09.06.2009, 12:50

klemberg, ты сам пакет выложи хотябы, для начала.

klemberg · 09.06.2009, 13:25

пакет:

Код:

53 00 00 00 00 E8 3B 2C 10 00 00 00 00 55 00 4D 00 49 00 58 00 00 00 6F 00 6F 00 70 00 73 00 61 00 72 00 69 00 6E 00 00 00 B9 E5 3D 10 06 00 00 00 00 00 00 00 3D 00 00 00 00 00 00 00 24 18 00 00 00 00 00 00 00 00 00 00 E8 3B 2C 10 55 00 4D 00 49 00 58 00 00 00 F4 E1 3D 10 00 00 00 00 15 00 00 00 70 00 65 00 6E 00 64 00 75 00 72 00 6B 00 61 00 00 00 42 00 00 00 37 00 00 00 00 00 00 00 69 85 37 10 00 00 00 00 00 00 00 00 73 00 68 00 61 00 6E 00 64 00 61 00 72 00 69 00 73 00 00 00 4C 00 00 00 76 00 00 00 00 00 00 00 92 F7 02 10 01 00 00 00 00 00 00 00 65 00 76 00 61 00 63 00 75 00 61 00 74 00 6F 00 72 00 00 00 50 00 00 00 74 00 00 00 00 00 00 00 85 54 0D 10 01 00 00 00 00 00 00 00 62 00 61 00 73 00 74 00 61 00 72 00 64 00 6F 00 32 00 00 00 34 00 00 00 6E 00 00 00 00 00 00 00 8E A5 4B 10 00 00 00 00 00 00 00 00 62 00 6F 00 6F 00 6D 00 65 00 72 00 61 00 6E 00 67 00 00 00 4E 00 00 00 5C 00 00 00 00 00 00 00 A7 9B 45 10 00 00 00 00 00 00 00 00 4A 00 49 00 65 00 70 00 6F 00 34 00 6B 00 61 00 00 00 33 00 00 00 0D 00 00 00 00 00 00 00 EE 7D 24 10 00 00 00 00 00 00 00 00 61 00 31 00 74 00 65 00 72 00 00 00 4F 00 00 00 73 00 00 00 00 00 00 00 AE EB 57 10 00 00 00 00 00 00 00 00 46 00 4F 00 52 00 45 00 58 00 00 00 09 00 00 00 35 00 00 00 00 00 00 00 10 62 1E 10 00 00 00 00 00 00 00 00 73 00 6F 00 76 00 69 00 6E 00 69 00 6F 00 6E 00 00 00 34 00 00 00 5E 00 00 00 00 00 00 00 8C 38 2C 10 00 00 00 00 00 00 00 00 6F 00 6F 00 70 00 73 00 61 00 72 00 69 00 6E 00 00 00 4D 00 00 00 76 00 00 00 00 00 00 00 58 F4 50 10 01 00 00 00 00 00 00 00 69 00 6E 00 71 00 75 00 69 00 73 00 69 00 74 00 6F 00 72 00 00 00 4E 00 00 00 5A 00 00 00 00 00 00 00 B3 BE 0D 10 00 00 00 00 00 00 00 00 6C 00 65 00 66 00 74 00 73 00 74 00 72 00 65 00 61 00 6D 00 00 00 4F 00 00 00 70 00 00 00 00 00 00 00 91 9C 21 10 00 00 00 00 00 00 00 00 42 00 7A 00 64 00 6F 00 6F 00 00 00 50 00 00 00 75 00 00 00 00 00 00 00 A8 B0 1B 10 00 00 00 00 00 00 00 00 74 00 65 00 65 00 6E 00 6B 00 61 00 00 00 4C 00 00 00 76 00 00 00 00 00 00 00 E6 6D 1E 10 01 00 00 00 00 00 00 00 54 00 72 00 75 00 65 00 45 00 76 00 69 00 6C 00 00 00 50 00 00 00 74 00 00 00 00 00 00 00 2B EE 49 10 00 00 00 00 00 00 00 00 62 00 61 00 73 00 74 00 61 00 72 00 64 00 6F 00 00 00 34 00 00 00 6E 00 00 00 00 00 00 00 81 57 15 10 00 00 00 00 00 00 00 00 64 00 65 00 6D 00 6F 00 6C 00 69 00 74 00 69 00 6F 00 6E 00 00 00 50 00 00 00 69 00 00 00 00 00 00 00 7A 47 44 10 01 00 00 00 00 00 00 00 6C 00 75 00 74 00 69 00 71 00 75 00 65 00 00 00 50 00 00 00 6B 00 00 00 00 00 00 00 86 8A 1D 10 01 00 00 00 00 00 00 00 61 00 62 00 73 00 6F 00 6C 00 75 00 74 00 65 00 00 00 50 00 00 00 62 00 00 00 00 00 00 00 5F 9A 5A 10 00 00 00 00 00 00 00 00 73 00 79 00 70 00 65 00 72 00 6B 00 72 00 61 00 66 00 74 00 00 00 46 00 00 00 39 00 00 00 00 00 00 00 32 F7 56 10 01 00 00 00 00 00 00 00 61 00 73 00 68 00 61 00 6B 00 69 00 65 00 6C 00 00 00 50 00 00 00 64 00 00 00 00 00 00 00 CB 79 0A 10 01 00 00 00 00 00 00 00

фрагмент его расшифровки ПХ:

Код:

[Начало повторяющегося блока 15/21]
0682 s memberName: TrueEvil
0700 d memLvl: 80
0704 d memClassId: 116
0708 d d: 0
0712 d memObjId: 273280555
0716 d isOnLine: 0
0720 d d: 0
[Конец повторяющегося блока  15/21]
[Начало повторяющегося блока 16/21]
0724 s memberName: bastardo
0742 d memLvl: 52
0746 d memClassId: 110
0750 d d: 0
0754 d memObjId: 269834113
0758 d isOnLine: 0
0762 d d: 0
[Конец повторяющегося блока  16/21]

нужны данные memberName, memLvl, memClassId по каждому блоку.
//QaK:Цветами пометил кусок, дальше думай сам.
З.Ы. s - строка,d - четырехбайтное число

Добавлено через 28 минут
- Помогите разобраться, нужны данные А, Б, С
- А, Б, С выделил цветом. разбирайся сам.

Спасибо за помощь в выделении сказанного мной.

NLObP · 09.06.2009, 14:28

klemberg, для лучшего отображения расшифровки пакета можно в packetsT0.ini заменить на это

Код:

53=PledgeShowMemberListAll:d(mainOrSubpledge)d(clanID)d(pledgeType)s(clanName)s(LeaderName)d(clanCrestId)d(clanLvl)d(hasCastle)d(hasHideOut)d(Rank)d(reputation)d(d)d(d)d(AllyID)s(AllyName)d(AllyCrestId)d(isAtWar)d(memberCount:For.0007)s(memberName)d(memLvl)d(memClassId:Get.ClassID)d(d)d(memObjId)d(isOnLine)d(d)
54=PledgeShowMemberListUpdate:s(playerName)d(Lvl)d(ClassId:Get.ClassID)d(d)d(objectID)d(isOnLine)d(pledgeType)d(hasSponsor)
55=PledgeShowMemberListAdd:s(Name)d(Lvl)d(ClassId:Get.ClassID)d(d)d(d)d(isOnLine)d(pledgeType)

Код:

              [Начало повторяющегося блока 1/21]
0100 s  memberName: pendurka
0118 d  memLvl: 66
0122 d  memClassId: Bounty Hunter ID:55 (0x0037)
0126 d  d: 0
0130 d  memObjId: 272074089
0134 d  isOnLine: 0
0138 d  d: 0
              [Конец повторяющегося блока  1/21]
              [Начало повторяющегося блока 2/21]
0142 s  memberName: shandaris
0162 d  memLvl: 76
0166 d  memClassId: Maestro ID:118 (0x0076)
0170 d  d: 0
0174 d  memObjId: 268629906
0178 d  isOnLine: 1
0182 d  d: 0
              [Конец повторяющегося блока  2/21]

Вот скрипт (без проверки на работоспособность) по сбору данных MemberList

delphi Код:

const
  max=50;

var
  BaseMemberName:  array[1..max] of string;
  BaseMemberList:  array[1..max, 1..2] of integer;
  {
  1-memLvl
  2-memClassId
  }

procedure Init; //Вызывается при включении скрипта
begin
end;

procedure Free; //Вызывается при выключении скрипта
begin
end;

procedure MemberList;
{Создаем базу

Tип: 0x53 (PledgeShowMemberListAll)
Pазмер: 981+2
Время прихода: 13:22:34:140
0002 d  mainOrSubpledge: 0 (0x00000000)
0006 d  clanID: 271334376 (0x102C3BE8)
0010 d  pledgeType: 0 (0x00000000)
0014 s  clanName: UMIX
0024 s  LeaderName: oopsarin
0042 d  clanCrestId: 272491961 (0x103DE5B9)
0046 d  clanLvl: 6 (0x00000006)
0050 d  hasCastle: 0 (0x00000000)
0054 d  hasHideOut: 61 (0x0000003D)
0058 d  Rank: 0 (0x00000000)
0062 d  reputation: 6180 (0x00001824)
0066 d  d: 0 (0x00000000)
0070 d  d: 0 (0x00000000)
0074 d  AllyID: 271334376 (0x102C3BE8)
0078 s  AllyName: UMIX
0088 d  AllyCrestId: 272490996 (0x103DE1F4)
0092 d  isAtWar: 0 (0x00000000)
0096 d  memberCount: 21 (0x00000015)
              [Начало повторяющегося блока 1/21]
0100 s  memberName: pendurka
0118 d  memLvl: 66
0122 d  memClassId: Bounty Hunter ID:55 (0x0037)
0126 d  d: 0
0130 d  memObjId: 272074089
0134 d  isOnLine: 0
0138 d  d: 0
              [Конец повторяющегося блока  1/21]
              [Начало повторяющегося блока 2/21]
0142 s  memberName: shandaris
0162 d  memLvl: 76
0166 d  memClassId: Maestro ID:118 (0x0076)
0170 d  d: 0
0174 d  memObjId: 268629906
0178 d  isOnLine: 1
0182 d  d: 0
              [Конец повторяющегося блока  2/21]
              [Начало повторяющегося блока 3/21]
0186 s  memberName: evacuator
0206 d  memLvl: 80
0210 d  memClassId: Doomcryer ID:116 (0x0074)
0214 d  d: 0
0218 d  memObjId: 269309061
0222 d  isOnLine: 1
0226 d  d: 0
              [Конец повторяющегося блока  3/21]
}
var
  i, j, k: integer;
  memberCount: integer;
begin
  j:=96; //смещение для memberCount
  memberCount:=ReadD(j); //количество итемов не должно превышать max!
  for i:=1 to max do
  begin
    if (i<=memberCount) then begin
      BaseMemberName[i]:=ReadS(j);    //memberName
      BaseMemberList[i,1]:=ReadD(j);  //memLvl
      BaseMemberList[i,2]:=ReadD(j);  //memClassId
      inc(j,16);
    end else begin
      for k:=1 to 2 do BaseMemberList[i,k]:=0; // забиваем нулями
      BaseMemberName[i]:='';                  //стираем
    end;
  end;
end;

//******************************************************************************
{
основная часть скрипта, вызывается при приходе каждого пакета, если скрипт включен
}
//******************************************************************************
begin
  //****************************************************************************
  //не обрабатываем пустые пакеты
  if pck='' then exit;

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

klemberg · 09.06.2009, 14:47

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

Блин, я понял

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

delphi Код:

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, спасибо огромное!!!