Код:
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 использовать всем спасибо )