Кароч надоело, нате, пробуйте.
Первое длинющее число в титуле сундука это ИД, а вот второе...
если 0 - сундук хороший
-1 - сундук плохой
Если у вас всегде 0, ну или всегда -1, значит не судьба.
Возможны и иные варианты.
delphi Код:
//Палилка сундуков by APXAHGEJI
Const
Name='Name';
Var
s: string;
i: integer;
//******************************************************************************
// Вызывается при приходе каждого пакета, если скрипт включен
//******************************************************************************
Begin
if (ConnectName=Name) then begin
If pck='' then exit;
If FromServer then
case pck[1] of
#$0C: if ((ReadD(6)>=1018257) and (ReadD(6)<=1018286) or
(ReadD(6)>=1021801) and (ReadD(6)<=1021822) or
(ReadD(6)>=1035593) and (ReadD(6)<=1035595))then begin
i:= 125;
buf:= copy(pck,1,i-1);
S:=ReadS(i) + ' ' +IntToStr(ReadD(6))+' '+IntToStr(ReadD(106));
WriteS(S);
buf := buf+copy(pck,i,length(pck)-1);
pck:= buf;
end;
end;
end;
End.
//******************************************************************************