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

[TAMBIK]

Раньше в бандитах такие пвп были народ бегал целые кланы на разборки приходили весело а ща ТИШИНА

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

ar
Heading,i, j, k: integer;
Message,Title :string;
begin
If FromServer then
      case pck[1] of
      #$0C: if ((ReadD(6)>=1018257) and (ReadD(6)<=1018286))then begin
      i:=26;
     
      Heading:=ReadD(i);
      i:=i+95;
      j:=i;           
      Title:=readS(i);
      k:=i;         
      buf:=copy(pck,1,j-1);
      Message:=''+Title+''+'='+ ''+inttostr(Heading)+'';
       WriteS(Message);
      j:=length(buf);
      buf:=buf+copy(pck,k,length(pck)-k+1);
      pck:='';
      SendToClient;
      end;
   end;
end.

так разные цифры
могет можно попроще сделать я прост неумею