[Breadfan]

кактотак:Оффтоп

var
WhType,Adena,ListSize,Obj,obj2,ID,Count,IT2,CT1,BP,EL,CT2,ObjID2,AID,AID2,AET,AEP,DAF,DAW,DAWd,DAE,DAH,DAU,Mana,Time0,i,j:integer;
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
begin
if fromserver and (pck[1]=#$41) then begin 
WhType:=ReadH(2);Adena:=ReadQ(4);ListSize:=ReadH(18);
buf:=#$41;WriteH(WhType);Writeq(Adena);WriteH(ListSize);
j:=20;
for i:=1 to ListSize do begin
ReadH(j); //пропустили ненужное
Obj:=Readd(j); ID:=Readd(j); Count:=Readq(j); IT2:=Readh(j);
CT1:=Readh(j); BP:=Readd(j); EL:=Readh(j); ReadH(j); CT2:=Readh(j);
ObjID2:=ReadD(j); AID:=ReadD(j); AID2:=ReadD(j); AET:=ReadH(j);
AEP:=ReadH(j); DAF:=ReadH(j); DAW:=ReadH(j); DAWd:=ReadH(j);
DAE:=ReadH(j); DAH:=ReadH(j); DAU:=ReadH(j); Mana:=ReadD(j);Time0:=ReadD(j); 
WriteD(obj);WriteD(0);WriteD(id);Writeq(count);WriteH(it2);WriteH(ct1);WriteD(bp);
writeH(el);Writeh(0);Writeh(ct2);Writed(obj2);WriteD(aid);Writed(aid2);
WriteH(aet);WriteH(aep);Writeh(daf);Writeh(daw);writeh(dawd);writeh(dae);
writeh(dah);writeh(dau);writed(mana);writed(time0);
end;
pck:=buf;
end;
end.

- на коленке писал.