Сундуки в ХБ.Ваши Идеи?

[APXAHGEJI]

Кароч надоело, нате, пробуйте.
Первое длинющее число в титуле сундука это ИД, а вот второе...
если 0 - сундук хороший
-1 - сундук плохой
Если у вас всегде 0, ну или всегда -1, значит не судьба.
Возможны и иные варианты.

//Палилка сундуков 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.
//******************************************************************************