[qwexak]

var
m:TMemo;
frm:TForm;
ench, wpnid, i: Integer;
Title, Name: String;

procedure Init;
begin
frm := TForm.Create(nil);
frm.Caption := 'qweasd';
frm.BorderStyle := bsSizeable;
frm.Position := poScreenCenter;
m.ScrollBars:=ssBoth;
m.parent:=frm;
m.align:=alClient;
m.ReadOnly:=true;
frm.Width:=300;
frm.Height:=600;
m:=TMemo.Create(frm);
frm.Show;
end;

procedure Free;
begin
m.Free;
frm.Free;
end;

begin
if FromServer and (pck[1]=#$03) then
  begin
   i:=22;
   Name:=ReadS(i);
   Inc(i,20);
   wpnid:=ReadD(i);
   Inc(i,184);
   Title:=ReadS(i);
   Inc(i,27);
   ReadH(i); // тут чтото про кубики думаю проблема в этом
// writeH(_activeChar.getCubics().size());
//  for (int id : _activeChar.getCubics().keySet())
// writeH(id);
   Inc(i,20);
   ench:=ReadD(i);

//   if (wpnid = 7575) or (wpnid = 6368) or (wpnid = 7577) or (wpnid = 6594) then
   if (wpnid = 7577) or (wpnid = 6594) then
   begin
     m.Lines.Add('WeaponID: '+inttostr(wpnid)+' +'+inttostr(ench)+' '+Name+' ('+Title+')');
   end

  end;
end.

в логе

WeaponID: 6594 +1096744969 AShuN ()
WeaponID: 6594 +1488519179 Mrucialego (WTT DYN L FOR H)
WeaponID: 6594 +496041988 AmayaK (-==-)
WeaponID: 7577 +1542258697 GodLike (Rommel)


WeaponID: 7577 +8 Callergi (Nitro boy)
WeaponID: 7577 +8 SirLanka (Whisper)
WeaponID: 7577 +9 RikiMaRou (Shit HappenS)
WeaponID: 7577 +9 xSaIlArx (LF GOOD CLAN)

помогите если кто значет в чем проблема (Interlude)

Добавлено через 8 часов 57 минут

   i:=22;
   Name:=ReadS(i);
   Inc(i,20);
   wpnid:=ReadD(i);
   Inc(i,184);
   Title:=ReadS(i); //title
   Inc(i,49);
   ench:=ReadC(i);

нужно было ReadC использовать всем спасибо )