Работа над Goddess of Destruction (part 6)

[R2D2]

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

ребят, поделитесь плиз пакетиками новыми типа ExUser ExNpc ExPet итд, просто хочу глянуть что в новых хрониках появилось, а с пакетиками этими у меня туго

Вот Вам пакетики смотрите

[VenomRaider]

как раз то что искал, прям от души тебе за это......=)))))

Добавлено через 42 секунды
а если серьёзно поделитесь плиз, можно в пм. гарантирую на лево не уйдут

[Hint]

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

ребят, поделитесь плиз пакетиками новыми типа ExUser ExNpc ExPet итд, просто хочу глянуть что в новых хрониках появилось, а с пакетиками этими у меня туго

procedure TGameStream.ExUserInfoPacket(Packet: TGamePacket);
var
  I: Integer;
  Flags: TGamePacketBitFlags;
  // ...
 
  function ReadBlockSize(Fixed: Integer = 0): Integer;
  begin
    Result := Packet.ReadH;
    if (Fixed > 0) and (Result <> Fixed) then raise EBadPacket.Create('Invalid block size!');
  end;
 
begin
  with Packet do
    begin
      Player.ObjectId := ReadD;
      ReadH; // Size
      ReadH;
 
      Flags := ReadBitFlags(23);
 
      if Flags[0] then
        begin
          ReadD;
        end;
 
      if Flags[1] then
        begin
          ReadBlockSize;
 
          Player.Name := ReadS2;
          ReadC;
          Player.Race := ReadC;
          Player.Sex := ReadC;
          Player.BaseClassId := ReadD;
          Player.ClassId := ReadD;
          Player.Level := ReadC;
        end;
 
      if Flags[2] then
        begin
          ReadBlockSize(14);
 
          Player.Str := ReadH;
          Player.Dex := ReadH;
          Player.Con := ReadH;
          Player.Int := ReadH;
          Player.Wit := ReadH;
          Player.Men := ReadH;
        end;
 
      if Flags[3] then
        begin
          ReadBlockSize(14);
 
          Player.MaxHP := ReadD;
          Player.MaxMP := ReadD;
          Player.MaxCP := ReadD;
        end;
 
      if Flags[4] then
        begin
          ReadBlockSize(38);
 
          Player.HP := ReadD;
          Player.MP := ReadD;
          Player.CP := ReadD;
          Player.SP := ReadQ;
          Player.Exp := ReadQ;
          Player.ExpProgress := ReadF;
        end;
 
      if Flags[5] then
        begin
          ReadBlockSize(3);
 
          ReadC;
        end;
 
      if Flags[6] then
        begin
          ReadBlockSize(15);
 
          Skip(13); // Hair Style, Hair Color, Face
        end;
 
      if Flags[7] then
        begin
          ReadBlockSize(5);
 
          ReadC;
          Player.PrivateStoreType := ReadC;
          ReadC;
        end;
 
      if Flags[8] then
        begin
          ReadBlockSize(56);
 
          ReadH;
          Player.PAtk := ReadD;
          Player.PAtkSpd := ReadD;
          Player.PDef := ReadD;
          Player.EvasionRate := ReadD;
          Player.Accuracy := ReadD;
          Player.CriticalHit := ReadD;
          Player.MAtk := ReadD;
          Player.MAtkSpd := ReadD;
          Player.PAtkSpd := ReadD;
          Player.MAccuracy := ReadD;
          Player.MDef := ReadD;
          Player.MEvasionRate := ReadD;
          Player.MCriticalHit := ReadD;
        end;
 
      if Flags[9] then
        begin
          ReadBlockSize(14);
 
          Player.Elements.Fire := ReadH;
          Player.Elements.Water := ReadH;
          Player.Elements.Wind := ReadH;
          Player.Elements.Earth := ReadH;
          Player.Elements.Holy := ReadH;
          Player.Elements.Dark := ReadH;
        end;
 
      if Flags[10] then
        begin
          ReadBlockSize(18);
 
          Player.Pos.X := ReadD;
          Player.Pos.Y := ReadD;
          Player.Pos.Z := ReadD;
          ReadD;
        end;
 
      if Flags[11] then
        begin
          ReadBlockSize(18);
 
          for I := 1 to 4 do
            begin
              ReadH; // Run Speed
              ReadH; // Walk Speed
            end;
        end;
 
      if Flags[12] then
        begin
          ReadBlockSize(18);
 
          ReadF;
          ReadF;
        end;
 
      if Flags[13] then
        begin
          ReadBlockSize(18);
 
          ReadF;
          ReadF;
        end;
 
      if Flags[14] then
        begin
          ReadBlockSize(5);
 
          Player.Elements.AttackType := ReadC;
          Player.Elements.AttackPower := ReadH;
        end;
 
      if Flags[15] then
        begin
          ReadBlockSize;
 
          Player.Title := ReadS2;
          ReadH; // Subdivision
          Player.Clan.Id := ReadD;
          ReadD;
          Player.Clan.CrestId := ReadD;
          ReadD;
          ReadC;
          Player.Clan.AllyId :=ReadD;
          Player.Clan.AllyCrestId := ReadD;
          ReadC; // PartyRoom
        end;
 
      if Flags[16] then
        begin
          ReadBlockSize(22);
 
          Skip(12); // PvP, Karma, Noble, Hero, Pledge Class, PK
          Player.PvP := ReadD;
          Player.Recomendations := ReadH;
          ReadH; // Recomendations Left
        end;
 
      if Flags[17] then
        begin
          ReadBlockSize(11);
 
          Skip(9);
        end;
 
      if Flags[18] then
        begin
          ReadBlockSize(9);
 
          Skip(7);
        end;
 
      if Flags[19] then
        begin
          ReadBlockSize(4);
 
          ReadC;
          Player.IsStanding := ReadBoolC;
        end;
 
      if Flags[20] then
        begin
          ReadBlockSize(10);
 
          Player.NameColor := ReadD;
          Player.TitleColor := ReadD;
        end;
 
      if Flags[21] then
        begin
          ReadBlockSize(9);
 
          Skip(7);
        end;
 
      if Flags[22] then
        begin
          ReadBlockSize(13);
 
          Skip(11);
        end;
 
      EndOfPacket;
    end;       
 
  // ...
end;
Code: Pascal

[Reiner]

Как вы ассемблером дастаете - точный код на C++ из Engine.dll ???

[Pendant]

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

Как вы ассемблером дастаете - точный код на C++ из Engine.dll ???

off:

Свернуть ↑ Ручками, ручками...

Свернуть ↑Развернуть ↓

[darkevil]

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

Как вы ассемблером дастаете - точный код на C++ из Engine.dll ???

IDA + HexRay

P.S. Кто вам сказал про точный код? Это декомпил причем на столько паршивый что проще разбираться в асме чем в декомпиле, декомпил иногда помогает понять некоторую суть происходящую в некоторых механизмах и не более, точный код как был у программеров нксофт так там и остался.

[Reiner]

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

IDA + HexRay

P.S. Кто вам сказал про точный код? Это декомпил причем на столько паршивый что проще разбираться в асме чем в декомпиле, декомпил иногда помогает понять некоторую суть происходящую в некоторых механизмах и не более, точный код как был у программеров нксофт так там и остался.

У меня еще хуже декомпил получался, мне нужно одну lib подключить к Engine.dll предварительно кое что оттуда вырезав(Адреса) это просто ужасно сложно(забросил на время), завидую тем кто это умеет как нечего делать.

[BoneBreaker]

А не подскажете правильный опкод ExUserInfo для текущего птс клиента руоффа 929?

У меня новые пакеты получились как то так:

Список:

Свернуть ↑

/*[0xFE:0x14E]*/ExValidateActiveCharacter,
		/*[0xFE:0x14F]*/ExCloseCommissionRegister,
		/*[0xFE:0x150]*/ExTeleportToLocationActivate,
		/*[0xFE:0x151]*/ExNotifyWebPetitionReplyAlarm,//
		/*[0xFE:0x152]*/ExEventShowXMasWishCard,
		/*[0xFE:0x153]*/ExInvitation_Event,//new Epesod
		/*[0xFE:0x154]*/ExInvitation_Event_1,//new Epesod 2
		/*[0xFE:0x155]*/ExCheckAbusing,//new
		/*[0xFE:0x156]*/ExPathToAwakening,
		/*[0xFE:0x157]*/ExPutEnchantScrollItemResult,
		/*[0xFE:0x158]*/ExRemoveEnchantSupportItemResult,
		/*[0xFE:0x159]*/ExShowCardRewardList,//
		/*[0xFE:0x15A]*/ExGmViewCharacterInfo,
		/*[0xFE:0x15B]*/ExUserInfo,
		/*[0xFE:0x15C]*/ExUserInfoEquipSlot,
		/*[0xFE:0x15D]*/ExUserInfoCubic,
		/*[0xFE:0x15E]*/ExUserInfoAbnormalVisualEffect,
		/*[0xFE:0x15F]*/ExUserInfoFishing,
		/*[0xFE:0x160]*/ExPartySpelledInfoUpdate,
		/*[0xFE:0x161]*/ExDivideAdenaStart,
		/*[0xFE:0x162]*/ExDivideAdenaCancel,
		/*[0xFE:0x163]*/ExDivideAdenaDone,
		/*[0xFE:0x164]*/ExPetInfo,
		/*[0xFE:0x165]*/ExSummonInfo,
		/*[0xFE:0x166]*/ExNpcInfo,
		/*[0xFE:0x167]*/ExAcquirePotentialSkillList,
		/*[0xFE:0x168]*/ExStartLuckyGame,
		/*[0xFE:0x169]*/ExBettingLuckyGame,
		/*[0xFE:0x16A]*/ExTraining_Zone,
		/*[0xFE:0x16B]*/ExTraining_Zone_1,
		/*[0xFE:0x16C]*/ExPeriodicHenna,
		/*[0xFE:0x16D]*/ExNpcInfoState,
		/*[0xFE:0x16E]*/ExNpcInfoAbnormalVisualEffect,
		/*[0xFE:0x16F]*/ExShowPotentialSkillList,
		/*[0xFE:0x170]*/ExUserInfoInven,
		/*[0xFE:0x171]*/ExClosePotentialSkillList,
		/*[0xFE:0x172]*/ExEnchantOneOk,
		/*[0xFE:0x173]*/ExEnchantOneFail,
		/*[0xFE:0x174]*/ExEnchantOneRem,
		/*[0xFE:0x175]*/ExEnchantOneRem1,
		/*[0xFE:0x176]*/ExEnchantTwoOk,
		/*[0xFE:0x177]*/ExEnchantTwoFail,
		/*[0xFE:0x178]*/ExEnchantTwoRem,
		/*[0xFE:0x179]*/ExEnchantTwoRem1,
		/*[0xFE:0x17A]*/ExEnchantSuccess,
		/*[0xFE:0x17B]*/ExEnchantFail,
		/*[0xFE:0x17C]*/ExAccountAttend,
		/*[0xFE:0x17D]*/ExBeautyItemList;

Свернуть ↑Развернуть ↓

[Mifesto]

ну как бы на руофе сей час 558 протокол, даже на корее нет 929

[BoneBreaker]

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

ну как бы на руофе сей час 558 протокол, даже на корее нет 929

Не тот клиент, который общий на скачку. А тот который на ПТС2.