Packet Struct Aika

{$REGION 'Header'}
type sHeader = Record
  Size: Smallint;
  Key: Byte;
  ChkSum: Byte;
  Index: Smallint;
  Code: Smallint;
  Time: LongInt;
end;
{$ENDREGION}

{$REGION 'Login'}
Type p685 = Record
  Header         : SHeader;
  Serial         : Array [0..03] of byte;
  ID             : Array [0..31] of AnsiChar;
  Time           : LongInt;
  MacAddr        : Array [0..13] of byte;
  Version        : WORD;
  Null           : LongInt;
  Senha          : Array [0..31] of AnsiChar;
  Nulls          : Array [0..991]of byte;//talvez desnecessario
End;
{$ENDREGION}

{$REGION 'Message'}
Type p984 = Record //size 0x90 [144]
  Header  : SHeader;
  Null    : Byte;
  Type1   : Byte;//relacionado com tamanho
  Type2   : Byte;//tbm ou cor
  Null1   : Byte;
  ID      : Array [0..127] of AnsiChar;
End;
{$ENDREGION}

{$REGION 'ITEM STRUCT'}
Type TITEM=Record
Item : Array [0..19]of byte;
End;
{$ENDREGION}

{$REGION 'SendToWord'}
Type TQuest = Record
  ID : Word;
  Unk: Array [0..9] of byte;
End;

Type t925 = Record
  Header         : SHeader;
  Serial         : Array [0..3] of byte;
  ClientID       : DWORD; //Ou word[sobraria 2bytes]
  Null_0         : DWORD;
  UnkNK          : DWORD; //talvez ID unico do char
  Nick           : Array [0..15]of AnsiChar;
  Unk_0          : Byte; // valor 5 talvez nação
  Classe         : Byte; //é a classe mesmo
  Null_1         : Word;
  Força, Agilidade, Inte, Consti, Sorte, Status: WORD;
  Altura, Tronco, Perna, Corpo                 : BYTE;//07 77 77 Padrao
  CurHP, MaxHP   : DWORD;
  CurMP, MaxMP   : DWORD;
  Unk_1          : LongInt; //90 D1 DE 55 unk
  HonorPoint     : DWORD;
  KillPoint      : DWORD;
  Null_2         : Array [0..5] of byte;
  SkillPoint     : Word;
  Unk0           : Word; //Valor1
  Null_3         : Array [0..59] of byte;  /////////////////
  Unk1           : WORD; //Valor 52
  DNFis,DefFis   : Word;
  DNMag,DefMag   : Word;
  BonusDMG       : Word;
  null_4         : Array [0..9] of byte;
 { null_4        : LongInt;
  Unk_2          : Word;
  Null_5         : LongInt; }
  Critico        : word;
  Esquiva        : Byte;
  Acerto         : Byte;
  Null_6         : LongInt;
  Exp            : Comp; //8Bytes
  LvL            : Word; //Level-1
  Null_7         : Array [0..153]of byte;
  Equip          : Array [0..15] of TITEM; //16 Itens
  Null           : LongInt;
  Inventory      : Array [0..59] of TITEM; //60 Itens
  Bags           : Array [0..03] of TITEM; //4 bolsas
  Gold           : Comp; //8 Bytes
  UnkBytes0      : Array [0..383] of byte;  //Tem valores desconhecidos
  Quests         : Array [0..15]  of TQuest; //Max 16 Quests
  UnkBytes1      : Array [0..595] of byte;  //Tem valores desconhecidos
  Senha2         : Array [0..3]   of AnsiChar;
  UnkBytes2      : Array [0..331] of byte;   /////////////////
  BarraSkill     : Array [0..24]  of DWORD;//Estranho valor e qtd [4bytes]
  UnkBytes3      : Array [0..619] of byte;  /////////////////
  PranNick_1     : Array [0..15] of AnsiChar;
  PranNick_2     : Array [0..15] of AnsiChar;
  Unknow         : LongInt;
End;
{$ENDREGION}

{$REGION 'SendToWord Pran'}
Type p907 = Record   //size 1276
  Header        : SHeader;
  Nick          : Array [0..15]of Ansichar;
  UNK1,UNK2     : DWORD;
  CurHP,MaxHp   : DWORD;
  CurMp,MaxMP   : DWORD;
  Exp           : DWORD;
  DefFis,DefMag : Word;
  UnkBytes      : Array [0..11] of byte;
  Equip         : Array [0..15] of TITEM; //16 itens
  Inventory     : Array [0..39] of TITEM;
  Bags          : Array [0..01]  of TITEM;
  Unk           : DWORD;
  NullBytes     : Array [0..39]of byte;
End;
{$ENDREGION}

{$REGION 'Pran ATK Recv'}
Type pran102 = Record   //size  280
  Header     : SHeader;
  SkillID    : DWORD;
  NullBytes0 : Array [0..11]of byte;
  Atacante   : Word;
  Null       : Byte;
  Effect     : Byte;
  NullBytes1 : Array [0..23]of byte;
  TargetID   : DWord;
  NullBytes2 : Array [0..11]of byte;
  TargetHP   : DWORD;
  PosX,PosY  : Single;
  NullBytes3  : Array [0..195]of byte;
End;
{$ENDREGION}

{$REGION 'Pran Effect in Player'}
type p117 = Record
    Header : SHeader;
    Index  : DWORD;
    Effect : DWORD;
End;
{$ENDREGION}

{$REGION 'NPC Request/Quiz/Altera o que ta em cima do NPC'}  //Solicita conversa
type p10D = Record
    Header : SHeader;
    Index  : DWORD;
    Effect : DWORD;
End;
{$ENDREGION}

{$REGION 'SendEffect Mob Header'}
Type p114 = Record
  Header : SHeader;
  Index  : DWORD;
  Effect : DWORD; //$15 = macro caça
  PK     : Boolean;
End;
{$ENDREGION}

{$REGION 'Pran Vida/Familiaridade'}  //Aumenta vida e familiaridade
type p96B = Record
    Header : SHeader;
    VIDA  : WORD;
    Familiaridade : WORD; // em %  porcentagem
End;
{$ENDREGION}

{$REGION 'Pran Animation/dance'}
type p304 = Record //20
    Header : SHeader;
    AnimationID  : DWORD;
    B            : LongBool;//Ou  bool
End;
{$ENDREGION}

{$REGION 'Atualiza Status DN'}
Type p10A = Record  //Size 0x2C(44) OPCODE 0x10A
  Header          : SHeader;
  DNFis, DefFis   : Word;
  DNMag, DEFMag   : Word;
  Null            : Array [0..5]of byte;
  SpeedMove       : Word;
  Unk             : Word;
  Null2           : Array [0..5]of byte;
  Critico         : Word;
  Esquiva,Acerto  : BYTE;
  Duplo,Resist    : WORD;//Talvez não seja resistencia
End;
{$ENDREGION}

{$REGION 'Atualiza Pontos'}
Type p109 = Record  //1c
  Header  : SHeader;
  Forç, AGI   ,
  INTE, CON   ,
  SORT, STATUS: WORD;
  Null : DWORD;
 // Null, Resist : word;
End;
{$ENDREGION}

{$REGION 'Atualiza Lvl e Exp'}
Type p108 = Record  //0x18
  Header  : SHeader;
  Lvl     : Word;
  Unk     : WORD;// CCCC
  Exp     : COMP;
End;
{$ENDREGION}

{$REGION 'Atualiza Info Nação'}//Governo
Type p936 = Record  //160
  Header  : SHeader;
  LordMarechal : Array [0..19] of Ansichar;
  Estrategista : Array [0..19] of Ansichar;
  Juiz         : Array [0..19] of Ansichar;
  Tesoureiro   : Array [0..19] of Ansichar;
  UnkBytes     : Array [0..67] of byte;
End;
{$ENDREGION}

{$REGION 'Atualiza Info Nação'}//Guilds Defensoras talvez
Type p91A = Record  //412
  Header  : SHeader;
  LordMarechal : Array [0..19] of Ansichar;
  Estrategista : Array [0..19] of Ansichar;
  Juiz         : Array [0..19] of Ansichar;
  Tesoureiro   : Array [0..19] of Ansichar;
  Null         : Array [0..319] of byte;
End;
{$ENDREGION}

{$REGION 'Atualiza HP/MP'}
Type p103 = Record  //0x20
  Header       : SHeader;
  CurHP, MaxHP : DWORD;
  CurMP, MaxMP : DWORD;
  Null         : DWORD;
End;
{$ENDREGION}

{$REGION 'ATT Lista amigo'}
Type p870 = Record  //0x28
  Header  : SHeader;
  Nick    : Array [0..15] of Ansichar;
  UnkBytes: Array [0..11] of byte;
End;
{$ENDREGION}

{$REGION 'Recv Lista de cartas'}
Type TStructCarta = Record
  Unk  : Dword;
  Null : LongInt;
  NickEnviado : Array [0..15] of AnsiChar;
  Titulo      : Array [0..29] of AnsiChar;
  DataRetorno : Array [0..15] of AnsiChar;
  UnkBytes    : Array [0..07] of byte;
End;

Type p3F17 = Record
Header   : SHeader;
Null     : LongInt;
Cartas   : Array of TStructCarta;
End;
{$ENDREGION}

{$REGION 'Trade send'}
Type p317 = Record //size 240
  Header   : SHeader;
  Itens    : Array [0..9] of TITEM;
  Slots    : Array [0..9] of byte;
  Null     : Array [0..9] of byte;
  Pronto   : Boolean;
  Confirmar: Boolean;
  PlayerID : Word;
  Null0    : LongInt;
End;
{$ENDREGION}

{$REGION 'CharList Packet 0x901 size: 336'}
Type TSizeChar = Record
  Altura  : Byte;  //TAMANHO
  Tronco  : Byte;  //TAMANHO
  Perna   : Byte;  //TAMANHO
  Corpo   : Byte;  //TAMANHO
End;

Type Item = Record
   Cabelo, Face ,
   Elmo  , Peito,
   Luva  , Calça,
   Arma  , Escudo : Word;
End;

Type TAtributos = Record
  Força, Agiliade,
  Int  , Saude   ,
  Mana , Unk     ,
  Level : Word;
End;

Type Tchar = Record
  Nick            : Array [0..15] of ansichar;//16 letras
  Unk             : Word;  // Não sei
  Classe          : Word;  //Classe do char   (Dinamitador...Pistoleira..)
  SizeofChar      : TSizeChar;
  Equips          : Item;
  Refi            : array[0..11] of byte; //
  Atributos       : TAtributos;
  NotUse          : array[0..5] of byte;
  Exp             : Comp; //pega 8 bytes
  Gold            : Comp; //pega 8 bytes
  NotUse2         : array[0..3] of byte;
  DeleteBOOL      : LongBool; // <>0 fica possivel deletar
  NumericErro     : Byte;    //Numero de vezes errada
  NumRegister     : BOOLEAN; //Se tem ou não numerica registrada
  NotUse3         : array[0..5] of byte;
End;

Type p901 = Record //Att CharList  Size: 336   recv
  Header          : SHeader;
  Serial          : array [0..3] of byte;
  Unk             : LongInt;
  NotUse          : array [0..3] of byte;
  Personagem      : Array [0..2] of Tchar;
End;
{$ENDREGION}

{$REGION 'Chat Send'}
type tF86 = Record //chat
    Header    : SHeader;
    NotUse    : Array [0..8] of byte;
    Typechat  : Array [0..3] of byte;
    Nick      : Array [0..15] of ansichar;//16 letras
    Fala      : Array [0..125] of ansichar;//126
End;
{$ENDREGION}

{$REGION 'PlayerSpam'}
Type t349 = Record   //Size 0x1FC  DEC: 508  PlayerSpam
   Header : sHeader; //falta bytes
   Nick : ARRAY [0..15] OF Ansichar;
   Face,Cabelo,Elmo,Peito,Luva,Bota,Arma,Escudo : WORD;
   Unk_0 : DWORD;
   CurHP,CurMP,
   MaxHP,MaxMP   : DWORD;
   Unk0          : WORD;
   StateAnimation: BYTE;
   Altura,Cabeça,Corpo : BYTE;
   BoolDead      : Bool; //2bytes
   EffectType    : Word; //Tipo quando ta com autocaça ON ou efeito de skill
   Unk00         : Word; //Tipo de ataque padrão talvez
   Buffs         : Array [0..59] OF WORD;
   Title         : ARRAY [0..31] OF Ansichar;//talvez seja 30
   GuildMark     : Word;
   Null          : Word;
   Unk           : DWORD;
   Aura          : Byte;
   AnimationSK   : Byte;
   Nul2          : Byte;
   ChaosView     : Byte;
   Null2         : LongInt;
   Titulo        : Word;
   HPView        : Word;
End;
{$ENDREGION}

{$REGION 'MobSpam'}
Type t35E = Record   //Size 0x54  DEC: 84  MobSpam
    Header          : SHeader;
//    MobType         : Word;
    NotUse_0        : Array [0..15] of AnsiChar; // é string igual de NPC, infos no MobEffect
    unk_0           : longint;
    Posx            : single;
    PosY            : single;
    HP_1            : DWORD;
    notUse_1        : DWORD;
    HP_2            : DWORD;
    NotUse_2        : DWORD;
    Unk_1           : Word;
    Unk_2           : Word;
    notlister       : Array [0..23] of byte;
End;
{$ENDREGION}

{$REGION 'Recv ATK'}
Type t102 = Record    //Opcode 0x102 Size: 0x54 (84)
  Header          : SHeader;
  SkillID         : DWORD;
  PosX_1          : Single;
  PosY_1          : Single;
  NotUse_2        : LongInt;
  AttackID        : Word;
  Null            : Byte;
  Animation       : Word; //Deve ser a animação
  NotUse_3        : Array [0..10] of Byte;
  HPAtual         : Word;
  NotUse_4        : Array [0..9] of Byte;
  TargetID        : Word;
  DNType          : Word;
  DANO            : LongINT;
  NotUse_5        : Array [0..7] of Byte;
  MobCurrHP       : DWORD;
  PosX_2          : Single;//Se o mob morrer vem o valor da posição
  PosY_2          : Single;
end;
{$ENDREGION}

{$REGION 'Criar personagem/ Deletar'}
Type t3E4 = Record  //0x3E4  size 0x38   [DEC 56]
   Header          : SHeader;
   Serial          : Array [0..3] of byte;
   Slot            : DWORD;
   Nick            : Array [0..15] of ansichar;
   Face,Cabelo     : Word;
   Null            : Array [0..11] of byte;
   Local           : DWORD;
End;

Type p603 = Record
  Header          : SHeader;
  Serial          : Array [0..3] of byte;
  Slot            : DWORD;
  Delete          : LongBool;//esse é longbool 4bytes
  Numeric         : Array [0..3] of Ansichar;//não é necessario
End;
{$ENDREGION}

{$REGION 'Receber/Atualizar Item'}
Type  pF0E = Record
  Header   : SHeader;
  Notice   : Boolean;
  TypeSlot : Byte;
  Slot     : Word;
  Item     : TITEM;
End;
{$ENDREGION}

{$REGION 'Movimento'}
Type p301 = Record //anda
  Header   : SHeader;
  PosX,PosY: Single;
  Null     : Array [0..5] of byte;
  TypeMove : Byte;
  SpeedMove: Byte;
  Unk      : DWORD;
End;

Type p305 = Record //angulo ratoção
  Header   : SHeader;
  Rotação  : DWORD;
End;
{$ENDREGION}

{$REGION 'Skill'}
Type p320 = Record
   Header   : SHeader;
   SkillID  : DWORD;
   TargetID : DWORD;
   PosX,PosY: Single
End;

Type p302 = Record
  Header   : SHeader;
  TargetID : DWORD;
  Null     : Array [0..11] of byte;
  Effect   : Word;
  SkillID  : Word;
  PosX,PosY      : Single;
  TargetX,TargetY: Single;
End;
{$ENDREGION}

{$REGION 'Move Itens'}
type p70f = Record
  Header   : SHeader;
  OrigType,OrigSlot,
  DestType,DestSlot : WORD;
End;
{$ENDREGION}

{$REGION 'Separa Itens'}
Type p333 = Record
  Header   : SHeader;
  Slot, Qtd, TypeSlot : DWORD;
End;
{$ENDREGION}

{$REGION 'Usa Itens'}
Type p31D = Record
  Header  : SHeader;
  TypeSlot,
  Slot    : DWORD;
End;
{$ENDREGION}

{$REGION 'Janelinha sucesso decomposição item'}
Type p32E = Record //size 24
  Header  : SHeader;
  Type1,
  ItemID,Qntd    : DWORD;
End;
{$ENDREGION}

{$REGION 'Junta Itens'}
Type p332 = Record
  Header   : SHeader;
  OrigSlot,DestSlot : DWORD;
  Null : LongInt;
End;
{$ENDREGION}

{$REGION 'Atualiza gold'}
Type p312 = Record
  Header   : SHeader;
  Unk  : DWORD;
  Gold : Comp;
End;
{$ENDREGION}

{$REGION 'Request NPC'}
Type p30F = Record
  Header : SHeader;
  Index  : DWORD;
  Type1  : DWORD;
  Type2  : DWORD;
End;
{$ENDREGION}

{$REGION 'Comerciante/Loja Item'}
Type p106 = Record
  Header  : SHeader;
  Index   : Word;
  SaleType: word;//Tipo de loja
  Item    : Array [0..14] of WORD;
End;
{$ENDREGION}

{$REGION 'Recv Bau Atualiza'}
Type p137 = Record
  Header : SHeader;
  Null   : LongInt;//Pode ser Tipo
  Gold   : Comp;
  Itens  : Array [0..79] of TITEM;
  Cofre  : Array [0..3]  of TITEM;
  Prans  : Array [0..1]  of TITEM;
End;
{$ENDREGION}

{$REGION 'Send Gold Bau'}
Type pF59 = Record
  Header : SHeader;
  Type1  : DWORD;
  Gold   : Comp;
End;
{$ENDREGION}

{$REGION 'MoveItemBar'}
Type p31E = Record
  Header : SHeader;
  Type1,Type2,Item : DWORD;
End;
{$ENDREGION}

{$REGION 'Senha Numerica'}
Type pF02 = Record
  Header : SHeader;
  Slot   : DWORD;
  NumEcx : LongBool;
  Numerica : Array [0..3] of Ansichar;
End;
{$ENDREGION}

{$REGION 'PK'}
Type p307 = Record
  Header : SHeader;
  Active : LongBool;
End;
{$ENDREGION}

{$REGION 'UnkPacket 0xD41'}
Type pD41 = Record  //size 512
  Header : SHeader;
  SerialChar : Array [0..3]of byte;
  UnkBytes   : Array [0..495]of byte;
End;
{$ENDREGION}

{$REGION 'SendQuest Info'}
Type p331 = Record //ta meio errado
  Header : SHeader;
  ID     : WORD;
  Colect : Array [0..4] of Word; //relacionado ao completar cada parte
  Qtd    : Word; //quantidade
  Null   : LongInt;
  ColectID : Array [0..4] of Word;
  Terminat : Boolean;
End;
{$ENDREGION}

{$REGION 'NPC Option'}
Type p112 = Record
  Header : SHeader;
  Option : DWORD;
  Null   : LongInt;
  Message: Array [0..63] of ansichar;
End;
{$ENDREGION}

{$REGION 'XTrapCheck'}
Type p39D = Record  //send
  Header : SHeader;
  Active : LongBool;//ou boolean;
End;

Type pCCCC = Record //Recv
  Header : SHeader;
  Active : LongBool;//ou boolean;
End;
{$ENDREGION}

{$REGION 'UnkPacket  0x186'}
Type p186 = Record  //recv 4x apos logar antes sendtoword
  Header : SHeader;
  Nulls  : Array [0..127] of byte;
End;
{$ENDREGION}

{$REGION 'Client Request Delete Item'}
Type p32C = Record
  Header : SHeader;
  Slot,TypeSlot : DWORD;
End;
//Send envia o 0xF0E apagando o item do client, e o 0x33D(Unk)
{$ENDREGION}

{$REGION 'UnkPacket 0x33D incluso na atualização de itens'}
Type p33D = Record
  Header     : SHeader;
  Null       : LongInt;
  Unk1       : DWORD; //valor 1
  NullBytes  : Array [0..19 ]of byte;
  Unk2       : DWORD;//Valor 8
  NullBytes2 : Array [0..7]of byte;
End;
{$ENDREGION}

{$REGION 'Send Pran Info'}
Type p1A1 = Record
  Header        : SHeader;
  Nick          : Array [0..15] of Ansichar;
  Fome          : Word;
  Personalidade : Word;
  Familiaridade : Word;
  CurrHP,MaxHP  : DWORD;
  CurrMP,MaxMP  : DWORD;
  Exp           : LongWord;
  DefFis,DefMag : WORD;
  Item          : Array [0..7] of TITEM;
  Null          : Byte;
  Vida          : Byte;
  Level         : Word; //lvl -1
End;
{$ENDREGION}

{$REGION 'Send Info Player'}
Type TStatus = Record
  Força,Agi,
  Int,Consti,
  Sort,Stat,Critico : WORD;
  Esquiva,Acerto    : Byte;

  DMFis,DefFis : WORD;
  DMMAg,DefMag : WORD;
  SpeedMove    : DWORD;
  Resis,TxDup  : WORD;
  Null         : DWORD;
  Exp          : COMP;
  BonusDMG     : WORD;
  Level        : WORD; //lvl-1
End;

Type p19E = Record
  Header : SHeader;
  Nick   : Array [0..15] of Ansichar;
  Guild  : Array [0..19] of Ansichar;
  Unk    : DWORD; //acho que é nação
  Honor  : DWORD;
  PVP    : DWORD;
  Status : Tstatus;
  Itens  : Array [0..15] of TITEM;
  PranName : Array [0..19] of Ansichar;
End;
{$ENDREGION}

{$REGION 'Send Request Info'}
Type p22C = Record  // se a index for 0 procura pelo nick e vice versa
  Header : SHeader;
  Index  : DWORD;
  Nick   : Array [0..15] of Ansichar;
End;
{$ENDREGION}

{$REGION 'Recv Loja Pessoal'}
Type TLoja = Record  //ta errado ainda
  Item : TITEM;    //talvez primeiro vem o gold/ depois o item e slot
  Gold : COMP;
  Slot : DWORD;
End;

Type p319 = Record
  Header     : SHeader;
  Index      : DWORD;
  Nome       : Array [0..31] of ansichar;
  CurrentGold: COMP;
  UnkBytes0  : Array [0..10] of byte;
  Itens      : Array [0..09] of TLoja;
  UnkBytes1  : Array [0..19] of byte;
End;
{$ENDREGION}


Thebad.cb